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