home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / NEW-ZEALAND (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.0 KB  |  205 lines
  1. 10 REM ** HANGABOUT  NEW ZEALAND **
  2. 15 REM (C)COPYRIGHT A RUSSEL WILLS 1981
  3. 20 REM 70 CAMPHILL RD, BROUGHTY FERRY,
  4. 25 REM DUNDEE, TAYSIDE.  DD52LX
  5. 30 REM 1 JUNE 1981
  6. 35 NC=7:POKE59468,12:GOTO55
  7. 40 PRINT"[147]";:FORI=1TO39:PRINTC$;:NEXTI
  8. 45 FORI=1TO22:PRINT"[157]"C$;:NEXTI:PRINT"[157]";:FORI=1TO38:PRINT"[157]"C$"[157]";:NEXTI
  9. 50 PRINTC$:FORI=1TO23:PRINT"[145]"C$"[157]";:NEXTI:PRINT"[146]":RETURN
  10. 55 S$="TDICMR?":C$="#":FORI=1TONC:C(I)=0:S$(I)=MID$(S$,I,1):NEXTI
  11. 60 CN(1)=28:CN(2)=12:CN(3)=10:CN(4)=21:CN(5)=14:CN(6)=9:CN(7)=10
  12. 65 TW=0:FORI=1TONC:TW=TW+CN(I):NEXTI
  13. 70 DIMA(120):FORI=1TOTW:A(I)=0:NEXTI
  14. 75 FORI=1TOTW:A(I)=0:NEXTI
  15. 80 GOSUB40:RESTORE:READH$:PRINT""TAB(13)"H A N G M A N
  16. 85 [153][163]13)" * * * * * *
  17. 90 PRINTTAB(13)"ON PLACES IN"
  18. 95 TP=(40-LEN(H$))/2:PRINTTAB(TP)""H$
  19. 100 PRINTTAB(18)"B Y":PRINTTAB(14)"RUSSEL WILLS
  20. 105 [153]"PRESS  C  TO CONTINUE";
  21. 110 [161]G$:[139]G$[179][177]"C"[167]110
  22. 115 [129] I[178]1[164]NC:[135]T$(I):[130]I
  23. 120 [153]"LOADWHAT KIND OF PLACE DO YOU WANT?"
  24. 125 [140]
  25. 130 [153]"FOR :-ON":[129]I[178]1[164]NC:[153]
  26. 135 [153]"     "T$(I)[163]29)"TYPE "S$(I);:[130]I
  27. 140 [161]G$:[139]G$[178]""[167]140
  28. 145 Q[178]0:[129]I[178]1[164]NC
  29. 150 [139]G$[178]S$(I)[167][153]"  ";G$:Q[178]I:I[178]NC
  30. 155 [130]I
  31. 160 [139]Q[178]0[167]140
  32. 165 FW[178]0:[129]I[178]1[164]NC
  33. 170 [139]C(I)[178]CN(I)[175]Q[178]I[167]L(I)[178]1:FW[178]1:I[178]NC
  34. 175 [130]I
  35. 180 LW[178]0:[129]I[178]1[164]NC:LW[178]LW[170]L(I):[130]I
  36. 185 [139]L(Q)[178]0[167]200
  37. 190 [153]" ** THERE IS NO ":[153]""T$(Q)" LEFT **
  38. 195 FORI=1TO2000:NEXTI
  39. 200 IFLW=NCTHENPRINT" ** YOU HAVE GUESSED ALL MY PLACES **":GOTO970
  40. 205 IFFW=1THEN120
  41. 210 IFL(Q)=1THEN120
  42. 215 X=0:RESTORE:IFQ=1THEN225
  43. 220 FORI=1TOQ-1:X=X+CN(I):NEXTI
  44. 225 Y=INT(RND(1)*CN(Q)+1)
  45. 230 IFA(X+Y)=1THEN225
  46. 235 A(X+Y)=1:C(Q)=C(Q)+1:J=X+Y+NC
  47. 240 FORI=1TOJ:READH$:NEXTI
  48. 245 READH$:L=LEN(H$):A$=""
  49. 250 X$=MID$(H$,L-1,1):Y$=RIGHT$(H$,1):H$=LEFT$(H$,L-2):L=L-2:L1=L:FORI=1TOL
  50. 255 IFMID$(H$,I,1)="-"THENA$=A$+"-":GOTO270
  51. 260 IFMID$(H$,I,1)=" "THENA$=A$+" ":L1=L1-1:GOTO270
  52. 265 A$=A$+"*"
  53. 270 NEXTI:N=0:GOSUB615
  54. 275 C=1:G=0:M=0:W=1:B$=""
  55. 280 C$="[214]":GOSUB40
  56. 285 PRINT"[146]":PRINTTAB(3)"H A N G M A N      ";:PRINTT$(Q)
  57. 290 PRINT"MY "T$(Q)" HAS"
  58. 295 PRINT""L1"LETTERS"
  59. 300 PRINT"PRESS  @  TO SEE MAP AGAIN";:GOSUB490
  60. 305 FORJ=1TO5:PRINT"";:PRINT"                  ";
  61. 310 FORI=1TO15:NEXTI:PRINT"";A$:FORI=1TO15:NEXTI,J
  62. 315 IFC<>0THEN360
  63. 320 IFW<2THENPRINT"EXCELLENT!         ":GOTO340
  64. 325 IFW<5THENPRINT"WELL DONE!         ":GOTO340
  65. 330 IFW>8THENPRINT"VERY CLOSE! BUT    ":GOTO340
  66. 335 PRINT"GOOD!             "
  67. 340 PRINT"                ":PRINT"YOU GOT IT WITH   "
  68. 345 PRINT""W-1"MISTAKE";
  69. 350 IFW-1<>1THENPRINT"S";
  70. 355 PRINT:GOTO450
  71. 360 PRINT"":FORI=1TO5
  72. 365 PRINT"               [145]"
  73. 370 FORJ=1TO15:NEXTJ
  74. 375 PRINT"GUESS A LETTER[145]"
  75. 380 FORJ=1TO15:NEXTJ,I
  76. 385 GETL$:IFL$=""THEN385
  77. 390 IFL$="@"THENN=0:GOSUB615:GOTO280
  78. 395 G=G+1:T=0:C=0:FOR I=1TOL
  79. 400 IFMID$(H$,I,1)=L$THEN415
  80. 405 IFMID$(A$,I,1)="*"THENC=C+1
  81. 410 B$=B$+MID$(A$,I,1):T=T+1:GOTO420
  82. 415 B$=B$+L$
  83. 420 NEXTI
  84. 425 IFT=LTHENW=W+1
  85. 430 GOSUB490
  86. 435 IFW<10THEN480
  87. 440 PRINT"[145][145] I AM SORRY BUT":PRINT"YOU ARE DEAD!"
  88. 445 PRINT"THE "T$(Q)" WAS:":PRINT""H$
  89. 450 PRINT"":FORI=1TO23:PRINT"";:NEXTI
  90. 455 PRINT"PRESS SPACE[146]-NEXT PLACE  OR   N[146]-NEW KIND";
  91. 460 GETR$:IFR$=""THEN460
  92. 465 IFR$=" "THENN=1:GOSUB615:GOTO165
  93. 470 IFR$<>"N"THEN460
  94. 475 N=1:GOSUB615:GOTO120
  95. 480 A$=B$:B$="":GOTO305
  96. 485 C$="[214]":GOSUB40
  97. 490 PRINT"[146]":PRINT"";
  98. 495 IFW=1THEN610
  99. 500 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  100. 505 IFW<2THEN610
  101. 510 PRINT"[182][160][160][205][157][157][157][157][145][182][160][205][145][157][157][157][182][205][145][157][157][182][145][157]";
  102. 515 IFW<3THEN610
  103. 520 PRINT"[182][145][157][182][145][157][182][145][157][182][145][157][182][145][157][182][145][157][182][145][157][182][145][157][182][145][157]";
  104. 525 IFW<4THEN610
  105. 530 PRINT"[185][185][185][185][157][206][157][157][206][157][157][206][145][145][145][185][185][185][185][185][185][157]";
  106. 535 IFW<5THEN610
  107. 540 PRINT"[221][157][157][157][213][192][177][192][201][157][157][157][157][157][157]";
  108. 545 IFW<>10THENPRINT"[213][179][215][204][215][171][201][157][157][157][157][157][157][157][202][179] = [171][203]";:GOTO555
  109. 550 PRINT"[213][179][209][204][209][171][201][157][157][157][157][157][157][157][202][179][213][192][201][171][203]";
  110. 555 PRINT"[157][157][157][157][157][157][202][192][178][192][203][157][157][157]";
  111. 560 IFW<6THEN610
  112. 565 PRINT"[219][157][221][157][221][157]";
  113. 570 IFW<7THEN610
  114. 575 PRINT"[157][145][145][145][157][192][192]";
  115. 580 IFW<8THEN610
  116. 585 PRINT"[192][192][157][157][157]";
  117. 590 IFW<9THEN610
  118. 595 PRINT"[157][206][163][157][157][157][206][145]";
  119. 600 IFW<10THEN610
  120. 605 PRINT"[205][205][145][145]"
  121. 610 PRINT:RETURN
  122. 615 PRINT"[147]           [223][187]
  123. 620 [153]"            LOG(null)WAIT    N E W   Z E A L A N D
  124. 625 PRINT"            [223] [146][161]
  125. 630 [153]"             (null)RNDWAITRNDCOS
  126. 635 PRINT"              [187][188][181][146]
  127. 640 [153]"        NORTH LOGRIGHT$COSWAIT. .           250 MLS
  128. 645 PRINT"               [202][201][188][146][187] [190][146][161]        [171][192][192][192][192][192][192][192][179]
  129. 650 [153]"       ISLAND + MID$RIGHT$LEFT$ (null)WAITINT         400 KMS
  130. 655 PRINT"             [172][190][213][188][190][203][175][146][169]
  131. 660 [153]"             GETSPC(CHR$SPC((null)WAITGET COS
  132. 665 PRINT"    ^      [164]   [161] [220][146][169]
  133. 670 [153]"    N     *LOGWAIT * +NOT*WAITCOS
  134. 675 PRINT"   [192][219][192]    [161][220][146][172][188][146][187][190] [146][190]
  135. 680 [153]"    (null)     INTTOLENSTR$WAIT LOGCOS
  136. 685 PRINT"    [221]    [180][163][166][220][146][169]
  137. 690 [153]"        STEP NOTSTR$LENWAIT
  138. 695 PRINT"       [169][168][220][205][164][146][190]
  139. 700 [153]"      STEP(null)RNDTO(null)NEWWAITCOS
  140. 705 PRINT"    [169][168][220]' [172][146]
  141. 710 [153]"   STEP*SPC(+(null)(null)WAITINT SOUTH
  142. 715 PRINT"  [161][166][180][183][180][165] [146]
  143. 720 [153]"  (null)LOGSGNTHENTHEN LOGWAIT ISLAND
  144. 725 PRINT"  [175][185][165][217][167][146][169]
  145. 730 [153]"    NEW.USR
  146. 735 PRINT"   :[169]             PRESS  C  TO CONTINUE";
  147. 740 DATA N E W    Z E A L A N D
  148. 745 REM CATEGORIES
  149. 750 DATA TOWN OR CITY,DISTRICT,ISLAND,COAST,MOUNTAIN,RIVER,INTEREST
  150. 755 REM TOWNS
  151. 760 DATAAUCKLANDNE,CHRISTCHURCHJQ,WELLINGTONNM,DUNEDINGV
  152. 765 DATAHAMILTONOG,GISBORNESI,NAPIERQJ,WANGANUINK,TIMARUHS,INVERCARGILLDW
  153. 770 DATANELSONKM,NEW PLYMOUTHLI,PALMERSTONOL,PORT CHALMERSGV,WESTPORTHO
  154. 775 DATAGREYMOUTHHP,HASTINGSQJ,ROTORUAPH,LYTTLETONJR,BLUFFDW,TAURANGAPG
  155. 780 DATAWHANGAREIMC,WHAKATANEQH,BLENHEIMLN,DEVONPORTNE,MASTERTONOM
  156. 785 DATAOAMARUGU,ASHBURTONIR
  157. 790 REM DISTRICTS
  158. 795 DATASOUTHLANDCV,OTAGOET,WESTLANDFQ,CANTERBURYHR,NELSONIN,MARLBOROUGHLN
  159. 800 DATANORTH AUCKLANDLC,SOUTH AUCKLANDOG,GISBORNESH,HAWKES BAYQJ
  160. 805 DATATARANAKIMJ,WELLINGTONOK
  161. 810 REM ISLANDS
  162. 815 DATANORTHOI,SOUTHGR,STEWARTCY,RUAPUKEDX,DURVILLELL,MAYORPF,WHITERF
  163. 820 DATAGREAT BARRIEROD,RESOLUTIONAV,SECRETARYAU
  164. 825 REM COAST
  165. 830 DATAPEGASUS BAYKQ,CANTERBURY BIGHTIT,FOVEAUX STRAITDX,CAPE PROVIDENCEAW
  166. 835 DATAMILFORD SOUNDBT,CAPE FOULWINDHO,CAPE FAREWELLJK,TASMAN BAYKM
  167. 840 DATACOOK STRAITMN,PALLISER BAYNN,CAPE PALLISERNN,HAWKE BAYRJ,EAST CAPETG
  168. 845 DATAMAHIA PENINSULASJ,BAY OF PLENTYRG,HAURAKI GULFND,NORTH CAPEJA
  169. 850 DATACAPE EGMONTLJ,TASMAN SEAEI,PACIFIC OCEANKW,GOLDEN BAYJL
  170. 855 REM MOUNTAINS
  171. 860 DATATASMANFR,COOKFR,ASPIRINGDS,EYREDU,RAUKUMARASH,NEEDLE PEAKAW,SPENSERJO
  172. 865 DATATAPUAENUKUKO,EGMONTMJ,TARARUAOL,RUAPEHUOJ,KAIMANAWAPJ,NGAURUHOEOJ
  173. 870 DATAEDENNE
  174. 875 REM RIVERS
  175. 880 DATAWAIRAUKN,BULLERJN,WAIKATOOG,WANGANUINJ,WAIAUJP,RAKAIAIR,WAITAKIGT
  176. 885 DATACLUTHAFU,MATAURADV
  177. 890 REM INTEREST
  178. 895 DATAHYDRO POWERFU,LAKE TAUPOOI,GEOTHERMAL POWERPI,ALUMINIUM SMELTINGDW
  179. 900 DATASTEEL MILLNE,ARTHURS PASSHQ,FRANZ JOSEF GLACIERFR
  180. 905 DATALAKE WANAKAET,LAKE TEKAPOGR,LAKE TE ANAUCU
  181. 910 ZZ=30105+ASC(Y$)*40+ASC(X$)
  182. 915 ZC=PEEK(ZZ):PS=20
  183. 920 POKEZZ,42:PRINT""
  184. 925 PRINTTAB(PS)T$(Q)
  185. 930 IFN=1THENPRINTTAB(PS-2)""H$
  186. 935 FORTZ=1TO99:NEXTTZ:POKEZZ,ZC
  187. 940 PRINT""TAB(PS);
  188. 945 FORJ=1TOLEN(T$(Q)):PRINT" ";:NEXTJ:PRINT
  189. 950 IFN=1THENPRINTTAB(PS-2)"";:FORJ=1TOLEN(H$):PRINT" ";:NEXTJ:PRINT
  190. 955 FORT=1TO99:NEXTT
  191. 960 GETC$:IFC$<>"C"THEN920
  192. 965 RETURN
  193. 970 END
  194. 975 N=1
  195. 980 NC=7
  196. 985 FOR I=1TONC:READT$(I):NEXTI
  197. 990 INPUT"X=";X
  198. 995 FORI=1TOX:READH$:NEXTI
  199. 1000 READH$:L=LEN(H$):A$=""
  200. 1005 X=X+1
  201. 1010 X$=MID$(H$,L-1,1):Y$=RIGHT$(H$,1):H$=LEFT$(H$,L-2):L=L-2:L1=L
  202. 1015 GOSUB615
  203. 1020 PRINT"X="X
  204. 1025 GOTO1000
  205.