1 REMCZSFXVGRAB^RUNGOTOQ0HRESTOREIFDEGOSUB:;/PWCLOSETLOAD=dp|lq{etbuavgjyokrncx~s}wmfh\i67890 2 REMSTEPINPUT(null)ASC(null)STEPENDINPUT(null)SPC((null)FN(null)INPUT(null)STEPINPUT(null)TO(null)POS(null)%(null)VAL(null)(null)FN(null)(null)INPUT(null)(null)LEFT$TAN(null)(null)FN(null)CMDSTR$F(null)(null)(null)(null)(null)`890 3 REMNEWMID$EXPLEFT$INPUT(null)STEPINPUT(null))INPUT(null)STEPENDINPUT(null)CLOSEFN(null)%(null)VAL(null)(null)FN(null)(null)INPUT(null)F(null)(null)LET(null)(null)FN(null)CMDLEFT$(null)(null) (null)(null)`5 50 PRINT"DIR: 100 [145]LL[137]2207,,610 144 [139][194](49152)[178]169[175][194](49153)[178]76[175][194](49154)[178]133[167]150 145 [147]"LODRAWSUITE3",8,1 150 [158]49152:TRAP7400:[151]55,255:[151]56,111:[156]:[141]2720:[137]200 160 [139]F9[179]K0[167][139]F3[178]K0[167]360 170 [139]ZW[178]K0[176](F3[179]K0[175]ZW[179]K0)[167]KQ[178][198](B$)[171]49:DX[178]K0:[137]1210 180 DX[178]K0:BB[178][198](B$):[137]1030 190 F5[178][198](B$)[171]48:F1%[178]K0:[137]610 200 JS[178][194](JP):[139]JS[179]127[167][139]JS[177]118[167]DX[178]PT(JS[171]119) 210 [139]F6[178]K0[167][151]PP[170]VM,QR:[151]PP[170]VN,DP 212 [139][194](653)[178]K6[167][141]1650:[137]200 215 [139][194](653)[178]K4[167]F1%[178]K1:[158]P5,K0,24:[153]"PROJECTION #?"; 220 [161]B$:[139]F1%[178]K1[167][139]B$[177]"/"[175]B$[179]":"[167]190 222 [139]B$[179][177]""[167]F1%[178]K0 225 [139]B$[177]"0"[175]B$[179]"9"[167]160 230 [139]B$[178]"_"[167]F3[178][168]F3:[151]D6,33:[151]D6,16:[151]VM[170]961,(F3[176]61)[170]K1:[137]200 240 [139]B$[178][199](187)[176]B$[178][199](174)[176]B$[178][199](180)[167]DX[178]K0:[137]360 250 [139]JS[178]111[167]F7[178]K1:[137]200 252 [139]JS[178]109[176]JS[178]110[176]JS[178]107[176]JS[178]103[167]1590 256 [139]F7[178]K1[167]F7[178]K0:BB[178]136:[137]510 260 [139]B$[178]"ON"[167]DX[178]114 270 [139]F9[178]K0[175]ZW[178]K0[167][139]B$[178]"."[176]B$[178]","[167]DX[178]114[170](B$[178]",")[172]K7 280 [139]B$[178]""[167]DX[178]113 290 [139]B$[178]"CMD"[167]DX[178]107 310 [139]B$[178]""[167]DX[178]115 320 [139]F3[179]K0[167][139]DX[177]K0[167]1610 330 [139]DX[177]K0[167][141]615:[137]200 340 [139]F6[178]K0[167][151]PP[170]VN,DQ 350 [139]B$[178]""[167]200 360 BB[178][198](B$):[139]F9[179]K0[167]1380 370 [139]BB[179]96[167]650 380 [139]F3[178]K0[167]430 390 [139]BB[177]132[175]BB[179]137[167]T%[178]QQ:[137]2330 400 [139]BB[178]140[167]LL[178]K2:B$[178]"SC":A$[178]"@":[137]2030 410 [139]BB[178]139[167]LL[178]K3:B$[178]"LC":A$[178]"@":[137]2030 430 [139]BB[178]148[167]ZX[178]ZX[171]KF[171]16[172][180](ZX[171]KF):[151]53280,ZX 435 [139]BB[178]131[167][151]788,49:[151]VC[170]21,K0:[128] 440 [139]BB[179][177]137[167]450 445 RP[178][182](F4):[141]1550:ZY[178][194](51177):[141]2950:[151]53281,ZY 448 KP[178][194](PP[170]VN)[175]KF:QP[178][194](PP[170]VM) 450 [139]BB[178]138[167][141]1520:[153]"LOAD";:[141]1550 470 [139]BB[177]148[167][139]BB[179]156[167]KQ[178]BB[171]140:[137]1210 480 [139]BB[178]160[167]QQ[178]QP 490 [139]BB[178]129[167]KQ[178]K8:[137]1210 500 [139]BB[178]147[167]RP[178]K0:[141]1530:[153]"LOAD";:QP[178]P4 510 [139]BB[178]136[167][139]F8[178]K6[167]ZV[178][168]ZV 520 [139]BB[178]136[167]ZV[178][168]ZV:[158]P5,P4,24:[153]GG$([182](ZV)[170]K2);:F8[178]K0 530 [139]BB[178]140[167]LL[178]K0:B$[178]"SV":A$[178]"_":[137]2030 540 [139]BB[178]139[167]LL[178]K1:B$[178]"LV":A$[178]"_":[137]2030 550 [139]BB[178]135[167]ZZ[178][168]ZZ:[158]P5,24,24:[153]GG$([182](ZZ)); 560 [139]BB[178]141[167]F8[178]K6:[158]P5,P4,24:[153]"PAINT "; 570 [139]BB[178]133[167]ZW[178][168]ZW:[158]P5,K0,24:[153]GG$([182](ZW)[170]K4); 580 [139]BB[178]134[167]ZR[178][168]ZR:[158]P5,K7,24:[153]GG$([182](ZR)[170]K6); 590 [139]BB[177]160[167][139]BB[179]192[167]QQ[178]BB[171]64[171]ZR[172]N9 600 [139]BB[177]191[167]QQ[178]BB[171]N9[171]ZR[172]N9 610 [151]D6,33:[151]D6,16:F3[178]K0:DX[178]K0:[141]2950:[137]200 615 PY[178]PP:[139]DX[178]114[167]PP[178]PP[171]P1:[139]PP[179]K0[167]PP[178]PP[170]P2 620 [139]DX[178]113[167]PP[178]PP[170]P1:[139]PP[177][178]P2[167]PP[178]PP[171]P2 625 [139]DX[178]107[167]PP[178]PP[171]K1:[139](PP[170]K1)[173]P1[178][181]((PP[170]K1)[173]P1)[167]PP[178]PP[170]P1 630 [139]DX[178]115[167]PP[178]PP[170]K1:[139]PP[173]P1[178][181](PP[173]P1)[167]PP[178]PP[171]P1 635 QY[178]QP:KY[178]KP:QP[178][194](PP[170]VM):KP[178][194](PP[170]VN)[175]KF:[158]P5,18,24:[153]QP"CMD "; 640 DX[178]K0:[139]F8[178]K6[167][151]PY[170]VN,KQ:[151]PY[170]VM,QY:[142] 645 [139]ZV[179]K0[167][151]PY[170]VN,KY:[151]PY[170]VM,QY:[142] 648 [151]PY[170]VN,KQ:[151]PY[170]VM,[165]FX(QQ):[142] 650 [139]F3[179]K0[167][139]BB[178]20[167]F3[178]K0:[141]3200:[137]610 655 [139]BB[178]20[167]ZY[178]ZY[171]KF[171]16[172][180](ZY[171]KF):[151]53281,ZY:[141]2940 660 [139]BB[178]19[167]1880 665 [139]BB[178]K3[167]LL[178][171]K1:[141]6000 670 [139]BB[178]13[167][151]PP[170]VN,KP:[151]PP[170]VM,QP:PP[178][181](PP[173]P1)[172]P1:DX[178]113:[137]1510 680 [139]BB[179]P4[167]F3[178]K0:[141]2950:[137]200 682 [139]BB[179][177]61[167]690 684 [139]F3[179]K0[167]F3[178]K0:[137]1180 685 SW[178]1:[158]P5,K0,24:[153]"SCREEN CHARACTER CODE? CMDCMDCMD"; 686 [141]3560:[153]"CMDCMDCMD ";:[139]A$[179][177]"LET"[167][139][197](B$)[179]F2%[167]QQ[178][197](B$) 688 [137]1190 690 [139]F3[178]K0[167]1020 695 [139]BB[178]89[167]1230 700 [139]BB[178]72[167]F6[178][168]F6:[139]F6[179]K0[167][151]PP[170]VN,KP:[151]PP[170]VM,QP 705 [139]BB[178]74[176]BB[178]75[167]6980 706 [139]BB[178]76[167]7260 710 [139]BB[178]87[167][141]5100 750 [139]BB[178]77[167]MX[178]3030:T%[178]1999:[141]1700 760 [139]BB[179][177]42[167]770 765 DV[178][168]DV:[158]P5,K0,24:[153]"NEW DEVICE NUMBER ";:[151]VM[170]978,[182](DV)[170]48 766 [129]R[178]1[164]1999:[130] 770 [139]BB[178]66[167]RP[178]K0:[141]1530:[137]1840 775 [139]BB[178]78[167]R%[178][194](VC[170]21):[151]VC[170]21,K0[171](R%[178]K0)[172]240 780 [139]BB[178]81[167]F4[178][168]F4 782 [139]BB[178]82[167]R%[178]K7:QD[178]K0:[137]970 783 [139]BB[178]84[167][139]QQ[179]253[167]R%[178]31:QD[178][171]K1:[137]970 785 [139]BB[178]68[176]BB[178]69[167]LL[178]K9[170](BB[178]69):A$[178]"":[137]2030 790 [139]BB[178]47[167]DX[178]113:[137]1310 792 [139]BB[178]58[176]BB[178]59[167]DX[178]107[171](BB[178]59)[172]K8:[137]1310 794 [139]BB[178]80[167]DX[178]114:[137]1310 800 [139]BB[178]67[167][141]1015:[151]252,QP:[151]253,QQ:[158]49857:QP[178]QQ 810 [139]BB[178]90[176]BB[178]83[176]BB[178]70[167]2410 840 [139]BB[179][177]88[167]860 850 [141]1015:RM[178](QP[175][168]N9)[176]([168]QP[175]N9) 855 [151]252,QP:[151]253,RM:[158]49857:QP[178]RM 860 [139]BB[178]86[176]BB[178]71[167][141]1015:[151]252,K0[171](BB[178]71)[172]P4:[158]49899:QP[178][194](PP[170]VM) 880 [139]BB[178]48[167]F3[178]0:[137]1140 890 [139]BB[178]94[167][141]1570:QP[178][194](PP[170]VM):KP[178][194](PP[170]VN) 920 [139]BB[178]65[167]F9[178][168]F9:QR[178]K0:[139]F9[179]K0[167]QR[178]31 930 [151]D6,33:[151]D6,16:F3[178]K0:[141]2950:[137]200 970 TX[178]831:[129]R[178]VM[164]R[170]R%:[151]TX,[194](R):TX[178]TX[170]K1:[130]:RX[178]QQ:[139]R%[178]K7[167][141]4695 980 [139]R%[178]31[167][141]4680 990 TX[178]VM:[129]R[178]831[164]R[170]R%:[151]TX,[194](R):TX[178]TX[170]K1:[130]:QD[178]K0:[137]930 1015 [151]PP[170]VN,KP:[151]PP[170]VM,QP:RP[178]K0:[141]1530:[142] 1020 [139]ZW[178]0[167]1050 1030 [139]BB[179]64[167]1180 1040 QQ[178]BB[171]64[171]ZR[172]N9:[137]1190 1050 [139]BB[178]45[167]QQ[178]93[170]ZZ[171]ZR[172]N9:[137]1190 1060 [139]BB[178]47[176]BB[178]58[176]BB[178]59[167]790 1100 [139]BB[178]43[167]QQ[178]91[171]ZZ[172]11[171]ZR[172]N9:[137]1190 1110 [139]BB[178]92[167]QQ[178]105[170]ZZ[171]ZR[172]N9:[137]1190 1120 [139]BB[178]42[167]QQ[178]67[171]ZZ[172]28[171]ZR[172]N9:[137]1190 1130 [139]BB[178]64[167]QQ[178]122[170]ZZ[172]22[171]ZR[172]N9:[137]1190 1140 [139]BB[178]48[167]F5[178]F5[170]10:F5[178]F5[170]40[172](F5[177]39):[137]1190 1160 [139]BB[179]64[167]1180 1170 [139]ZZ[179]K0[167]QQ[178][194](BB[171]64[170]2088)[171]ZR[172]N9:[137]1190 1180 QQ[178]BB[171]ZR[172]N9 1190 [141]2950:[137]200 1210 F3[178]0:[129]R[178]43[164]46:[151]VC[170]R,KQ:[130]:[137]610 1230 R%[178]QQ:[158]P5,K0,24:[153]"SCREEN CODE"[166]11)"PRESS <,> OR <.>"; 1240 [158]P5,11,24:[153]R%"CMD ";:[151]977[170]VM,R% 1250 [161]A$:[139]A$[178]""[167]1250 1260 [139]A$[178]"."[167]R%[178]R%[170]K1[170]256[172](R%[178]255):[137]1240 1270 [139]A$[178]","[167]R%[178]R%[171]K1[171]256[172](R%[178]K0):[137]1240 1280 [139]A$[178][199](13)[167]QQ[178]R% 1290 [137]610 1310 RM[178]PP:RX[178]QP:RQ[178]KP:RP[178]RM[170]F5[171]K1:[139]F5[178]K0[167]RP[178]RM[170]38 1320 [139]DX[178]113[176]DX[178]114[167][139]F5[177]24[176]F5[178]K0[167]RP[178]RM[170]23 1330 [129]R[178]RM[164]RP:PX[178]RM:[141]1920:[139]F5[178]K0[167][139]QX[178]P4[167]R[178]RP 1335 [151]PX[170]VM,RX:[151]PX[170]VN,RQ:RX[178]QX:RQ[178]KX:RM[178]PX:[130]:QP[178]P4:[137]1915 1380 [139](BB[177]127[175]BB[179]142)[176](BB[177]146[175]BB[179]161)[167]380 1390 [139]BB[178]19[176]BB[178]20[176]BB[178]13[176]BB[178]K3[167]650 1400 [139]BB[179]P4[167]DX[178]K0:[137]200 1410 [139]F3[178]K0[167]1460 1420 [139]BB[178]61[167]F3[178]K0:[137]685 1430 [139]BB[179]96[167]695 1460 [139]BB[179]64[167]1490 1470 BB[178]BB[170](BB[179]192)[172]64[170](BB[177]191)[172]N9 1490 [139]ZW[179]K0[167]QQ[178]BB[171]ZR[172]N9 1500 DX[178]115:[151]PP[170]VN,KQ:[151]PP[170]VM,[165]FX(BB) 1510 PX[178]PP:[141]1920:PP[178]PX:QP[178]QX:KP[178]KX:[137]1915 1520 [151]51177,ZY:RP[178][182](F4):[151]PP[170]VN,KP:[151]PP[170]VM,QP 1530 RM[178]50176:RX[178]53248:RQ[178]40960[171]RP[172]4096:[141]2290 1540 RM[178]55296:RX[178]56319:RQ[178]37887[171]RP[172]4096:[141]2290:[142] 1550 RM[178]37888[171]RP[172]4096:RX[178]40960[171]RP[172]4096:RQ[178]53248:[141]2290 1560 RM[178]36864[171]RP[172]4096:RX[178]37887[171]RP[172]4096:RQ[178]56319:[141]2290:[142] 1570 RM[178]37888:RX[178]38911:RQ[178]51199:[141]2290:RM[178]36864:RX[178]37887:RQ[178]56319:[141]2290 1580 [142] 1590 T%[178]PP[173]P1:[139]JS[178]110[176]JS[178]109[167]R%[178]PP[171]T%[172]P1:R%[178]R%[171]920[172](JS[178]109) 1595 [139]JS[178]107[176]JS[178]103[167]R%[178]T%[172]P1:R%[178]R%[171]39[172](JS[178]103) 1600 [151]PP[170]VM,QP:[151]PP[170]VN,KP:PP[178]R%:QP[178][194](PP[170]VM):KP[178][194](PP[170]VN)[175]KF 1605 F7[178]K0:[129]R[178]1[164]99:[130]:[137]200 1610 PX[178]PP:[129]R[178]K1[164]F5:[151]PX[170]VN,KQ:[151]PX[170]VM,[165]FX(QQ):[141]1920:[130]:[137]2208 1650 [151]PP[170]VM,QP:[151]PP[170]VN,KP 1660 [129]R[178]K1[164]K5:PP[178]PP[170]K1:[139]PP[173]P1[178][181](PP[173]P1)[167]PP[178]PP[171]P1 1670 [130]:QP[178][194](PP[170]VM):KP[178][194](PP[170]VN):[137]2980 1700 R%[178]MX[173]F2%:[151]904,R%:[151]903,MX[171]R%[172]F2%:[158]49700 1710 RM[178][194](905)[170][194](906)[172]F2%[170]K5:[141]1730:MX[178]3030:[129]R[178]1[164]T%:[130]:[142] 1730 RX[178]K0:[129]R[178]962[164]981:[151]R[170]VN,K1[170]RP[172]14:[151]R[170]VM,K0:[130] 1740 [129]R[178]VM[170]963[164]R[170]17:[151]R[171]K1,[194](R):[130] 1750 RQ[178][194](RM):[139]RQ[178]K0[167]RM[178]RM[170]K6:[137]1750 1760 [161]B$:JS[178][194](JP):[139]B$[178]" "[167][151]R[171]K1,P4:[129]RQ[178]K0[164]222:[130]:[137]1750 1780 [139]B$[178]"Z"[176]B$[178]"X"[167]RX[178][171](RX[178]K0)[172]99:[129]RQ[178]1[164]99:[130]:[137]1750 1790 [139]B$[179][177]""[176]JS[178]111[167][151]R[171]K1,P4:[142] 1820 RQ[178]RQ[170](RQ[177]64)[172]64:[151]R,P4:[139]RQ[178]64[167][151]R[171]K1,P4:[142] 1830 [151]R[171]K1,RQ:[129]RQ[178]K0[164]RX:[130]:RM[178]RM[170]K1:[137]1740 1840 BP[178]F5[171]K1:T%[178]BP:X%[178]BP:PX[178]PP:DX[178]115:[141]1870:DX[178]114:[141]1870 1860 DX[178]107:BP[178]T%:[141]1870:DX[178]113:BP[178]X%:[141]1870:QP[178]QQ:KP[178]KQ:[137]610 1870 [129]R[178]K1[164]BP:R%[178]PX 1874 [139]DX[178]115[167]PX[178]PX[170]K1:[139]PX[173]P1[178][181](PX[173]P1)[167]PX[178]R%:T%[178]R[171]K1:R[178]BP[170]K1 1875 [139]DX[178]114[167]PX[178]PX[171]P1:[139]PX[179]K0[167]PX[178]R%:X%[178]R[171]K1:R[178]BP[170]K1 1876 [139]DX[178]107[167]PX[178]PX[171]K1 1877 [139]DX[178]113[167]PX[178]PX[170]P1 1878 [151]PX[170]VN,KQ:[151]PX[170]VM,[165]FX(QQ):[130]:[142] 1880 PX[178]PP:DX[178]115:[129]R[178]K0[164]K3:[139]R[178]K2[167]PX[178]PP:DX[178]113:[141]1920:DX[178]115 1900 [141]1920:QX[178]QQ[170]R:[139]QX[177]255[167]QX[178]QX[171]F2% 1910 [151]PX[170]VN,KQ:[151]PX[170]VM,QX:[130] 1915 DX[178]K0:F3[178]K0:[141]2950:[137]200 1920 [139]DX[178]114[167]PX[178]PX[171]P1:[139]PX[179]K0[167]PX[178]PX[170]P2 1925 [139]DX[178]113[167]PX[178]PX[170]P1:[139]PX[177][178]P2[167]PX[178]PX[171]P2 1930 [139]DX[178]107[167]PX[178]PX[171]K1:[139](PX[170]K1)[173]P1[178][181]((PX[170]K1)[173]P1)[167]PX[178]PX[170]P1 1935 [139]DX[178]115[167]PX[178]PX[170]K1:[139]PX[173]P1[178][181](PX[173]P1)[167]PX[178]PX[171]P1 1940 QX[178][194](PX[170]VM):KX[178][194](PX[170]VN)[175]KF:[142] 1950 [151]VC[170]21,K0:[153]"LOAD";:[159]KF,[182](DV),K0,"$":[161]#KF,A$,A$,A$,A$ 1960 [161]#KF,A$,B$:RM[178][198](A$[170][199](K0)):RX[178][198](B$[170][199](K0)) 1970 [153][202]([196](RM[170]RX[172]F2%),K2)" "; 1980 [161]#KF,A$:RM[178][198](A$[170][199](K0)):[139]RM[179][177]K0[167][153]A$;:[137]1980 1990 [153]:[161]#KF,A$,A$:[139][198](A$[170][199](K0))[179][177]K0[167]1960 2000 [160]KF:[158]P5,K3,24:[153]" PRESS SPACE BAR WHEN READY "; 2010 [161]B$:[139]B$[178]""[167]2010 2020 [151]VC[170]21,240:[141]1570:[137]610 2030 T%[178]99:[158]P5,K0,24:[153]""B$;:[158]P5,23,24:[153]" "; 2050 [151]51177,ZY:[151]51176,ZX:[151]PP[170]VN,KP:[151]PP[170]VM,QP 2060 MX[178]RP:RP[178]K0:[141]1530:RP[178]MX:[139]LL[178]K9[167]2140 2070 MX[178]2240:[141]1700:[158]P5,22,24:[153]A$" ";:R[178]K1:[139]LL[178]K8[167]R[178]K0 2080 [161]B$:RM[178][195](A$):[139]B$[178]"LET"[167]610 2090 [139]B$[178]""[167][139]RM[177]R[167]A$[178][200](A$,RM[171]K1):[137]2130 2100 [139]B$[178][199](13)[175]RM[177]K1[167]2140 2110 [139]RM[178]16[176]B$[179]" "[176]B$[177]"_"[176](B$[178]" "[175]RM[178]R)[176]B$[178]""[167]2080 2120 A$[178]A$[170]B$ 2130 [158]P5,22,24:[153]A$" ";:[137]2080 2140 MX[178]2250:[141]1700 2150 [161]B$:[139]B$[178]""[167]2150 2160 [139]B$[179][177]" "[167]610 2170 [139]LL[178]K9[167]1950 2180 [139]LL[178]K8[167]MX[178]2280:[141]1700:[159]KF,[182](DV),KF 2190 [139]LL[178]K8[167][152]KF,"S0:"A$:[160]KF:[137]610 2200 MX[178]2270:[139]LL[173]2[178][181](LL[173]2)[167]2210 2205 [141]1700:[147]A$,[182](DV),K1 2207 RP[178]K0:[141]1550:[151]53281,[194](51177):[151]53280,[194](51176) 2208 KP[178][194](PP[170]VN)[175]KF:QP[178][194](PP[170]VM):[137]610 2210 MX[178]2260:[141]1700:RM[178]36864:RX[178]40960:[139]LL[178]K2[167]RM[178]51200:RX[178]53248 2220 [158]57812 A$,[182](DV):[151]173,RM[173]F2%:[151]172,RM[171][194](173)[172]F2%:[151]780,172 2230 [151]782,RX[173]F2%:[151]781,RX[171][194](782)[172]F2%:[158]65496:[137]610 2240 [143]ENTER FILE NAME & PRESS RETURN: @ 2250 [143]INSERT DISK * PRESS SPACE BAR @ 2260 [143]SAVING: @ 2270 [143]LOADING: @ 2280 [143]ERASING @ 2290 R%[178]RM[173]F2%:[151]49725,RM[171]R%[172]F2%:[151]49729,R% 2300 R%[178](RX[170]K1)[173]F2%:[151]49733,RX[170]K1[171]R%[172]F2%:[151]49737,R% 2310 R%[178](RQ[170]K1)[173]F2%:[151]49741,RQ[170]K1[171]R%[172]F2%:[151]49745,R%:[158]49724:[142] 2330 RP[178]K0:[141]1530:R[178]K0:RM[178]PP:RX[178]P1:[139]BB[178]133[176]BB[178]134[167]RX[178][171]RX 2340 [151]RM[170]VN,KQ:[151]RM[170]VM,[165]FX(T%):[139]BB[178]134[176]BB[178]136[167]2380 2360 [139]RM[173]P1[178][181](RM[173]P1)[167]2208 2370 RM[178]RM[171]K1:[137]2390 2380 RM[178]RM[170]K1:[139]RM[173]P1[178][181](RM[173]P1)[167]2208 2390 RM[178]RM[170]RX:[139]RM[179]K0[176]RM[177]959[167]2208 2395 R[178]R[170]K1:[139]R[179]F5[167]2340 2400 [137]2208 2410 [151]PP[170]VN,KP:[151]PP[170]VM,QP:RP[178]K0:[141]1530 2420 [151]252,QP:[151]2038,KP:[151]2039,K1[171](BB[178]90):[151]2036,215[170](BB[178]70)[172]20 2430 [151]253,[171]QQ[172](BB[178]70)[171]KQ[172](BB[179][177]70):[151]2038,KP:[158]49952:[158]49660 2440 [139]BB[178]70[167]QP[178]QQ:[137]930 2450 KP[178]KQ:[137]930 2720 [158]50029:R%[178]0:[129]R[178]54272[164]54296:[151]R,R%:[130] 2728 [129]R[178]57344[164]57358:[151]R,255:[130]:[129]R[178]57359[164]57407:[151]R,0:[130] 2730 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]0 2740 [151]53272,18:[151]648,196:[151]788,52 2750 [151]650,128:[151]53281,0:[151]53280,14:[153][199](8)"LISTLOAD" 2770 [151]54296,5:[151]54278,136:[151]54277,255:[151]54273,25:[151]54272,177 2780 B$[178]"":VM[178]50176:VN[178]55296:PP[178]500:NP[178]57:P1[178]40:P2[178]960:P5[178]49677 2790 QP[178]32:KP[178]12:QY[178]32:PY[178]PP:KQ[178]15:JS[178]127:VC[178]53248:DQ[178]1:JP[178]56320 2800 [134]DX,PX,QX,RP,KX,RX,T%,DP,QR,QQ,F8,F9,RQ,RM,ZY,ZZ,ZV,ZW,ZR,F3,F6,F7 2810 F5[178]9:N9[178]128:D6[178]54276:F1%[178]0:F2%[178]256:ZX[178]14:F4[178]1:P4[178]32:DV[178]8:VP[178]51192 2820 K0[178]0:K1[178]1:K2[178]2:K3[178]3:K4[178]4:K5[178]5:K6[178]6:K7[178]7:K8[178]8:K9[178]9:KF[178]15:EN[178]0:LN[178]0:EM$[178]"" 2830 P3[178]320:A$[178]"":CA[178]51200:[134]XM,QA,SW,ZP,LL,HP,PK,X%,BP,CY,RY,WF,PB,QD,TX 2835 [150][165]FX(R)[178]R[171]ZR[172]N9[170](R[175]N9)[172]ZR[172]K2:MX[178]3030 2840 PT(0)[178]115:PT(2)[178]107:PT(3)[178]114:PT(4)[178]107:PT(5)[178]115:PT(6)[178]113:PT(7)[178]114 2860 [134]GG$(9):GG$(0)[178]"5>SHIFT":GG$(1)[178]"5> C= WAIT" 2870 GG$(2)[178]"7>DRAW ":GG$(3)[178]"7>KEEPWAIT ":GG$(4)[178]"1>GRAF" 2880 GG$(5)[178]"1>ALFAWAIT" 2890 GG$(6)[178]"3>RVS":GG$(7)[178]"3>RVSWAIT" 2900 GG$(8)[178]"PAINT ":GG$(9)[178]"PAINT ":[134]BY(K7):[151]2026,K0:[151]2027,K0 2910 [151]VC[170]29,240:[151]VC[170]27,K0 2915 [129]R[178]K9[164]KF[169]K2:[151]VC[170]R,234:[130]:[129]R[178]43[164]46:[151]VC[170]R,KQ:[130] 2916 [151]VC[170]K8,37:[151]VC[170]10,73:[151]VC[170]12,229:[151]VC[170]16,N9:[151]VC[170]14,21 2920 [151]51177,ZY:[141]3000:[139][194](828)[178]K1[175][194](829)[178]K2[175][194](830)[178]K3[167]2940 2930 [151]828,K1:[151]829,K2:[151]830,K3:RP[178]K1:[141]1530:RP[178]K2:[141]1530 2940 [151]VC[170]21,240:[151]51177,ZY:DQ[178][180](ZY):DP[178]K0:[139]DQ[178]K0[167]DP[178]K1 2950 [158]49660:R[178](ZY[179]K3[176]ZY[178]K6[176]ZY[178]K9[176]ZY[178]11):[153][199](144[171]R[172]11);:RP[178]K0[171]R 2970 [158]P5,K0,24:[153]GG$([182](ZW)[170]K4)" "GG$([182](ZR)[170]K6)" "F5"CMD "; 2975 [151]VN[170]977,RP[172]KF:[151]VM[170]977,QQ:[151]VN[170]999,RP[172]KF:[151]VM[170]999,[182](F4)[170]48 2980 [158]P5,18,24:[153]QP"CMD ";:[158]P5,24,24:[153]GG$([182](ZZ))" "GG$([182](ZV)[170]K2[170]F8); 2985 [142] 2995 [151]VC[170]21,240:[141]1570:ZY[178][194](51177):[151]53281,ZY 3000 [151]51200,K0:[151]51201,K0:[151]51206,K0:[151]51207,K0 3010 [129]R[178]51202[164]51205:[151]R,255:[130]:[153]"WAIT";:[142] 3030 [143]WELCOME TO LODRAW * ANY SCROLLING MESSAGE CAN BE PAUSED BY HOLDING DOWN 3040 [143] SPACE BAR * PRESS Z OR X KEY TO SWITCH SCROLLING SPEED * PRESS ANY 3050 [143] OTHER KEY OR FIRE BUTTON TO QUIT A MESSAGE ANYTIME * USE JOYSTICK IN 3055 [143] PORT 2 * PRESS THEN TO DISPLAY MENU@ 3200 RP[178]K0:[151]51177,ZY:[141]1530:[151]VC[170]21,K0 3205 [151]2028,K0:[151]51200,255:[151]51207,255:[129]R[178]51201[164]51206:[151]R,129:[130] 3210 XM[178]K0:CY[178][171]K1:[151]53281,K0:[151]53280,14:[153]"SYSLOAD":WF[178]K0 3220 [139]B$[178][199](KF)[167]2995 3225 WF[178][168]WF:[139]WF[179]K0[167][141]3270:[139]B$[178][199](20)[167]2995 3230 [139]WF[179][177]K0[167]3260 3240 PB[178]180:QA[178][194](PB[170]VM):ZP[178]K0:HP[178]K7:[151]50448,RX:[139]XM[178]K0[167][151]2024,RX 3250 BB[178][171]K1:[141]4340:BB[178]K0:[141]3440:SW[178]K0 3260 [129]R[178]1[164]99:[130]:[137]3220 3270 [153]"LOADVIEW CHARACTER: PRESS F7 KEY & CODE OR:-" 3280 [153]"SYS""CHARACTER KEY ? LIST"; 3290 [139]XM[177]K0[167]B$[178][196](XM):[137]3330 3300 [161]B$:[139]B$[178]""[167]3300 3310 [139]B$[178][199](20)[167][142] 3320 [139]B$[179][177]"LET"[167]3360 3330 [151]VM[170]96,163:RY[178][194](211):[139]XM[178]K0[167][141]3560 3340 RX[178][197](B$):[139]RX[177]255[167]XM[178]K0:[153]"WAIT";:[137]3270 3350 [151]211,RY:[153]" ";:[137]3410 3360 RX[178][198](B$):[139](RX[177]63[175]RX[179]96)[176](RX[177]159[175]RX[179]192)[167]RX[178]RX[171]64:[137]3400 3370 [139]RX[177]191[175]RX[179]224[167]RX[178]RX[171]N9:[137]3400 3380 [139]RX[177]31[175]RX[179]64[167]3400 3390 [137]3300 3400 [153]B$; 3410 [153]"CONTWAIT @@@@@@@@ LIST";RX:[153] 3420 BB[178]0:[129]R[178]CA[170]RX[172]8[164]R[170]7:BB[178]BB[170]K1:PK[178][194](R):[153]"BYTE";BB;R;PK,:BY(BB[171]1)[178]PK 3430 [141]3660:[130]:[129]R[178]VM[164]R[170]39:[151]R,P4:[130]:[142] 3440 [139]CY[179]K0[167]SW[178]K1:XM[178]K0:[137]3700 3450 [153]:[153]"SYSEDIT CHARACTER";RX;"?LIST" 3455 [158]P5,K1,24:[153]" BYTE EDIT BIT EDIT";:[158]P5,K0,KF 3460 SW[178]2:[141]3560:SW[178]1:[139]A$[178]"LET"[167][129]R[178]1[164]299:[130]:[137]3700 3480 [139]A$[178][199](20)[176]XM[179][177]K0[167][142] 3485 [129]R[178]961[170]VM[164]R[170]37:[151]R,P4:[130] 3490 [129]R[178]CA[170]RX[172]8[164]R[170]K7:BB[178]BB[170]K1:PK[178][194](R):[153]"BYTE";BB;R;"?"; 3500 [151]211,[194](211)[171]K1:[139]SW[178]K4[167]3530 3510 [141]3560:[139]B$[179][177]""[175][197](B$)[179]F2%[167]PK[178][197](B$) 3520 [139]A$[178]"LET"[167]SW[178]4 3530 [151]R,PK:[151]211,RQ:[153]PK;:[139]PK[179]10[167][151]211,[194](211)[171]K1:[153]" "; 3540 [153],:[141]3660:[130]:[129]R[178]1[164]40:[153]"-";:[130] 3550 [153]" PRESS /FIRE BUTTON OR OR ";:SW[178]2 3560 B$[178]"":LL[178]K0:RM[178][194](214):RQ[178][194](211) 3570 [161]A$:[139]SW[177]1[167]3600 3580 [139]A$[177]"/"[175]A$[179]":"[167]B$[178]B$[170]A$:LL[178][195](B$):[151]214,RM:[151]211,RQ:[153]B$; 3590 [139]LL[178]K3[167][151]D6,33:[151]D6,16 3600 [139]A$[178][199](13)[176]LL[178]3[176]A$[178][199](20)[167]XM[178]K0:[142] 3610 [139]A$[178]"LET"[176][194](JP)[178]111[167][139]SW[177]K0[167]A$[178]"LET":XM[178]K0:[142] 3620 [139]SW[179]2[167]3570 3630 [139]A$[178]"DIM"[167]XM[178]RX[170]K1:[142] 3640 [139]A$[178]"READ"[167]XM[178]RX[171]K1:[142] 3650 [137]3570 3660 BP[178]N9:[129]RP[178]K1[164]K8:R%[178]PK[173]BP:[139]R%[178]K1[167][153]"@";:PK[178]PK[171]BP:[137]3670 3665 [153]" "; 3670 BP[178]BP[173]K2:[130]:[153]:[142] 3700 [141]4370 3710 JS[178][194](JP):[139]JS[179]127[167][139]JS[177]118[167]DX[178]PT(JS[171]119) 3720 [161]B$:[139]B$[177]"C"[175]B$[179]"M"[176]B$[178]"ON"[167]DX[178]114 3730 [139]B$[178]" "[176]B$[178]""[167]DX[178]113 3740 [139]B$[178]","[176]B$[178]"CMD"[167]DX[178]107 3750 [139]B$[178]"."[176]B$[178]""[167]DX[178]115 3760 [139]B$[178]"Y"[167][139]RX[179]253[167]QD[178][168]QD:[151]D6,33:[151]D6,16:[141]4750 3770 [139]QD[178]K0[167]3810 3771 [139]B$[179][177]"LET"[167]3775 3772 [151]2026,[182](([194](2026)[178]K0)) 3773 BP[178]KF[170]([194](2026)[178]K1)[172]K8:[129]R[178]960[170]VN[164]R[170]16:[151]R,BP:[130] 3775 [139]B$[179][177]"READ"[167]3779 3776 BP[178][194](2027):[158]P5,28,24:[153][199](158[171]BP[172]K3)"DRAW/"[199](155[170]BP[172]K3)"ERASE"; 3777 [153]"LIST";:[151]2027,[182](([194](2027)[178]K0)) 3779 [139]DX[178]K0[167]3790 3780 [139][194](2026)[178]K0[167]3784 3783 [139]([194](2027)[178]K0)[172]([171]P4)[179][177]QA[167][141]4980 3784 [151]PB[170]VM,QA:[141]4830:DX[178]K0 3790 [139]B$[178][199](13)[176]JS[178]111[167][141]4980 3793 [139]B$[178]"B"[167][141]5300 3794 [139]B$[178]"S"[167]BP[178]CA[170][194](2024)[172]K8:RY[178]BP[171]K8:[141]4235 3795 [139]B$[178]"R"[167]RX[178][194](2024):R%[178]31:[141]4680 3796 [139]B$[178]"N"[167]RX[178][194](2024):[141]5200 3797 [139]B$[178]"C"[167]BP[178]RX:RX[178][194](2024):[141]4650:RX[178]BP 3800 [137]4006 3810 [139]DX[177]K0[167][151]PB[170]VM,QA:[141]4050:DX[178]K0:[137]4010 3820 [139]B$[178][199](13)[176]JS[178]111[167]R[178]K2[174]HP:LL[178]CA[170]RX[172]K8:[141]4100:[151]50448,RX 3830 [139]B$[178]"N"[167][141]4270:[141]4370 3840 [139]B$[178]"W"[176]B$[178]"Q"[167]RY[178][182](B$[178]"Q"):KX[178][182](P4[172](B$[178]"W")):[141]4240 3850 [139]B$[178]"C"[167]B$[178]"":R[178]11:[158]P5,18,23:[153]"CHARACTER CODE? ";:[141]4510 3860 [139]B$[178]"R"[167]R%[178]K7:[141]4695 3900 [139]B$[178]"P"[167][139]RX[179]253[167]5030 3910 [139]B$[178]"B"[167][141]4170 3930 [139]B$[178]"A"[176]B$[178]"S"[167]BY(ZP)[178]K0[171](B$[178]"S")[172]255:QA[178]K0[171](B$[178]"A")[172]P4:[141]4260 3970 [139]B$[178]"M"[167]CY[178][168]CY:[151]D6,33:[151]D6,16:[141]4045 3975 [139]B$[178][199](20)[167]B$[178][199](KF):[142] 3980 [139]B$[178]"LET"[167][142] 3990 [139]B$[179][177]"DIM"[167]4000 3992 XM[178]RX[171]K1[172](RX[179]255):BP[178][194](2024):[151]2028,XM[171]BP:[151]2024,BP[171](XM[171]BP[178]K4)[172]K4 3995 [142] 4000 [139]B$[179][177]"READ"[167]4006 4002 XM[178]RX[171]K1:BP[178][194](2024):[151]2024,BP[170](BP[171]XM[178]K4)[172]K4:[139]XM[178]252[167][151]2024,XM 4005 [142] 4006 [139]B$[178]"Z"[176]B$[178]"X"[167]T%[178]K0[171]255[172](B$[178]"X"):R%[178]31[170](QD[178]K0)[172]24:[141]4320 4009 [139]B$[178]"V"[167]T%[178]255:R%[178]31[170](QD[178]K0)[172]24:[141]4210 4010 [139]X%[178]K0[167][151]PB[170]VM,QA 4020 [139]X%[178]K3[167][151]PB[170]VM,42 4040 X%[178]X%[170]1[170](X%[177]4)[172]6:[137]3710 4045 BP[178]K1[171](CY[178]K0)[172]K6:[129]R[178]841[170]VN[164]R[170]12:[151]R,BP:[130]:[142] 4050 [139]DX[178]114[167]PB[178]PB[171]P1:ZP[178]ZP[171]K1:[139]PB[179]180[167]PB[178]PB[170]P3:ZP[178]K7 4060 [139]DX[178]113[167]PB[178]PB[170]P1:ZP[178]ZP[170]K1:[139]PB[177]467[167]PB[178]PB[171]P3:ZP[178]K0 4070 [139]DX[178]107[167]PB[178]PB[171]K1:HP[178]HP[170]K1:BP[178](PB[170]K1)[173]20:[139]BP[178][181](BP)[167]PB[178]PB[170]K8:HP[178]K0 4080 [139]DX[178]115[167]PB[178]PB[170]K1:HP[178]HP[171]K1:[139](PB[170]12)[173]P1[178][181]((PB[170]12)[173]P1)[167]PB[178]PB[171]K8:HP[178]7 4090 QA[178][194](PB[170]VM):[151]PB[170]VM,42:[129]R[178]1[164]99:[130]:X%[178]K0:[142] 4100 QA[178]P4[170](QA[178]P4)[172]P4:BY(ZP)[178]BY(ZP)[170]R[170]K2[172]R[172](QA[178]P4) 4120 B$[178][196](BY(ZP)):[151]LL[170]ZP,BY(ZP) 4130 A$[178][200](" ",[182]([195](B$)[171]K4)):[158]P5,14,ZP[170]K4:[153]B$A$,:[142] 4170 [129]R[178]K0[164]K3:PX[178]K6[171]R[170]K1:QX[178]BY(R):BY(R)[178]BY(PX):BY(PX)[178]QX:[130] 4180 BP[178]CA[170]RX[172]K8:[129]R[178]BP[164]R[170]K7:[151]R,BY(R[171]BP):[130]:[141]4330:[142] 4210 [139]R%[178]31[167]RX[178][194](2024) 4220 BP[178]CA[170]RX[172]K8:[129]R[178]BP[164]R[170]R%:BB[178]T%[171][194](R):[151]R,BB:[139]R[171]BP[179]K8[167]BY(R[171]BP)[178]BB 4225 [130]:[139]QD[179]K0[167]4756 4230 [137]4330 4235 T%[178]RY[173]F2%:R%[178]RY[171]T%[172]F2%:[151]251,R%:[151]252,T%:[158]50079 4236 RY[178]RY[170]16:[139]RY[178]BP[170]K8[167]4235 4237 [137]4754 4240 QX[178]ZP:R[178]K2[174]HP:LL[178]CA[170]RX[172]K8 4245 [129]ZP[178]K0[164]K7:[139][180](BY(ZP)[175]R)[178]RY[167]QA[178]KX:[141]4100 4250 PK[178]BY(ZP):[158]P5,20,ZP[170]K4:[141]3660:[130]:ZP[178]QX:QA[178][194](PB[170]VM):[142] 4260 LL[178]CA[170]RX[172]K8:[141]4120 4265 [151]50448,RX:PK[178]BY(ZP):[158]P5,20,ZP[170]K4:[141]3660:B$[178]"":[142] 4270 KX[178]CA[170]RX[172]K8:[129]PX[178]K0[164]K7:QX[178]K0:[129]R[178]K7[164]K0[169][171]K1:R%[178]K2[174]R:T%[178][180](BY(PX)[171]R%) 4280 [139]T%[177][171]K1[167]BY(PX)[178]BY(PX)[171]R%:R%[178]K2[174](K7[171]R):QX[178]QX[170]R% 4290 [130]:BY(PX)[178]QX:[151]KX[170]PX,BY(PX):[158]P5,14,PX[170]K4:PK[178]BY(PX) 4310 [153]" CMDCMDCMDCMD"PK,:[141]3660:[130]:QA[178][194](PB[170]VM):[151]VM[170]97,RX:[142] 4320 [139]R%[178]31[167]RX[178][194](2024) 4327 BP[178]CA[170]RX[172]K8:[129]R[178]BP[164]R[170]R%:[151]R,T%:[139]R[171]BP[179]K8[167]BY(R[171]BP)[178]T% 4328 [130]:[139]QD[179]K0[167]4756 4330 [158]P5,18,K2:[151]VM[170]97,RX:BB[178]K0:[129]R[178]CA[170]RX[172]K8[164]R[170]K7:BB[178]BB[170]K1 4334 PK[178][194](R):A$[178][196](PK):[158]P5,14,BB[170]K3 4336 [153]A$[200](" ",[182]([195](A$)[171]K4)),:BY(BB[171]K1)[178]PK:[141]3660:[130] 4340 R[178][194](2024) 4350 [139]R[179]253[167][151]50452,R:[151]50453,R[170]K1:[151]50492,R[170]K2:[151]50493,R[170]K3 4360 QA[178][194](PB[170]VM):[139]BB[179]K0[167][142] 4370 [158]P5,10,K0:[153]"SYS QUIT" 4390 [158]P5,K0,12:[153]"JOYSTICK/CURSOR KEYS TO MOVE OR:-" 4400 [153]" MOVE LEFT MOVE RIGHT" 4410 [153]" MOVE DOWN -> MOVE UP" 4420 [153]" BLANK CHARACTER FILL CHARACTER" 4430 [153]" BLANK ROW FILL ROW" 4440 [153]" BLANK COLUMN FILL COLUMN" 4450 [153]" COPY CHARACTER ROTATE CHAR." 4460 [153]" REVERSE CHARACTER" 4470 [153]" VERT. INVERSE HORIZ. INVERSE" 4475 [139]CY[179]K0[167][153]""; 4480 [153]" AUTO EDITSYS

QUADE EXPAND" 4490 [153]" OR FIRE BUTTON TO EDIT":[153]" QUADE EDIT" 4500 [153]"LISTPRESS OR OR TO QUIT EDIT";:[142] 4510 [161]A$:R[178]R[170]K1:[139]R[178]12[167]R[178]K0:[129]LL[178]938[170]VN[164]LL[170]KF:[151]LL,K1:[130] 4520 [139]R[178]K6[167][129]LL[178]938[170]VN[164]LL[170]KF:[151]LL,K7:[130] 4530 [139]A$[177]"/"[175]A$[179]":"[167]B$[178]B$[170]A$:[158]P5,34,23:[153]B$; 4540 [139][195](B$)[178]K3[176]A$[178][199](13)[167][151]D6,33:[151]D6,16:[137]4570 4550 [139]A$[178]"LET"[167][142] 4560 [137]4510 4570 LL[178][197](B$):[139]LL[178]K0[176]LL[177]255[167][158]P5,33,23:[153]" ";:[142] 4580 [129]R[178]938[170]VM[164]R[170]KF:[151]R,P4:[130]:[139]BB[179]K0[167][142] 4590 BP[178]CA[170]LL[172]K8:TX[178]CA[170]RX[172]K8:[129]R[178]K0[164]K7:[151]BP[170]R,[194](TX[170]R):[130]:B$[178]"":[142] 4620 [129]R[178]K0[164]K7:BY(R)[178][194](RY[170]R):[158]P5,14,R[170]K4:PK[178]BY(R) 4630 [153]" CMDCMDCMDCMD"PK,:[141]3660:[130]:QA[178][194](PB[170]VM):[151]VM[170]97,RX:[142] 4650 B$[178]"":R[178]11:[158]P5,18,23:[153]"CHARACTER CODE? "; 4660 BB[178][171]K1:LL[178]K0:[141]4510:BB[178]K0:[139]LL[178]K0[176]LL[177]252[176](LL[177][178]RX[175]LL[179]RX[170]K4)[167][142] 4670 KX[178]CA[170]LL[172]K8:RQ[178]CA[170]RX[172]K8:[129]R[178]K0[164]31:[151]KX[170]R,[194](RQ[170]R):[130]:[142] 4680 KX[178]127:RQ[178]RX:[151]2177,K8:[141]4720:KX[178]125:RQ[178]RX[170]K1:[151]2177,24:[141]4720 4690 KX[178]126:RQ[178]RX[170]K3:[151]2177,16:[141]4720 4695 KX[178]N9:RQ[178]RX[171]K2[172](QD[179]K0):[151]2177,K0:[141]4720:[151]2177,16:RY[178]CA[170]RX[172]K8 4700 [129]R[178]K0[164]R%:BP[178][194](VM[170]R):[151]RY[170]R,BP:[151]VM[170]R,P4 4705 [130]:[139]F3[179]K0[167][142] 4708 [139]QD[178]K0[167]4620 4710 [137]4756 4720 RY[178]CA[171]KX[172]K8:TX[178]CA[170]RQ[172]K8:RQ[178]2040 4730 [129]R[178]K0[164]K7:T%[178][194](R[170]TX):[151]RY[170]R,T%:[151]RQ[170]R,T%:[130]:[158]2130:[142] 4750 [139]QD[179]K0[167]4755 4751 [139][194](2028)[178]K4[167][151]2028,K0 4752 RX[178][194](2024)[170][194](2028):PB[178]180:[153]"LOAD";:[158]P5,18,K2:[141]3410 4753 [151]VM[170]97,RX:[141]4340:ZP[178]K0:HP[178]K7:[142] 4754 [129]R[178]K0[164]K7:BY(R)[178][194](BP[170]R):[130]:[137]4756 4755 [153]"LOAD"; 4756 RX[178][194](2024):[151]2026,K0:[151]2027,K0 4760 [158]P5,10,K0:[153]"SYS@@@@@@@@@@@@@@@@LIST"RX; 4770 RQ[178]CA[170]RX[172]K8:PX[178]40:QX[178]50266:[129]KX[178]K1[164]K2:[129]R[178]RQ[164]R[170]K7 4780 T%[178]R[173]F2%:X%[178]R[171]T%[172]F2%:[151]2031,X%:[151]2032,T% 4790 T%[178]QX[173]F2%:X%[178]QX[171]T%[172]F2%:[151]2033,X%:[151]2034,T% 4800 [158]49752:QX[178]QX[170]PX:[130]:RQ[178]RQ[170]16:[130] 4805 BB[178][171]K1:PB[178]90:R[178]RX:[141]4350:BB[178]K0:X%[178]K0 4810 ZP[178]K0:HP[178]K7:[158]P5,K3,19:[153]"/FIRE EDIT QUIT" 4820 [153]" COPY QUADE REVERSE QUADE" 4822 [153]" ROTATE HORIZONTAL INVERSE" 4823 [153]" BLANK FILL" 4824 [153]" SHIFT DOWN SHIFT RIGHT" 4825 [153]" CURSOR EDIT DRAW/SYSERASELIST";:[142] 4830 [139]DX[179][177]114[167]4860 4840 PB[178]PB[171]P1:ZP[178]ZP[171]K1:[139]PB[179]90[167]PB[178]PB[170]640:ZP[178]K7:RX[178]RX[170]K2:[137]5010 4850 [139]PB[170]P1[177]385[167][139]PB[179]410[167]ZP[178]K7:RX[178]RX[171]K2:[137]5010 4860 [139]DX[179][177]113[167]4890 4870 PB[178]PB[170]P1:ZP[178]ZP[170]K1:[139]PB[177]705[167]PB[178]PB[171]640:ZP[178]K0:RX[178]RX[171]K2:[137]5010 4880 [139]PB[171]P1[179]386[167][139]PB[177]385[167]ZP[178]K0:RX[178]RX[170]K2:[137]5010 4890 [139]DX[179][177]107[167]4930 4900 PB[178]PB[171]K1:HP[178]HP[170]K1 4910 BP[178](PB[171]K9)[173]40:[139]BP[178][181](BP)[167]PB[178]PB[170]16:HP[178]K0:RX[178]RX[170]K1:[137]5010 4920 BP[178](PB[171]17)[173]40:[139]BP[178][181](BP)[167]HP[178]K0:RX[178]RX[171]K1:[137]5010 4930 [139]DX[179][177]115[167]4970 4940 PB[178]PB[170]K1:HP[178]HP[171]K1 4950 BP[178](PB[170]14)[173]P1:[139]BP[178][181](BP)[167]PB[178]PB[171]16:HP[178]K7:RX[178]RX[171]K1:[137]5010 4960 BP[178](PB[170]22)[173]P1:[139]BP[178][181](BP)[167]HP[178]K7:RX[178]RX[170]K1:[137]5010 4970 QA[178][194](PB[170]VM):[151]PB[170]VM,42:X%[178]K1:[142] 4980 QA[178]P4[170](QA[178]P4)[172]P4:BP[178]K2[174]HP:BY(ZP)[178]BY(ZP)[170]BP[170]K2[172]BP[172](QA[178]P4) 5000 [151]CA[170]RX[172]K8[170]ZP,BY(ZP):[142] 5010 TX[178]CA[170]RX[172]K8:[129]R[178]K0[164]K7:BY(R)[178][194](TX[170]R):[130]:[137]4970 5030 [129]R[178]VM[164]R[170]31:[151]R,K0:[130] 5040 [129]TX[178]K0[164]K7:[129]R[178]K0[164]K7:BB[178]K2[174]R[175]BY(TX):[139]BB[178]K0[167]5090 5050 RQ[178]TX[172]K2[170]VM:T%[178]K8[172](TX[177]K3):RQ[178]RQ[171]T%:[139]R[177]K3[167]5080 5060 BB[178]K2[174](R[172]K2):T%[178]K2[174](R[172]K2[170]K1):BB[178]BB[170]T% 5070 BP[178]RQ[170]K8:[151]BP,[194](BP)[176]BB:BP[178]RQ[170]K9:[151]BP,[194](BP)[176]BB:[137]5090 5080 T%[178](R[171]K4)[172]K2:BB[178]K2[174]T%:BB[178]BB[170]K2[174](T%[170]K1) 5085 [151]RQ,[194](RQ)[176]BB:[151]RQ[170]K1,[194](RQ[170]K1)[176]BB 5090 [130]:[130]:RY[178]CA[170]RX[172]K8:[129]R[178]K0[164]31:[151]RY[170]R,[194](VM[170]R):[151]VM[170]R,P4:[130] 5094 [141]4620:[158]P5,10,K0:[153]"SYS QUIT":[137]4010 5100 RX[178]CA[170]QQ[172]K8:[129]R[178]CA[170]QP[172]K8[164]R[170]7:RM[178][194](R):[151]R,[194](RX):[151]RX,RM:RX[178]RX[170]K1 5110 [130]:[142] 5200 [129]TX[178]K0[164]16[169]16:RY[178]CA[170]TX[170]RX[172]K8:[129]R[178]RY[164]R[170]K7:T%[178][194](R):[151]R,[194](R[170]K8) 5210 [151]R[170]K8,T%:[130]:[130]:RY[178]RY[171]16:T%[178]RY[173]F2%:R%[178]RY[171]T%[172]F2% 5230 [151]2200,R%:[151]2201,T%:[151]2242,R%:[151]2243,T%:[158]2196 5240 [151]2200,K1:[151]2201,200:[151]2242,K1:[151]2243,200:BP[178]RY:[137]4754 5300 RX[178][194](2024):T%[178]K0:RY[178]CA[170]RX[172]K8[170]22 5310 RY[178]RY[170]T%:TX[178][194](RY[170]K1):BP[178]RY[171]K6 5320 [129]R[178]RY[164]RY[171]22[169][171]K1:R%[178][194](R):[151]R[170]K1,R% 5330 [139]R[178]BP[167]R[178]R[171]K9:R%[178][194](R):[151]R[170]K9,R% 5340 [130]:[151]R[170]K1,TX:T%[178]T%[170]K8:[139]T%[178]K8[167]5310 5350 BP[178]CA[170]RX[172]K8:[137]4754 6000 [161]B$:[139]B$[178]""[167]6000 6010 R[178][198](B$):[139]R[178]95[167]LL[178]99:[137]6000 6020 [139]LL[178]99[167]6350 6025 [139]R[178]77[167]8000 6030 [129]BP[178]2054[164]BP[170]33:[139]R[178][194](BP)[167]LL[178]BP[171]2054 6040 [130] 6330 [139]LL[177][171]K1[167]MX[178]55100[170]LL[172]100:T%[178]1999:[141]1700 6340 [142] 6350 LL[178][171]K1:[139]R[178]20[167]LL[178]11 6360 [139]R[178]140[176]R[178]139[167]LL[178]20[171](R[178]139) 6380 [137]6330 6980 RP[178]K0:[141]1530:R[178]K0:RQ[178]K0:RM[178]PP:XM[178]QQ:[141]7300:[139]F5[178]K0[176]RQ[178]K2[167]610 7000 [139]XM[177]248[167]610 7010 RP[178][182]([180](RQ[171]K1)):[139]BB[178]75[167]7170 7020 [139]TX[179]K0[167]7050 7030 [139]RQ[178]K1[167]XM[178]XM[170]K2 7040 [137]7070 7050 [139]RQ[178]K1[167]XM[178]XM[170]K1 7060 [139]RQ[179]K0[167]XM[178]XM[170]K3 7070 RM[178]RM[170]RQ:BP[178](RM[170]RP)[173]P1:[139]BP[178][181](BP)[167]610 7080 [151]RM[170]VN,KQ:[151]RM[170]VM,XM:R[178]R[170]K1:[139]R[178]F5[167]610 7090 RM[178]RM[170]RQ:BP[178](RM[170]RP)[173]P1:[139]BP[178][181](BP)[167]610 7100 [151]RM[170]VN,KQ:[151]RM[170]VM,XM[170]TX:R[178]R[170]K1:[139]R[178]F5[167]610 7110 RM[178]RM[170]RX:[139]RM[179]K0[176]RM[177]959[167]610 7120 [137]7070 7170 [139]TX[178]K1[167]XM[178]XM[170]K4[171](RQ[178]K1)[172]K2:[137]7190 7180 XM[178]XM[170]K5[171](RQ[179]K0)[172]K2 7190 RM[178]RM[170]RX:[139]RM[179]K0[176]RM[177]919[167]610 7200 [151]RM[170]VN,KQ:[151]RM[170]VM,XM:R[178]R[170]K1:[139]R[178]F5[167]610 7210 RM[178]RM[170]RX:[139]RM[179]K0[176]RM[177]919[167]610 7220 [151]RM[170]VN,KQ:[151]RM[170]VM,XM[170]TX:R[178]R[170]K1:[139]R[178]F5[167]610 7230 RM[178]RM[170]RQ:BP[178](RM[170]RP)[173]P1:[139]BP[178][181](BP)[167]610 7240 [137]7190 7260 RQ[178]K0:[141]7300:[139]F5[178]K0[176]RQ[178]K2[176]QQ[179]K2[167]610 7290 BB[178][198](A$):T%[178]QQ[171]K2[171](BB[178]134[176]BB[178]135):[137]2330 7300 [161]A$:[139]A$[178]"INPUT"[167]RQ[178][171]K1:RX[178][171]P1:TX[178]K1 7310 [139]A$[178]"DIM"[167]RQ[178]K1:RX[178][171]P1:TX[178]K1 7320 [139]A$[178]"READ"[167]RQ[178][171]K1:RX[178]P1:TX[178][171]K1 7330 [139]A$[178]"LET"[167]RQ[178]K1:RX[178]P1:TX[178][171]K1 7335 [139]A$[179][177]""[167][139]A$[179]"INPUT"[176]A$[177]"LET"[167]RQ[178]K2 7340 [139]RQ[178]K0[167]7300 7350 [142] 7400 [158]P5,K2,24:[139]EN[178]K5[167][153]"DEVICE"[182](DV)"NOT PRESENT"; 7405 [139]EN[179][177]K4[167][160]KF:[137]7420 7410 [153]"FILE NOT FOUND "; 7415 [158]P5,K2,24:[153]"FILE NOT FOUND ";:[159]KF,[182](DV),KF:[152]KF,"I0":[160]KF 7420 [129]R[178]K1[164]33:[151]D6,33:[151]D6,16:[130]:[129]R[178]1[164]3333:[130]:[137]2020 8000 RP[178]K0:[141]1530:[151]53281,K0:[151]VC[170]21,K0 8010 A$[178]"LIST NEXT MENU TO QUIT" 8020 [153]"LOAD<_>SYS"[166]14)"SELECT ON/OFF":[153] 8030 [153]"SYS BACKGROUND COLOR" 8040 [153]"SYS BORDER COLOR" 8050 [153]"SYS CLEAR PAD" 8060 [153]"SYS PAINT: TO QUIT" 8070 [153]"_SYS"[166]13)"HIDE/SEE PEN":[153] 8080 [153]"_SYS SWITCH USER BUFFER" 8090 [153]"SYS PUT SCREEN IN USER BUFFER" 8100 [153]"SYS GET SCREEN FROM USER BUFFER":[153] 8110 [153]"<=>SYS DEFINE PEN BY SCREEN CHAR.CODE" 8120 [153]"SYS PEN AS PAD CHAR.UNDER PEN" 8130 [153]"_: <,>/<.>SYS VIEW CHARACTER SET" 8135 [153]"_SYS SWAP PEN CHAR <-> PAD CHAR" 8140 [153]"_SYS"[166]10)"TYPE ON/OFF":[153] 8150 [153]"<:> OR _<:>SYS SHIFT ROW LEFT FROM PEN" 8160 [153]"<;> OR _<;>SYS SHIFT ROW RIGHT FROM PEN" 8170 [153]" OR _SYS SHIFT COLUMN DOWN FROM PEN" 8180 [153]"_

SYS"[166]9)"SHIFT COLUMN UP FROM PEN":[153]:[153]A$; 8200 [161]B$:[139]B$[178]""[167]8200 8210 [139]B$[179][177]"M"[167]8900 8220 [153]"LOADSYS SAVE SCREEN/COLOR/CHAR. SET" 8230 [153]"SYS LOAD SCREEN/COLOR/CHAR. SET" 8240 [153]"_SYS SAVE CHARACTER SET" 8250 [153]"_SYS LOAD CHARACTER SET" 8260 [153]"_SYS DISK DIRECTORY" 8270 [153]"_SYS ERASE FILE" 8280 [153]"_<*>SYS DRIVE NUMBER SWITCH":[153] 8290 [153]"_SYS NORMAL/REVERSE -> REVERSE/NORMAL" 8300 [153]"_SYS AS < BUT NOT NORMAL SPACES" 8310 [153]"_SYS COLOR: MATCH CHARACTER & COLOR" 8320 [153]"_SYS COLOR: MATCH CHARACTER (ONLY)" 8330 [153]"_SYS CHARACTERS:MATCH CHARACTER" 8340 [153]"_SYS CHARACTERS:MATCH CHARACTER & COLOR" 8350 [153]"_SYS INVERSE CHARACTERS:MATCH CHARACTER":[153] 8360 [153]"_SYS CHARACTER EDITOR" 8365 [153]"SYS DRAW QUADE":[153] 8370 [153]"_<^>SYS UNDO" 8380 [153]"_SYS MESSAGE" 8390 [153]"_SYS ROTATE CHARACTER" 8400 [153]"_SYS ROTATE QUADE":[153]:[153]A$; 8420 [161]B$:[139]B$[178]""[167]8420 8430 [139]B$[179][177]"M"[167]8900 8440 [153]"LOADSYS MOVE PEN LEFT/DOWN OF SCREEN" 8450 [153]"SYS MOVE PEN RIGHT 5 PLACES" 8460 [153]"FIRE UP,DOWN,LEFT,RIGHTSYS MOVE PEN TO EDGE"[166]28)"OF PAD":[153] 8470 [153]":<0>-<9>SYS SET PROJECTION NUMBER" 8480 [153]"<0> OR _<0>SYS PROJECTION NUMBER + 10" 8490 [153]"_SYS"[166]12)"BOX PROJECTION" 8500 [153]"_SYS ORTHOGONAL PROJECTION" 8510 [153]"_, _SYS DIAGONAL PROJECTION UP" 8520 [153]"_, _SYS DIAGONAL PROJECTION DOWN" 8530 [153]"_: SYS PROJECT DIAGONALS" 8540 [153]"_: SYS PROJECT DIAGONALS" 8550 [153]"_: SYS PROJECT DIAGONALS":[153] 8560 [153]"_SYS COLOR BARS OFF/ON" 8562 [153]"<1>/_<1> TO <8>/_<8>SYS SELECT PEN COLOR" 8564 [153]" <1> TO <8>SYS SELECT PEN COLOR":[153] 8566 [153]"SYS QUIT LODRAW2":[153]:[153]A$ 8570 [161]B$:[139]B$[178]""[167]8570 8580 [139]B$[178]"M"[167]8020 8900 RP[178]K0:[141]1550:[151]53281,ZY:[137]2940 55100 [143]REPLACE ALL PAD CHARACTERS THAT MATCH CHARACTER UNDER PEN, WITH PEN 55110 [143] CHARACTER@ 55200 [143]REPLACE COLOR OF ALL PAD CHARACTERS THAT MATCH CHARACTER UNDER PEN, 55210 [143] WITH PEN COLOR@ 55300 [143]REPLACE COLOR OF ALL PAD CHARACTERS THAT MATCH BOTH CHARACTER AND 55310 [143] COLOR UNDER PEN, WITH PEN COLOR@ 55400 [143]REPLACE ALL PAD CHARACTERS THAT MATCH BOTH CHARACTER AND COLOR UNDER 55410 [143] PEN, WITH PEN CHARACTER@ 55500 [143]REPLACE ALL PAD CHARACTERS THAT MATCH THE NORMAL/REVERSE CHARACTER 55510 [143] UNDER PEN, WITH THE REVERSE/NORMAL FORM OF THAT CHARACTER@ 55600 [143]REPLACE EVERY NORMAL/REVERSE CHARACTER ON PAD (INCLUDING SPACES) WITH 55610 [143] THE REVERSE/NORMAL FORM OF THAT CHARACTER@ 55700 [143]REPLACE EVERY NORMAL/REVERSE CHARACTER ON PAD (EXCLUDING NORMAL SPACES) 55710 [143] WITH THE REVERSE/NORMAL FORM OF THAT CHARACTER@ 55800 [143]ROTATES THE CURRENT PEN CHARACTER AND ALL CHARACTERS ON SCREEN SAME AS 55810 [143] PEN CHARACTER@ 55900 [143]TYPE ON/OFF SWITCH: IN TYPE ON MODE, LODRAW CAN BE USED LIKE A TYPEWRIT 55910 [143]ER@ 56000 [143]DRAWS A SQUARE FROM PEN WITH SIDE LENGTH EQUAL TO PROJECTION NUMBER@ 56100 [143]UNDO: CHANGES MADE BY A PROJECTION, REPLACE, GET OR CLEAR PAD OPERATION 56110 [143] CAN BE UNDONE, RESTORING YOUR ORIGINAL DESIGN@ 56200 [143]CHARACTER EDITOR: FOR DESIGNING YOUR OWN CHARACTERS AND QUADES@ 56300 [143]PUT: FOR STORING ON-SCREEN DESIGN, COLOR AND CHARACTER SET IN CURRENT 56310 [143] USER BUFFER@ 56400 [143]GET: FOR RETRIEVING DESIGN, COLOR AND CHARACTER SET FROM CURRENT 56410 [143] USER BUFFER@ 56500 [143]QUADES: FOUR CHARACTERS WITH SUCCESSIVE SCREEN CHARACTER CODES ARE 56510 [143] DRAWN IN A SQUARE TO RIGHT OF PEN * FIRST CHARACTER IS PEN CHARACTER@ 56600 [143]USER BUFFER SWITCH: SWITCHES BETWEEN BUFFER 1 AND BUFFER 2, TO/FROM 56610 [143] WHICH SCREEN/COLOR/CHARACTER SET CAN BE STORED/RETRIEVED@ 56700 [143]ADDS 10 TO THE PROJECTION NUMBER@ 56800 [143]HIDE/SEE PEN SWITCH@ 56900 [143]DISK SAVE SCREEN/COLOR/CHARACTER SET@ 57000 [143]DISK LOAD SCREEN/COLOR/CHARACTER SET@ 57100 [143]DISK SAVE CHARACTER SET@ 57200 [143]DISK LOAD CHARACTER SET@ 57300 [143]DISPLAY DISK DIRECTORY@ 57400 [143]ERASE FILE FROM DISK@ 57500 [143]PAINT: PEN WILL PAINT CHARACTERS IT PASSES OVER WITH PEN COLOR * 57510 [143] QUITS PAINT@ 57600 [143]SHIFT ROW LEFT FROM PEN@ 57700 [143]SHIFT ROW RIGHT FROM PEN@ 57800 [143]SHIFT COLUMN DOWN FROM PEN@ 57900 [143]SHIFT COLUMN UP FROM PEN@ 58000 [143]SWAP: TRANSPOSES PEN CHARACTER WITH PAD CHARACTER UNDER PEN WITHOUT 58010 [143] SWAPPING THEIR SCREEN CHARACTER CODES * ALL CHARACTERS ON SCREEN SAME 58020 [143] AS CHARACTER UNDER PEN WILL BE CHANGED@ 58100 [143]DEFINES PEN CHARACTER AS THE CHARACTER ON THE PAD UNDER THE PEN@ 58200 [143]ROTATES THE CURRENT QUADE (WHICH BEGINS WITH CURRENT PEN CHARACTER) AND 58210 [143] ALL CHARACTERS ON SCREEN THAT ARE PART OF THE CURRENT QUADE@ 58300 [143]CLEAR PAD: