home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SCOOTERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.6 KB  |  136 lines
  1. 10 REM (null)^ SYSUSRDIM(null) (null)USRDIM(null)L(null)XXXXXXXXXX
  2. 11 REM ^  THAT CRAZY LOOKING REM IS A      PRINT AT ROUTINE USING SYSZ,ROW, COL.
  3. 12 :::::  ::::: (null) TO 40 :::::  :::::       :::::  :::::        :::::  :::::
  4. 13 "[141][145] [150]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  5. 14 "GOSUBON ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  6. 15 "[141][145] ""[184]""                            ""[184]""
  7. 16 "GOSUBON ""FRE""  THIS IS AN OLD COMMODORE  DEF""FRE""
  8. 17 "[141][145] ""[184]""                            ""[184]""
  9. 18 "GOSUBON ""FRE""  EDUCATIONAL PROGRAM THAT  DEF""FRE""
  10. 19 "[141][145] ""[184]""                            ""[184]""
  11. 20 "GOSUBON ""FRE""  WAS MADE TO RUN ON MANY   DEF""FRE""
  12. 21 "[141][145] ""[184]""                            ""[184]""
  13. 22 "GOSUBON ""FRE""     TYPES OF COMMODORE     DEF""FRE""
  14. 23 "[141][145] ""[184]""                            ""[184]""
  15. 24 "GOSUBON ""FRE""   COMPUTERS.  EVERYTHING   DEF""FRE""
  16. 25 "[141][145] ""[184]""                            ""[184]""
  17. 26 "GOSUBON ""FRE""   NOT NEEDED WAS REMOVED   DEF""FRE""
  18. 27 "[141][145] ""[184]""                            ""[184]""
  19. 28 "GOSUBON ""FRE""   AND IMPROVEMENTS MADE.   DEF""FRE""
  20. 29 "[141][145] ""[184]""                            ""[184]""
  21. 30 "GOSUBON ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  22. 32 "[141][145] ""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[154].
  23. 35 [[179][179][179][179][179] BLAME IT [145]  JIM GREEN [177][177][177][177][177]].
  24. 40 [134]F(4),PL$(4),G(4),E$(8),B(8):L[178]53280:H[178]53281
  25. 50 [151]L,15:[151]H,15:[153]"LOADRETURN";:[141] 580:Z[178]2054
  26. 55 [153]"   ----------------------------------"
  27. 60 [153]"POKE       1.   BEGIN SCOOTERS"
  28. 65 [153]"       2.   INSTRUCTIONS":[153]"       3.   QUIT"
  29. 70 [153]"   ----------------------------------":C[178]3:[141] 595
  30. 75 [153]"       PRESS A NUMBER KEY (1-3) ";
  31. 80 [161]G$:[139]G$[179]"1"[176]G$[177]"3"[167] 80
  32. 85 [145][197](G$)[141]140, 95, 90:[137]50
  33. 90 [153]"CONTLOAD":[151]H,6:[151]L,14:[128]
  34. 95 [153]"LOADPOKE":[151]H,15:[151]L,15:[141]130:[137]365
  35. 100 [141]105:[142]
  36. 105 [151]198,0:[158]Z,23,6:[153]" (null)RESS <(null)(null)ATNLENVAL> TO CONTINUE WAITPOKE
  37. 110 GETG$:IFG$<>" "THEN110
  38. 115 RETURN
  39. 120 PRINT"[147][142][151] SCOOTERS ...."
  40. 125 PRINT" --------------------------------------":PRINT"":RETURN
  41. 130 PRINT"[147] [211]COOTERS"TAB(26)"[201]NSTRUCTIONS"
  42. 135 PRINT" --------------------------------------":PRINT"":RETURN
  43. 140 PRINT"[147]":RESTORE:POKEH,15:POKEL,15
  44. 145 FORI=1TO4:P(I)=0:NEXTI:RESTORE:FORJ=1TO4:READG(J):NEXTJ:DATA35,36,37,42
  45. 150 FORJ=1TO8:READE$(J),B(J):NEXTJ
  46. 155 DATAN,-80,NE,-78,E,2,SE,82,S,80,SW,78,W,-2,NW,-82
  47. 160 W=W+1:PRINT"[147][151] WELCOME TO                     GAME"W
  48. 165 PRINT"";:GOSUB 580:C=1:GOSUB 595
  49. 170 PRINT"      HOW MANY PLAYERS? (1 TO 4) ";
  50. 175 GETG$:IFG$<"1"ORG$>"4"THEN175
  51. 180 N=VAL(G$)
  52. 185 GOSUB120:PRINT" NAMES ARE LIMITED TO 7 LETTERS."
  53. 190 PL$(1)="CRANKY":PL$(2)="LANKY":PL$(3)="PETE":PL$(4)="REPETE":FORJ=1TON
  54. 195 PRINT"[151] PLAYER"J"[157]: YOUR NAME";:C=1:GOSUB 595
  55. 200 POKE646,154:POKE198,1:INPUT"[151]";PL$(J):IFLEN(PL$(J))>7THEN185
  56. 205 PRINT:PRINT:NEXT:GOSUB295:GOSUB355
  57. 210 FORJ=1TON:GOSUB525
  58. 215 IFPEEK(F(D9)+B)<>127ANDPEEK(F(D9)+B)<>255THEN235
  59. 220 POKEF(D9),32:F(D9)=F(D9)+B
  60. 225 POKEF(D9),G(D9):POKEF(D9)+54272,1
  61. 230 FORT=15TO5STEP-1:POKE54296,T:POKE54296,10:NEXT:P(J)=P(J)+1
  62. 232 GOSUB290:GOTO215
  63. 235 GOSUB245:NEXT:GOTO210
  64. 240 NEXTJ:GOTO210
  65. 245 FORI=1TO4:FORK=1TO8
  66. 250 IFPEEK(F(I)+B(K))=127ORPEEK(F(I)+B(K))=255THENI=10:K=10
  67. 255 NEXTK,I:IFI>9THENRETURN
  68. 265 SYSZ,22,0:PRINT"GAME OVER..THE SCORES TELLS WINNER.
  69. 270 [153]"PLAY AGAIN   Y/N                      CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  70. 275 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]275
  71. 280 [139]G$[178]"Y"[167]145
  72. 285 [142]
  73. 290 [158]Z,9[170]3[172]J,32:[153]P(J):[142]
  74. 295 [153]"LOADVERIFYORTAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN^ GAME"W:[129]J[178]1[164]10
  75. 300 [153]"(null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)SPC((null)":[139]J[178]10[167]310
  76. 305 [153]"-TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN<"
  77. 310 [130]:[153]"/TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TANEXP";
  78. 315 [129]J[178]1[164]5:[153]"DEFSINSINSINSINSINSINSINSINON"
  79. 320 [153]"CONTSINSINSINSINSINSINSIN"
  80. 325 [153]"DEFSINSINSINSINSINSINSINON"
  81. 330 [153]"CONTSINSINSINSINSINSINSINSIN":[130]:[129]J[178]1[164]4
  82. 335 X[178](1064)[170][181]([187](1)[172]800):[139][194](X)[179][177]127[175][194](X)[179][177]255[167]335
  83. 340 F(J)[178]X:[151]X,G(J):[151]X[170]54272,7:[130]:[153]""[163]32);
  84. 345 [153]"   NCMDCMDCMDCMDNW DEF(null) NECMDCMDCMDCMDCMDDEF(null)(null)(null)CMDCMDCMDCMDCMDWDEFTANTAN(null)TANTANE";
  85. 350 [153]"DEFCMDCMDCMDCMDCMD(null)(null)(null)CMDCMDCMDCMDCMDSW DEF(null) SECMDCMDCMDCMDSPOKE":[142]
  86. 355 [153][163]32)"       CMDCMDCMDCMDCMDCMDCMDSCORES:CONT":[129]J[178]1[164]N
  87. 360 [158]Z,8[170]3[172]J,32:[153][163]32)PL$(J):[141]290:[130]:[142]
  88. 365 C[178]2:[141] 595:[153]"POKE (null)ELL YA' SEE THERE'S THESE STR$ROIDS WHO"
  89. 370 [153]" HUNT FOR MINERALS ON PLANET (null)ERCURY..."
  90. 375 [153]" ATNW COME ON! (null)HIS IS JUST A WIMPY GAME"
  91. 380 [153]" PLAYED ON A GRID WHERE YOU TRY TO SCOOT"
  92. 385 [153]" SOME CHARACTERS (HERE-IN-AFTER CALLED"
  93. 390 [153]"'SCOOTERS') ACROSS THE BOARD, ERASING"
  94. 395 [153]" OTHER CHARACTERS AS YOU GO."
  95. 400 [153]" (null)OUR SCOOTERS ARE # $ % *POKE. (null)HE BOARD"
  96. 405 [153]" CHARACTERS ARE DEFSINWAIT POKEAND SYSSIN POKEAND THE BOARD"
  97. 410 [153]" LOOKS LIKE THIS....":[141]105:[141]130
  98. 415 [153]"FOR    ORTAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN"
  99. 420 [153]"    (null)DEFSINWAITFOR(null)SYSSINFOR(null)DEFSINWAITFOR(null)SYSSINFOR(null)DEFSINWAITFOR(null)SYSSINFOR(null)DEFSINWAITFOR(null)SYSSINFOR(null)DEFSINWAITFOR(null)SYSSINFOR(null)"
  100. 425 [153]"    -TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN     *DEFVAL
  101. 430 PRINT"    [221][158][191][129][221][150][191][146][129][221]*[129][221][150][191][146][129][221][158][191][129][221][150][191][146][129][221][158][191][129][221][150][191][146][129][221][158][191][129][221][150][191][146][129][221]"
  102. 435 PRINT"    [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192]"
  103. 440 PRINT"[208]RESS [210][197][212][213][210][206] TO SEE WHAT HAPPENS..."
  104. 445 GETG$:IFG$<>CHR$(13)THEN 445
  105. 450 PRINT"":FORT=9TO23STEP2:PRINTTAB(T)"*";:FORD=1TO100:NEXT:PRINT"[157] ";:NEXT:PRINT
  106. 455 PRINT"[151][193]IN'T THAT SIMPLE!!  [197]ACH PLAYER"
  107. 460 PRINT"(UP TO FOUR PLAYERS) MAY, IN TURN,
  108. 465 [153]"MOVE A SCOOTER TO COLLECT THE DEFSINWAIT SYSSINPOKE."
  109. 470 [153]"(null)OU GET ONE POINT FOR EACH SIN AND"
  110. 475 [153]"THE PLAYER WITH THE MOST POINTS WINS.":[141]105:[141]130
  111. 480 [153]"POKE(null)COOTERS GO NORTH,SOUTH,EAST,WEST,OR"
  112. 485 [153]"DIAGONALLY, BUT ONLY IN A STRAIGHT LINE"
  113. 490 [153]"AND ONLY ONTO SQUARES WITH DEFSINWAIT SYSSINPOKE."
  114. 495 [153]"ATNNY PLAYER MAY MOVE ANY SCOOTER."
  115. 500 [153]"(null)HE GAME ENDS WHEN ALL SCOOTERS ERASE"
  116. 505 [153]"ALL SIN OR WHEN NO MOVES ARE POSSIBLE."
  117. 510 [153]"(null)HE PLAYS ARE ENTERED LIKE THIS %(null)VAL"
  118. 515 [153]"(null)HAT MEANS MOVE % (null)(null)(null)(null)LEFT$VALATN(null)(null)."
  119. 520 [153]"          LEFT$APPY (null)COOTERING!":[141]105:[137]50
  120. 525 [158]Z,22,0:[153]"CONT"PL$(J);", POKETYPE A SCOOTER'S SYMBOL      "
  121. 530 [153]"         AND A DIRECTION        CMDCMDCMDCMDCMDCMDCMDCMD";:[141] 595
  122. 535 [151]646,150:[151]198,1:[133]"POKE";A$:[139][195](A$)[179]2[167] 525
  123. 540 A[178][198]([200](A$,1)):D9[178]0:[129]K[178]1[164]4:[139]A[178]G(K)[167]D9[178]K
  124. 545 [130]K:[139]D9[178]0[167] 525
  125. 550 A$[178][201](A$,[195](A$)[171]1):E[178]0:[129]K[178]1[164]8:[139]A$[178]E$(K)[167]E[178]K
  126. 555 [130]K:[139]E[178]0[167] 525
  127. 560 B[178]B(E):[139][194](F(D9)[170]B)[178]127[176][194](F(D9)[170]B)[178]255[167][142]
  128. 570 [158]Z,22,0:[153]"SORRY, ";PL$(J);", BUT ";[199](G(D9));" CAN'T GO  "
  129. 575 [153]"THAT WAY. TRY ANOTHER MOVE:     CMDCMDCMDCMDCMD";:[137] 535
  130. 580 [153]"      WAIT(null)   WAIT(null)   WAIT(null)   WAIT(null) (null)  WAIT(null)   WAIT(null)   WAIT(null)   WAIT(null)"
  131. 585 [153]"SYS    (null) (null)WAIT   WAIT    WAITDEFTHEN SYS  WAITDEFTHEN  SYS  WAIT    WAITDEFTAN SYS  WAITDEFSQR SYS(null) (null)WAIT"
  132. 590 [153]"    (null)  WAIT   WAITSQR   WAITSQR   WAITSQR    WAIT    WAITSQR   WAIT(null) (null)  WAIT":[142]
  133. 595 S[178]54272:[151]S[170]24,15:[129]T[178]1[164]C
  134. 600 [151]S[170]5,1:[151]S[170]6,248:[151]S[170]1,25:[151]S,244:[151]S[170]4,17
  135. 605 [129]D[178]1[164]130:[130]:[151]S[170]4,16:[130]:[129]T[178]S[164]S[170]23:[151]T,0:[130]:[142]
  136.