0 REM ***** SAVE"@0:INF2.PT2",8
1 DV=PEEK(186):IFDV<8THENDV=8
2 POKE53272,29:GOTO360
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"[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
287 F$="INF2.PT5":GOTO291
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
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
360 SYS49615:POKE781,0:POKE782,150:SYS49664
387 VI=53248:PG=64:SA=PG*256:SP=248
388 SS=49152:POKEVI+32,0:POKEVI+33,0
389 POKEVI+29,255:FORZD=39TO47:POKEVI+ZD,4:NEXT:GOTO480
480 REM *** SETUP SINUS INTERRUPT
481 SYSSA
492 POKEVI+21,0:REM TURN SPRITES ON
493 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB140
494 POKESA+6,3:POKESA+7,3:POKESA+8,ZZ
495 POKESA+9,ZZ:POKESA+10,ZY
496 POKESA+13,ZX
497 POKEVI+37,14
498 POKEVI+38,ZC
500 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5
501 IF ZY=40 THEN ZY=10:ZX=ZX+5
502 Y=Y+1:IFY<3THENZC=5
503 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=8THENYY=0:GOTO506
504 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THEN510
505 GOTO494
506 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1
507 IFXX=1ANDPEEK(VI+21)=1THENGOSUB340:XX=2
508 IFXX=3ANDPEEK(VI+21)=1THENGOSUB730:XX=4
509 GOTO504
510 REM *** TURN OFF SINUS
511 POKEVI+21,0
512 POKEVI+32,0:POKEVI+33,0
513 GOSUB140
515 REM *** GAMESTART
516 PRINT"TOLSEN LIVED IN AN ABANDONED BUILDING [192][192]
517 [153]"HE WAS A JUNKIE TANTAN SO THERE IS A CHANCE
518 PRINT"HE LEFT SOMETHING BEHIND THAT WILL GIVE
519 [153]"YOU SOME IDEA OF WHAT WHIRRY WAS INTO.":[141]5:[151]VI[170]38,4
520 [151]VI[170]21,31:[129] T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5
521 [153]"ONONONONONONON(YOU KNOW THIS CASE IS NOT AS SIMPLE AS "
522 [153]"IT LOOKS.)  AS YOU CLIMB THE STAIRS OF "
523 [153]"TOLSEN'S PLACE, YOU HEAR TANTAN SOMEONE IS "
524 [153]"SEARCHING TOLSEN'S PLACE!             ":[141]5:[151]VI[170]21,31
525 [129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[141]640:[153]"IT IS LACY LUNE!  THOUGH
526 PRINT"SHE HAS CUT AND DYED HER":PRINT"HAIR, YOU RECOGNIZE HER
527 [153]"IMMEDIATELY.  (YOU HEARD":[153]"SHE WAS BACK IN TOWN BUT
528 PRINT"THIS ISN'T WHERE YOU EXPEC-":PRINT"TED TO FIND THIS RABBIT!)
529 [153]"SHE MAKES A BREAK FOR IT":[153]"BUT YOU CATCH HER WITH EASE.  SHE ";
530 [153]"BREAKS":[153]"INTO TEARS BUT YOU ARE NOT MOVED THOUGH
531 PRINT"IT MAY NOT BE COMPLETELY AN ACT.":GOSUB5:H=18:J=0:GOSUB795
532 PRINT"LACY GIVES IN.  SHE TELLS":PRINT"YOU TOLSEN KEPT A METAL "
533 PRINT"BOX UNDER THE FLOORBOARDS.":PRINT"YOU FIND IT EMPTY EXCEPT
534 [153]"FOR A SCRAP OF PAPER THAT":[153]"READS:  CLRLUTHELCORP 246801  "
535 [153]"LIST(LACY IS DISAPPOINTED.  YOU":[153]"LET HER GO.)"
536 C$[178]" DROP BY MURPHY'S TO SMALLTALK":B$[178]" VISIT LOCAL LUTHELCORP OFFICE":X[178]3
537 A$[178]" VISIT WHIRRY'S OLD WAREHOUSE ":[141]200:[145]C[137]287,288,289
600 [143] *** RAY NEWCUBE
601 [153]"LOAD               VERIFYPOSPOSNEWNEWNEWNEWNEWPOSANDCONT       LIST      ";
602 [153]"       DEF       VERIFY   FORCOSVERIFY         FORLOGVERIFYWAITRND ";
603 [153]"  LIST               DEF      VERIFY   COSFOR VERIFY     ";
604 [153]"    FOR VERIFY WAIT    LIST              DEF     VERIFY    ";
605 [153]" FORTAB(TAB(VERIFYTAB(     TAB(FORTAB(TAB(VERIFY WAIT     LIST             DEF";
606 [153]"   VERIFY       (null)TAB(WAIT(null)TAB(VERIFYFN THENTAB(WAIT(null)TAB(VERIFYSTEP WAIT     LIST ";
607 [153]"            DEF   VERIFY     FOR(null)VERIFY FOR TAB(TAB(TAB(VERIFY FOR VERIFY FOR";
608 [153]"TAB(TAB(TAB( VERIFY FOR(null)VERIFYWAIT     LIST            DEF  VERIFY      FOR";
609 [153]"(null)VERIFY FOR(null)  (null)   (null)  (null)VERIFY FORWAITSTEPVERIFY       LIST         ";
610 [153]" DEF  VERIFY       (null)THENFOR  VERIFY USRFREUSR FOR  VERIFYFNWAITSTEP      LIST  ";
611 [153]"          DEF SYS VERIFY         FOR  VERIFYAND(null)(null)(null)ANDFOR  VERIFY ";
612 [153]"LISTWAIT VERIFY      LIST            DEF   VERIFY       (null)FOR ";
613 [153]"  ANDANDAND   VERIFYWAITSTEP         LIST          DEF    VERIFY  ";
614 [153]"     FOR(null) VERIFY     FOR WAITSTEPVERIFY          LIST        ";
615 [153]"  DEF    CONT FOR       DEF FORTAB(TAB(TAB(VERIFYTAB(TAB(LISTWAIT VERIFY         ";
616 [153]"  LIST             DEF FOR             VERIFY FORWAIT   ";
617 [153]"     LIST                  FORTOANDANDSYS(null)     FOR   ";
618 [153]" VERIFY SYS     WAITSTEPFORANDANDTOLIST":[142]
640 [143] *** LACY LUNE2
641 [153]"LOAD                    DEF      PRINT   SYS *   SIN WAITRND  PRINT# DEF        ";
642 [153]"            DEF     FOR   SYS      WAITSIN  LOGWAIT  ";
643 [153]"PRINT#   DEF            LIST    DEF      FOR  SYS  COS  ";
644 [153]"*DEFCOS*ABSSYS  WAITRND PRINT# DEF             LIST  CLR      DEF  ";
645 [153]"   SYS *  WAITCOSDEFCOS  ABSSYS  WAITGETDEF       FOR DEF       ";
646 [153]" LIST CLR       DEF     SYSLOG  DEFWAITLOG ASC*SYSCOS  WAITCOSDEF    ";
647 [153]"            LIST CLR        DEF     SYSRNDANDWAITRNDDEFSINNEW";
648 [153]"WAIT SYSCOSANDDEFWAIT                 LIST  CLR         SYS";
649 [153]"  DEF *SINCLRSTEPSYSWAITCOSDEF LOGCLR(null)DEFWAITSINRND  FOR  DEF            ";
650 [153]"  LIST CLR          SYS DEF *CLRCOS DEF  *CLR SINDEF WAITRNDFOR  DEF";
651 [153]"               LIST CLR         PRINT  DEFABSCLR+  LOGWAIT*";
652 [153]"  ABSDEF WAITGETFOR DEF               LIST  CLR          ";
653 [153]" DEF+LOGCLRRNDTOWAITSTEPLOGANDTOWAITCOSDEF WAITGETSYS DEF               ";
654 [153]"LIST  CLR           DEFABS WAITFNCLRINT   WAITGETDEFTHEN WAITINT     ";
655 [153]"            LIST CLR           DEFTHEN WAITFNCLRGET   WAITGET";
656 [153]"DEFTHEN WAITSGN  FOR DEF              LIST CLR            ";
657 [153]"DEF WAITFNCLR+   WAITSGNDEF+ WAITFN               LIST   CLR ";
658 [153]"           DEF WAITFNCLRCOS   LOGDEFWAIT+ WAIT           ";
659 [153]"        CLR            DEF CLRWAITABS     WAITGETDEF WAIT ";
660 [153]"                LIST  CLR            DEFRNDCLRSGN   ";
661 [153]"  +DEFRNDWAIT                 LIST  CLR            DEF";
662 [153]"LOGCLRSGN  +  ABSDEFWAITCOS                 LIST  CLR      ";
663 [153]"       GET  +  WAITINTDEF                 LIST   CLRLIST":[142]
730 [143] *** CITYSCAPE4
731 [153]"LOADLIST*NEWNEW POKE        DEF      POKE CONT      POKE CONT    POKE ";
732 [153]"   POKE     DEF LISTGETCOS WAITTANTANTAN^OPEN.POKE   DEF POKE DEF     CONT";
733 [153]" DEF CONT             LIST.  POKE   DEF LISTGETCOS SYSWAITLOG LIST";
734 [153]" (null)POKE   +POKE DEF   LIST.DEF   CONT       LIST.CONT   .    ";
735 [153]"POKE ANDANDANDDEF LISTGETCOSCOSSYSWAITLOG LIST (null)POKE  OPEN.VERIFY            +VERIFY";
736 [153]"  OPEN.VERIFY          POKESGNSYS* POKESGNLISTGETCOSCOSPOKEWAIT SYSLOGLOGLIST(null)POKE  ";
737 [153]"     DEF VERIFY LIST+VERIFY        POKE      .POKE   ANDSGNSYSRND POKE";
738 [153]"(null)LISTGETCOS SYSWAITLOG LOGLIST(null)PRINT#...VERIFYWAIT  OPEN.FOR  VERIFY    POKE   LIST *";
739 [153]" * WAIT .POKE      FNSYS * DEF LISTGETCOSCOSSYSWAITLOG  LIST(null)PRINT#.. VERIFY";
740 [153]"WAIT POKE        PRINT#***LIST**** WAIT POKE       FNSYS   DEF ";
741 [153]"LISTGETCOSCOSPOKEWAIT  SYSLOGLIST(null)PRINT#...POKENOTNOTNOTABSWAIT OPEN.POKE   PRINT#*SINSINLIST NEWNEW";
742 [153]"NEWNEWWAIT^PRINT#SPC(SPC(SPC(WAITSQR(null)(null)POKE FN SYS* DEF LISTGETCOSCOSSYSWAITLOG  LIST(null)PRINT#..";
743 [153]".POKENOTNOTNOTABSWAIT        LIST*SYSWAIT :::LIST(null)PRINT#SPC(SPC(SPC(WAITSGNSYS(null)(null)PRINT#SGNPOKEFN";
744 [153]"SYS RND DEF LISTGETCOSCOSSYSWAIT*  LIST(null)PRINT#...POKENOTNOTNOTABSWAIT LISTTOTOTOPOKE COS";
745 [153]"COSCOSLIST*SYSWAIT::::LIST(null)PRINT#SPC(SPC(SPC(WAITFNSYS(null)(null)PRINT#FNPOKEFNSYS  RNDDEF LISTGETCOSCOSWAIT ";
746 [153]"  LIST(null)PRINT#. .POKENOTNOTNOTABSPRINT#WAIT+SYSNOT::POKE COSSYSWAIT:NOTLIST*SYSWAIT:: :LIST(null)";
747 [153]"PRINT#SPC(SPC(SPC(WAITFNSYS (null)PRINT#FNPOKEFNSYS   DEF LISTGETCOSCOSWAIT   LIST(null)PRINT#.LISTWAIT(null)(null)";
748 [153]"POKENOTLISTWAIT(null)(null)POKEABSPRINT#WAIT+SYSNOT :POKE COSSYSWAIT:NOTLIST SYSWAIT::::LIST(null)PRINT#SPC(SPC(";
749 [153]"SPC(WAITFNSYS(null)(null)PRINT#FNPOKESGNSYS RND DEF LISTGET COSWAIT  SYSSINLIST(null)PRINT#.LISTWAITSGN+POKENOT";
750 [153]"LISTWAITFN+POKEABSPRINT#WAIT+SYSNOT::LIST SYS::NOTLIST*SYSWAIT: ::LIST(null)PRINT#SPC(SPC(SPC(WAITFNSYS(null)";
751 [153]"(null)PRINT#FNPOKEFN SYS  DEF LISTGETCOSCOSWAIT SYSSIN LIST(null)PRINT#.LISTWAITSGN+POKENOTLISTWAITSGN";
752 [153]"+POKEABSPRINT#WAITTHENSYSNOT  LIST SYS: SYSNOTLIST*SYSWAIT::::LIST(null)PRINT#SPC(SPC(SPC(WAITFNSYS(null)";
753 [153]" POKE=COSSYS RND DEF LIST COS WAIT   LIST(null)PRINT#.LISTWAITSGNSYSCOSLIST SYSCOS LIST(null)";
754 [153]"PRINT#THENSYSNOT:: SYS:: LIST*SYSWAIT: SYS::LIST(null)PRINT#SPC(SPC(SPC(SYSWAIT(null)(null) POKE(null)SYS";
755 [153]"*   DEF LIST COSCOSWAIT  SYSSINLIST(null)PRINT#.LISTWAITSGNSYSRNDCOSRNDCOSLIST(null)PRINT#THENSYSNOT: ";
756 [153]" SYS::NOTLIST WAIT SYS:::LIST(null)PRINT#SPC(SPC(SPC(SYSWAIT(null)(null)(null)POKE(null)    DEF SINCOS";
757 [153]"LOGLISTWAIT  COSLOGPRINT#,LISTWAITSGNCOSLOGWAITRNDSYSCOSLIST(null)SINSINLOGSYSWAIT: COSSINWAIT";
758 [153]"RNDLIST*SYSWAIT:RND *NEWNEWPRINT#SPC(SPC(WAITNEWSYS(null)(null)SINWAITNEWPOSSYSRND DEF SIN";
759 [153]" *LOG WAITSIN LOGCOS  SINFREWAITSIN   LOGWAITSIN WAITRND WAITSIN LOGWAIT LOGWAITSIN";
760 [153]" WAITSINSIN COSWAITSIN WAITSINSINLOGSINLOGWAITSINSINNEWWAITSINSINSINSINWAITSINLOGWAITSINCOSSINCOS";
761 [153]" WAITSINSINSIN WAITSINSINNEWWAITSIN SINSINCOSSINWAITSINSINCOS SINSINCOSLOG  WAITSINSIN VERIFYWAITABS";
762 [153]"*WAITCOSSIN VERIFYCOSWAITLOGVERIFYLOG*COS*NEWVERIFYLOGNEWWAITRNDSIN*VERIFYWAITGETLOGLOG*VERIFYCOS";
763 [153]"WAITFRE*VERIFYWAITGETRNDSIN*WAITSIN*VERIFYWAITGETSINRNDVERIFYCOSWAITSIN*VERIFYLOGWAITSIN WAITCOS";
764 [153]"VERIFYABSGETDEF VERIFYABSDEF    VERIFYFREGETDEF  VERIFYGETDEFWAIT   VERIFYGETDEFWAIT  VERIFYSINDEF  VERIFYGET";
765 [153]"DEF VERIFYGETDEF  VERIFYGETDEF VERIFYLOGGETDEF  VERIFYSQRINTDEF  VERIFYABSDEFLIST":[142]
795 [143] *** CLEAR TEXT
796 [129]I[178]H[164]24:[151]781,I:[158]59903:[130]:[151]214,J:[142]
900 VI[178]53248:[141]140:[137]515
10000 D[178][194](186):N$[178]"0:INF2.PT2":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]