home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 105 / 105.d81 / main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 0 poke 53280,5:poke 53281,5:if fl=0 then fl=1:load"load",8,1
  2. 1 if fl=1 then fl=2:df=peek(53272):load"maze",8,1
  3. 120 cr=4*4096+1023:poke 53280,6:poke 53281,1
  4. 121 sn=(4*4096)-1:poke 53265,peek(53265)and 239
  5. 123 for t=1 to 1024
  6. 124 poke 1023+t,peek(sn+t)
  7. 125 next t
  8. 130 for t=1 to 1024
  9. 131 poke 55295+t,peek(cr+t)
  10. 133 next t
  11. 150 poke 53272,peek(53272)or 8
  12. 151 poke 53265,peek(53265)or32
  13. 152 poke 53270,216:poke 53265,peek(53265)or16
  14. 200 get a$:if a$="" then 200
  15. 202 if a$="1" then gosub4000:goto 1000
  16. 203 if a$="2" then gosub4000:goto 2000
  17. 204 if a$="3" then gosub4000:goto 3000
  18. 210 goto 200
  19. 1000 print"[147]":print"[144]";tab(10)"loading....please wait!"
  20. 1001 for t=1 to 1000:next t:sys 49152
  21. 2000 poke 646,5:print"[147]load";chr$(34)"direct";chr$(34);",8,1"
  22. 2001 print"run"
  23. 2005 poke 646,0
  24. 2006 print:print:print:print:printtab(10)"loading instructions"
  25. 2010 print"":poke 631,13:poke 632,13:poke 633,13:poke 198,3:end
  26. 3000 print:print"[147]":print:print:print:printtab(14)"  please  "
  27. 3001 printtab(14)"  insert  "
  28. 3002 printtab(14)" loadstar "
  29. 3003 printtab(14)"   side 1 "
  30. 3004 printtab(14)"   then   "
  31. 3005 printtab(14)"  press   "
  32. 3006 printtab(14)"  return  "
  33. 3007 get a$:if a$<>chr$(13) then 3007
  34. 3008 print:printtab(9)"returning to loadstar"
  35. 3012 load"!",8,1
  36. 4000 poke 53265,peek(53265)and 223
  37. 4001 poke 53270,peek(53270)and 239
  38. 4002 poke 53272,peek(53272)and 247
  39. 4003 return
  40.