home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 55
/
Tiger_Disk_055_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
dir in array
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
247b
|
11 lines
1 dimd$(144):open1,8,0,"$0":get#1,a$,a$
2 get#1,a$,a$:ifa$=""thenclose1:goto8
3 get#1,a$,b$
4 c$=mid$(str$(asc(a$+chr$(0))+asc(b$+chr$(0))*256),2)+chr$(32)
5 get#1,a$:ifa$=""then7
6 d$(i)=d$(i)+a$:goto5
7 d$(i)=c$+d$(i):i=i+1:goto2
8 forx=0toi:ifmid$(d$(x),25,1)="d"then10
9 printd$(x)
10 next