home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 105 / 105.d81 / direct (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  44 lines
  1. 0 poke 53280,6:poke 53281,0:poke 53265,peek(53265)or16
  2. 1 if a=0 then print"[150][147]"
  3. 10 ifa=0thena=1:load"sub1",8,1
  4. 21 poke 53272,(peek(53272)and240)or14
  5. 23 if a=1thena=2:poke 53265,peek(53265)and239:load"d",8,1
  6. 24 poke 53270,peek(53270)or16:poke 53282,7:poke 53283,5
  7. 25 print"         press a key to continue":print"";tab(11)"items from mortrox
  8. 26 [161] a$:[139] a$[178]"" [167] 26
  9. 27 [151] 53270,[194](53270)[175]239
  10. 29 [151] 53272,([194](53272)[175]240)[176]4
  11. 30 [153]"load":[151] 53281,1
  12. 36 [153]:[153]:[153]:[153]:[153]
  13. 37 [153] [163]12)"                   "
  14. 39 [153][163]12)"    do you want    "
  15. 40 [153] [163]12)" the instructioms  "
  16. 41 [153] [163]12)"   displayed on    "
  17. 42 [153] [163]12)"     1)screen      "
  18. 43 [153] [163]12)"        or         "
  19. 44 [153] [163]12)"     2)printer     "
  20. 45 [153] [163]12)"                   "
  21. 46 [161] a$:[139] a$[178]"" [167] 46
  22. 47 a[178][197](a$):[139] a[177]2 [176] a[179]0 [167] 39
  23. 48 [153]:[153][163]9)"press space to pause":[153][163]9)"press f1 to quit at anytime"
  24. 49 [151] 53280,0:[151] 53281,1:
  25. 50 [153]"":[139] a[178]2 [167] [159] 4,4
  26. 51 [159] 5,8,5,"0:jos,s,r"
  27. 60 [161] a$:[139] a$[178]" " [167] [141] 2000
  28. 61 [139] a$[178]"input" [167] 200
  29. 70 [139] st[179][177]0 [167] 100
  30. 71 [161]# 5,a$:[153] a$;
  31. 72 [139] a[178]2 [167] d$[178]d$[170]a$:t[178]t[170][195](a$):[139] t[177]39 [167] [141] 3000
  32. 73 [137] 60
  33. 80 [160] 5
  34. 100 [160] 5:[160] 4 :[151] 53281,2
  35. 109 [153]:[153]"               end of file"
  36. 200 [141] 2000:[153][199](142)
  37. 201 [153]"loadload";[199](34);"main";[199](34);",8,1":[153][199](142)
  38. 210 [153]"run"
  39. 220 [153]"":[151]631,13:[151] 632,13:[151]633,13:[151]198,3:[128]
  40. 2000 [153]:[153]"        press a key to continue"
  41. 2001 [161] a$:[139] a$[178]"" [167] 2001
  42. 2002 [153]:[142]
  43. 3000 t[178]0:[152] 4,d$:d$[178]"":[142]
  44.