O44XNMBLINYNANMNUMBNPRSZSZHZSTHZSTLFLRTLLFLRTLSTVSTVLLUPLLLUPLCCCPPPMSPP0P1POFREGISTEPMBASPL0PL1PL0PL1ZRARMTPMPLPLHLQT0RTN0QT1RTNRTN1CHRSPPMP2P3LHP  !"#$%&'()*+,-./0123456789:;@<@=@>@?@@ABCDEFGHIJKLM 1 +@A@61A ARR;@,;@,;@,9@,9@,9@,9@,[-@@ "+,@/ C-@@G"KW,@[ ([-@@"+,@ / C-@@G"KW,@ [ 2SS240,76,97,217,229,82,109,207,246,69,114,240,82,101,211,243,115,212,225,82,116<o6-F:A,!6-F:A,06-F:A ,?6-F:A,KAWAcA oAF9-@@ ,F:B2y,"@/'9 @P  @`Z]A@@'A A36-S@@K:]+dM(ŠϠ͠ҡ6(A SERIES OF QUESTIONSM(WILL BE DISPLAYED.n:"(EACH QUESTION WILL REQUIRE:(A NUMERICAL ANSWER.x])(!INDICATE CHOICE BY TYPING DIGITS.K(TYPE RETURN ONLY AFTER NUMBER]( IS COMPLETED.P)(!YOU CAN ABORT NUMBER AT ANY TIME,P(" TO RETURN,BY TYPING A SPACE."("(ӠԠΠٮAB2y@*F:B2y,"@7(>:A%,A Ap APS A`1(INDICATE GRAPHICS MODE FOR YOURS(PROGRAM! ANY MODE EXCEPT 10.W6-Ap6-'6-@1 Ap76-C"@M AW Apc A`/(INDICATE RAM IN YOUR MACHINE.<(TYPE 1-4I( (1)16KV( (2)24Kc( (3)32KN( (4)40-48K(?&6-A26-@>6-@H ApN6-p A`4(!CHOOSE NUMBER OF PLAYERS(1 OR 2)!@6-AL6-@X6-@b App6-&@f A`4("DO YOU WISH SINGLE(1) OR DOUBLE(2)J(LINE RESOLUTION?V6-A` Apf6- A`'(CHOOSE PLAYER ZERO SIZE(0,1,3)!4(NORMAL=0;(?G6-AS6-_6-@k6-@s6.2} Ap6-6-p A`5(CHOOSE PLAYER ONE SIZE(0,1,3)!<(?H6-A0T6-@^ Apd6-p6-` A`4("CHOOSE INITIAL HORIZONTAL POSITIONF( RANGE=0-255.`(VISIBLE LIMITS=48-200T ( PLAYER ZERO(0-255)?,6-AP86-D6-AUN ApT6-?#( PLAYER ONE(0-255)?/6-A`9 Ap?6-g A`-(CHOOSE LIMITS ON HORIZONTALC(POSITIONS(0-255)!g(IF CHOOSE 0 AND/OR 255,WILL GET( WRAPAROUND!"O#( PLAYER ZERO LEFT MARGIN?/6-A9 Ap?6-E!O A ,P$( PLAYER ZERO RIGHT MARGIN?06-A: Ap@6-F P A 6R&( PLAYER ONE LEFT MARGIN?26-A< ApB6-H!R A @S'( PLAYER ONE RIGHT MARGIN?36-A = ApC6-I S A J}%6-A%+A$+"@,,G6-@%+@$+"@,,S6-@s6-A%%A($+"@,} A`TU!(INITIAL VERTICAL POSITION5(RANGE=2-.U(VISIBLE LIMITS=-)^F ( PLAYER ZERO(2-)?,6-AP6 Ap@ ApF6-hI#( PLAYER ONE(2-)?/6-A`9 ApC ApI6-rC A`+(CHOOSE LIMITS ON VERTICALC( POSITIONS(2-)!|Y#( PLAYER ZERO LOWER LIMIT?/6-A9 ApC ApI6-O Y A Y#( PLAYER ZERO UPPER LIMIT?/6-A9 ApC ApI6-O!Y A \&( PLAYER ONE LOWER LIMIT?26-A< ApF ApL6-R \ A L&( PLAYER ONE UPPER LIMIT?26-A< ApF ApL6- ! A Y A`'(CHOOSE PLAYER COLORS.<(HUES ARE ROUGHLYY( 0 BLACK TO WHITEj( 1-4 REDS+( 5 PURPLE?( 6-10 BLUEST( 11-13 GREENSj( 14-15 ORANGES`(( PLAYER ZERO $ A06-<6-@H6-A@R Ap`6-$@r( PLAYER ZERO ! A -6-@:6.3579 F6-@R6-AP\ Aph6-r A@ 6-%T( PLAYER ONE $ A06-@<6-ApF ApT6-$@h( PLAYER ONE $ A 06-@<6-@H6-AR Ap^6-h A@ 6-%t A`*(CHOOSE BACKGROUND COLOR!2( < AH6-@T6-A\( f Apt6-$@/"@*%6-/ A0Y (  A !6-@-6-@96-AC ApM A@Y6-/"@ *%6-/ A@ 6-% A`y(CHOOSE PLAYFIELD TYPE!-( NARROW=0=( REGULAR=1J( WIDE=2Q(?]6-@i6-As Apy6-` A`(9($PRIORITY CHOICES! NOTE THAT PLAYER 0`("ALWAYS HAS PRIORITY OVER PLAYER 1!h(TYPE DESIRED NUMBER.A( ALL PLAYERS OVER PLAYFIELDS(0)h(" PLAYERS 0 & 1 OVER PLAYFIELDS(1)&O(( ALL PLAYFIELDS OVER PLAYERS(2)O(" PLAYFIELDS 0 & 1 OVER PLAYERS(3)02 (?6-@"6-A0, Ap26-:_ A`(:(%WHERE DO YOU DESIRE TO STORE PM DATA?_( ABOVE A LOWERED RAMTOP(TYPE 0)D**(" BENEATH THE DISPLAY LIST(TYPE 1)N2 (?6-@"6-Ap, Ap26-Xf A`+(CHOOSE SPEED OF MOVEMENT.D( HALF SPEED(TYPE 0)_( NORMAL SPEED(TYPE 1)f(?b6-A Ap6-cm A`.(DO YOU WISH TO STORE THE VBI@( ROUTINE IN A:U( STRING(TYPE 0)m( IN PAGE 6(TYPE 1)d> (?6-"6-@.6-A8 Ap>6-g A`ll(.(#INDICATE NUMBER OF BYTES IN PLAYER.V(#BOTH PLAYERS MUST HAVE SAME NUMBER.l(MAXIMUM BYTES=10!v>6-@6-@"(?.6-A8 Ap>6-;,;,o-@&68,-568,-D68,-S68,-W c6-o6-r A`(2(TYPE IN DATA FOR PLAYER ZERO.P(START FROM TOP OF PLAYER.\6-h6-AUr A-@@ (?6-A Ap$26-&@6 @ A A"@468,-%67<,. 36-%@7 A A A"AU68,-%67<,. 36-%@7 A A 67<,.>:, L A`(4(TYPE IN DATA FOR PLAYER ONE@6-L6--@G ((?6-A@' Ap+96-&@= G AuE"@468,-)67<,. 76-%@; E AuE"AU68,-)67<,. 76-%@; E Au67<,.>:,  B F +((/(ǠҠF(ŠϠW)@@D:PM.LSTK6-+@%+$@,,$@WAP 9"@/6-@%@$+!@,9 A *776-@%@$+"@,%@$+!@,4ZZ(@31000 PM=PEEK(106)-:POKE 106,PM:GR.:POKE 54279,PM:PMBASE=256*PM>C6-+&,$AV96-%A%+A$+"@,,C AH?+6-%A@%+A@$+"@,,5 A? A R"@w6-@$+ @,%@$+"@,%@$+"@,%@$$+"@,%@6$+!@,6-+&,$AV\u"@c6-@$+ @,%@$$+"@,%@2$+"@,%@@$+!@,u6-+&,$AVf1'6-%A%+A$+"@,,1 Ap5+6-%A@%+A@$+"@,,5 AzNN(@ 31000 GR.:PM=PEEK(106)-:POKE 54279,PM:PMBASE=256*PMss(@31010 DIM ZERO$(47):ZERO$=>:@4,/hhhhhhhϥ̦ ͈ψ`>:@4,QQ(@ 31020 X=USR(ADR(ZERO$),0,PMBASE,A$%A$$+"@,)//6-A&+@$+")"@,,VV(@31030 POKE 53256, :POKE 53248, :POKE 704,:POKE ,CC(@ :POKE 53257, :POKE 53249, :POKE 705,"(@ BB(@31040 DIM P0$():P0$=>:@4,>:@4, 8,"A (@31043 8-@ 6-8,$(8(@://(@P0$(, )=CHR$(34) (@  8,"A0(@31047 8-@ 6-8,$(8(@:00(@P0$(, )=CHR$(155) (@ "A BB(@31050 DIM P1$():P1$=>:@4,>:@4, 8,"Au(@31053 $8-@ 6-8,$(8(@:)//(@P1$(, )=CHR$(34). (@ 3 8,"A 8(@31057 B8-@ 6-8,$(8(@:L00(@P1$(, )=CHR$(155)V (@ `''6-A%+A$+"@,,%jcc(@ 31060 FOR X=&@ TO 0 STEP-1:POKE PMBASE++X,ASC(P0$(X+1,X+1)):NEXT Xt"Ap~''6-A@%+A@$+"@,,%cc(@ 31070 FOR X=&@ TO 0 STEP-1:POKE PMBASE++X,ASC(P1$(X+1,X+1)):NEXT Xrr(@31080 POKE 203,%@ :POKE 204,%@ :POKE 1000, :POKE 1002, :POKE 1004,>>(@ :POKE 1006, :POKE 1008, :POKE 1010,HH(@31090 POKE 1001, :POKE 1003, :POKE 1005,BB(@ :POKE 1007, :POKE 1009, :POKE 1011,33(@31100 POKE 1012, :POKE 1014,77(@31110 POKE 1013, :POKE 1015,##(@31115 DIM PM$(211){{(@31120 PM$(1,65)=>:@4,Ax)%x)Wx)Hx)9Lbϝ>:@4,{{(@31130 PM$(66,128)=>:@4,?ͽα͈̅\B>:@4,ww(@31140 PM$(129,196)=>:@4,D̅˽ͽα͈̅b(@>:@4,b(@31142 PM$(197,211)=>:@4,>:@4,A))(@31145 PM$(41,41)=CHR$(1) nn(@Y31147 PM$(54,54)=CHR$(136):PM$(65,65)=CHR$(200):PM$(79,79)=CHR$(136):PM$(84,84)=CHR$(200)__(@J31148 PM$(113,113)=CHR$(200):PM$(129,129)=CHR$(198):PM$(130,130)=CHR$(203)aa(@K31149 PM$(153,153)=CHR$(200):PM$(158,158)=CHR$(136):PM$(174,174)=CHR$(136):++(@PM$(194,194)=CHR$(200)#NN(@931150 FOR X=0 TO 210:POKE 1536+X,ASC(PM$(X+1,X+1)):NEXT X(NN(@31155 DIM SET$(11):SET$=>:@4, h  \`>:@4,)E"E(@(:AD=ADR(PM$):HI=INT(AD/256):LO=AD-256*HI*(@ -Y"Y(@<31160 SET$(3,3)=CHR$(LO):SET$(5,5)=CHR$(HI):X=USR(ADR(SET$)).OO(@:31160 SET$(3,3)=CHR$(0):SET$(5,5)=CHR$(6):X=USR(ADR(SET$))2c6-@D%+@$+"@,,%+@$+",%@$+"@,%@$+"@,,(@31190 POKE 559,<W6-@$+",%@$+"@,%@$+"@,%@$+"@,(@:POKE 623,PEEK(623)+ :POKE 53277,3F(@ 32000 RETURNPt@@# A`G(FILE ON DISK IS CALLED 'PM.LST'q(%TO MERGE WITH YOUR PROGRAM,USE ENTER!tZ.6-F:@,&A(. Ad@B7tn"6-@6."6-x')@(>:,'6.=:,"AUApR"@2(5(ǠҮŠή? A0K6-@N'R 9 @H)!@W(& A26-@5'9 Q"@ -@B:,."@:7<,,1'4(> AJ6-@M'Q "@ )67<,.>:,6-%@) A/B:," A'+6-@/ 3 6-A:, )! A#'/6-@3  ( $;.(&ԠšŠ٠Ρ8 A0;$( HUE(0-15)?$1( LUMINANCE.( (EVEN NUMBER 0-14)?1$-@A $@#"@)"@)"@- A96-@<'@ $ -@@6@=-@6@[2@&@_ c 2$"526-+&+A'%A($+"@,,,$6@5$,'6-P:'AV,$6-&AV$'$6'6-P:'AV,$6-&AV$'$@X(( YOU HAVE EXCEEDED THE NUMBER OFF(BYTES ALLOWED WITH VALUESX( OF 155 OR 34!JA%(PLEASE USE A DIFFERENT VALUE!/ A=6-&@A Tk%(ҠԠӠŠO(%ŠȠŠ̠Ρg(Šˠk ^G.(&GR.11 NEEDS A BACKGROUND HUE OF ZERO!A(I'VE SET THAT!D(G$hL*("GR.9 NEEDS A BACKGROUND LUMINANCEF(OF ZERO! I'VE SET THAT!I(L$ D1:AUTOPM.BAS