0 REM ***** SAVE"@0:INF2.PT6",8 1 DV=PEEK(186) 2 POKE53272,29:GOTO10 5 POKE198,0 6 GETK$:IFK$=""THEN6 7 IFK$="S"ANDPEEK(49152)=7THENPOKE49152,0:SYS49897:RETURN 8 IFK$="S"ANDPEEK(49152)=0THENPOKE781,0:POKE782,150:SYS49664:POKE49152,7 9 RETURN 10 SYS49615:POKE781,0:POKE782,150:SYS49664 36 REM *** SETUP VARIABLES 37 VI=53248:PG=64:SA=PG*256:SP=248:SS=49152 38 POKEVI+32,0:POKEVI+33,0:POKEVI+29,255:FORZD=39TO47:POKEVI+ZD,4:NEXT 39 REM *** SETUP SINUS INTERRUPT 40 SYSSA 41 REM *** POKE SPRITE DATA 51 POKEVI+21,0:REM TURN SPRITES ON 52 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB340 53 POKESA+6,3:POKESA+7,3:POKESA+8,ZZ 54 POKESA+9,ZZ:POKESA+10,ZY 56 POKESA+13,ZX 57 POKEVI+37,14 58 POKEVI+38,ZC 60 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 61 IF ZY=40 THEN ZY=10:ZX=ZX+5 62 Y=Y+1:IFY<3THENZC=5 63 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=8THENYY=0:GOTO66 64 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THEN70 65 GOTO53 66 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 67 IFXX=1ANDPEEK(VI+21)=1THENGOSUB770:XX=2 68 IFXX=3ANDPEEK(VI+21)=1THENGOSUB100:XX=4 69 GOTO64 70 REM *** TURN OFF SINUS 71 POKEVI+21,0 72 POKEVI+32,0:POKEVI+33,0 80 REM *** GAMESTART 81 GOSUB600:PRINT"THE ELEVATOR COMES TO AN ABRUPT STOP. 82 [153]"IT FEELS LIKE YOU PLUMMETED SEVERAL HUN- 83 PRINT"DRED FEET [192][192] IMPOSSIBLE! IT WOULD MEAN 84 [153]"THE SUBLEVELS TO THIS BUILDING START AT 85 PRINT"NEARLY HALF OF ITS OVERALL HEIGHT![145][145][145]":GOSUB5:POKEVI+38,4 86 A$=" PROCEED LEFT (WESTWARD) ":B$=" PROCEED RIGHT (EASTWARD) ":X=1 87 C$=" GO STRAIGHT (NORTHWARD) ":GOSUB340:GOSUB200:ONCGOTO88,88,210 88 IFX=2THENGOSUB770:PRINT"THIS CORRIDOR DEAD ENDS WITH A STRANGE":ZS=31:GOTO90 89 H=16:J=16:GOSUB795:PRINT"[155]THIS CORRIDOR DEAD ENDS WITH A STRANGE":ZS=63 90 PRINT"DOOR WITH A LIGHT STRIP RUNNING ACROSS 91 [153]"ITS CENTER. YOU HEAR GURGLING SOUNDS 92 PRINT"COMING FROM BEHIND THE DOOR.":GOSUB5:POKEVI+21,ZS:FORT=1TO3000:NEXT 95 POKEVI+21,0:PRINT"[145][145][145][145][145][145][145]YOU SEARCH THE DOOR LOOKING FOR A WAY " 96 PRINT"TO OPEN IT. YOU MUST'VE DONE SOMETHING 97 [153]"RIGHT BECAUSE THE DOOR OPENS AND YOU " 98 [153]"SEE ROWS OF LIQUID-FILLED CYLINDERS.":[141]5:[151]VI[170]38,5:[151]VI[170]21,ZS 99 [129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5:[141]970:[137]221 100 [143] *** CITYSCAPE 101 [153]"LOADCONT .LIST "; 102 [153]" CONT .LIST "; 103 [153]" CONT POKETHENLIST "; 104 [153]" POKE CONT. POKE(null)FN CONT.LIST "; 105 [153]" CONT POKETO LEFT$(null) "; 106 [153]"ORTAN^ORTAN^ CONT.LIST CONT POKE(null)FN SQRTHEN PEEKPEEK  "; 107 [153]" CONT.POKEPEEKSYS.POKEPEEKPEEKSYS.POKEPEEKLIST POKE SGN(null)TOFNSYS.POKETAB((null) "; 108 [153]"OR(null)USRUSR(null)^ POKEPEEKSYS.POKEPEEKPEEKSYS.POKEPEEKLIST POKETOSGNSYS"; 109 [153]".....POKETHEN TO(null) SYS.... POKE(null) POKEPEEKSYS.POKEPEEKPEEKSYS.POKE"; 110 [153]"/^LIST POKE SYS.....POKETHENTOFNSYS. SYS.. SYS .POKE(null) "; 111 [153]" POKEORTANEXP POKE/EXP  POKEPEEKLIST POKE  "; 112 [153]" SYS.. POKE+ POKE(null)>(null)(null)SYS... SYS. SYS.POKE(null) POKEOR^"; 113 [153]"LIST PRINT SYS PRINT  POKEUSRUSR PRINT"; 114 [153]" POKE(null)TOLIST POKESGNLIST POKEFN  "; 115 [153]" PRINT SYS.POKE(null)TO(null)LIST POKE(null) " 116 [153]"CLRTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(LIST":[142] 200 [143] *** OPTIONS TABLE 201 [153]""[166]16)"LISTOPTIONS":[153]" CLR 1 WAIT LIST"A$ 202 [153]" CLR 2 WAIT LIST"B$:[153]" CLR 3 WAIT LIST"C$:C[178]0 203 [139]X[178]1[167][153]"ONONONONONLIST 1 CLR"A$ 204 [139]X[178]2[167][153]"ONONONLIST 2 CLR"B$ 205 [139]X[178]3[167][153]"ONLIST 3 CLR"C$ 206 [141]5:[139]K$[178]""[175]X[179]3[167]X[178]X[170]1 207 [139]K$[178]"ON"[175]X[177]1[167]X[178]X[171]1 208 [139]K$[178][199](13)[167]C[178]X:[142] 209 [137]200 210 [141]100:[153]"ONTHE CORRIDOR, FILLED WITH STEEL DRUMS, 211 PRINT"WITH WHIRRY'S WAREHOUSE MARK, DEAD ENDS.[145][145]":GOSUB5:POKEVI+21,15 212 FORT=1TO3000:NEXT:POKEVI+21,0:PRINT"[145][145]YOU HEAR SOMEONE COMING [192][192] "; 213 PRINT"ACCIDENTALLY":PRINT"PRESS AGAINST A DOOR [192][192] IT OPENS!!! [145][145]" 216 GOSUB5:POKEVI+38,5:POKEVI+21,15:FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,4 217 GOSUB970:PRINT"YOU FIND YOURSELF IN A ROOM WITH A WALL 218 [153]"STRANGELY LIKE AN AQUARIUM. BIZARRE 219 PRINT"CREATURES ARE FLOATING IN AN AMBER FLUID 220 [153]"TANTAN IT LOOKS LIKE THEY ARE ASLEEP!ONON":[141]5:H[178]17:[141]795 221 [153]"YOU HEAR A SLITHERING":[153]"SOUND TANTAN TURN AND SEE A 222 PRINT"TERRIBLE MONSTER! IT":PRINT"POINTS A WEAPON AT YOU [192][192]":GOSUB5 223 FORH=1TO5:POKE53281,1:FORT=1TO5:NEXT:POKE53281,0:FORT=1TO5:NEXT:NEXT 224 PRINT"THERE IS NO WAY AROUND":PRINT"IT [192][192] YOU'RE DEAD! 225 [153]"ONLY IN MOVIES DO HEROES ALWAYS WIN!":[141]5 226 [153]"LOAD THANK YOU FOR DROPPING BY 227 PRINT" YOU ARE BEING RETURNED TO [155]LOADSTAR":GOSUB5 285 F$="HELLO CONNECT":GOTO291 291 SYSSA+3:POKE53280,0:POKE53281,0:POKE49152,0:SYS49935 293 PRINT"[144]LOAD"CHR$(34)F$CHR$(34)","DV:PRINT"RUN" 294 POKE631,13:POKE632,13:POKE198,2:END 340 REM *** CITYSCAPE3 341 PRINT"[147][153] [155] [153] [152][167][153] "; 342 PRINT" [155].[153] [155].[153] [152] [190][188][146] [153] [155].[153] "; 343 PRINT" [155].[153] [155] [153] [155] [153] [155].[153] [152]"; 344 PRINT"[161] [190][146][161][153] [155].[153] [155].[153] [155] [153] [155].[153]"; 345 PRINT" [152][161][187] [146][161][153] [155] "; 346 PRINT"[153] [152][172][187][153][146] [152][165] [190][167][153][146] [151]"; 347 PRINT"[184] [184][153][146] [155].[153] [155] [153] [152] [153][146] [151][223][146] [155]."; 348 PRINT"[153] [152][165] [167][155][146].[153] [151] [146][191] [153][146] [155] [153] "; 349 PRINT" [152][181] [182][155][146] [151] [223][146] [169][153][146] [152][165][190] [167][153][146] [155].[153]"; 350 PRINT" [151] [191] [153][146] [155] [153] [151][221][155] [153] [152][165][190] [167][155][146] [151]"; 351 PRINT" [146]  [152][146][172] [146][187][151] [153] [155].[151] [146][191] [165] "; 352 PRINT" [155][146] [153] [151][184] [184][153][146] [152][165] [188][167][155][146] [151] [191] [188] [152][165] [191][167][151] "; 353 PRINT" [170][184][155][146].[151][184] [162][146][184][183][163][155] [151][163][163][163][163][155] [151][172] [187][152][165] [167][155][146]"; 354 PRINT" [151][164][164][164][191] [152][165] [167][151][191] [191][170] [164][175][162][155][146] [151] "; 355 PRINT" [152][165][188] [187] [167][151][164][164][164][170][146][190][155] "; 356 PRINT" [151][164][188][164][190][164][152][165] [181] [162][146][184][183][163][163][155] "; 357 PRINT" [152] [187][187] [188] [172][155][146] "; 358 PRINT" [152] [161] [190][190] [172][155][146] "; 359 PRINT" [152] [185][162][146][184][155]":RETURN 600 REM *** RAY NEWCUBE 601 PRINT"[147] [149][185][185][162][162][162][162][162][185][175][154] [155] "; 602 PRINT"  [150]  [149] [129][190][149] [129][188][149][146][187] "; 603 PRINT" [155]  [150] [149] [190][129] [149] "; 604 PRINT" [129] [149] [146] [155]  [150] [149] "; 605 PRINT" [129][163][163][149][163] [163][129][163][163][149] [146] [155]  [150]"; 606 PRINT" [149]  [223][163][146][209][163][149][165] [167][163][146][209][163][149][169] [146] [155] "; 607 PRINT"  [150] [149] [129][207][149] [129] [163][163][163][149] [129] [149] [129]"; 608 PRINT"[163][163][163] [149] [129][208][149][146] [155]  [150] [149] [129]"; 609 PRINT"[223][149] [129][205] [206] [205] [206][149] [129][146][169][149] [155]  "; 610 PRINT" [150] [149] [223][167][129] [149] [183][184][183] [129] [149][165][146][169] [155] "; 611 PRINT"  [150] [158] [149]  [129] [149][175][210][210][210][175][129] [149] "; 612 PRINT"[155][146] [149] [155]  [150] [149] [223][129] "; 613 PRINT" [175][175][175] [149][146][169] [155]  [150] [149] "; 614 PRINT" [129][223] [149] [129] [146][169][149] [155]  "; 615 PRINT" [150] [154] [129] [150] [129][163][163][163][149][163][163][155][146] [149] "; 616 PRINT" [155] [150] [129]  [149] [129][146] "; 617 PRINT" [155] [129][164][175][175][158][223] [129] "; 618 PRINT" [149] [158] [146][169][129][175][175][164][155]":RETURN 770 REM *** CITYSCAPE5 771 PRINT"[147][154] .[155] "; 772 PRINT" [154] [145].[155] "; 773 PRINT" [154] [152] [155] "; 774 PRINT" [151] [154]. [152][170][180][151] [154].[155] "; 775 PRINT" [154] [151][164] [152][182][181][151] "; 776 PRINT" [152][172][162][187][172][162][187][151] [154].[155] [154] [152][169][151][146][165] [186][152] [151][146] "; 777 PRINT" [152][181][182][151][146]  [154].[152][161] [182][161] [182][155][146] "; 778 PRINT"[151] [152] [223][151][146][164][152] [223][151][146] [152][172] [146][187] [152]"; 779 PRINT"[161] [182][161] [182][155][146] [151][164][152] [151][146] [164][152][169] "; 780 PRINT" [223][146] [152] [182][161] [146][187][155] [152] [146] "; 781 PRINT" [151][146][164][152] [146] [152]  [158] [152] [146] [152][172][190] "; 782 PRINT" [182][155][146] [152] [151][146] [152] [151][146]  [151][169] [146] "; 783 PRINT" [152] [146] [152] [146][162] [172] [146]  [182][146] [152][172][187][155] [151]"; 784 PRINT" [158][146] [153] [152] [153][146] [151][169] [146] [152] [191] [151]"; 785 PRINT" [152][146]  [182][151][146][164][155] [152] [151][146][165] [152][146] [151]  "; 786 PRINT" [146]  [152] [151][146]  [152][146] [151] [152] [223][151][146][164][152]"; 787 PRINT"[169] [223][151] [155] [151] [156][146] [151] [152] [151][146]  "; 788 PRINT"[151] [152][146] [151] [155][146] [152] [151] [152] [151] [155] [151] [155]"; 789 PRINT" [151] [152][146] [151] [146] [152] [151] [155] [151] [160][155][146] "; 790 PRINT"[151] [152] [151] [155] [152][146] [155] [152][146] [155] [151] [155] "; 791 PRINT" [151] [155] [151] [152] [155] [146]  [146] "; 792 PRINT"  [146]  [151] [155] [146] "; 793 PRINT"  [146]  [146]  [146]  [146][190] [188][190]  [146]":RETURN 795 REM *** CLEAR TEXT 796 FORI=HTO24:POKE781,I:SYS59903:NEXT:POKE214,J:RETURN 900 VI=53248:GOTO80 970 REM *** TRUE FACE 971 PRINT"[147]"SPC(29)"[155][162][162][162][162][162][162][150] [159] [150] "; 972 PRINT" [159] [150] [155] [152][190] [151] [152][188][155] [188][150][146] "; 973 PRINT"[159] [150] [149] [150] [159] [150] [151] [152]"; 974 PRINT"[190] [151] [152] [151] [152][188][151] [155] [159][146] [150] [155] [149] [150] "; 975 PRINT" [159] [150] [151] [152] [155] [152] [155] [151] [152] [151] [150][146] [159] "; 976 PRINT"[150] [155] [150] [159] [155][191][146] [151][191] [152] [155]"; 977 PRINT" [151] [155] [151] [146][190][155][191][159] [150] [155] [149] [150] "; 978 PRINT" [159] [150] [155][181][153][191][188][146] [151][190][152] [151][146][190][153][190][146][191][150] [155][161][159] "; 979 PRINT" [150] [159] [150] [159] [150] [155][191][153][188][191] [155] [149] [152]"; 980 PRINT" [151] [146] [153] [191][146][190][149] [155][191][159] [150] [159] [150] "; 981 PRINT" [159] [150] [151][190][146][187][153]  [151][188] [146][190][153] [155] [151][172][152][190][155][146][190][150] [159] "; 982 PRINT" [150] [155] [154] [150] [159] [150]  [151] [152][146][161] "; 983 PRINT"[151][172][191][191] [161] [152] [146] [150] [159] [150] [155]  [150] "; 984 PRINT" [159] [150] [152][187] [151] [152][146][187] [151][161] [161][152][172][151] [152] [155][172][150][146] [152] [159] [152] "; 985 PRINT"[150] [155]  [150] [159] [150] [155] [152] [188][151][146][172][190]"; 986 PRINT"[161][161][191][152][161] [155] [150][146] [159] [152] [150] [155]  [150] "; 987 PRINT" [159] [150] [155][188] [161][146] [161][161][161][161] [146][190][150] [159] [152] [150] "; 988 PRINT"  [150] [155] [172][152][161][146] [161][155][161][161][146][188] [146] [150]"; 989 PRINT" [152]  [155]  [150] [155][182] [152][146]"; 990 PRINT" [155][190][152][161][146] [155][161][146] [190] [146][181][152] [150] [155]  [150]"; 991 PRINT" [155][182] [150][146] [152] [155][190] [190][150] [155] [146][181][152] [150] "; 992 PRINT"  [150] [155][187][188][150][146] [155]"; 993 PRINT"[190][172][152][146] [150]  [150] [155]"; 994 PRINT" [146][187][150] [155][172] [152][146] [150] [155]":RETURN 10000 D=PEEK(186):N$="0:INF2.PT6":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END