home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(05-1985).d64 / charlemagne_64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  140 lines
  1. 10 POKE53281,0:PRINT"[155]":C=54272:SQ=1912
  2. 20 MU=54272:FORN=MUTOMU+24:POKEN,0:NEXT:POKEMU+24,15:POKEMU+5,129:POKEMU+6,129
  3. 30 POKEMU+12,129:POKEMU+13,129:POKEMU+4,65:POKEMU+2,200:POKEMU+11,33
  4. 40 PRINTCHR$(8):POKE53280,0:GOSUB820:REM TITLES
  5. 50 PRINT"[147]    NUMBER OF PLAYERS (1-6)";:FORZ=1TO3:POKEMU+8,30:GOSUB1060:NEXT
  6. 60 INPUTNP$:NP=VAL(NP$):IFNP<1ORNP>6THEN50
  7. 70 DIML$(19):  REM L$ DIM FOR LENGTH OF LONGEST WORD;S$ - NUMBER OF WORDS
  8. 80 DIM DI$(9,6),WO$(80),S$(30):FORN=1TO9:FORR=1TO6:READA$:DI$(N,R)=A$:NEXT:NEXT
  9. 90 PL=1:FORN=1TO30:READA$:S$(N)=A$:NEXT:A$=""
  10. 100 FOR JI=1 TO 6:HC(JI)=1.41:NEXT:REM HANDICAP SCORE
  11. 110 ER$="                                               "
  12. 120 FORR=1TONP:Q=1
  13. 130 FORZ=1TO3:POKEMU+8,30:POKEMU+1,15:GOSUB1060:NEXT
  14. 140 PRINT"          HIT '_' TO QUIT"
  15. 150 PRINT""SPC(14)"PLAYER"PL:PRINT"  DO YOU WANT TO USE D[146]ICE OR W[146]ORDS";
  16. 160 INPUTQ$:Q$=LEFT$(Q$,1):IFQ$="D"THENL=9:GOSUB640:
  17. 170 IFQ$="W"THEN GOSUB780
  18. 180 IFQ$<>"W"ANDQ$<>"D"ANDQ$<>"_"THENPRINT"[145][145][145][145][145][145]":GOTO150
  19. 190 IFQ$="_"THENGOTO480
  20. 200 PRINT" TIME:  [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]"
  21. 210 PRINT"  ";:FORN=1TOL:PRINTL$(N)" ";:NEXT:PRINT
  22. 220 POKE161,0:PRINT"";
  23. 230 K=PEEK(161)
  24. 240 POKESQ+K,160:POKESQ+K+C,1:IF K>23 THEN POKE 53280,2
  25. 250 GETL$:GOSUB1210:IFL$=CHR$(13)THENGOSUB400:L$="":GOTO300
  26. 260 IFL$=CHR$(20)THENIFLEN(A$)>0THENA$=LEFT$(A$,LEN(A$)-1):IFLEN(A$)=0THENA$=""
  27. 270 POKE53280,0
  28. 280 IFL$=CHR$(19)THENL$=""
  29. 290 PRINTL$;:GOSUB1160:IFL$<>""THENPOKEMU+1,10:FORN=1TO10:NEXT:GOSUB1080
  30. 295 IF L$=CHR$(20) THEN 310
  31. 300 A$=A$+L$
  32. 310 IFK<>27THEN230
  33. 320 FORZ=1TO2:POKEMU+1,80:POKEMU+8,45:GOSUB1070:NEXT
  34. 330 PRINT"  ";ER$
  35. 340 POKE 198,0:PRINT"   ANY CHALLENGES (Y/N)?          "
  36. 350 GETC$:IFC$<>"Y"ANDC$<>"N"THEN350
  37. 360 IFC$="N"THENGOSUB440
  38. 370 IFC$="Y"THENGOTO540
  39. 380 PL=PL+1:IFPL>NPTHENPL=1
  40. 390 NEXTR:GOTO120
  41. 400 WO$(Q)=A$:Q=Q+1:A$=""
  42. 410 PRINT " ";
  43. 420 FORR=12TO30:POKEMU+1,R:POKEMU+8,R*2:NEXT:GOSUB1080
  44. 430 RETURN
  45. 440 REM SCORE DISPLAY
  46. 450 FORN=1TOQ:J=LEN(WO$(N)):IF LEN(WO$(N))=0 THEN470
  47. 460 SC(PL)=SC(PL)+INT(HC(PL)^J)
  48. 470 NEXT:FORN=1TOQ:WO$(N)="":NEXT
  49. 480 PRINT"[147]         WORD SEARCH SCORES:"
  50. 490 FORR=1TONP
  51. 500 PRINT"      PLAYER"R"  "SC(R)
  52. 510 NEXT:IFQ$="_"THENPRINT"     THAT'S ALL, FOLKS![144]":END
  53. 520 RETURN
  54. 530 FORN=1TO3000:NEXT:RETURN
  55. 540 REM CHALLENGE
  56. 550 PRINT"   WHICH WORD            [157][157][157][157][157][157][157][157][157][157][157]";
  57. 560 INPUTCH$
  58. 570 PRINT"[145]IS CHALLENGE CORRECT (Y/N)?"
  59. 575 GET R$:IF R$="" THEN 575
  60. 578 Y$=R$
  61. 580 IF Y$<>"Y"ANDY$<>"N" THEN570
  62. 590 IFY$="N"THENPRINT"[145]                                     ":GOTO340
  63. 600 FORQQ=75TO0STEP-2:POKEMU+1,QQ:POKEMU+8,QQ:NEXT:GOSUB1080
  64. 610 FORN=1TOQ:IFCH$=WO$(N)THENWO$(N)="":
  65. 620 NEXT:PRINT"[145]                                   ":GOTO340
  66. 630 END
  67. 640 PRINT"[147]"SPC(14)"PLAYER"PL
  68. 650 PRINT"  YOUR DICE ROLL:
  69. 660 [153]"    ";:[129]N[178]1[164]9:L$(N)[178]DI$(N,[187](.)[172]6[170]1)
  70. 670 [130]:LD[178]9
  71. 680 [141]690:[142]
  72. 690 [129] C1[178]1 [164] 9:[139] L$(C1)[178]"Q" [167] [141]710
  73. 700 [130]:[142]
  74. 710 [129] C2[178]1 [164] 9:[139] L$(C2)[178]"U" [167] [142]
  75. 720 [130]
  76. 730 [139] C1[179]3 [167] C3[178]C1[170]2:[137]750
  77. 740 C3[178]C1[171]2
  78. 750 L$(C3)[178]"U":[142]
  79. 760 [161]R$:[139]R$[178]"" [167]760
  80. 770 [142]
  81. 780 [153]"LOAD"[166]14)"PLAYER"PL:A[178][187](.)[172]30[170]1
  82. 790 [153]"  YOUR WORD IS:
  83. 800 PRINT"    ";:FORN=1TOLEN(S$(A)):L$(N)=MID$(S$(A),N,1):NEXT
  84. 810 L=LEN(S$(A)):LD=L:RETURN
  85. 820 PRINT"[147] CHARLEMAGNE'S[160]SWORD":POKEMU+1,15:POKEMU+8,30
  86. 830 GOSUB1060:POKEMU+1,22:POKEMU+8,25:GOSUB1060:POKEMU+1,8:POKEMU+8,16
  87. 840 GOSUB1060
  88. 850 POKEMU+1,15:POKEMU+8,27:GOSUB1060:POKEMU+1,15:POKEMU+8,30:GOSUB1070
  89. 860 FORQ=180TO63STEP-INT(RND(.)*8+2):POKEMU+1,Q::NEXT:GOSUB1060
  90. 870 T$=" WORD SEARCH "
  91. 880 PRINT"                  OR":GOSUB1090:PRINT:PRINT"            ";
  92. 890 FORR=1TOLEN(T$):T2$=MID$(T$,R,1)
  93. 900 IFASC(T2$)>64THENPOKE1636+R,ASC(T2$)-64:POKE1636+R+54272,1:GOSUB1100:NEXT
  94. 910 IFASC(T2$)<65THENPOKE1636+R,ASC(T2$):POKE1636+R+54272,1:GOSUB1100:NEXT
  95. 920 GOSUB1060
  96. 930 GOSUB1090:PRINT"[147]        WORD SEARCH INSTRUCTIONS "
  97. 940 PRINT"   MAKE AS MANY WORDS AS POSSIBLE FROM
  98. 950 [153]"   THE LETTERS SHOWN AT THE TOP OF THE
  99. 960 PRINT"   SCREEN. SELECT 'DICE' (RANDOM
  100. 970 [153]"   LETTERS) OR 'WORDS' (FROM THE
  101. 980 PRINT"   COMPUTER'S VOCABULARY).
  102. 990 [153]"   ANY WORD CAN BE CHALLENGED BY AN
  103. 1000 PRINT"   OPPONENT AFTER THE PLAYER HAS
  104. 1010 [153]"   COMPLETED HIS TURN. SCORING IS BASED
  105. 1020 PRINT"   ON THE NUMBER OF LETTERS IN EACH
  106. 1030 [153]"   WORD. LONGER WORDS SCORE MORE POINTS.
  107. 1040 PRINT"          HIT SPACE TO CONTINUE
  108. 1050 [151]198,0:[146]197,33:[161]ZZ$:[142]
  109. 1060 [129]N[178]1[164]500:[130]:[141]1080:[142]
  110. 1070 [129]N[178]1[164]1000:[130]:[141]1080:[142]
  111. 1080 [151]MU[170]1,0:[151]MU[170]8,0:[142]
  112. 1090 [129]N[178]1[164]1500:[130]:[142]
  113. 1100 [129]Q[178]1194[164]1212
  114. 1110 [139][194](Q)[178][198](T2$)[171]64[167][151]Q,[194](Q)[170]128:[151]MU[170]1,[198](T2$)
  115. 1120 [139][194](Q)[178][198](T2$)[167][151]Q,[194](Q)[170]128:[151]MU[170]1,[198](T2$)
  116. 1130 [130]
  117. 1140 [129]N[178]1[164]200:[130]
  118. 1150 [153]" CHARLEMAGNE'S SWORD":[142]
  119. 1160 [143] CHECK FOR CORRECT LETTERS
  120. 1170 [139]L$[178][199](20)[167][142]
  121. 1180 [129]XJ[178]1 [164] LD:[139] L$[178]L$(XJ) [167]1200
  122. 1190 [130]:[139] L$[179][177]"" [167] [153]"CMD CMD";:L$[178]""
  123. 1200 [142]
  124. 1210 [139] L$[178]""[167] L$[178]"":[142]
  125. 1220 [139] L$[178]"ON"[167] L$[178]"":[142]
  126. 1230 [139] L$[178]"CMD"[167] L$[178]"":[142]
  127. 1240 [139] L$[178]""[167] L$[178]"":[142]
  128. 1250 [142]
  129. 1260 [131] A,E,I,O,U,E,L,R,H,Q,T,D
  130. 1270 [131] W,Y,P,S,F,G,H,J,K,Z,X,C
  131. 1280 [131] V,B,N,M,L,T,R,N,P,E,S,D
  132. 1290 [131] A,E,I,O,U,Y
  133. 1300 [131] R,T,N,F,A,L,E,I,P,H,D,S
  134. 1310 [131] ELEPHANT,CONSTRUCTION,VIABILITY,TURNCOAT,VEGETABLE,LIGHTPOST
  135. 1320 [131] MINERAL,WALNETTO,ROOSEVELT,COMPOSITION,DECLARATION,INDEPENDENCE
  136. 1330 [131] SPECIFIC,UNDETERMINED,LAUGHABLE,VACILLATE,STALACTITE,FACETIOUSLY
  137. 1340 [131] CIVILIZATION,BARBARIANS,CARNIVORE,STRANGLED,COLLECTION,PHILHARMONIC
  138. 1350 [131] CONGEALED,LIQUEFIED,TRANSLUCENT,UNSCRUPULOUS,TERPSICHORE,PREHISTORIC
  139. 1360 [143] 30 WORDS
  140.