home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / c128 / c137.d64 / alphabet (.txt) next >
Commodore BASIC  |  1995-08-09  |  4KB  |  134 lines
  1. 100 REM ALPHABET SHUFFLE
  2. 105 REM BY CHARLES PHOENIX (01/89)
  3. 110 REM
  4. 112 GOTO450:REM GOTO SETUP
  5. 114 REM
  6. 135 PRINTLEFT$(DN$,23);:REM PRINT PROMPT AND WAIT FOR FIRE
  7. 140 PRINT"     PRESS FIRE BUTTON TO CONTINUE."
  8. 145 IF(PEEK(JY)AND16)/16THEN145
  9. 150 RETURN
  10. 155 REM
  11. 170 PRINTLEFT$(DN$,VP+TX*4-4):REM PRINT LETTER AT (X,Y)
  12. 175 IFA$=""ORA$=" "THENPOKE646,0:GOTO185
  13. 180 POKE646,2+(ASC(A$)-65)/GN
  14. 185 PRINTSPC(HP+TY*4-3);"   [157][157][157] ";RIGHT$(" "+A$,1);" [157][157][157]   [146]"
  15. 190 RETURN
  16. 195 REM
  17. 210 M=0:TI$="000000":REM *** MAIN LOOP
  18. 215 X=GN:Y=GN
  19. 220 OX=X:OY=Y
  20. 225 REM
  21. 230 PRINT"[158]   MOVES = ";M
  22. 235 PRINT"[158]TIME = ";MID$(TI$,3,2);":";RIGHT$(TI$,2)
  23. 240 REM
  24. 245 IF(PEEK(JY)AND16)/16=0THEN385
  25. 250 REM
  26. 255 JD=NOTPEEK(JY)AND15
  27. 260 IFJD=1ORJD=2THENX=X-(JD=1)+(JD=2):IFX>0ANDX<=GNTHEN280
  28. 265 IFJD=4ORJD=8THENY=Y-(JD=4)+(JD=8):IFY>0ANDY<=GNTHEN280
  29. 270 X=OX:Y=OY:GOTO230
  30. 275 REM
  31. 280 M=M+1:REM INCREASE # OF MOVES
  32. 285 REM
  33. 300 TX=X:TY=Y:A$=" ":GOSUB170:REM SWAP NEW SQUARE WITH OLD SQUARE
  34. 305 TX=OX:TY=OY:A$=PG$(X,Y):GOSUB170
  35. 310 PG$(OX,OY)=PG$(X,Y):PG$(X,Y)=" "
  36. 315 REM
  37. 330 C=GN*GN:REM CHECK FOR WINNER
  38. 335 FORI=1TOGN
  39. 340 : FORJ=1TOGN
  40. 345 :   IFPG$(I,J)=CG$(I,J)THENC=C-1
  41. 350 : NEXT
  42. 355 NEXT:IFCTHEN220
  43. 365 REM
  44. 380 PRINT"[147]CONGRATULATIONS....YOU'VE DONE IT":GOTO390:REM END PRG
  45. 385 PRINT"[147]GIVING UP......TSK, TSK"
  46. 390 PRINT"  THE CURRENT GAME TIME IS....: ";
  47. 395 PRINT"[158]";MID$(TI$,3,2);":";RIGHT$(TI$,2)
  48. 400 PRINT"  THE CURRENT # OF MOVES IS...:[158]";M
  49. 405 REM
  50. 410 FORI=1TO500:NEXT:REM SMALL DELAY
  51. 415 GOSUB135:REM WAIT FOR FIRE BUTTON
  52. 420 GOTO480:REM GOTO SETUP
  53. 425 REM
  54. 445 REM
  55. 450 DIM CG$(5,5),PG$(5,5):REM INITIALIZE
  56. 455 JY=56320:REM FOR JOYSTICK #1 CHANGE 56320 TO 56321
  57. 460 DN$=""
  58. 465 REM
  59. 480 POKE53280,0:POKE53281,0:REM TITLE SCREEN
  60. 485 PRINT"[147]          THE ALPHABET SHUFFLE"
  61. 490 PRINT"[158]         [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  62. 495 [153]"  1) SYSBEGINNER GAME........ 3 BY 3 GRID
  63. 500 PRINT"  2) [158]INTERMEDIATE GAME.... 4 BY 4 GRID
  64. 505 [153]"  3) SYSEXPERT GAME.......... 5 BY 5 GRID
  65. 510 PRINT" MOVE JOYSTICK (UP/DOWN) TO SELECT GAME
  66. 515 [153]"       PRESS FIRE BUTTON TO ENTER
  67. 520 GN=3:GOSUB600:REM SELECT GAME W/JOYSTICK
  68. 525 REM
  69. 540 IF(PEEK(JY)AND16)/16=0THEN650
  70. 545 JD=NOTPEEK(JY)AND15
  71. 550 IFJD<>1ANDJD<>2THEN540
  72. 555 GOSUB580:GOTO540
  73. 575 REM
  74. 580 PRINT"[144]";:GOSUB610
  75. 585 GN=GN+(JD=1)-(JD=2)
  76. 590 IFGN<3THENGN=5
  77. 595 IFGN>5THENGN=3
  78. 600 PRINT"[158]";
  79. 605 REM
  80. 610 PRINTLEFT$(DN$,5+(GN-2)*3);
  81. 615 PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  82. 620 [153]" (null)(null)
  83. 625 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  84. 630 [142]
  85. 635 [143]
  86. 650 [153]"LOAD   INSTRUCTIONS FOR ALPHABET SHUFFLE":[143] INSTRUCTION SCREEN
  87. 655 [153]"SYS  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  88. 660 PRINT"    THE OBJECT OF THIS GAME IS QUITE
  89. 665 [153]"   SIMPLE. JUST REARRANGE THE LETTERS
  90. 670 PRINT"        INTO [158]ALPHABETICAL ORDER.
  91. 675 [153]"             TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  92. 680 PRINT"    WHEN THE GAME IS COMPLETED EACH
  93. 685 [153]"      ROW WILL BE THE SAME COLOR.
  94. 690 PRINT"     TO QUIT PLAYING AND TRY AGAIN
  95. 695 [153]"         PRESS THE FIRE BUTTON
  96. 700 PRINT"[158]       PLEASE WAIT.....SETTING UP
  97. 705 [143]
  98. 720 [129]I[178]1[164]GN:[143] SETUP WINNING GRID
  99. 725 : [129]J[178]1[164]GN
  100. 730 :   CG$(I,J)[178][199](65[170](I[171]1)[172]GN[170](J[171]1))
  101. 735 :   PG$(I,J)[178]" "
  102. 740 : [130]
  103. 745 [130]:CG$(GN,GN)[178]" "
  104. 755 [143]
  105. 770 [129]I[178]65[164]63[170]GN[172]GN:[143] SETUP PLAYING GRID
  106. 775 : X[178][181]([187](1)[172](GN[171]1)[170]1.5)
  107. 780 : Y[178][181]([187](1)[172](GN[171]1)[170]1.5)
  108. 785 : [139]X[172]Y[178]GN[172]GN[167]775
  109. 790 : [139]PG$(X,Y)[179][177]" "[167]775
  110. 795 : PG$(X,Y)[178][199](I)
  111. 800 [130]
  112. 820 [141]135:[143] WAIT FOR FIRE BUTTON
  113. 825 [143]
  114. 830 HP[178]((38[171]GN[172]4)[173]2):VP[178]((26[171]GN[172]4)[173]2)
  115. 840 [143]
  116. 845 [153]"LOADSYS";[200](DN$,VP);:[143] PRINT FINISHED GRID
  117. 850 [153][166]HP);"OR";[201]("TANTANTAN=TANTANTAN=TANTANTAN=TANTANTAN=TANTANTAN^",4[172]GN)
  118. 855 [129]I[178]1[164]GN
  119. 860 : [129]J[178]1[164]3
  120. 865 :   [153][166]HP);"(null)";[201]("   (null)   (null)   (null)   (null)   (null)",4[172]GN)
  121. 870 : [130]
  122. 875 : [153][166]HP);"-";[201]("TANTANTAN(null)TANTANTAN(null)TANTANTAN(null)TANTANTAN(null)TANTANTAN<",4[172]GN)
  123. 880 [130]
  124. 885 [153]"ON";[166]HP);"/";[201]("TANTANTAN>TANTANTAN>TANTANTAN>TANTANTAN>TANTANTANEXP",4[172]GN)
  125. 890 [143]
  126. 905 [129]TX[178]1[164]GN:[143] PRINT GRID LETTERS
  127. 910 : [129]TY[178]1[164]GN
  128. 915 :   A$[178]PG$(TX,TY)
  129. 920 :   [141]170
  130. 925 : [130]
  131. 930 [130]
  132. 935 [143]
  133. 940 [137]210:[143] GOTO MAIN LOOP
  134.