@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} ri |||DDOS DOSDOS SYS }}}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED 454 FREE SECTORS COPYING---D2:TITL4}E.TWDD# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4 uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4 u`EiͩkΩ͙kCop)j`j0 {j`Hi͝ΝhV}`L"UNEM:D"NUR:"OeH";6#?:4,7 NOITISOP:81.RGCop)j`j0 {j`Hi͝ΝhJBC SLINLINLHWSESIZJCOUNMCHASPECSPEFILEFLINFLOUTBACK X} @ ##OBJ2STR 4/7/83 BY JE Y}RRY WHITEd A n= 6-%!B'g'(:( LINE NUMBER OVERFLOW.=x$0)@)@-6-% Z}$AV0$= A0BU5(:( NOT BINARY LOAD FORMAT=+ A06- A0#6-+6-&##(@ [} DIM ASM$()9-@@'%@!/6-&9 A6-@y6 A6(@ \} ASM$()=>:@4,-)@W"@4)"AU,68<,-%=68<@,-K6-% ]}@W6-@2>*@ '*@@4:*@AU> "A`#-&@ ^}# AVR(@ ASM$(8<,,8<,)=CHR$(8<@,)V $ A$(@ _} RETURNS@@2(>:@(,>:AV,A( I DID IT!SARE((NEW((6(ENTER `}>:@4,>:@4,9(<(E(LIST",-@@ %(>:@(,) ,,&((UNABLE TO OPEN & A@6& a}((UNABLE TO OPEN & A@C +C;@,;@,;@,9AV<@,EcAAD' b}A @9@@KA@W6-c6-@J@(,(! ԠŠϠàǠ@(b c}y Jerry WhiteT2(2('ˠŠĠƠԠĠY&(ԠŠ&6.D:^C37@<@, d}4:)7@<@,4:96.C Aph67B:,%@,.r5 A@5@@|*( e}(ԠŠ!*6.D:C37@<@,4:)7@<@,4:96.C A67B:,%@,. f}5 A@5@@J($(ǠŠ 310008-@@F(>:@0, g}J 8 A 6-P:,8 @)!B'A zAR@'@@9A@<(T( h}I'm working on it!^ A@pA@z A@I(F(ERROR F:A, AT LINE F:A,%AV$F:A i},I D:OBJ2STRLHWSESIZJCOUNMCHASPECSPEFILEFLINFLOUTBACK 31000 DIM FONT$(1024)31001 FONT$(1,80)="TU UW @@@@) ))%) UUuUuUU@` E@@"31Dk}002 FONT$(81,160)=" TUuU] @@@@TUwU @@@ TUUU V@@) ))!) "31003 FONT$(161,240)="Dl}UuUuUU@ **@@@@! ) +)()!%TUU]WU"31004 FONT$(241,320)="@@TDm}e@@@@(UUU@UWUU(Uii"31005 FONT$(321,400)="PP@@@eiii%*PPXXH UU**(Dn} PTUu_TPU  "31006 FONT$(401,480)="ZUU U]@PTTTUVVPPV%* UU` TDo}TPPP"31007 FONT$(481,560)="TU*UUU(Uii@@@@@%%!UUYiiifX @@@($TPP"3100Dp}8 FONT$(561,640)="UUuU @PPP@ZZVZZZY@PPPPP@*(* UU*UU@P TU ZZYZ|P@PPTT"31009 FONT$(641,720)="Z&Dq} UUTTP` `PP PTUu_TPUX(`h(("31010 FONT$(721,800)=" @PU]Dr}TTTPPUVVV%( @P@)(($PPPTUU="31011 FONT$(801,880)="UTTe  `&UU PPPP@Ds}*`PTPT UX("31012 FONT$(881,960)=" ((UVVV%( `*(($PPPP Dt}* T"31013 FONT$(961,1024)=""31014 FONT$(19,19)=CDu}HR$(34)31015 FONT$(142,142)=CHR$(34)31016 FONT$(211,211)=CHR$(34)31017 FONT$(421,421)=CHR$(34)31018 FONT$(728,728)=CHR$(3Dv}4)31019 RETURNNT$(142,142)=CHR$(34)31016 FONT$(211,211)=CHR$(34)31017 FONT$(421,421)=CHR$(34)31018 FONT$(728,728)=CHR$(3D32000 DIM SMP$(960)32001 SMP$(1,80)=" "32002Hx} SMP$(81,160)=" "32003 SMP$(161,240)="Hy}#$%-.45;<=&'(/067>?@EFG"32004 SMP$(241,320)=" !)*+1289ABCHIJHz} ,3:DK"32005 SMP$(321,400)="LMH{}STZ[ab"32006 SMP$(401,480)="NOUV\]cdPQWX^_efH|}"32007 SMP$(481,560)="RY`gh"32008 SMP$(56H}}1,640)=""32009 SMP$(641,720)="ilmH~}pqtjknorsuv"32010 SMP$(721,800)="H}"32011 SMP$(801,880)="H}"32012 SMP$(881,960)="H}"32013 SMP$(287,287)=CHR$(34)32014 RETURN"H,Q1!!!!!{q!Q!!!QAAQA$!1Q1}a!a!AQ1Taaa1Qa1q1xa"{!"!q11q1Q113""""B#!1"1!"1#2}"#!"!!!A21A12""!11!A!2"1"!1"1""21Ab!!!!!!1!11!3#!!!A!B11Q1!"!Q$""21"1!"A!!B""!!!12!B"!!A!A"}!DB4!!QB1B#"C2#$BA!!"2!A1RB!"1Q"B!Q#"A"22R23333#2#A2#4#cCB333333A3S$R$233AD1C333BD3TBD2D"V1#3D$d342D#C}3CC2T3C2D2EQT2TQCC3BDBC4"EBCC3C33$3TC4C3C4BD2EBDC4C42DVa&EATUBCS443BCE3CC462B2FAqc%2ECC5$sF#S/cF3CCE&$sU3RR68F2cBE}%F3SBE'#G"s%V#s5U3cBE$4e$RCDD4#E3RCD%CU$R3D4'!V$bT6+\&&\%1 EA T2TCeB-1A*$"A3"(12,#"222)3c"a32}#2283##233#"1#D2##"42221d#5B3261#$$3###3d4$323C%#2#4#$###323C333333#$2#3433$AC34233D3St$3C3F4CC3C343433336R34TcC3"3}CDET"$433D55B454$Q3%C#D#D#34344#24SE#CBD$DDDeCD43H45YE44R7c5t5#SREGd5%3CC6qS$45CRJee%$SS7C%S4D$aD$T%43bsT5ERShb4U4E}CDYT5T56Bbhd4d56RVC!Dd5ECBjEET5DSCECUd4ECST$TEU%ECDE%DUT5ECSKSUU&DSWSVT5TCcKCVU&ECSKTEd5ECS[auU5TBdKaud5TCS[SVd5TCdEd5TCa}kUEd5U$bEd6D3duc'S%S\UbFT4abFSF2G"qC6bF3T2{qd6RV%3%S7$SIQf$Cc**"իիի8 <|@~<@<<<<<<8 f0h?@EFG !)}*+1289ABCHIJ",3:DKLMST}Z[abNOUV\]cdPQWX^_efRY`g}h}ilmpqtjknorsuv}}U}}TTTTTUUU}TU!U"U"""@u@w@U@)@U@U@U@ U}U@ U@W@ ]@"@W@+W@@@@@@)@ V }( U@U@U@@U@)U@))))*! U U U U*U%U})u)u)u)uuu)U)U)U)UU@U%u`!u !u !u u@u })U)U)U)UU@U U U U UUU }}@@@@@@E@}E@E@E@E@E@}P@TP "UUT}TU@u]TU_T*TUPTPU@}UWP@U@UPPU@U@U@UUP}]@((uPWUUUUPUi@Vi@U@}i@Vi@ TePVY@@iP `i@ZP}iX Z%%i@ZP@iX*%iVP@H !fZP}@% XZP@*U UUUZ@eUUUU Y}*T*T*((P((}P$*P TU}PUUPU}}}}@PPT* P@}UTTPUU "UU|UUT=UP}u]TT _T@TPTZP}ZPPPYTeZT}ZTUUTV&PV} `V `@ X%&}U((P UU` @ Uh) }`(( P((P$}P}P}}}}P@TU@TPU} "*UPUUTU@WPu]T@}U_TU@U@TPU((}UPPUi@i@i@i@}ePUUY@iPVi@iPVi@iP}Vi@ `f%X%X*((}  * * P((}T((*`$ PP}TPPPT}}}}}}}}}}}}}}}} E;TDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}@@@}@PTTTTT@UUU}TU!U@"U"""@@u@w@U@)@@U@U@U@ U}U@ U@@W@ ]@"@W@+W@@@@@@@)@@ V }( PU@U@U@@U@)U@@))))*!@ U U U U*U%U@ })u)u)u)uuu@)U)U)U)UU@U@%u`!u !u !u u@u  }@)U)U)U)UU@U@ U U U UUUP @ }@@@ }@@@@@@@@@E@ }E@E@E@E@E@P@@}P@@TP@ "@UUT}T@U@u]TU@_T*PTUPTPU@}@UWP@U@@UPPU@@U@U@UUP}@]@((uP@WUUUUP@Ui@Vi@U@@}i@Vi@ PTePVY@@@iP `i@ZP}@iX Z%%i@ZP@@iX*%iVP@@H !fZP@}@% XZP@@*U UUUZ@@eUUUU YP}*T@*T*@((P((@}P$*@P @T@U}PU@UPUTDDDwwwwwwwwwwwwwwwwwwwwwwwwu@@@@@@@@@@@@@@@@@@@@@@@@@@}@@@@@@@@}@@}P@@@}@P@PT@* P@@}UTTPU@U "UPU|UUT=U@P}u]TT@ _T@@TPT@ZP}@ZPPP@YTe@ZT}PZTUU@TV@&PV }@ `V `@@@ X%&!}@U((P U@U` @ UPh) @"}`(( @P((@P$#}@@@P@$}PWwwwDDwwwwwwwwwwwwwwwwwwwwwwu@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%}@@@&}@@P'}@@@(}@@P@T@U@TPU@)} "*PUPUUTU@@WPu]T@*}@U_TU@@U@TPU@((@+}UPPU@i@i@@i@i@P,}ePUUY@@iPVi@@iPVi@@iP-}Vi@@ `f@%X%X@*((.} @ P* * @P((/}@T((*@`$ @PP0}@TP@P@PT1}TDDDDDDDDDDDDDDDDDDDDDDDDDDDE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2}3}4}5}6}7}8}9}:};}<}=}>}?}@} E@@@@@@@@@@@@@;0100 ;STR2SMEM.SRC 1/3/830110 ;STRING TO SCREEN MEMORY0120 ;BY JERRY WHITE0130 ;0140 ;RELOCATABLE SUBROUTINE0150 ;TO BE !B}CALLED FROM BASIC USR AS0160 ;JW=USR(ADR(DIS$),ADR(STR$),SM)0170 ;STORED AS BASIC STRING DIS$.0180 ;0190 ;USR REQUIRES 2 !C}PARAMETERS:0200 ;ADR OF DISPLAY STRING0210 ;AND STARTING ADR IN SCREEN MEM.0220 ;0230 ;AS WRITTEN THIS ROUTINE WILL0240 !D};DISPLAY A STRING IN A 5 BY 50250 ;BLOCK ON THE SCREEN.0260 ;(SEE ANIMATE ROBOT DEMO)0270 ;0280 ;THIS ROUTINE ASSUMES A 4!E}0 COL.0290 ;MODE (ANTIC 2 OR 4).0300 ;0310 .OPT NOEJECT0320 *=$6000330 STRLO=$CB ;STRING LO BYTE0340 STRHI=$CC ;STR!F}ING HI BYTE0350 SMLO=$CD ;SCREEN ADR LO0360 SMHI=$CE ;SCREEN ADR HI0370 COUNT=$D4 ;HOR. LINES TO DISP.0380 ;0390 P!G}LA ;# OF PARAMS MUST BE 20400 LDA #5 ;HOR LINES TO DISP.0410 STA COUNT0420 PLA ;PULL0430 STA STRHI0440 PLA ;PAR!H}AMETERS0450 STA STRLO0460 PLA ;SENT BY0470 STA SMHI0480 PLA ;BASIC USR0490 STA SMLO0500 LDY #00510 LOOP1 LDX #!I}5 ;BYTES PER LINE0520 LOOP2 LDA (STRLO),Y ;GET BYTE FROM STR.0530 STA (SMLO),Y ;DISPLAY IT0540 INY ;INC STR. POINTER!J}0550 DEX ;DEC. BYTE COUNTER0560 CPX #0 ;END OF THIS LINE?0570 BNE LOOP2 ;NOT YET0580 DEC COUNT ;DEC. LINE COUNTER!K}0590 LDA COUNT ;ARE WE FINISHED?0600 BEQ EXIT ;IF 0 THEN YES0610 LDA SMLO ;CURRENT SMEM POS.0620 CLC0630 ADC #35 !L} ;5+35=BEG. NEXT LINE0640 STA SMLO ;STORE NEW POS.0650 BCC NOCARY ;BYPASS HI INC0660 INC SMHI ;IF NECESSARY0670 NOC!M}ARY CLC ;FORCE BRANCH0680 BCC LOOP1 ;NEXT LINE0690 EXIT RTS ;BACK TO BASIC ;0140 ;RELOCATABLE SUBROUTINE0150 ;TO BE Q DMCCSAKEPFONTMCJBrf Az@@@@AU %O}  WX B @22ANIMATE MENU 1/27/83 (c) 1983 by Jerry White e +AY1%P}@@dCB7tAe2 _-6-F:A`,%F:Aa,$AV%@E-%@%Q}%@#Q@U _ B]#;@ ,9A(<@,@68@2<,-]68@2<@,-%R}C-@H@W".68<,-?68<@,-C (_-@e@".68<,-?68<%S}@,-C UAY@4_ @P-TB7aAh&-@B:,46-@:7<,,HB7`$@TB7h%T}.?&(>:8<,,>:8<@,,* <B7aA`?$22-@@(6. ANIMATE MENU2 @E7/-@%U}@%6. 1 ANIMATE/ @E<.-@@$6.2 S2FONT. @EA0-@@&6. 3 DISPDISK0 @E%V}F0-@@&6. 4 FONT2STR0 @EK/-@@%6. 5 SMP2STR/ @EL/-@@%6.%W} 6 DISPSTR/ @EM/-@@%6. 7 SCR2STR/ @EN+-@@!6.8 DOS+ @EP2-@%X}@ (6. ENTER CHOICE2 @EUe-@@!%6. BY NUMBER/ @EAASA@deA%Y}dAUW\B7aAh'AATD-AT@6@PB7`\AX0 -@@%Z}6@,B7h0 YQA AF& -B7aA`?A @tQA@(Z&6-F:Ad%[},&"AU@[;AdAU!"@116. D:ANIMATE; A\("@06.D:S2FONT( A]*%\}"@& 6. D:DISPDISK* A^*"@$ 6. D:FONT2STR* A_)"@)6. D:SMP2STR) A`)%]}"@'6. D:DISPSTR) Aa)"@Q6. D:SCR2STR) Ab"@S.c -@6?P%^}<2A@@ RAdA@dvAdAU @dAA33,34,35,36,37,38,39,%_}40,41,42,43,44,45,46,47,48,49,50,51,52n5553,54,55,50,33,56,57,58,55,59,60,61,33,62,63,64xAA65,66,67,68,69,70,71,72,73,7%`}4,75,76,33,34,77,78,33,79,77,805551,46,81,82,71,83,84,85,86,87,88,89,90,91,92,93o A (}"6.LOADING D67B:%a},%@,.7@JWROBOT1MPDb>JWROBOT2MPDb ASTR2SMEMSRCbNMENU bAtANIMATE bDISPDISK bFONT2STR bSMP2STR b!DISPSTR bk S2FONT bCaSCR2STR B jTESTFNT STRB wTESTSMP STR WTESTFNT STRePEGGYA STR67A<A,.(*TP%yn;@,n6.WhQhhhhhh稱eeeee%r}eΥ`&y_$6-+F:A,&@,$AV?6-?:C:,Nb;@u,b6.K ! #$%&'()*+,-./0123?N##67@<)}@,.>:@4,HNb;@u,b6.K ! LMNOPQRSTUVWXYIN##67)}@<@,.>:@4,RNb;@u,b6.KEFGHIJK;<=>?@ABCD456789:)}\Nb;@u,b6.KEFGHIJKabcdefgZ[\]^_`fNb;@u,b6.K)} ! #$%&'()*ijkSTUVlmnogN##67@#<@#,.>:@4,pNb;@u,b6)}.KEFGHIJK;<=>?@tBCuvZ[\]pqrs`mjm SETUP ANTIC MODE 4 DISPLAYtmLIS)}T ASM SUBROUTINE.~mHqdd6-?:C:ThS: `  V`& V0˭1̩Dˠ`,,R)}q\qSET COLORSfqqcA@'A A9A@4KAADWAc6-B)}qqSMEM=SCREEN MEMORY ADRqr2;@R,26-F:@,%AV$F:@,trSTRING TO SCREEN SUB.~r>>6.)}4hhhhh͠ˑԥi#͐`rrALTER CHR$(#)rIN LINES 29410 & 29510rTO CHANGE # )}OF LINESrTO BE DISPLAYED.rrALTER CHR$(#)rIN LINE 29610rTO CHANGE # OF BYTES PERrLINE TO BE DISP)}LAYED.rrHOR. LINES TO DISPLAYr##67@<@,.>:@,r:@5,Pss# OF BYTES PER LINEs##67@!<@!,.>:@,sttLOCATION 756=POINTER )}TOtCHARACTER SET IN PAGES.tLOCATION 106=RAMTOP.tOUR CHARACTER SET ISt8 PAGES BELOW RAMTOP.u0u# A)}VF:A,&@#$xxTIME DELAY SUBROUTINE.x1 JIFFY=1/60 OF A SECOND.x""LOCATION 540=COUNTDOWN TIMER)}xYOU WILL EXIT THIS (WAIT)xSUBROUTINE WHEN LOCATIONx540 CONTAINS A ZERO.xWAIT=31000yyA@)}yF:A@,By$||!!DEFINE & MOVE CHARACTER SET|} +AY ;A$,}ZZ6.P)}TU UW @@@@) ))%) UUuUuUU@` E@@}kk67@<A`,.P TUuU] @@@@)}TUwU @@@ TUUU V@@) ))!) }kk67Aa<A@,.PUuUuUU@ **@@@@)}! ) +)()!%TUU]WU}kk67AA<A ,.P@@Te@@@@(UUU@)}UWUU(Uii}kk67A!<A,.PPP@@@eiii%*PPXXH UU**( PTUu_TPU  )}}kk67A<A,.PZUU U]@PTTTUVVPPV%* UU` TTPPP}kk67A<A)}`,.PTU*UUU(Uii@@@@@%%!UUYiiifX @@@($TPP}kk67Aa<A@,.PUUuU @)}PPP@ZZVZZZY@PPPPP@*(* UU*UU@P TU ZZYZ|P@PPTT }kk67AA<A ,.PZ& UUTTP` `PP)} PTUu_TPUX(`h(( }kk67A!<A,.P @PU]TTTPPUVVV%( @)}P@)(($PPPTUU= }kk67A<A,.PUTTe  `&UU  PPPP@*`PTPT)} UX( }kk67A<A `,.P ((UVVV%( `*(($PPPP * T )}}[[67A a<A$,.@}19,142,211,421,728}3-@)}@"/67<,.>:@4,3 }/-A3A@+67<,.>:AU,/ d}n}MOVE CHARACTER SET SUB.x})}}n;@,n6.WhQhhhhhh稱eeeeeeΥ`}B$6-+F:A)},&@,$AV?6-?:C:,B2y@PAdAUbAY@4~33F:B2y,"@*F:Ad,"AU)}B$p~AdAU$~~ PLEASE NOTE THAT THE ROBOTCHARACTER USED IN THIS DEMONSTRATION IS P)}ROTECTEDBY COPYRIGHT LAWS.&!!THE COPYRIGHT IS MAINTAINED0!!BY THE AUTHOR, JERRY WHITE.: ANY COMMERCIAL USE OF)} THISDROBOT CHARACTER WITHOUTNWRITTEN PERMISSION BYX JERRY WHITE IS PROHIBITED. D:ANIMATE(oQFJDSIPAG%%DISPDISK 1/27/83 BY JERRY-} WHITE  $$THIS PROGRAM READS .FNT & .SMP ""FILES THAT WERE CREATED FROM##AN ANTIC MODE 14 SCREEN USING S2-}FONT.$$AS WRITTEN, DISPDISK WILL READ##THE DEMONSTRATION JWROBOT.FNT!!AND STORE IT IN RAM 8 PAGESBELO-}W RAMTOP.""DISPDISK WILL THEN CREATE AN##ANTIC 4 DISPLAY LIST AND READ JWROBOT.SMP FROM DISK INTOSCR-}EEN MEMORY.d +xF$=ASM SUBROUTINE TO LOADFONT FROM DISK INTO RAM!!STARTING AT THE PAGE NUMBER-}SPECIFIED AS F$(15,15).7;@2,76. h0BDEHI V`46-F:A,&@467@-}<@,.>:,USE IOCB #3 ONLYCHANGE FILENAME AS NEEDED9@9@@ D:JWROBOT.FNT-}EXECUTE ASM SUBROUTINE6-?:C:,,@  POINT AT OUR CHARACTER SETAVTO USE DISPD-}ISK IN GR.0##SIMPLY DELETE LINES 290 & 300 SETUP ANTIC 4 DISPLAY LIST"9%6-F:A`,%AV$F:Aa,9-}%@@h,+-%@%@('@+ 6SET COLORS@]A@'A Ag9A-}@iKA@p]AJCHANGE FILENAME AS NEEDEDT9@9@@ D:JWROB-}OT.SMP^FIND SCREEN MEMORYh%%6-F:@,%AV$F:@,| SETUP FOR IOCB #3 CIO READoA@,A-}P:'AV,KA&F:A,$AV]AAoA@READ FROM DISK TO RAM*6-}-?:C:hhhLV,<@H,*@LOOP AT LINE 520 PRESS SYSTEM RESET TO EXIT A  D:DISPDISK-}LOOP AT LINE 520 PRESS SYSTEM RESET TO EXIT A @LOOP AT LINE 520 PRESS SYSTEM RESET TO -}EXIT A READ FROM DISK TO RAM*6-?:C:hhhLV,<@H,*@LOOP AT LINE 520 PRESS SYSTE-}M RESET TO EXIT A AA%%DISPDISK 1/27/83 BY JERRY,2AB_ q SLINLINTOTACOUNLINMBYTCHASPCHARSPTOFILEFONTTRYAGAIF1}@ ..FONT2STR 1/27/83 (c) 1983 by Jerry Whited A1}n:( DIM FONT$(1024):(@ DIM FONT$(1024)x9-@@'%@!/6-&9 A@6-@1}y4 6-%4( FONT$(,%)=>:@4,55(@ FONT$(,%)=>:@4,,-1}6-%@,)@W"@4)"AU,68<,-%=68<@,-K6-%@W6-@2S (>:1},*@ )(>:@4,<*@@4O*@AUS "A0!-&@!61}-%JJ( FONT$(8<,,8<,)=CHR$(8<@,)WS(@ FONT$(8<,,81}<,)=CHR$(8<@,)W 0 6-%( RETURN0(@ RETURN2@ AR21}AfE((NEW((6(ENTER>:@4,>:@4,9(<(E(LIST)-@@ %(>:@(,) 1}*AAD'AdAU*g +AAD1@@dCB7tAU@@1}g@@9"J(.(#DISK FONT TO BASIC STRING CONVERTER1(J( BY JERRY WHITE,0(0(%DRIVE 1 IS ASSUMED FO1}R ALL DISK FILES6;@,;@,;+(+( SAMPLE FONT FILENAME=JWROBOT.FNT@C( ( ENTER FONT FILENAME$-61}.D:96-A C AJ5 A @5@@O-(-("SAMPLE STRING FILENAME=TESTFNT.ST1}RTE("( ENTER STRING FILENAME&/6.D:;6-A@E A^? A@@5@@?1} Bh<9AV<@,$6-B06-A$<6-@r-A(*Af@-$|& 6-B:,1}" @)!@&  @A %7@<@,4:"6.%$%7@<@,4:"6.%$1}67B:,%@,.$KEY VARIABLES IN LINE 360 SLINE=STARTING LINE NUMBERTOTAL=BYTES IN INPUT FILE1} LINC=LINE NUMBER INCREMENT D:FONT2STRHARSPTOFILEFONTTRYAGAIF02BC_ p SLINLINTOTACOUNLINMBYTCHASPCHARSPTOFILESMPTRYAGAIFD5}@ --SMP2STR 1/27/83 (c) 1983 by Jerry Whited 5} An6( DIM SMP$(960)6(@ DIM SMP$(960)x9-@@'%@!/6-&9 A@65}-@y3 6-%3( SMP$(,%)=>:@4,44(@ SMP$(,%)=>:@4,,-5}6-%@,)@W"@4)"AU,68<,-%=68<@,-K6-%@W6-@2S (>5}:,*@ )(>:@4,<*@@4O*@AUS "A0!-&@5}!6-%II( SMP$(8<,,8<,)=CHR$(8<@,)VR(@ SMP$(8<,,85}<,)=CHR$(8<@,)V 0 6-%( RETURN0(@ RETURN2@ AR25}AfE((NEW((6(ENTER>:@4,>:@4,9(<(E(LIST)-@@ %(>:@(,) 5}*AAD'AdAU*g +AAD1@@dCB7tAU@@5}g@@9"J(.(#DISK .SMP TO BASIC STRING CONVERTER1(J( BY JERRY WHITE,0(0(%DRIVE 1 IS ASSUMED FO5}R ALL DISK FILES6;@,;@,;+(+( SAMPLE .SMP FILENAME=JWROBOT.SMP@C( ( ENTER .SMP FILENAME$-65}.D:96-A C AJ5 A @5@@O-(-("SAMPLE STRING FILENAME=TESTSMP.ST5}RTE("( ENTER STRING FILENAME&/6.D:;6-A@E A^? A@@5@@?5} Bh<9AV<@,$6-B 06-A `<6-@r-A(*Af@-$|& 6-B:,5}" @)!@&  @A %7@<@,4:"6.%$%7@<@,4:"6.%$5}67B:,%@,.$KEY VARIABLES IN LINE 360 SLINE=STARTING LINE NUMBERTOTAL=BYTES IN INPUT FILE5} LINC=LINE NUMBER INCREMENT D:SMP2STRCHARSPTOFILESMPTRYAGAIFD41aSMPFONTMCJFNTSD--DISPSTR 19}/27/83 (c) 1983 by Jerry White SETUP ANTIC 4 DISPLAY LIST"C +/6-F:A`,%AV$F:Aa,C%@@h9},+-%@%@('@+ 6SET COLORS@]A@'A Ag9A@iKA9}@p]A|READ FONT AND SMP STRINGS~$$MOVE FONT 8 PAGES BELOW RAMTOP!!MOVE SMP INTO SCREEN 9}MEMORY BLOOP AT LINE 500 PRESS SYSTEM RESET TO EXIT AXHqFONT$ CREATED BY FONT2STRR9}q FROM JWROBOT.FNT DATA FILE\qfqSMP$ CREATED BY SMP2STRpq FROM JWROBOT.SMP DATA FILEzqq M$=ASM MOVE RAM 9}SUBROUTINEqq FORMAT FOR M$ USR COMMAND:qQQJW=USR(ADR(M$),ADR TO MOVE FROM,ADR TO MOVE TO,NUMBER OF BYTES TO BE MO9}VED)q0un;@,n6.WhQhhhhhh稱eeeeeeΥ`y9};A$,ykk67@<@,.PTU UW @@@@) ))%) UUuUuUU@` E@@ykk69}7@<A`,.P TUuU] @@@@TUwU @@@ TUUU V@@) ))!) ykk67Aa<A@,.9}PUuUuUU@ **@@@@! ) +)()!%TUU]WUykk67AA<A ,.P@@9}Te@@@@(UUU@UWUU(Uiiykk67A!<A,.PPP@@@eiii%*PPXXH UU**9}( PTUu_TPU  ykk67A<A,.PZUU U]@PTTTUVVPPV%*9} UU` TTPPPykk67A<A`,.PTU*UUU(Uii@@@@@%%!UUYiiifX @@@($T9}PP ykk67Aa<A@,.PUUuU @PPP@ZZVZZZY@PPPPP@*(* UU*UU@P TU ZZYZ|P@PPTT!ykk679}AA<A ,.PZ& UUTTP` `PP PTUu_TPUX(`h(("ykk67A!<A,.9}P @PU]TTTPPUVVV%( @P@)(($PPPTUU=#ykk67A<A,.PUTTe  9}`&UU PPPP@*`PTPT UX($ykk67A<A `,.P ((UVVV%( `*((9}$PPPP * T%y[[67A a<A$,.@9}&y##67@<@,.>:@4,'y##67AB<AB,.>:@4,(y##67A<A,.>:@4,)y##679}A!<A!,.>:@4,*y##67A(<A(,.>:@4, {\$6-+F:A,&@,$AV?6-?:C:,?@EFG}kk67A:}A<A ,.P !)*+1289ABCHIJ ,3:DK}kk67A!<A,.P:}LMSTZ[ab}kk67A<A,.PNOUV\]:}cdPQWX^_ef}kk67A<A`,.PRY`gh:}}kk67Aa<A@,.P:} }kk67AA<A ,.Pilmpqtjknorsuv:} }kk67A!<A,.P }kk67A:}<A,.P }kk67A<A `,.P: } }##67A<A,.>:@4,~C%6-F:@: },%AV$F:@,@6-?:C:, }PMCLEARPPMBASPM0BASPMPMADADRDISKMWLDDDOFFOFFOFFDCOLDINTVWFSTEMTLTLMADDADDADLGTHLGTHAUXAUXPT> }GDINBINBCO@2 @gB1 o o<< @ @F>}B@@@Av@B1@@>}B2RAt A!B(""@# $ % &QQ'd55(A )B *BD+B8,BW>}-BE.BW/X 01WX2((3@456789@:@;<>}=>?@ABCDEFGHIJK>}LMN))S2FONT 2/10/83 (c) 1983 JERRY WHITEd A 56-%@+67@<@,.>:,5 A>}iz6-%-@@@67<,.>:F:%$@@,,N6-%@Z"@z67%@<%@,.7<>},U &*F:Ad,@(A`EF:Ad,"@(*"@H'K'U A(<"F:Ad,"@(*@%'>}('2 Ax< Ay$(6-@6.$ Ap06-?:C:,<}@,.*6-%@<B2yNA@Z"@`6-j A2U6-%@B2H+6-%@>}A"A(*"@K AxU B ^ AA0#6-@F5B2H@FE6-%A'[!%A>}yA ^$DB2H!6-+ A76-@A AD$.@ Ah B+6->}.$XDB2H!6-+ A76-@A AD$T%6-%@&+"A,$@@G6-%@&>}+"A,$A`Q AiT$DB2H!6-+ A76-@A AD$DB2H!6>}-+ A76-@A AD$LT%6-&@%+"@F,$@@G6-&@%+"@F,$A`Q Ai>}T$|%6-%+@ &,$&+"A,$I6-%@ &&+"A,$Ac67@<@,.>:,m Aiy6-@|>}$x;6-&+&@,$&+"@,$$@%+"@2,$u6-&+&@,&+"@,$@%+"@2,$A67@>}<@,.>:,6-@ Ai$E6-@ A+AdAU5 B#E0YA446->}@$m( 6-%+"@,;6-&@%+(,$@E A O Axc"@B m Ay6-%> }@ A4` (6.6-( A" rB2H Ax(6-B:,;67%@,.L67A#>!},.h67%@,.7%@,r B T 7 6-"@A$!-6-7 A" j 6--@@>"}067<,.>:F:,,>6-%@@J"@j67%@<%@,.7<, : 6-?:C:,<#}: A1 6- A1 z6-@ Apj6-@%P:++&+&@F,'@&,'A $,,$@>$}@%+&@F,'@z67<,.>:&,  6-& Ai A4 %2@@@7@ Ap>%}A Bc2m Ar67B:,%@,.6-%@ A2 A3 sT6-@>&}%P:++&+&@F,'@&,'A $,,$@@%+&@F,'@Z6-p67<,.>:&@,s$ #"A( Ax>'}# B  0(F:AD,&AF:B7p,0 A3PH F6-F:B2y,!6-R:,7(F:AD,A)F6-F:Ad>(},M B6-F:B7p,A*A6ABAR -!A5 #"@- Ai +"@(>)}A(+"@A9 e@!@w-6-96-@E $AQB2H[ AAe>*} A4g!A4?"AB)"@)"@xASg"AC)"@)"@yAI$++"@B>+})"Ap)"AABt A4# $A AA# A4<tt6-6@%+"@P,%+"@1,$@>,}%+"@0,$@%+"@&,$@%+"@$,$@%Ac+F:,%@&+F:,!AS,$AV=@ A>-}`G BYAdAUc A4<B2y'B2y@9B2y@<$htAdAU)>.}"@A4667<,.R6.7@/}=6-%@@&+"A,$S6-%&+"A,$m67@<@,.>:,y"@26-@3 AiAd>0}AU) AA3 A46-&%+"@,$@;6-&@@%+"@2,$Q6-&%+"@2,$k67@<@>1},.>:,w"A6-@3 AiAdAU) AA3 A4|}+@%&!AY3@>2}@dEB7tAg6-F:A`,%AV$F:Aa,s@} AX< B#<6-?:C:"h0˭1̠ȱ>3}O`,,eAP@*ARF:@,?ASF:@,QAVeAW@0' ?>4}6-?:C:hhhLV,<@,+6-@?@A` pg)@A))@5AB)@>5}NA [)@gA @ AY@4,AdAU0Y,6.8w&;@>6},;@,;@,96.  ?6.E6.^67@<@,.w67@<@,.Lf1;@,;>7}@,;@S,;A `,H6-F:A,&@@ZAY@bfBByt%6-F:@,%AV$F:@,+6->8};6-%Av'N6. <<<<<<<<Z6-@2t67@<@,.>:,k6-$AV6-%A$1A@?>9}6-Av'O6-&A']6-A%k6-@@' 9A@'A@9A@dg?6.5hh>:}h̢hh ie͠ͅ`G6.X67A `,.g67@,.[[6.Qhhhhhhh˙>;}e΅ѥ`,# B"6-@F# B#6 6-C:,6-C:,6-C:,><}8 Aq Ai)B2w@5B2H8$96-?:<<@,+6-?:<<@<,/9 A$ 6->=}( B(6-?:C:,>}bV6-F:A@,.2A@J2@@Q@VApl$ Ap Ah  Ax>?} As+)@@d;B7tAMB2H_@j@t At@3>@}@^(@3@+([(+ ԠȠŠԠΠҠˠ^(>A}L[[(S Insert another diskette having AT LEAST Š & push return.r#@@K:>B}5AdAUGAY@4Y@@k-@@r( V)@$AUAw/@>C}L@@V B xI-AA.67&A,.>:F:,,BB%@%F I$@>D}@(}k@@(1( UNIQUE CHARACTERS4(h(P:'A(,%@ CHARACTER SET(S) REQUIREDk(@>E}y B("AAD4AADH-@@k(PEEK %A=@:7<,,o y Ap >F}B#@ B2w2AdAUDAR@G(c( PRESS TO QUIT( PRESS Ԡ>G} TO RERUN'@@d'B7tA%F:B2y,"@%  F:B2y,@A6->H}?:B, +AY1@@dCB7tAUAADgA @yA>I}ADAA@d n;@,n6.WhQhhhhhh稱eeee>J}eeΥ`l t1;@,;@,;Av,;@`,t6.K}Υ`v ?;@@,?6.( t;@,;@,-@>L}?@@9B(t((ΠϠԠ㩠!YY(PŠҠӠ͠Ӡ>M}ŠҠӬҠӠ!33((ŠƠŠӠĮ."33((ˠŠӠĠԠ>N}̠Ӯ"+ 6. 67@9,. +67@,.(#6-#qAY@4 B%H($ 報>O}Ԡq($ 堲Ҡ#5,($ 堳Π5( $_ A>P}AR#5AR@8(A6-P:,_ @)!@AT$1 B%1( ŠŠ = JWROBO>Q}T1.MPDY$L!( 3AR7IAR@L(^$* 6-B:," 6. * A>R}h$ @A@r$D47@<@,4:)7@<@,4D::6.D A|$ 6.D: 67B:,%@,.$>S}=@+@@=AdAU%D B%:((ӠŠ䠠D A>T}%!!"@)"@A%_(  7 or 8(AR,>AR@A(_@*@A>U}% A%l( 7 7.5 or 8+AR/AAR@D(l@*@P*@A>V}H&; A6-%"@16-@; B&1"@P6-@'6-@1 B'6-@t>W}'^ B%9('^(٠Π~'.AR+AR>X}@.('" 6-@:,"0Y*0NB<(4YBF(_ B%4(! ϭԠ٠ΩFAR>Y}J\AR@_(K(! 4Y6-@! BP(0NB(X 6.>:,6-@" B%O(>Z}(X6.D:)a(Ԡ+AR/AAR@D(M6-B>[}:,a"A )O @6.D:,67B:,%@,.E67B:,%@,..FNTO B)D47@<@>\},4:)7@<@,4D::6.D B ) 6.D: 67B:,%@,.)G 6-B:,. @)7&@<,0.FNTG>]}67B:,%@,..FNT@)5 B@5@@h)!!"@)"@AUr)"@>^}B )6-@ B*j +AR@1A@HCA@HU@@X(j( >_} WRITING * As6-C:,(A@?AP:'AV,^A&F:A,$AVpA>`}A@*K6-?:C:hhhLV,<@H,*@36-B:,K67&@<,..SMP+c AsAA>}#!4!LINBYTSPTOTOTACSSLINSNAMELINCOUNMCHASPCHARUSERFONTSMPFONTFILEREPEAMODDCSJFPAGPOSHWFLBb}UPJVJDATPFOPJKED1D2D3MPMDRWPMCLEARC1PMBASPM0BASTDRDISKDDDOFFOFFOFFOJJ@@ @Bc}@ 8 @"@@ @ A = & .  @@BBd}hAB"GBBHC 'A@x@t@@@@Av  !ADBe}"@#@$@%&j 'v ( )WX*QQ+C55,-Bhd.Bx/Bp01Bf}23456789@:At;A,,SCR2STR 2/3/83 (c) 1983 by Jerry WhitBg}e A` A2^AR@'-@@7( IAR[B2y^$eS Bh}B AhP#6-@/6-;6-D6-B:,P @S%n8 +Af@8( DIM $Bi}()o(((@ DIM $(B:,)x9-@@'%@!/6-&9 A@6-@y5 6Bj}-%5( $(,%)=>:@4,66(@ $(,%)=>:@4,--6-%Bk}@-6-@:7<,,4"@468,-%(6-%@46-@2S (>:,*@ )(>:@4,<*@Bl}@4O*@AUS "A@!-&@!6-%--( $(8,,8, )=CBm}HR$(34)95(@ (8,,8, )=CHR$(34)9 <@ AR2Af< BBn}I(-(" SCREEN TO BASIC STRING CONVERTER0(I( BY JERRY WHITE,C(0(%DRIVE 1 IS AUTOMATICALLY USED FOR ALL@( Bo}DISK FILES.C(@7 @P*(ENTER FONT/SMP FILENAME.76.D:EB:,"A J9-@B:,,7<,2Bp}A)7<,3Z/'9 A L T667B:,%@,.067B:,%@,..FNT66.^5 A @5@Bq}@\ @P5(#THE EXTENTION .STR WILL BE APPENDED\("TO THE STRING NAME YOU SPECIFY AND**("USED AS YBr}OUR DISK OUTPUT FILENAME.3(/($ENTER STRING NAME OF UP TO 8 LETTERS3B:,"AG-@B:,!Bs}7<,4$:6.7@<&@,='G A((7<,2A)7<,3Z'( A 9 6.D: 67B:,%@,Bt}.967B:,%@,..STR5 A@5@@; A2 @P7(ENTER STARTING LIBu}NE NUMBER;* 6-P:,* )!B'gA2AEa @P,(TYPE 0 FOR GRAPHICS MODE 0I(TYPE Bv}4 FOR ANTIC MODE 4S A@Wa B"A`@A@KAY76-F:A`,Bw}%AV$F:Aa,K%@@h+-%@%@('@+ 9A@'A Ag9Bx}A@4> 6-AY'6-?:C:,,2@>AV+ 6.67A `,.+67@,.C6By}7B:,&@,.SMP&@C@@oA@,AP:'AV,KA&F:ABz},$AV]AAoA@R6-?:C:hhhLV,<@H,*@6B2HHAY@bR A B{}DB2H!6-+ A76-@A AD$.@ Ah B+6-.$XDB|}B2H!6-+ A76-@A AD$T%6-%@&+"A,$@@G6-%@&+"A,$B}}A`Q AiT$DB2H!6-+ A76-@A AD$DB2H!6-+ B~}A76-@A AD$LT%6-&@%+"@F,$@@G6-&@%+"@F,$A`Q AiT$|%6-%B}+@ &,$&+"A,$I6-%@ &&+"A,$Ac67@<@,.>:,m Aiy6-@|$x;6-&+B}&@,$&+"@,$$@%+"@2,$u6-&+&@,&+"@,$@%+"@2,$A67@<@B},.>:,6-@ Ai$6-@!AdAU-6-@2G67@<@,.>:,S6-@F_BBB}yqB2w@}B2H Ai8-AA#@' .6.8 A4 ' Ax AB}T (F:AD,A) C 6-P:+&,'A ,$A C6-%+&,&%@@$P:'A , %2@@B}@7@ ApA Bc2m Ar67B:,%@,.>:F:,,6-%@ #B}"A( Ax# B H m6-F:B2y,!6-R:,3@wHAF:B7p,^(F:AD,A)m6B}-F:Ad,R "@ Ai +"@(A(+"@A9 G@6-@' $A3BB}2H= AAG A4"@ABtz=AF:A,%@&+F:A,!AQ,$AVL6-F:A,B}XAdApAz A4# $A AA# A4<tt6-6@%+"@P,%+"@1,$@B}%+"@0,$@%+"@&,$@%+"@$,$@%Ac+F:,%@&+F:,!AS,$AV=@ B}A`G BYAdAUc A4<B2y'B2y@9B2y@<$hgAdAUB})"@A4E6.7@:,^6-FB}:@,%F:@,$AVd6-c6-$AV6-%A$1A@=6-AvK6-&AW6-Ac6B}-@@ 9A@'A@9A@dg?6.5hhh̢hh ie͠ͅB}`G6.X67A `,.g67@,.[[6.Qhhhhhhh˙e΅ѥB}`,a B6-@F+B2H=B2IOB2PaB2Q@46-F:A,&B}@ 467@<@,.>:,, Aq AhP)B2w@,$6-?:C:,<<@,$B6-?:C:,<<@B},46-?:C:,:F:,,BB%@%B}F I$ N@ N0F:@ ,!A-@ F:B7p,0$N B0u66-C:,%@%6-C:,%@B}66-C:,%@1u/6-P:'A,/6-P:'@&$@,2uC'6-+&$A&$@,$@56-$@C6-B}$@:u##6-?:C:,<Btr%<<@,Du##6-?:C:,<Btr%<<@,Nu##6-?:C:,<Btr%<<@,Xu<B2IB}A'B2PA9B2QA<$ym@@(C(&TYPE 1 TO RERUN USING SAME INPUT FILESm(%TYPE B}2 TO RERUN USING DIFFERENT FILES"yQAdAU(9(TYPE 3 TO EXIT THIS PROGRAMC BGQ B,y%"@B}6-(}% AP6y"@6-%@y@BJy% +((BASIC"(IS% D:B}SCR2STR#!4!LINBYTSPTOTOTACSSLINSNAMELINCOUNMCHASPCHARUSERFONTSMPFONTFILEREPEAMODDCSJFPAGPOSHWFL@1AA4(F(  WRITING c@@\+x 6-C:,A@5AP:'AV,TA>}&F:A,$AVfAAxA@+46-?:C:hhhLV,<@H,*@4 A N@ >}N0F:@ ,!A-@ F:B7p,0$N B0u66-C:,%@%6-C:,%@66-C:,%@>}1u/6-P:'A,/6-P:'@&$@,2uC'6-+&$A&$@,$@56-$@C6-$@:u##6-?:C>}:,<Btr%<<@,Du##6-?:C:,<Btr%<<@,Nu##6-?:C:,<Btr%<<@,Xu<B2IA'B2P>}A9B2QA<$}719@,9@,;A@,;@,76.}g+@%&!AY3@>}@dEB7tAg6-F:A`,%AV$F:Aa,}PP6.FLdLLLpB@DEPJQK V䭳Lp>}RBDE}aa67@q<A@,.FHI V䭳LpRBDEHI V䭳Lp B Vh`}.$6-?:C>}:,}j@}7"@*"@0+AA76-@}7"@*"@+A@Q76-@>}(}%%6-F:A`,%F:Aa,$AV-}^6-F:%@,%6-F:%@,=6-%AV$&@N6-P:'AV,^6-&$>}AV2}'"@6-@'6-@07}'"@6-@'6-@<}'6-@6-'6-@>}A} B"F}&@*@& K}:"@6-F:,)6-F:%@,:6-F:%@,P}I"@#>}0@10@?0@I B!Z}a-@%68,-F:%,;68,-F:%@%,? P6-F>}:%@,a6-F:%@,_}7-@%08,8,) 70@d}@ A` }@}d>} B#O(ERROR # F:A, AT LINE F:A,%AV$F:A,aAY@4d}.-@B:,*A>}%@:7<,,. }'AA'A}3AA 'A3A}/6-?:A$,>}/F:A G,!A'B"`}/6-?:A',/F:A G,!A'B"`}AA }/6-?:A0,/F>}:A G,!A'B"`}/6-?:A3,/F:A G,!A'B"`}$~) B#)( I/O ERROR # F:A G, ~'>}6-?:A3,~ B",~*-B2HB2Q#' *$~\AR@'-@@5(G>}B2yYAdAU\$D:S2FONTRENWFLUPJJYNOWTRSPOSTHOLOPJMKEJJDFMD1D2D3PMDRW<6