home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / pxword (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  65 lines
  1. 10 poke53280,0:poke53281,0:print""
  2. 20 poke55,0:poke56,96:clr
  3. 22 dv=peek(186):ifdv<8thendv=8
  4. 25 remgoto45
  5. 30 sys57812"sys toolbox.bhs",dv,0:poke781,0:poke782,192:sys65493
  6. 40 sys57812"pknees 84",dv,0:poke781,0:poke782,96:sys65493
  7. 45 print"[147]"
  8. 50 sys49152,7,4,15,7,34,160,12
  9. 52 sys49152,7,2,13,5,31,160,15
  10. 54 sys49152,7,4,13,32,32,101+128,12
  11. 60 printtab(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
  12. 62 printtab(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
  13. 65 printtab(7)"1] [208]rint [208]uzzle
  14. 70 [153][163]7)"2] (NULL)rint (NULL)olution
  15. 75 printtab(7)"3] [211]olving [201]nstructions
  16. 77 [153][163]7)"4] (NULL)uzzle valxplanation
  17. 79 printtab(7)"5] [197]xit"
  18. 80 printtab(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  19. 81 sys49152,7,19,20,0,39,98,11
  20. 82 sys49152,7,23,24,0,39,98+128,11
  21. 83 sys49152,4,0:poke198,0
  22. 85 sys49152,3,0,0,1,14,20,160,"[208]ress 1-5 to select.
  23. 90 [161]k$:[139]k$[178]""[167]85
  24. 95 k[178][197](k$):[139]k[179]1[176] k[177]5[167]85
  25. 100 [145]k[141]1000,2000,3000,5000,4000
  26. 105 [137]85
  27. 110 :
  28. 1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
  29. 1002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  (y/n)"
  30. 1005 [161]k$:[139]k$[178]""[167]1002
  31. 1010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  32. 1012 [158]49152,10,4,3
  33. 1015 [158]49152,7,20,23,0,39,160,14
  34. 1020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  35. 1025 [158]24576:[158]49152,5,0:[142]
  36. 1030 :
  37. 2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
  38. 2002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  (y/n)"
  39. 2005 [161]k$:[139]k$[178]""[167]2002
  40. 2010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  41. 2012 [158]49152,10,4,3
  42. 2015 [158]49152,7,20,23,0,39,160,14
  43. 2020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  44. 2025 [158]24576[170]3:[158]49152,5,0:[142]
  45. 2030 :
  46. 3000 [153]"list":[158]49152,13,dv,[198]("\"),"crypto instr"
  47. 3005 [158]49152,5,0:[142]
  48. 3010 :
  49. 4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
  50. 4002 [158]49152,3,0,0,1,14,20,160,"atnre (NULL)ou (NULL)ure?  (y/n)"
  51. 4005 [161]k$:[139]k$[178]""[167]4002
  52. 4010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  53. 4012 [151]55,0:[151]56,160:[156]
  54. 4050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
  55. 4055 [139]er%[179][177]63[167][128]
  56. 4060 [151]646,[194](53281)
  57. 4062 [153]"loadwaitload"[199](34)"hello connect"[199](34)","8
  58. 4065 [153]"run"
  59. 4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  60. 4080 :
  61. 5000 [153]"list":[158]49152,13,dv,[198]("\"),"explanation"
  62. 5005 [158]49152,5,0:[142]
  63. 5010 :
  64. 10000 [159]15,8,15,"s0:pxword":[160]15:[148]"0:pxword",8
  65.