home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 55 / Commodore_Disc_55_19xx_-_de.d64 / cp-load.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  671b  |  26 lines
  1. 100 rem cp-load by a.m.
  2. 110 rem
  3. 120 gosub340:printchr$(14)
  4. 130 printchr$(147)spc(11)"[195][208]-[204][207][193][196]/[214]1.1":print
  5. 240 fi$="":inputfi$:iffi$="x"thenopen8,8,15,"i0":close8:goto240
  6. 250 i=1:iffi$=""then130
  7. 260 if fi$="end"thensys64738
  8. 270 ifi<=len(fi$)thenifmid$(fi$,i,1)<>" "theni=i+1:goto270
  9. 280 fi$=left$(fi$,i-1):gosub300:goto240
  10. 290 gosub410:sys50387:return
  11. 300 iffi$=fa$then290
  12. 310 sys57812"/"+fi$+".exe",8,1:gosub500
  13. 320 ifst<>64thenreturn
  14. 330 fa$=fi$:poke51698,0:poke50489,peek(781):poke50490,peek(782):goto290
  15. 340 data4096,cpv1.1mc,"syscon64"
  16. 350 readpr:a=pr-1:gosub400
  17. 360 ifah=peek(56)andal=peek(55)thenreturn
  18. 370 poke55,al:poke56,ah:clr
  19. 380 readpr:readf$:gosub490:readf$:gosub490
  20. 390 poke65028,255:poke65029,191:run
  21. 400 ah=int(a/256):al=a-256*ah:return
  22. 410 a=256*(peek(50490)+peek(4097))+peek(50489)+peek(4096):gosub400
  23. 420 poke65026,al:poke65027,ah:return
  24. 490 sys57812f$,8,1
  25. 500 poke780,0:sys65493:return
  26.