Uݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4.Manifestx86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4Microsoft.WiUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4.Manifestx86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4Microsoft.WiUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4.Manifestx86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4Microsoft.WiUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4.Manifestx86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4Microsoft.WiUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4.Manifestx86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4Microsoft.Wi 37,38,39,41,40,42:::::::DRAW FRONT SAIL C147NL42:X0114:Y026@110`:::::::REAR SAIL ENDPOINTSlI040E%(0,I),E%(1,I)&I078,12,75,20,73,15:80,20,61,13,78,22D60,18,48,25,44,22N69,39,52,30,50,38XI27I3I1):RV1CO255COc4,(CO);h::4r#|4:4,(27)(64)*4b53272,(53272)8:53265,(53265)32:49514:V21,1j35ORMAL GRAPHICS"2"REVERSE GRAPHICS"<A$:A$"N"A$"R"1340FA$"N"RV0 54108,60,86,48,88,5085,51,88,52,66,407122,72,62,54,42,75R39,72,117,105,113,103j122,90,76,89,81,9075,94,79,96,60,88115,111,60,109,57,12055,119,81,126,93,130115,135,110,134,117,126"70,123,76,124,68,12x |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./01234567125,89,125~93,135,84,150,78,150056,132,54,135,92,127J90,130,18,144,17,141a4,144,7,150,6,149t88,132,92,137:::::::SHIP LINESI013L%(0,I),L%(1,I)I0,1,0,2,1,3,1,52,6,3,4,3,9,6,78,10,9,14,10, W|tu_||_|||x,|U|T|xp,@\||G]|@ES2 I03< L%(0,I),L%(1,I) F IP 0,1,1,2,3,4,4,5; :::::::DRAW SM SEAGULLSV NL3:X0261:Y010:110q NL3:X0275:Y050:110yA$A$" "60005000p30z5 L%(0,I),L%(1,I) I$ 0,1,1,2,2,3,3,4. 4;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|IL>C14HNL25:X0114:Y026R110.:::::::LRG SEAGULL ENDPTS9I06NE%(0,I),E%(1,I)UIk0,6,10,0,13,2,146,15,2,18,0,28,6:::::::LRG SEAGULL LINES I05 L%(0,I),L%(1,I) I$ 0,1,1,2,2,3,3,4. 4 \\.\opencbm0I]@K`$g"|l |$(|||>V| @39,45,37,44,60,56b99,59,99,55,59,57)l37,48,33,69,20,84Cv13,80,60,102,102,106[100,99,28,87,30,96u24,105,21,102,58,11615,81,25,141,41,11149,114,33,140,42,13854,115,39,139,48,13712,105,63,127:::::::REARPA$"R"RV1B$(0):BM819253272,(53272)8%53265,(53265)320495149"4,4K,4,(27)(64)a64,(27)(65)(8)q@I103128E4,(27)(75)(44)(1);FX1100:4,B$;:JI207680320TI307^CO(BM76809,74,128@:::::::FRONT SAIL LINES"JI0277TL%(0,I),L%(1,I)>^ISh0,1,0,2,3,4,5,6jr5,7,6,11,7,8,9,10|11,12,13,15,14,16,17,1817,19,18,24,19,20,21,2223,24,25,27,26,28,29,3029,31,30,38,31,32,33,3435,36,t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|11,11,12 12,13,15,16:::::::DRAW SHIP(C14?(NL13:X0114:Y026H2110ix:::::::FRONT SAIL ENDPOINTSuI042E%(O,I),E%(1,I)I96,7,91,28,92,2986,17,105,29,78,22108,38,75,30,69,3967,38,112,62,111,,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Window,5,5,6` :::::::DRAW LRG SEAGULLSj C30+t NL5:X0114:Y026:ˇ110G~ NL5:X030:Y0151:ˇ110b NL5:X080:Y050:ˇ110 :::::::SM SEAGULL ENDPTS I05 E%(0,I),E%(1,I) I 0,8,5,5,8,6,7,8,9,4,16,0( :::::::SM SEAGULL LIN="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1 SAIL LINESI025L%(0,I),L%(1,I)I.0,1,2,3,4,5,4,6F6,7,8,9,9,10,10,11c 11,12,13,14,15,16,17,1818,19,19,20,21,22,23,24 25,26,26,27,28,29,30,31*31,32,33,34,33,35,36,37/36,38,39,404:::::::DRAW REAR SA 6,124,68,129,74,128!@:::::::FRONT SAIL LINES-JI027BTL%(0,I),L%(1,I)I^I^h0,1,0,2,3,4,5,6ur5,7,6,11,7,8,9,10|11,12,13,15,14,16,17,1817,19,18,24,19,20,21,2223,24,25,27,26,28,29,3029,31,30,38,31,32,33,34 11,11,12 12,13,15,16:::::::DRAW SHIP(C14?(NL13:X0114:Y026S2:****:GOSUB110tx:::::::FRONT SAIL ENDPOINTSI042E%(O,I),E%(1,I)I96,7,91,28,92,2986,17,105,29,78,22108,38,75,30,69,3967,38, D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ E1)Y0rX2E%(0,E2)X0:Y2E%(1,E2)Y0$s80+tJ1uM::::::::::::::::::::::c MAIN ROUTINE::::::::::::::::::::::20E%(1,99),L%(1,99)L:::::::SHIP ENDPOINTSVI016`E%(0,I),E%(1,I)jIt114,108,93,^^^^^^^^^^ ^^^ 1000 :::::::ZAP!4 A256:B2049:C1003O (B2)A(B3)C15q B(B)A(B1):(B0)12:A256:B(251)A(252)(B1)0(147)(B2)A(B3):"GOTO 14"251,B(BA)A:252,BA 631,19:632,13:633,13: I$ 0,1,1,2,2,3,3,4 . 4,5,5,6'` :::::::DRAW LRG SEAGULLS0j C30Ot *NL=5:X0=114:Y0=26:GO110n~ *NL=5:X0=30:Y0=151:GO110 *NL=5:X0=80:Y0=50:GO110A$A$" "60005000p30z,33,35,36,37/36,38,39,40I,0 5I 6' <:::::::FIND A POINT6 =ROW(Y8)E >COL(X8)R ?LINEY7b @BIT7(X7) ABYTE24576ROW320COL8LINE BCBYTE17408ROW40COL C F:::::::PLOT A POINT G60 HBYTE,(BYTE)2BIT ICBYTE,C J P:::3,127:::::::REAR SAIL LINESI025(L%(0,I),L%(1,I)/ID0,1,2,3,4,5,4,6\6,7,8,9,9,10,10,11y 11,12,13,14,15,16,17,1818,19,19,20,21,22,23,24 25,26,26,27,28,29,30,31*31,32,33,34,33,35,36,37/36,38,39,40 ](((BYTE)2BIT)0)97:PR096C ^PR0:FL$"F"Y1YC:FL$"T":96S _99:FL$"F"_ `YC:98y aPR1:YC:FL$"T"99 bX: cYY1YC1:((1)PC)70:Y: d:::::::SAVE PICTURE e"FILENAME";FILE$ f"ENTER 8 FOR DISK, OR 1 FOR 35,36,37,38,39,41,40,42":::::::DRAW FRONT SAIL+C14BNL42:X0114:Y026V:****:GOSUB110v:::::::REAR SAIL ENDPOINTSI040E%(0,I),E%(1,I)&I078,12,75,20,73,15:80,20,61,13,78,22D60,18,48,25,44,22N112,62,111,54108,60,86,48,88,50*85,51,88,52,66,40B122,72,62,54,42,75]39,72,117,105,113,103u122,90,76,89,81,9075,94,79,96,60,88115,111,60,109,57,12055,119,81,126,93,130115,135,110,134,117,126"70,123,7^^^^^^^^^^^^125,89,125~93,135,84,150,78,150056,132,54,135,92,127J90,130,18,144,17,141a4,144,7,150,6,149t88,132,92,137:::::::SHIP LINESI013L%(0,I),L%(1,I)I0,1,0,2,1,3,1,52,6,3,4,3,9,6,78,10,9,14,10,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^198,3: :::::::GRAPHICS( 53265,596 53272,29E 56576,198K \ :::::::TEXTj 53265,27x 53272,21 !56576,199 " (:::::::COLORS )I1740818407 *I,C + , 2:::::::PAINT BACKGROUND 3I2457632575 4E1)Y0rX2E%(0,E2)X0:Y2E%(1,E2)Y0$s80+tJ1uM::::::::::::::::::::::c MAIN ROUTINE::::::::::::::::::::::20E%(1,99),L%(1,99)L:::::::SHIP ENDPOINTSVI016`E%(0,I),E%(1,I)jIt114,108,93, ::::PLOT A LINE QDXX2X1:DYY2Y1< RL(DX):(DY)LL(DY)U SL0XIDXL:YIDYLi TXX1.5:YY1.5t UI0L| V70 WXXXI:YYYI XI Y Z:::::::PAINT A SHAPE [PCPC(PC0):XX0X0W:FL$"F":PR0 \YCY0Y0H:YYC:604:::::::DRAW REAR SAIL>C14HNL25:X0114:Y0260R:****:GOSUB110O:::::::LRG SEAGULL ENDPTSZI06oE%(0,I),E%(1,I)vI0,6,10,0,13,2,146,15,2,18,0,28,6:::::::LRG SEAGULL LINES I05 L%(0,I),L%(1,I)CASSETTE";DE g57812 FILE$".PIC",DEA h174,64:175,127:193,0:194,96L i62954h j57812 FILE$".COL", DE k174,232:175,71:193,0:194,68 l62954: n:::::::DRAW A SHAPE oJ0NL pE1L%(0,J):E2L%(1,J) qX1E%(0,E1)X0:Y1E%(1,69,39,52,30,50,38X39,45,37,44,60,56(b99,59,99,55,59,57?l37,48,33,69,20,84Yv13,80,60,102,102,106q100,99,28,87,30,9624,105,21,102,58,11615,81,25,141,41,11149,114,33,140,42,13854,115,39,139,48,13712,105,6 40,0,0,240,0,2,128,0,2,128,0,10,0M0,10,0,0,40,0,0,168,0,0,160,0,2,128,0,2,128,0,10,0,0,10,0,0,4,0,21k16,21,64,21,64,0,0,0,0,00,0,0,0,0,0,0,0,16,,0,80,0,2,128,0,2,128,0,10,0,0,10,0,0,40,0,0,40,0 0,160,0,0,160,0,2,128,0,2,128,0,10,0,0, "";"";"HI-RES TO PRINTER? Y/N";8DU$:DU$"Y"DU$"N"1305KDU$"N"63115]A$"N"63115("NORMAL GRAPHICS"2"REVERSE GRAPHICS"<A$:A$"N"A$"R"1340FA$"N"RV0 4992049971:A:I,A:I:700C169,0,141,52,195,173,0,220,106,176,9,162,2,142,52,195,10676,28,195,106,176,5,162,4,142,52,195,106,176,9,173,52,195105,6,141,52,195,96,106,176,8,173,52,195,105,3,141,52,195,96XI07:M1%(I)2(7I):Y  1000 :::::::ZAP!4 A256:B2049:C1003O (B2)A(B3)C15q B(B)A(B1):(B0)12:A256:B(251)A(252)(B1)0(147)(B2)A(B3):"GOTO 14"251,B(BA)A:252,BA 631,19:632,13:633,13:-1,1:,169,0,162,0,157,0,32,157,250,32,157,244,33,157,238,34,157,232,35,1571226,36,157,220,37,157,214,38,157,208,39,157,202,40,157,196,41,157,190642,157,184,43,157,178,44,157,172,45,157,166,46,157,160,47,157,154,48;157,148,49,157,142,50GE"$"9 - BROWN":"10 - LT. RED":"11 - GRAY 1"I"12 - GRAY 2":"13 - LT. GREEN"m"14 - LT. BLUE":"15 - GRAY 3""CHARACTER";ABAB0AB15230"BACKGROUND";AAAA0AA15240ADAB16:COADAA:49664,CO4940DE"T)"O EXIT ERASE MODE"T)"FIRE BUTTON ERASE POINT"I"HIT ANY KEY TO RETURN"_KE$:KE$""120553265,(53265)32:53272,(53272)8:V21,1:4951445V21,053272,(53272)247:53265,(53265)223:5BYBM(40(Y248))(Y7)(X504):(V16,1AXXXS255:XX85102PXX84:102h53265,(53265)22353272,(53272)2475324821,0""13);"SURE? Y/N"SU$:SU$""166SU$"Y"63115:(147):(1265)32:53272,(53272)8:495148LV21,0:53272,(53272)247:53265,(53265)223AM""INT8iQ11)"C-64 HI-RES DOODLE"R12)"BY MATT PUZON"S14)"(C) 1983"VT)"N NEW SCREEN"`T)"H HELP"jT)"Q QUIT"I,0 5I 6' <:::::::FIND A POINT6 =ROW(Y8)E >COL(X8)R ?LINEY7b @BIT7(X7) ABYTE24576ROW320COL8LINE BCBYTE17408ROW40COL C F:::::::PLOT A POINT G60 HBYTE,(BYTE)2BIT ICBYTE,C J P:::10,0,5,60,0,80,60,5,0,0,80,0,50,0,0,0,0D 53265,(53265)223:53272,(53272)247:53269,0q%" WANT TO SAVE THIS PICTURE (Y/N)"&SV$:SV$"Y"SV$"N"806'SV$"N"910*"FILENAME";NA$/NA(NA$)4N ](((BYTE)2BIT)0)97:PR096C ^PR0:FL$"F"Y1YC:FL$"T":96S _99:FL$"F"_ `YC:98y aPR1:YC:FL$"T"99 bX: cYY1YC1:((1)PC)70:Y: d:::::::SAVE PICTURE e"FILENAME";FILE$ f"ENTER 8 FOR DISK, OR 1 FOR I110:X1%(I),Y1%(I)::I8321022:A:I,A::^0,0,0,0,0,0,0,0,0,0,0,15,0,0,60,0,0,160,0,2,128,0,10,1,0,40,50,160,20,2,128,80,10,1,64,20,5,0,16,20,0,0,80,0,1,64,0,5,0,0,20,0,016,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,0,0,0,2 198,3: :::::::GRAPHICS( 53265,596 53272,29E 56576,198K \ :::::::TEXTj 53265,27x 53272,21 !56576,199 " (:::::::COLORS )I1740818407 *I,C + , 2:::::::PAINT BACKGROUND 3I2457632575 4,157,136,51,157,130,52,157,124,53,157,118,54a@157,112,55,157,106,56,157,100,57,157,94,58,157,88,59,157,82,60,157,76E61,157,70,62,232,224,250,208,155,96J173,0,194,162,0,157,0,4,157,250,4,157,244,5,157,238,6,232,224,250,208O239,96ICASSETTE";DE g57812 FILE$".PIC",DEA h174,64:175,127:193,0:194,96L i62954h j57812 FILE$".COL", DE k174,232:175,71:193,0:194,68 l62954: n:::::::DRAW A SHAPE oJ0NL pE1L%(0,J):E2L%(1,J) qX1E%(0,E1)X0:Y1E%(1,8:V16,0:35 ABAB1:AB15AB0<ADAB16:ACADAA:49664,AC:49514:TAAAA1:AA15AA0}ADAB16:ACADAA:49664,AC:49514:(49408)169(49410)162"I0128:A:49408I,A:I'500),,,-1,1,,,1,1,-1,-1,,1,1,-1,-1,,,47);11)"C-64 HI-RES DOODLE"@17)"(C) 1983":14)"BY MATT PUZON"j"YOU MAY CHOOSE FROM THESE COLORS:""0 - BLACK":"1 - WHITE":"2 - RED""3 - CYAN":"4 - PURPLE":"5 - GREEN""6 - BLUE":"7 - YELLOW":"8 - ORANtT)"C CHANGE DRAWING COLOR""~T)"B CHANGE BACKGROUND COLOR"7T)"U PEN UP"RT)"S SAVE PICTURE"mT)"L LOAD PICTURE"T)"D PEN DOWN"T)"+/* CRSR ON/OFF"T)"P DUMP TO PRINTER"T)"E ENTER ERASE MO ::::PLOT A LINE QDXX2X1:DYY2Y1< RL(DX):(DY)LL(DY)U SL0XIDXL:YIDYLi TXX1.5:YY1.5t UI0L| V70 WXXXI:YYYI XI Y Z:::::::PAINT A SHAPE [PCPC(PC0):XX0X0W:FL$"F":PR0 \YCY0Y0H:YYC:6011NA>49151N1,((NA$,N1,1)) H,R:11);:"TAPE OR DISK";DV$H\DV1:(DV$,1)"D"DV8kf780,4:781,DV:782,255:65466p780,NA:781,0:782,192:65469z251,0:252,32780,251:781,63:782,63:6549653269,1:53265,(53       @@@   `` 8((HH  "",12)"TA-DAH! HERE'SD13)"OUR TEXT WITH_(12)"A BOX AROUND IT.2WID21:DEP7:DOWN7:LEF((40WID)2)F10000::8)"PRESS ANY KEY TO GO ONPJ$:J$""80Z"DRAW A BOX TO YOUR OWN SPECIFICATIONS d"WIDTH  "YOU CAN'T DO THAT":160K "":10000:I15000::"ANOTHER BOX (Y/N)";AN$\ AN$"Y"100b h ' '211,LEF:214,DOWN:""; $'I1WID:"";:: .'I1DEP:LEF);"";LEFWID1)"":"": 8'211,LEF:214,DOWNDEP1:""; B'I1WID  9PI153269,1:53265,(53265)32:53272,(53272)8NPI149514:35e600:285:170:15 53272,(53272)247:53265,(53265)223:"":53269,0 "LOAD PICTURE (Y/N)";YN$:YN$"Y"15 :"NAME";NA$:  #X160:Y100:XS182:YS131/ *53248,XS:53249,YS; -PEN60F .49920U /J(49972)o 2((56320)16)0115| 3ER115 4J060 7MXX1%(J)X:MYY1%(J)Y 8S1X1%(J)XS:S2Y1%(J)YS 9XMX:YMY :XSS1:YSS2 ;85:XSX22:YSY31:  1300 QA$"E"PEN12040,15:ER19 RA$"O"2040,14:ER0F SPEN120N T45_ UX319X319l ZX0X0} _Y199Y199 `Y0Y0 aXS255140 bV16,0 eXS22XS22 fYS230YS230 gYS0YS0 hXS255XXXS: i     @@  OF BOX (2-39)";WID0 n"DEPTH OF BOX (1-23)";DEPS x"DISTANCE DOWN FROM TOP";DOWN~ DEPDOWN24"YOU CAN'T DO THAT":110 "CENTER THE BOX LEFT/RIGHT";AN$ (AN$,1)"Y"LEF((40WID)2):180 "DISTANCE FROM LEFT";LEF LEFWID39 :"";::)";WID0 n"DEPTH OF BOX (1-23)";DEPS x"DISTANCE DOWN FROM TOP";DOWN~ DEPDOWN24"YOU CAN'T DO THAT":110 "CENTER THE BOX LEFT/RIGHT";AN$ (AN$,1)"Y"LEF((40WID)2):180 "DISTANCE FROM LEFT";LEF LEFWID39  8 13);:"TAPE OR DISK";DV$:DV1:(DV$,1)"D"DV8K PI1:NA$,DV,1h V53248:2040,14:BM8192 V28,3:V37,0:V38,2:V39,7:V40,7 53248,0:53249,0 53265,(53265)32 53272,(53272)8 49408 49514 V21,1  106 <A$:A$"Q"150" AA$"N"2603 FA$"C"265D GA$"H"1100U HA$"B"275{ IA$"U"ER12040,13:PEN1:120 JA$"D"ER12040,14:PEN0 KA$"*"5324821,0 LA$"+"5324821,1 MA$"S"800 NA$"L"10 OA$"P"  j130 kBY,(BY)M1%(X7)0 l53248,XX:53249,YS8 n45Y s130:BY,(BY)(M1%(X7)):o x49920:J(49972) yMXX1%(J)X:MYY1%(J)Y zS1X1%(J)XS:S2Y1%(J)YS {XSS1:YSS2:XS255XXXS |85:53248,XX:53249,YS }XMX:YMY:4  @@@   `` 8((HH & (147):53280,14:53281,6:1000XV53248:V28,255:V37,12:V38,11:V21,255nV39,15:V40,15|2X0:Y1003T12:C034C3V40,252040,230C2:2041,231C27IXX25:V,I:V1,Y:V2,I24:V3,Y9I:XX25 ,255,213,0,0,0,0"  0,0,0,0,0,0,0,08  0,0,0,0,0,0,0,0P  0,0,0,0,0,0,0,255f  0,0,0,0,0,0,0,0|  0,0,0,0,0,0,0,0  0,0,168,0,64,18,255,64  255,255,64,255,255,80,87,255  64,85,240,64,0,0,64,0  0,0,0,0,0,0,0,0  0,0,0 ,85,0  0,85,0,0,85,0,0,85/ " 0,0,85,0,0,85,0,64S $ 255,255,64,171,255,64,238,255u & 80,171,255,64,255,255,64,85 ( 0,64,85,0,0,85,0,0 * 85,0,0,85,0,0,85,0 , 0,85,0,0,20,0,0,255 . 0,0,0,0,0,0,0,0 0 0,0,0,0,0,0,0,0 2 0, 64,255,255,80,255,255,64,18-H 255,64,168,0,64,0,0,0CJ 0,0,0,0,0,0,0,0YL 0,0,0,0,0,0,0,0oN 0,0,0,0,0,0,0,0P 1,0,0,1,0,0,5,0R 0,5,4,0,5,21,0,21T 21,0,85,63,255,85,255,255V 85,63,255,85,21,0,85,21X 0,21,4,0,5,0,0,5 ??TUUUUUUU@@@P@@U@UUUUUUTU?UU?UUTUUUU@U@U@UPU@U@U@UUU0,0,20,0,0,255,25655,64,18-H 255,64,168,0,64,0,0,0CJ 0,0,0,0,0,0,0,0YL 0,0,0,0,0,0,0,0oN 0,0,0,0,0,0,0,0P 1,0,0,1,0,0,5,0R 0,5,4,0,5,21,0,21T 21,0,85,63,255,85,255,255V 85,63,255,85,21,0,85,21X 0,21,4,0,5,0,0,5 ,0,0#H? 0,0,0,0,0,0,0,0#P? 0,0,0,0,0,0,0,0#X? 0,0,0,0,0,14,0,0#`? 12,0,0,4,0,0,0,0#h? 0,0,0,0,0,0,0,0#p? 0,0,0,0,0,0,0,0#x? 0,0,0,0,0,0,0,0#? 0,0,0,0,0,0,0,0#? 0,0,0,0,0,0,0,0#? 0,0,0,112,0,1,240,0#? 0,112,0,0,96,0,0,/0,0,30,0,0,12,0#? 0,12,0,0,24,0,0,0,256,0,4,0,0,0,0h? 0,0,0,0,0,0,0,0p? 0,0,0,0,0,0,0,0x? 0,0,0,0,0,0,0,0? 0,0,0,0,0,0,0,0? 0,0,0,0,0,0,0,0? 0,0,0,112,0,1,240,0? 0,112,0,0,96,0,0,12? 0,0,14,0,0,14,0,0? 0,0 A$"R"629995  *** MATT'S HI-RES SCREEN CLEAR ***S  *** W/ COLOR POKING ***v  *** SYS TO 49408 TO CALL ***  *** STORE COLOR CODE AT 49664 *** I0127:A:49408I,A:I 169,0,162,0,157,0,32,157,250,32,157,244,33,157,238,34,157, ,56,157,100,57,157,94,58,157,88,59,157,82,60,157,76S $61,157,70,62,232,224,250,208,155 .173,0,194,162,0,157,0,4,157,250,4,157,244,5,157,238,6,232,224,250,208 8239,96 RV1 B$(0):BM8192 53272,(53272)8 53265,(53265)32 "  <C =V40,15 >T/ @2040,230:2041,2315 A I14720X (I)0(I1)0l  A: A256  I,A:II1:1002  0,0,0,0,0,0,0,0  0,0,0,0,4,0,0,21  0,0,21,0,3,21,64,255  63,255,255,213,255,255,255,255  245,15 ,0,0,0,0,0  0,0,0,0,0,0,0,00  0,0,0,0,0,0,0,0F  1,0,0,1,0,0,5,0]  0,5,4,0,5,21,0,5  21,0,255,63,255,255,213,127  255,63,255,255,21,0,255,21  0,5,4,0,5,0,0,5  0,0,5,0,0,1,0,0  1,0,0,0,0,0,0,255  20,0,0,85,0,0 0,0,0,0,0,0,0" 4 0,0,0,15,255,213,255,255F 6 245,213,255,255,63,255,255,21a 8 64,255,21,0,3,21,0,0w : 4,0,0,0,0,0,0,0 < 0,0,0,0,0,0,0,255 > 0,0,0,0,0,0,0,0 @ 0,0,0,0,0,0,0,0 B 0,0,0,0,0,0,0,0 D 0,0,64,85,240,64,87,255F Z 0,0,5,0,0,1,0,0 \ 1,0,0,0,0,0,0,2559^ 20,0,0,85,0,0,85,0U` 0,101,0,0,169,0,0,101nb 0,0,85,0,0,85,0,64d 85,255,64,85,255,64,85,255f 80,85,255,64,85,255,64,85h 0,64,85,0,0,101,0,0j 169,0,0,101,0,0,85,0l 0,85,T@?@@@PW@U@@?@@U@W@P@@@ 0,0,0,0,0#> 0,0,0,0,0,0,0,243#? 0,0,0,0,0,0,0,0#? 0,3,0,0,3,135,0,3#? 141,0,3,128,128,0,0,64#? 0,0,32,0,0,16,0,0# ? 16,0,0,16,0,0,16,0#(? 0,112,0,0,128,0,31,0#0? 0,14,192,0,2,0,0,0#8? 0,8,0,0,28,0,0,251#@? 30,0,0,24,0,0 12#? 0,0,14,0,0,14,0,0#? 0,0,0,0,0,0,192,0#? 0,224,0,0,224,0,0,0#? 0,0,0,0,0,0,0,247#? 0,0,0,0,0,0,0,0#? 0,0,0,0,0,0,0,0#? 0,0,0,0,0,0,0,0#? 0,0,0,0,0,0,128,0#? 0,192,0,0,192,0,0,224#? 0,0,224,0,0,112,0,0#? 56,6(53272)247:53265,(53265)223:( RV0:63000 $61,157,70,62,232,224,250,208,155 .173,0,194,162,0,157,0,4,157,250,4,157,244,5,157,238,6,232,224,250,208 8239,96 RV1 B$(0):BM8192 53272,(53272)8 53265,(53265)32 " 232,35,157Q 226,36,157,220,37,157,214,38,157,208,39,157,202,40,157,196,41,157,190 42,157,18mNN Ȣu$A0 A1:"SPRITE MAGIC",8,1H,A$"SYS49152"(13):198,(A$)k6I1(A$):630I,((A$,I)):q@SHIFT 1-4:SETCOLOR" "HOME:TOP LEFT"19)"CLR:ERASE CHAR." "CTRL-R:REVERSE CHARACTER" "CTRL-D:MAKE DAT II>>>?????f~<<<<< ***8a*<??????=? Щ ; LiiLح 0)JJJJ 0) 0`8--..ab9:aaa9ȱa:aHȱabhaL]9i9:i: b-i%-ȥ.i-ȥ9-ȥ:-ȩ-Ȅabb Ȥa-ȑ-ȑ-ȩ,-ȄabȘ)Մba 888U@*~~~~~~~~~~pwhvnhw~~pp~s` ;`vl0r + ;`+ .+` ;`7 ʬ7a a + ӈ L ) a L ǩ_` ʢT DhhL6 6T6DB@0:7,P2S ,WLǠA STATEMENTS": "SHIFT-RUN/STOP:RE-RUN ULTRAFONT+"a "CTRL-X:EXIT ULTRAFONT+" "CTRL-_:COPYDOWN TO RVS"; A1:"ULTRAFONT.OBJ",8,1 ,A$"SYS49152"(13):198,(A$) 6I1(A$):630I,((A$,I)): @"  `ʊ 3H2H`'MJ1234!"#$VSLXYB +-_F X*3ʼnŏŝſ">^^^^ƮȭŶŅXXAQZ-L!`-L,0,L,0,hhLíI`I`0 3 Э%Э'Э&Э,), )"V:CURSOR VELOCITY"F ""t " T:TYPE MODE. USE RUN/STOP TO EXIT" 7)"CRSR KEYS:MOVE SMALL CURSOR" "F1:SCROLL DOWN"19)"F2:SCROLL UP" "F3:SCROLL RIGHT"19)"F4:SCROLL LEFT"  _ `5` 8 05+0&Э%Ѝ' ЩЭ+ЩЩ !Ѝ Ѝ,- ;  ĭH)I.h)/  L í/ Y ĭ/I4.î.B¬0 m,,-}X-,,0, (*(` ȱJ(j(?` ?<ʑ` <<ȑʑ` a7J>77aa?נʑ?` ܅a)I}BЭ}MЭ}X í)m @@@PW@U@@{@P_C@>@ ((((((??xʑ` ` Lȩ_  ¢ I Lt d LȩЩL[x 3,1,32,3,1,224,3,135#> 224,7,255,224,3,255,224,247#> 1,255,240,7,255,240,15,224#> 248,7,224,248,1,240,120,0#> 240,124,0,56,60,0,24,28#> 0,12,30,0,14,1,0,30#> 3,0,24,3,0,16,3,0#> 0,1,0,0,0,0,0,0#> 0,0,0, 5"WHEN SIZE OF STEP SHOWS ON SCREEN":t"TYPE A NUMBER FROM 1 TO INFINITY."::"TYPE Q TO QUIT":"WHEN OBJECT SHOWS ON SCREEN":"PRESS U TO MOVE UP""H TO MOVE LEFT":"J TO MOVE RIGHT":"AND N TO MOVE DOWN"# "(0,0,0X0,0,0,0,0,0,0,0,0,0,0,0,03248,I232:53249,160L 153250,I:53251,160R 2^ 3V16,3l 4I23111 553248,I23:53249,160 653250,I:53251,160 7 853264,0:42 c d0,63,255,0,48,0,0,40,0,15,250,0,63,250,128,85,250,12  4:V29,(V29)254 D100:H2009 N062:Q:832N,Q:H D0D255W D255D0f H0H255u !H255H0 #V,H:V1,D 2A$:A$""50 7A$"H"HHZ <A$"J"HHZ FA$"U"DDZ PA$"N"DDZ ZA$"Q""":V21,0:  * " "Z " " "  " "  " " " " 140:" ";:! "F140:" ";:8 #F140:" ";:O $F140:" ";:f %F140:" ";:} &F140:" ";: 'F139:" ";: (2023,160:202354272,5 )""; *I0232 +53248,I:53249,160 ,53250,I23:53251,1M 26,170,160 10,170,144$ 1,137,362 "2,138,10A ,10,70,129W D255D0f H0H255u !H255H0 #V,H:V1,D 2A$:A$""50 7A$"H"HHZ <A$"J"HHZ FA$"U"DDZ PA$"N"DDZ ZA$"Q""":V21,0: 8,63,122,170O 253,223,255,247,213,85,63,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0n ,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,128,0,0,128,16,0,191,240,0,190,176,0,245,80,0,223,240,0 95,112,0,93,240,0,15,240,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,  PRESS ANY KEY":Z$:Z$""6> "":53281,6:53280,0W "SIZE OF STEP";:Z V53248:V21,1:V39,8:V28,1:V37,0:V38,1 2040,13 "EXPAND SPRITE";:A$:(A$,1)"Y"V23,1:V29,1 "" (A$,1)"Y"V23,(V23)25 LRITE EDITORSCROLL.DATAPLANE#1SPRITES1 IK-MAN6 JOYSTICK DOODLERCL1TESTS  _30 d2,8,0 n1,134,0) x10,170,649 10,170,128I 43,239,160Y 25,231,144i 42,154,160y 25,101,144 10,170,160 2,170,144 10,70,129 38,170,144 25,105,100 42,105,160 21,105,84 42,170,160 dA1300Ax " NOW LOADING ULTRAFONT+ "V15)"COMMANDS:""""F:FIX CHARACTER"19)"L:LOAD ""M:MIRROR"19)"R:ROTATE " "S:SAVE"19 @~xxpxx008 @ |   |@ 8@?       ) < <<<<@H( ) < << <<A@@@@ (<<<<<<(((<<<<<< 53281,4:53280,550 I16000= A: A256 R I,A:II1: 20h2"":V53248:I10<2040,250:2041,251:2042,252:2043,253:2044,254:2045,255FV21,63PV39,6:V40,6:V41,0:V42,0:V43,12:V44,6ZI04[V U Up?ꪫ"+: Up  "*(s. @X J# & &(   vvwwvnvvnvvnv~~?  @``p@@@@@@@@       I2,180:I8]V1,180:V3,201:V5,180:V7,201:V9,180P^V10,204:V11,201Vd#> 0,0,0,1,224,0,3,224#> 0,0,240,0,0,112,0,0#> 114,0,0,15,0,0,15,128#> 0,143,192,1,159,224,1,243#> 224,3,241,240,3,241,240,3#> 255,112,3,255  ((((((<<<<<<((((((<<<<<<(( W?WWW GggwtXPz<x88`` ~G~>~`G~ ~ ~ . . . >H~>H~>H~JȢGH~~>~`S H.Qhi(i`ȑȑ`ȑ 2@?@@@PW@U@@{@P_C @?@@@PW@U@@{@P_C 0™1꩓  !РЎ%&Т'ЩЅЅ 4LLXLLL_ʎІPʎІ L_І ÍІ   CL 'Ј?Тʎʎʎʎ!Щ2Щ5Щ=Щ:Щ3 Щ9 Щ/ЩSЩmЩЩЩ͍ ЩЩ ܩ`ЭРɀ0-ɯ LLЌ!Э )L1L.2+/Dr”** @rPTUG_UAU@u@U@DPTUP r @ +*e  F&id*iiT* $ 0T`jh 0< < <<<TDD  T`jh 0< << <<TDA ) < <<<<@H( ) < << <<A@@@@  $8$Ȑ   L  Щ   '$%'I'&#$% 18n&? #٭#N&N&&JJJJ('J 2Ȑ $'8i$%%((T`jh 0< < <<<TDD  T`jh 0< << <<TDA ) < <<<<@H( ) < << <<A@@@@ #D780,L:781,0:782,192:654696N251,0:252,32ZX780,251:781,63:782,63:65496m"FILENAME";F$yL(F$)X1L49151X,((F$,X,1))D8.780,4:781,D:782,255:654668780,L:781,0:782,192:65469 B251,0:2Yȑȑ`*ee`jee`MODULE03CHANGE PRINTER C1525PRINTERSPRITE BOOT@PB H <TDD  T`jh 0< << <<TDA ) < <<<<@H( ) < << <<A@@@@ (<<<< L_P`č22ІPō22ІPL_ƍʎІPǍʎІPL_4íj 4jLj4j 4i4`j4i4`T`jh 0< < << 'D *** MIKE'S HI-RES SCRN DUMP ***MI ** W/ OTHER HI-RES UTILITIES **kN"HI-RES TO PRINTER? Y/N"XA$:A$"Y"A$"N"600bA$"N"l"NORMAL GRAPHICS"v"REVERSE GRAPHICS"A$:A$"N"A$"R"640A$"N"63999   F?0(?U?zU?P_p]T`jh 0< < <<<TDD  T`jh 0< << <<TDA (<<<<<<(((<<<<<<((((((<<<<<<((((((<<<<<<$@La   L 03@7W-S0O6O4 ?4-14(%4 M%L3 %L3%I1 9 34N14240La3 m+4m,4m-4m.4Lp0 lF6)i)i[_+ЩЭA6NA6jJJ@6JJJ?68?6 I-ЍЩ8Э Di Эi   I-ЍЩ8ЩJ__Щ(Щ)Э  Di Эi   I-ЍЩ8Э  *L?(4L1` 8@(4L1ɀ 8 (4L1ɡLp0 8@(4L1 8逍(4L18(4*4Ѕ'4ԅ64i(4 .*4 .*4 .*4)4m)4m*4x)74 X&4"+4,4-4.474?4L32+4,4-4.4/48/474 ~?4LЍЩ8V L?404 882444541424N14 1L3445434 34 % &334Щ8   *LS=L<I_Щ'Э J Di Эi   I-ЍЩ8  *L=L>Щ*Э!i@_ $ Di Эi   I-ЍЩ8   *L>L= Di Эi   COMMODORE 15258 [ S DL+X`  Щ   Ǎ$&#$ 18n&##N&#&J &@Ыi Э DB0'B0D0E0F0iF0G0L/bc  `E DB0OR PRESS ANY KEYЍ" 8 YL"L"Ѝ" 8 Y p"L Ѝ" 8 Y # "L Ѝ" 8 Y "ЭhL LWA  ЭG)  >) )u)V Qt)s) y) ^ s)s)_ s)s)at)`t)L& LQ' L(  2061LA WŢ܃5G@RDL:D]UcxeN@/֓^\aoVV䂞gK%WqPM|H @ ? Ȑ Ǎ8 JJ)  )em  _ ` a"` `^$.///e/ ..d._./ / /..`10 0 011a$1000ɡ0 11ɠ1"` `^^QmlQ 6+7,8-9:;<=.>/?0@1A` Щ`ɀ ЩF``ɀ`IHiH`I`HIiI`H`JKiK` Jnm,0 P m8 МЗ`Jmmm05 ),0 P 8 С` #0 Q ` `  `  `  ` Щ`i8i   J.   j ϥ8 кiИ '\iI!>H LM?H NOL*>I LM?I NOK@J PQAJ RS`@K PQAK RS`GWL LmmLTmMU8NVOW8PXQYmRZmS[`mLZ$  $   ` L `H hB LIm.&8/(m1,i-80*+')`    `    `;ЩxЭ)ݩ`   \` h(Iii@ihة`hiIi8iiݥ80hL &*+ Q-, ( L  &* Э,i Э-i  @)Щ8( Э*iЭ+i  )Щ8(`   )  8 8   m (  Ї (L: L = Р*+&' %1I8BC8D R DBC֭%I1(,8- L, L c0`b)e)8j``@abce@fghj@klmo@pqrt@uvwy@z{|~C8` B@8`E8`DȐ8`8D JJ) B)emC )eB)8j1`@@@@@@Q^__Q8lQQ_``P8lPP`aaPmlPPa"`8IIi8 Ii  ` LeJ`KJiJ`K`]^_`a) "`"JHm^hJH8_hJH8`hJHmahJ! "]"` `^`I1``8 8 ! XX>mȌm$ LW I1LW`i< ĩ Щ`f```08`@`m.iȐ8.Lz//m1i@?81`0 0`F&2'3(4)5*mM[8RVSW8NXOYmPTmQU`8LVMW8RXSYmNTmOUmPZmQ[`8LXMYmRTmSUmNZmO[8PVQW`` IL ` ЩЭ ݩ`` ` @ ? Ȑ Ǎ` . m`*`! l + I1-, ( L  &0,- *+ - - I1  I1  % %%  % ۍ۩K i   Șe Ȍ  V   m  Lc   Lc Lc `` `c8`e0d`ed8`c`b`cb`edȰ`eǍd8`(΀ bcde %(%1  `((%J%`%i`%ɀ %`%8`) `89`)`i9i`i Эi  )Щ8Э*iЭ+i  )Щ8& Э,i Э-i  )ߍЩ8&A h GRAPHICSLN2ADOODLE>MODULE01 MODULE02MODULE03CHANGE PRINTER C1525PRINTERSPRITE BOOTWARR.3 WARR.DATWARR.BASUN DOODLE2UN DOODLE3 UN DOODLE4UN5!UN12x |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./01234567SPRITE EDITORSCROLL.DATAPLANE#1SPRITES1 IK-MAN6 HR SCREEN SAVERCL1TESTS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́| PROPSIK-MAN SELF ANTIQUE CAR TIGER SPRITE IK-MAN DEMOCLCHART ULTRAFONT LOADERx| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @ TEST6.0 ULTRAFONT.OBJ SPRITE MAGIC SPRITE MAGIC LOA PLANE#3RASTER INT.49408TEST7.1BMINI DEMO>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e  BOX WARRIOR PLANE WORKS COLOR CHARTCOLOR TEST JOYSTIKE DOODLEMARQUEE NUDE CALENDAR\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2HI RES UTILITIES LOTTERYTEST4CHAPTER 5.PIC CHAPTER 5.COLCHAP 5WAR.3UN DOODLE2Architecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken P8888|||8 |??|| ` @8DDD8@  `| T8 @@ 8T p 0``0 p 0`  0 0 0 0 0 0 0 0 0 0 0 00XX X2XTXXXBYY                                                                                                                         EPSON MX-80 CARDCO INTERFACE OR MW-320 INTERFACE @ [ S DL(X`  Щ   ~(#  ;88ХiHi -   LAKK2 03 ͏ؐP$NV}—ٗG͙֚c ( FIREBUTTON:  P PAINT IN1 TO 9 DOT SIZE M MEMORIZE@ * ^ SPEED R RECALL G GRID CLR CLEAR SCREEN - PHOTO NEGATIVE SCREEN + MIRROR  AND STANDING BULLSEYES SPACE FLIP LINE @ * ^ SPEED _ DRAW LINEM MEMORIZE DEL ERASE LINER RECALL G GRID CLR CLEAR SCREEN -PHOTO NEGATIVE SCREEN +MIRROR IMAGE SCREEN(BOX MODE FIREBUTTON: |||||||????|8TT8 @@  `0 <f 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0f< 0 0 0 8   8 0 0 0 0 0 0000`0`0000 0 0                                                                  MOVE BOX  SIZE & SHAPE BOX BOX OUTLINE: BOX CONTENTS: SPACE FLIP BOXCLR CLEAR _DRAW BOX-NEGATIVE DEL ERASE BOX+MIRROR MMEMORIZE WHOLE SCREEN: EERASE ALL R RECALLBUT EDGES G GRID @*^ SPEEDР-   L  Щ   ~(I( -JJJJ0 Qե88оi@i LgiLg(COPY MODE PREPARE: DUPLICATE: -------- ---------- CRSR-UP + ^ SIZESPACE FLIP IN CRSR-DWN - ^ SIZE_DRAW IN CRSR-RGT + _ SIZEDEL ERASE IN CRSR-LFT - _ SIZE \ROTATEWHOLE SCREEN: ------------- USE F7 BOX  IMAGE SCREEN( OTHER MODES RETURN ENTER & F1 DRAWEXIT MENUS F3 ERASE F4 LETTER F5 LINE F6 DISK&PRINT F7 BOX INST COLOR F8 COPY HOME BLACK&WHITE F2 ZOOM STOP END(LINE MODE FIREBUTTON: SWITCH MOVING L FOR OLD NAME USE KEYBOARD TO ENTER NEW NAME OR EDIT OLD NAME PRESS RETURN WHEN READY USE TRACKBALL TO CHOOSE NAME PRESS RETURN WHEN READY (  ROOM FOR MORE DOODLES DISK ERROR TURN ON DRIVE & INSERT DISK  PRESS ANY KEY ITH DOTERASE MODEMOVE CROSSHAIRS ERASE WITH DOTCLEAR SCREEN THIS COMMAND WILL ERASE THE WHOLE SCREEN ANYTHING NOT SAVED WITH F6 DISK&PRINT OR M MEMORIZE WILL BE DESTROYED!  Y YES DO IT?  N NORECALL S WHOLE SCREEN TO BLACK & WHITE ANY COLORS MADE WITH INST COLOR MODE WILL BE DESTROYED  Y YES DO IT?  N NOQUIT *DOODLE* THIS COMMAND WILL EXIT FROM THE *DOODLE* PROGRAM ANYTHING NOT SAVED WITH F6 DISK&PRINT WZE A DISK IT CAN SOMETIMES FIND FREE SPACE ON A FULL DISK IT CAN TAKE UP TO TWO MINUTES TO FINISH  Y YES DO IT?  N NOE* THIS COMMAND WILL EXIT FROM THE *DOODLE* PROGRAM ANYTHING NOT SAVED WITH F6 DISK&PRINT W  1000C COPYRIGHT 1983 BY MARK R. RUBIN & OMNI UNLIMITEDZd K$: K$"" 100`n:::"CHANGE PRINTER PROGRAM""----------------------":"*DOODLE* COMES TO YOU SET UP FOR THE""COMMODORE 1525 PRINTER." "T THE DISK.") t:"PRESS ANY KEY WHEN READY"I ~"(EXCEPT X TO QUIT NOW)"`  100: K$"X" l  50000  3,8,3,"MODULE02,P,R"  I1 81:#3,B$: I #3,B$:OP(B$)7: 3 ::"PRINTER IS NOW: ";N$(OP)  OP2 1400 ( OPICS GEMINI 10"0 @::"DO YOU WANT TO CHANGE PRINTER?"M J"(OR KEEP SAME PRINTER"p T"& CHANGE LINEFEED SETTING)?" ^:" PRESS Y TO CHANGE" h" OR N TO END HERE" r 100: K$"Y" ::"CHOOSE ONE OF THE FOLLOWING:"MODE@ * ^ SPEED AND M MEMORIZECLR CLEAR BEFORE COPYG GRID R RECALL(ZOOM MODE FIREBUTTON: FLIP PIXEL ON & OFF (ONLY IF FLIP IS SET) SPACE SET TO FLIP (GREEN CURSOR) _SET TO DRAW (BLUE CURSOR) DEL SET TO WERCASE  CTRL-\ROTATE  CLR CLEAR SCREEN  CTRL-G GRID ALL OTHERS TYPE LETTER(DISK & PRINTER MODE TURN ON & DISK COMMANDS:INSERT DISK -------------- S SAVE DOODLE TO DISK L LOAD DOODLE FROM DISK X ERASE OSR-DWN STEP BACK+MIRROR -NEG'TV BACKGROUND COLOR:MMEMORZ CRSR-RGT STEP FWRDRRECALL CRSR-LFT STEP BACKGGRIDLOAD FROM DISK SAVE TO DISK DELETE FILE ON DISK BLANK NAME TO ABORT USE TRACKBAL NO DOODLES ON THIS DISK*DOODLE* WELCOME TO *DOODLE* PLUG TRACKBALL INTO PORT 2 RETURN KEY GETS INTO AND OUT OF MENUS PRINTER TYPE: ANY KEY TO STARTFILENAME --------------DRAW MODEMOVE CROSSHAIRS DRAW WCREEN THIS COMMAND WILL RECALL THE SCREEN AS IT WAS WHEN LAST MEMORIZED WITH M MEMORIZE OR E EDGE (BOX MODE) IT WILL DESTROY THE CURRENT SCREEN  Y YES DO IT?  N NOBLACK & WHITE THIS COMMAND WILL RETURN THEILL BE LOST  Y YES QUIT?  N NONO BOX SAVED TO COPY SOMETHING YOU MUST FIRST MEMORIZE A BOX USE: F7 BOX  M MEMORIZE THEN: F8 COPY PRESS ANY KEY TO GOVALIDATE DISK THIS COMMAND WILL RE- ORGANI: NPOP 2000%v15,"R:"N$(OP)"=MODULE02"A15,"R:MODULE02="N$(NP)U NP1 15:4::"DO YOU WANT *DOODLE* TO SEND">"LINEFEEDS AFTER CARRIAGE RETURNS?"H:"ANSWER N ONLY IF YOUR PRINTER"R"(NOT YOUR INTERFACE)"\HIS PROGRAM WILL CHANGE IT FOR"5 $"ANOTHER PRINTER."c .:"DO YOU WANT TO CHANGE PRINTER (Y/N)?"{ 8 100: K$"Y" L::"MAKE SURE DOODLE DISK IS IN DRIVE," V"DRIVE IS TURNED ON," `"AND THERE IS NO 'WRITE PROTECT' STICKER" j"ON3 1500 2 16007 x"THIS WILL WORK WITH THE FOLLOWING:"U "C. ITOH 8510 PROWRITER"u "C. ITOH 1550 PROWRITER 2" "OR NEC 8023"  1600 "THIS WILL WORK WITH THE FOLLOWING:" "MOST EPSON PRINTERS WITH GRAPHICS" "STAR MICRON  :" 1 COMMODORE 1525= " 2 C. ITOH 8510,1550,PROWRITER"W " OR NEC 8023"u " 3 EPSON OR GEMINI" :" X QUIT, NO CHANGE"  100  K$"X"  K$"1" K$"2" K$"3" 1800 &NP(K$) 0 15,8,15ERASE (RED CURSOR)  @ * ^ SPEED GGRID(LETTER MODE SHIFT-SPACE SET TO FLIP  CTRL-_ SET TO DRAW  DEL SET TO ERASE CTRL-RVSON SET TO REVERSE CTRL-RVSOFF SET NORMAL  CTRL-U SET TO UPPERCASE  CTRL-L SET TO LO NE DOODLE ON DISK V VALIDATE WHOLE DISK PRINTER COMMAND: ---------------- P PRINT DOODLE(COLOR MODE FIREBUTTON: MOVE (GREEN CURSOR)  COLOR (RED CURSOR) FOREGROUND COLOR:@*^ SPEED CRSR-UPSTEP FWRDCLR CLEAR CR 4 7 * * N !ENTERTAINERMODULE02MUSICMASTERMODULE03IKER MANIK-MAN5CHANGE PRINTER    SPRITE EDITOR BOOT&C"":53280,14:53281,6v"LOADING ...":100("LOAD"(34)"SCROLL.DATA"(34)",8,1")"NEW"*"LOAD"(34)"SPRITE EDITOR"(34)",8"2198,10 719,13,13,13,32,32 = "       w "          "         " ,10 719,13,13,13,32,32 "GENERATES ITS OWN LINEFEEDS."9f:"IF YOU DON'T KNOW THE ANSWER TOcp"THIS QUESTION, TAKE A GUESS. THEN:"z:" IF YOUR PRINTER WORKS FINE ... FINE"" IF PRINTER OVERPRINTS DOODLES ALL"" ON ONE LINE, RUN THIS PROGRAM"* SEND LINEFEEDS (Y/N)?"&LF1: 100: K$"Y" LF26 2,8,2,"#"H NP3 2500^` 15,"U1:"2;0;20;2rj 15,"B-P:"2;249t I1 5:2,(LF%(LF,I));: I~ 15,"U2:"2;0;20;2 15,"U1:"2;0;20;12 15,"B-P:"2;201 I1 5:2,(LF 5:2,(LF%(LF,I));: I2 15,"U2:"2;0;20;14  2) 15I :::"*** FINISHED ***"O dPÆ N$(3),LF%(2,5)~ZÁ I1 3: N$(I): Idà "C1525","C.ITOH","EPSON"ā I1 2: J1 5: LF%(I,J): J,I"ă 234,234,234,234,234,ă 1d"";:G0CO$(15)2nX(X)X(X24)24JxY(X)X(X21)21mV$""DOT$"........................":BL$" " CO$(0)"BLACK":CO$(1)"WHITE":CO$(2)"RED ":CO$(3)"CYAN ")15:E(53280)15T G134096:CR$(13):DE$(20):C(G39)15:SX30:SY150:X10:Y10z PA200:SP0:SC1024803:AD32608 960 870 930 850 PX0:PY0 PSCPY40PX:Q(P):RQ R(R128)(128R) P,R I130:A$ ^A$""820:210" hA$""830:2102 rA$"+"780B |A$"-"800^ A$"Q"G21,0:"";: A$">"C(C1)15:G39,C:3020 A$""B(B1)15:53281,B:3010 A$""E(E1)15:53280,E:3000 A$""X11X1:900:870:220  MR:53276,MR:30300-A$"0"M0(M01)15:53285,M0:3030Y.A$"1"M1(M11)15:53286,M1:3030b0220:G21,0:930:870:850:210DJPA64:253,J256(J256):254,J256NAD:850:220XJPA6459:253,J256(J256):254,J256b AD42:850:220-lJPA64:253,J256(J256):254,J256BvAD88:850:220mJPA64:253,J256(J256):254,J256AD118:850:220P,46:PPPA64PY3(PX8)PP,(PP)2552(7(PX(PX8)8)):PXX(PX1):PSCPY40PX:660:,82,85,78,13$ <I110:X:630I,X:F F44,64:161024,0:56,126::z d"       n"         x"       " 220*HI(PA4):LOPA64256HI:251,LO:252,HI:32422L32443:32526:251,LO:252,HIiA$:A$"\"A$CR$710yA$"\"700220P,81PPPA64PY3(PX8)PP,(PP)2(7(PX(PX8)8))PXX(PX1):220 PA15(PA" AGAIN AND ANSWER"2" Y -- SEND LINEFEEDS"[" IF PRINTER PRINTS BLANK LINES"" IN MIDDLE OF DOODLE, RUN THIS"" PROGRAM AGAIN AND ANSWER"" N -- SEND NO LINEFEEDS":"SHOULD *DOODLE%(LF,I));: I 15,"U2:"2;0;20;12 27001 15,"U1:"2;0;20;4E 15,"B-P:"2;254h I1 2:2,(LF%(LF,I));: I~ 15,"U2:"2;0;20;4 15,"U1:"2;0;20;14 15,"B-P:"2;2 I3 5:2,(LF%(LF,I));: I 15,"B-P:"2;221( I1 69,10,32,210,255|Ď:"2;0;20;12 27001 15,"U1:"2;0;20;4E 15,"B-P:"2;254h I1 2:2,(LF%(LF,I));: I~ 15,"U2:"2;0;20;4 15,"U1:"2;0;20;14 15,"B-P:"2;2 I3 5:2,(LF%(LF,I));: I 15,"B-P:"2;221( I1 :CO$(4)"PURPL"\ CO$(5)"GREEN":CO$(6)"BLUE ":CO$(7)"YELOW":CO$(8)"ORNGE":CO$(9)"BROWN" CO$(10)"LT RD":CO$(11)"GRAY1":CO$(12)"GRAY2":CO$(13)"LT GN" CO$(14)"LT BL":CO$(15)"GRAY3":MR(53276) M0(53285)15:M1(53286)15:B(53281:A$"":230 P,Q. A$""PXX(PX1):220K A$""PXX(PX1):220h "A$""PYY(PY1):220 ,A$""PYY(PY1):220 6A$DE$P,(P)127:680 @A$" "660:PXX(PX1):680 JA$CR$PX0:PYY(PY1):220 TA$"."740  A$""Y11Y1:900:870:220% A$""5805 A$""600E A$""620U A$""640f A$""1510w A$"S"1270 A$""1030 A$""1070 A$" "1430 A$""210 &A$""1860:170 +A$"\"690,A$"M"MR255 155:Y((1)100)75:DX2:DY1:X20:Y20 XG,X:G1,Y:G21,1; bB$" ":XXDX:YYDY:A$:A$""1950S lX255X255:DXDXk vY200Y200:DYDY X65X65:DXDX Y75Y75:DYDY 1880 A$"+"DXDX(DX):DYDY(DY):DXDX(D Y2!A$CR$G21,0:!A$B$1890"B$:A$B$:B$" "1980" 18905" (V$,20)34)CO$(E):O" (V$,21)34)CO$(B):i" (V$,22)34)CO$(C):" A1$"RG-0:"CO$(M0):A2$"RG-1:"CO$(M1):MR0A1$" ":A2$A1$" (V$,23)29)A1$: 31PA63)(PA127PA255)PAPA1:570220[ (PA13PA16)(PA32PA64)(PA128PA256)PAPA1:570d*2204X063:PA64X,0::850:>X063:Y(PA64X):Y(Y255)(255Y):PA64X,YH:850:R251,PA64(PA4)256:252,PA 34)PA%" "U"  123456789012345678901234 SPRITE EDIT"aX121" "(" "(X),2)""DOT$" ":"  "(V$,18)30)"COLOURS":30)""29)"BRDR:":80.G21,0:G16,0:G23,0:G29,0:1250:8LI8:COL6:LE3:MSG$"FROM PAGE:"fB1700:GPPG:PG(IN$):IN$"""":170LPG0PG255(PG0IN$"0")1080VLI8:COL22:MSG$"TO PAGE:"`1700:PH(IN$):PHPHPH2551110jSWPG t7)"PRESS SPACE BAR TO CONTINUE"A$:A$" "1230:G21,0:"":SWEN1:1140`" ""  DISPLAY SPRITES ":G21,0:" ""  SAVE SPRITE DATA " ENPH6463:HI(BEG256):LOBEGHI256OFLI10:COL12:LE16:MSG$"FILENAME:":1700:FL$"0:"IN$",PRG,WRITE"fP1,8,15,"I0":1810{Z2,8,1,FL$:1810d2,(LO);(HI);nIBEGEN:X(I):2,(X);:x21"":170G21,0:" ""  COPY SPRITE DATA ">(V$,4)" ":" ** SOURCE PAGES **"fLI7:COL4:LE3:MSG$"FROM PAGE:"1700:PG(IN$):IN$"""":170PG13(PG15PG32)(PG63PG128)PG2551540"LI9:COL4:LE3:MSG8)PD2551600TPEPDPHPG:PE255PE255"^(V$,9)23)"..TO PAGE:"PE9hPDPGPDPH1670crIPDPE:(V$,12)12)"COPYING PAGE"I|J063:I64J,((PGIPD)64J):::"":170IPEPD1:(V$,12)12)"COPYING PAGE"IJ063:ILE(IN$)1780IN$IN$Z9$1800:TIUT101720!Y93Y9:1710Z(V$,LI)COL1)(MSG$,Y9)UB$IN$(" ",Y9,UC)" ";:m1,A$,B$,C$,D$|(A$)0&"DISK ERROR: "B$02:DG21,0:"":G16,0NX((1)100)X0):DYDY(DY0)!A$"-"DXDX(DX):DYDY(DY):DXDX(DX0):DYDY(DY0)5!A$"+"A$"-"1890U!A$""B(B1)15:53281,Bu!A$""E(E1)15:53280,E!A$">"C(C1)15:G39,C!A$""X21X2:G29,X2!A$""Y21Y2:G23,29)A2$"":)!A$"-"DXDX(DX):DYDY(DY):DXDX(DX0):DYDY(DY0)5!A$"+"A$"-"1890U!A$""B(B1)15:53281,Bu!A$""E(E1)15:53280,E!A$">"C(C1)15:G39,C!A$""X21X2:G29,X2!A$""Y21Y2:G23,4\32526:"":!fG21,0:2040SP,PA:G39,COpGSP2,SX:GSP21,SY:G23,Y1:G29,X1kzG16,2SP:G21,2SP:SX17:X10SX30SY138:Y10SY150""29)" ":29)"PAGE "29)"̯":""300029)"BKGD:":3010"29)"SPRT:":3020:MR0,30302IIN$""PAAP:180LI10:COL31:LE3:MSG$"PAGE":1700:APPA:PA(IN$)(V$,LI)COL1)" "IN$""PA13(PA15PA32)(PA63PA128)PA255PAAP$1SUM0:ENSW7:ENPHENPH:SWPH1702~1250:ISWEN:KISW:MK:M3MM4L2040K,I:SUMSUM2K|GK2,M48104:L98:L110:K3L155:L117GK21,L:G39K,1:G21,SUM(V$,L1)M69)I(V$,20)7)" "LI8:COL6:LE3:MSG$"FROM PAGE:"*1700:PG(IN$):IN$"""":170^PG13(PG15PG32)(PG63PG128)PG2551290(LI8:COL22:MSG$"TO PAGE":1700:PH(IN$)2 PHPG (PH15 PH32) (PH63 PH128) PH255 1320<BEGPG64: ""  LOAD SPRITE DATA "\LI10:COL12:LE16:MSG$"FILENAME:":1700:FL$"0:"IN$rIN$"""":1701,8,15,"I0"2,8,0,FL$:1810:2:1FL$,8,1G21,0:" $"..TO PAGE:":1700:PH(IN$)8, PHPG (PH15 PH32) (PH63 PH128) PH255 1570w6(V$,4)21)"":21)"** TARGET PAGES **"@LI7:COL24:LE3:MSG$"FROM PAGE:":1700:PD(IN$)JPD13(PD15PD32)(PD63PD12 64J,((PGIPD)64J):::"":1704Y92:IN$"":UC0:UB$(BL$,LE):1800:UB$" ":UC3>UTTITZ9$:Z9$""1780uZ9$CR$Y92:1800:" ":Z9$DE$((IN$)0)1780:IN$(IN$,(IN$)1):1780((Z9$)127)32Z9$(34)17802???x?CO$(M1):MR0A1$" ":A2$A1$" (V$,23)29)A1$:  I12800 A: A256 4 I,A:II1: 202 0,0,0,0,0,0,0,2402 0,15,252,248,127,249,140,632 255,255,127,255,254,255,255,2542 31,255,224,127,255,252,63,255 2 240,7,255,192,1,241,248,0(2 0,0,0,0,0,0,0,002 0,0,0,00,0,0,0,0,0,0,02 0,0,0,0,0,0,0,02 31,128,0,7,128,0,255,2402 31,255,128,255,255,254,255,2552 255,7,255,252,31,255,128,02 255,248,0,0,0,0,0,02 0,0,0,0,0,0,0,02 0,0,0,0,0,0,0,0,2568,0(2 0,0,0,0,0,0,0,002 0,0,0,0 7888<<p8|>|>8p<@CR050005CR1CR2:20:"GRAPH2.COL",8,1VCR2CR3:"GRAPH4.PIC",8,1`2000u:::::::GRAPHICS53272,(53272)853265,(53265)32:::::::TEXT53265,(53265)223 53272,(53272)247" (:::::::CO::PLOT A POINT G60* HBYTE,(BYTE)2BIT7 ICBYTE,C= JU P:::::::PLOT A LINEk QDXX2X1:DYY2Y1 RL(DX):(DY)LL(DY) SL0XIDXL:YIDYL TXX1.5:YY1.5 UI0L V70 WXXXI:YYYI XI Y d:::::::SAVE P n:::::::DRAW A SHAPE oJ0NL7 pE1L%(0,J):E2L%(1,J)Y qX1E%(0,E1)X0:Y1E%(1,E1)Y0{ rX2E%(0,E2)X0:Y2E%(1,E2)Y0 s80 tJ u 20:C4:40 X140:Y116:X240:Y2176:80 X140:Y1176:X2248:Y2176:80 SP16176161,I1):I1:I7I09:I10N2(I):L1%(I,0,I1),L1%(I,1,I1):I1:IA3000n3,3,4,4,5,4,5,5,4,4,5,4,6,5,2,1,5,7,4,5:::::NUMBERS8,10,12,10,12,18,8,188,13,10,10,10,18,8,18,12,188,10,12,10,12,14,8,14,8,18,12,18 8,10,12,100,1,1,2,2,3,3,2,2,4 0,1,1,2,2,3,3,4,4,5<%0,1,1,2,2,3,3,2,2,4,4,5U*0,1,1,2,2,3,3,2,2,4n/0,1,1,2,2,3,3,4,4,540,1,1,2,2,3,3,4,4,5,5,290,1,1,2>0,1,1,2,2,3,3,2,2,4,4,5,5,3,3,0C1,0,0,3,3,2,2,1,1,2,2,4 20:X021:Y02:X0X08:110 LO:Y0Y016:X021+ S210S2SR10:99963 S2= 9996] Y0176:X030:T79:T61:T80k A1T6T7 I10N1(A1):E%(0,I1)E1%(A1,0,I1):E%(1,I1)E1%(A1,1,I1):I1 I10N2(A1):L%(0,I1)L1%(A1,0,I1):L%(1,I1)L1%(A1,1,I1): 0ʽ1    !РЎ%&Т'ЩЅЅ 4LLXLLL_ʎІPʎІ L_І ÍІ L_P`č22ІPō22ІPL_ƍʎІPǍʎІPL_4íj 4jLj4j 4i4`j4i4`T`jh 0< < <<,0,0,0,082 0,0,0,0,0,0,0,0@2 0,0,0,0,0,0,0,0H2 0,0,0,0,7,248,0,255P2 199,224,63,254,120,127,255,240X2 255,252,254,63,255,252,127,255`2 240,3,252,0,31,224,0,0h2 0,0,0,0,0,0,0,0p2 0,0,0,0,0,0,0,0x2 0,0,0,0,0,0,0,02 ALLOON BLIK-MAN SELF ANTIQUE CAR TIGER SPRITE IK-MAN DEMOCL SPRITES ULTRAFONT LOADERLORS )I10242023 *I,C" +( ,E 2:::::::PAINT BACKGROUNDV 3:: SYS49152\ 6u <:::::::FIND A POINT =ROW(Y8) >COL(X8) ?LINEY7 @BIT7(X7) ABYTE8192ROW320COL8LINE BCBYTE1024ROW40COL C F:::::ICTURE+ eFILE$"GRAPH4": INPUT"FILENAME";FILE$d fDE8: INPUT"ENTER 8 FOR DISK, OR 1 FOR CASSETTE";DE g57812 FILE$".PIC",DE h174,64:175,63:193,0:194,32 i62954 j57812 FILE$".COL", DE k174,232:175,7:193,0:194,4 l62954: X130:X240:Y1SP:Y2SP:80:SP, SP4024816S X1SP:X2SP:Y1176:Y2182:80:SP:i AA$:AA$""1045t 100:  E1%(9,1,9),L1%(9,1,9),N1(9),N2(9),E%(1,99),L%(1,99) I09:N1(I),N2(I):II09:I10N1(I):E1%(I,0,I1),E1%(I,,12,14,10,14,12,18,8,18+10,10,8,14,12,14,12,10,12,18Q12,10,8,10,8,14,12,14,12,18,8,18|10,10,8,12,8,14,8,18,12,18,12,14,8,14 8,10,12,10,9,188,10,12,10,12,14,8,14,12,18,8,188,10,12,10,12,14,8,14,10,180,1,1,2,2,3,3,0  SRPR5:S2SRSR101. SR$(S2):SR$(SR$,3):S1(SR$)X LOS111:A1$(SR$,LO,1):A1(A1$) I10N1(A1):E%(0,I1)E1%(A1,0,I1):E%(1,I1)E1%(A1,1,I1):I1 I10N2(A1):L%(0,I1)L1%(A1,0,I1):L%(1,I1)L1%(A1,1,I1):I1 NLN2(A1):C4 I1 NLN2(A1):C4:110:X0X016:A18 T80T81:T60:T74:X0X02:3055E H1X076Q I104w X1H1:X2H1:Y1184:Y2189:C4:80 XH11:Y184:70:H1H116:I1 9996"NEW GRAPH (Y/N)";GR$GR$"Y""NEAREST WHOLE NUMBE <TDD  T`jh 0< << <<TDA ) < <<<<@H( ) < << <<A@@@@ (<<<<  CL 'Ј?Тʎʎʎʎ!Щ2Щ5Щ=Щ:Щ3 Щ9 Щ/ЩSЩmЩЩЩ͍ ЩЩ ܩ`ЭРɀ0-ɯLLЌ!Э )L1L CR0CR1:5000;CR1CR2:20:"GRAPH4.COL",8,1\CR2CR3:"GRAPH4.PIC",8,1f2000{:::::::GRAPHICS53265,5953272,29:56576,198:::::::TEXT53265,27 53272,21:56576,199"(:::::::COLORS ) 1000(50207%250210,1,20<50195@FN130:N233`PI012:X1N12I:X2N2I2sZ50201,X1,X1,1d50204,X2,X1,1n50204,X2,X2,1x50204,X1,X2,150204,X1,X1,1I100050210,5,150207 FP1:A177:B121,0 @50204,X2,Y2,0 JI) TY1199:Y206 ^I0319H hX1I:X2319I[ r50201,X1,Y1,0n |50204,X2,Y2,0u I 1000 50210,0,10 50207 FP1:A113:B126:DL6:C0 I080:CCDL:AA1C180:BB1C180 X(100(A)160.5)L0H-0O +h0d؅(*)O0P?Lϑ PLliiitii8O))М8OO8'((L4**(Oi OiiL4`a+a.+a.++ϑ L^ pRɀЅL `ptI` + J(*L +J (jL +aȱaL +aȑȥaL +a faaL +0aJ&ROR ON SAVE/LOAD_TAPE OR DISK?_FILENAME:_ENTER COLOR KEY_USE ROM SET? (Y/N)_UPPERCASE OR LOWER?_Å( g_aJI8i a`( g _ `L` ݭ) ݩd  c ĭ> ǭ>IK=̮=ì? m;;<}Í<;;--?;;(';-۰ i- ;<<- -<<<- i -<;<JJJim-0)JJiЭ0) i5Щia< i3Э; &aiХaiЭ0Q 0QL +<);)Ia8*?0aK@&б%a@&ХaI1@a `bJbI1aʅaBJ*aLA݉`ʊ HH`"MRF1234!"#$VSLTkUž¸G$:RuȠȬȬȬȬȽUɈ$ˠ3<<(((<<<<<<((((((<<<<<<((((((<<<<<<((TTAM YBNAM-KI < << LTI DRAW I2 RASTER INT ANTIQUE CAR TIGER SPRITE RASTER BETTERCLRASTER RAR""STOCK PRICE";PR$8P1(PR$):P10P13"SORRY, PLEASE RETRY.":5000OPR(PR$):PR(PR)[CR1:1o 'A$:A$""9996y '30:'20:C4:40'AA$:AA$""10010$'100:I10N2(A1):L%(0,I1)L1%(A1,0,I1):L%(1,I1)L1%(A1,1,I1):3:DL9:C01 I040:CCDL:AA1C180:BB1C180I X(100(A)160.5)` Y(80(B)100.5) FP1FP0:50201,X,Y,0:240 50204,X,Y,0 I 1000 50210,7,2 50207 X10:X2319 "I0199 ,Y1I:Y2199I 650201,X1,Y Lĭ<)a8<8a<LNȭ<)a<i8a<LNȭ;)a8;8a;LNȭ;)a;i8a;hhL) + i`jȥiȹБ L? : : \2A ȭ;);LNȩ? `8A1B&`; <-;< LN H H +CȩȑLqХ)` `0&&&pe` +I `fڅaaa: i(iit` +˭,Щ ?Щ Ѝ! \:хitӱIѱH ӱIh K˩ a11aa׈1L +Lx ܩЩЩЩKÍX`ɱ'Э,Э) ?Э9!Щhhh@ЩЭ Ѝ!Щȍ%ЩL1U@@@L@L@L@L@@@U@UP@@@@@@@@UPULTRAFONT +_ER ÙcÙc , Щ *é0L 90-? :"Э#  \ЎR Lxũ3 b NF b L؎R  ^ĩggЩЩЩ3ЩЩ5ЩЍЍ&ЩЩ;<H)I=h)>  mL 4,4,5*0,1,1,2,2,3,3,2,2,4'/0,1,1,2,2,3,3,4,4,5D40,1,1,2,2,3,3,4,4,5,5,2Q90,1,1,2v>0,1,1,2,2,3,3,2,2,4,4,5,5,3,3,0C1,0,0,3,3,2,2,1,1,2,2,4 20:X021:Y02 SRPR5:S2SRSR101 SR$(S2):SR$(SR$,3):S1(SR$) L E e"FILENAME";FILE$ fDE85 g57812 FILE$".PIC",DEY h174,64:175,127:193,0:194,96d i62954 j57812 FILE$".COL", DE k174,232:175,71:193,0:194,68 l62954: n:::::::DRAW A SHAPE oJ0NL pE1L%(0,J):E2L%(1,J) qX1 Y1176:Y2182:80:SP:" AA$:AA$""1045- 100:g  E1%(9,1,9),L1%(9,1,9),N1(9),N2(9),E%(1,99),L%(1,99) I09:N1(I),N2(I):I I09:I10N1(I):E1%(I,0,I1),E1%(I,1,I1):I1:I I09:I10N2(I):L1%(I,0,I1),L1%(I,1,I1):I1:I 10,8,14,12,14,12,18,8,18510,10,8,12,8,14,8,18,12,18,12,14,8,14J 8,10,12,10,9,18p8,10,12,10,12,14,8,14,12,18,8,188,10,12,10,12,14,8,14,10,180,1,1,2,2,3,3,00,1,1,2,2,3,3,2,2,4 0,1,1,2,2,3,3,4,4,5%0,1,1,2,2,3,3,2,2,& ******************************K * *p * COLOR CHART * * COMPUTE!'S GAZETTE * * JULY 1984 * * PAGE 110 *  *  WS ALL COMBINATIONS OF "E V"FOREGROUND AND BACKGROUND COLORS. "t W"FOREGROUND INCREASES FROM LEFT TO RIGHT" X"BACKGROUND INCREASES FROM TOP TO BOTTOM"; Z124096 d 169,90,133,251,169,0,141,33,208,162,15,120 i 173,17,208,48,251` +CL# b L^8A! !LPɮ? : \ L^ĩz b 800 a8 a LL^CURSOR VELOCITY (0-9)?_N Na a ' ш L) a Lɩ_` Lʩ_  bĢ I L +˩ LK˩xЩ ܩ1ЩXL *é  \L^iiLeح 0)JJJJ 0) 0``8--..9:OpЅ :OiiI:50204,X2,Y2,0 JI) TY1199:Y206 ^I0319H hX1I:X2319I[ r50201,X1,Y1,0n |50204,X2,Y2,0u I 1000 50210,0,10 50207 FP1:A113:B126:DL6:C0 I080:CCDL:AA1C180:BB1C180 X(100(A)160.5)S,173,18,208I n 197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219 2(147):I1024I1000: I,160:I54272,11: <I015:J015 FP1196(40I)J:P,J1:P54272,J:J,I P15)(5)"COLOR CHART":I119:: U"THIS CHART SHOT A POINT G60% HBYTE,(BYTE)2BIT2 ICBYTE,C8 JP P:::::::PLOT A LINEf QDXX2X1:DYY2Y1 RL(DX):(DY)LL(DY) SL0XIDXL:YIDYL TXX1.5:YY1.5 UI0L V70 WXXXI:YYYI XI Y d:::::::SAVE PICTURE%(0,E1)X0:Y1E%(1,E1)Y04 rX2E%(0,E2)X0:Y2E%(1,E2)Y0< s80C tJI uY 20:C4:40z X140:Y116:X240:Y2176:80 X140:Y1176:X2248:Y2176:80 SP1617616 X130:X240:Y1SP:Y2SP:80:SP SP4024816 X1SP:X2SP:3000'3,3,4,4,5,4,5,5,4,4,5,4,6,5,2,1,5,7,4,59:::::NUMBERST8,10,12,10,12,18,8,18u8,13,10,10,10,18,8,18,12,188,10,12,10,12,14,8,14,8,18,12,188,10,12,10,12,14,10,14,12,18,8,1810,10,8,14,12,14,12,10,12,18 12,10,8, I1740818407 *I,C +! ,> 2:::::::PAINT BACKGROUNDO 3:: SYS49152U 6n <:::::::FIND A POINT} =ROW(Y8) >COL(X8) ?LINEY7 @BIT7(X7) ABYTE24576ROW320COL8LINE BCBYTE17408ROW40COL C F:::::::PLO *)  ******************************P (I4915249188:A:I,A::53280,11 2(147):I1024I1000: I,160:I54272,11: <I015:J015 FP1196(40I)J:P,J1:P54272,J:J,I P15)(5)"COLOR CHART":I119:: U"THIS CHART SHO Y(80(B)100.5)1 FP1FP0:50201,X,Y,1:240B 50204,X,Y,1I IS 1000d 50210,15,12o 50207| X0319 Y(10070(X10)) &50201,160,10,1 050204,X,Y,1 :X A$:A$""30 50198   I02000: b T DhhL^čM  MTMDB@0:N,PAS ,WL|ʠN ` +˩pw  KL^ K MD b L^ĩ   i`٩-ȑ--i-.i. L3-i)-ȥ.i-ȥ9-ȥ:-ȩ-O \ȭ-ȭ-ȭ-Ȅab \ˤa,-ȭ-ȑ-ȑ-Ȅab֤a--Hȱ-.h-9:Lpw  KL^ K MD b L^ĩ    COLOR BAR TEST, 53280,0:53281,0>A120:"";w"   ";}(2A13:"  ";<" ";::"";:10 BIG NUM TEST  O: "ARQUEE ROGRAM BY RIAN CHOTT FROM OMMODORE ICROCOMPUTER"w: "AGAZINE SSUE 29, PP. 92-95": "LIGHTLY ENHANCED BY AN HERNOFF"(4915212)133800B49152CHARB98 53272,21=  (20)B$(157)A$(A$,(A$)1):B$;:14E B$(13)B$;:A$A$B$:14R (142);r "":53281,1:"":53281,0 B93,40: CONTROL SPEED: 1,2,3,4,...,255, 0 FAST TO SLOW A$""35 A$"CAB-TEK PRESENTS ITS FINE LINE OF MICROPRINTER SO 69,4,133,252 162,24,24,165,251,105; 40,133,251,165,252,105U 0,133,252,169,32,145o $251,202,16,236,160,1 *162,3,169,0133,251 0133,253,169,4,133,252 6133,254,165,253,208,2 <198,254,198253,177,251 B145,253,200,208,249,299,192,169208,72,169,0,72,173199,192,72,173,98,192K72,32,50,193,133,252h132,251,169,100,133,253169,192,133,254,120,16951,133,1,160,7,177251,145,253,136,16,249169,55,133,1,88,24173,22,208,41,248,105251,165,252,233,0,133"252,104,168,136,16,223;138,72,162,6,24,173V22,208,41,248,134,253r101,253,141,22,208,20272,138,174,93,192,1600,136,208,253,202,208 248,170,104,16,231,32&8,192,104,170,202,16,163,96,147,\T. CHANGE CHAR AS DESIREDZÙ" ";,d×204,0:B$:B$""50020>n×204,1:" ";DxÎ248,134,253r101,253,141,22,208,20272,138,174,93,192,1600,136,208,253,202,208 248,170,104,16,231,32&8,192,104,170,202,16,163,96,147,# ***************** NUDE 1K59468,12:" NUDE CALENDARS"m "ENTER MONTH NUMBER ";M M1 M12 10"ENTER YEAR (1981) ";YR(YR1904YR2099"ONLY YEARS FROM 1904-2099 ARE COVERED":30d4,4n A$(10) 000) X0 Y0 4," ";(13);:P01:1604 T(X)P C(X(X))10:C(C.5)c TP00 230w 4,(SP$,TP0); P0T L1 Y 4,A$(C);  L:P0P0Y  160  29.2,5,0,0  29.2,1,30.1,3,33.2,6,0,0  28.2,1,29.1,3 ,32.2,5,39.3,3,42.4,6,0,0A  28.2,1,29.1,3,32.2,4,36.3,5,41.4,11,0,0o $ 26.2,3,29.1,3,32.2,3,35.3,5,40.4,13,0,0 . 25.2,1,26.1,2,28.2,1,29.1,3,32.2,3,35.3,4,39.4,15,0,0 8 24.2,1,25.1,3,28.2,1,29.1,3,32.2,3,35.3,2,37.4,19,0,0# B 24.2,1,25.1,3,28.2,1,29.1,3,32.2,3,35.3,2,39.4,18,0,0_ L 24.2,1,25.1,4,29.2,1,30.1,2,32.2,2,34.3,3,39.4,18,0,0 V 25.2,1,26.1,3,29.2,1,30.1,2,32.2,2,34.3,4,38.4,19,0,0 ` 25.2,1,26.1,4,30.2,1,31.1,2,33.2,2,35.3,3,38.4,19,0,0 j 26.2,1,27.1,3,30.2,1,31.53280,6:53281,0:""14)"MARQUEE SIGN":14)" "x " " " UPPERCASE ONLY, 255 CHARACTER MAXIMUM":""; " ENTER THE TEXT FOR THE SIGN:":" "; 50000$ B$UND ENCLOSURES "" #MSG(" "A$" "), (KK1] 0TMP((" "A$" ",K,1)):TMP64TMPTMP64| 2CHAR,TMP: B108:(157); <KMSGK0 P40 A4915249495:D:A,D::0 127,127,127,127,127,127 127,127,160,0,169,0 133,251,130 H252,230,254,177,251,1452 N253,200,202,208,237,177O T251,145,253,200,192,232f Z208,247,96,0,31,3 `247,96,120,0,60,102 f102,102,102,102,60,0 l169,0,141,99,192,14 r98,192,46,99,192,14 x98,192,46,99,192,14 ~98,192,46,7,141,22,208,160,7 162,7,177,253,10,6280,192,202,16,249,136Q16,242,162,7,24,173k94,192,105,0,133,251173,95,192,105,4,133252,160,7,152,72,1600,169,32,62,0,192144,2,169,81,145,25156,165,251,233,40,133192,120,02104,141,46,193,104,141.847,193,104,141,48,193I>104,141,49,193,104,24eD109,48,193,168,104,109J49,193,170,173,47,193P72,173,46,193,72,138V96,96,104,170,202,16\PÏ:FLASHES CHAR CURSOR TO SCREEN AWAITING A GE1,2,33.2,2,35.3,2,37.4,19,0,0O t 27.2,1,28.1,3,31.2,1,32.1,2,34.2,2,36.3,1,37.4,19,0,0 ~ 28.2,1,29.1,3,32.2,1,33.1,2,35.2,2,37.4,19,0,0  29.2,1,30.1,3,33.2,1,34.1,2,36.2,1,38.4,18,0,0  30.2,1,31.1,6,37.2,1,38.4,18,0,0 31.2,1,32.1,6M pSP$" "S xv P01:LF13: ******* LINE FEED A$(0)"X":A$(1)":":A$(2)"/":A$(3)"*":A$(4)"X":A$(5)"C" A$(6)"O":A$(7)"P":A$(8)"M":A$(9)"X" X,Y X1 10 10,0,0P 25.2,1,26.1,8,34.2,2,36.3,10,0,0BZ 25.2,1,26.1,7,33.2,3,36.3,10,0,0id 25.2,1,26.1,7,33.2,3,36.3,10,0,0n 26.2,1,27.1,6,33.2,4,37.3,9,0,0x 27.2,1,28.1,5,33.2,6,39.3,7,0,0 28.2,1,29.1,5,34.2,6,40.3,8,0,0 29.2,1,30. 0 32.2,3,35.1,11,46.2,3,49.3,10,0,0I 32.2,1,33.1,2,35.2,1,36.1,10,46.3,3,49.3,11,0,0~ 32.2,1,33.1,3,36.2,2,38.1,7,45.3,4,49.3,11,0,0 32.2,1,33.1,5,38.2,8,46.3,2,48.3,12,0,0 32.2,1,33.1,7,40.2,5,45.3,3,47.3,12,0,0 32.2,1, 3,19,0,0@ 32.2,1,33.1,6,39.2,1,40.3,1,41.3,19,0,0JJ 32.2,1,33.1,6,39.2,1,40.3,1,41.3,19,0,0xT 32.2,1,33.1,6,39.2,1,40.3,1,41.3,19,0,0^ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0' ***** CALANDER' M$(12,2),C(6,7),AA$(10)B'I112: " J U L Y "#{' " A U G U S T "G|' " S E P T E M B E R "k}' " O C T O B E R "~' " N O V E M B E R "' " D E C E M B E R "'I112:M$(I,2):' 31,28,31,30,31,1:10295((M9M12P1P12:102952(M10P1P14:1029517(P1P17(P17)R<(X16:Y17:C(X,Y)1:Y,XfF(D1:ZP11100yH(X((Z1)7)1J(YZ7((Z1)7)L(C(X,Y)DM(DD1: DDM 10900N(Z*L1$"I":X169:L1$L1$" ": I";(LF); +4,S$;L1$;(LF);:4,S$;L1$;(LF);'*+4,S$;L$;(LF);Q4+4,S$;D$;D$;D$;D$;D$;D$;D$;"I";(LF);>+4,S$;"I SUN I MON I TUE I WED I THR I";H+4," FRI I SAT I";(LF);R+4,S$;D$;D$;D$;D$;D$;D$;D$;"(A1);AA$(A2);E$;x+Y:4,"I";(LF);/z+X14:4,S$;D$;D$;D$;D$;D$;D$;D$;"I";(LF);:XC+4,S$;L$;(LF);u+W:4:" FOR THE NEXT CHARACTER"+" LOAD THE NEXT PROGRAM": SAT I";(LF);R+4,S$;D$;D$;D$;D$;D$;D$;D$;",38.4,19,0,0  32.2,1,33.1,5,38.4,19,0,0G 32.2,1,33.1,5,38.2,1,39.4,19,0,0n 32.2,1,33.1,5,38.2,2,40.4,19,0,0 31.2,1,32.1,6,38.2,1,39.3,1,40.4,20,0,0 30.2,1,31.1,7,38.2,1,39.3,1,40.4,20,0,0 29.2,1,30.1,8,38.2,1,40.3,1,41.4,3.2,1,24.1,4,28.2,1,29.1,6,35.2,3,38.3,10,0,0R 23.2,1,24.1,2,26.2,2,29.1,6,35.2,3,38.3,10,0,0x( 24.2,4,28.1,7,35.2,3,38.3,9,0,02 24.2,1,25.2,2,27.1,8,35.2,2,37.3,10,0,0< 25.2,1,26.1,9,35.2,2,37.3,10,0,0F 25.2,1,26.1,8,34.2,2,36.3, **************? RANDM # GEN. // R.CHAPMAN 9/9/84U **************{X53280:400:X,0:X1,0:"":V0100:V2 "HERE ARE YOUR SIX NUMBERS:"200:MM1G3"""";G)Z:GG4:"":G24300 dC153:B120:1,5,35.2,6,40.3,10,0,0) 29.2,1,30.1,6,36.2,5,41.3,11,0,0O 29.2,1,30.1,8,38.2,7,45.3,8,0,0v 30.2,1,31.1,9,40.2,5,45.3,10,0,0 31.2,1,32.1,10,42.2,5,47.3,9,0,0 31.2,1,32.1,12,44.2,5,49.3,8,0,0 32.2,1,33.1,12,45.2,4,49.3,9,0,33.1,8,41.2,3,44.3,2,46.3,14,0,06 32.2,1,33.1,8,41.2,2,43.3,1,44.3,16,0,0d 32.2,1,33.1,8,41.2,1,42.3,2,44.3,16,0,0" 32.2,1,33.1,7,40.2,1,41.3,2,43.3,17,0,0, 32.2,1,33.1,6,39.2,1,40.3,1,41.3,19,0,06 32.2,1,33.1,6,39.2,1,40.3,1,41.M$(I,1):IH'N$M$(M,1)(YR)'t' " J A N U A R Y "Ku' " F E B U A R Y "ov' " M A R C H "w' " A P R I L "x' " M A Y "y' " J U N E "z' 30,31' 31,30,31,30,31 'DM(M$(M,2))('4(YR4)YRM2DM29<'YYR:M3YY1N'R%(Y1903)4h'P15R%:SY19034R%{'S0P1P11S(M1M5P1P15:10295 (M2M6P1P11:10295(M4M7P1P13:10295(M8P1P1X:L1$L1$"I" *L$"":X171:L$L$"-":X!*X010: AA$(X):X?* 0,1,2,3,4,5,6,7,8,9," "r*S$" ":D$"I ":S1$"I ":E$" "+4,S$;L$;(LF); +4,S$;L1$;(LF);:4,S$;L1$;(LF);+4,S$;"I ";N$;" I";(LF);\+4,S$;L$;(LF);^+W16/`+T0:ZZ17:TTC(W,ZZ):ZZ: T7 11150Yf+4,S$;D$;D$;D$;D$;D$;D$;D$;"I";(LF);dh+4,S$;xp+Y17:ZC(W,Y)q+ Z1A110:A210:11126r+A1(Z10):A10A110t+A2Z((Z10)10)v+4,S1$;AA$ ""# nA15:"LOTTERY";::A15M x"":A15:"LOTTERY";:r "":A15:"LOTTERY";: "":A15:"LOTTERY";: (C):CC1:C159C153 B:V120 Z(40(1))1: ,500 6"GOOD LUCK19,0,0& 28.2,1,29.1,9,38.2,2,40.3,3,43.4,16,0,0U 27.2,1,28.1,10,38.2,2,40.3,4,44.4,14,0,0 26.2,1,27.1,10,37.2,1,38.2,2,40.3,5,45.4,12,0,0 23.3,1,24.1,12,36.2,4,40.3,6,46.4,10,0,0  23.2,1,24.1,12,36.2,4,40.3,7,49.4,6,0,0 2yTA);:"ANOTHER DAY (Y/N)";AD$zAD$"Y"7040K{DYDY1:DY14"SORRY ONLY 14 ENTRIES":7040U}7025xTA);:"PLOT CHART (Y/N)";PC$PC$"Y"71008000@CO1DY:SF(CO)WN(CO)FR(CO):COJQ0DY1:PY(Q)((PRSF(Q1 DOES NOT";; " CLAIM TO":"ACURRATELY CHOOSE THE WINNING" "NUMBERS OF ANY LEGALLY ORGANIZED":"LOTTERY PROGRAM. THE"; " INTENTION":"OF THIS COMPUTER ROUTINE IS ONE" "OF USER ENTERTAINMENT ONLY......" "))1696)OPX(Q)(Q1640):QT20:C4:40P^Q0DY2:X1PX(Q):X2PX(Q1):Y1PY(Q):Y2PY(Q1):80:QZh9996n 'A$:A$""9996x '30:(0 IF NONE)":TA10);u1,0:1,FA:"/ ";:1,FB:1:vFB0FR0:7033wFRFAFB:FR(DY)FR  7000 Y0176:X030:T79:T61:T80$ A1T6T7e I10N1(A1):E%(0,I1)E1%(A1,0,I1):E%(1,I1)E1%(A1,1,I1):I1 I10N2(A1):L%(0,I1)L1%(A1,0,I1):L%(1,I1)L1%(A1,1,I1):I1 NLN2(A1):C4:110:X0X016:A1 T80T81:T60:T74:X0X0Y.":5000PR(PR$):PR(PR)CR1:1RX30:(147):TA5:WN(15),FR(15),SF(15),PY(15),PX(15):DY1d]DW15::DWo`(14)bTA);"EGIN A NEW CHART (Y/N)";:BG$gBG$"Y"7100lTA)"TARTING DATE OF CHART"nTA5)"IN //`2`66A@@0   00  4  a `  !!!!! ":$ M1> "":X,15:X1,6R A140:"*";:z "***** DISCLAIMER *****" A140:"*";: "THIS IS A PUBLIC DOMAIN PROGRAM." "IT IS A PSUDO-RANDOM NUMBER GEN-":"ERATOR ANDPRESS ANY KEY " A$:A$""435$ N "DO YOU LIKE THESE NUMBERS? (Y/N)"a A$:A$""501q A$"Y"310 A$"N"501 G0:4"THIS IS A PUBLIC DOMAIN PROGRAM." "IT IS A PSUDO-RANDOM NUMBER GEN-":"ERATOR ANDOS111:A1$(SR$,LO,1):A1(A1$)R I10N1(A1):E%(0,I1)E1%(A1,0,I1):E%(1,I1)E1%(A1,1,I1):I1 I10N2(A1):L%(0,I1)L1%(A1,0,I1):L%(1,I1)L1%(A1,1,I1):I1 NLN2(A1):C4:X0X08:110 LO:Y0Y016:X021 S210S2SR10:7000 S22:3055 H1X076  I1040 X1H1:X2H1:Y1184:Y2189:C4:80R XH11:Y184:70:H1H116:I1\ 7000w"NEW GRAPH (Y/N)";GR$GR$"Y""NEAREST WHOLE NUMBER""STOCK PRICE";PR$P1(PR$):P10P13"SORRY, PLEASE RETR FORMAT";:SD$o(SD$)8TA5)"RETRY":7022Fq:TA)"LOSING PRICE OF SHARE ON DAY";DYisTA8)"HOLE NUMBER";:WN(DY)tTA8)"RACTION (0 IF NONE)":TA10);u1,0:1,FA:"/ ";:1,FB:1:vFB0FR0:7033wFRFAFB:FR(DY)FR  @@@@ 0X0f` `` 00@0c 0 8 @@@@!8a0`@@  0  `0`XG#  @@` 0 00p t 0 4p#``q 8 @@`0!ap@p  `c ` @@@@@@ ! @@ !!CBDD8@<>?|953<> @? ?p!""$ (/<'x>Cx+I lp @0 0  0 0 `0 02  @  d1 @@ @a @0 `8 `b  @0`8@@0 `czNpp  q 4H` ?~@H)(x  j1:H )A$@#$ DD# @(H (86P0BP.!@cEŁ5+@ E5bAdPd\!@XIH Ar<$QpCC, Hy%@ qbb% G#d7\XI@jE"%8@*\!PR1FIEtb M   %0HF Q@@ P*&fmEFE,°I""RLD F29t H  0O) ENXH"P)9@$9(!XeX @h$*"A1BI#P" Xr!U!,H`.ΆdcJ@$јA"AdB`x |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @x?~ FU P. AA @$( 1A@@QQ 6XiaZ. @JV C D`@@@ W @fT+ C!A4A *U24d @F"I)b@Y#G(gx^d !h!@*" @# 11B` L%8AdB,%$/@ZJ" 2 1B0Ee`9a c4 iE!+  1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorUݕ`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|4 4 decided to use transfer mode 4& HjjSDD,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|Uݕx1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:UݕI 0](Z0!wp|\(Q/ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor