2/#E#CLEFTGLNGASQLEFFITEFMAXRALMLNMODNBYTLINLLFALINBLINTESCBEGIPRLASCHLNMMMINZLL@@@  !"#$%&'()*+@,-./012345(1 +AR@1@@2R (}A@H-A@H?-@@R(Ǡd9@<@,;@,;@,;@,9A,9A,;@,;@,9@<@,;@,i/ #B6.#6-/6-An+-@+-@s"68<,-x    B0'A@'A@V6-%@(})-V((ӠΠ٠B-@B((Ԩé̠ӠĠC-@C((ŠҧӠŠ/-@@ /(ӠԠB-@#B('ӠݠΠĠ-@@4(ENTER GRAPHICS MODE(0-13)8B BX )!@j-@(@v(  A\-@@9(ENTER # OF LINES FOR THIS MODE=I6-@S B\6-A:,P&8<@,$ 0-@3@9( F(>:AS,P A  B 68,-68,- A,2(}(-@2 A1 (} A6RR(JYou must have exactly 192 scan lines. Here is a list of your current data:;X-@@X(>͠ ӠŠ ƠӠ @6-@-@)-@-(9-@K(88,<@,W-@ ^(8,j-@)q(8,}-@5(8,$88,<@,A36-%@"@ )6-@3 A%B E{-@"C((ĠŠŠĠc@@K:p)@{@JK A%A&@dAAPA3A@A`K APMq-@"C(( Ƞ͠ϠŠ U-@4@"Yq!) @A3N (}-@@(1-@@C(88,<@,U-@ @\(8,n-@)@u(8,-@5@(8,$88,<@,O~-@@2(NEW GRAPHICS MODE(0-13)6@ BV )!@h-@(@t( ~ A5PZ-@@7(NEW # OF LINES FOR THIS MODE;G6-@Q BZ6-A:,Q 68,-68,- AR~-@@2(NEW GRAPHICS MODE(0-13)6@ BV )!@h-@(@t( ~ A8SZ-@@7(NEW # OF LINES FOR THIS MODE;G6-@Q BZ6-A:,Tq-@"C(( Ƞ͠ϠŠ U-@4@"Yq!) @AU (}-@@(1-@@C(88,<@,U-@ @\(8,n-@)@u(8,-@5@(8,$88,<@,V_ (-@@:(ŠӠ͠٠ҠΠ>_7@<@,0YAW! "6-&@! AXx6-%88,<@,$8,( B .6->-&@R68,-8%@,f68,-8%@,j x6-&@Y/6-@ B %6-/ AZ^ (}-@@^(>͠ ӠŠ ƠӠ [ A"\ A^"@xAFc A%hY B-@"M((ΠĠӠݠϠĠY6-j-@ B('ŠӠϠԠӠ۰b@@K:v-@@-%@@!)@m0"@"@i&@0 An~67<,.>:,(>:, /-@@!<( a68<,-A:7@<@,,~68<@,-A:7@,,r&6-%@@& Ab@6-&@ 6-8@,.-@78,!@6-8, 8@,"A /%6-@d%88@,<@,/ A%6-; (}-@@1(ԠŠ5;6-9-@@5(ŠҠŠ9 4D-@@;(ҠӠŠ?O6. D:SCREEN.^67@,.{@@ AE0#@@C:06.SCREENv (}A@-A@?-@@R( NOW LISTING v(@ REM SELECT GR. MODE86-%@8(@ GR.8<@,+16;6-%@;(@ REM PEEK THE DISPLAY LISTA6-%@A(@ START=PEEK(560)+PEEK(561)*256+4=6-%@=(@ POKE START-1,\6-@6-@;68@,-8@,&@P8@,"\6-@ -6-6-88,<@,~8,!@ 6-%@i(@ FOR I= TO %8,&@:POKE START+I,:N.It6-%8,~ A-@8,56-%@5(@ POKE START+,6-%@   APh6-%@h(@G REM NOW WE POKE THE JUMP INSTRUCTION AND HI AND LO BYTE OF SCREEN56-%@5(@ POKE START+,65D6-%@D(@ POKE START+%@ ,PEEK(560)D6-%@D(@ POKE START+%@ ,PEEK(561)(6-%@((@ RETURNU6-%AU(@4 REM SUBROUTINES TO PRINT TEXT ON EACH LINE I6-%@6-&@I(@ FOR PLACE=1 TO LEN(TEXT$)>6-%@>(@ CHAR=ASC(TEXT$(PLACE,PLACE))G6-%@G(@& IF CHAR>128 THEN CHAR=CHAR-128:FLAG=1>6-%@>(@ IF CHAR<32 THEN CHAR=CHAR+64!>6-%@>(@ IF CHAR<96 THEN CHAR=CHAR-32&E6-%@E(@$ IF FLAG=1 THEN FLAG=0:CHAR=CHAR+128+<6-%@<(@ POKE RAMST+CP+PLACE-1,CHAR036-%@3(@ NEXT PLACE:RETURN5-6-@-(@ DIM TEXT$(40):96-%@9(@ SETUP= :GOSUB SETUP<;6-%@;(@ RAMSET= :GOSUB RAMSET??6-%@?(@ TEXTPRNT=:GOSUB TEXTPRNTX@(}&AA$8AA$J-@@s(#٠ŠӠϠΠ٠ҠΠ@@K:])@>:,4Y%b AP% D:MAGATARI B+Y6-%A Y(@8 REM SUBROUTINES TO LOCATE POSITION FOR EACH LINEu6-%@u(@T REM THE VARIABLE X IS THE HORIZONTAL POSITION WHERE YOU WANT TO PRINT OR PLOTK 6-6-%@K(@$ RAMST=PEEK(START)+PEEK(START+1)*256(6-%@((@ RETURNx6-8<@,"-36-8<,D6-8<@,N A`V-b"@n6-x A_6-6-'6-36-= API"U6-@_ A I-&@$6-%8,>88,<@,"@ I6-%8,(88,<@,"@(6-%8, ))")88,<@,"@@A+88,<@,"@ +6-%@+88,<@,"@+6-%@6-%@ A 116-+&@,$&$+&@ ,&$+&@,%36-%@3(@ CP= +X:RETURN*  $R6-%8,$W6-%@ AP\t6-%@q(@+ REM THIS SUBROUTINE IS FOR MODE LINES  TO  IN GR.88,<@,t$'4,2,.5,8,1.5,0,40'4,3,.5,10,1.5,0,40'4,4,1,8,4,0,40'0,5,1,16,4,0,40'0,6,1,8,5,1,20'0,7,1,16,5,2,20'4,8,4,8,4,3,10'4,9,2,4,2,4,10'4,10,2,4,4,5,20'4,11,1,2,2,6,20'0,12,1,1,2,6,20'0,13,1,2,4,7,40'0,13,1,1,4,7,40'0,14,.5,1,1.5,8,40*%"@6-% Bp +& 4E'6-&@& A+8 1A('&-@(@.( 8 A + 6-A:,$>+& 4E'6-&@& AH+8 1A('&-@#@.( 8 A R+$.""@6.=:," B .6-@B:,267<,.>:@:7<,,&A(,6 .$6-A:,&8<@,$$6.=:,.6-@B:,267<,.>:@:7<,,%A(,6 .$2}-A&68,-568,-9 M-@a-@r68<,-v z }$D:SELFPROG.MAG