0 REM ***** SAVE"@0:INF2.PT4",8 1 DV=PEEK(186):IFDV<8THENDV=8 2 POKE53272,29:GOTO690 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 100 REM *** CITYSCAPE 101 PRINT"[147][154] .[155] "; 102 PRINT" [154] .[155] "; 103 PRINT" [154] [151][167][155] "; 104 PRINT" [151] [154]. [151][217][165] [154].[155] "; 105 PRINT" [154] [151][164] [200][212] "; 106 PRINT"[176][192][174][176][192][174] [154].[155] [154] [151][206][165] [186][167] [194][194]  "; 107 PRINT" [154].[151][194][158].[151][194][194][158].[151][194][155] [151] [180][205][164][165][158].[151][163][205] "; 108 PRINT"[176][207][183][183][208][174] [151][194][158].[151][194][194][158].[151][194][155] [151][164][180][158]"; 109 PRINT".....[151][167] [164][206] [158].... [151][205] [151][194][158].[151][194][194][158].[151]"; 110 PRINT"[173][174][155] [151] [158].....[151][167][164][165][158]. [158].. [158] .[151][208] "; 111 PRINT" [151][176][192][189] [151][173][189]  [151][194][155] [151]  "; 112 PRINT" [158].. [151][170] [151][207][177][208][220][158]... [158]. [158].[151][221] [151][176][174]"; 113 PRINT"[155] [153] [158] [153]  [151][183][183] [153]"; 114 PRINT" [151][221][164][155] [151][180][155] [151][165]  "; 115 PRINT" [153] [158].[151][205][164][206][155] [151][205] " 116 PRINT"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":RETURN 200 REM *** OPTIONS TABLE 201 PRINT""SPC(16)"[155]OPTIONS":PRINT" [156] 1 [146] [155]"A$ 202 PRINT" [156] 2 [146] [155]"B$:PRINT" [156] 3 [146] [155]"C$:C=0 203 IFX=1THENPRINT"[145][145][145][145][145][155] 1 [156]"A$ 204 IFX=2THENPRINT"[145][145][145][155] 2 [156]"B$ 205 IFX=3THENPRINT"[145][155] 3 [156]"C$ 206 GOSUB5:IFK$=""ANDX<3THENX=X+1 207 IFK$="[145]"ANDX>1THENX=X-1 208 IFK$=CHR$(13)THENC=X:RETURN 209 GOTO200 286 F$="INF2.MAIN":GOTO291 289 F$="INF2.PT3":GOTO291 290 F$="INF2.PT2" 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 690 SYS49615:POKE781,0:POKE782,150:SYS49664 716 REM *** SETUP VARIABLES 717 VI=53248:PG=64:SA=PG*256:SP=248 718 SS=49152:POKEVI+32,0:POKEVI+33,0 719 POKEVI+29,255:FORZD=39TO47:POKEVI+ZD,4:NEXT:GOTO840 730 REM *** CITYSCAPE4 731 PRINT"[147][155][172][162][162] [151] [150] [151] [154] [151] [154]  [151] "; 732 PRINT" [151]  [150] [155][161][190] [146][192][192][192][174][159].[151] [150] [151] [150] [154]"; 733 PRINT" [150] [154]  [155]. [151]  [150] [155][161][190] [158][146][188] [155]"; 734 PRINT" [221][151] +[151] [150] [155].[150] [154] [155].[154]  . "; 735 PRINT"[151] [175][175][175][150] [155][161][190][190][158][146][188] [155] [221][151] [159].[149] +[149]"; 736 PRINT" [159].[149]  [151][180][158][172] [151][180][155][161][190][190][151][146] [158][188][188][155][221][151] "; 737 PRINT" [150] [149] [155]+[149] [151]  .[151] [175][180][158][187] [151]"; 738 PRINT"[204][155][161][190] [158][146][188] [188][155][221][152]...[149][146] [159].[129] [149] [151] [155] [172]"; 739 PRINT" [172] [146] .[151] [165][158] [172] [150] [155][161][190][190][158][146][188] [155][221][152].. [149]"; 740 PRINT"[146] [151] [152][172][172][172][155][172][172][172][172] [146] [151] [165][158]  [150] "; 741 PRINT"[155][161][190][190][151][146] [158][188][155][221][152]...[151][168][168][168][182][146] [159].[151] [152][172][191][191][155] [162][162]"; 742 PRINT"[162][162][146][174][152][166][166][166][146][186][207][204][151] [165] [158][172] [150] [155][161][190][190][158][146][188] [155][221][152].."; 743 PRINT".[151][168][168][168][182][146]  [155][172][158][146] :::[155][221][152][166][166][166][146][180][158][220][220][152][180][151][165]"; 744 PRINT"[158] [187] [150] [155][161][190][190][158][146][172] [155][221][152]...[151][168][168][168][182][146] [155][164][164][164][151] [190]"; 745 PRINT"[190][190][155][172][158][146]::::[155][221][152][166][166][166][146][165][158][220][220][152][165][151][165][158] [187][150] [155][161][190][190][146] "; 746 PRINT" [155][221][152]. .[151][168][168][168][182][152][146][170][158][168]::[151] [190][158][146]:[168][155][172][158][146]:: :[155][221]"; 747 PRINT"[152][166][166][166][146][165][158] [220][152][165][151][165][158]  [150] [155][161][190][190][146] [155][221][152].[155][146][207][208]"; 748 PRINT"[151][168][155][146][207][208][151][182][152][146][170][158][168] :[151] [190][158][146]:[168][155] [158][146]::::[155][221][152][166][166]"; 749 PRINT"[166][146][165][158][220][220][152][165][151][180][158] [187] [150] [155][161] [190][146] [158][191][155][221][152].[155][146][180][170][151][168]"; 750 PRINT"[155][146][165][170][151][182][152][146][170][158][168]::[155] [158]::[168][155][172][158][146]: ::[155][221][152][166][166][166][146][165][158][220]"; 751 PRINT"[220][152][165][151][165] [158]  [150] [155][161][190][190][146] [158][191] [155][221][152].[155][146][180][170][151][168][155][146][180]"; 752 PRINT"[170][151][182][152][146][167][158][168] [155] [158]: [158][168][155][172][158][146]::::[155][221][152][166][166][166][146][165][158][220]"; 753 PRINT" [151][178][190][158] [187] [150] [155] [190] [146] [155][221][152].[155][146][180][158][190][155] [158][190] [155][221]"; 754 PRINT"[152][167][158][168]:: [158]:: [155][172][158][146]: [158]::[155][221][152][166][166][166][158][146][220][220] [151][221][158]"; 755 PRINT"[172]  [150] [155] [190][190][146]  [158][191][155][221][152].[155][146][180][158][187][190][187][190][155][221][152][167][158][168]: "; 756 PRINT" [158]::[168][155] [146] [158]:::[155][221][152][166][166][166][158][146][220][220][220][151][221] [150] [191][190]"; 757 PRINT"[188][155][146]  [190][188][152],[155][146][180][190][188][146][187][158][190][155][221][191][191][188][158][146]: [190][191][146]"; 758 PRINT"[187][155][172][158][146]:[187] [172][162][162][152][166][166][146][162][158][220][220][191][146][162][185][158][187] [150] [191]"; 759 PRINT" [172][188] [146][191] [188][190] [191][184][146][191] [188][146][191] [146][187] [146][191] [188][146] [188][146][191]"; 760 PRINT" [146][191][191] [190][146][191] [146][191][191][188][191][188][146][191][191][162][146][191][191][191][191][146][191][188][146][191][190][191][190]"; 761 PRINT" [146][191][191][191] [146][191][191][162][146][191] [191][191][190][191][146][191][191][190] [191][191][190][188] [146][191][191] [149][146][182]"; 762 PRINT"[172][146][190][191] [149][190][146][188][149][188][172][190][172][162][149][188][162][146][187][191][172][149][146][161][188][188][172][149][190]"; 763 PRINT"[146][184][172][149][146][161][187][191][172][146][191][172][149][146][161][191][187][149][190][146][191][172][149][188][146][191] [146][190]"; 764 PRINT"[149][182][161][150] [149][182][150] [149][184][161][150] [149][161][150][146] [149][161][150][146] [149][191][150] [149][161]"; 765 PRINT"[150] [149][161][150] [149][161][150] [149][188][161][150] [149][186][181][150] [149][182][150][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 840 REM *** SETUP SINUS INTERRUPT 841 SYSSA 842 REM *** POKE SPRITE DATA 852 POKEVI+21,0:REM TURN SPRITES ON 853 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB770 854 POKESA+6,3:POKESA+7,3:POKESA+8,ZZ 855 POKESA+9,ZZ:POKESA+10,ZY 856 POKESA+13,ZX 857 POKEVI+37,14:POKEVI+38,ZC 860 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 861 IF ZY=40 THEN ZY=10:ZX=ZX+5 862 Y=Y+1:IFY<3THENZC=5 863 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=8THENYY=0:GOTO866 864 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THEN870 865 GOTO854 866 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 867 IFXX=1ANDPEEK(VI+21)=1THENGOSUB100:XX=2 868 IFXX=3ANDPEEK(VI+21)=1THENGOSUB730:XX=4 869 GOTO864 870 REM *** TURN OFF SINUS 871 POKEVI+21,0 872 POKEVI+32,0:POKEVI+33,0 875 REM *** GAMESTART 876 GOSUB730:PRINT"IT IS LATE EVENING SO LUTHELCORP OFFICES 877 [153]"ARE OBVIOUSLY CLOSED TANTANONON":[141]5:[151]VI[170]38,4:[151]VI[170]21,1 878 [129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5 879 [153]"ONONTHAT'S OK, YOU WANTED TO MAKE THIS TRIP " 880 [153]"AN UNOFFICIAL VISIT. ONON":[141]5:[151]VI[170]21,1:[129]T[178]1[164]3000:[130] 881 [151]VI[170]21,0:[141]950:[153]"YOU DROP BY THE CRIME" 882 [153]"LAB TO SEE NICK RAGSODY":[153]"TO ASK HIM HOW HE WOULD" 883 [153]"GET IN SUCH A HI-TECH":[153]"FACILITY.":[153]"NICK TELLS YOU LUTHEL 884 PRINT"CORPORATION USES A VERY 885 [153]"STANDARD KEYPAD DOORLOCK. ALL YOU NEED TO GET IN IS AN ENTRY CODE. 886 PRINT"LUTHELCORP ENTRY CODES ARE HARD TO GET YOUR HANDS ON.[145][145][145]":GOSUB5 887 C$=" PROCEED [192] YOU HAVE ENTRYCODE ":B$=" SEE IF SNITCH HAS ENTRYCODE ":X=3 888 A$=" SEARCH TOLSEN'S FOR ENTRYCODE"::GOSUB770:GOSUB200:ONCGOTO289,290,889 889 PRINT"[147] L U T H E L C O R P":POKE53281,15 890 PRINT" ENTER YOUR ACCESS CODE: [156]?????????[157][157][157][157][157][157][157][157]";:INPUT R$ 891 IFR$="246801"THEN896 892 POKE53281,0:GOSUB770:PRINT"[155] HIT L[146] TO RETURN TO LOADSTAR" 893 PRINT" ANY OTHER KEY RESTARTS GAME":F$="LOADSTAR":GOSUB5 894 IFK$="L"THEN291 895 GOTO286 896 PRINT" PLEASE REMAIN STILL DURING RETINA SCAN 897 [129]T[178]1[164]6000:[130]:[151]53281,0:[141]940:[151]53281,15:[151]646,0 898 [153]"LOAD WELCOME TO FACILITY 14 899 PRINT" [209] YOUR CURRENT WYVYKRUL IS NOT ON FILE  WITH CENTRAL PROCESSING. 900 [153]" (null) YOUR CURRENT WYVYKRUL SHOWS NO SIGNS  OF DETERIORATION. 901 PRINT" [209] MEDICAL EXAM EVERY 60 PLANETARY DAYS  IS ADVISED. 902 [153]" ELEVATOR 3 IS WAITING FOR YOU 903 PRINT" YOU MAY PROCEED TO TEV 20":IM=IM+1:IFIM=3THEN906 904 FORT=1TO900:NEXT:IFIM<3THENPOKE646,12:IFM<2THENPOKE646,1 905 GOTO898 906 GOSUB5:POKE53281,0:GOSUB770:PRINT" Y O U ' R E I N ! ! ! 907 [151]VI[170]38,4:[151]VI[170]21,255:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5 908 [129]T[178]1[164]1000:[130]:[151]VI[170]21,255:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,4 909 [141]770:[153]"YOU CROSS YOUR FINGERS FOR LUCK AND GET 910 PRINT"INSIDE THE WAITING ELEVATOR. 911 [153]"YOU EXPECT TO GO UP BUT SUDDENLY TANTAN":[141]5:[151]VI[170]21,127 912 [129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5 913 [153]"ONONONONONONYOU ARE PLUMMETING DOWNWARD AT AN ALMOST 914 PRINT"BLINDING SPEED. YOU FEEL LIKE YOU ARE GOING TO LOSE YOUR DINNER. 915 [153]" " 916 [153]" WHEN IS THIS RIDE GOING TO END?ONONON":[141]5:[151]VI[170]21,0 917 [151]VI[170]21,127:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:F$[178]"INF2.PT6":[137]291 920 VI[178]53248:[141]730:[137]875 940 [143] *** RETINA SCAN 941 [153]"LOAD":E$[178]" ":[129]A[178]1[164]9:[141]943:[141]942:Z$[178]"WAIT ":[130]:[153]"LIST":[142] 942 [153]"LOAD":[129]B[178]1[164]24:[153]E$[170]"CLR ":[130]:E$[178]E$[170]Z$:[142] 943 TT[178]10:[129]Y[178]1[164]6:[141]944:[130]:[142] 944 [151]53281,4:[151]53280,4:[151]53281,0:[151]53280,0:[142] 950 [143] *** NICK RASGODY 951 [153]"LOAD"[166]29)"COS*FRE FREWAITNEW "; 952 [153]" LIST PRINT CONT NEW WAIT "; 953 [153]" LIST PRINT CONT COS "; 954 [153]" LOGWAIT PRINT CONT INT "; 955 [153]" ANDNEWPOSAND ABSWAIT LIST PRINT CONT "; 956 [153]" LOG * ANDDEFWAITTAN NEWNEWGET*WAIT LIST PRINT CONT"; 957 [153]"  SINSINWAITLOGNEWUSRTHENDEFPOSPOSFN WAITGET "; 958 [153]" LIST PRINT CONT  DEFGETWAITINTANDANDSQRDEF "; 959 [153]"(null)ANDWAITCOS LIST CONT GET DEFGET"; 960 [153]" ASCASC WAIT LIST PRINT CONT "; 961 [153]" RNDLOGDEFRND *WAIT LIST CONT "; 962 [153]" POSRNDDEF FREFREFRE WAIT "; 963 [153]"LIST PRINT CONT COS DEFWAITLOG FRE WAITCOSSIN "; 964 [153]" LIST PRINT CONT GET FREFRE(null)COS WAIT"; 965 [153]"GETGET LIST CONT GET "; 966 [153]" ABS ABSABSWAITLIST":[142] 10000 D[178][194](186):N$[178]"0:INF2.PT4":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]