home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 July / 1986-07.d64 / keyload_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  598b  |  18 lines
  1. 0 print""
  2. 1 poke198,15:poke631,19:poke632,13:poke633,19:poke634,17:poke635,13:poke636,19
  3. 2 poke637,29:poke638,29:poke639,29:poke640,42:poke641,13:poke642,82
  4. 3 poke643,213:poke644,54:poke645,13
  5. 4 print"[147]l[207]"chr$(34)"$"chr$(34)",8
  6. 5 [153]"list1-":[128]
  7. 6 x$[178]"                           "
  8. 7 [153]"disk loader":[153]x$
  9. 8 [153]"crsrwait to desired program, press returnwait.
  10. 9 printx$:print"*    "chr$(34):print"*  "
  11. 10 poke198,5:poke631,157:poke632,157:poke633,32:poke634,17:poke635,157
  12. 11 inputf$:iff$=""thenend
  13. 12 ifmid$(f$,7+n,1)=chr$(34)then14
  14. 13 n=n+1:goto12
  15. 14 ifleft$(f$,1)="l"thenpoke198,2:poke631,19:poke632,13:goto16
  16. 15 poke198,6:poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13
  17. 16 print"[147]load"chr$(34)"0:"mid$(f$,7,n)chr$(34)",8,1":end
  18.