0 REM ***** SAVE"@0:INF2.PT5",8 1 DV=PEEK(186):IFDV<8THENDV=8 2 POKE53272,29:GOTO540 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 140 REM *** CITYSCAPE2 141 PRINT"[147][155] [156] [158] [185][185][185][185][185] [151] [156] [155] [156] [159] [156]  ."; 142 PRINT" [156]  [156]  [155] [158] [156] [158] [156]  [156] [159] [181][151] "; 143 PRINT" [182] [151] [156] [159]  [156]  [156]  [156]  . [155] "; 144 PRINT" [158] [155]. [181] [182] [151] . [156] [158]  [156]  "; 145 PRINT" [158]. [155] [158] . [155]. [181][151]  [188][183][208][156] [159]"; 146 PRINT"  . [156]  [155]. [155] [158] [167][183][183][183][204]"; 147 PRINT"[175][175][181] [167] [156] [158]  [156]  . [167][183][183][180][155] "; 148 PRINT"[158] [159].[167] [167][175][175][175][175] [156] [159]  [167][184][184][184][180] [167]"; 149 PRINT" [165][155] [175][175][175][186] [151] [167][175][175][175][175][175][186] "; 150 PRINT"[204][175] [167] [183][183][183][204] [154] [159] [154]  [151] "; 151 PRINT" [167][175][186][155]  [159] "; 152 PRINT"  [159] "; 153 PRINT" [159]  [155][175][210][175] [154]  [159] "; 154 PRINT"  [155][175][178][175][159] [155][175][178][175][159]  [156][164][209][155]"; 155 PRINT"[200][209] [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][209][155][221][209][159] [156][164][164][164][164][164][164][164][159] [209]"; 156 PRINT"[155][221][153][209][156][164][164][164][164][159]  [155][200] [159]   [155] [221]"; 157 PRINT"[159]  [159]  [159]  [159] [155][221][159]  [153] [155][200] [159] "; 158 PRINT"  [159] [155][221][159]  [159]  [159]  [159] [155][221]":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 288 F$="INF2.PT4":GOTO291 289 F$="INF2.PT3":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 540 SYS49615:POKE781,0:POKE782,150:SYS49664 566 REM *** SETUP VARIABLES 567 VI=53248:PG=64:SA=PG*256:SP=248 568 SS=49152:POKEVI+32,0:POKEVI+33,0:POKEVI+29,255 569 FORZD=36TO47:POKEVI+ZD,5:NEXT 570 REM *** SETUP SINUS INTERRUPT 571 SYSSA 572 REM *** POKE SPRITE DATA 582 POKEVI+21,0:REM TURN SPRITES ON 583 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB730 584 POKESA+6,3:POKESA+7,3:POKESA+8,ZZ 585 POKESA+9,ZZ:POKESA+10,ZY 586 POKESA+13,ZX 587 POKEVI+37,14 588 POKEVI+38,ZC 590 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 591 IF ZY=40 THEN ZY=10:ZX=ZX+5 592 Y=Y+1:IFY<3THENZC=5 593 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=8THENYY=0:GOTO596 594 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:GOTO800 595 GOTO584 596 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 597 IFXX=1ANDPEEK(VI+21)=1THENGOSUB770:XX=2 598 IFXX=3ANDPEEK(VI+21)=1THENGOSUB140:XX=4 599 GOTO594 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 670 REM *** THAD VYNER (RODENT) 671 PRINT"[147]"SPC(27)"[150][149] [150] "; 672 PRINT" [149] [185][185][185][185][184][184][184][184][146][185] [150] "; 673 PRINT" [149] [190] [146] [150] "; 674 PRINT" [149] [188][150][146] "; 675 PRINT" [149][187] [185][185][150][190][149][162] [150][188][149] "; 676 PRINT" [150][146] [149][190] [150] [192][192] "; 677 PRINT" [192][192] [149] [188][150][146] [155] [150] [149]"; 678 PRINT"[190] [150][172][146][187][162][150][188] [146][190][187][184][150][187][149] [150][146] "; 679 PRINT" [155] [150] [149][188] [150][188][183][183][190] [188][183][183][190][149] [146][190][150] "; 680 PRINT" [155] [150] [149][187] [150] [206][188][187][172][190][205] [149] "; 681 PRINT"[172][150][146] [155] [150] [149] [150] [167] "; 682 PRINT"[188][190] [165] [149] [150][146] [155] [150] "; 683 PRINT"[149] [150][146][188] [183][197][197][183] [146][190][149] [150][146] "; 684 PRINT"[155] [150] [129] [149][188] [150][146][188] [183][183] [146][190][149] [172][152][146] [150] "; 685 PRINT" [155] [150] [149] [150] [149] [150][146][188] [149] "; 686 PRINT" [150] [146][190][149] [146][190][150] [151] [150] [155] [150] "; 687 PRINT" [154] [150] [162][149] [150][146][162] [154] [150] "; 688 PRINT" [154] [150][172] [183][183] [146][187][154] [150] "; 689 PRINT" [155] [150] [190] [146]  [188][146][155]":RETURN 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 800 REM *** TURN OFF SINUS 801 POKEVI+21,0 802 POKEVI+32,0:POKEVI+33,0 805 REM *** GAMESTART 806 GOSUB600:PRINT"WHIRRY'S OLD WAREHOUSE IS QUIET, CLOSED 807 [153]"FOR THE EVENING. (DAYTIME, IT IS RUN BY 808 PRINT"A SKELETON CREW.) SO YOU AREN'T WORRIED 809 [153]"THAT SOMEONE MIGHT SEE YOU BREAKING IN.":[141]5 810 [153]"ONONONONONONONYOU SPEND AN HOUR OR TWO LOOKING INSIDE 811 PRINT"CRATES NOT REALLY CERTAIN WHAT YOU ARE " 812 PRINT"LOOKING FOR, HOPING YOU WILL GET LUCKY " 813 PRINT"AND GET A BREAK ON THIS CASE. ":GOSUB5 814 GOSUB770:PRINT"YOU BREAK INTO THE RECEIVING OFFICE AND 815 [153]"GO THROUGH THE BILLS OF LADING. MOST OF 816 PRINT"THE CHEMICAL NAMES MAKE NO SENSE SO YOU 817 [153]"WRITE THEM IN YOUR BACKPOCKET NOTEBOOK.ONONON":[141]5:[151]VI[170]38,4 818 [151]VI[170]21,7:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5 819 [153]"ONONONONYOU LEAVE, HEADING STRAIGHT FOR FENDER'S 820 PRINT"ALL NIGHT 'STARTOWER' CYBERCAFE. THERE " 821 PRINT"YOU DROP ALL OF YOUR NOTES INTO CLARK'S 822 [153]"OFFICE E-MAIL WHERE THEY'LL BE SAFE. ONONON":[141]5:[151]VI[170]21,7 823 [129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[141]670:[153]"ON LEAVING THE STAR- 824 PRINT"TOWER CYBERCAFE, YOU":PRINT"REALIZE YOU'VE PICKED 825 [153]"UP A TAIL. YOU KNOW":[153]"HIM TANTAN THAD VYNER. 826 PRINT"NO TIME FOR HIM, YOU":PRINT"LOSE HIM AND GET BACK 827 [153]"TO BUSINESS.":C$[178]" TURN TABLES AND FOLLOW VYNER " 828 B$[178]" DROP BY MURPHY'S TO SMALLTALK":A$[178]" VISIT LOCAL LUTHELCORP OFFICE":X[178]1 829 [141]200:[145]C[137]288,289,830 830 [141]730:[153]"BAD MOVE TANTAN YOU DO NOT SEE THE CAR THAT 831 PRINT"DELIBERATELY RUNS YOU DOWN [192][192][145][145]":GOSUB5:POKEVI+38,4:POKEVI+21,3 832 FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,5:F$="HELLO CONNECT" 833 PRINT"[147]YOU ARE BEING RETURNED TO LOADSTAR":GOSUB5 834 POKEVI+21,3:FORT=1TO3000:POKEVI+21,0:GOTO291 900 VI=53248:GOTO805 10000 D=PEEK(186):N$="0:INF2.PT5":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END