home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 September
/
Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64
/
Dlist
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
628b
|
19 lines
5000 print"[147]one moment..":poke49,peek(47):poke50,peek(48):dimt$(77):t=1:fork=41
5010 ifpeek(k)>127thena$=a$+chr$(peek(k)-128):t$(t)=a$:t=t+1:a$="":goto5030
5020 a$=a$+chr$(peek(k))
5030 next:o$=chr$(0)
5040 close15:open15,8,15:input"[147]program to list";a$:open2,8,2,""+a$:gosub5140
5050 print"[147]press <shift> to pause <_> to exit":get#2,b$,c$
5060 ifpeek(197)=57then5170
5070 ifpeek(653)=1then5070
5080 get#2,z$,b$,c$,d$:ifz$=""andb$=""then5170
5090 v$=str$(asc(c$+o$)+asc(d$+o$)*256)+" ":v$=mid$(v$,2):print:printv$;:q=0
5100 get#2,c$:c=asc(c$+o$):ifc=0then5060
5110 ifc>127andc<204andq=0thenprintt$(c-127);:goto5100
5120 ifc=34thenq=1-q
5130 printchr$(c);:goto5100
5140 get#15,n:ifn=0thenreturn
5150 ifn=6thenprint"program not on this disk":fork=1to2000:next:run
5160 print"disk error. program aborted
5170 [160]15:[151]198,0