home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-12_1988_-_de_Side_B.d64 / con.load (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  62 lines
  1. 0 ifjp=0thenjp=1:load"con.titl",8,1
  2. 1 v=53248:pokev+33,0:pokev+32,0:d$="":print"[147]"d$
  3. 2 printchr$(8)chr$(142)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
  4. 3 [153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
  5. 4 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
  6. 5 [153][166]7)" waitloglogloglog  lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
  7. 6 printspc(7)"[175][146] s  o  f  t  w  a  r  e[158][161]
  8. 7 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
  9. 8 fori=0to17:print:fork=0to9:nextk,i:print"
  10. 9 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto          toandposnew"
  11. 10 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
  12. 11 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
  13. 12 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[130]
  14. 13 u$[178]"        p r e s e n t s":[129]i[178]1[164]8
  15. 14 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
  16. 20 [129]i[178]49154[164]49317:[135]j:[151]i,j:[130]
  17. 100 n[178]54:[134]l(n),h(n),sa(72),sb(72),sl(72):[129]i[178]1[164]n:[135]h(i),l(i):[130]
  18. 102 [129]i[178]0[164]72:[135]sa(i),sb(i),sl(i):[130]
  19. 110 s[178]54272:[129]i[178]0[164]23:[151]s[170]i,0:[130]:[151]s[170]24,15:[158]49154:[151]198,0
  20. 120 [151]s[170]5,64[170]12:[151]s[170]12,64[170]9:[151]s[170]2,79:[151]s[170]9,22:[151]s[170]3,133:[151]s[170]10,213
  21. 200 [129]i[178]0[164]72:[151]s[170]11,64:[151]s[170]4,64
  22. 210 [151]s,l(sa(i)):[151]s[170]1,h(sa(i)):[151]s[170]7,l(sb(i)):[151]s[170]8,h(sb(i))
  23. 220 [151]s[170]11,65:[151]s[170]4,65:[129]j[178]1[164]42[172]sl(i):[130]:[161]u$:[139]u$[178]""[167][130]:[137]200
  24. 500 [151]s[170]24,0:[151]53265,27:[151]53272,21
  25. 510 [151]s[170]4,0:[153]"load":[151]v[170]21,0:[151]v[170]33,0:[151]v[170]32,0:[151]646,14:[151]53270,200
  26. 520 [153]"load";:[151]53281,0
  27. 530 [153][166]9)"please select...":[153][166]9)"def f1 wait cont- sysinstructions
  28. 540 printspc(9)"[150] f7 [146] [154]- [158]play the game
  29. 550 [161]u$:[139]u$[178]"input"[137]600
  30. 560 [139]u$[178]"let"[167][153]"loadstopp(NULL)43,97:p(NULL)44,17:p(NULL)4448,0:l(NULL)"[199](34);
  31. 562 [139]u$[178]"let"[167][153]"con.boot"[199](34)",8":[137]605
  32. 570 [137]550
  33. 600 [153]"loadstopl(NULL)"[199](34)"con.inst"[199](34)",8
  34. 605 fori=1to9:print"r[213]":next
  35. 620 poke631,19:poke632,13:poke633,13:poke198,3:poke43,1:new
  36. 800 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  37. 810 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  38. 820 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  39. 830 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  40. 840 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  41. 850 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  42. 860 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  43. 870 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  44. 880 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253,208
  45. 890 data227,230,254,76,122,192,134,252,132,251,96,134,254,132,253,96
  46. 1000 data3,169,3,224,4,27,4,90,4,156,4,226,5,45,5,123,5,207,6,39,6,133,6,232
  47. 1010 data7,81,7,193,8,55,8,180,9,56,9,196,10,89,10,247,11,158,12,78,13,10
  48. 1020 data13,208,14,162,15,129,16,109,17,103,18,112,19,137,20,178,21,237,23,59
  49. 1030 data24,157,26,20,27,160,29,69,31,3,32,219,34,207,36,225,39,18,41,101
  50. 1040 data43,219,46,118,49,58,52,39,55,65,58,138,62,5,65,181,69,157,73,193,78,36
  51. 2000 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,8,21,18,6,20,16,6,21,18,2
  52. 2010 data16,11,2,21,18,2,18,13,16
  53. 2030 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,6,25,21,4,21,18,2,23,20,6
  54. 2040 data25,21,4,21,18,2,25,21,2,23,20,2,21,18,2,25,21,2,23,20,2,21,18,2
  55. 2050 data25,21,2,23,20,2,21,18,2,21,18,2,20,16,2,18,13,2,12,7,6,19,15,16
  56. 2060 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,6,25,21,4,21,18,2,23,20,6
  57. 2070 data25,21,4,21,18,2,25,21,2,23,20,2,21,18,2,25,21,2,23,20,2,21,18,2
  58. 2080 data25,21,2,23,20,2,21,18,2,21,18,2,20,16,2,18,13,2,12,7,6,19,15,16
  59. 2100 data16,11,6,23,20,10,21,18,2,22,19,2,23,20,2,24,19,4
  60. 2110 data21,18,2,22,19,2,23,20,2,24,19,4
  61. 2120 data21,18,2,22,19,2,23,20,2,24,19,18
  62.