home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / HI-Q (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  121 lines
  1. 100 POKE53280,1:POKE53281,1:POKE53272,21:PRINT"ÿô":REM     C64 MODS 1983
  2. 110 REM*** EDWARD MARCHESCHI
  3. 120 REM*** MAY 4, 1979
  4. 130 DIMB(70),T(9,9)
  5. 140 REM*** ORIGINAL PROGRAM BY
  6. 150 REM*** CHARLES LUND
  7. 160 POKE53272,21:PRINT"HI-Q"
  8. 170 FORI=1TO1000:NEXTI
  9. 180 PRINT"DO YOU WISH INSTRUCTIONS ?";
  10. 190 GETY$:IF""=Y$GOTO190
  11. 200 IFY$="Y"THENGOSUB1430
  12. 210 FORR=1TO9
  13. 220 FORC=1TO9
  14. 230 IF(R-4)*(R-5)*(R-6)=0GOTO270
  15. 240 IF(C-4)*(C-5)*(C-6)=0GOTO270
  16. 250 T(R,C)=-5
  17. 260 GOTO290
  18. 270 IF(R-1)*(C-1)*(R-9)*(C-9)=0GOTO250
  19. 280 T(R,C)=5
  20. 290 NEXTC
  21. 300 NEXTR
  22. 310 T(5,5)=0:GOSUB560
  23. 320 RESTORE
  24. 330 FORW=1TO33
  25. 340 READM
  26. 350 DATA13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41
  27. 360 DATA52,53,58,59,60,67,68,69
  28. 370 DATA42,43,44,47,48,49,50,51
  29. 380 B(M)=-7:NEXTW
  30. 390 B(41)=-3
  31. 400 INPUT"MOVE WHICH PIECE     ¥¥¥¥¥";Z
  32. 410 IF B(Z)=-7 THEN 450
  33. 420 PRINT"ILLEGAL MOVE, TRY AGAIN...":FORA=1TO999:NEXTA
  34. 430 PRINT"                            "
  35. 440 GOTO400
  36. 450 INPUT"TO WHERE     ¥¥¥¥¥";P
  37. 460 IF B(P)=0THEN420
  38. 470 IFB(P)=-7THEN420
  39. 480 IFZ=PTHEN400
  40. 490 IF((Z+P)/2)=INT((Z+P)/2)GOTO510
  41. 500 GOTO420
  42. 510 IF(ABS(Z-P)-2)*(ABS(Z-P)-18)<>0GOTO420
  43. 520 GOSUB740
  44. 530 GOSUB570
  45. 540 GOSUB1000
  46. 550 GOTO400
  47. 560 PRINT"ô"
  48. 570 FORX=1TO9
  49. 580 FORY=1TO9
  50. 590 IF(X-1)*(X-9)*(Y-1)*(Y-9)=0GOTO620
  51. 600 IF(X-4)*(X-5)*(X-6)=0GOTO640
  52. 610 IF(Y-4)*(    
  53. 620 REM
  54. 630 GOTO680
  55. 640 IFT(X,Y)<>5GOTO670
  56. 650 PRINTTAB(Y*3);"╤╤";
  57. 660 GOTO680
  58. 670 PRINTTAB(Y*3);"╫╫";
  59. 680 REM
  60. 690 NEXTY
  61. 700 PRINT
  62. 710 NEXTX
  63. 720 GOSUB1350
  64. 730 RETURN
  65. 740 PRINT""
  66. 750 C=1:FORX=1TO9
  67. 760 FORY=1TO9
  68. 770 IFC<>ZGOTO960
  69. 780 IFC+2<>PGOTO830
  70. 790 IFT(X,Y+1)=0GOTO420
  71. 800 T(X,Y+2)=5
  72. 810 T(X,Y+1)=0:B(C+1)=-3
  73. 820 GOTO940
  74. 830 IFC+18<>PGOTO870
  75. 840 IFT(X+1,Y)=0GOTO420
  76. 850 T(X+2,Y)=5:T(X+1,Y)=0:B(C+9)=-3
  77. 860 GOTO940
  78. 870 IFC-2<>PGOTO910
  79. 880 IFT(X,Y-1)=0GOTO420
  80. 890 T(X,Y-2)=5:T(X,Y-1)=0:B(C-1)=-3
  81. 900 GOTO940
  82. 910 IFC-18<>PGOTO960
  83. 920 IFT(X-1,Y)=0GOTO420
  84. 930 T(X-2,Y)=5:T(X-1,Y)=0:B(C-9)=-3
  85. 940 B(    
  86. 950 T(X,Y)=0:GOTO990
  87. 960 C=C+1
  88. 970 NEXTY
  89. 980 NEXTX
  90. 990 RETURN
  91. 1000 REM
  92. 1010 F=0
  93. 1020 FORR=2TO8
  94. 1030 FORC=2TO8
  95. 1040 IFT(R,C)<>5GOTO1220
  96. 1050 F=F+1
  97. 1060 FORA=R-1TOR+1
  98. 1070 T=0
  99. 1080 FORB=C-1TOC+1
  100. 1090 T=T+T(A,B)
  101. 1100 NEXTB
  102. 1110 IFT<>10THEN1130
  103. 1120 IFT(A,C)<>0GOTO1330
  104. 1130 NEXTA
  105. 1140 FORX=C-1TOC+1
  106. 1150 T=0
  107. 1160 FORY=R-1TOR+1
  108. 1170 T=T+T(Y,X)
  109. 1180 NEXTY
  110. 1190 IFT<>10GOTO1210
  111. 1200 IFT(R,X)<>0GOTO1330
  112. 1210 NEXTX
  113. 1220 NEXTC
  114. 1230 NEXTR
  115. 1240 REM
  116. 1250 PRINT"THE GAME IS OVER."
  117. 1260 PRINT"YOU HAD";F;"PIECES REMAINING."
  118. 1270 IFF<>1GOTO1290
  119. 1280 PRINT"BRAVO! YOU MADE A PERFECT SCORE!"
  120. 1290 PRINT:INPUT"PLAY AGAIN (Y/N)";A$    
  121.