home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh13a.d64
/
seq-dat.-monitor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
276b
|
17 lines
90 DIM A(100),B(100)
100 INPUT"[147]NAME DER SEQ-DATEI:";IC$
130 OPEN1,8,2,IC$+",S,R"
135 INPUT#1,FF
140 INPUT#1,DA
145 INPUT#1,DB
150 I=1
160 INPUT#1,A(I)
165 INPUT#1,B(I)
170 IFST<>64THENI=I+1:GOTO160
180 CLOSE1:AN=I
200 PRINT"FF=";FF
210 PRINT"DA=";DA;TAB(20);"DB=";DB
220 FORI=1TOAN
230 PRINT"A";I;"=";A(I);TAB(20);"B";I;"=";B(I)
240 NEXTI