home *** CD-ROM | disk | FTP | other *** search
/ zzZACK64 / zzZACK64_4_1992_-_de.d64 / info (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  535b  |  20 lines
  1. 120 gosub340:printchr$(14)chr$(147)
  2. 280 gosub310:sys64738
  3. 281 a$="* info.txt":fori=1tolen(a$):poke511+i,asc(mid$(a$,i,1)):next:poke511+i,0
  4. 282 poke631,136:poke632,68:poke633,76:poke198,3
  5. 290 gosub410:sys50387:return
  6. 310 f$="/ed.exe":gosub490
  7. 320 ifst<>64thenend
  8. 330 poke51698,0:poke50489,peek(781):poke50490,peek(782):goto281
  9. 340 data4096,cpv1.1mc,"syscon64"
  10. 350 readpr:a=pr-1:gosub400
  11. 360 ifpeek(55)=al and peek(56)=ahthenreturn
  12. 370 poke55,al:poke56,ah:clr
  13. 380 readpr:readf$:gosub490:readf$:gosub490
  14. 390 poke65028,255:poke65029,191:run
  15. 400 ah=int(a/256):al=a-256*ah:return
  16. 410 a=256*(peek(50490)+peek(4097))+peek(50489)+peek(4096):gosub400
  17. 420 poke65026,al:poke65027,ah:return
  18. 490 sys57812f$,8,1
  19. 500 poke780,0:sys65493:return
  20.