offset = 0 rxprommi$ = "bsr450rx.bin" txprommi$ = "bsr450tx.bin" DIM tavu%(30): ff% = 255: ffff% = -1 OPEN rxprommi$ FOR BINARY AS #1 OPEN txprommi$ FOR BINARY AS #2 'Frx = 460012.5: Ftx = 460012.5 OPEN "bsr450.chn" FOR INPUT AS #3 'LINE INPUT #3, rivi$ PRINT rivi$ WHILE NOT EOF(3) LINE INPUT #3, rivi$ Frx = VAL(MID$(rivi$, 1, 8)) Ftx = VAL(MID$(rivi$, 11, 8)) GOSUB kanava WEND CLOSE PRINT offset 'montako tavua ladattiin END kanava: 'muunnetaan ja asetetaan yhden kanavan tiedot R% = 60 N = INT((Frx - 21600) / 800) A% = (Frx - 21600) / 12.5 - N * 64 k = 1 GOSUB jako N = INT(Ftx / 800) A% = Ftx / 12.5 - N * 64 k = 2 GOSUB jako offset = offset + 8 RETURN jako: 'jakolukujen lataus tavu%(1) = A% MOD 16 tavu%(2) = A% \ 16 avu% = N MOD 256 tavu%(3) = avu% MOD 16 tavu%(4) = avu% \ 16 tavu%(5) = N \ 256 avu% = R% MOD 256 tavu%(6) = avu% MOD 16 tavu%(7) = avu% \ 16 tavu%(8) = R% \ 256 FOR i = 1 TO 8 PUT #k, offset + i, tavu%(i) PRINT tavu%(i); NEXT i PUT #k, offset + i + 1, ffff% GOSUB nayta RETURN nayta: PRINT PRINT A%, N, R% FOR i = offset TO (offset + 8) ' PRINT tavu%(offset); ' PUT #1, i, ff% NEXT i RETURN