IMD 1.16: 29/05/2007 12:38:13 FOGCPM.041 --FOGCPM041GFX COM GFX COMs !-04-00 86 GFX DOC"#$%&'()*+,-./01GFX DOC23456789:;<=>?@AGFX DOCBCDE-CPM041 DOCGFX1 GFX?FGHIJKLMGFX2 GFXNOGFX3 GFXPQRGFXDATA CECSTUVGFXTITLECECWXYZOLD-NEW BAS[\]^RIENDEERGFX_`abSANTA GFXcdeSHIP GFX#fghijSLIEGH GFX#klmnoSUPER GFXpqrTRAIN GFX$stuvwTURKEY GFXxyzWELCOME GFX{|}~WITCH GFXAUTOCHG SUBAUTOREP BASAUTOST COMBATS GFXGFX BASWAL-LOGO COMAL-LOGO ASMALGRAPHSCOMALGRAPHSASM%This is the disk name. +"6# x+:`i* ">"/##~>;+> 6*s#r w+͊1>2 u+#w+>36*s#rw+6*xDM"+ڍ+s#r#À+! æ+>2:*ã+6*x+Á*~#ʽ+#~+ҽ+~+x 6*s#rw+ɯ2,x_O:*+2,x_O6*9w#w+x,+r+s=,w>#w+Á*~7^#VE,E,!~ѧ7x1P*x1~7!~#fo~ʁ,7,#~+~w}D#wx#1]*LÄ,!9*?>":u,2g>2u:u, QPJ-,6P:u,-!lͿPs",Q!-ͫQH-*fx-Q>Q'-Q!l͂PPH-@]T}_|H-)>-x1P*I&>4ͺ-K3y=d-e#x2#~+Œ-x-xGe#>.xʛ-e#>.xG ʩ->.x#~+>.>X6*s#r+}*W!-L^#V#~.    !> .!> .! > .!> .!> .O*yL !.LF͊1q-x2.H.u+w.#N+͊1q-ڱ.xn.#~+j..n.y. u+w!~#fo#~#w:.ʏ.6~+ž.~ ž.6 «.~«.63ó.ɀ @ PPPPPP #..~.+u+w#w+e#*#~6+/]*6#s#r>6###s#r#6@"=#w:uGf?/b!/####~#B/F#N#~#fo~#fox/dLU/##~>O͖,6#p#6 ####yLͶ,+w~39;5!/#L~2>"@&0:/3-3>".͊1P*/ 00`i)9^#V!~`-y0#~#fo##A:x03x>". U0^#V#ͩ+3> ".10#~͸/o&"f>2u./ͩ+3> "."0xGO>$6*H"0s#r# ‹0H +V+^ͩ+s#r#  0͸/w*0w+3yO0e#0e#0**}_|W0}LZM Bytes Free 201:#x1:>"~>"###^#V"*:Z1VL>f1j1#{z+j1>""K3>?ú-:#*#Ͱ2#"#*O*QVL{#+V+^"QP*ʴ1ʺ1e#ͩ+þ1++~=w21~#foP*~#!1#L~"X[ P*#~+>>2#x1>2#P*|/2!~#@2~#fo32W2##~#~#3232.x1-P*@&b&e#> 2q" 3y2323O]*#s#r+++++++~ʩ2 }|x2!^#Vz< 3z3ͻL 3DM!35©2x3~͸/! 3=2DM++++r+s:3Oýe#!e#*Qs#r#"Q{z#~+e#*Q++"Q:!9"d3!c3"#̓3\1*"!"""#!"2*"!~#fo3"v=##~#fo]=i=ʷ3͈4͍4͒4å3~Yʿ3=3͋;: >*ĪM#r+s++Ï3*>$4!~#fo~~Z= ' 6* >L>L!N#F*v=~#fo##^#VX!~#fo"4++~+ng##^#V~4#####~#~*v=w#w#~#fo>w=q#p>Ô4>Ô4>*323ͤ423~4]=i=ʼ4ͤ4ð44x¬4:3=444{8E55t654{8t6~5<5^#V><5><5H=5><5#~55####^#V<5>###w~2=H=G5N#^#V#~#fo ^,5^,|5F͙9Fx 5~5O!~#fo^,ڿ5"5"5~#F!5w#p+͙9! s#r`iFЭ~ !N#F# 55! F+N+p+q ͈4s#r ~ 6 2k6^#V#~#fo7^,h6"p6!N#F#~#fo^,h6"r6!q#p!l6w+͙9͈4DM!q#p#q#pF ~0![L~O6:3y ʭ6##~++!~#fo!,WyJ!IL66717?7L77678~#fo~ 98y>!O8y98D8~#fo~98=wG-3##~#fo3> ".͊1͈46  s#ryP98D8~#fo~4Fy`98@`##~#fo ~#fo ~#foy\L}zC5###pywG##^#V~ʧ77!,7@`7! ~<7#~7"7!7͙9! s#r`i4F##~#fo"828!8͙9s#r6F {>͈4>6*s#rw+F##~#fo6 F5G2x8!5###yw> 6*s#r6+~H=O88ʚ8~ڱ8N#F#^#V ڵ8 +++p+q+r+s8##>w++F~!'#L~wFFH 8yO^#V#~#fo:3 9~n9n999Í8:309x i9 H9DM!~#fo### i9i9! ~#~! {8r+sÖ9 Ns#Fr^q#Vp++xw{8r+sFF~2M:##~2N:##~#N#F#^#V=´9PY! N#F!^#V6: !:#L~2u!lL!f9!bL:N:m;:M:!:!O:5L^#Vs"!uw> "~./! s#r`i#w+! N#F!yw#xw:::: : : : : :::; ;;#;3;C;{#EQ>Q>Q>EQ:g> ">2u6P@U];N V];4OU;-SU;ÄST:U; S];ÿMS:U;S];üMU;S*f:mg:loøQ*f\L+øQ*f:mg:loøQ*f:mg:loøQ*l:g/g:f/oøQ*f*lP*l"f*n"h:uGl!f;!bNwy#;U=i=ʨ;ͷ;yʏ;;Ï; µ;;~4{####6+~++;]=i=;ͷ;;@<~#fo~;~#fo#~+~^#V2#<2=~#foG3##~#fo~0<#####~#~<<^#Vs#r<i<i"*##s#rq#p !#'()+,-.06#~6+E5#w+~=w!%=#L~go A= *L![oR=$~##~O++###^#VBâ,r+sx##^#V@ZGFX RELbopqrstuvwxyz{bGFX PRNGFX BASW*+,-mnWGFX BASRELCRFPRN(@$PR0AE#8ʰ$PR0E RDTɠ$IPUBRETе$PEKCE($POKCRDdDp$FLDBΉRDTɈ$LENBD8y= M1% rDuD$GTJCRDT$NEJCDUˀ$EQJCɍDUXΨM$EQJIDe4u$EQSA DUD$EQTARE44]$IN0AD#4 C$="":N=34:M=4:GOSUB 176 355 IF F$="" THEN 362 ELSE 356 356 ON ERROR GOTO 211 357 OPEN "O",#1,F$+".GFX" 358 FOR N1=0 TO 3072 359 Z=N1+61440!:T=PEEK(Z):IF T<>32 THEN 360 ELSE N3=N3+1:GOTO 361 360 PRINT#1,T;N3;:POKE Z,127:N3=1 361 NEXT N1:PRINT #1,32;1:CLOSE 362 RETURN 363 END *128) STEP 128:POKE W2+B,32:NEXT W2:RETURN 353 REM * 12-save routine ***************************************************** 35PB:GFX,=B:GFX/O/E/Z SC?Command error?File not found?Can't enter file~G#C!CC!CC!CCoDCOMSCNC"">C2D:DG:DO*.(D# D2D (DD2C>2!~6~>2*+++"y=*">:=2|=*y=*G:?C oD2=2=2=2=2=2=2=<2=2=Ců2x=E.>E#> »D>2x=!=E> 2#>2+>2">y,2=D:x=2=E4>:=D1>E#>:">2~= 2}=E:x=@2x=!=Ey=7E 7`"E">7E 7!=E:x=!=ܬE!=:=gE=1>> =]EܬE:=|E:}=|E:~=2= _2aHHH*y=##:=2|=G"> ~EEw# ¼E #üE w#E:{=!+>~ Ew#E G:7>FxEͶGOx=y:F[A@2"> Gx 'F #>ʃFͶG.FTSFͶGT7ͶGY7FLmFͶGS7ͶGT7>FR7ͶGD7R7>F> ڔF6 #=Fy.2{= G+>xڬFʹFͶGíFy/yͶGLF2=ͶGOúFFF!F#LF7~~!!0Ü@H<͍AN<<!%;uR![X!kX!%;uR!!;qi;!͙i!E͝G!H/O<<â!E!'QQCIM<<O͵O8</O0<!E͝GM4<<O>M;O>-?-R!:ͫW!:&QNNM6M<͓XN>0<!%;͚S,M-!&QNNM6M<͓X!TPOVpOV,P88M<;M;O5X9M<;M8;O5X9MO]P9ͺO7 9͵O7HXNMOͺO<.9N>xlpp@HF @3d3e3fOgjh{ijkMlmn+opqI)r 5=stu# vy wy x y z { | $7&!}!~/!"F!m:kh!"!!!"K"m"""""#1#]##### $$2$2$$$'$$$$!%%C%w%&]%%%%&7&r))m*+7+x._/9a#149&&''''X'd'p''|'''I((8((#((F(R(m(((r) )I)))))*)d*D*m******+++4+7+C+,,v+++,,i.F,x,',M-,,,-?-f--.B.---u.x......//2/_/k// }// 1/ / / /&0I0r000001 1#1/1u11112 72!h2"2#2%2$2)2(2&2'3*03+N3,30Z3-31b47_3.3/"45424344'464:4<4;R5>m5?5@5A5B6C16D]6FH6E57Nf6G6H6IS7O7P6J6K7L7M7Q 9[7R7S9\b9_*8TC8U8Z|8V8W8X8Y9].9^b9`9b9cj:j9d9e9f9g:h=:i[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 é@lPV2DM*"WT*C##"UTÓA>2@2@*^#V"@##^#V"@ 2@!@!!""@!A"|A6#6P>2A>2A>2A͠@9Aͣ@9A0A_ODIDVIMUDVDFMQQ!9"JAͲC !BͲCʶA!BA!OAB!R"A!O"AͲC|A> KB6#s#r#=A>2DA>2GA>2FA2IA!=A"VA!$\"LA>&2NA@fW6#}B|BX STOC.BͨC*VA.. . ........VV*dA|5B:aA£B*_A|ʣBͩBͲC  s#rͲC  {Dw#6"bA*JA*_A>2aAD(B!9N#FͲC~#~B~+B~#~B+^#V###ùB###ùB|B~#fo!BX Internal Error - No Line Number =AͲC~#ʊCX at lineͩB=CèC>qCX at address|X}XèC> Yo> Yo~#*Cp~#foz!9"@A!C*@AC"BA!C*BAͨC! D~<D=D#~#DD#XSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable ErroCA!E>EAw>$V|KBC}iMmFJm`i"TA!&F"lA!F"nAʂF ,ͺF]FlFU[̀Y*q*q*q*q|F\[Z*q|F\[iY*q*q &F,ZͺF~#‹Fx$V|FC!>VBͺFV$VxR͍fڝF FºF"FG{,xFPX͍f-G!fIOz"yG MG GO{,yČG͍f-G G{ 'G,> 'G'G-G-G͌G͍fF"8G `G͍f`G 8G,`G XG͍f`G `G*TA( 4:AʆG{,†G6!fIVO ʆG+~ zG#6!fIɷw#aGN#"G!9"G"Gy2G*TA|ʿG*lA!H"dAA~#*fJo:AG~ʩHdHGU[G\["fJH&H̀Y*q*q*q*q3HZ*q3HiY*q*q*fJoWH~#"fJ,G ©H:AʩHG~©H!"dA~,"oH#"~ʃHʃH# rHéH"‰H#"fJx"ʞH ʞH+~ ʓHy$V3HX?Redo from Start *GVV!H I*G:GOG*G+~+IHH +w HI++~#foxR"G!G5*G~2I#~#^#VX++LVvmB:fIC*TA|bI!fIV$VxR*nA$) ((((( ) &&)8ʁ"%( )8ʁ%(((UD 5ڇـ #҇ڀf$)% (|ڇʇ ҇ۀ63.(|ځ‡$)z|}C}iMmJm! ~#fo"hJ! "jJC|KB*hJ}o|g_m"hJ*jJ"jJV#s#r++sC0KLC;KLCFKLCKLC0K6LC;K6LCFK6LC͛K6LC0KKC;KKCFKKC͛KKqQKqQK"qZKH~# RKx24Y:wA LKŠK*]V<BL~ʃKn#wK1L*]~ʆK n#ÍK>24Y:wA LF#~#foxKBLKK~#nýKKLVK>"nG:{AxKmo*|A+~<L=L###~L*rAmo!K*xA*|A~=L/<BL1L='L> nK>,nW*|A#^ lLfL+=fL:A=fLmoz{~L{_pLC|ºL}iʙLJm`i"TA++"|A!L"rA!L"pA2wAMCKB3eͶl}o|gL> n+|Lmo!A"|A!"TA2wAM!A"|A!"TA2wAM!zA~6#wͲC n&ͲC ^#VP|C!JMu:aA?B^#V2aA^#V#"_A!"_A:aA*bAͲC nVB~!MXNʘMCi&VB CiyYwPOP 5NQNWN5NQNWN5NQNWNcN5NQNWNcN5NQNWN5NQNWN5NQNWNcN5NQNWNcNrN͐N^#V#͜N"M*MrN;NrN^#ZOlNrN^#V#͖NAN"M~2M"MC*M*M:MÎo:Mo:MNͻNuBvvUvͻNssrqp~#fo͎o:qN2q#HB^#V#^#V#Ͱo^#V#Ͱoͥo^#V#ͥoN͘o͎o^#ZO͘o^#ZOͥoFO&)))ͲC>!>!>!>!>!>^#V#^#V#ÞP>!>!>!>!>!>^#V#!qÞP>O>O>O>O>O>^#V#^#V#ýP>O>O>O>O>O>^#V#!qýP>P>P>P>P>P>^#V#!qP>@P>@P>@P>@P>@P>^#ZOqýP>iP>iP>iP>iP>iP>^#V#!CýP>ÒP>ÒP>ÒP>ÒP>ÒP>C!qýPéP G;RʹPP G;RP~#foP##CwC u͘o uC@uo@u^#V#Q-x2ACC6QComQ͘o|KBCdQCmQJQQ:AʺQ!C͚s@uÑQ:AʽQ!Cu:q2q:qQQ:q±QóQ|/g}/o@u:qQ!qQ;RQ!CHB:qgoW*q|7gQ:qQ+>R|/g}/oR!,RG|(RRo& Gȯ|g}o/RER>RR~+~?~]R+#jR+ jRCUԲR~##++V> p+V+^+ʥR+r+sWCxR~5VCKBͼURRLVLV~#~#fo pC|KBBK&SPYC|KBBK S o_RCzKBz.S 4S_:So}`i5VLVDMC|KB!9>$V>xS>xS>xS>xS>xS>ͯS!+>ÜS>ÜS>ÜS>ÜS>ÜS>ͯSʫS~#fo##GNSyS#~#fo~#foS#S S ySy<.S)S)LVLV~LVo&~KB#^#V++LVo&C~@++*YT"YTs#r+HU*ST#~_#~W?WCQBr+s##6"WT###!YT~#focWpSW<*UT"ST*WT}o|g6@#s#r#6"WT*W*W"YT}w>#w##pŽW++6+6[TT>W>W>W>~#^#VW+r+s=¼W>CG~Owy#WïW>2W|*X+})N#&X~#fo :WX!9"JA!OA4 ~p#KB!OA4!9"JA^#V#!OA~w6B!9"JA|KB}KB!Aw|KB}KB!Aw͍oCͣXn&͍oC|KB}ͣXw:qںX:qX!Xuru~Yo#=XX~Yo#XG~#X#X++X0: YYoͯ y<<̀&y!y͛&͒&!&))Tͦ&&͒b\Y*q}/o|/g#"q|͍Yw\Y!q~wɯ2q͒bwY@u͍Y*q͍Yw͒bwY u>>2[~%A#ÒY%A+Y!qðY>!qq2Y# ¶Y!qÚs!q͗Z1q>>Y>|}+!M[âr_ZHx+6!q>t2q!I[Uv!E[âr!qâr~_#~W#~O͒yu!bu͓w2Zɇ<o&͍Yw*q*qbZ"q`i"q!q^#V#N#F#!I[v̀yx{uy!q6Uxwg>yÙyÛZ:4YGw#›ZZðZ!qZq͒bq͒bZ*q||<͒b*qZͪZ!bͤZYpYZ$Z:q2q:qocqZ:q[[[|/g}/o-[!oc:q6[qZ"q>24Y*Zaj,[ L}dY͊YZc>2 Y`h-[~&ʭb-ʄ[+ʄ[+xbk\.\eʖ[E[xblʮ[Lʮ[qʮ[Qʿ[:4Y[>[~%\#/\!0\d[D[9\xbͣbxb\[_{_H\X\[;Y͒b!9Z6[͒b [9\Ä[xb!9Z!Z[9\xb[iYĀY͒bkZZ=͒bZYDG]"q`i"q#~+Q^-(^0OxGQ^#~^`xEF^y ]>2YV^|]>^]"q`i"qTZ#We`:Y^Î^^Ғ^a60iZ+a+~0ʡ^.iZ^͒b>"w#6+^6-/</ ^:#p#w#6!Y#zZ__`z`a{Y=`c] _p#6!Y#:5Y~ _*_+"_xb-+_:LA{0R_#xbR_++wH__R_6%_v_bY_*]+6%*Zm_͎Ze`__x``+a`a^_yV\_X\_{_x_``_`yaO`GO+a_*5Y=`P^wYѯ`͎Z7e`yV\OzWOX\$`2`/< a/>ͭYTa>ͭYp#=Ka!qQZÇa$Z>qZTZhb?a_Z/{_#zW#yO++қaZ#TZp#ڍa>anb>aN#F#*q/}o|ga"qp#=aaw1_cƤ~@zZrN vH Tʚ;@B''d #~: xb xb xb0?<=:4Yҟb7-++xb5cOʾbHʾb+bb-[H#bbCHBM!bb}0?)))صobM!cc}5c0? 'c? ))))صoca{ Z͒b:q:qZ: Y2Y2 YCHBCHB$1@T;+1/<O #~goPY!' ůw|f:@Bihm=bm= dѯSmDe!' ~wd|f͜jC}iMm!&e! ~+ngC}iMm! n&*TA~Gm\lDM'~td4N#V phezw w+s#r#6#6DM:@ʓe!" s#r#6e! {zVeucwm~# f*TA~ʊl( ~3f+~#5O ~+~?fEff7>*TAT]% N#F+q#p###6 ]f|f:@Bi>uf>w+w!(f7?*TA' 6#67~em#^#fk_fN#~:f++@emy@ememd #g~.fg7f#f2dLVz emem> gf> gfCͨfucd<\m!cd> pͨf:d!ckmd p66|f~h.͔n h:A W:A"i> ͔n͔nܑndh~*6?# :iO!!4Zi#4Zi#4y"oihm><"&d>2ZA!l"[A:XA<2XA*VA"*d!i"VAC"(dzg*hA|ʻi##n͹dêi.ʹd**dCiC2,dj"-djCiC2,dj"-djMm!)`k)#ak))ok nk#=Vk}_}la)km҆k#xkm"j! "j!) "j!}o|g8mڵkbk:jk8mklDM*j*jOl"jPYl}o|g*j#"j˜klDM*j*jOl"jPYk27m*j! ~#fo8ms#r>l:7mKl!Kl!& oe~# xPlDM͸l_mͭl! w!( V6 ʅlzwͶl_mͭl! ~!èl! ^#V! s#rDMͥl͟l8m}iMmlJm`i"TA!l"]Am͍fC!>VBC|KB, m-:ZAMm*[A!A"]A{ͼUf$%3m!,m*]Am|}!"TA>6>4>?>=>:>7>5>2>3>@>C>Co&VBC!"TA!fI"fJÈm:I™mX?ÙmpͿnm:n>\2n³mʘm͔n+m~͔nm+͔nm͔n͑n!fI2nmͿnOʟm:nm>\͔n2ny^n̗n7 ʅn ^n nʙm^n̗nʙm6nʙm͔n> ͔n>m@n>#mYn6͑n!fIͩnm mx<>inyq#͔n m> ͔nͿnvn mm:ȊnwèCYo>^͔n@͔n͑n~ ¸n> ͔n͔n#énA*|A n#~+ n~=Ko*|A!A"|An"|A> n> n:A=ʈo> ,A> ,A*n^#V#͘oɷ!qo!qïoqoqow#w#w#w#o>qo>qo ~#=o!o#~ o oɅo$ɧGw# p{z6#%qUu$q`q͙yOeq!y!qy#]q+Pq͙y?áyIriy u~qIru,r!qUuq:qʙy:$q/Nts2q:qJt͙yx/F+N+=ir!q}r!q>q#p#=€r!qâr"KptrcrOr*KpUuPy:qPy!#qN#F9wtqrGtux r¿rJt!qtrj0 TeB׳]h!I.k Iriy u&sIru!qâr͊M!qq#~++w+qAsÙyDNn"~`35zr1{r1h!IUuʙyyO2#qàsUuʙy:q,rҲs/<,r9ҙy:#qOHxG2q!#qt:q2qx!qq1tts4u:qs!q~++wÙy!q4#t4,s+6!qq# tɯ# 't'tJt/!qOyw#BtG:qst!qVwz# XtxKtPy!q͆tktxs!qwPys~w# ˆtIriy uçtIru!qÚsIriy utIru,r!qÊsy2#q!qRp~q+tqtNsY+tt W~w+ut!quw uiy!qw#&uÙy7u}lu@uruluHx!qF#^#V#N0yru}q~#ZuG++NyáyqXu!qiy>ʯu҇u͊M͒yͽùyʫu!q6Uxg>y|x!>uakiyuYwuÙy!q~+>wÙywu͊yʙy:qryu/<$xҙyHxgy!q(v~_#~W#~O0y#4y.y0yG~_#~W#~OxrxwEv͊yʙy>OuwXv͊yx͙yȯG9w"qy2qFox$x!D*q:qOҕvq4yívͽvg.*q:qOzҖvͽvg.*q:qãvx<=v{_zWxG)yOHG0ywv͊yuy͙y9wy+F+F+Fw`h|1wgyw:qO|g}oxG-| w}wrxElaOw!q~GxQwƀOywHxw+ɷyPỳyx{uy!q6Uxwgwwzvw >y|By{>2qrx/))Cx =;x!q~7w?##wy7O*q*q"q"qajSX͹xPyJS\E!qPy/y y7>{_zW}o|g=ºy|g}oyCZQy o-yOzW{_xGyq*qDM^#V#N#F#xyáy:q:q7|/G}/O!>y y7>{_zW}o|g=ºy|g}oyCZQy o-yOzW{_xGqOҕvq4yívͽvg.*q:qOzҖvͽvg.*q:qãvx<=v{_zWxG)yOHG0ywv͊yuy͙y9wy+F+F+Fw`h|1wgyw:qO|g}oxG-| w}wrxElaOw!q~GxQwƀOywHxw+ɷyPỳyx{uy!q6Uxwgwwzvw >y|By{>2qrx/))Cx =;x!q~7w?##wy7O*q*q"q"qajSX͹xPyJS\E!qPy/ D=Directory On/Off Q=Quit | |--------------------------------------------------| |----- No File Menu -------|------- Edit Menu -----| | B=Big Letter Creation | A=Alpha-Graphics | | E=Load & Edit | E=Eraser | | M=Move & Edit | M=Merger | | P=Printer Menu | R=Reverser | | S=Slide-Show | S=Save | |==================================================| Command ? Thi i th men yo wil se whe yo ru th GF progra o thi disk Thi i th "N Fil Menu" an i supplie lis o singl lette commands Simpl typin lette start th progra o th chose cours o action Th "Edi Menu command ar include her a reminde befor yo ente th "Edit mode AL o th "N File command (excep "Printe Menu" deposi yo i th "Edit mod upo th completio o thie respectiv functions. Whe yo choos comman letter tha lette wil preced (surrounde b parentheses an othe prompt yo mus answe i orde fo you comman t b executed Yo wil notic tha onl on othe men i provide for th "Printe Menu" whic i discusse later. ---------------------------------------------------- All Menus ==> D=Directory On/Off Q=Quit ---------------------------------------------------- D=Directory On/Off `toggle comman whic turn th dis director displa o an off Yo ma typ "D an tim yo se th "Comman ? prompt Q=Quit T exi th printer edit o n fil menu typ "Q a th "Comman ? prompt. ------------------------------------------------------------ ************************************************************ -No File Menu- ************************************************************ B=Big Letter Creation E=Load & Edit M=Move & Edit P=Printer Menu S=Slide-Show ************************************************************ ------------------------------------------------------------ B=Big Letter Creation ------------------------------------------------------------ Thre time yo wil b aske fo "Inpu Lin an blinkin curso i th uppe lef corner Us th arro o ta key t mov th blinkin curso t th plac yo wan th firs characte i you fil t appear the pres Th scree clear an you desig fill th scree i th chose position Yo wil the se th "Edi Menu promp "Comman (A,D,E,M,Q,R,S) ------------------------------------------------------------ S=Slide-Show ------------------------------------------------------------ T creat slidesho o you GF file i i necessar t understan th (A fiv type o informatio tha compris Slide-Sho file an th (B prope constructio o tha file Afte supplyin th Slide-Sho filenam yo wil se thi promp o th screen ******* Press ANY KEY to stop the Slide-Show ******* ------------------------- (A) Types of Information: 1) Slide-Sho Filename An nam ma b used bu th fil typ o ".MFX mus b used. 2) Filenam o Slide ".GFX  typ fil yo hav create wit th GF program. 3) Tim o screen Thi numbe i multiplie b on secon fo tota lengt o time Th valu mus b betwee an 65535. 4) Typ o scree erasure Ther ar te type o erasur accesse b th number throug 10: #1 = Norma Erasur - Instantly al a once. #2 = To t Botto - On lin a time. #3 = Botto t To - Th opposit o #2. #4 = Lef t Righ - On colum a time. #5 = Righ t Lef - Th opposit o #4. #6 = Side t Middl - On colum o eac side #7 = Middl t Side - Th opposit o #6. #8 = Top/Botto t Middl - On lin eac (Top/Bottom) #9 = Middl t Top/Botto - Th opposit o #8. #10= Side Top/Botto t Middl - Tw column o eac sid the on lin to an bottom repeate unti th middl o th scree i reached. 5) Fals filename I th las entr i you "MFX fil i "0,0,0 the th Slide-Sho repeat unti ke i depressed. ---------------------------------- (B) Structure of ".MFX" type file: 1) Us Wordsta t creat an sav non-documen fil wit th fil typ o ".MFX" 2) Eac lin o th fil mus b followe b carriag return INCLUDIN th las line. 3) A optiona featur o th Slide-Sho functio i th additio (a th en o you MF file o fals entr o "0,0,0 whic tell Slide-Sho t continuousl repea th sho unti an ke o th keyboar i depressed 4)Eac lin o thi "MFX fil contain filenam (N Filetype) timespan an a eras number Her i sampl "MFX file: HELLO,30,3 DITTO,10,4 YOURS,1,1 0,0,0 ------------------------------------------------------------ ************************************************************ - Edit Menu - ************************************************************ A=Alpha-Graphics E=Eraser M=Merger R=Reverser S=Save ************************************************************ ------------------------------------------------------------ A=Alpha-Graphics ------------------------------------------------------------ Ther ar tw prompt whic accep inpu wit thi function blinkin curso show positio an th positio doe no chang fro functio t function Th firs i th functio promp an th secon i th graphi numbe inpu prompt: A=AlphaNumeric G=Graphics M=MoveCursor =End> Input Graphic Number (1-32) ---------------- A=Alpha-Numeric T en thi functio an retur t th functio promp ente a Thi i somewha lik typin excep tha th carriag retur an ta ar disabled Th arro key mov yo aroun th scree an th curso deletes ----------- G=Graphics T en thi functio an retur t th functio promp ente numbe greate tha 3 a th inpu graphi prompt T chang graphic character an retur t th inpu prompt pres promp follow thi functio choice: Input Graphic Number (1-32) Th arro an ta key functio properl t mov th blinkin curso an leav th desire characte i eac position. -------------- M=Mov Cursor T en thi functio an retur t th functio promp ente a . Th arro an ta key functio properl t mov th blinkin curso t desire positio withou changin an character o th screen. ------------------------------------------------------------ E=Eraser ------------------------------------------------------------ simpl operatio designe t allo eas deletio o larg block o th screen Ther ar tw seperat prompt place o th scree on a time blinkin curso i see afte eac prompt Us th arro an ta key t positio th cursor Th tw location yo suppl creat th border fo th bloc whic i deleted I yo mak mistak an d no wis t delet afte choosin thi operatio simpl plac th curso t th lef o abov th uppe lef (first locatio whe yo ar aske t suppl th lowe righ (second corner effectivel creatin non- block an n erasur occurs Her ar th tw prompt yo wil see: Positio Curso t UPPE LEF corne Position Cursor to LOWER RIGHT corner ------------------------------------------------------------ M=Merger ------------------------------------------------------------ Afte creatin mor tha on desig yo wil probabl wis t joi som screen o cop desig i mor tha on locatio o th screen Pleas not tha onl design alread save o dis ma b merged no th on bein  edited. Th mos effectiv an efficien metho i t us th beginnin characte o you fil a th startin point I you desig begin o lin o colum othe tha th uppe lef corne o th screen th positio yo ar aske t suppl i no tha actua relativ location Simpl put th firs characte o you desig i th positio yo suppl wit th blinkin cursor no th uppe lef corne o th design T allo fo th fe design whic d no begi i th uppe lef an d nee t b merge i relativ manner plac on characte i th uppe lef corne o th desig wit th Alpha-Graphic function sav th file the merge Th firs characte i th fil no correspond t th relativ uppe lef an you merg wil reflec tha wit correspondingl relativ location Her i th promp yo wil se afte yo ar aske t suppl th merg filename: Positio Curso t UPPE LEF corne ------------------------------------------------------------ R=Reverser ------------------------------------------------------------ Thi operatio i designe t revers block o th screen Norma (Alpha-Numeric character ar no affected an onl standar graphic character whic hav a opposit standar graphic characte ar changed Thi doe NO giv yo a altere characte se o tru vide reversal bu i doe allo fo quic an eas chang o design' appearance. Ther ar tw seperat prompt place o th scree on a time blinkin curso i see afte eac prompt Us th arro an ta key t positio th cursor Th tw location yo suppl creat th border fo th bloc whic i reversed I yo mak mistak an d no wis t revers afte choosin thi operatio simpl plac th curso t th lef o abov th uppe lef (first corne whe yo ar aske t suppl th lowe righ (second corner effectivel creatin non-block an n reversa occurs Her ar th tw prompt yo wil see: Positio Curso t UPPE LEF corne Position Cursor to LOWER RIGHT corner ------------------------------------------------------------ S=Save ------------------------------------------------------------ Ther ar onl tw way t exi th "Edit portio o th GF program On i t typ "Q" an th othe i t typ "S" Typin "Q result i los o th fil bein edited an retur t th "N File menu Typin "S whe editin fil save th fil t dis fo futur use Yo ar aske t suppl filename an the se th statement ************ Saving File - Please Wait ************* Whe th sav operatio i completed yo ar returne t th "N File menu. ------------------------------------------------------------ |**************************************************| | - Printer Command Menu - | |--------------------------------------------------| | B = Begin print-out | | F = Filename for print-out | | P = Position to begin print-out | | S = Size of print-out | |-----------------| Print Sizes |------------------| | 1=Normal 2=1/2 Wide 3=1/2 Tall 4=1/2 Wide & Tall | #################| Current Status |################# Position = Print Size = Filename = Command ? Thes ar th singl ke command tha giv yo almos tota contro o th printe (Epso MX-8 wit Graftrax regardin you GFؠ designs Yo wil notic tha th "Curren Status lin change i respons t you commands Afte supplyin filenam yo ma choos t begi you print-ou o lin othe tha th firs line I yo choos th "P function yo wil se th scree fil wit you desig an thi promp appear: Position Cursor to BEGINNING line Th positio yo choos doe no carr ove fro desig t design eac tim yo sto th printe o i finishe print-ou th positio revert t it' norma place th firs line Th optio o beginnin colum i no implemente du t logica considerations. Th siz o you printou wil effec th loo o you printou i yo hav chose siz othe tha th "1=Normal siz an hav use alpha-numeri character i th design Onl siz # an # prin th norma character an # change th lin spacin s tha hal o th lin i overprinted Size # an # d no prin an character othe tha th standar 3 graphic characters. Afte typin "B a you command yo wil se th statement *********** Press ANY KEY to stop print ************ I yo d no sto th print-ou i finishe afte th   botto lin o th scree i printed Pleas not tha sinc th sourc cod i supplie wit thi progra i i possibl t alte i fo othe do matri printers bu al o th code an dat sen t th printe no resid i th GFXDATA.CE file Th note i Appendi cove th dat an equation sen t th printer ------------------------------------------------------------ ************* *AUTOREP.BAS* ************* Thi program i conjunctio wit severa othe programs perform replacemen o th AUTOST.CO graphics Thi mean tha whe yo war o col boo you diskette yo wil se you customize messag Thes ar th file neede fo AUTOS graphic replacement: Ours: ----- AUTOST.COM AUTOREP.BAS AUTOCHG.SUB SET.SUB "your".GFX Osborne's: ---------- MBASIC.COM DDT.COM XSUB.COM SUB.CO Pleas mak sur al thes file ar o on disk Belo ar th ste b ste instruction fo th replacemen procedure Yo ma b confuse b thes instructions pleas rea the carefully Fil name ar o majo importance Ther ar essentiall TW mistake tha ca b mad wit th filenames. 1) "SUB.COM i actuall "SUBMIT.COM foun o you "CPM utilit diskette an ha t b name "SUB.COM" 2)"AUTOST.COM i -NOT- repeat -NOT- th "AUTOST.COM foun o you "CPM utilit diskette Th "AUTOST.COM fil distribute wit thi diskett wa create b Fran Barnhar o th St Loui Osborn Group an i availabl t th public unlik th "AUTOST.COM supplie t yo b th堠 Osborn堠 Compute Corporation Th堠 graphic replacemen wil젠 -NOT- wor렠 wit蠠 you򠠠 origina "AUTOST.COM file ɠ a assumin tha yo hav alread create "GFX typ fil t plac o som diskett o you choic a a auto-start Yo no wis thi creatio o your t gree yo whe yo war o col boo tha diskette Th mos versatil portio o you ne auto-star progra ha ye t b accessed No onl ca yo replac th graphics bu yo ma als suppl th compute wit se o commands jus lik th one yo normall typ i a "A>" T d this yo mus creat NON-DOCUMENԠ fil wit Wordsta calle SET.SUB whic ha th command yo wan t execut whe th dis i war o col booted Belo i a exampl o SET.SU file.(I ask fo dis directory run GFX.COM an whe yo exi GFX.CO give yo anothe dis directory. Mak sur al th line en wit RETURN eve th las one.(Fo mor informatio abou thi importan functio consul ᠠ referenc boo렠 o CP/͠ abou "SUBMIT.COM") A sample "SET.SUB" file: DIR A: GFX DIR A: Procedure for AUTOST Graphics replacement: 1) Plac the dis i driv A 2) Typ "MBASI AUTOREP" 3) Yo ar the aske fo you "GFX filename Typ th filenam (D NO SUPPL TH FILŠ `TYPE' i i assume t b `.GFX'. Yo se you GFؠ fil o th scree an afte momen th scree i cleare an yo se "A>". 4) Typ "SU AUTOCHG" 5) Whe yo se th "A> again an nothin i happening typ "^C (contro C) 6) Plac堠 AUTONEW.COM SUB.COM an䠠 SET.SU  o th appropriat diskette. 7) Type "REN AUTOST.CO=AUTONEW.COM" 8)Done. ------------------------------------------------------------ *********** OLD/NEW.BAS *********** Note Thi progra i supplie fo thos peopl wh hav a earlie versio o th GF progra calle "GRAPHICS.BAS" A a adde bonus fo thos o yo wh wis t integrat GF desig int a MBASI progra hav include th optio o changin GF file int basi programs Thes program ca the b merge int you existin program o ru b themselves I i ver convenien t obtai printou o th name o th file tha yo ar goin t conver befor beginnin th conversio process T chang GRAPHICS.BAӠ file t GFؠ files: 1) Pu MBASIC.CO o clea an SYSGEN'e disk. 2) Mov堠 OLD/NEW.BAӠ t tha dis렠 an䠠 renam堠 i "GRAPHICS.BAS". 3) Plac thi dis i driv A an you "old GRAPHICS.BA dis wit th file t b converte i B:. 3) Typ ^C 4) Typ "MBASI GRAPHICS an pres RETURN. 5) At the prompt "NEW/OLD (N/O) ?" type "NEW". 6) Yo ar no aske fo th driv t rea file fro an th driv t writ file to Typ "B the "A". 7)Suppl th filenam o fil t b converted an whe tha fil i converte an written yo ar aske fo anothe filename. 8) Pres RETUR whe yo hav converte al you files. 9) Typ "SYSTEM an the ge director o dis A: Ther ar you newl converte files Th ol file ar no erase o overwritten eve i yo ar readin an writin t th sam disk. Fo thos o yo wishin t conver GFؠ file int basi program simpl answe "OLD fo ste above ------------------------------------------------------------ Thes appendice ar supplie a referenc t th variou function o th GF program d no inten fo the t b complet notatio a th progra ma b update b other o myself Mos o th note herei ar use a programmin notes on the GFXDATA.CEC file. APPENDIX A Easy Operator Customizing Th dat fil fo GFX.CO i comprise o mor tha on typ o data wil begi b describin th portion o thi fil whic ma b customize (wit Wordsta a NON- DOCUMENT t sui individua operators. Th firs lin o GFXDATA.CE consist o number whic i "600" Thi i use t se th "waiting tim limi o th progra an i roughl equa t on secon i th compile version Th tim limi i use afte eac inpu t allo th operato t se thie input I i als multiplie b t se longe limi o non-inpu prompt suc a "Pres an ke t sto print" Yo ma alte thi numbe t sui you needs bu kee i min tha th slide-sho functio als use thi number a bas time limit. Th las tw line o th fil suppl th slide-sho typ o informatio t star th program that' wha yo se befor yo se th men Ski t Appendi fo tha info whic tell yo t se th "Slide-Show informatio i the previous pages. ------------------------------------------------------------ APPENDIX B Prompt and Menu Data Liste belo ar th line o dat supplie t GFX D NOԠ chang eithe th amoun o line o thie relativ positions Trea eac individua lin a seperat dat becaus tha i ho th GF progra think o them Shoul yo nee o wis t chang th menu o variou prompt d s wit utte discretion unles yo decid t alte th basi sourc progra an inten t us tha instea o th compile program whic i muc slower |****************| GFX Main Menu |*****************| |All Menus ==> D=Directory On/Off Q=Quit | |--------------------------------------------------| |----- No File Menu -------|------- Edit Menu -----| | B=Big Letter Creation | A=Alpha-Graphics | | E=Load & Edit | E=Eraser | | M=Move & Edit | M=Merger | | P=Printer Menu | R=Reverser | | S=Slide-Show | S=Save | |**************************************************| | - Printer Command Menu - | |--------------------------------------------------| | B = Begin print-out  | | F = Filename for print-out | | P = Position to begin print-out | | S = Size of print-out | |-----------------| Print Sizes |------------------| | 1=Normal 2=1/2 Wide 3=1/2 Tall 4=1/2 Wide & Tall | |****************| Disk Directory |****************| Command ? Filename Input Line Position Cursor to UPPER LEFT corner Position Cursor to LOWER RIGHT corner A=AlphaNumeric G=Graphics M=MoveCursor =End> Input Graphic Number (1-32)(>32 to End) ** Error, File NOT found - Please check directory ** #################| Current Status |################# Print Size = Filename = Print Size (1-4) ? Position Cursor to BEGINNING line *********** Press ANY KEY to stop print ************ ************ Saving File - Please Wait ************* |==================================================| ******* Press ANY KEY to stop the Slide-Show ******* Position = ------------------------------------------------------------ APPENDIX C Reversing Data Yo wil not tha th 3 number followin th prompt an menu ar limite t th number 1-32 Thi i han compile lis o th standar graphi se o th Osborn whic swap th number o mirro imag characters Ther should be no need to alter this group of data. 0,4,14,18,1,6,5,17,21,9,25,11,12,13,2,15,16,7,3,19,26,8,32, 24,23,10,20,27,28,29,30,31,22 ------------------------------------------------------------ APPENDIX D Control Routine Data Th nex grou o dat i use t contro th progra flo accordin t th need o th variou functions Ther ar 1 line eac o 2 numbers On line lin 10 ha tw group o numbers D NO alte an o thi dat unles yo inten t alte th sourc program Th structur o th dat i a follows: |Prompt Routine Output Data Identifier | | |Prompt Routine Input Subroutine/Data Identifier | | | | |Subroutine Identifiers-----------| | | | | V V V V 20,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 23,3,1,8,1,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 22,2,2,1,9,1,9,1,9,0,0,0,0,0,0,0,0,0,0,0 21,2,1,2,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 21,2,1,6,1,6,4,0,0,0,0,0,0,0,0,0,0,0,0,0 21,2,1,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 21,2,1,6,2,4,1,6,2,4,0,0,0,0,0,0,0,0,0,0 27,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 25,1,1,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 33,4,1,2,4,11,0,0,0,0,0,0,0,0,0,0,2,4,1,0 21,2,1,12,1,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0 23,3,1,8,1,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ------------------------------------------------------------ APPENDIX E Printer Data Thi wil b th mos importan Appendi fo thos o yo wit printer othe tha Epson hav see th progra ru Sta Micronic printe wit n modificatio an ther ma b others I yo wis t modif th progra fo another incompatibl printer hop ca suppl yo wit enoug informatio abou th printe routin t allo yo t d s eve i yo aren' a experience programmer. Som tim shoul b spen researchin th variou code an dat neede b you printe t operat i bit-graphic mod befor attemptin t alte th sourc progra printe routin o th printe dat i th GFXDATA.CE file liste below Yo wil notic ther ar 32 line o numbers Eac numbe represent on column an on lin represent th correspondin standar graphi characte o th Osborn 1 Th singl numbe tell th printe whic wire o th prin hea shoul b fire i tha column Th prin wire o th Epso ar numbere fro th botto t th top eac on successiv powe o two s tha th numbe 12 fire al pin availabl t th program. 127,127,65,65,127,127 127,127,127,0,0,0 15,15,15,120,120,120 15,15,15,127,127,127 0,0,0,127,127,127 120,120,120,127,127,127 15,15,15,0,0,0 0,0,0,15,15,15 127,63,31,15,7,3 0,0,63,63,56,56 3,7,15,31,63,127 0,0,127,127,0,0 28,28,127,127,28,28 0,28,62,62,28,0 120,120,120,15,15,15 28,28,31,31,28,28 56,56,63,63,0,0 127,127,127,120,120,120 120,120,120,0,0,0 0,0,0,0,0,0 0,0,0,120,120,120 96,112,120,124,126,127 127,127,127,127,127,127 120,120,120,120,120,120 15,15,15,15,15,15 127,126,124,120,112,96 127,127,127,15,15,15 28,28,28,28,28,28 0,0,126,126,30,30 0,0,0,0,0,0 30,30,126,126,30,30 30,30,126,126,0,0 0,0,0,0,0,0 ------------------------------------------------------------ APPENDIX E (continued) No w reall ge t th fu par fo thos o yo wit "foriegn do matri printer Th nex fou lines o differin length ar th printe contro codes an ca b change fo differen printers bu thie USŠ canno b changed. Th firs lin represent th Epso printe power-u statu code Th firs numbe o th lin "2 tell th progra ho man character i take fo th code Th nex (yo guesse it tw number ar th actua cod number "27,64 whic tell th printe "POWER-U STATUS". Th secon lin start of th sam way wit numbe representin ho man number follow Number sen th comman t "CHANG TH LIN SPACING" Bu wait fo al yo Epso printe expert ou there w bot kno i onl take thre number fo th lin spacing wh th fift numbe Well w hav fou differen prin style availabl an tw o thos prin style nee differen lin spacin tha th othe two Startin t mak sens Th fourt an fift number ar th tw differen lin spacin numbers # (7 fo normal/hig style an # (4) fo half/hig styles. Th thir lin agai start wit "4 tellin th progra ho man number follow bu thi tim it' nothin fancy i jus tell th Epso i shoul g int th graphic mode. Th las tw number tel th progra ho man column (total w ar sendin th printer Wit tw o th prin style (norma wid 1&3 i doesn' matter Bu whe w wan half/wid style (2&4 w hav t fil i thos "960 column wit something s th progra figure ou ho man w sen th printer use th numbe w giv i (960 an come u wit ho man blan column i shoul send Mak sens Th las numbe jus tell th progra ho man norma character th printe ca accept i thi cas 80 Notic tha 960=80*12 th maximu th Epso ca print. Here's a recap: 2,27,6 - Poweru cod ( Tur al specia thing off 4,27,65,7, - Lin spacin cod ( Ho man dot high ) 4,27,76,192, - Graphic Mod ( Le thos dot go ! ) 960,8 - Columns printer can handle ( Graphic an Normal ) Fo thos o yo wh don' wan t se exactl ho th printe routin works ski ahea tw page t Appendi F wher finis ou th explanatio o th GFXDATA.CEà dat file. ------------------------------------------------------------ APPENDIX E (continued) GFX Printer Routine Notes 282 Ok, at what line do we start ? (J1) 283Sen th printe th lin spacin code tw optiona numbers. 287 Send the Graphics Mode codes. 288 Begin next line. Test to see if finished. 289 Look at character on line, test for non-graphics. 290 Loop 6 times for each character - send numbers to printer 291 } What print style size ? { 292 293 } Half/High - Turn off top three pins { 294 295 What print style size, normal or half wide ? 296 Send number to printer.(Normal wide - send twice) 297 Send number to printer.(Half wide - send once) 298 Do it again on this line until done. 299 Print style 1 and 3 get alphanumerics too ! 300 Did we see alphanumerics on this line ? 301 (Gosub 311) Reset printer to power up status. 302 Look at maximum spaces. Test for non-alphanumeric. 303 Prin character D til done Sen Carriag retur t empt th buffer (Goto 305) 304 Send extra numbers when using styles 2 & 4. 305 Done yet ? 306 Should we stop ? 307 (Gosub 311) Reset printer to power up status. 308 Let's go on to the next line. 309 (Gosub 311) Reset printer to power up status. 310Sen Carriag retur t empt buffer Rese al variables Retur t comman routine. 311 Send printer power up status code. ------------------------------------------------------------ APPENDIX E (continued) GFX Printer Routine 281 REM * 10-printer routine ************************************************** 282 J=J1-128 283 FOR B=1 TO P3(2)-2:LPRINT CHR$(P4(2,B));:NEXT B 284 IF P>2 THEN 286 ELSE 285 285 LPRINT CHR$(P4(2,B)):GOTO 287 286 LPRINT CHR$(P4(2,B+1)) 287 FOR B=1 TO P3(3):LPRINT CHR$(P4(3,B));:NEXT B:GOTO 288 288 J=J+128:G=0:IF J>64256! THEN C$="A" ELSE C$="" 289 FOR Y=1 TO 128:I=PEEK(J+Y):IF I>32 THEN G=1:I=32 290 FOR B=1 TO 6:X=(I*6)+B+100:K=D(X) 291 IF P>2 THEN 293 ELSE 292 292 IF P=2 THEN 297 ELSE 296 293 IF K>64 THEN K=K-64 294 IF K>32 THEN K=K-32 295 IF P>3 THEN 297 ELSE 296 296 LPRINT CHR$(K); 297 LPRINT CHR$(K); 298 NEXT B:NEXT Y 299 IF P=1 OR P=3 THEN 300 ELSE 304 300 IF G=1 THEN 301 ELSE 305 301 GOSUB 311 302 FOR Y=1 TO T:I=PEEK(J+Y):IF I<32 THEN I=32 303 LPRINT CHR$(I);:NEXT Y:LPRINT CHR$(13);:GOTO 305 304 FOR B=1 TO P3(4)-(128*6):LPRINT CHR$(0);:NEXT B 305 IF C$="A" THEN 309 306 C$=INKEY$:IF C$="" THEN 307 ELSE 309 307 GOSUB 311 308 GOTO 283 309 GOSUB 311 310 LPRINT CHR$(13);:Y0=0:X0=0:H=10:C$="":J1=0:J=0:RETURN 311 FOR B=1 TO P3(1):LPRINT CHR$(P4(1,B));:NEXT B:RETURN ------------------------------------------------------------ APPENDIX F Erase Screen Data Th nex nin line o number ar use t see th erasin scree routine D NO chang an o the o strang thing wil happen Simpl put the ar al use i th sam place fe differen equation ar use whic tel th progra wher t star an sto erasing. 0,1,0,23,1 0,1,23,0,-1 0,2,0,51,1 0,2,51,0,-1 26,2,0,26,1 26,2,26,0,-1 11,1,0,11,1 11,1,11,0,-1 26,2,26,0,-1 ------------------------------------------------------------ APPENDIX G Beginning Screen Data Gues wha I yo wan you ow desig t com u whe yo star thi program jus chang thi las grou o filenames timelimits an eras numbers a outline i th Slide-Sho instructions P.S - Yo can' specif th typ o erasur wit jus on fil entry bu th fil doe fil th screen an i the erase al a once Wh eve hear of a "one slide" Slide-Show ? GFXMSG.CEC,0,10 WELCOME,0,7 ------------------------------------------------------------ EOF---EOF---EOF---EOF---EOF---EOF---EOF---EOF---EOF---EOF--- ifferen equation ar use whic tel th progra wher t star an sto erasing. 0,1,0,23,1 0,1,23,0,-1 0,2,0,51,1 0,2,51,0,-1 26,2,0,26,1 26,2,26,0,-1 11,1,0,11,1 11,1,11,0,-1 26,2,26,0,-1 ------------------------------------------------------------ APPENDIX G Beginning Screen Data Gues wha I yo wan you ow desig t com u whe yo star thi program jus chang thi las grou o filenames timelimits an eras numbers a outline i th Slide-Sho instructions P.S - Yo can' specif th typ o erasur wit jus on fil entry bu th fil doe fil th screen an i the erase al a once Wh eve hear of a "one slide" Slide-Show ? GFXMSG.CEC,0,10 WELCOME,0,7 ------------------------------------------------------------ EOF---EOF---EOF---EOF---EOF---EO 22 0 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 2 1 14 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 77 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 2 1 14 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 77 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 2 1 14 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 22 77 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 2 1 14 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 22 77 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 2 1 14 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 77 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 2 1 14 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 77 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 2 1 14 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 12 77 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 2 1 14 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 12 77 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 14 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22  1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 77 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 102 4 111 1 114 1 116 2 104 1 101 1 22 4 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 77 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 14 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 77 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 79 3 115 1 98 1 111 1 114 1 110 1 101 1 49 2 22 3 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 77 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 14 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 77 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 38 7 22 7 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 77 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 14 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 22 77 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 69 2 112 1 115 1 111 1 110 1 77 2 88 1 45 1 56 1 48 1 12 2 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 22 77 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 14 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 77 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 2 1 14 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 2 77 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 2 1 14 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1  12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 2 77 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 2 1 14 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 2 77 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 77 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 77 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 14 1 22 1 22 77 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 2 1 22 1 22 1 12 1 12 1 22 1 22 1 2 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 22 1 12 1 12 1 22 1 22 1 14 1 14 1 22 1 32 1 22 1 22 1 12 1 11 12 1 22 1 22 1 22 1 2 1 22 1 22 1 22 1 12 1 22 1 22 1 22 1 2 1 14 1 22 1 22 1 22 1 12 1 2 10 131 22 1 22 1 22 1 8 1 85 12 115 1 101 1 114 1 83 2 117 1 112 1 112 1 111 1 114 1 116 1 101 1 100 1 83 2 111 1 102 1 116 1 119 1 97 1 114 1 101 1 22 90 22 128 24 3 24 1 22 2 22 1 22 1 22 1 8 1 71 14 70 1 88 1 46 1 67 1 79 1 77 1 22 98 23 3 22 1 22 2 22 4 22 118 22 4 22 2 24 1 24 1 24 1 22 1 10 3 22 1 8 1 86 7 101 1 114 1 115 1 105 1 111 1 110 1 52 2 46 1 49 1 21 96 22 1 22 1 22 1 25 1 22 2 21 1 22 1 23 1 23 1 10 2 25 1 21 2 8 1 22 118 21 2 8 1 22 3 22 4 22 2 23 1 23 1 23 1 8 1 22 112 21 3 8 1 22 2 23 1 23 1 23 1 22 1 22 2 22 4 92 18 11 1 47 1 22 98 22 4 22 2 24 1 24 1 24 1 25 1 22 2 22 4 27 12 12 1 27 1 22 98 22 4 22 2 22 6 22 4 47 12 11 1 92 1 92 92 11 1 47 1 22 10 22 6 24 1 24 1 24 1 22 1 22 2 22 1 22 1 27 102 12 1 27 1 22 10 22 6 23 1 23 1 23 1 22 1 22 3 47 103 11 1 92 1 22 16 22 4 22 3 10 3 22 1 22 1 22 1 22 1 22 114 22 4 22 3 22 3 22 125 22 3 10 6 22 1 22 1 22 1 8 1 83 86 117 1 112 1 112 1 111 1 114 1 116 1 116 2 104 1 105 1 115 1 115 2 111 1 102 1 116 1 119 1 97 1 114 1 101 1 44 1 22 7 22 1 22 1 22 2 22 6 22 122 22 6 24 1 24 1 24 1 24 1 115 89 101 1 101 1 68 2 73 1 83 1 75 1 46 1 68 1 79 1 67 1 102 2 111 1 114 1 21 14 22 1 22 1 22 1 22 1 23 2 23 1 23 1 23 1 22 1 22 128 97 87 100 1 100 1 114 1 101 1 115 1 115 1 97 2 110 1 100 1 100 2 101 1 116 1 97 1 105 1 108 1 115 1 46 1 21 18 22 1 22 1 22 1 25 1 32 1  2 110 1 100 1 100 2 101 1 116 1 97 1 105 1 108 1 115 1 46 1 21 1 92 1 92 92 11 1 47 1 22 10 22 6 24 1 24 1 24 1 22 1 22 2 22 1 22 1 27 102 12 1 27 1 22 10 22 7 0 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 6 1 4 79 79 2 115 1 98 1 111 1 114 1 110 1 101 1 83 2 116 1 97 1 110 1 100 1 97 1 114 1 100 1 71 2 114 1 97 1 112 1 104 1 105 1 99 1 115 1 67 2 104 1 97 1 114 1 97 1 99 1 116 1 101 1 114 1 83 2 101 1 116 1 40 2 48 1 45 1 51 1 50 1 41 1 1 2 4 79 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 1 1 4 79 48 2 49 3 50 3 51 3 52 3 53 3 54 3 55 3 56 3 57 3 49 3 48 1 49 2 49 1 49 2 50 1 49 2 51 1 49 2 52 1 49 2 53 1 1 1 4 79 95 2 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 1 2 4 79 0 2 1 3 2 3 3 3 4 3 5 3 6 3 7 3 8 3 9 3 10 3 11 3 12 3 13 3 14 3 15 3 1 2 4 79 1 49 4 79 49 2 54 1 49 2 55 1 49 2 56 1 49 2 57 1 50 2 48 1 50 2 49 1 50 2 50 1 50 2 51 1 50 2 52 1 50 2 53 1 50 2 54 1 50 2 55 1 50 2 56 1 50 2 57 1 51 2 48 1 51 2 49 1 1 1 4 79 95 2 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 95 3 1 2 4 79 16 2 17 3 18 3 19 3 20 3 21 3 22 3 23 3 24 3 25 3 26 3 27 3 28 3 29 3 30 3 31 3 1 2 4 79 1 49 4 79 78 11 117 1 109 1 98 1 101 1 114 1 51 2 50 1 105 2 115 1 116 2 104 1 101 1 34 2 66 1 76 1 65 1 78 1 75 1 34 1 115 2 112 1 97 1 99 1 101 1 1 9 4 79 95 6 95 1 95 1 95 1 95 1 95 1 95 1 95 1 95 2 95 1 95 1 95 1 1 31 4 79 84 2 104 1 101 1 111 2 118 1 101 1 114 1 104 1 101 1 97 1 100 1 108 2 105 1 110 1 101 1 105 2 115 1 116 2 111 1 115 2 104 1 111 1 119 1 114 2 101 1 108 1 97 1 116 1 105 1 118 1 101 1 112 2 111 1 115 1 105 1 116 1 105 1 111 1 110 1 1 2 4 79 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 1 1 32 1  24 1 24 1 24 1 2 1 2 4 79 1 49 4 79 78 11 117 1 109 1 98 1 101 1 114 1 51 2 50 1 105 2 115 1 116 2 104 1 101 1600 |****************| GFX Main Menu |*****************| |All Menus ==> D=Directory On/Off Q=Quit | |--------------------------------------------------| |----- No File Menu -------|------- Edit Menu -----| | B=Big Letter Creation | A=Alpha-Graphics | | E=Load & Edit | E=Eraser | | M=Move & Edit | M=Merger | | P=Printer Menu | R=Reverser | | S=Slide-Show | S=Save | |**************************************************| | - Printer Command Menu - | |--------------------------------------------------| | B = Begin print-out | | F = Filename for print-out | | P = Position to begin print-out | | S = Size of print-out | |-----------------| Print Sizes |------------------| | 1=Normal 2=1/2 Wide 3=1/2 Tall 4=1/2 Wide & Tall | |****************| Disk Directory |****************| Command ? Filename Input Line Position Cursor to UPPER LEFT corner Position Cursor to LOWER RIGHT corner (A,G,M) Alpha, Graphics, or Move-cursor ? (0-32) Input Graphic Number ** Error, File NOT found - Please check directory ** |################| Current Status |################| Print Size = Filename = Print Size (1-4) ? Position Cursor to BEGINNING line |********** Press ANY KEY to stop print ***********| |*********** Saving File - Please Wait ************| |==================================================| |****** Press ANY KEY to stop the Slide-Show ******| Position = 0,4,14,18,1,6,5,17,21,9,25,11,12,13,2,15,16,7,3,19,26,8,32,24,23,10,20,27,28,29,30,31,22 20,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 23,3,1,8,1,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 22,2,2,1,9,1,9,1,9,0,0,0,0,0,0,0,0,0,0,0 21,2,1,2,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 21,2,1,6,1,6,4,0,0,0,0,0,0,0,0,0,0,0,0,0 21,2,1,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 21,2,1,6,2,4,1,6,2,4,0,0,0,0,0,0,0,0,0,0 27,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 25,1,1,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 33,4,1,2,4,11,0,0,0,0,0,0,0,0,0,0,2,4,1,0 21,2,1,12,1,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0 23,3,1,8,1,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 127,127,65,65,127,127 127,127,127,0,0,0 15,15,15,120,120,120 15,15,15,127,127,127 0,0,0,127,127,127 120,120,120,127,127,127 15,15,15,0,0,0 0,0,0,15,15,15 127,63,31,15,7,3 0,0,63,63,56,56 3,7,15,31,63,127 0,0,127,127,0,0 28,28,127,127,28,28 0,28,62,62,28,0 120,120,120,15,15,15 28,28,31,31,28,28 56,56,63,63,0,0 127,127,127,120,120,120 120,120,120,0,0,0 0,0,0,0,0,0 0,0,0,120,120,120 96,112,120,124,126,127 127,127,127,127,127,127 120,120,120,120,120,120 15,15,15,15,15,15 127,126,124,120,112,96 127,127,127,15,15,15 28,28,28,28,28,28 0,0,126,126,30,30 0,0,0,0,0,0 30,30,126,126,30,30 30,30,126,126,0,0 0,0,0,0,0,0 2,27,64 4,27,65,7,4 4,27,76,192,3 960,80 0,1,0,23,1 0,1,23,0,-1 0,2,0,51,1 0,2,51,0,-1 26,2,26,0,-1 26,2,0,26,1 12,1,12,0,-1 12,1,0,12,1 26,2,26,0,-1 GFX1,0,7 GFX2,0,6 GFX3,10,3 WELCOME,1,9 4,1,0 21,2,1,12,1,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0 23,3,1,8,1,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 127,127,65,65,127,127 127,127,127,0,0,0 15,15,15,120,120,120 15,15,15,127,127,127 0,0,0,127,127,127 120,120,120,127,127,127 15,15,15,0,0,0 0,0,0,15,15,15 127,63,31,15,7,3 0,0,63,63,56,56 3,7,15,31,63,127 0,0,127,127,0,0 28,28,127,127,28,28 0,28,62,62,28,0 120,120,120,15,15,15 28,28,31,31,28,28 56,56,63,63,0,0 127,127,127,120,120,120 120,120,120,0,0,0 0,0,0,0,0,0 0,0,0,120,120,120 96,112,120,124,126,127 127,127,127,127,127,127 120,120,120,120,120,120 15,15,15,15,15,15 127,126,124,120,112,96 127,127,127,15,15,15 28,28,28,28,28,28 0,0,126,126,30,30 0,0,0,0,0,0 30,30,126,126,30,30 30,30,126,126,0,0 0,0,0,0,0,0 2,27,64 4,27,65,7,4 4,27,76,192,3 960,80 0,1,0,23,1 0,1,23,0,-1 0,2,0,51,1 0,2,51,0,-1 26,2,26,0,-1 26,2,0,26,1 12,1,12,0,-1 12,1,0,12,1 26,2,2632323232323232323232323232323232323232323232323232323232323210228 32322222223232222222323221222532323232323232322232323224323224322 32322 323232323232323232323232323232323232323232322232223222222222223222322232322232223222222222223222322232222211222222321132322224112424232311232232321132222222112222320 32321132323211113232111132321111323211113232321132320 321023238 322232322232218 102532102222238 2232218 2221242422223224323232322 3232323232323232323232323232323232323232323232323210323232321 323232321 323232321 323232321 323232322132328 323232324 323232324 323232324 323232324 323232322532323232323232323232921147323227122732324711923232323232323232323232323232323232323232323222323232222222323232223232323232323232323232323232323232323232323232323232323224323232322 32323232323232323232323232323232323232222222222232323232323232323232323232323232323232323232323232323232323232323232322232323232323232321032323210253232102532321025323210253232322532323232222222222222323211222232111122221111322222113232222222222222321022323232322232323232223232323222323232322232323222222232222222228 32323232223232323222102222222522323232322222222222102222228 32323232223224242422322323232232323232222122222225223232322222323232222224242422232323232232323232223232323222222222228 2232323232223232323222222222223232323222222222222222323232322232323232222222228 223232322222323232222122222225222222222232323232223232323222323232322232323232223232323222102222228 2232323222222424242222232323222232323222212222222510222222222232323222223232322221222222223232323222323232322232323232323232323232323222323232323232323232223232323232323232323232323232323232322232323232323232323222323232322 3232323232323232323232473232324732323260323232323292323232323292323232323232323232323222222222223232323232222222222232323232323232323232329232323232329232323232326232323247323232473232323210228 32102532218 32323210253232102532323222323232322432322222222222223232322222326532222232242422223232323222222222223210228 32102532218 22323232222223232322223232322222323232222222222208223232322222242424252223232308223232322222222222251022222222223232323222323232322232323232223232323221222222222222228 32223232218 2232323222223232322222323210252222222532222222222222323232322224242432222323233222323232322222222222222222222222323232322224242432222323233222323232322232323232102222228 2232323232223232242422323223222232323222212222222522323232222232323222222424242222232323222232323222223232322222222222223232223232323222323232322232323232223232222222222232322222223232322232323232223232323222323222322232322222223222323210252232102532221025323222218 3232223221083222323221082232323232223232323222323232322232323232223232323222222222228 32323210228 32102222212225222232233222223232322222323232228 32323222228 32322222218 32222232218 2222323221222232323221102222228 22323232222232323222223232322222323232222122222225222323238 2232323222222424242522323232322232323232223232323222222222222232323222223232322222323221222232323222222222222222222222222232323222222424242222212223232232218 32223232218 102222228 223232323222242424242323232322323232322221222222252222222222323222323232322232323232223232323222323232322232322232323222223232322222323232222232323222223232322221222222252232323222223232322222323232222232323222218 321025322122253222323232222232323222223232322222322232222210228 2222253221228 32323210218 32102532212225323210228 32102532218 25323232212232323222210832102532212225323232223232323222323232322232322222222222323232102532321025323210253232102532323222222222223232323222222222220822323232222224242425222323230822323232228 32323232218 32323232218 32323232218 32323232218 3232323221222222222222222222082232322122223232322222323232222232321022323232323232108 32321025218 3225323221323232323232323232323232323232323232323232323232323232323232323232323232222222222222132222222232323222223232322222323221222232323222222222222222222222222232323222222424242222212223232232218 32223232218 102222228 22100 COMMON D$,F$ 110 DIM PR$(1000) 120 WIDTH 128 130 IF D$="" THEN 150 ELSE 140 140 IF MID$(D$,5,1)="A" THEN 340 ELSE 540 150 PRINT CHR$(26):PRINT"***************************************************" 160 PRINT"* Old Graphics/New GFX File Convertor *" 170 PRINT"***************************************************" 180 PRINT:INPUT"NEW/OLD (N/O) ";NO$ 190 IF NO$="N" OR NO$="O" THEN 200 ELSE 180 200 PRINT:INPUT"DRIVE TO READ FILES FROM ";P$ 210 IF P$="A" OR P$="B" THEN 220 ELSE 200 220 PRINT:INPUT"DRIVE TO WRITE CONVERTED FILES ";Q$ 230 IF Q$="A" OR Q$="B" THEN 240 ELSE 220 240 P$=P$+":":Q$=Q$+":" 250 PRINT"ENTER TO END CONVERSION PROGRAM" 260 PRINT:INPUT"FILENAME TO CONVERT ";F$ 270 PRINT CHR$(26):FOR B=1 TO 22:PRINT:NEXT B:POKE 61440!+(23*128),32 280 IF F$="" THEN 540 290 IF NO$="N" THEN 300 ELSE 550 300 G$=P$+F$+".BAS" 310 D$=Q$+P$+"A" 320 ON ERROR GOTO 530 330 CHAIN G$ 340 REM*****************WRITE PROGAM SECTION******** 350 Q$=MID$(D$,1,2):P$=MID$(D$,3,2) 360 RESTORE 510:F$=Q$+F$+".GFX" 370 FOR B=0 TO 60:O%=PEEK(62720!+B):POKE 64768!+B,O%:NEXT B 380 FOR B=0 TO 60:READ M:POKE 62720!+B,M:NEXT B:FOR B=1 TO TIMELIM*2:NEXT B 390 FOR B=0 TO 60:O%=PEEK(64768!+B):POKE 62720!+B,O%:NEXT B 400 REM **********SAVE PROGRAM TO DISK*********** 410 OPEN "O",#1,F$ 420 T=0:Z=0:N1=0:N3=0 430 FOR N1=0 TO 3072 440 Z=N1+61440!:T=PEEK(Z) 450 IF T<>32 THEN 460 ELSE 470 460 PRINT#1,T;N3;:POKE Z,127:N3=1:GOTO 480 470 N3=N3+1 480 NEXT N1 490 PRINT #1,32;32 500 CLOSE:C$="":PRINT CHR$(26):GOTO 250 510 DATA 32,32,32,32,32,32,32,32,32,32,32,83,65,86,73,78,71,32,70,73,76,69,32,95,32,80,76,69,65,83,69,32,87,65,73,84 520 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 530 PRINT"SORRY, UNABLE TO OPEN FILE FOR CONVERSION." 540 END 550 ON ERROR GOTO 530 560 S1=61440! 570 GOSUB 600 580 GOSUB 620 590 GOTO 680 600 REM * 2-clear screen routine ********************************************** 610 PRINT CHR$(26)CHR$(11)CHR$(11):POKE 64384!,32:RETURN 620 REM * 4-fill screen routine *********************************************** 630 S2=0:T=0:ON ERROR GOTO 530 640 OPEN "I",#1,P$+F$+".GFX" 650 WHILE T<>32:INPUT #1,T,S2:IF S1+S2>=64512! THEN 670 ELSE 660 660 POKE S1+S2,T:S1=S1+S2:WEND 670 CLOSE:RETURN 680 REM*****************WRITE PROGAM SECTION******** 690 CU=1:LN=100:IC=10 700 FOR B=0 TO 60:O%=PEEK(62720!+B):POKE &H9200+B,O%:NEXT B 710 FOR B=0 TO 60:READ M:POKE 62720!+B,M:NEXT B 720 FOR B=0 TO 60:O%=PEEK(&H9200+B):POKE 62720!+B,O%:NEXT B 730 DATA 32,32,32,32,32,32,32,83,65,86,73,78,71,32,70,73,76,69,32,95,32,80,76,69,65,83,69,32,87,65,73,84 740 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 750 PR$(CU)=STR$(LN)+" PRINT CHR$(26)":CU=CU+1:LN=LN+IC 760 PR$(CU)=STR$(LN)+" WHILE A<>32:Z1=Z:READ Z,A:Z=Z1+Z:POKE Z+61440!,A:WEND 770 CU=CU+1:LN=LN+IC 780 N2=0 790 FOR N=0 TO 2944 STEP 128 800 FOR N1=N TO N+127 810 Z=N1+61440! 820 T%=PEEK(Z) 830 IF T%=32 THEN 910 840 POKE N1+61440!,127 850 Z%=N1-N2 860 Z$=MID$(STR$(Z%),2):T$=MID$(STR$(T%),2) 870 IF LEN(PR$)<50 THEN PR$=PR$+Z$+","+T$+",":GOTO 900 880 PR$(CU)=STR$(LN)+" DATA "+PR$+Z$+","+T$ 890 CU=CU+1:LN=LN+IC:PR$="" 900 N2=N1 910 NEXT N1 920 NEXT N 930 PR$(CU)=STR$(LN)+" DATA "+PR$+"32,32" 940 CU=CU+1:LN=LN+IC 950 PR$(CU)=STR$(LN)+" END" 960 REM **********SAVE PROGRAM TO DISK*********** 970 OPEN "O",#1,Q$+F$+".BAS" 980 FOR N=1 TO CU+1:PRINT#1,PR$(N):NEXT N 990 CLOSE #1:GOSUB 600 1000 GOTO 250 SK*********** 970 OPEN "O",#1,Q$+F$+".BAS" 9 32,32,32,32,32,32,32,83,65,86,73,78,71,32,70,73,76,69,32,95,32,80,76,69,65,83,69,32,87,65,73,84 740 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 750 PR$(CU)=STR$(LN)+" PRINT CHR$(26)":CU=CU+1:LN=LN+IC 760 PR$(CU)=STR$(LN)+" WHILE A<>32:Z1=Z:READ Z,A:Z=Z1+Z:POKE Z+61440!,A:WEND 770 CU=CU+1:LN=LN+IC 780 N2=0 790 FOR N=0 TO 2944 STEP 128 800 FOR N1=N TO N+127 810 Z=N1+61440! 820 T%=PEEK(Z) 830 IF T%=32 THEN 910 840 POKE N1+61440!,127 850 Z%=N1-N2 860 67 0 46 1 69 1 46 1 67 1 46 1 26 9 26 1 26 2 26 1 26 17 26 1 26 18 26 1 26 2 26 1 26 17 26 1 26 61 26 1 26 2 26 1 26 2 26 1 26 2 26 1 26 11 26 1 26 2 26 1 26 2 26 1 26 12 26 1 26 2 26 1 26 2 26 1 26 2 26 1 26 11 26 1 26 2 26 1 26 2 26 1 26 61 26 1 26 2 26 1 26 2 24 1 11 1 26 10 26 1 26 2 26 1 26 2 26 1 6 1 26 1 26 13 26 1 26 2 26 1 26 2 24 1 11 1 26 10 26 1 26 2 26 1 26 2 26 1 6 1 26 1 26 62 24 1 11 1 10 3 22 1 22 1 8 1 26 10 26 1 6 1 26 1 10 3 22 1 22 1 8 1 26 13 24 1 11 1 10 3 22 1 22 1 8 1 26 10 26 1 6 1 26 1 10 3 22 1 22 1 8 1 10 61 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 10 10 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 10 12 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 10 10 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 6 55 22 5 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 7 22 4 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 8 22 5 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 7 22 4 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 51 21 5 22 1 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 6 3 21 5 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 6 4 21 5 22 1 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 6 3 21 5 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 21 52 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 21 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 22 52 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 3 25 1 21 1 8 1 22 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 3 25 1 21 1 8 1 22 51 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 22 3 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 50 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25  1 25 1 25 3 10 3 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25 1 25 1 25 3 25 51 22 2 25 8 22 2 10 6 25 1 25 3 10 6 25 1 25 3 25 8 22 2 25 8 22 2 10 6 25 1 25 3 10 6 25 1 25 3 32 32 2 2 10 6 25 1 25 3 10 6 25 1 25 3 25 8 22 2 1 22 1 22 1 22 4 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 3 25 1 21 1 8 1 22 51 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 22 3 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 50 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25  67 0 46 1 69 1 46 1 67 1 46 1 24 283 24 1 24 1 24 1 24 1 13 1 10 122 22 1 22 1 22 1 25 1 10 123 22 1 22 1 22 1 22 1 8 1 10 116 8 1 6 1 22 5 13 1 22 1 22 1 13 1 22 1 10 107 8 1 22 8 22 1 1 1 22 5 23 1 23 1 23 1 23 1 22 1 10 106 10 1 13 1 8 1 22 7 22 1 21 6 22 1 22 1 22 1 22 1 25 1 10 105 10 1 10 1 8 1 8 1 8 1 22 6 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 100 10 1 13 1 10 1 8 1 2 1 8 1 8 1 21 5 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 98 10 1 14 1 10 1 10 1 8 1 8 1 13 1 8 1 8 1 10 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 96 10 1 13 1 10 1 10 1 10 1 8 1 8 1 8 1 2 1 8 1 8 1 22 6 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 94 10 1 10 1 10 1 2 1 10 1 10 1 8 1 13 1 8 1 8 1 8 1 8 1 8 1 22 5 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 1 22 1 22 1 8 1 10 92 13 1 10 1 10 1 10 1 10 1 10 1 10 1 8 1 8 1 8 1 8 1 13 1 8 1 8 1 8 1 21 4 0 6 0 1 25 6 21 2 22 1 22 1 22 99 22 1 21 12 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 5 8 1 22 98 22 1 21 13 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 7 22 1 22 1 22 1 8 1 22 109 22 1 22 1 22 3 22 1 22 1 10 8 22 1 22 1 22 1 22 1 22 1 22 1 8 1 22 106 22 1 22 1 22 3 22 1 22 1 10 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 22 105 22 1 22 1 22 3 22 1 22 1 22 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 105 22 1 22 1 22 3 22 1 22 1 22 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 105 22 1 22 1 22 3 22 1 22 1 22 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 23 105 23 1 23 1 23 3 23 1 23 1 21 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 105 22 1 22 1 22 3 22 1 22 1 21 8 22 1 22 1 22 1 22 1 22 1 22 1 25 1 32 32  1 22 1 25 1 22 105 22 1 22 1 22 3 22 1 22 1 21 8 22 1 1 22 1 22 1 22 1 22 1 25 1 21 5 8 1 22 98 22 1 21 13 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 7 22 1 22 1 22 1 8 1 22 109 22 1 22 1 22 3 22 1 22 1 10 8 22 1 22 1 22 1 22 1 22 1 22 1 8 1 22 106 22 1 22 1 22 3 22 1 22 1 10 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 22 105 22 1 22 1 22 3 22 1 22 1 22 7 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 105 22 1 98 0 121 1 74 2 101 1 114 1 114 1 121 1 83 2 99 1 104 1 111 1 108 1 108 1 101 1 47 15 8 1 47 126 22 2 8 1 1 105 8 1 8 1 47 17 22 3 22 1 8 1 10 15 1 89 8 1 8 1 8 1 47 15 10 3 1 1 10 16 22 1 1 89 8 1 8 1 8 1 8 1 47 13 10 3 22 1 1 1 10 15 22 1 22 1 10 88 1 1 47 16 10 3 22 1 22 1 1 1 92 1 10 13 22 1 22 1 22 1 10 87 22 1 1 1 47 15 10 3 22 1 22 1 22 1 1 1 0 1 10 12 22 1 22 1 22 1 22 1 10 86 22 1 22 1 1 1 47 14 10 3 22 1 22 1 22 1 22 1 1 1 0 1 10 11 22 1 22 1 22 1 22 1 22 1 10 85 22 1 22 1 22 1 1 1 47 13 10 3 22 1 22 1 22 1 22 1 22 1 1 1 0 1 10 10 22 1 22 1 22 1 22 1 22 1 22 1 92 1 10 83 22 1 22 1 22 1 22 1 1 1 47 12 10 3 22 1 22 1 22 1 22 1 22 1 22 1 1 1 0 1 10 9 22 1 22 1 22 1 22 1 22 1 22 1 22 1 0 1 10 82 22 1 22 1 22 1 22 1 22 1 1 1 47 11 10 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 1 1 0 1 11 16 0 1 10 81 22 1 22 1 22 1 22 1 22 1 22 1 1 1 47 10 10 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 1 1 0 1 11 16 0 1 1 88 47 9 1 13 0 1 11 16 0 1 1 88 47 8 1 14 0 1 10 13 22 1 22 1 22 1 22 1 22 1 1 1 21 78 22 1 22 1 22 1 22 1 22 1 8 1 1 2 47 7 1 15 0 1 10 12 22 1 22 1 24 1 22 1 24 1 22 1 1 1 21 79 22 1 22 1 22 1 22 1 22 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 8 1 1 13 0 1 10 1 22 1 22 1 11 1 22 1 11 1 22 1 11 1 22 1 11 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 1 1 21 80 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 0 1 8 1 1 12 0 1 22 1 22 1 22 1 11 1 22 1 11 1 22 1 11 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 1 1 21 81 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 4 1 1 1 21 82 22 1 22 1 27 1 22 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 27 1 22 1 22 1 22 1 9 1 20 1 22 1 8 1 21 82 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 4 1 22 1 22 1 21 83 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 9 1 20 1 22 1 22 1 21 84 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 4 1 22 1 22 1 83 77 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 23 73 23 1 23 1 23 1 23 1 23 1 23 1 23  1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 32 32 3 1 23 1 23 1 23 1 23 1 2 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 4 1 22 1 22 1 83 77 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 83 1 23 73 23 1 23 1 23 1 23 1 23 1 23 1 23  67 0 46 1 69 1 46 1 67 1 46 1 26 178 26 1 26 2 26 1 26 17 26 1 26 18 26 1 26 2 26 1 26 17 26 1 8 11 26 50 26 1 26 2 26 1 26 2 26 1 26 2 26 1 26 11 26 1 26 2 26 1 26 2 26 1 26 12 26 1 26 2 26 1 26 2 26 1 26 2 26 1 26 11 26 1 26 2 26 1 26 2 26 1 22 10 8 1 26 50 26 1 26 2 26 1 26 2 24 1 11 1 26 10 26 1 26 2 26 1 26 2 26 1 6 1 26 1 26 13 26 1 26 2 26 1 26 2 24 1 11 1 26 10 26 1 26 2 26 1 26 2 26 1 6 1 26 1 21 10 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 10 22 1 22 1 22 1 22 1 22 1 8 1 26 18 24 1 11 1 10 3 22 1 22 1 8 1 26 10 26 1 6 1 26 1 10 3 22 1 22 1 8 1 26 13 24 1 11 1 10 3 22 1 22 1 8 1 26 10 26 1 6 1 26 1 10 3 22 1 22 1 8 1 21 10 22 1 8 1 21 15 8 1 10 8 25 1 21 5 22 1 8 1 10 17 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 10 10 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 10 12 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 10 10 22 1 22 1 8 1 22 2 22 1 22 1 22 1 13 1 21 10 22 1 8 1 21 15 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 7 22 1 8 1 6 11 22 5 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 7 22 4 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 8 22 5 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 6 7 22 4 22 1 22 1 22 1 13 1 21 1 22 1 22 1 25 1 21 12 22 1 8 1 21 30 22 1 6 6 21 5 22 1 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 6 3 21 5 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 6 4 21 5 22 1 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 6 3 21 5 22 1 22 1 22 1 21 1 22 1 22 1 25 1 22 1 22 1 22 1 22 1 21 14 22 1 8 1 22 30 22 3 8 1 21 2 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 21 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 22 14 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 3 22 1 22 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 3 25 1 21 1 8 1 22 3 22 1  22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 3 25 1 21 1 8 1 8 8 22 5 22 31 22 4 22 3 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 22 3 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 21 8 8 1 22 4 22 31 10 3 25 1 10 2 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25 1 25 1 25 3 10 3 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25 1 25 1 25 3 21 10 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1  22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 25 3 22 2 25 8 22 2 10 6 25 1 25 3 10 6 25 1 25 3 25 8 22 2 25 8 22 2 10 6 25 1 25 3 10 6 25 1 25 3 32 32 2 2 10 6 25 1 25 3 10 6 25 1 25 3 25 1 10 2 25 1 22 3 22 1 10 3 25 1 22 1 22 4 22 1 10 3 25 1 22 1 10 3 25 1 21 1 8 1 10 1 25 1 10 2 25 1 10 2 25 1 21 1 8 1 10 1 25 1 10 2 25 1 21 8 8 1 22 4 22 31 10 3 25 1 10 2 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25 1 25 1 25 3 10 3 25 1 22 1 25 3 22 2 10 3 25 1 22 1 25 3 22 2 10 2 25 1 10 2 25 1 25 1 25 3 10 2 25 1 10 2 25 1 25 1 25 3 21 10 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1  10 2 22 1 8 1 10 5 22 1 22 1 22 1 8 1 22 3 22 4 22 3 23 1 23 1 23 1 8 1 22 3 22 1 22 1 22 1 22 1 22 3 22 1 22 1 22 1 22 1 10 3 22 1 8 1 22 84 22 1 22 1 22 5 22 7 22 4 22 3 22 4 22 3 22 7 22 4 22 3 22 1 22 1 22 84 22 1 22 1 22 5 24 1 24 1 24 1 24 1 22 3 22 4 22 3 24 1 24 1 24 1 25 1 22 3 24 1 24 1 24 1 22 4 24 1 24 1 24 1 22 1 22 3 22 1 22 1 21 84 22 1 25 1 23 5 23 1 23 1 23 1 22 1 22 3 22 4 22 3 22 7 23 1 23 1 23 1 22 4 21 1 22 1 23 1 23 1 21 3 22 1 25 1 22 95 22 3 22 4 22 3 22 7 22 7 21 2 8 1 22 91 21 6 22 1 22 1 22 1 25 1 21 3 22 1 22 1 22 1 25 1 22 3 22 7 22 1 22 1 22 1 22 1 22 3 21 3 8 1 22 4 22 599 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 8 1 10 9 22 1 22 88 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 8 1 10 7 22 1 22 1 22 88 22 1 22 1 22 13 22 1 22 1 21 12 22 1 22 1 8 1 10 5 22 1 22 1 25 1 22 88 22 1 22 1 22 13 22 1 22 1 21 13 22 1 22 1 8 1 10 3 22 1 22 1 25 1 22 89 22 1 22 1 22 13 22 1 22 1 21 14 22 1 22 1 8 1 10 1 22 1 22 1 25 1 22 90 22 1 22 1 22 13 22 1 22 1 21 15 22 1 22 1 22 1 22 1 25 1 22 91 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 9 22 1 22 1 22 1 22 92 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 10 8 22 1 22 1 22 1 22 1 8 1 22 91 22 1 22 1 22 7 22 1 22 1 22 4 22 1 22 1 10 14 22 1 22 1 25 1 21 1 22 1 22 1 8 1 22 90 22 1 22 1 22 7 22 1 22 1 22 4 22 1 22 1 10 13 22 1 22 1 25 1 21 3 22 1 22 1 8 1 22 89 22 1 22 1 22 7 22 1 22 1 22 4 22 1 22 1 10 12 22 1 22 1 25 1 21 5 22 1 22 1 8 1 22 88 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 12 22 1 25 1 21 7 22 1 22 1 22 88 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 12 25 1 21 9 22 1 32 1 2 1 22 1 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 9 22 1 22 1 22 1 22 92 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 4 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 10 8 22 1 22 1 22 1 22 1 8 1 22 91 22 1 22 1 22 7 22 1 22 1 22 4 22 1 22 1 10 14 22 1 22 1 2 8 2 1 2 127 2 127 2 1 2 126 2 1 2 127 2 1 22 126 22 1 22 1 2 77 21 49 22 1 25 1 24 2 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 2 58 10 48 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 6 9 57 9 4 27 1 27 1 27 1 27 1 16 1 13 39 22 1 1 1 18 1 22 1 22 1 22 1 22 1 22 1 22 1 24 1 24 1 24 1 24 1 24 1 24 1 22 1 22 1 5 2 24 4 10 6 22 1 22 1 22 1 22 1 8 1 11 46 11 4 6 2 6 2 11 1 21 40 1 1 1 1 22 1 22 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 24 1 22 1 22 1 22 1 5 1 22 1 22 1 22 1 24 1 10 3 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 2 22 1 22 1 23 1 23 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 2 22 1 23 1 23 1 23 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 23 1 23 1 22 1 22 1 22 2 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 23 1 23 1 22 37 22 1 22 1 22 1 22 1 22 10 22 1 22 1 5 1 22 1 22 1 22 1 22 1 22 3 22 1 22 1 13 1 22 1 1 1 27 1 22 1 13 1 22 1 22 1 22 2 22 1 22 1 24 1 23 1 22 1 22 1 10 1 11 2 8 2 22 1 22 1 13 1 22 1 22 1 22 1 22 2 22 1 22 1 11 1 22 1 22 1 22 1 11 3 22 3 22 1 20 1 23 1 22 1 22 1 22 2 22 1 22 1 22 2 22 1 22 1 22 2 22 1 22 1 22 1 22 1 22 2 22 1 13 2 22 37 22 1 22 1 22 1 22 1 22 1 22 1 22 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 20 1 22 1 22 1 22 1 22 1 22 1 22 2 22 1 22 1 13 1 22 1 1 1 22 1 22 1 13 1 22 1 22 1 22 2 22 1 22 1 24 1 24 1 22 1 22 1 21 1 11 2 25 2 22 1 22 1 22 1 22 1 22 1 22 1 22 2 22 1 20 1 31 1 22 1 22 1 22 1 11 3 22 3 22 1 20 1 23 1 22 1 22 1 22 2 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 13 1 11 1 21 34 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 1 22 1 22 1 22 1 24 1 24 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 35 22 1 22 1 22 1 22 1 22 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 22 1 10 1 22 1 8 1 22 1 10 1 22 1 8 1 22 1 22 4 22 1 22 1 23 1 23 1 22 1 22 1 22 1 23 1 23 4 22 1 22 1 22 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 22 1 22 1 22 1 23 1 23 4 22 1 22 1 22 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 23 1 22 1 22 1 22 1 23 1 23 4 23 1 22 1 22 1 22 1 23 1 23 1 23 1 23 1 23 1 23 1 22 1 22 1 22 1 23 1 23 1 13 39 30 1 13 1 21 11 22 1 25 1 21 2 22 1 25 1 13 5 30 1 13 1 13 3 30 1 13 1 13 6 30 1 13 1 13 9 30 1 13 1 13 6 30 1 13 1 13 9 30 1 13 1 13 7 30 1 13 1 13 7 30 1 13 1 11 37 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 98 798 121 1 74 2 101 1 114 1 114 1 121 1 83 2 99 1 104 1 111 1 108 1 108 1 101 1 32 32  11 1 98 798 121 1 74 2 101 1 1142 1 25 1 13 5 30 1 13 1 13 3 30 1 13 1 13 6 30 1 13 1 13 9 30 1 13 1 13 6 30 1 13 1 13 9 30 1 13 1 13 7 30 1 13 1 13 7 30 1 13 1 11 37 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 1 67 0 46 1 69 1 46 1 67 1 46 1 10 43 8 1 8 1 10 125 10 1 8 1 10 1 8 1 10 123 10 1 8 1 10 1 8 1 8 1 10 84 22 1 13 1 22 1 22 1 22 1 22 1 22 1 8 1 10 30 10 1 8 1 10 1 8 1 10 1 8 1 10 81 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 28 10 1 8 1 10 1 8 1 10 1 8 1 8 1 21 85 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 26 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 10 87 8 1 21 3 22 1 22 1 22 1 8 1 10 24 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 8 1 21 92 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 1 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 21 93 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 21 94 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 10 1 8 1 10 1 8 1 10 1 8 1 25 1 21 96 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 10 1 8 1 10 1 8 1 25 1 22 99 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 8 1 8 1 8 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 10 1 8 1 25 1 21 101 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 8 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 25 1 21 104 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 108 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 113 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 10 118 22 1 25 1 22 5 22 1 10 119 22 1 25 1 22 6 22 1 22 119 22 1 22 7 22 1 22 119 22 1 22 7 22 1 21 119 22 1 8 1 22 6 22 1 21 120 22 1 8 1 22 5 22 1 21 121 22 1 8 1 22 4 22 1 32 32 7 22 1 21 119 22 1 8 1 22 6 22 1 21 120 22 1 8 1 22 5 22 1 21 121 22 1 8 1 22 4 22 1 38 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 10 1 8 1 25 1 21 101 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 8 1 8 1 8 1 22 1 22 1 22 1 22 1 22 1 22 1 10 1 8 1 25 1 21 104 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 8 1 22 1 22 1 2 67 0 46 1 69 1 46 1 67 1 46 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 77 13 51 13 77 22 2 22 4 22 3 22 1 22 1 22 1 22 1 22 3 10 7 22 1 22 1 22 1 22 1 10 3 22 1 22 1 22 1 8 1 8 3 10 4 22 3 22 1 22 1 22 1 22 1 13 3 13 77 22 2 22 4 22 3 22 7 22 7 22 7 22 4 22 3 8 1 10 2 22 1 22 3 13 7 13 77 22 2 22 4 22 3 24 1 24 1 24 1 22 4 22 7 22 7 22 4 22 3 21 1 22 1 25 1 22 1 22 3 24 1 24 1 24 1 13 4 13 77 22 2 22 2 22 2 22 3 23 1 23 1 23 1 22 4 22 7 22 7 22 4 22 3 23 2 22 2 22 3 23 1 23 1 23 1 13 4 13 77 22 2 10 1 22 1 8 1 22 1 22 3 22 7 22 7 22 7 22 4 22 3 22 4 22 3 13 7 13 77 22 2 25 1 21 2 22 1 22 3 22 1 22 1 22 1 22 1 22 3 22 1 22 1 22 1 22 1 21 3 22 1 22 1 22 1 22 1 21 3 22 1 22 1 22 1 25 1 22 3 22 4 22 3 22 1 22 1 22 1 22 1 13 3 13 77 13 51 13 77 10 2 22 1 22 1 22 1 8 1 22 10 10 14 22 1 22 1 22 1 8 1 10 10 22 1 22 1 22 1 8 1 13 3 13 77 22 2 22 14 22 14 22 4 22 10 13 7 13 77 22 2 24 1 24 1 24 1 24 1 22 10 22 14 22 4 22 10 24 3 24 1 13 3 13 77 23 2 23 1 23 1 23 1 22 1 22 10 22 14 22 4 22 10 23 3 22 1 13 3 13 77 22 6 22 10 22 14 22 4 22 10 22 4 13 3 13 77 21 2 22 1 22 1 22 1 25 1 22 3 22 7 22 1 22 1 22 1 22 1 22 3 21 7 22 1 22 1 22 1 25 1 22 3 21 7 22 1 22 1 22 1 25 1 13 3 13 77 13 51 13 77 8 2 10 4 22 3 22 1 22 1 22 1 22 1 8 3 10 4 22 3 22 1 22 1 22 1 8 1 22 3 22 1 22 1 22 1 22 1 22 3 22 1 22 1 22 1 22 1 10 3 22 1 22 1 22 1 8 1 13 3 13 77 22 2 8 1 10 2 22 1 22 3 22 7 8 1 10 2 22 1 22 3 22 4 22 3 22 7 22 4 22 3 13 7 13 77 22 2 21 1 22 1 25 1 22 1 22 3 24 1 24 1 24 1 22 4 21 1 22 1 25 1 22 1 22 3 24 1 24 1 24 1 25 1 22 3 24 1 24 1 24 1 22 4 24 1 24 1 24 1 22 1 22 3 24 1 24 1 24 1 24 1 13 3 13 77 22 2 23 2 22 2 22 3 23 1 23 1 23 1 22 4 23 2 22 2 22 3 23 1 23 1 23 1 8 1 22 3 23 1 23 1 23 1 22 4 21 1 22 1 23 1 23 1 23 3 23 1 23 1 23 1 22 1 13 3 13 77 22 2 22 4 22 3 22 7 22 4 22 3 22 4 22 3 22 7 21 2 8 1 22 8 13 3 13 77 22 2 22 4 22 3 22 1 22 1 22 1 22 1 22 3 22 4 22 3 22 1 22 1 22 1 25 1 22 3 22 1 22 1 22 1 22 1 22 3 21 3 8 1 21 3 22 1 22 1 22 1 25 1 13 3 13 77 13 51 13 77 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 13 1 32 1 22 4 24 1 24 1 24 1 22 1 22 3 24 1 24 1 24 1 24 1 13 3 13 77 22 2 23 2 22 2 22 3 23 1 23 1 23 1 22 4 23 2 22 2 22 3 23 1 23 1 23 1 8 1 22 3 23 1 23 1 23 1 22 4 21 1 22 1 23 1 23 1 23 3 23 1 23 1 23 1 22 1 13 3 13 77 22 2 22 4 22 3 22 7 22 4 22 3 22 4 22 3 22 7 21 2 8 1 22 8 13 3 13 77 22 2 22 4 22 3 22 1 22 1 22 1 22 1 22 3 22 4 22 3 22 1 22 1 22 1 25 1 22 3 22 1 22 1 22 1 22 1 22 3 21 3 8 1 21 3 22 1 22 1 22 1 25 1 13 3 13 77 13 51 13 77 13 1 13 1 13 1  67 0 46 1 69 1 46 1 67 1 46 1 10 26 8 1 10 126 22 1 22 1 8 1 10 124 22 1 22 1 22 1 22 1 8 1 23 121 5 1 22 1 22 1 22 1 22 1 17 1 5 1 17 1 23 1 2 119 2 1 22 1 22 1 22 1 22 1 26 1 3 1 22 1 8 1 2 118 2 1 2 1 22 1 22 1 22 1 22 1 22 1 22 1 2 119 2 1 2 1 2 1 21 1 22 1 22 1 22 1 22 1 25 1 10 122 22 1 22 1 22 1 22 1 22 1 8 1 10 121 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 119 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 10 117 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 1 22 1 22 1 8 1 10 115 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 3 22 1 22 1 8 1 10 113 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 21 5 22 1 22 1 8 1 10 111 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 8 1 21 2 22 1 22 1 8 1 23 89 23 1 23 1 23 1 23 1 23 1 23 1 8 1 10 13 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 21 3 22 1 22 1 8 1 27 88 27 1 27 1 27 1 27 1 27 1 27 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 82 24 1 24 1 24 1 24 1 24 1 24 1 25 1 10 11 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 5 22 1 22 1 10 111 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 6 22 1 22 1 10 110 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 7 22 1 22 1 10 109 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 25 1 5 8 22 1 17 1 10 108 22 1 22 1 22 1 22 1 22 1 22 1 25 1 25 1 22 10 22 1 22 1 22 1 22 1 8 1 10 104 22 1 22 1 22 1 22 1 22 1 25 1 25 1 23 12 23 1 10 107 25 1 10 1 25 1 10 1 25 1 25 1 32 32 4 22 1 22 1 22 1 22 1 22 1 25 1 25 1 23 12 23 1 10 107 25 1 10 1 25 1 10 1 25 1 25 1 32 32 2 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 24 82 24 1 24 1 24 1 24 1 24 1 24 1 25 1 10 11 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 5 22 1 22 1 10 111 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 6 22 1 22 1 10 110 22 1 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 22 7 22 1 22 1 10 109 22 1 22 1 22 1 22 1 22 1 22 1 22 1 25 1 25 1 5 8 22 1 17 1 10 108 22 1 22 1 22 1 22 1 22 1 22 1 25 1 25 1 22 10 22 1 22 1 22 1 22 1 8 1 10 XSUB DDT AUTOST.COM M9000,9C01,0198 D0D98 S0D98 24 . G0000 SAVE 14 AUTONEW.COM GFX DOC23456789:;<=>?@AGFX DOCBCDEGFX1 GFX?FGHIJKLMGFX2 GFXNOGFX3 GFXPQRGFXDATA CECSTUVGFXTITLECECWXYZOLD/NEW BAS[\]^RIENDEERGFX_`abSANTA GFXcdeSHIP GFX#fghijSLIEGH GFX#klmnoSUPER GFXpqrTRAIN GFX$stuvwTURKEY GFXxyzWELCOME GFX{|}~WITCH GFXAUTOCHG $$$100 PRINT CHR$(26) 110 FOR X=1 TO 20:PRINT:NEXT X 120 INPUT"FILENAME FOR AUTOST.COM REPLACEMENT?";G$ 130 FOR X=1 TO 52:POKE 64127!+X,32:NEXT X 140 ON ERROR GOTO 330 150 OPEN "I",#1,G$+".GFX" 160 T=0:S2=0:S1=61440!:PRINT CHR$(26) 170 POKE 61440!+128,32 180 WHILE T<>32:INPUT #1,T,S2 190 POKE S1+S2,T:S1=S1+S2:WEND 200 CLOSE 210 GOTO 220 220 CLEAR 230 FOR I=1 TO 3073 240 H=PEEK (61439!+I) 250 IF H=32 THEN 300 ELSE 260 260 IF H>32 THEN 300 ELSE 270 270 IF H>64 THEN 280 ELSE 290 280 H=H+128:GOTO 300 290 H=H+96 300 POKE &H8FFF+I,H 310 NEXT I 320 POKE &H8FFF+I,&H24 330 SYSTEM H>64 THEN 280 ELSE 290 280 H=H+128:GOTOWITCH GFXAUTOCHG SUBAUTOREP $$$*.|g"UcPPgPjPW *U.E*U.>w*U.|w*Uw# xE SUB SETg$G$ $ jvvvh FOR THE OSBORNE AND EPSON W/GRAFTRAX v v xx vvvvh v wv v v v v vxxxv jvh uvvvy vuvww jy uh  v uh v v vwwwh v uh vwwwv v v \k/ v v vxxxy v v {l{ v v v v v /k\ \k/ v vxxxv vvv {l{ v vwwwv v /k\ v v v jvvvv v v v v  v v jvvvh vvv v v v vxxxx uvvvv wwwwv v BY C.E.COSTANTINOU VERSION 4.0 uvvvy  $$¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 7   > >  ͢| } @ >. *_}o| , 0 ë ^#V#!Y ))))o P q s#r#!V4 !V6# ,® >2Vñ m ͅ m ͅ m ͅ « Vʫ ! XN!~   v BY C.E.COSTANTINOU VERSION 4.0 uvvvy  67 0 46 1 69 1 46 1 67 1 46 1 8 5 10 3 8 20 10 3 10 95 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 10 6 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 25 88 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 25 6 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 21 95 22 1 22 1 25 1 21 20 22 1 22 1 25 1 18 103 20 1 18 22 20 1 8 359 10 3 8 20 10 3 10 95 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 10 6 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 25 88 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 25 6 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 21 95 22 1 22 1 25 1 21 20 22 1 22 1 25 1 18 103 20 1 18 22 20 1 8 359 10 3 8 20 10 3 10 95 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 10 6 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 25 88 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 25 6 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 21 95 22 1 22 1 25 1 21 20 22 1 22 1 25 1 18 103 20 1 18 22 20 1 8 359 10 3 8 20 10 3 10 95 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 10 6 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 25 88 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 25 6 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 32 32 5 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 32 32 1 22 1 8 1 25 88 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 25 6 25 1 25 1 25 1 25 1 25 1 21 1 22 1 22 1 22 1 22 1 25 1 21 1 21 1 21 1 21 1 21 1 21 1 21 95 22 1 22 1 25 1 21 20 22 1 22 1 25 1 18 103 20 1 18 22 20 1 8 359 10 3 8 20 10 3 10 95 22 1 22 1 22 1 22 1 22 1 8 1 22 1 5 1 17 1 22 1 10 1 22 1 22 1 22 1 22 1 22 1 8 1 100 DIM A(50),G$(50),E(50),V(10),W(10),X(10),Y(10),Z(10) 101 DIM D(1000),A$(50),Q(20,20),P3(4),P4(3,10) 102 DIR=1:F$="":WIDTH 128:WIDTH LPRINT 255 103 F$="":OPEN "I",#1,"GFXDATA.CEC" 104 INPUT #1,TIMELIM 105 FOR B=1 TO 37:LINE INPUT #1,A$(B):NEXT B 106 FOR B=0 TO 32:INPUT #1,D(B+32):NEXT B 107 FOR B=1 TO 12:FOR N=1 TO 20:INPUT #1,Q(B,N):NEXT N:NEXT B 108 FOR B=1 TO 198:INPUT #1,D(B+100):NEXT B 109 FOR B=1 TO 3:INPUT #1,P3(B):FOR N=1 TO P3(B):INPUT #1,P4(B,N):NEXT N:NEXT B 110 INPUT #1,P3(4),P3(5) 111 FOR B=1 TO 9:INPUT #1,V(B),W(B),X(B),Y(B),Z(B):NEXT B 112 H=0:N=0:M=0:S1=61440! 113 GOSUB 198 114 B=0:GOSUB 317 115 CLOSE:F$="":C$="" 116 REM * GFX seed ************************************************************ 117 T=0:S2=0:S1=61440!:Z=0:N1=0:N3=0:X0=0:X1=0:X2=0:E1=0:E2=0 118 P=1:Y0=0:Y1=95:C=0:C$="":J=60536!:B1=0:B2=0:D(6)=0:G=61440!:H=1:E=1 119 REM * menu & directory routine ********************************************* 120 PRINT CHR$(26):FOR B=H TO H+8:PRINT A$(B):NEXT B:PRINT A$(35) 121 IF DIR=1 THEN 122 ELSE 123 122 PRINT A$(19):WIDTH 54:FILES:WIDTH 128 123 IF H=1 THEN 124 ELSE 149 124 PRINT:PRINT:PRINT:GOTO 169 125 REM * NO FILE menu decision ************************************************ 126 H=1:ON E GOTO 127,139 127 E=2:E1=1:C1$=C$ 128 IF C$="Q" OR C$="q" THEN 363 ELSE 129 129 IF C$="B" OR C$="b" THEN H=3:GOTO 137 ELSE GOTO 130 130 IF C$="E" OR C$="e" THEN H=4:GOTO 137 ELSE GOTO 131 131 IF C$="M" OR C$="m" THEN H=7:GOTO 137 ELSE GOTO 132 132 IF C$="P" OR C$="p" THEN H=10:GOTO 120 ELSE GOTO 133 133 IF C$="S" OR C$="s" THEN H=11:E=1:GOTO 137 ELSE GOTO 134 134 IF C$="D" OR C$="d" THEN 135 ELSE 136 135 IF DIR=1 THEN DIR=0 ELSE DIR=1 136 C$="":GOTO 116 137 GOTO 169 138 REM * EDIT menu decision *************************************************** 139 E1=2:C1$=C$ 140 IF C$="Q" OR C$="q" THEN H=1:E=1:GOTO 116 ELSE GOTO 141 141 IF C$="A" OR C$="a" THEN H=9:GOTO 169 ELSE GOTO 142 142 IF C$="E" OR C$="e" THEN H=12:GOTO 169 ELSE GOTO 143 143 IF C$="M" OR C$="m" THEN H=5:GOTO 169 ELSE GOTO 144 144 IF C$="R" OR C$="r" THEN H=2:GOTO 169 ELSE GOTO 145 145 IF C$="S" OR C$="s" THEN H=6:E=1:GOTO 169 ELSE GOTO 146 146 IF C$="D" OR C$="d" THEN GOTO 147 ELSE 148 147 IF DIR=1 THEN DIR=0: ELSE DIR=0 148 C$="":H=1:GOTO 169 149 REM* PRINTER seed ********************************************************** 150 IF J1<61439! THEN J1=61439! 151 C$="":G=0:S1=61440! 152 REM * PRINT menu status **************************************************** 153 PRINT:PRINT A$(28):PRINT A$(37);INT((J1-61440!)/128)+2;A$(29);P;A$(30);F$:PRINT:PRINT 154 REM * PRINTER menu decision ************************************************ 155 N=20:M=1:GOSUB 176 156 IF C$="D" OR C$="d" THEN GOTO 157 ELSE GOTO 159 157 IF DIR=1 THEN DIR=0 ELSE DIR=1 158 GOTO 119 159 IF C$="F" OR C$="f" THEN N=21:M=2:GOSUB 176 ELSE GOTO 161 160 GOTO 119 161 IF C$="P" OR C$="p" THEN GOTO 162 ELSE GOTO 164 162 N=32:M=3:L=16:GOSUB 171 163 J1=(128*Y0)+61439!:S1=61440!:GOTO 119 164 IF C$="Q" OR C$="q" THEN C$="":GOTO 116 ELSE GOTO 165 165 IF C$="S" OR C$="s" THEN N=31:M=1:GOSUB 176 ELSE GOTO 167 166 P=VAL(C$):GOTO 119 167 IF C$="B" OR C$="b" THEN GOTO 168 ELSE C$="":GOTO 119 168 IF P<1 OR P>4 THEN GOTO 119 ELSE GOTO 169 169 REM * decision routine ***************************************************** 170 L=1:N=Q(H,L):L=2:M=Q(H,L):L=3 171 ON Q(H,L) GOSUB 176,198,200,202,211,218,223,251,261,353,281,313 172 L=L+1:IF Q(H,L)=0 THEN 173 ELSE 171 173 IF L>19 THEN GOTO 174 ELSE GOTO 175 174 RETURN 175 IF H=10 THEN 119 ELSE 126 176 REM * 1-prompt routine ***************************************************** 177 REM * VARIABLE 'M' IS INPUT CONTROL 'N' IS OUTPUT CONTROL ****************** 178 FOR B=0 TO 256:D(B+500)=PEEK (61439!+(22*128)+B):NEXT B 179 PRINT CHR$(11); 180 IF H=1 THEN 181 ELSE 183 181 IF E=2 THEN 182 ELSE 184 182 PRINT A$(N);" - (A,D,E,M,Q,R,S) ";:GOTO 185 183 IF H=10 OR H=9 OR M=4 THEN GOTO 184 ELSE PRINT "(";C1$;") ";:GOTO 184 184 PRINT A$(N); 185 ON M GOTO 190,193,188,186 186 PRINT:TIMELIM=INT(TIMELIM*5):GOSUB 200 187 TIMELIM=INT(TIMELIM/5):GOTO 196 188 PRINT:GOSUB 223 189 GOTO 196 190 C$=INKEY$ 191 IF LEN(C$)>1 THEN C$="" 192 IF C$="" OR C$=CHR$(10) OR C$=CHR$(11) THEN 190 ELSE PRINT C$:GOTO 195 193 INPUT C$ 194 IF N=21 THEN F$=C$:C$="" 195 GOSUB 201 196 PRINT CHR$(11)CHR$(27)CHR$(82):POKE 64256!,32 197 FOR B=0 TO 256:POKE 61439!+(22*128)+B,D(B+500):NEXT B:RETURN 198 REM * 2-clear screen routine ********************************************** 199 PRINT CHR$(26)CHR$(11)CHR$(11):POKE 64384!,32:RETURN 200 REM * 3-time routine ****************************************************** 201 FOR B=1 TO TIMELIM:NEXT B:RETURN 202 REM * 4-fill screen routine *********************************************** 203 S2=0:T=0:ON ERROR GOTO 211 204 OPEN "I",#1,F$+".GFX" 205 IF H=5 OR H=7 THEN 206 ELSE 208 206 IF N=23 THEN 207 ELSE 208 207 INPUT #1,T,S2:POKE S1,T 208 WHILE T<>32:INPUT #1,T,S2:IF S1+S2>=64512! THEN 210 ELSE 209 209 POKE S1+S2,T:S1=S1+S2:WEND 210 CLOSE:RETURN 211 REM * 5-error routine ***************************************************** 212 IF ERR=53 OR ERR=64 THEN 213 ELSE 363 213 RESUME 214 214 N=27:M=4:C$="":CLOSE:GOSUB 176 215 IF E1<3 THEN H=1 ELSE H=10 216 IF E1=1 THEN E=1 ELSE E=2 217 ON E1 GOTO 119,125 218 REM * 6-move design routine *********************************************** 219 IF N=23 THEN 221 ELSE 220 220 N=23:M=3:GOTO 222 221 S1=61440!+X0+(Y0*128) 222 RETURN 223 REM * 7-position/alpha/graphics routine *********************************** 224 IF H=9 THEN 225 ELSE 233 225 IF C$="A" OR C$="a" THEN E2=1:X=32:GOTO 237 ELSE GOTO 226 226 IF C$="G" OR C$="g" THEN E2=2:N=26:M=2:GOSUB 176 ELSE GOTO 228 227 IF VAL(C$)>32 THEN E2=1:C=27:GOTO 229 ELSE X=VAL(C$):GOTO 237 228 IF C$="M" OR C$="m" THEN E2=3:GOTO 236 ELSE H=1:GOTO 249 229 ON E2 GOTO 231,232,230 230 IF C=27 THEN C$="":L=0:GOTO 169 ELSE GOTO 236 231 IF C=27 THEN C$="":L=0:GOTO 169 ELSE X=C:C$=CHR$(12):GOTO 241 232 IF C=27 THEN C$="G":GOTO 226 ELSE GOTO 237 233 IF H=9 THEN 234 ELSE 236 234 IF E2=3 THEN 236 E LSE 235 235 IF E2=1 THEN X=32:GOTO 237 ELSE GOTO 237 236 X=PEEK(X0+(Y0*128)+61440!) 237 C$="":X1=X:Y1=95 238 C$=INKEY$:X2=X2+1:IF X2>=TIMELIM/20 THEN 239 ELSE 240 239 SWAP X1,Y1:POKE X0+(Y0*128)+61440!,X1:X2=0 240 IF C$="" THEN 238 ELSE 241 241 POKE X0+(Y0*128)+61440!,X 242 C=ASC(C$):IF C>12 OR C<8 THEN 249 ELSE 243 243 ON C-7 GOTO 247,248,245,244,246 244 IF Y0-1<0 THEN Y0=23:GOTO 233 ELSE Y0=Y0-1:GOTO 233 245 IF Y0+1>=24 THEN Y0=0:GOTO 233 ELSE Y0=Y0+1:GOTO 233 246 IF X0+1=128 THEN X0=0:GOTO 233 ELSE X0=X0+1:GOTO 233 247 IF X0-1<0 THEN X0=127:GOTO 233 ELSE X0=X0-1:GOTO 233 248 IF X0+8>=128 THEN X0=0:GOTO 233 ELSE X0=X0+8:GOTO 233 249 IF H=9 THEN 229 ELSE 250 250 RETURN 251 REM * 8-reverser routine ************************************************** 252 IF N=24 THEN 254 ELSE 253 253 G1=X0:G2=Y0*128:N=24:M=3:RETURN 254 G3=X0:G4=Y0*128 255 FOR Y=G+G2 TO G+G4 STEP 128 256 FOR X=G1 TO G3 257 G5=PEEK(Y+X):IF H=12 THEN G5=22:GOTO 259 ELSE 258 258 IF G5>32 THEN 260 ELSE 259 259 POKE (Y+X),D(G5+32) 260 NEXT X:NEXT Y:RETURN 261 REM * 9-letters routine *************************************************** 262 IF J=60536! THEN 263 ELSE 265 263 OPEN "R",#1,"GFXTITLE.CEC",2 264 FIELD #1,2 AS LOT1$ 265 J=J+896!:D(3)=J 266 IF C$="" THEN 278 ELSE 267 267 FOR B1=0 TO 25 STEP 5 268 FOR B2=1 TO LEN(C$) 269 D(3)=D(3)+1:Z$=MID$(C$,B2,1) 270 IF ASC(Z$)<32 OR ASC(Z$)=96 THEN Z$=" " 271 IF (ASC(Z$))>96 THEN UPPER=64 ELSE UPPER=32 272 D(4)=((ASC(Z$)-UPPER)*30+1):D(3)=D(3)+1 273 GET #1,B1+D(5)+D(4):D(6)=VAL(LOT1$):D(5)=D(5)+1 274 POKE D(3)+D(5)+((B1/5)*128)+(B2*5),D(6) 275 IF D(5)>4 THEN 276 ELSE 273 276 D(5)=0:NEXT B2 277 D(3)=J:NEXT B1 278 IF J=60536!+(3*896) THEN 279 ELSE 280 279 CLOSE 280 RETURN 281 REM * 10-printer routine ************************************************** 282 J=J1-128 283 FOR B=1 TO P3(2)-2:LPRINT CHR$(P4(2,B));:NEXT B 284 IF P>2 THEN 286 ELSE 285 285 LPRINT CHR$(P4(2,B)):GOTO 287 286 LPRINT CHR$(P4(2,B+1)) 287 FOR B=1 TO P3(3):LPRINT CHR$(P4(3,B));:NEXT B:GOTO 288  288 J=J+128:G=0:IF J>64256! THEN C$="A" ELSE C$="" 289 FOR Y=1 TO 128:I=PEEK(J+Y):IF I>32 THEN G=1:I=32 290 FOR B=1 TO 6:X=(I*6)+B+100:K=D(X) 291 IF P>2 THEN 293 ELSE 292 292 IF P=2 THEN 297 ELSE 296 293 IF K>64 THEN K=K-64 294 IF K>32 THEN K=K-32 295 IF P>3 THEN 297 ELSE 296 296 LPRINT CHR$(K); 297 LPRINT CHR$(K); 298 NEXT B:NEXT Y 299 IF P=1 OR P=3 THEN 300 ELSE 304 300 IF G=1 THEN 301 ELSE 305 301 GOSUB 311 302 FOR Y=1 TO P3(5):I=PEEK(J+Y):IF I<32 THEN I=32 303 LPRINT CHR$(I);:NEXT Y:LPRINT CHR$(13);:GOTO 305 304 FOR B=1 TO P3(4)-(128*6):LPRINT CHR$(0);:NEXT B 305 IF C$="A" THEN 309 306 C$=INKEY$:IF C$="" THEN 307 ELSE 309 307 GOSUB 311 308 GOTO 283 309 GOSUB 311 310 LPRINT CHR$(13);:Y0=0:X0=0:H=10:C$="":J1=0:J=0:RETURN 311 FOR B=1 TO P3(1):LPRINT CHR$(P4(1,B));:NEXT B:RETURN 313 REM * 11-SLIDE-SHOW routine *********************************************** 314 IF N=36 THEN 316 ELSE 315 315 N=36:M=4:B=0:F$=F$+".MFX":RETURN 316 F1$=F$:B=0:C$="":OPEN "I",#1,F$+".MFX" 317 B=B+1:INPUT #1,G$(B),A(B),E(B) 318 IF A(B)<1 THEN A(B)=1 319 IF E(B)<1 OR E(B)>10 THEN E(B)=1 320 IF EOF(1) THEN 321 ELSE 317 321 I=B:CLOSE:TIMELIM1=TIMELIM:C$="":S1=61440!:S6=S1:S7=61504!:GOSUB 198 322 S1=61440!:J=0:K=0:F$="" 323 FOR K=1 TO I:J=K-1:F$=G$(K) 324 IF F$="0" THEN F$=F1$:GOTO 326 325 C$="":S1=S6:GOSUB 202 326 IF K=1 THEN 334 327 TIMELIM=INT(TIMELIM*A(J)):GOSUB 200 328 C$=INKEY$:IF C$="" THEN 329 ELSE 335 329 S1=S7:TIMELIM=INT(TIMELIM/A(J)):GOSUB 336 330 IF F$=F1$ THEN 316 331 PRINT CHR$(27)+"S"+CHR$(32);CHR$(32+INT(S6-61440!)); 332 IF J=K THEN 334 333 IF K=I THEN J=K:SWAP S6,S7:GOTO 327 334 SWAP S6,S7:NEXT K 335 C$="":H=1:PRINT CHR$(27)+"S"+CHR$(32);CHR$(32);:RETURN 336 REM * erase screen/step routine ******************************************* 337 IF E(J)=1 THEN 347 ELSE 338 338 E(J)=E(J)-1:FOR U=X(E(J)) TO Y(E(J)) STEP Z(E(J)) 339 B=V(E(J))+U:ON W(E(J)) GOSUB 348,351 340 IF E(J)>4 THEN 341 ELSE 346 341 B=V(E(J))-U:ON W(E(J)) GOSUB 348,351 342 IF E(J)=9 THEN 343 ELSE 346 343 IF INT(U/2)=U/2 THEN 344 ELSE 346 344 B=11+(U/2):GOSUB 348 345 B=13-(U/2):GOSUB 348 346 NEXT U 347 RETURN 348 REM * delete line routine ************************************************ 349 W1=S1+B*128:IF W1<61440! THEN W1=61440! 350 FOR W2=W1 TO W1+52:POKE W2,32:NEXT W2:RETURN 351 REM * delete column routine ********************************************** 352 FOR W2=S1 TO S1+(23*128) STEP 128:POKE W2+B,32:NEXT W2:RETURN 353 REM * 12-save routine ***************************************************** 354 C$="":N=34:M=4:GOSUB 176 355 IF F$="" THEN 362 ELSE 356 356 ON ERROR GOTO 211 357 OPEN "O",#1,F$+".GFX" 358 FOR N1=0 TO 3072 359 Z=N1+61440!:T=PEEK(Z):IF T<>32 THEN 360 ELSE N3=N3+1:GOTO 361 360 PRINT#1,T;N3;:POKE Z,127:N3=1 361 NEXT N1:PRINT #1,32;1:CLOSE 362 RETURN 363 END UB 348,351 340 IF E(J)>4 THEN 341 ELSE 346 341 B=V(E(J))-U:ON W(E(J)) GOSUB 348,351 342 IF E(J)=9 THEN 343 ELSE 346 343 IF I!1pA x ^>hcmcpcc ^<[hcc ^  $g$AYAXAYAXAYAXAYAXA$G$Your Message Here$GFX3 GFXPQRGFXDATA CECSTUVGFXTITLECECWXYZOLD/NEW BAS[\]^RIENDEERGFX_`abSANTA GFXcdeSHIP GFX#fghijSLIEGH GFX#klmnoSUPER GFXpqrTRAIN GFX$stuvwTURKEY GFXxyzWELCOME GFX{|}~WITCH GFXAUTOCHG SUBAUTOREP BASAUTOST COMBATS GFXGFX BASWAL-LOGO $$$; LOGO.ASM ; ; Using Assembly Language Graphics Display ; to create a logo ; ; Robert E. Daniels, November 16, 1985 ; ;-------equates--------------------- tab equ 9 ; 9=09h=^I lf equ 10 ;10=0Ah=^J cr equ 13 ;13=0Dh=^M clear equ 26 ;26=1Ah=^Z escape equ 27 ;27=1Bh=^ESC graph equ 'g' nograph equ 'G' chrfun equ 2 ;CP/M function number 2 ;display ASCII character ;in register E on screen strfun equ 9 ;CP/M function number 9 ;send character string whose ;starting address is in DE register ;pair to screen bdos equ 5 ;----------------------------------- org 100h lxi sp,stack ;-------------------------- ;This whole section is ;borrowed from the big O ;logo part of the OCC ;AUTOST.ASM listing lxi d,grfmes; lxi b,272 ; <--this number is over: ldax d ; 255 + the number sui 65 ; of characters in stax d ; the string to be inx d ; displayed in the dcx b ; graphics mode mov a,b ; ora a ; jnz over ;-------------------------- lxi d,clear ;clear the screen call prchr mvi a,1 ;set counter for graphics line loop: lxi d,setup ;two line feeds and two tabs push a ;save counter to stack call prstr lxi d,grfon ;point to graphic ON call prstr lxi d,grfmes ;point to graphics message call prstr lxi d,grfoff ;point to graphics off call prstr lxi d,cr ;carriage return call prchr pop a ;recall counter from stack inr a ;add 1 to counter cpi 3 ;does counter = 3? jz done ;if so, go to warmboot push a ;save counter to stack lxi d,setup ;two line feeds and two tabs call prstr lxi d,abcmes ;point to alphabetic message call prstr lxi d,cr ;carriage return call prchr pop a ;recall counter from stack cpi 2 ;does counter = 2? jz loop ;if so, go to loop done: jmp 0 prchr: mvi c,chrfun jmp bdos prstr: mvi c,strfun jmp bdos setup: db lf,lf,tab,tab,'$' grfon: db escape,graph,'$' grfmes: db 'AYAXAYAXAYAXAYAXA$' grfoff: db escape,nograph,'$' abcmes: db 'Your Message Here$' ds 10h stack: end  d,grfon ;point to graphic ON call prstr lxi d,grfmes ;point to graphics message call prstr lxi d,grfoff ;point to graphics off call prstr lxi d,cr ;carriage return call prchr pop a ;recall counter from stack inr a ;add 1 to counter cpi 3 ;does counter = 3? jz done ;if so, go to warmboot push a ;save counter to stack lxi d,setup ;two line feeds and two tabs call prstr lxi d,abcmes ;point to alphabetic message call prstr lxi d,cr ;carriage return call prchr pop a ;recall counter from stack cpi 2 ;does counter = 2? jz loop ;if so, go to loop done: jmp 0 prchr: mvi c,chrfun jmp bdos prstr: 1 @w|||zʁ=Wxbb_w w|xA_w| w w!||| | ! $SCREEN GRAPHICS CHARACTER SET USING ASSEMBLY LANGUAGE$g$ $G$NOTES: ASCII 127 in NONgraphic mode produces  "a" in graphics mode produces 1 blank space "J" in graphics mode produces 3 blank spaces The character produced by \ appears to be a glitch$SUPER GFXpqrTRAIN GFX$stuvwTURKEY GFXxyzWELCOME GFX{|}~WITCH GFXAUTOCHG SUBAUTOREP BASAUTOST COMBATS GFXGFX BASWAL-LOGO COMAL-LOGO ASMALGRAPHS$$$"; ALGRAPHS.ASM ; ; ASSEMBLY LANGUAGE PROGRAM TO PRODUCE THE ; OSBORNE 1 SCREEN GRAPHICS CHARACTER SET ; ; Robert E. Daniels ; Raleigh Osborne Computer Club ; November 17, 1985 ; ;.......NOTE...................................... ; This is written for a 52 column screen. ; To adapt to an 80 column screen, change ; the two lines that read: mov d,10 ; to: mov d,13 ; ;-------equates----------------------------------- tab equ 9 ; 9=09h=^I lf equ 10 ;10=0Ah=^J cr equ 13 ;13=0Dh=^M clear equ 26 ;26=1Ah=^Z escape equ 27 ;27=1Bh=^ESC ; graph equ 'g' ;turn graphics mode ON nograph equ 'G' ;turn graphics mode off ; chrfun equ 2 ;CP/M function number 2 ;display ASCII character ;in register E on screen ; strfun equ 9 ;CP/M function number 9 ;send character string whose ;starting address is in DE register ;pair to screen ; wboot equ 0000h ;warm boot bdos equ 5 ;CP/M BDOS entry point ;------------------------------------------------- ; org 100h ; lxi sp,stack ; ;----set initial values of numeric variables------ ; ; mvi d,10 ;counter for number of characters left to ;be displayed (along with their equivalents ;in graphics) on the current screen line. ;Decremented to 0 and then reset to 10. ; mvi b,64 ;ASCII numeric value of current character. ;Starts at 1 less than starting character ;and is incremented by 1 from 65 through 97, ;stopping when b = 98. ; push d ;Store these two values push b ;to the stack ; lxi d,clear call prchr ;clear the screen lxi d,head call prstr ;DISPLAY THE HEADER TEXT lxi d,setup call prstr ;insert two cr's and two line feeds lxi d,setup call prstr ;insert two cr's and two line feeds loop: pop b ;Retrieve numeric value current character pop d ;Retrieve number of characters in line ; mov a,d ;Put number of characters left in current ;line in register A cpi 00 ;If this = 0, jz newl ;jump to "newline" subroutine ; dcr a ;Subtract 1 from number of characters left ;in the current line mov d,a ;Put this value in the accumulator push d ;Store this number to stack inr b ;Go on to the first/next character mov a,b ;Put this value in the accumulator push b ;Store numeric value of current character cpi 98 ;If this = 98 jz fnote ;jump to "footnote" and end mov e,a ;Put numeric value of current character ;in register E preparatory to BDOS call call prchr ;DISPLAY THE CURRENT CHARACTER lxi d,32 ;\ call prchr ;/ Add a blank space after it lxi d,grfon ;point to graphics ON command string call prstr ;Turn graphics mode ON pop b ;Retrieve numeric value current character mov a,b ;Put this value in the accumulator push b ;Save it again sui 65 ;Subract 65dec from this value mov e,a ;Put value of graphic equivalent ;in register E preparatory to BDOS call call prchr ;DISPLAY THE GRAPHIC EQUIVALENT lxi d,grfoff ;Point to graphics off call prstr ;Turn graphics mode off lxi d,32 ;\ call prchr ; \ lxi d,32 ; Add 2 blank spaces after it call prchr ;/ jmp loop ; fnote: lxi d,setup call prstr ;insert two cr's and two line feeds lxi d,setup call prstr ;insert two cr's and two line feeds lxi d,note call prstr ;DISPLAY THE TEXT OF THE FOOTNOTES ; done: jmp wboot ; prchr: mvi c,chrfun jmp bdos ; prstr: mvi c,strfun jmp bdos ; newl: ;subroutine to start a new line of display push d ;Store number of characters in current line push b ;Store numeric value of current character push psw ;Store Program Status Word ; lxi d,setup call prstr ;insert two cr's and two line feeds ; pop psw ;Retrieve Program Status Word pop b ;Retrieve numeric value of next character pop d ;Retrieve number of characters in line ;(just to get it out of the way) mvi d,10 ;Reset number of characters in new line push d ;Store number of characters in current line push b ;Store numeric value of current character ; jmp loop ;Jump to "loop" ; ;---directives to initialize storage areas in memory ; setup: db cr,lf,lf,'$' head: db 'SCREEN GRAPHICS CHARACTER SET USING ASSEMBLY LANGUAGE$' grfon: db escape,graph,'$' grfmes: db 8,9,10,'$' grfoff: db escape,nograph,'$' note: db 'NOTES:',13,10,10 db 'ASCII 127 in NONgraphic mode produces ',127,13,10 db '"a" in graphics mode produces 1 blank space',13,10 db '"J" in graphics mode produces 3 blank spaces',13,10 db 'The character produced by \ appears to be a glitch$' ds 10h stack: ;------------------------------------------------- end t two cr's and two line feeds ; pop psw ;Retrieve Program Status Word pop b ;Retrieve numeric value of next character pop d ;Retrieve number of characters in line ;(just to get it out of the way) mvi d,10 ;Reset number of characters in new line push d ;Store number of characters in current line push b ;Store numeric value of current character ; jmp loop ;Jump # This is the release date of the disk. SUPER GFX p TRAIN GFX sTURKEY GFX x WELCOME GFX { WITCH GFX  AUTOCHG SUB AUTOREP BAS AUTOST COM BATS GFX GFX BAS +AL-LOGO COM AL-LOGO ASM ALGRAPHSCOM ALGRAPHSASM SANTA .GFX 6E 49 2560 20 SHIP .GFX CC A1 4480 35 SLIEGH .GFX C8 CE 4480 35 SUPER .GFX 52 4B 2688 21 TRAIN .GFX C5 93 4608 36 TURKEY .GFX 35 95 2688 21 WELCOME .GFX 15 73 3456 27 WITCH .GFX 3E 6E 2304 18 AUTOCHG .SUB EC D6 128 1 AUTOREP .BAS 4A 9E 640 5 AUTOST .COM 18 86 3584 28 BATS .GFX A5 BE 2560 20 GFX  Fog Library Disk FOG-CPM.041 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Osborne 1 graphics programs. Filename Description -04-00 .86 This is the release date of the disk. -CPM041 .DOC This is the description of the disk contents. GFX .COM F364 31K [Graphics Editor 1 of 22] A total graphics editor for screen and/or printer. Complete with sample pictures, MBasic source code, and a program to convert picture files to MBasic format so that you can integrate your work into a program. For the Osborne 1 but can be modified for other systems. GFX .DOC E530 36K [Graphics Editor 2 of 22] GFX1 .GFX 0ED1 8K [Graphics Editor 3 of 22] GFX2 .GFX 8F99 2K [Graphics Editor 4 of 22] GFX3 .GFX 6ECD 3K [Graphics Editor 5 of 22] GFXDATA .CEC 399C 4K [Graphics Editor 6 of 22] GFXTITLE.CEC E3CA 4K [Graphics Editor 7 of 22] OLD/NEW .BAS 0298 4K [Graphics Editor 8 of 22] RIENDEER.GFX E442 4K [Graphics Editor 9 of 22] SANTA .GFX 6E49 3K [Graphics Editor 10 of 22] SHIP .GFX CCA1 5K [Graphics Editor 11 of 22] SLIEGH .GFX C8CE 5K [Graphics Editor 12 of 22] SUPER .GFX 524B 3K [Graphics Editor 13 of 22] TRAIN .GFX C593 5K [Graphics Editor 14 of 22] TURKEY .GFX 3595 3K [Graphics Editor 15 of 22] WELCOME .GFX 1573 4K [Graphics Editor 16 of 22] WITCH .GFX 3E6E 3K [Graphics Editor 17 of 22] AUTOCHG .SUB ECD6 1K [Graphics Editor 18 of 22] AUTOREP .BAS 4A9E 1K [Graphics Editor 19 of 22] AUTOST .COM 1886 4K [Graphics Editor 20 of 22] BATS .GFX A5BE 3K [Graphics Editor 21 of 22] GFX .BAS A237 11K [Graphics Editor 22 of 22] AL-LOGO .COM 9EAA 1K [AL-LOGO 1 of 2] Assembly language graphics routine which prints Osborne logo on the screen. Source is included so you can do your own logo AL-LOGO .ASM 01B6 3K [AL-LOGO 2 of 2]  ALGRAPHS.COM E02F 1K [ALGRAPHS 1 of 2] Assembler program to display the Osborne 1 graphics set on screen. Source is included. ALGRAPHS.ASM 285B 5K [ALGRAPHS 2 of 2] Graphics Editor 22 of 22] AL-LOGO .COM 9EAA 1K [AL-LOGO 1 of 2] Assembly language graphics routine which prints Osborne logo on the screen. Source is included so you can do your own logo AL-LOGO .ASM 01B6 3K [AL-LOGO 2 of 2] $%&'