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