pendark.prg ==0801== 5 rem version 5.840722 6 rem overcomes early series cbm rom bug 100 restore:print"(clr)":poke53280,0:poke53281,0 110 print"(lred)";:print:print:print:print" THE($a0)PEN($a0)AND($a0)THE($a0)DARK" 115 print:print" An adventure by Keith Campbell":print:print:print 120 print" from:":print" The Unorthodox Engineers" 125 print" by Colin Kapp" 128 fori=1to4000:next 130 diml$(3,35),e$(35),d$(35),o$(30),p%(30),c%(30),q$(6),dd$(4) 131 dimcp$(4),wt$(12),ws$(10) 140 fori=1to35:readl$(0,i),l$(1,i),l$(2,i),l$(3,i),e$(i),d$(i):next 141 fori=1to30:reado$(i),p%(i),c%(i):next:fori=1to4:readdd$(i),cp$(i):next 170 pl%=83:sc%=0:pn%=1:in%=1:ic%=1 180 w1$="takgetdrolooexasitreawatbuyreqopecutlifrailowpulhitdritypdisunbboo" 181 w2$="modwearempreexcthrunhfirmoucondisinsscaligrepmensavloa" 190 wv$=w1$+w2$:wg$="noreassouwesup dowoutdoohatramworcratubforbacscuengaft" 200 f1$="spanutdricylrincansheletseatorcabgentracraskisuitubpiproclegcomchuc" 204 f2$="oivoudoscarthebralassurup outramscualldoopickeecouplimongarbenfou" 206 f3$="jetarodeschabutpossloheaboxfenclodarveidowscrwristastofor*" 208 f4$="**turvoumessiglilgam" 209 wn$=f1$+f2$+f3$+f4$ 210 wd$="neswudobhrglxyzcia":ec$="2311242527282935" 230 ifh%=5thenprint"The scudder lands" 232 if(h%>1andh%<6)or(h%>11andh%<16)thenh%=h%+1 250 ifh%=16andpn%<>16andpl%<>pn%thenh%=17:sc%=0:pl%=pn%:gosub2900 260 ifh%>16thenp%(14)=val(mid$(ec$,ic%,2)):pc%=p%(14) 270 ifp%(k3%)>998thensc%=0:pl%=pn%:gosub2800 280 ifp%(7)<>35thenc%(7)=2 290 ifh%>19andh%<28thenh%=h%+1:ifh%=24then3500 291 ifh%=26then3510 292 ifh%=28thengosub2960 300 ifk4%>0thenct%=ct%+1:p%(k4%)=pn%:ifpn%=12thenpn%=pl%:goto3150 310 ifct%>1thenct%=0:k4%=0 320 xx%=0:ifc%(14)<-2thenp%(abs(c%(14)))=p%(14):ifpn%=12orpn%=p%(12)thenxx%=1 321 ifxx%=1thenq$(1)="The "+o$(abs(c%(14)))+" is in tow" 330 ifc%(13)<-2thenp%(abs(c%(13)))=p%(13) 340 xx%=0:ifc%(30)>2thenc%(30)=c%(30)+1:ifc%(30)=7thenc%(30)=2:xx%=1 341 ifxx%=1thenq$(1)="You feel a little hung over" 350 xx%=0:ifh%<12andc%(15)<>16andpn%>28thenpn%=pl%:sc%=0:xx%=1 351 ifxx%=1thenprint"You try, but the contra-heat":print"is too numbing" 360 ifpn%<>27andpn%<>28then370 361 ifc%(15)=15thencc%=cc%+pn%-26:goto370 362 ifc%(15)<3thencc%=cc%+pn%-20:goto370 364 cc%=cc%+pn%-24 370 ifcc%>10thenpn%=13:q$(1)="They found you exhausted and suffering" 371 ifcc%>10thenq$(2)="from contra-effects. You feel better now":gosub2970 380 ifpn%<27thencc%=0 390 xx%=0:ifh%<8thenif(pn%=28orpn%=27)andpl%=27thenh%=8:xx%=1 391 ifxx%=1thenq$(4)="There's something wrong with the physics of this place" 392 ifxx%=1thenq$(5)="Observations of temperature and gravity would be useful" 400 ifpn%=28thenifint(rnd(0)*3)=2thengosub2910 410 ifh%=10thenh%=11:p%(25)=16:p%(26)=16 420 ifh%=19andpn%=35thenh%=20:p%(14)=23:ic%=1:gosub2910:goto3490 430 ifpn%=31thene$(30)="yz" 431 ifpn%=35thene$(30)="zy" 440 ifpn%=32thene$(31)="yz" 441 ifpn%=30thene$(31)="zy" 460 ifsc%=0andpl%=pn%then690 461 sc%=0:pl%=pn% 610 print"(clr)":sc%=0 620 print"(lgrn)";:print"OK, you are ":fori=0to3 621 ifl$(i,pn%)<>""thenprintl$(i,pn%) 630 next:ifpn%=2then2990 641 ey%=0:fori=1tolen(e$(pn%)):ex$=mid$(e$(pn%),i,1) 642 ifex$="n"orex$="s"orex$="e"orex$="w"orex$="u"orex$="d"orex$="o"theney%=ey%+1 643 ifey%=1thenprint"(lblu)";:print"There are exits ";:ey%=2 644 ifpos(0)+6>39thenprint 645 ifex$="n"thenprint"north "; 646 ifex$="s"thenprint"south "; 647 ifex$="e"thenprint"east "; 648 ifex$="w"thenprint"west "; 649 ifex$="u"thenprint"up "; 650 ifex$="d"thenprint"down "; 651 ifex$="o"thenprint"out "; 652 ifex$="&"thenprint"and "; 653 next:ifey%>0thenprint 683 ey%=0:fori=1to30:ifp%(i)=pn%theney%=ey%+1:goto685 684 next:goto690 685 ifey%=1thenprint"(lred)";:print"You can see ";:ey%=2 686 ps%=len(o$(i))+pos(0):ifps%<39thenprinto$(i);" ";:next:print:goto690 687 print:goto685 690 print:fori=1to6:ifq$(i)<>""thenprintq$(i) 700 next:print 710 ifp%(13)=pn%andc%(13)<-2thenprint"The ";o$(abs(c%(13)));" is in" 711 ifp%(13)=pn%andc%(13)<-2thenprint"the trailer" 720 pl%=pn%:fori=0to6:q$(i)="":next 721 a$="":a1$="":a2$="":a3$="":a4$="":print"(gry3)";:inputa$:ifa$="look"then461 722 ifa$="n"ora$="s"ora$="e"ora$="w"ora$="u"ora$="d"ora$="o"theny$=a$:goto870 730 ifleft$(a$,6)<>"go cra"then740 731 ifh%=19orpc%<>pn%then3270 732 pc%=pn%:pn%=12:goto230 740 iflen(a$)<3then3070 741 a2$=left$(a$,3) 750 ifa2$="inv"thengoto960 751 ifa2$="wai"thengoto3180 752 ifa2$="qui"thengoto3405 753 ifa2$="hel"thengoto1000 760 j%=0:fori=1tolen(a$):ifmid$(a$,i,1)=" "thenj%=i 770 next:ifj%=0then3190 771 a1$=left$(a$,j%-1):a3$=right$(a$,len(a$)-j%):a4$=left$(a3$,3) 780 ifa1$="go"then860 790 x$=wv$:y$=a2$:gosub2760:ifj%=0thenprint"I don't know how to ";a1$:goto230 791 k1%=(j%-1)/3+1 800 x$=wn$:y$=a4$:gosub2760 810 ifj%=0thenprint"What is a ";a3$;"?":go to 230 820 k2%=1+(j%-1)/3 840 onk1%goto900, 900, 940, 1020, 1020, 1280, 1310, 1430, 1540, 1570 841 on(k1%-10)goto1610, 1640, 1680, 1680, 1770, 1830, 1870, 1970, 1990, 2040 842 on(k1%-20)goto2040, 2060, 2090, 2130, 2150, 2170, 2370, 2430, 1870, 2490 843 on(k1%-30)goto2540, 2560, 2650, 2680, 2700, 2720, 2740, 2740, 4000, 4100 860 x$=wg$:y$=a4$:gosub2760:ifj%=0then3090 861 y$=mid$(wd$,(j%-1)/3+1,1) 870 x$=e$(pn%):gosub2760:ifj%=0then3090 871 ifh%<6then3200 872 ifh%<7then1450 873 pn%=val(mid$(d$(pn%),(j%-1)*2+1,2)):ifpn%=99thenpn%=pc% 880 goto230 900 ifk2%=31then860 :rem it's not take/get 910 ifk2%>30then3070 911 ifp%(k2%)=55then3110 912 ifc%(k2%)=-10andpn%=9then3220 913 ifp%(k2%)<>pn%then3120 914 ifc%(k2%)=-9then3230 915 ifc%(k2%)<-1then3070 916 ifc%(k2%)=-1then3130 920 ifin%>5andk1%<>10then3320 921 in%=in%+1:p%(k2%)=55:goto3100 940 ifk2%>30then3140 941 ifk2%=k3%andp%(k3%)>76then1800 942 ifp%(k2%)<>55then3140 943 ifk2%=15ork2%=16then2150 944 in%=in%-1:p%(k2%)=pn%:goto3100 960 print"You have ":ifin%=0thenprint"empty hands":goto230 961 fori=1to30:ifp%(i)<>55thennext:goto973 970 ifpos(0)+len(o$(i))>39thenprint 972 printo$(i);". ";:next 973 printchr$(157):print:goto230 1000 print"ALWAYS($a0)LOOK($a0)AROUND($a0)AND":print"EXAMINE($a0)THINGS. TRY($a0)WORDS" 1001 print"LIKE($a0)INSERT, LIFT, WAIT . .":goto230 1020 ifk2%=59thenifpn%=1then1430 1021 ifk2%=59andpn%=12then2920 1030 ifk2%<31thenifk2%<>5andp%(k2%)<>55andp%(k2%)<>pn%then3130 1040 ifk2%=23thenprint"There's 3 of them" 1050 ifk2%=68then1390 1060 ifk2%=26thenprint"There's writing, and a photo labelled 'F.VAN NOON'" 1068 ifk2%<>34orpn%<>4then1080 1069 ifc%(17)<>-2then3180 1071 print"Close examination reveals that an accessdoor leads to the engine"; 1072 print" housing":c%(17)=-3:l$(3,4)="At the base is a door" 1080 ifk2%=17andpn%=p%(17)thenon abs(c%(17))goto3280, 3280, 3280, 3290, 3300 1090 ifk2%<>44then1100 1091 ifpn%=6andc%(5)=-5thenprint"It has recently been cannibalised" 1092 ifpn%=6andc%(5)<>-5then3180 1093 ifpn%=13thenprint"Jets of coloured water are playing" 1095 ifc%(30)>2thenprint"from a steel ring mounted at it's base":c%(5)=-3 1096 goto230 1100 ifk2%<>41then1110 1101 ifpn%<>10then3120 1102 ifp%(6)=99thenp%(6)=10:print"On the plinth is a very old cannon":goto230 1103 ifp%(6)<>10thenprint"The plinth has been vandalised":goto230 1110 ifk2%<>5then1119 1111 ifp%(5)=99and(pn%<>13orc%(5)>-3)then3280 1112 ifp%(5)=99andc%(30)<3thenprint"It has a finely machined finish":goto230 1113 print"Wow! It must be almost exactly a metre in diameter . . .":goto230 1119 ifk2%<>6then1130 1120 ifp%(6)=99then3280 1121 ifp%(6)<>pn%then3120 1122 ifc%(30)<3thenprint"It's in splendid condition":goto230 1123 print"Wow! The base of the barrel is about a" 1124 print"metre diameter. Perhaps with some modifications . . .":goto230 1130 ifk2%<>47orpn%<>16then1140 1132 print"Written on the blotter, an aide-memoire:":print"(lred) A primary type," 1133 print" A mushroom ripe,";chr$(13);" A shaft-width by eight," 1134 print" To allocate.":print"(down)(gry3)There is also a message.":goto230 1140 ifk2%=38andpn%=9thenprint"A state-of-the-art bureaucrat":goto230 1150 ifk2%<>18then1160 1151 ifp%(18)<>pn%then3120 1152 ifc%(30)=2thenprint"its diameter is about 1 metre":goto230 1153 ifc%(30)>2thenprint"Someone has painted a picture on it":goto230 1160 ifk2%<>37orp%(18)<>pn%then1170 1161 ifc%(30)<3thenprint"The pipe appears unmarked":goto230 1162 print"It seems to have been drawn by a":print"communist angler":goto230 1170 ifk2%=50then1310 1180 ifk2%<>27then1190 1181 ifp%(k2%)<>55then3140 1182 ifpn%<27thenprint"It's hot in the bright Ithican sunshine":goto230 1183 goto3440 1190 ifk2%=24then1340 1200 ifk2%<>14then1210 1201 ifp%(14)<>pn%then3120 1202 print"A robust tracked vehicle":ifc%(9)=-3thenprint"with roof-mounted searchlight" 1203 goto230 1210 ifk2%<>48orpn%<>16then1230 1211 poke53280,11 1212 print"(clr)":print"<----------------DARK------------------>":fori=1to4:print 1213 next:forj=1to12:fork=1to15:print"(lred)";chr$(166);:next 1214 fork=1to10:printchr$(32);:next:fork=1to15:printchr$(166);:next:next:print 1220 print"(gry3)<---PENUMBRA--><--DARK--><--PENUMBRA--->" 1221 print" CROSS-SECTION OF($a0)THE($a0)PHENOMENON":inputa$:poke53280,0 1222 ifa$="look"then461 1223 print"(clr)":goto722 1230 ifpn%<27then1232 1231 ifk2%=21thenprint"The pencil required to draw a circle is missing!":goto230 1232 ifk2%=21thenprint"The needle is pointing north":goto230 1240 ifk2%<>30then1250 1241 print"A famous local liqueur made by monks of the order "; 1242 print"of the Immaculate Perception":goto230 1250 ifk2%=9andc%(9)=-3thenprint"It is fitted to the crawler" 1251 ifk2%=9thenprint" -:- FIAT($a0)LUX($a0)MODEL -:-" 1252 ifk2%=9thenprint"Complete with mounting brackets" 1260 print"OK":goto230 1280 ifk2%<>58andk2%<>43then3070 1281 ifpn%<>6then3180 1282 pn%=13:goto230 1310 ifk2%<31thenifp%(k2%)<>55thenifp%(k2%)<>pn%then3120 1311 ifk2%<31thenifp%(k2%)<>55then3140 1320 ifk2%<>8then1330 1321 print"SORRY($a0)I($a0)CAN'T($a0)BE($a0)HERE($a0)TO($a0)BRIEF($a0)YOU FRITZWE'RE($a0)RELYING($a0)ON YOU TO "; 1322 print"SOLVE($a0)THIS":print"MYSTERY ONCE AND($a0)FOR($a0)ALL. - Max" 1323 ifh%=0thenh%=1:print"Something fell out":p%(24)=1 1325 goto230 1330 xx%=0:ifk2%=26or(k2%=60andp%(26)=55)thenxx%=1 1331 ifxx%=1thenprint"BY($a0)THE($a0)AUTHORITY($a0)OF($a0)THE($a0)ITHICAN" 1332 ifxx%=1thenprint"GOVERNMENT, F.VAN($a0)NOON($a0)HAS($a0)FULL" 1333 ifxx%=1thenprint"POWERS($a0)OF($a0)REQUISITION":goto230 1340 ifk2%<>24then1350 1341 printtab(8)"(down)(lred)* AVANT SKI *" 1342 printtab(8)"To the retailer:":print"This voucher "; 1343 print"will be redeemed":print"by the makers of Frosty-bytes(down)":goto230 1344 ifk2%=24thenprint"by the makers of Frosty-bytes":print:goto230 1350 ifk2%<>50orpn%<>5then1360 1351 print:print"(lred) -:- VISIT -:-":print"(lgrn)";"THE($a0)SUBWAYS($a0)OF($a0)TAZOO" 1352 print"(lblu) FOR($a0)YOUR($a0)NEXT":print"(brn) ADVENTURE($a0)HOLIDAY!":print:goto230 1360 ifk2%=25thenifh%=100thengosub3000:goto230 1361 ifk2%=25thengosub2830:ifh%=11thenh%=12:goto230 1362 ifk2%=25then230 1370 ifk2%=27then1180 1379 ifk2%<>67orpn%<>16then1390 1380 print"Have organised the necessary vehicle andauthorisation. Hope they "; 1382 print"arrive soon.":print"Why not take a walk into the Pen?":goto230 1390 ifk2%<>68orpn%<>19then1400 1391 print" - HAZARDOUS($a0)AREA($a0)-":print"Insert authority card":goto230 1400 ifk2%=68andpn%=9thenprint"Not all items in stock are on display":goto230 1410 goto3070 1430 ifpn%<>1then3120 1431 ifh%<>1then3210 1432 h%=2:print"As you fly over an area of sunlit" 1433 print"darkness the pilot drops a nuclear Hell-raiser which "; 1434 print"detonates but all its":print"energy is absorbed by the dark column" 1435 goto230 1450 poke53281,1:print"(clr)":print"(lred)"; 1451 print:print" * ITHICA($a0)CUSTOMS($a0)CONTROL *":gosub1529 1452 input"FULL($a0)NAME($a0)";a$(1) 1453 gosub1529:input"PROFESSION";a$(3) 1456 ifa$(3)="engineer"theninput"TYPE($a0)($a0)($a0)($a0)($a0)($a0)";a$:a$(3)=a$+" "+a$(3) 1459 gosub1529 1460 print"AUTHORITY($a0)TO($a0)VISIT($a0)ITHICA($a0)FROM":input"FULL($a0)NAME($a0)";a$(2) 1470 gosub1529:print"PLEASE($a0)WAIT"; 1471 fori=1to10:print" .";:forj=1to200:next:next:gosub1500 1472 ifhc%=0thenh%=7:q$(2)="CLEARANCE($a0)TO($a0)DISEMBARK" 1480 ifh%<7thenq$(2)="IDENTITY($a0)CHECK($a0)PROVES($a0)NEGATIVE" 1490 sc%=1:print"(clr)":poke53281,0:goto230 1500 fori=1to3:gosub2820:next 1510 hc%=0:fori=1to3:ifac$(i)<>dd$(i)thenhc%=9 1520 next:return 1529 forix=1to39:printchr$(183);:next:printchr$(183):return 1540 ifp%(23)=55then1550 1541 print"With no cash, such a transaction would be impossible":goto230 1550 print"Terran currency is not legal tender on Ithica!":goto230 1570 ifpn%=9then3220 1571 ifp%(26)<>55then3130 1580 ifk2%>30then3410 1581 ifc%(k2%)=-10then3240 1582 xx%=2:ifc%(k2%)=-9thenc%(k2%)=2:xx%=1 1583 ifxx%=2then3410 1590 goto920 1610 xx%=0:ifpn%=4andlen(e$(4))=7andc%(17)=-3thenxx%=1:e$(4)=e$(4)+"b" 1611 ifxx%=1thenl$(3,4)=l$(3,4)+" (open)":c%(17)=-4:goto3100 1620 ifabs(c%(17))>3then3240 1621 goto3570 1640 ifp%(4)<>55andp%(4)<>pn%then3130 1641 ifk2%<>17then3070 1642 ifp%(17)<>pn%then3120 1650 ifc%(17)=-4thenc%(17)=-5:o$(17)="Titanium tube":goto3100 1660 ifc%(17)=-5thenc%(17)=7:o$(17)="Short tubes":goto3100 1680 ifp%(20)<>55then1690 1681 print"To do this whilst carrying the lifting gear would give you a hernia" 1682 goto230 1690 ifp%(20)<>pn%then3250 1700 ifc%(20)=-3then3260 1701 ifc%(20)=4thenprint"Seen the state of this gear?":goto230 1710 ifk2%=18then1740 1711 ifk2%<>17andk2%<>5then3070 1720 ifc%(k2%)<-4then1740 1721 print"They will somehow have to be detached from the hull":goto230 1740 ifp%(k2%)<>pn%then3120 1741 c%(20)=-k2%:k3%=k2%:p%(k2%)=999:ifc%(13)<-2thenc%(13)=-2 1750 goto3100 1770 ifk3%=0ork2%<>k3%then3070 1771 ifpn%<>p%(20)then3120 1780 k3%=0:ifp%(13)=pn%theninput"On ground or trailer";a$ 1781 ifp%(13)=pn%anda$="trailer"andc%(13)<-2thenprint"Sorry-it's full!":goto230 1782 ifp%(13)=pn%anda$="trailer"thenc%(13)=-k2% 1790 c%(20)=2:p%(k2%)=pn%:goto3100 1800 print"CRASH! ";o$(k3%);" dropped heavily!":print"lifting gear is wrecked!" 1810 gosub2800:goto230 1830 ifk2%=12thenprint"Perhaps a hitch . . ?":goto3270 1831 ifk2%=13ork2%=6then1840 1832 print"Pulling the ";a3$:print"is not a rewarding occupation!":goto230 1840 ifp%(k2%)<>pn%then3120 1850 ct%=0:k4%=k2%:print"A mighty effort - you'll have to keep atit!" 1851 goto230 1870 ifa1$="hit"thenprint"A bad temper will not help you!":goto230 1880 ifk2%<>6andk2%<>12andk2%<>13then3070 1890 ifk1%=29then1940 1900 ifp%(14)=pn%then1910 1901 print"To tow, there must be a suitable vehicleto hitch to":goto230 1910 ifc%(14)<-2then3260 1911 ifk2%=12andc%(12)=-11thenprint"It is connected to the cable":go to 230 1912 c%(14)=-k2%:goto230 1940 ifp%(14)=pn%ork1%<>29orc%(14)=k2%then1950 1941 print"There is nothing here in a hitched condition!":goto230 1950 ifc%(14)<>-2then1952 1951 print"There appears to be no hitch with the ":printo$(k2%):goto230 1952 c%(k2%)=-2:c%(14)=-2:goto3100 1970 ifk2%<>30then3070 1971 ifp%(30)<>55then3140 1972 c%(30)=3:print"(swig). Whew - with a drop of this" 1973 print"inside you, you see things in a different way . ." 1974 goto230 1990 ifpn%=9then2000 1991 print"Exercising one's fingers in mid-air is a worthless pastime":goto230 2000 ifk2%>30then3310 2001 ifc%(k2%)<>-10then3310 2002 ifh%<20andk2%=11then3310 2010 i=4:input"Allocation code please";a$(i):gosub2820:ifac$(4)=dd$(4)then2020 2011 print"That code is for the production of":printcp$(int(rnd(0)*4)):goto230 2020 c%(k2%)=2:ifin%>5thenprint"It is your's to take, but":p%(k2%)=pn%:goto3320 2021 p%(k2%)=55:in%=in%+1:print"'ere! Catch!":goto230 2040 ifk2%=11then2650 2041 ifk2%<>44andk2%<>5then3150 2042 ifpn%=13then3340 2043 ifpn%<>6then3120 2044 ifc%(5)>-3then3280 2045 ifc%(5)=<-4then3240 2046 ifk1%=20andk2%=5then3160 2047 ifk1%=21andk2%=44then3070 2048 ifp%(1)<>55then3330 2049 c%(5)=-5:p%(5)=6:goto3100 2060 ifk2%=2thenprint"Try the library!" 2070 print"Why not use the keyboard ?":goto230 2090 ifk2%<>6then3350 2091 ifp%(6)<>pn%then3120 2092 ifpn%<>17then3370 2093 ifp%(5)=88then3240 2094 ifp%(2)<>55then3460 2095 ifp%(1)<>55then3450 2096 ifp%(3)<>55then3470 2097 ifp%(28)<>55then3480 2098 ifp%(5)<>pn%then3380 2100 p%(5)=88:p%(2)=88:p%(28)=88:in%=in%-2:o$(6)="Modified cannon" 2101 ifc%(13)=-5thenc%(13)=-2 2110 goto3360 2130 ifk2%<>15andk2%<>16then3070 2131 ifc%(k2%)=k2%then3240 2132 ifc%(15)>2thenprint"A trifle difficult, I'm afraid!":goto960 2133 ifp%(k2%)<>55then3140 2134 c%(15)=k2%:o$(k2%)=o$(k2%)+" (worn)":print"That's a whole lot warmer" 2135 goto230 2150 ifk2%<>15andk2%<>16then3070 2151 ifc%(15)<>k2%thenprint"You are not wearing it":goto230 2152 in%=in%-1:p%(k2%)=pn%:c%(15)=2:o$(k2%)=left$(o$(k2%),len(o$(k2%))-7) 2153 print"Brr! Feels nippy now!":goto230 2170 ifpn%<>12thenprint"Oops! Is one loose?":goto230 2171 ifk2%=49thenprint"Address button by label":goto230 2172 ifk2%<61ork2%>65then3070 2173 on(k2%-60)goto2190, 2240, 2250, 3270, 2330 2180 goto230 2190 ifcs%<>1then2200 2191 print"Operating the starter with the engine running is of little use" 2192 goto230 2200 ifc%(15)=16then2210 2201 print"A warning siren sounds! This vehicle operates under "; 2202 print"varying atmospheric conditions. A null pressure suit must "; 2204 print"be worn at all times.":goto230 2210 ifpc%<>35then2220 2211 print"The contra-forces are too great for the motor to rotate":goto230 2220 cs%=1:ifpn%=28orpn%=29thenprint"The engine fires unhappily":goto230 2221 print"The engine is now running":goto230 2240 ifcs%=0then3240 2241 cs%=0:print"The crawler engine stops":goto230 2250 ifcs%<>0then2260 2251 print"With no engine running such a manoeuvre would be remarkable":goto230 2260 ifpc%>26orcp%<>1orcp%<>3then2270 2261 print"In your current alignment of space is too restricted":goto230 2269 if(ic%=1andcp%=0)or(ic%=15andcp%=2)then2320 2270 ifk2%=63and(cp%=1orcp%=3)then3390 2271 if(ic%=1andcp%=2)or(ic%=15andcp%=0)thenprint"Obstruction ahead":goto230 2272 ifcp%=0thenic%=ic%+2 2273 ifcp%=2thenic%=ic%-2 2280 ific%<1thenic%=1 2281 ific%>15thenic%=15 2290 ifh%<>17oric%<14then2300 2291 ific%<15then2300 2292 print"The crawler has stopped against debris from the ruins of Old "; 2293 print"Bethlem. The":print"heading has been changed, hopefully towards"; 2294 print" the dark. You proceed at your own risk.":h%=18:ic%=13:goto230 2300 ifpc%<>29orh%<>18then2302 2301 print"We've hit something! The engine has stalled!":h%=19:cs%=0:goto230 2302 ifpc%=35thenprint"We are near the Dark":goto230 2320 print"The crawler lumbers forward":goto230 2330 ifpc%>29thencp%=int(rnd(0)*3):goto2340 2331 cp%=cp%+1:ifcp%=4thencp%=0 2340 print"90 degree turn completed":ifpc%>28thenprint"(hopefully!)" 2341 ifpc%>28thenprint"It's impossible to see anything in this contra-light!" 2350 goto230 2370 ifk2%<>24thenprinta3$;" appears to have":print"no exchange value":goto230 2371 ifpn%=9thenprint"Ahem - cutouts from cereal" 2372 ifpn%=9thenprint"packets don't impress me!":goto230 2373 ifpn%<>15then3420 2380 ifp%(24)<>55thenprint"That seems to have been mislaid":goto230 2390 ifc%(15)>0then3410 2400 c%(15)=2:p%(15)=55:print"A pleasure to do business with you!" 2410 p%(24)=88:goto230 2430 ifk2%>30then3140 2431 ifk2%<>19andk2%<>23then940 2432 ifp%(k2%)=55then2440 2433 print"Were you carrying one your aim would no doubt be impeccable":goto230 2440 ifk2%=23then2470 2441 ifpn%=11orpn%=20then2449 2442 ifpn%<23thenprint"Not here! You might damage something!":goto230 2449 in%=in%-1 2450 ifpn%>=27then2455 2451 print"Perfect shot! Fell just where":print"you aimed!":p%(19)=11:goto230 2455 ifh%=8orh%=9thenh%=h%+1 2460 goto3430 2470 ifpn%<>13andpn%<>6then940 2471 p%(k2%)=88:print"They splash as they fall in the water." 2472 print"You feel suddenly elated." 2473 print"3 thoughts come into your mind:":print"RANDOM($a0)SCATTER, LASER($a0)LIGHT," 2474 print"STORES($a0)CABLE":goto230 2490 ifc%(14)=-6then3530 2491 ifk2%<>6andk2%<>7then3070 2492 ifp%(7)<>55andp%(7)<>pn%then3520 2493 ifpn%=35then2500 2494 print"The shell went harmlessly into":print"the air. Boy - what a recoil!" 2495 print"Like a horizontal pile-driver!":goto230 2500 ifc%(12)<>-11orc%(29)<>-11then3560 2501 ifc%(13)=-18then3540 2502 ifp%(5)<>88then3550 2503 ifp%(18)<>pn%then2510 2504 p%(18)=88:p%(22)=pn%:print"Crunch! The recoil crushed the" 2505 print"pipes against the dark. You notice a red"; 2506 print"fish-like drawing on one of the pieces":goto230 2510 ifp%(17)<>pn%then3550 2511 ifc%(13)=-17then3540 2512 ifc%(7)=3then2520 2513 print"The first firing drove the tube 1mm intothe Dark. The next impact "; 2514 print"seemed to be":print"anticipated and was met with like force":goto230 2520 p%(7)=88:p%(17)=88:l$(1,35)="There is a tube leading into" 2521 l$(2,35)="the Dark":e$(35)=e$(35)+"x":print"After succesive firings at" 2522 print"random intervals, the tube":print"finally meets no resistance" 2523 print"and firing stops":goto230 2540 ifk2%<>9then3070 2541 ifp%(9)<>55then3140 2542 in%=in%-1:p%(9)=88:c%(9)=-3:print"The searchlight is now mounted on the" 2543 print"crawler and connected to a photo-sensor." 2544 print"It will light automatically as required":goto230 2560 ifk2%=11then2570 2561 print"To connect other than a cable would be rather unproductive":goto230 2570 ifp%(11)<>55andp%(11)<>pn%then3120 2580 ifpn%=35then2590 2581 print"It would be wiser to delay a connection until really needed":goto230 2590 input"To what";aa$:aa$=left$(aa$,3) 2600 if aa$<>"gen"then2610 2601 ifp%(12)<>pn%then3120 2602 ifc%(12)=-11then3240 2603 c%(12)=-11:o$(12)=o$(12)+" (connected)":c%(11)=-3:p%(11)=pn%:goto3100 2604 goto230 2610 ifaa$<>"las"then3170 2611 ifp%(29)<>pn%then3120 2612 ifc%(29)=-11then3240 2613 c%(29)=-11:o$(29)=o$(29)+" (connected)":c%(11)=-3:p%(11)=pn% 2620 print"Connection made":ifc%(12)<>-11orc%(29)<>-11then230 2621 print"The laser is now projecting. Although attenuated, the thin light "; 2622 print"is just":print"sufficient to illuminate the scene" 2630 p%(11)=pn%:in%=in%-1:goto230 2650 ifc%(11)=-3then2660 2651 print"Nothing connected is urgent enough to need disconnection":goto230 2660 print"That is not advisable, just when you arewinning!":goto230 2680 ifk2%<>26then3070 2681 ifp%(26)<>55then3140 2682 ifpn%<>19thenprint"One hesitates to think where!":goto230 2683 pn%=21:goto230 2700 ifk2%<>7then3070 2701 ifp%(k2%)<>55then3140 2702 ifpn%<>35then940 2703 c%(7)=3:print"The shells are now scattered at random" 2704 print"distances from the cannon.":goto940 2720 ifk2%<>10then3070 2721 ifp%(k2%)<>55then3140 2722 print"To light a carnival torch would require" 2723 print"matches, which you do not possess":goto230 2740 ifk2%<>20then3080 2741 ifc%(20)<>4then3240 2742 ifpn%<>17then3370 2743 c%(20)=2:o$(20)="Shear-legs":print"The lifting gear is now in working" 2744 print"order. The maintenance foreman suggests you to take a course in "; 2745 print"lifting ":print"and handling.":goto230 2760 j%=0:xx=len(y$) 2761 fori=1tolen(x$)stepxx:ify$=mid$(x$,i,xx)thenj%=i:i=len(x$):return 2770 next:return 2780 fori=0to2000:next:return 2790 fori=0to10:print"(clr)":c%=usr1(0):forj=0to5:next:next:return 2800 xx%=0:printo$(k3%); 2801 ifp%(k3%)>998thenp%(k3%)=p%(k3%)+1:xx%=1:ifp%(k3%)>1004ork1%=3thenxx%=2 2802 ifxx%=0thenreturn 2803 ifxx%=1thenprint" is hanging from":print"The shear-legs":return 2804 print" has slipped from":print"the hoist. What a mess!":p%(k3%)=p%(20) 2805 k3%=0:c%(20)=4:o$(20)="Buckled shear-legs" 2810 return 2820 ac$(i)="":ifa$(i)=""thenreturn 2821 forj=1tolen(a$(i)) 2822 ac$(i)=ac$(i)+right$(str$(asc(mid$(a$(i),j,1))),2):next:return 2830 print"(clr)":print"The physical nature of the pen can only be explained in "; 2831 print"terms of polar":print"opposition - negation by defined effects"; 2832 print"of exactly opposite character. One" 2833 print"theory is that the pen is an area of contra-energy. In the pen "; 2834 print"movement is":print"sluggish, at the boundary of the Dark -" 2840 print"impossible. The effect is one of degree.In the pen it is partial, "; 2842 print"whereas in theDark it is absolute" 2870 print"The problem is thus - if a projectile" 2871 print"were fired at the perimeter of the Dark,"; 2872 print"it would have to be met by a counter" 2874 print"projectile of identical mass, travelling"; 2880 print"to the same point at exactly opposite velocity." 2881 print"The implication is frightening. Either the Dark is a dynamic"; 2882 print" broad-band":print"transmitter, or it is full of little" 2890 print"green men with an uncanny knack of anticipation":return 2900 print"(thinks) What is needed now is" 2901 print"a journey to the Dark. For that special" 2902 print"transport and clothing will be required":return 2910 q$(1)="A lightning storm passes and" 2911 q$(2)="briefly illuminates the scene.":return 2920 ifpc%<29orc%(9)<>-3then2930 2921 print"Even with the searchlight, the contra-light is impenetrable." 2922 print"You are driving blind":goto230 2930 ifpc%>29thenprint"Without a searchlight you can't" 2931 ifpc%>29thenprint"see a thing":goto230 2940 ifpc%>26andc%(9)<>-3thenprint"It would need a searchlight to" 2941 ifpc%>26andc%(9)<>-3thenprint"see through this gloom!":goto230 2950 print"Through the screen you can":print"see that the crawler is" 2951 fori=0to3:printl$(i,pc%):next:goto230 2960 q$(1)="You passed out from exhaustion trying" 2961 q$(2)="to reach the crawler in contra-gravity" 2962 q$(3)="They towed you back in":h%=29:p%(16)=21:c%(15)=2:pn%=16 2964 in%=in%-1:o$(16)="Null-pressure suit" 2970 print"(clr)":forxx=7to11:forix=2to7:poke53280,xx:poke53281,ix:print"(down)(rght)#$*`|*"; 2971 fori=1to30:nexti:nextix:nextxx:poke53280,1 :poke53281,1:print"(clr)" 2972 gosub5000:return 2980 rem * the end (at last!!!!)((?)) * 2990 fori=1to15000:next:pn%=16:h%=100:q$(1)="There was an enormous implosion" 2991 q$(2)="You were rescued, and revived":q$(3)="Dr.Courtney hands you a new" 2992 q$(4)="dossier":p%(25)=55:d$(11)="1110&&23":gosub2970:goto230 3000 print"(clr)":print"Well, they did it all with a kind of" 3001 print"mirror. The principle of reflection was used to produce the exact "; 3002 print"inverse of":print"anything entering its field." 3010 print"The mirror worked over all physical and force phenomena including "; 3011 print"matter itself.The final protection of the aliens was" 3020 print"the 'silvering' at the back of the" 3021 print"mirror, which Van Noon broke - causing" 3022 print"the destruction of the system, and the restoration of the Bethlem"; 3023 print" area to normality."; 3030 print:print:printtab(13)"PRESS($a0)ANY($a0)KEY" 3040 getz$:ifz$=""then3040 3050 print"(clr)":print"(down)(down)(down)(down)(down)(down)(down)(down)(down)":print" THE($a0)END":fori=1to9999:next:end 3070 print"That suggestion is not merely unorthodoxit is impossible!":goto230 3080 print"Hard as you try, a task you are unable to perform":goto230 3090 ifk2%=34thenprint"Trying to enter a closed door is quite painful":goto230 3092 print"Sorry,you can't ";a$:goto230 3100 print"OK":goto230 3110 print"That item is already to hand":goto230 3120 print"Such an object is either not here or hasbeen described in "; 3121 print"an unorthodox way!":goto230 3130 print"That is not possible at present":goto230 3140 print"You're not carrying one!":goto230 3150 print"You must be joking!":goto230 3160 print"It's all one piece":goto230 3170 print"OK- nothing happens":goto230 3180 print"You are far too busy for that!" 3181 ifpn%=6thenprint"Perhaps a rest might help":goto230 3182 goto230 3190 print"HUH?":goto230 3200 print"Leaving the craft whilst still in flightwould be suicidal!":goto230 3210 print"Below, the sunlit planet Ithica":goto230 3220 print"A metallic throat is cleared -" 3221 print"Ahem! Stores MUST be booked out":goto230 3230 print"That item is for sale":goto230 3240 print"That task was completed some time ago!":goto230 3250 print"Without the necessary equipment your efforts are useless":goto230 3260 print"One thing at a time!":goto230 3270 print"A heroic effort but to no avail":goto230 3280 print"Trying to anticipate the plot will not improve it!":goto230 3290 print"The largest, 1 metre wide, is welded to the hull":goto230 3300 print"It is on the ground, but will not be moved by man alone!":goto230 3310 print"Ahem! Current stores holding for that item is zero" 3311 ifh%<20andk2%=11thenprint"A delivery is expected shortly":goto230 3312 goto230 3320 print"To carry more, you would need a":print"supermarket trolley complete" 3321 print"with outboard motor":goto230 3330 print"Unaided, your bare hands cannot unbolt the ring":goto230 3340 print"From a sitting position that would not be easy":goto230 3350 print"Even an Unorthodox Engineer can see no purpose in that!":goto230 3360 print"Looks grotesque but seviceable":goto230 3370 print"This place has neither facilities nor space for such work":goto230 3380 print"The vital component is missing!":goto230 3390 print"A rough ride. You release the button":goto230 3400 print"OK -but it's too dark to see":print"where the hell we're going":goto230 3405 print"Van Noon is no quitter!":goto230 3410 print"Sorry - those were all sold at the startof the season!":goto230 3420 print"A bizarre place for such a transaction!":goto230 3430 p%(19)=pn%:print"At its release velocity, the stone" 3431 print"should have travelled further. It seemed"; 3432 print"to lose kinetic energy during flight. It"; 3434 print"appears that momentum here is not equal to mass x velocity":goto230 3440 print"The temperature is only about 15 degreeslower than outside the Pen"; 3441 print" and yet feels";:print"colder. Heat is being removed somehow as"; 3442 print"it's hot out there.":ifh%=8thenh%=9:goto230 3443 ifh%=9thenh%=10:goto230 3444 goto230 3450 print"You will need tools for bolts":goto230 3460 print"To hold the parts together you will neednuts and bolts":goto230 3470 print"You will need to drill some holes in thegun":goto230 3480 print"Brackets and flanges will be needed for this job!":goto230 3490 q$(3)="By the attenuated light of the storm," 3491 q$(4)="you notice that the nose of the crawler" 3492 q$(5)="has dented the Dark by a few mm":goto230 3500 print"(pause, thinks) The penetration of the crawler means a time-lag"; 3501 print" for the Dark":print"to react!":sc%=0:pn%=pl%:goto230 3510 print"(thinks) What is needed is a tunnel . ." 3511 print". . some thing to crawl through. The forces applied to drive one" 3512 print"would have to be applied at random . . .":sc%=0:pn%=pl%:goto230 3520 print"With no shells it is assumed you meant 'ignite'" 3521 print"Anyway, it won't burn!":goto230 3530 print"What? And wreck the crawler?":goto230 3540 print"What, and wreck the trailer?":goto230 3550 print"The gun fired sluggishly The recoil was good":goto230 3560 print"The contra-light is too intense to do that in safety. What is"; 3561 print"needed is a very":print"powerful beam.":goto230 3570 print"That is not possible right now":goto230 3580 print"Although the crawler is in the vicinity it is not visible due to "; 3581 print"the intense":print"contra-light":goto230 3600 data"on the flight deck of a","space scudder. You are facing" 3601 data"a view-screen. Aft is a hatch.",,"ha",3*3* 3610 data"looking through a glasslike film which you have just shattered." 3611 data"Light from beyond spills out from a scene of gold-hazed wonder." 3612 data"You see creatures and God-like machines rising up faster, faster,",,, 3620 data"at the top of the landing ramp.","Below is Ithica Spaceport" 3622 data"Concourse and a hatchway leads","to the scudder flight deck.","drhc" 3630 data4*4*1*1*,"in the disembarkation area of","Ithica Spaceport. There is a" 3631 data"scudder with ramp lowered",,"rcuew&s",3*3*3*6*5*&&7*26 3640 data"on a hard standing area at the","spaceport perimeter fence." 3641 data"A colourful travel poster","completes the scene.","e&s",4*&&8* 3650 data"in Ithica Spaceport gardens.","There are bench seats grouped" 3651 data"around a sparkling fountain.",,"ew&s",104*&&15 3660 data"in an alleyway between some","spaceport buildings. A doorway" 3661 data"is set in one wall.",,"bn&s",164*&&14 3670 data"on the hard standing of a space","vehicle maintenance area." 3671 data"behind the workshops.",,"n",5* 3680 data"in the Space Command Stores. An","electronic storekeeper with a" 3681 data"qwerty keyboard stands on the","counter. There is a sign","o",14 3690 data"in a secluded area of the","spaceport gardens. There is a" 3691 data"marble plinth inscribed","'Ancient Monument'","w&s",6*&&23 3700 data"on a hot dusty track leading","from the spaceport through" 3701 data"rubble that was once the old","city of Bethlem","e&w",24&&23 3710 data"inside a crawler. There are","buttons marked START($a0)STOP($a0)TURN" 3711 data"FORWARD mounted below a view","screen","o",99 3720 data"sitting on a park bench.","A soothing fountain is playing" 3721 data"iridescent jets of water over","water lilies.","u",6* 3730 data"in an alleyway between","spaceport buildings. There is" 3731 data"a door in the west wall",,"nsbw&e",7*189*9*&&23 3740 data"in the Spaceport duty-free gift","shop.",,,"o",6* 3750 data"in Dr.Courtney's office.","There is a desk and a chart on" 3751 data"the wall.",,"o",7* 3760 data"in the Space Command maintenance","workshop.",,,"o",18 3770 data"at the end of an alley.",,,,"nse&w",141920&&17 3780 data"in the Space Command research","laboratory. At one end there is" 3781 data"a heavily armoured door with a","sign and slot to one side.","n",18 3790 data"by a scrap heap of waste","material from Space Command" 3791 data"engineering operations",,"ew&n",2218&&23 3800 data"in the munitions store. There","is a racking containing boxes of" 3801 data"ammunition of many types.",,"w",19 3810 data"on waste ground next to the","scrap heap. There is a fence" 3811 data"on the north and east sides and","a building to the south.","w",20 3820 data"at the special-vehicle park of","the Space Command complex.",,,"nse&w" 3821 data102211&&14 3830 data"on a track. Far to the west is","Ithica Spaceport. Far to the" 3831 data"east there appears to be a huge","black storm cloud.","e&w",25&&11 3840 data"on a track stretching to the","west. The eastern end enters an" 3841 data"area of chill gloom where the","sunlight hardly penetrates.","e&w" 3842 data27&&24 3850 data"in the engine compartment of","the space scudder.",,,"o",4 3860 data"in a zone of penumbral shadow.","The light is weak and you feel" 3861 data"lethargic. A sensation of","numbing coldness grips you.","nes&w" 3862 data272827&&25 3870 data"deep in the 'pen'. There is very","little light. The cold could" 3871 data"kill without suitable clothing","and to move needs great effort." 3872 data"e&w",29&&27 3880 data"deep in the Pen & it is nearly","completely dark. You have no" 3881 data"idea of your surroundings as","visibility is about 1 meter" 3882 data"nse&w",292929&&28 3890 data"in a tube of titanium steel.","Movement is only possible" 3891 data"forwards and backwards. Ahead","is the impenetrable dark.","zy",3531 3900 data"in a tube of titanium steel.","This is strange since it is" 3901 data"beyond the extent of the tubes","pushed through the 'Dark'.","zy",3032 3910 data"in the central core of the DARK.","The light is thin but clouded" 3911 data"by misty 'veils'. The end of a","tube protrudes from darkness.","xe" 3912 data3133 3920 data"between two veils of darkness.","Strangely the light changes at" 3921 data"the veils but does not lessen.","There is no heat and no cold." 3922 data"ewn&s",343233&&33 3930 data"to the west of a veil","but to the east is a dark shiny" 3931 data"glasslike barrier.",,"ewn&s",2*3334&&34 3940 data"at the edge of the Dark.","To move is like walking through" 3941 data"jelly due to contra gravity.","Unaided you can see nothing." 3942 data"nse&wl",353535&&351230 3950 data"Spanners",17,2,"Nuts & bolts",99,-10,"Drill",17,2 3951 data"Oxy-acetylene cylinders",17,2,"Steel ring",99,-2,"Cannon",99,-2 3952 data"Shells",21,2,"Letter",1,2,"Searchlight",99,-10,"Torch",15,-9 3953 data"Cable",99,-10 3960 data"Generator",23,-1,"Trailer",23,-2,"Crawler",99,-2,"Ski-wear",15,-9 3961 data"Null-pressure suit",21,2,"Titanium tubes",26,-2,"Concrete pipe",20,-2 3962 data"Small rock",28,2,"Shear-legs",8,2,"Compass",15,-9,"Concrete chunks" 3963 data99,2 3970 data"Coins",55,2,"Voucher",99,2,"Dossier",99,2,"Plastic card",99,2 3971 data"Thermometer",19,2,"Brackets & flanges",99,-10,"Laser projector" 3972 data21,2,"Ithican Surprise",15,-9 3980 data7082738490328665783278797978,"cardboard pogo-sticks" 3981 data77658887697676326779858284786989,"Intentionally Blank manuals" 3982 data85787982847279687988326978717378696982,"Hi-tech chewing gum" 3983 data7150535354,"Real-ale substitute" 3990 rem * save game to tape * 4000 ifk2%<>70then3190 4001 print"(clr)":open 5,1,1,"PEN($a0)&($a0)DARK" 4020 fori=1to9:ws$(i)="":next 4030 fori=1to15:ws$(1)=ws$(1)+str$(p%(i))+"/":next 4031 fori=16to30:ws$(2)=ws$(2)+str$(p%(i))+"/":next 4040 fori=1to15:ws$(3)=ws$(3)+str$(c%(i))+"/":next 4041 fori=16to30:ws$(4)=ws$(4)+str$(c%(i))+"/":next 4050 ws$(5)=str$(h%)+"/"+str$(ic%)+"/"+str$(pc%)+"/"+str$(pl%)+"/"+str$(pn%) 4051 ws$(5)=ws$(5)+"/"+str$(cp%)+"/"+str$(cs%)+"/"+str$(in%)+"/"+str$(ct%)+"/" 4052 ws$(5)=ws$(5)+str$(cc%)+"/"+str$(k3%)+"/"+str$(k4%)+"/" 4060 ws$(6)=l$(3,4)+"/"+l$(1,35)+"/" 4061 ws$(7)=l$(2,35)+"/"+e$(4)+"/"+e$(35)+"/"+e$(30)+"/"+e$(31)+"/"+d$(11)+"/" 4070 ws$(8)=o$(6)+"/"+o$(12)+"/"+o$(15)+"/" 4071 ws$(9)=o$(16)+"/"+o$(17)+"/" 4072 ws$(10)=o$(20)+"/"+o$(29)+"/" 4080 print#5,"PEN &($a0)DARK":fori=1to10:print#5,ws$(i):ws$(i)="":next:sc%=1 4085 close 5:goto230 4100 ifk2%<>70then3190 4101 print"(clr)":open 5,1,0,"PEN($a0)&($a0)DARK" 4110 input#5,wt$ 4111 fori=1to10:input#5,ws$(i):next:close 5 4120 print"(clr)":print"Please wait while Van Noon re-positions his equipment" 4125 k%=0:j%=1:fori=1to15 4130 ik%=1:gosub4260:p%(i)=val(mid$(ws$(1),k%+1,j%-k%-1)):k%=j%:j%=j%+1:next 4135 k%=0:j%=1:fori=16to30 4136 ik%=2:gosub4260:p%(i)=val(mid$(ws$(2),k%+1,j%-k%-1)):k%=j%:j%=j%+1:next 4140 k%=0:j%=1:fori=1to15 4150 ik%=3:gosub4260:c%(i)=val(mid$(ws$(3),k%+1,j%-k%-1)):k%=j%:j%=j%+1:next 4155 k%=0:j%=1:fori=16to30 4156 ik%=4:gosub4260:c%(i)=val(mid$(ws$(4),k%+1,j%-k%-1)):k%=j%:j%=j%+1:next 4160 k%=0:j%=1:fori=1to12 4170 ik%=5:gosub4260:wt$(i)=mid$(ws$(5),k%+1,j%-k%-1):k%=j%:j%=j%+1:next 4180 h%=val(wt$(1)):ic%=val(wt$(2)):pc%=val(wt$(3)):pl%=val(wt$(4)) 4181 pn%=val(wt$(5)):cp%=val(wt$(6)):cs%=val(wt$(7)):in%=val(wt$(8)) 4182 ct%=val(wt$(9)):cc%=val(wt$(10)):k3%=val(wt$(11)):k4%=val(wt$(12)) 4190 k%=0:j%=1:fori=1to2 4200 ik%=6:gosub4260:wt$(i)=mid$(ws$(6),k%+1,j%-k%-1):k%=j%:j%=j%+1:next 4205 k%=0:j%=1:fori=3to8 4206 ik%=7:gosub4260:wt$(i)=mid$(ws$(7),k%+1,j%-k%-1):k%=j%:j%=j%+1:next 4210 l$(3,4)=wt$(1):l$(1,35)=wt$(2):l$(2,35)=wt$(3):e$(4)=wt$(4):e$(35)=wt$(5) 4211 e$(30)=wt$(6):e$(31)=wt$(7):d$(11)=wt$(8) 4220 k%=0:j%=1:fori=1to3 4230 ik%=8:gosub4260:wt$(i)=mid$(ws$(8),k%+1,j%-k%-1):k%=j%:j%=j%+1:next 4235 k%=0:j%=1:fori=4to5 4236 ik%=9:gosub4260:wt$(i)=mid$(ws$(9),k%+1,j%-k%-1):k%=j%:j%=j%+1:next 4237 k%=0:j%=1:fori=6to7 4238 ik%=10:gosub4260:wt$(i)=mid$(ws$(10),k%+1,j%-k%-1):k%=j%:j%=j%+1:next 4240 o$(6)=wt$(1):o$(12)=wt$(2):o$(15)=wt$(3):o$(16)=wt$(4):o$(17)=wt$(5) 4241 o$(20)=wt$(6):o$(29)=wt$(7) 4250 fori=1to12:wt$(i)="":next:goto461 4260 ifmid$(ws$(ik%),j%,1)<>"/"thenj%=j%+1:goto4260 4270 return 5000 poke53272,23:poke53280,0:poke53281,0:return