10 REM *** FORMATTER ***
15 IF PEEK(686)THEN386
20 GOTO1000
95 REM ***FLIP SCREENS***
100 X=PEEK(T):IFP<>ETHEN125
102 SYS49391
105 P=I:POKEA,49:POKET+B,P:POKE4,76:S=H
106 POKE56333,127:POKE788,196:POKE789,194:POKEA+B,129:REM START RASTER
107 PRINT"[147][146][144]TYPE CHARACTER TO":PRINT"REPROGRAM ON LOWER
109 [153]"PORTION OF SCREEN AND":[153]"PRESS F4. PRESS ANY F
111 PRINT"KEY TO INPUT CHANGES.":PRINT"PRESS F6 TO RETURN
113 [153]"TO SCREEN 1":[151]T,X:[142]
124 [143] SCREEN @ BANK 2, 34816($8800)AND CHARS @ $8000 OR $9000
125 [151]A[170]B,240:[151]788,49:[151]789,234:[151]56333,129:[143] RASTER OFF
126 P[178]E:[158]49424:[151]R[170]H,SC:[151]R,BC:[151]A,CS:S[178].
127 [151]T[170]B,P:[151]4,80:[151]T,X:[153]"":[142]
149 [143] **REPROGRAM***
150 G[178][194](3):X[178][194](T)
151 [129]J[178].[164]5:[151]218[170]J,136:[151]224[170]J,137:[130]
152 M[178]32768[170]G[172]C:[153]""[163]27)"           "
153 [129]J[178].[164]7:Z[178]128:G[178][194](M[170]J):[153][163]27)"   ";
154 [129]K[178]H[164]C:[153]"OPEN0";:[139]G[177][178]Z[167]G[178]G[171]Z:[153]"CMD*";
155 Z[178]Z[173]B:[130]:[153]" ":[130]:[153][163]27)"             "
156 [153]""[163]30);
157 [151]W,.:[158]50222:[151]T,X:[142]
200 SC[178][171]SC[172](SC[179]N)[170]H:[151]R[170]H,SC:[151]254,SC:[142]:[143] SCREEN COLOR
225 BC[178][171]BC[172](BC[179]N)[170]H:[151]R,BC:[142]:[143] BORDER COLOR
250 B1[178][171]B1[172](B1[179]N)[170]H:R1[178]B1[171]H:[151]R[170]B,R1:[142]:[143] REGISTER 1
275 B2[178][171]B2[172](B2[179]N)[170]H:R2[178]B2[171]H:[151]R[170]3,R2:[142]:[143] REGISTER 2
300 B3[178][171]B3[172](B3[179]N)[170]H:R3[178]B3[171]H:[151]R[170]4,R3:[142]:[143] REGISTER 3
325 EB[178].:[151]53265,[194](53265)[176]64:[143] EXTENDED BACKGROUND ON
326 [158]49980:F[178][194](253)[171]132:[145]F[141]200,250,275,300,350,380,100
328 [139]F[178]5[167][142]
329 [139]F[178]C[167]EB[178]H:[137]400
330 [137]326
350 [151]53265,[194](53265)[175]191:[142]:[143] EXTENDED BACKGROUND OFF
365 MC[178].:[151]A[171]B,[194](A[171]B)[176]N:[143] MULTICOLOR ON
367 [158]49980:F[178][194](253)[171]132:[145]F[141]200,250,275,375,328,380,100
370 [139]F[178]4[167][142]
372 [139]F[178]C[167]MC[178]H:[137]400
373 [137]367
375 [151]53270,[194](53270)[175]239:[142]:[143]MULTICOLOR OFF
380 [139]S[167][141]150:[142]:[143] CHARACTER SET SWITCH
381 O[178][182](O[171]CN):CS[178]33[170]O:[151]A,CS:[142]:[143] FLIP CHARACTER SETS
385 [143] ***MENU***
386 P[178]140:E[178]136:I[178]P:R[178]53280:H[178]1:BC[178]H:SC[178]15:A[178]53272:CS[178]33:T[178]646:B[178]2
388 X[178]11:W[178]198:C[178]8:N[178]16:CN[178]4:BL[178]53265:[151]254,SC
390 D[178]3002
395 [151]56576,5:[139][194](684)[178].[167][141]126:[153]"LOAD";:[151]684,H
400 X[178][194](T):[139]P[178]E[167][158]49391:CS[178][194](A)
401 [139]S[167][151]A[170]B,240:[151]788,49:[151]789,234:[151]56333,129:[143]TURN OFF RASTER
402 [139]MC[167][141]375:MC[178]H
403 [139]EB[167][141]350:EB[178]H
408 [151]56576,7:[151]T[170]B,4:[143] DEFAULT SCREEN
410 [151]BL,[194](BL)[175]239:[151]A,21:[151]R[170]H,15:[151]R,H:[151]T,0
411 [153]"LOAD"[163]57)"MENU":[153]"1 INSTRUCTION SCREENS
413 PRINT"2 FORMATTING SCREEN
414 [153]"3 CHARACTER REPROGRAMMING SCREEN
415 PRINT"4 MAKE BASIC PRINT STATEMENTS
416 [153]"5 DISPLAY NEW SCREEN(S)
417 PRINT"6 DELETE PROGRAM LINES
418 [153]"7 MAKE CHARACTER DATA STATEMENTS
419 PRINT"8 SWITCH CUSTOM CHARACTER SET":PRINT"9 STOP PROGRAM
420 [153][163]50)"YOUR CHOICE [1-9]CLOSE?":[151]BL,27
421 [146]W,H:G[178][194](631)[171]48:[151]W,.:[139]G[179]H[176]G[177]9[167]421
422 [145]G[137]600,430,435,485,1600,720,800,950,428
428 [151]828,.:[158]828
430 [151]56576,5:[141]126:[137]438
435 [151]56576,5:[151]R,BC:[141]105
438 [139]MC[167][141]365
440 [139]EB[167][141]325
445 [158]49980:F[178][194](253)[171]132
450 [145]F[141]200,225,275,365,325,380,100
455 [139]F[178]C[167]400
460 [137]445
480 [143] ***SCREEN SCAN***
485 [153]"LOAD"[163]92)"NEW PRINT LINES
490 PRINTTAB(205)". . .SPACE TO CONTINUE"SPC(58)". . . ANY OTHER FOR MENU
495 [151]W,.:[146]198,H:[139][194](631)[179][177]32[167]410
500 [153]"LOAD"D"GOSUB60002:PRINTCHR$(19)TAB(140)PEEK(58)*256+PEEK(57)";
501 [153]":WAITW,H:POKEW,.":[151]679,X
502 D[178]D[170]B:[153]D"POKER+H,"SC"CMD:POKER,"BC"CMD:POKEA,"CS"CMD:SC="SC"CMD:BC="BC;
503 [153]"CMD:POKET,"X"CMD:PRINTCHR$(147);":[158]49457:D[178]D[170]B:M[178]4
504 [139]MC[167][153]D"POKE53270,PEEK(53270)OR16:POKER+2,"R1"CMD:POKER+3,"R2;
505 [139]MC[167][153]"CMD:MC=H":D[178]D[170]B
506 [139]EB[167][153]D"POKE53265,PEEK(53265)OR64:POKER+2,"R1"CMD:POKER+3,"R2;
507 [139]EB[167][153]"CMD:POKER+4,"R3"CMD:EB=H":D[178]D[170]B
508 [153]"515 D="D"CMD:EB="EB"CMD:MC="MC"CMD:X="X
509 [139]EB[176]MC[167][153]"PRINTCHR$(147):POKE218,4:RUN515":M[178]5:[137]560
510 [153]"RUN515":[137]560
517 [139][194](2)[167][153]"LOAD";:[151]218,4
520 [153]D"?"[199](34):D[178]D[170]2
525 [158]49482:[139][194](2)[178].[167]M[178]5:[137]540
530 [153]"515 D="D"CMD:EB="EB"CMD:MC="MC"CMD:X="X
535 [153]"RUN515":M[178]6:[137]560
540 [153]D"WAITW,H:G=PVAL(631):P(null)W,.:IFG=82THENP(null)T,"X;
541 [153]"CMD:P(null)254,SC:GOTO438":D[178]D[170]2
545 [139]MC[167][153]D"POKE53270,PEEK(53270)AND239:MC=.":D[178]D[170]2:M[178]M[170]1
550 [139]EB[167][153]D"POKE53265,PEEK(53265)AND191:EB=.":D[178]D[170]2:M[178]M[170]1
552 [153]D"IFG<>32THENSC=M:BC=Z:?CHR$(147):GOTO408":D[178]D[170]2
555 [153]"390 D="D:[153]"515":[153]"RUN386":[139][194](681)[167]M[178]M[170]1
560 F[178]631:G[178]13:[151]F,19:[129]J[178]1[164]M:[151]F[170]J,G:[130]:[151]198,M[170]1:[128]
595 [143] ***INSTRUCTIONS***
600 [151]BL,[194](BL)[175]239:[151]R[170]H,H:[151]R,6:[151]A,23
602 [153]"LOAD   (null)(null)CLOSEASC(null)(null)(null)ATN(null)CLOSEATN(null)STR$CLOSE(null)VAL(null)(null)(null)CHR$(null)ATN(null)CLOSE(null)LEN(null)VALVAL(null)(null)CLOSE-
604 PRINTTAB(41)"F1 = [211]CREEN COLOR
606 [153][163]41)"F2 = VALXTENDED BACKGROUND COLOR ON/OFF
608 PRINTTAB(41)"F3 = [194]ORDER COLOR OR COLOR REGISTER #1
610 [153][163]6)"WITH MULTICOLOR ((null)LEN) OR EXTENDED"[166]8)"BACKGROUND COLOR (VALPEEK)
614 PRINTTAB(41)"F4 = [211]WITCH BETWEEN CUSTOM AND REGULAR
616 [153][163]6)"CHARACTERS ON FORMAT SCREEN OR
618 PRINTTAB(6)"ENABLE CUSTOM CHARACTERS ON"SPC(13)"REPROGRAMMING SCREEN
620 [153][163]41)"F5 = LENOLOR REGISTER #2 WITH (null)LEN OR VALPEEK"
622 [153][163]41)"F6 = (null)WITCH BETWEEN FORMATTING AND"[166]11)"REPROGRAMMING SCREEN
624 PRINTTAB(41)"F7 = [205]ULTICOLOR ON/OFF OR COLOR
626 [153][163]6)"REGISTER #3 WITH VALPEEK":[151]BL,27
628 [153]"":[129]J[178].[164]10:[153]"ONF8 = (null)ENU"
630 [129]G[178]H[164]60:[130]:[153]"ONF8 = (null)ENU":[129]G[178]H[164]60:[130]:[130]
632 [153]" ((null)(null)ATNLENVAL FOR MORE: ATNNY OTHER FOR MENU)";
634 [146]W,H:[151]W,.:[139][194](631)[178]32[167]656
636 [137]410
656 [151]BL,[194](BL)[175]239:[153]"LOAD"[163]86)"ASC(null)(null)(null)ATN(null)CLOSE(null)LEN(null)VALVAL(null)CLOSELEN(null)(null)(null)(null)CLOSELENLEFT$ATN(null)CHR$VAL(null)"
658 [153][163]83)"(null)O CHANGE ALL OF A CERTAIN COLOR
660 PRINTTAB(3)"TO ANOTHER COLOR:
662 [153][163]45)"A. (null)ET CURSOR TO COLOR YOU WISH"[166]12)"TO CHANGE.
664 PRINTTAB(45)"B. [208]RESS [195][212][210][204] AND C KEYS
666 [153][163]8)"TOGETHER.  ((null)HE CURSOR WILL"[166]13)"DISAPPEAR.)
668 PRINTTAB(45)"C. [208]RESS [195][212][210][204] OR [195][207][205][205][207][196][207][210][197]
670 [153][163]8)"KEY AND THE NEW COLOR KEY"[166]15)"TOGETHER.
672 PRINTTAB(50)"([193]NY KEY FOR MENU.)":POKEBL,27
674 WAITW,H:POKEW,.:GOTO410
719 REM ***DELETE***
720 POKER+H,3 :POKER,B:POKEA,23:POKEBL,PEEK(BL)AND239
722 PRINT"[147]"TAB(207)"[196][197][204][197][212][197] [208][210][207][199][210][193][205][160][208][210][201][206][212] [204][201][206][197][211]
724 [153][163]86)"1 ATNLL NEW PRINT LINES
726 PRINTTAB(46)"2 [211]ELECT FROM TO END
728 [153][163]46)"3 (null)ELECT FROM TO SELECT END
729 PRINTTAB(46)"4 [196]ELETE ALL [194][213][212] NEW LINES
730 [153][163]46)"5 (null)ETURN TO MENU
732 PRINTTAB(49)"([208]RESS NUMBER DESIRED)":POKEBL,27
734 WAITW,H:G=PEEK(631)-48:POKEW,.:IFG<HORG>5THEN734
736 IFD=3002THENIFG<4THENPRINTTAB(81)"[206]O LINES TO DELETE.  [193]NY KEY FOR MENU.":GOTO685
738 POKET,X:M=.:F=D:Z=3002:L=Z:ONGGOTO773,740,740,900,410
740 PRINT"[147][197]NTER STARTING LINE NUMBER";
745 INPUTL:IFLAND1ORL<3002THENPRINT"# UNEVEN OR TOO SMALL:";:GOTO745
750 IFG=2THENZ=L:GOTO765
755 Z=D:PRINT"[197]NTER ENDING LINE NUMBER";
760 INPUTD:IFDAND1ORD>ZTHENPRINT"# UNEVEN OR TOO BIG:";:GOTO760
765 IFL>=DTHENPRINT"[147][211]TARTING # TOO BIG. [211]TART OVER.[146][151]":D=F:GOTO722
773 F=D-L:PRINT"[147]";:IFF<11THEN785
775 FORJ=LTOL+12STEP2:PRINTJ:NEXT:
776 PRINT"772 L="J"[157]:D="D"[157]:Z="Z:PRINT"RUN772":M=9:GOTO560
785 IFF=.THEN787
786 FORJ=LTODSTEP2:PRINTJ:M=M+1:NEXT
787 PRINT"772":PRINT"390 D="Z:PRINT"RUN386":M=M+3:GOTO560
795 REM***CHARACTER DATA***
800 SYS49280:IFPEEK(B)THEN820
805 PRINT"[147]"TAB(203)"[151]NO CHARACTERS REPROGRAMMED AS YET
810 [153]"POKE(PRESS ANY KEY TO RETURN TO MENU)
815 WAITW,H:POKEW,.:POKE254,SC:GOTO410
820 PRINT"[147]60006 FORJ=1TO"PEEK(2):PRINT"RUN825":PRINT"  60010":M=3:GOTO560
825 INPUTZ
830 SC=PEEK(50432+PEEK(2)-1):CH=32768+8*SC
835 FORJ=.TO7:C$=C$+STR$(PEEK(CH+J)):NEXT
840 FORK=2TOLEN(C$):Q$=MID$(C$,K,1):IFQ$=" "THENQ$=","
845 D$=D$+Q$:NEXT
850 PRINT"[147]"Z"DATA"SC"[157],"D$
855 Z=Z+2:POKE2,PEEK(2)-1:IFPEEK(2)=.THENPRINT"RUN386":M=2:GOTO560
860 PRINT"RUN825":PRINT"  "Z:M=3:GOTO560
895 REM ***DELETE OLD***
900 POKER+H,3:POKER,B:PRINT"[147]"TAB(170)"[144][196][197][204][197][212][197][160][207][204][196][160][208][210][207][199][210][193][205]
904 [153][163]42)"ATNS WRITTEN, NEW SCREENS WILL DISPLAY
906 PRINT"ON SCREEN AT 34816 WITH [210][207][205] IMAGE AT
908 [153]"36864 AND PROGRAMMABLE CHARACTERS AT"[166]4)"32768.
914 PRINTTAB(42)"[212]O DISPLAY &/OR SAVE ON DEFAULT
916 [153]"SCREEN, DELETE LINE 3000 AND DELETE
918 PRINT"OR REVISE [208]OKE 53272 VALUES TO POINT
920 [153]"TO YOUR (null)ATN(null) CHARACTER SET.
924 PRINTTAB(47)"([200]IT ANY KEY TO PROCEED)
926 [153][163]7)"('(null)' TO RETURN TO MENU.)
928 WAITW,H:G=PEEK(631):POKEW,.:IFG=82THEN410
930 SYS49152:POKER+H,10:PRINTTAB"[147]"TAB(250)" OLD PROGRAM GONE! "
935 PRINTTAB(124)"[212]O RECOVER OLD PROGRAM, ENTER IN"SPC(48)"DIRECT MODE:
940 [153]"STOPPOKE43,1:POKE641,1:POKE44,8:POKE642,8:RUN":[128]
945 [143] ***SWITCH CUSTOM SETS***
950 [151]R[170]H,7:[151]R,1:[151]A,23:[151]BL,[194](BL)[175]239
952 [153]"LOADPOKE"[163]251)"(null)(null)RIGHT$(null)LENLEFT$CLOSELEN(null)(null)(null)(null)(null)CLOSE(null)VAL(null)"
954 [153][163]86)"1. (null)VALCHR$(null)(null)ATN(null)CLOSELENLEFT$ATN(null)ATNLEN(null)VAL(null)CLOSE(null)VAL(null)"
956 [153][163]46)"2. (null)(null)(null)VAL(null)CLOSEATN(null)STR$ LOWER LENATN(null)VALCLOSE(null)VAL(null)"[166]53)"3. (null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)VAL(null)(null)
960 PRINTTAB(87)"([208][210][197][211][211][160][206][213][205][194][197][210][160][198][207][210][160][195][200][207][201][195][197])":POKEBL,27
962 WAITW,H:G=PEEK(631)-48:POKEW,.:IFG<HORG>3THEN962
963 ONGGOTO965,966
964 GOTO410
965 POKE685,208:SYS49213:CN=4:GOTO968
966 POKE685,216:SYS49213:CN=6
968 PRINT"[147]"TAB(242)". . . [207][203], SETS SWITCHED":FORTT=.TO1000:NEXT
970 O=.:GOSUB381:GOTO410
999 REM ***MACHINE LANGUAGE***
1000 POKE53281,7:POKE53280,9:PRINT"[147]";
1004 PRINT"[147]"SPC(162)"[149]    ":PRINT"[149] [146]  [169]  [223]"
1006 PRINT"    [146]      [223]"
1008 PRINT" [146]   [146]    [146]   [223][146]  [169]"
1010 PRINT" [146]   [146]      [146][169] [223][169] [169]  [223]"
1012 PRINTTAB(5)"[223]  [146][169] [146]  [223] [146][223][169]  [146]        "
1014 PRINTTAB(9)" [146]    [146]       [146]        "
1016 PRINTTAB(13)" [146]  [160] [146]   [146]   [146]   [146]      "
1018 PRINTTAB(17)" [146]   [146]  [160][146]   [146]   [146]      [223]"
1020 PRINTTAB(23)"[160][146]   [146]     [146]  [146]   "
1022 PRINTTAB(26)" [146]   [146]      [146][169]"
1024 PRINTTAB(29)"     [146]  [223]":PRINTTAB(33)" [146]   "
1025 PRINTTAB(11)"BY MARIE COON &"SPC(25)"THE AHOY! STAFF"
1026 PRINT:PRINT:PRINTTAB(10)"ONE MOMENT PLEASE..."
1027 POKE52,124:POKE56,124:CLR:POKE53265,27
1028 E$="BAD DATA":B=736:FORJ=.TO31:READA:POKEB+J,A:CK=CK+A:POKEB+J,A:NEXT
1030 IFCK<>5088THENPRINTE$:STOP:REM DATA 1100
1035 B=49152:FORK=1TO4:CK=.
1040 FORJ=.TO255:READA:POKEB+J,A:CK=CK+A:NEXT
1045 READC:IFCK<>CTHENPRINTE$" IN BLOCK"K"LINE"PEEK(64)*256+PEEK(63):STOP
1050 B=B+256:NEXT
1055 CK=.:FORJ=.TO160:READA:POKEB+J,A:CK=CK+A:NEXT
1060 IFCK<>20606THENPRINTE$" IN BLOCK 5":STOP
1065 POKE685,208:SYS49213:CLR:POKE686,1:GOTO386
1085 DATA144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
1090 DATA208,133,156,223,220,158,159,222,193,213,214,215,216,217,218,219
1095 REM *** BLOCK 1 ***
1100 DATA169,1,133,87,169,8,133,88,169,0,133,57,133,58,160,3
1102 DATA177,87,201,11,176,24,133,58,136,177,87,133,57,160,0,177
1104 DATA87,72,200,177,87,133,88,104,133,87,160,3,208,226,165,87
1106 DATA133,43,141,129,2,165,88,133,44,141,130,2,96,173,14,220
1108 DATA41,254,141,14,220,165,1,41,251,133,1,169,0,133,87,133
1110 DATA89,173,173,2,133,88,169,128,133,90,162,8,160,0,177,87
1112 DATA145,89,136,208,249,230,88,230,90,202,208,242,165,1,9,4
1114 DATA133,1,173,14,220,9,1,141,14,220,169,128,141,138,2,96
1116 DATA173,14,220,41,254,141,14,220,165,1,41,251,133,1,169,0
1118 DATA133,2,133,87,133,89,133,252,133,254,173,173,2,133,88,169
1120 DATA128,133,90,162,0,160,0,169,8,133,253,133,251,177,87,209
1122 DATA89,240,2,230,252,202,240,32,200,198,251,208,240,165,252,240
1124 DATA17,169,0,133,252,134,91,166,2,165,254,157,0,197,230,2
1126 DATA166,91,230,254,169,8,208,211,230,88,230,90,198,253,208,216
1128 DATA165,1,9,4,133,1,173,14,220,9,1,141,14,220,96,169
1130 DATA0,133,87,133,89,169,216,133,88,169,124,133,90,162,4,160,31556
1132 :
1134 REM *** BLOCK 2 ***
1136 DATA0,177,87,145,89,136,208,249,230,88,230,90,202,208,242,96
1138 DATA169,0,133,87,133,89,169,216,133,88,169,124,133,90,162,4
1140 DATA160,0,177,89,145,87,136,208,249,230,88,230,90,202,208,242
1142 DATA96,169,0,133,251,133,253,141,170,2,141,171,2,169,25,133
1144 DATA2,169,136,133,252,169,124,133,254,96,169,11,162,71,157,7
1146 DATA216,202,208,250,169,32,162,71,157,7,4,202,208,250,169,8
1148 DATA133,89,169,4,133,90,160,0,132,88,173,171,2,240,13,133
1150 DATA87,169,40,56,237,171,2,133,91,76,69,194,132,87,140,168
1152 DATA2,140,169,2,169,40,133,91,177,251,201,32,208,45,238,168
1154 DATA2,200,198,91,208,242,169,145,164,88,145,89,198,2,208,6
1156 DATA169,147,32,210,255,96,230,88,24,165,251,105,40,144,4,230
1158 DATA252,230,254,133,251,133,253,160,0,240,193,201,34,208,3,238
1160 DATA168,2,173,168,2,240,17,132,87,169,157,164,88,145,89,230
1162 DATA88,206,168,2,208,245,164,87,177,253,41,15,205,167,2,240
1164 DATA13,141,167,2,170,189,240,2,164,88,145,89,230,88,173,170
1166 DATA2,240,17,164,87,177,251,201,128,176,32,206,170,2,164,88,34517
1168 :
1170 REM *** BLOCK 3 ***
1172 DATA169,210,208,15,164,87,177,251,201,128,144,15,238,170,2,164
1174 DATA88,169,146,145,89,230,88,164,87,177,251,41,127,201,34,208
1176 DATA2,169,32,164,88,145,89,230,88,198,91,240,101,230,87,165
1178 DATA88,201,60,144,16,200,169,34,145,89,200,169,59,145,89,165
1180 DATA87,141,171,2,96,164,87,177,251,201,32,208,7,238,169,2
1182 DATA208,215,208,154,173,169,2,240,31,240,147,173,170,2,240,11
1184 DATA169,210,164,88,145,89,230,88,206,170,2,169,32,164,88,145
1186 DATA89,230,88,206,169,2,208,245,164,87,177,253,41,15,205,167
1188 DATA2,240,214,164,88,141,167,2,170,189,240,2,145,89,230,88
1190 DATA208,192,169,34,164,88,145,89,173,169,2,208,5,200,169,59
1192 DATA145,89,198,2,208,6,169,59,200,145,89,96,24,165,251,105
1194 DATA40,144,4,230,252,230,254,133,251,133,253,169,0,141,171,2
1196 DATA141,170,2,96,169,1,141,25,208,162,130,160,12,173,18,208
1198 DATA16,4,162,1,164,254,142,18,208,140,33,208,173,13,220,41
1200 DATA1,240,3,76,49,234,76,188,254,169,0,133,89,165,209,133
1202 DATA87,24,165,210,101,4,133,88,164,211,177,209,72,170,177,87,33915
1204 :
1206 REM *** BLOCK 4 ***
1208 DATA133,91,173,134,2,145,87,24,177,209,105,128,145,209,230,89
1210 DATA24,165,162,105,20,133,90,32,228,255,208,21,165,90,197,162
1212 DATA208,245,165,89,240,220,138,145,209,165,91,145,87,198,89,240
1214 DATA223,170,104,164,211,145,209,165,91,145,87,96,32,233,194,138
1216 DATA201,133,144,25,201,138,208,14,164,211,132,165,136,177,209,133
1218 DATA3,165,214,133,166,138,201,141,176,3,133,253,96,41,127,201
1220 DATA33,144,5,173,134,2,145,87,173,141,2,201,4,240,6,138
1222 DATA32,210,255,208,199,165,197,201,20,208,244,173,134,2,133,87
1224 DATA32,228,255,240,251,174,141,2,224,4,240,4,224,2,208,240
1226 DATA162,15,221,224,2,240,8,202,208,248,221,224,2,208,225,134
1228 DATA88,169,0,133,89,169,216,133,90,162,4,160,0,177,89,41
1230 DATA15,197,87,208,4,165,88,145,89,136,208,241,230,90,202,208
1232 DATA236,76,60,195,32,210,255,32,233,194,138,201,133,144,5,201
1234 DATA141,176,1,96,169,2,141,134,2,138,201,48,208,6,169,3
1236 DATA141,134,2,138,41,127,201,13,208,34,169,17,32,210,255,164
1238 DATA211,177,209,201,32,208,4,169,145,208,201,169,157,32,210,255,35397
1240 :
1242 REM *** BLOCK 5 ***
1244 DATA164,211,177,209,201,32,208,243,169,29,208,184,201,17,240,12
1246 DATA201,29,240,8,201,33,144,175,162,29,176,1,138,32,210,255
1248 DATA164,211,177,209,201,32,208,159,24,138,105,128,208,150,169,0
1250 DATA133,91,133,163,169,128,133,164,160,3,165,3,24,10,38,91
1252 DATA136,208,250,133,163,24,165,164,101,91,133,164,24,160,30,162
1254 DATA1,32,240,255,169,2,141,134,2,32,196,195,169,69,133,87
1256 DATA169,140,133,88,162,8,169,1,133,91,160,8,169,0,133,92
1258 DATA177,87,201,48,240,6,165,92,5,91,133,92,6,91,136,208
1260 DATA239,165,92,145,163,230,163,208,2,230,164,24,165,87,105,40
1262 DATA133,87,144,2,230,88,202,208,205,164,165,166,166,24,76,240,255
1595 REM ***DISPLAY***
1600 POKE56576,5:GOSUB126:POKER+H,15:POKER,12:POKEA,39
1602 POKEBL,PEEK(BL)AND239:PRINT"[147][144]"TAB(131)"[206][197][215][160][211][195][210][197][197][206][160][196][201][211][208][204][193][217]"
1603 PRINTTAB(84)"[212]O DISPLAY SUCCESSIVE SCREENS,
1604 [153]"PRESS THE (null)(null)ATNLENVAL KEY.
1605 PRINTTAB(44)"[208]RESS 'R' TO RETURN CONTROL TO
1606 [153]"THE FORMAT SCREEN AND ACTIVATE
1607 PRINT"THE CURSOR.
1609 [153][163]44)"ATNNY OTHER KEY WILL RETURN TO THE
1610 PRINT"[205]ENU, UNLESS THE LAST SCREEN IS
1611 [153]"ON DISPLAY.  RIGHT$N THIS CASE, ANY
1612 PRINT"KEY BUT 'R' WILL RETURN TO THE"SPC(10)"MENU.":POKEBL,27
1614 WAITW,H:G=PEEK(631):POKEW,.:IFG<>32THENPRINT"[147]":GOTO408
3000 POKE56576,5:POKE648,136:POKE53272,37
3001 W=198:H=1:R=53280:A=53272:T=646
60000 PRINT"[147]":POKE646,X:SC=M:BC=Z:GOTO408
60002 POKEA,37:PRINT"[147]"TAB(46)"NEW SCREEN STARTS AT"SPC(60)"PROGRAM LINE #"
60004 PRINTTAB(46)"(HIT ANY KEY FOR DISPLAY)":RETURN
60006 FORJ=1TO 3
60008 READB:CH=32768+8*B:PRINTCH:FORK=.TO7:READA:POKECH+K,A:NEXT:NEXT