@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  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}}}BOO |||DDOS DOSDOS SYS }}}} }CDOS SYSBZSEC90 BAD} 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}&AL9=7BL9J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L,}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '-}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . .}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u/}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )0} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + 1}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,2} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.3}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``4}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS5} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф6}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ7}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,08}` ,0L,L,`޵` `Ȕ`ʔ惥u`9}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*:}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*;}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ<} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ=}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i>} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + ?}. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g@}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00A}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.Lꦆ 1Օ`0  B}L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180C}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666uD}uuhhhLr* +愵 ' + 'I 1 280/66&&&`E}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2iF}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`G}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 H}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4HI}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 J}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&K}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&L}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*NM}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@(N}f(()))V)4440T5\5A1+1d5355&(6@6j6S199 999(C:7I:8L:<R:FZ:Pj:Zp:dv:n:x:}:::::O}::::@;P;k;q;z;~;;; ;;<<<X<"h<$<'<)<,<1<6<;!=@=E=JR>O>T?YP}?Z?^@_p@c@h@mYArAsBweBxB%C>CDCrCvC|CCC C0C2D:>D?HDDTDNzDP~DSDXDDDQ}DDE EE)E:E?EkEEEEF F *FGFdFjFFF F%G* G/$G0`GdGnG}GR}L~GQGVG[GGGGGBHH HDI I*I4SJ>nJoJJJJJJJ J K CKRKVKyKKKS}KKL"LAL * R9j( C:[0,0,0,0,0,0,0,0,0,1,7,31,T}127,135,3,1,1,1,1,1,3,3,3,6,6,12,12,8,24,16,16,32,32,64,64,128,128:9K 999/>:9U}99y:$99y:%o999$9y:$91,99y:%@;Q0,0,0,0,1,7,V}31,127,135,3,1,1,1,1,1,3,3,3,6,6,12,12,8,24,16,16,32,32,64,64,128,128;999999y:$91,9W}9y:%;D0,0,0,0,0,1,7,30,126,252,252,248,248,240,240,224,224,192,192,128,128<999999y:$X}91,99y:%X<:1,7,30,126,252,252,248,248,240,240,224,224,192,192,128,128<9999Y}99y:$91,99y:%AI@H!!=d55,49,50,51,52,53,54,55,56,57,61,62,69,70,72,73,74[},80,81,82,88,89,95,96,97,98,99,100,101,102,103,104$==_106,107,108,109,110,111,112,113,114,115,117,118,119,120,121,122,123,1\}24,125,126,128,129,136,137==a54,50,51,52,53,54,55,56,57,58,62,63,68,69,73,74,75,80,81,88,89,95,96,97,98,99,100,101,102,103]},104=R>_106,107,108,109,110,111,112,113,114,115,117,118,119,120,121,122,123,124,125,126,128,129,136,137U>>c29,50,51,57,58^},63,64,67,68,73,74,75,80,81,87,88,89,90,95,99,100,104,106,107,117,118,128,129,136,137>?\27,50,51,57,58,64,65,66,67,73,74,7_}6,80,81,87,88,89,90,99,100,106,107,117,118,128,129,136,137 ??\27,50,51,57,58,65,66,73,74,76,80,81,86,87,88,89,90,91,99,100,`}106,107,117,118,128,129,136,137??f34,50,51,57,58,65,66,73,74,77,80,81,86,87,90,91,99,100,106,107,108,109,110,117,118,128,1a}29,130,131,132?@133,134,135,136,137@p@f38,50,51,57,58,65,66,73,74,77,80,81,85,86,87,88,89,90,91,92,99,100,106,107,108,1b}09,110,117,118,128,129s@@130,131,132,133,134,135,136,137@@b29,50,51,57,58,65,66,73,74,78,80,81,85,86,87,88,89,90,91,92,c}99,100,106,107,117,118,128,129,136,137AYAV25,50,51,57,58,65,66,73,74,78,80,81,85,86,91,92,99,100,106,107,117,118,128,129,13d}6,137\AAV25,50,51,57,58,65,66,73,74,79,80,81,85,86,91,92,99,100,106,107,117,118,128,129,136,137ABa46,50,51,52,53,54,55,5e}6,57,58,65,66,73,74,79,80,81,85,86,91,92,99,100,106,107,108,109,110,111,112BeBC113,114,115,117,118,119,120,121,122,123,124,f}125,126,128,129,136,137hBBe51,49,50,51,52,53,54,55,56,57,65,66,73,74,80,81,84,85,86,87,90,91,92,93,98,99,100,101,106,107,10g}8,109B%CO110,111,112,113,114,115,117,118,119,120,121,122,123,124,125,126,128,129,136,137C4C9"(C$91,Sh}C99GC$91,99#GC%(C%9019SA9T09U19+97i}DG867,884,45,105,99,114,111,115,111,102,116,119,97,114,101,0,41,110,99,14D>D(1129,1136,48,114,101,115,101,110,116,115Gj}y:$91,91,99GC$91,999GC%y:%99*99DXk} 9949999" "oR"tAil}"NE9BE$9".-BE%BE$9"-BE%BE$9"-BE%"-"m}-".-"-"-".-"-"-BE$9"-BE%BE$n}9".-BE%BE$9"-BE%}%COPYRIGHT (C) 1982, BY CORTECHS CORP. ALL RIo}GHTS RESERVED% INDEX 831010F9F$999L*9p}99L*999L*F%9 9}G+99G99 9GVq}+99RG9G$91,99G%BHQ162,16,32,173,6,134,207,104,104,157,69,3,104,157,68,3,169r},4,157,74,3,169,3,157,66EHHL3,32,86,228,16,3,76,166,6,169,203,157,68,3,169,0,157,69,3,169,2,157,72,3,169HHR0,157,73,3,16s}9,7,157,66,3,32,86,228,16,6,192,136,240,92,208,96,169,255,197,203,208HDIR4,197,204,240,210,169,205,157,68,3,169,0,157,69,3,t}32,86,228,16,2,48,69,165,207,240GIIV14,165,203,141,224,2,165,204,141,225,2,169,0,133,207,165,203,157,68,3,165,204,157,69,3u}IIR165,205,56,229,203,157,72,3,165,206,229,204,157,73,3,254,72,3,208,3,254,73,3,32,86ISJU228,16,137,192,3,240,133,76,166,v}6,32,173,6,108,224,2,152,133,212,169,0,133,213,169,12VJnJ157,66,3,32,86,228,96K+ 33" WELCOME TOw}" HOME FILE "WRITER9@9 D:MENU.EXEA99D.J  DISK ERROR 9S K1PLEASEx} INSERT BASIC CARTRIDGE AND REBOOT.pp Ry:$91,91,99y:%y:$91,99y}y:%K0769,1,770,82,771,0,778,90,779,0,104,32,83,228,969J99dK THIS IS AN ILLEGAL COPz}Ypp:k ]+6 Zh h `l&&0& 1&& *Lc_WWRPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD |}OTMDIMLENABLEINFILEGLBFFILTDIFOUNLRGSMLNOPCOLCOLSMEXSMLREXLRKEYLOGLOBALLKEYWORDMTLPAGFKESC }}REELINMSCREEX@ @ ~}@@@ } !"#$%&'()*+, }-./0123456789:;@ }<=>?@A@BCDEFGHIJK }SAVE "D:CONVERT.BAS.;@@,6-F:Ai,.6-F:Ap,$;@,$6. D :MARKER.EXE67@< }@,.=:,-@F:AS,67,.>:F:AS%,, 67B:,&@,..PRG " @0 @# }  @0 @  A +'0@@A0@@@ B-B ( } =-@@= # CODEWRITER is now generating thef-@@f Lpr }ogram you designed. It will take about five minutes. The program will=-@@= #be stored automatically o }n the data.-@@. disk under the name:/"-@!u&B:,'@@ / 7@,<-@@ }< " Your program will begin listing9-@@9 on the screen in a few minutes.MERGE GENERATED CODE }&DATA DISK CHECK @'"6-"DISK CHECK ERROR+@+@@ }@6-!@@ B$ 'INSERT DATA DISK' MESSAGEA +@'0@@@A }0@@@ (-@@( @PLACE!/-@@/ @ DATA DISK IN",-@ }@, @DRIVE ##0-@@0 @ PRESS $--@@- @ WHEN READY% }6-@ B&$x B(A'} B A :@%68@,-@:68@ },-@-@@@@@ 68,-68%@,-8 },%%%68%@,-8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@ }@$$678,<8%@,&@,. @h6-6-|* 6. 67@@,.*67 }@,.$ 6. 67,.$67@,."A@I #BU A"@I@@ } D:EXP.GLB-@" A3@6-8%@,&8,""8,&@B$B# }$$678,<8%@,&@,. A5''678,<8%@,&@,.0X  A6-@5 }@5@@ D:EXP.IDX@67,. 6-% A`56- A56-A }:7$@%@,, B* 6..67@@,.*67@,.$@ B` Be }5 +6-@+AR@5 BMENU GOES HEREFILE PREPERATION ROUTINEm + }'0@@A0@@[0@@@mAR@9-@@9 } This option will erase all your5-@@5 previously entered records.=-@@= #To begin fil }e preparation press =-@@= #To exit file preparation press ?-@@? %Please enter ch }oice/press RETURN ۠ 16-@26-@7'6-@1 B 4CA4XA A5 }FINISHED ASKING NOW DOL22LINE TO DISK SUBROUINES FOR FILE PREPERATIONV? >:A%,"-@@? This will t }ake some time` BoEND OF ROUTINEt ANEW RECORD ENTRY##@@E: }A `a (}-@@2 Your file is full.D-@@a Hit to continue.#6- B }# A# 6- B }&-@&BEGIN DISPLAY LOOP 8,!@A!0*/-8,8, }/ 78,<8%@,&@,48,"A!0>((IF TYPE(N)=2 THEN PRINT "mm/dd/yy"H>8,@*8, }> 7@<8%@,&8,,R \6-aH-@@"H &@# records on file } f-@p''8, @)8,!@A!u4-@@#4 Hit to return to menuz A }4A#$$678,<8%@,&@,. 6-@ BPC CALCSN-@@"+ }Is this correct? 76-@"C6-@N6-@:Y, B4A#!6-@4N! B3( }A#KEYWORD$=INFILE$(1,8)! BP B! B6-%@ A E@ A@""I }NPUT KEYBOARD ENTERED FIELDB% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8%@,&8, }F'6-6-"@' BH 4$I BJ3!@3&@B B!B!L }AN!@* A%R A%@@$TAV''B%B&B$B#X$YM }OR L OPTION\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`  ($b9 }7<,4m66-A:78,<8%@,&@,,%9$d,)6-A:78,<8%@,&@,,&,$*LOOKUP RECORD+9#@ }@E:/6-9 B + B(A+=-@@#= "Hit to print, } to exit +-6-@ B-"@B@*+"@B@4++-@!+-@8>+8 } 1-*@*!A'86-&A(H+67%@,.>:,R+   3\+ f+ B@.@ A }.RECORD SCAN SUBR..##@@E:.6-@ B. @B%. 6. }6.6-. }-@@.-- $SCAN ALL OR SELECTED RECORDS (S/A)? .16-@6-@8'6- }@21 B .4B%/4AB#p/4SB `/ B / }-@@!/>' WHIC }H FIELD TO SELECT ON (1-13,> OR '?' TO LIST)? &/16-@6-@'6-@1 B0/4>:@',B% }:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @)!@B!@N/6--@ }X/56-%@58, @)8,!@B! b/  B!Pl/2-@@#(  Ġ2 B v/"6 }-8%@,&8,"6-8,/!@6-@/4-@@4 78,<8%@,&@,/ @B }"p/,   ,  SMALLEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /(  (  LARGEST }VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /'6-@6-@'6-@ / B#0/22 }PRT$=DOT$(1,IL):IF TY=2 THEN PRT$="mm/dd/yy"//   /  SMALLEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N })?  0,  ,  LARGEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0!6-@ 6-@0!6-*0 B }'GET SMALL/04B%40 6-6.6->0+6-%@!@ +6-%@@0 B'GET LARGE }C04B%H0 6-6.6-R0-@&@W0 >:A%,\06-@$6-&@f0 B } Bp0"B%0u0"@B$qz0"@B$0$$6.78,<8%@,&@,04 }B$@02)*4B%p04B%003)*4B%p0 B%00$$6.78,<8%@,&@,0 }4B$u0 6.6. B'6.0## )*"B%p04B%00 6.6. B'6 }.0## )*"B%p0 B%00''6-A:78,<8%@,&@,,04B%0 )*" }B%p04B%00!)*"B%p0 BPPRINT RECORD0b-@@"> $Hit to return to men }u, or P-@@#b  to continue 116-@6-@#'6-1 B14>:@',6-1 } $1@ A1! 6-6-"@! B1-6-4)4*6-%@-$1+!@+& }@B B!1B'1"@6-A:,1B%B&B%1-6-%@6-#6-@2 }- B1 6-4N1 6.1$2UPDATE RECORD ROUTINE2##@@E:2 BGET RE }CORD2(B1p2 B3EDIT RECORD2B12 6. BP3j-@@"> $Hit to return }to menu, or P-@@#j to continue editing.3)6- B)4B1p"3 B,3 B }0@63 6-6-%@@3..IF OUTFILE$(1,8)=INFILE$(1,8) THEN 13160J3 B `T3''KEYWORD$=INFILE$(1,8):GOSUB 20850 }h3 B Br3@ A3HANDY DANDY RECORD EDITOR3 6.6-4 BCALCULATE }PC'S4 }4a0@@70@@Q0@@@aSET UP SCREEN!4 BP }PRINT INFILE$&400PRINT "Enter 1-?? to change field, '?' to"04++ " list fields, or to save. :416-@#6- }@4'6-@1 B?4 BD4 46-@$N4 46-$X4+ 4?6-@! B0 }+ B3@b444GOSUB 22150:IF ERR OR IC<0 OR IC>?? THEN 13600l46--@v456-%@58, @) }8,!@B404 46-@4 A4 46-$4$$678,<8%@,&@,.4 B }3  5*5R-@@"< !ĠĠ - Hit H6-R B45 B3P6DELETE RECORD }6##@@E:6 BTO GET RECORD6(B@6a-@@#4 Sure you want to de }lete? @6-@#L6-@3W6-@:Y,a B64N)4B@66-&@ B `66-6@6 } B`ADJUST GLOBALS7 6. 7@ A:VERIFY GLOBAL TOTALS:-@:68,-: }: +@@@:!!-@@$@:"@BQP:6-&@6-&@:1- }@@1 @READING RECORD:E-@@E @+&@,'@ OF &@: #BU }: B B;-@; ";//68,-8,%A:78,<8%@,&@,,$; .; 8;/ +/ } FIELD OLD TOTAL NEW TOTALB; #BUL;-@V; "!@ BR0`;-@%@j; - }@%@t;@% A:78,<8%@,&@,,9-@"%@@ 8,~;" 6-8,"6-8%@,&8,;""8,& }@B$B#;$$678,<8%@,&@,.; ;E-@@"/ Hit to continue;6-@ }E B;6-@ A>GLOBAL ADJUSTMENTS> ( $> #BU>-@> ">1 B`p16 }-A:78,<8%@,&@,,>556-&A:78,<8%@,&@,,>556-%A:78,<8%@ },&@,,>86-8%@,&8,88,&@B$B#>$$678,<8%@,&@,.> > B }6-@$B$END GLOBALS8JRECORD SEARCH UTILITYBJ6- BDJ6-GJ+-@@! }+ Please enter key.oJ+-@@!+  qJ 6. BGET KEYtJ(B`~J! 6-6-% }@! BJ BJ$$IF R$<>INFILE$(1,8) THEN 19140J BPPRINT INFILE$J'-@@#'  Is t }his it? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J" 6. B"GET NEXT RECJ  }B`JC }-@@C #No Record Found. Hit for menuJ F:B2y,@BpJ$ NFILE PRE }P ROUTINE*N# 6. 67,.#67@,.4N 6.6.9N@>NOPEN #2,8,0,"D:EXP.DAT"CN-@HN }@RNBUILD INDEX\N6-P:'@',fN6-&$@'zN6-%@dN6-%@dN6-%@2N }!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:,N67B:,%@,.>:,N6 }7B:,%@,.N-@N''8,")8,!@BN$$6.78,<8%@,&@,N @ }N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: /O 6-@O@ B` }O. 6.067,.$67@,.. BeO% B$%FILE PREP FINISHEDO B6.$O.F:A,"Ab }. }DISK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,.OR!  Hit to continue.-6-9 }6-E6-O BR$LO!!SEARCH FOR RECORD IN INDEX$VO$ 6-B:,!@$6-@`O/67%@,. }!6-@/6-&@jO* @6-@'6-*$tOK6-$@&@.37<%&@,:6- }H6-%@K$~O"BO.6-P:+%,'@,.6-$@&@O/7<%&@,6-O&37<% }&@,&6-%@O BPO6-$@&@O6-+47<%&@,,O6.7<%@,$OEND }OF ROUTINEPINPUT FILEP&&CLOSE #2:OPEN #2,4,0,"D:EXP.DAT"#P# 6. 67,.#67@,.(P@FROM }INDEX2P-@:,^ ^ @6.^ ^@$aPRINT OUTFILE$a }a-@a/-8,8,/ } 78,<8%@,&@,a18,!1 78,<8%@,&@,a   $eDUMP INDEX$ TO DISKe&&CLOSE } #3:OPEN #3,8,0,"D:EXP.IDX"e67$@%@,.=:,e-@B:,e 6.7, @e }WRITING IND }EX FILEe! @6-!$g ( $g&&CLOSE #3:OPEN #3,8,0,"D:EXP.GLB"g #BU-@g1 " }1 @78,<8%@,&@,g }WRITING GLOBAL FILEg! @6-!$0uFOOLPROOF INPUT RO }UTINE:u4AR@6.(6-@46-Du!!"*"B`Nu -Xu6.7@<,B }w"6.mm/dd/yy"6-@Lw ARVw$-%@$*@@0`w##@@ }K:jw)@ow'"AU** @'6-tw"@'6.~wL"AU)"@'+AR@ }2 =@I6-L$w"A&*Bpw%% @2)!A")"Bpw'!67%@,.7%@ }<,'6-w67,.>:, >:,w"Bpw&6-%@&7<,0/Bpw.6-%@$*@@1. !} Bpw) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@wD67%@,. "}'AR:*@@0D BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT #},CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@ $}$x"@*"@$x"@*"@$x"@*"@$#x"@*"@$(x %}"@*"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@@ &}K:xAR@x -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@ '}x"AUB x"@'6.$x!@1* @6-y'!@* A#'6-&@2 (}y B y -6.>:, $y]@)0@@C0@@]0@@ )}@"y$|y--@@"- 7@<@5,y$}"A" >:@(, }"AB" >: *}@(,}'BB '@}}W W L In order to run your program, you must place the data +} disk, now your(}88 0 program disk, in drive one, and enter:-}I2  RUN >:@4,D:7@,I6 ,}-F:@ ,%@`2}= = 2 We wish you much luck with your program.<} D:CONVERT.BASTIINDEXBUNMD l&{B=7{J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L.}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '/}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . 0}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u1}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )2} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + 3}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,4} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.5}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``6}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS7} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф8}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ9}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0:}` ,0L,L,`޵` `Ȕ`ʔ惥u`;}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*<}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*=}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ>} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ?}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i@} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + A}. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 gB}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00C}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  D}L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180E}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666uF}uuhhhLr* +愵 ' + 'I 1 280/66&&&`G}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2iH}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`I}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 J}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4HK}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 L}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&M}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&N}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*NO}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@(P}f(()))V)4440T5\5A1+1d5355&(6@6j6S1BB BBBZB_BdBnBsBxBC+CSC{CCCC/DEDQ}[DtDDD,D1D6D@DJDTE^$Eh(Em>ErJEOEOEgElEE E EEE&F+F07F5=F:IF?TFXXF]XFbR}pFgFlFqFvF{F G*G.G.G2GYG]GsGGGGGGGG H&H6HMH]HhHlHpH~HHS}HHHHH#ICIcIIIIIJ)JRJrJJJJJJK,K@KDKHKZKKKKKKT}L>LqLLLLLLM$MJMKM\MmMMMMMMMMMMMMMM NN!N(NU}3N MNQNL_NViN`yNjNtN~NNNNNNO$O)O=OQO]OmOOOOOOPP PP$P(V}0P2=P<^PF}PPPZPdPnPxPQQ'QSCSHSMSRSpTuTz.T>TNTOTX}OTdT|TTTTTTT U #U /U$ EU& ]U. aU8 wU= UB UD UG UL UQ UV V[ V` 3Ve DVj HVl NVo kVq Vt VyY} V~ V V W IW MW cW W W W W W W X X /X LX PX kX( X2 X< XF XP YZ Y Y -Y BY WY lY sY Z}Y Y Y Y Y Y Z Z" !ZT %ZY %Z^ @Zb SZc mZh Zr Zw Zx Z| Z Z Z Z Z Z [ B[ o[ [ [ [ &\ U[}\ \ \ \ \ \ \ \ ] G] j] ] ] ] ] ] ] ] ] ] ^ ^ $^& 0^' 9^( B^) K^0 T^: ^D ^ ^ ^\} ^ ^ ^ ^ ^ ^ ^ ^ ^ _ ___)_:_z__________ `` `T`]`f`]}o`"x`h|`r`|``````````aj)Kj)Oj)jj)~j*j:*jD*jE*jG*jH*jI*jN*jX*jb*jl*'k*Kk*mk*k*b}k*k*k*k*k*k*l*l*7l*;l*Nl*]l*tl +ul+yl +yl*+l4+l>+lH+lR+l\+lf+lp+mz+'m+@m+`m+vm+m+m+m+c}m+ n+n+&n+6n,An,Sn,Wn,jn,}n,n,n.n.n.n.n/n/n&/o0o0o0=o2Ao2Fo2o2o2-p2xp2p2p2p2Cqd}2q2q2q2Hr2r2r3Ys 3s3't3;t3Yt3t3t"3u'3Au,3u13u63 v;3sv@3vB3vE3%w6+w60w6w6x6.x6x6x6y6Tye}6}y:y:yhByrBy|ByByByByByBzBzB.zBCzB]z0u^z:u^zDupzNu|zXuzbuzluzvuzuzuzu{u{u7{uO{u\{uw{uf}{y{y{{g}'**A Rq} B'DOS SYSZSEC90 BADBO+AUTORUN SYSB{CONVERT BASB-MENU EXEBCODEGEN EXEBMARKER EXE 3 33""Your choices are as follows:"Edit Screen .....r}..........E"Change Screen .............C "Load Screen ...............L "Save Screen ..........s}.....S"Exit to Main Menu..........X" Enter your choice/press A#A,*AEAe Et}DACAc [DALAl tD *dASAs DAXAx D4K:7Au}y*A6ADAA AAAZDhAaAzEhAA$Er6AA"Av}-AA64+ 333R"____________________" CODEWRITER"SCREEN EDIw}TOR"____________________+" PRESS START "TO"CONTINUE "___________________x}_y*AATF+5 333"____________________"NO SCREEN IN MEMORY y}"____________________" PRESS START "TO "CONTINUE "____________________0z}AAA*"AD*A A sGAAA2GAAA(BAG{}A.5GA*AGAA.5GAB(B*A/5 HA#5A$5 &H|}A.56HAB(BAB( AB(B A B(*A~HAH*AB(B A}} B(AB(* BBNUMERICAA$5H BBDOLLAR$AAB(BAB( AB( #IA~}AB(BBAA(BARIBBB FI$BBBBBE5-BFI%BBB "B"BD}"FIELD#A, LEN=AB(, TYPE: BD"%[K] KEYED, [P] PROG CAL, [G] GR. TOT.BB)J}B"y*A6AARJAA Ak5AK5 rJBAp5AP5 JB Ag}5AG5 JBAB JBJA B( BB JA B( BBKA B( B}BBB "B"BBBF**BBAB( *AKBBBKBBB BF}../../..9KAAB(BAB(A B(*"ADAL"Error - no input field}A>L"Error - no label for fieldAqL"Error - incorrect date formatAL"Error - }numeric field too longAL"#Error - over fifty fields in record*+*BBBBB(MB}"B"B"B$MP+*BBA-BAJMBB B+B'\MA+B"B"A6%BA%BM%B}A B"B"%B+B"B*BBBA-B+"AD"A fields accepted+2*}K:7E:73A3NB ABpBBBDBL"BDRS'(B+B`?y*}A6ANAA A A N`A}NA+BT.B(B(BU+BN+B}+BO+B(B'$O(B&.B ""+B "(B (B+B"`A(B}+B"(ROW: COL: "+B "(B " Hit for opti}ons(B+B"`1BA"AD"Press for Next"Press t}o begin"1BP 1BP1BP APA}AQxAAQA'QATAA*NTA+BA:B(}B+B"7BA(7BB(R$=BBBE5=B=B=BT=B=B :B:BB:B=B-B=B-R%B7BA(}7BB(ADC"+B "(B (B+B"BDy*A6AA EU B(B"B+B}BBp*AA wUB AA Uj AAU"B"B BB( AU"B"BBB}("B"B U *4BVB (B+B"A:BF(BB+B"BBB(B+B"BDAA}kVBB BBAVBBBB:B B+B(B:B(+B V BBE5}V  *4B V AVB4BA(:B AWB4BB(B+B(B:B(+B IWy} B(BBB V 4BAR$B7BW BBB(BA(B:B W4BBR%+AWZ }"A%F"%Do you want to reorder your fields? y*A6AY5Ay5 /X AN5An5 LX}4d _X@BASX$CB@BB( B@B B("B@BA(B@BB(FB@BFBFB FBXFBA(}"BX *FBFBFBB(BFBA("BFBB(CBFB B( BSX%4dFBB(FBB(FB B(FB B}(FBB(FBB(FBA(FBA(A+:B R$=BBBE5=B=B=BY=B=B BBB} BB =B-C(BB +B"=B-R%7BA(B7BB(B:B T *A!Z B7BA(+BB} ( (BB+B(  " " "+B"(B=BBBE5=B=B=BZ=B=B} (B+B"=B-+=BBBE5(B+B"=B-+BA7B B([BLABELAIB 7B B(B[BDATEAI}B7BB( 7B B(o[BNUMERICAIB7BB( 7B B([BDOLLARAIB7BB( 7B B([BP}ROG CALAIB7BB( 7B B([BPROG CALAIB7BB( 7B B(&\B GRAND TOTAIB7BB( 7B B}(U\B GRAND TOTAIB7BB( BA7B B(\BALPHAAIB7BB( "LBD" #7B} =BD =IB+}THIS IS AN UNAUTHORIZED COPYy*  3 3"(}堠@"Enter screen file name B"BCB0u*OBD=]+OBD=] hB*4B}]  *gBB(]*RBUBDAf*XB]*OBA+gBB(4RBD7B ABpBBBDBAA}HIASX$[BHI^BHIaBHIdBHI@BA([B@BB(^B@BB(aB@B B(dBSX%B ABpB}BBDBASX$BGAIB@BA(@BB(BDCSX%4A+UBD : AUBgBWCUBOBDBUBUBD/.SCRB+A})_X*d 33"(堠@"Enter screen file na}me B"BCB0u*OBD=_dOBD=_hB*4B_ **?4UBD7@?gBB(A}ASX$[B@BA(^B@BB(aB@BB(dB@B B([B^BaBdBSX%`7BA}`$BB7BA(7BB(FABD`%4Ad*SAA ` 33"HAVE YOU}" SAVED YOUR" SCREEN? Y/N4K:7y*A6AYAy paANAn ad'}   33"PLACE" CODEWRITER "IN "DRIVE #mB "PRESS }" WHEN READYy*3by*Eb+   33"REMOVE" CODEWRITER"}FROM "DRIVE #mB "PRESS " WHEN READY 3  3"PLACE"} DATA DISK "IN "DRIVE #gB "PRESS " WHEN READY   33}" SCREEN FILE OBD/ "OBD" NOT FOUND ON "DRIVE #gB "PRESS "} TO CONTINUEl?XB4RBD7@?XBTXBXB4+(pB@'sB@'LB@OA@jB@UB@(vB@pB}(Row: Col: AsB Press for OPTIONSAvB.AvB(BvBvBDBA AAOBAADBLB}ADAB&B(B(gBB(mBB( +)B@(yB@(OB@rB@RB@2A&2B&2B&2 B&(|B@)B@ B}@mBgBe+*p* 3 3 3""You }have the following options:" S.........Create a screen layout" A..........Create an application "} F............Format a blank disk"CTo create a screen format [] you must have a formatted disk ready"L}To create an application [] you must already have created a screen format"with selection ." Enter yo}ur choice/press A!B(*=Bg=B=B =B`=B{g=B=B =BAgBB:*=BS}gBB4 =BF h(F(4K:7y*A6=BAAB"A-A6Agh=BA}(4+ B33& TO RESTART FOR MENU! TO BEGIN FORMATTIN}G"____________________" DISK FORMAT"UTILITY"____________________mBgB[iJ)}"REMOVE CODEWRITER"DISK FROM DRIVE mB "PLACE DISK TO BE "FORMATTED IN DRIVE gB}y*AABj)Aj'Aj(A1jr)r)RBD :ARBgBWC0? "}FORMATTING DISKRBD7B "FINISHED FORMATTINGh) *}OBD=j'4K:7}3 3R"BD"(________________________________________"Is this your screen file?y*}A6AYAy mk*ANAn k:**UBD/kBUBD/k$BUBBE5k%mBB(}k*RB D :MARKER.EXEARBmBWCmBB(f*XBl*mBB( B(B(.*RB D:CODEGEN.}EXEABRBD.J DISK ERROR BS' 333"____________________"SYSTEM}" CONFIGURATION"MENU"____________________ " NUMBER OF " DRIVES = - }"____________________" DEFAULT IS"1 DRIVE; HIT NUMBER FOR DRIVES (1/2) OR } TO CONTINUEy*m+mBgBmB4K:7mBmBBAA}An+BSn,*++BB jn+ B gBy*B6 "B -+  3 3 3"}LOADING " APPLICATION  " GENERATOR! Please Wait+ "ERROR # } ^)R}T This option allows you to create or edit field types. Use the arrows to move the cursor }around the screen._Use the backspace key to move the cursor backwards on the same line, the key to move to D}the next line, and the tab key to move quickly across the screen., Prompts must be in the the following form :}  address ..........F You may leave any number of spaces between th}e prompt and the dots.cFor computed fields, the number of dots specifies the maximum value that may be entered in t}he field."Press to continue. :*}S When you are finished, press the key. You the}n press to read the screen.Z You are asked whether each numeric and dollar field is entered from the keyboard} , ? calculated by the program , or summed as a grand total .a A label is a word or phrase not con}nected with data. You may specify a label by typing it cin reverse video.This can be achieved by pressing the Atari Lo}go key before typing in the label._ Remember to press the Atari Logo key again before entering a prompt to dea}ctivate the  reverse mode. ӠӠ"Press to continue. :*}A If you} wish you may make a field one of three special types.= To indicate a number field, insert a '#' for the last }dot. For example: QUANTITY ....#= To indicate a dollar field, insert a '$' for the last dot. } For example: PRICE .....$S The '#' and '$' are included in the length count for keyboard entered fields.}b Program calculated fields and grand total fields must be defined using numeric or dollar data types.K }To indicate a date field, enter '../../..' instead of the usual dots. For example: DATE ../../.."Pr}ess to continue. :*R+R}X This option will allow you move the fields around the screen to cu}stomize your layout.d To move from field to field, use the arrow keys. When you have reached the field to be moved,} "press to select that field.S Now you may use the arrow keys to move the selected field around the} screen.\ Fields are not allowed to overlap, so when you are moving the field it automatically skips over} the other fields.9 At any point you may press to return to the menu."Press to continue. }:*R+y*y:+OBD=y+4BOBD/SX$AOB@BE5A0y4BA9AAy4BAZAa}z4BAzz4BA`A{.zAA OB@B@BA-CSX%OBD5AOBD5Z ]z4B+OBA:BCB} |zluB"B"vBCBFB"B"K:7vu?y*A6AzOBAAA {}4@?+A~:B{uA Az CB:B 7{vu:B:BOB:BA-BA-vuOB:BB:B:B} .vuB B{+BB+&&˜ ' 4&0& 1&& *LU&D=7 VJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . }1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + }1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0}` ,0L,L,`޵` `Ȕ`ʔ惥u`}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + }. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  }L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u}uuhhhLr* +愵 ' + 'I 1 280/66&&&`}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 }30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 }11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@( }f(()))V)4440T5\5A1+1d5355&(6@6j6S1DD DDD##D(>D-lD2pD7D<DZDdDiDkDnDoDpDrDtE } E EE(E;ENEaEtEEEEEEEEEF=FXFqFF FFF&FNFSGXG]Gb%GggGl }sGq|GvG{GGGGH&H*HJH]HiHrHHHHHHHHH I IIII!I!I!I;I_ }IIIIIIII0J]JlJ JJJ J%J*K/'K45K9DK>wKCKHKMLR/LWL\LaLfMk]MpsMuM }zM5NKNYNNNOrOOOPEPPPP;QQQR$RmRRRRR S#S4SESHS PS}SSSS$ T)#T.=T3FT8dT=TBTDTFTLUV,U;UiUUUUUUUV/V;V;VCVlVVV}VVV*WjWnWnW{WWW W WW-XXXX-Y-Y:YLYsYwYYYYYZ Z8[CZ[Ri[Wz[\[f[w[z[[[[\ \ ;\ T\$ {\. \ \ \ \ \ \ ,]@ ^]J ]]]}]]]^^:^>^L^P^s^^^^^!_G_m_______` `)`^```"`'`,}a1a6ja;na@rahvarva|aaaaaaaaaaa b$b=bWbbb0mb5mb:rbDbNbXb]cb=cg}bcicjclcncocp dq2dv6d7dJdadeddddd6ePejeeeefAflffffg#g#}g ggkg g*g4g>g\gfgp hz h3hPhjh|hhhh$h.h8hBiL3i?i?i?iCiIiciciii}iiiiij #j6jEj ^j#j(j-j2j< kA1kFfkP|kZkdkikjknkk&l?l\lvllll}ll9m=mHm\mmmmmmn.nBnWnknn nnnno+o":o,:o@doJsoT}o^ohorow}o|oo pBphpDwpNwpXp]pbplpvppqq /q3qp7qz7qdYqnYqxeq~qqqqqqrr+}r:rMrkrrrrs8sbs"s,sXssssst+tdtt tt*t4t>tHtR u\Rufvuzuu}uuu vv0vCvRvgv|vvvvvvvv$v.v8v=wB%wL5wV!H{H!i{R!{\!{f!|p!`|z!|!|!|!!}!4}!L}!_}!}!}!}!}!}! ~!3~!K~"_~(#~2#~<#~F#~Z#~d#n#Bx#x#}#####.###逾# #X##ā##$0$4$"$˂,$6$;$F@$v$%&%ȃ'̃'̃$'.'8'B'}L'`')j'@t'i*y+y +y*+>>>>ʄ>焲>>>!>1>I>Y>g>>>? ?? ?х*?݅4?>?)H?2R}?j\?}f?p?z?????톬??hBjBmBwwBԇ|B:BBB툋B BYBBĉBB@BnPFtRFyUFZF_FVdF}fFًiFCnFhpFsFŌxFь}FFFHFsFFȍFFF]F~FFԎF&FTNZNZNmOzLO~VO~`OjOtO~OO }OOƏOϏPԏPԏP#P(P-P2P77PQC+;CNE>C+iy*;C>C;C(E+>C;C;E&}+>C;CNE+>C;CaE+>C;CtE+>C;CE+"Press to continue>C'}*+RO4E:7**AC@(DC@(GC@)JC@)MC@PC@SC@PC.SCRAAC"-AVC@(YC@\C@(_C@\CACDA(}\CACDB_C.A_C(_CDB_C_CDBYC AYC(BYCYCDBbCeChC&hC( hC( FkC)}F$VCkCkC-BF%eChC(FP*LO*nCFP***4VCD7MCA/C/CHI/CqC&*}/CtC&/C2C&/CwC&/CzC&/C}C&CC/CF$CHICHICHICHIkCqC(CkCtC+}(CkC2C(CkCwC(CkCzC(CkC}C(CCCkCtC(kC2C( kCqC( CCkC2C(,}F%kCzC(CkC}C(CCC@CC B/CF$MCGAIkCwC(H`m*CkCzC(kCzC( MCDC-}F%4VCVCD/ .PRGBC/C&D$,CwC(,CwC( HCC&D%VCD7(F$kCF%.}503 PRINT CHR$(125) 333"Enter Designer's NameCCC0u* "/}d* " >CIGCD/I 505 POSITION 12,1:PRINTACDPro0}gram designedACD510 POSITION 19,2:PRINTACDbyACDC(GCD/   515 POSITION C,3:PRINTACDGCD1}ACD"Enter Program Name CC C0u* "d* " 2} >C'KGCD=5K>C(GCD/   520 POSITION C,5:PRINTACDGCDACD525 POSITION 10,7:PRINT3}ACDYour selections are:ACDC CC POSITION 2,C:PRINTACD$File preparation.(first time only)4}.FACDCCCCC POSITION 2,C:PRINTACD$Enter new records..................EACDCC5}CCC POSITION 2,C:PRINTACD$Lookup records.....................LACDCCCC6}C POSITION 2,C:PRINTACD$Search records.....................SACDCCCCC POSITION 27},C:PRINTACD$Update records.....................UACDCCCCC POSITION 2,C:PRINT8}ACD$Delete records.....................DACDCCCCCYNC POSITION 2,C:PRINTACD9}$Verify global totals...............VACDCCCCC POSITION 2,C:PRINTACD$Exit progra:}m.......................XACDCPOSITION 2,19 :PRINTACD$Enter function by pressing the key ACDC ;}POSITION 2,21 :PRINTACD" To return to this menu press ACDCDCDCIC=37:IR=19:DF=27:GOSUB 3090<}0CCCIF R$=\CD OR R$=CHR$(27) THEN CCCCIF R$=ACDFACD THEN 1000:REM =}FILE PREPC IF NR=0 THEN 600CCCIF R$=ACDEACD THEN 2000:REM ENTER DATACC>}CIF R$=ACDLACD THEN 11000:REM LOOKUP DATACCCIF R$=ACDSACD THEN 12000:REM SEA?}RCH DATACCCIF R$=ACDUACD THEN 13000:REM UPDATE DATACCCIF R$=ACDDACD@} THEN 14000:REM DELETE DATACCC$RCIF R$=ACDVACD THEN 15000:REM VERIFY DATACCA} 600 IF R$=ACDXACD THEN 700:REM EXIT PROGRAM605 GOTOC 700 GR. 0:END}- ";WilB}l data be on the same disk as the program ?d*>C4S8C>CES8C*}- "You have C}room for a maximum of )C "records in your data file. "$Please enter total number of records "youD} want in the file ? CC C0u*GCD0;GCD:: #TGCD,GCD,)C =T)CGCD,1 REM MAX RECORDS=E})C2 REM FILE LENGTH=5C3 REM FILE NAME=JCJCD/ F4 CLR :REM SET UP DIM ARRAYS6 ML=2:GOSF}UB 31000:POKE 752,18 PRINT CHR$(125);ACD Running... 10 GOSUB 908C;U'220 GOSUB 21100:REM CHAG}NGE DISK MESSAGE#230 GOSUB 21500:IF NOT ERR THEN 220 40 GOTO 500CUC/CU$CwC(H}UCU% C& F$C1,kCC(CF%/V#31,28,31,30,31,30,31,31,30,31,30,31C ;V}-"Do yI}ou wish to enter dates in "merican format : mm/dd/yy or "uropean format : dd/mm/yy ?CC C J}0u*Hq*GCDA9GCDE9VCGCD5+85 DATA 31,28,31,30,31,30,31,31,30,31,30,31990 DIM MT(12):RES. 85:FOR I=K}1 TO 12:READ X:MT(I)=X:NEXT I90 REM}-  "Please wait working ...100 REM DIM STATEMENTSL}95 NF=/C:MX=)C:NG=C:RL=C-105 DIM INDEX$(MX*8+3),KEYWORD$(40),LINE$(20)110 BUF=99:DIM LABEM}L$(C),SP(/C),TYPE(/C),LRG$(40),SML$(40)115 DIM INFILE$(C ),OUTFILE$(C),PO(/CN}),PC(/C),PR(/C),PRT$(40),R$(40)/118 DIM DOT$(40),BLANK$(40),TI$(BUF),GLOBAL(NG)C<JCACO}/CU$CwC(CwC( sYCCU%16000 REM GLOBAL ADJUSTMENTS16900 RETURN:REM END GLOBALSP}CY33 3)}󠠠/CU$CwC(CwC( *GCD/i[*?CGCD,@?CC/C [CwC([C * T}CwC([C * CC*CC*U%JCD/[JCDC@? **JCD/CW/';\JCDJCU}ACC JCD9T\JCJCD/,BJCD={\JCCWAJCJCD/ DATA BJCJCD/CWB+ "C \& V} C\$You must enter a numeric value. C,]"Error - non numeric field enteW}red.C^]!Error - grand total field entered "Hit to continue.>C*+18000 REM PC CALCS ANX}D GLOBALS18001 TRAP 1825218252 REM CALC P.C.'S18800 GOSUB 16000:RETURNC/CU$CwC(Y}CwC( :^CCU%CL^hB*/CC&/CF$kCC(F%R333^CZ}/C^$CwC(CwC(^')}䠠"Enter the formula for pro[}gram"calculated field C."CCzC(CzC( F"FC="[L] and [RE\}TURN] to list fieldsC#CC0u*GCD=GCD= _Hq*GCD?=_hB*GCDL=GCDl= `C>*]}Ch*C)`CJGCC FC=GCGCD/ FC IC=FC:IL=C2C(:GOSUB ^}CwC(`22400CwC(`22300 :INFILE$(C}C(,C}C( )=PRT$^%/CF$kC_}C( a6PFkC FkC =VAL(INFILE$(kC}C(,kC}C( ))F%@?CCC0*`}GCGCD/-B*Ca+CaCaCCCC aC0*+*Ca+C ba}CC $bC0*+C=bCC CCWbC0*+Cbb+C0*+ "Cb b} +Cb Syntax ErrorCbMismatched ParenthesesCcBad character c}or functionC=cNon numeric field in formulaCbcError - Global FieldCcError - Undefind}ed P.C. Field "Hit to continue.@ (C\>C*@ (C " e}  " @?+CCkCCGCkCkCF =ad?GCkCkCF-=df}C+GCkCkCFF=d\GCkCkCF+=GCkCkCF-= dC+GCkCkCF*=GCkCkCF/= GCkCkCF^= dg}C+GCkCkCF0:GCkCkCF98GCkCkCF.= 6eGCkCkCF)=PeC+GCkCkCF(=jeC+GCkCkCh}FINT(=eCCC+GCkCkCFSQR(=eCCC+GCkCkCFABS(=eCCC+GCkCi}kCFEXP(=fCCC+GCkCkCFLOG(=AfCCC+GCkCkCFSIN(=lfCCC+Gj}CkCkCFCOS(=fCCC+GCkCkCFATN(=fCCC+GCkCkCFSGN(=fCCCk}+GCkCkCFCLOG(=gCCC+C0kCkCGCkCkCF0:GCkCkCF98GCkCkCF.= ggl}>?GCkCkCFE9g4kCkCGCkCkCF+=GCkCkCF-= gkCkC$*Cag>@?CkC C+m}C0kCkC$*C/C hCwC( hCwC(3hCwC(CCPhCwC(jhCn}C(CkC C+C0C0C0C0GCkCkCF0;GCkCkCF9< hCc+CGCkCkCF5o}05 kCkCGCkCkCF0;GCkCkCF9< i+CC GCkCkCF505 kCkC+PF*C 33p}3R)}󠠠/C^$CCwC(i CwC(iSCAlphaACwCq}(iSCDateACwC(jSCNumericACwC(#jSCDollar$ACwC(6j C@(CCCCr}^j)}󠠠"[?] and [RETURN] for help."[RETURN] for next opts}ion."Field #C" Field Type: SCD"Field Length: C2C(" Field Name: CCt}zC(CzC( F" Reject If: CC CGCA0u*GCD=kGCD?=kPF*Hq*GCD/kGCGu}CD/YCDBGCBCCwC(CkCGCFLENGTH=GCFVALUE= &lGCFNUMERIC=?lGC F Nv}OT NUMERIC=\lGCFCONTAINS=vlGCFINTEGER=GC F NOT INTEGER= l GCFNO ENTRY=l,JCw}lCVGCFLEN=lJCIF LENAkCGCFVAL=9mJC TRAP ????:IF VALAJC CWCkCp*CHmx}VC\mCVCJCD(R$)GCCETHEN CCCDCmCVGCFNUM=my}C GOSUB 22800:GCFNOT=mC GOSUB 22150: IF NOT ERR THEN CCCDCBnCz}VkC X*CWnVCknCVC SML$=GCCE:GOSUB 22900:IF ERR THEN CCCD{}CnCVC IF INT(IC)GCFNOT=n=GCFINT=o<>IC THEN CCCD|}C IF R$<>\CD THEN CCCDkCp*CoVCCoCVCoC}}oC IF R$CoC IF ICGCD THEN CCCDC SML$=GCCE:LRG$=R$:GO~}SUB 22700:IF ICGCCCF0 THEN CCCD "Error Message?CC C%0u*GCD=}pXCGCD=pPOS. 2,22:PRINT ACDGCDACD: ERR=1:RETURNCCC ERR=0:RETUR}N^%@GCkCkCF =YqkCkCzCCGCkCkCF<=~qCGCkCkCF==qCGCkCkCF>=}qCCq+GCkCkCF<>=qCGCkCkCF<==qCGCkCkCF>==rCCrGCD/kC+}rXGCGCD/ BGCD/kC &D$GC,C,CGC,C ,C FC&D%GCkCkC CGCkCkCF< =rGCkC}kC>=C"GCkCkCF= =rGCkCkC<>C"GCkCkCF> =sGCkCkC<=C"GCkCkCF<}>=8sGCkCkC= CGCkCkCF<==bsGCkCkC> CGCkCkCF>==sGCkCkC< CCkCkCkC}C?GCkCkCF =skCkCCkCGCkCkCF0:GCkCkCF98CtGCkCkCF0:GCkC}kCF98+tGCkCkCF.=GCkCkCF+= GCkCkCF-= dtGCkCkCF'=Ct.C@?+?C}&D$CCGCkCCkCCF/9t4CCCCkC&D%?CA uCGCCC F,CGCk}CC F,CERuCGCkCC F,CGCCC F, DkCkCC$*CCkC DCC C u}CCCC uCcuC uCCC(uCA vCCCCCC}GCkCCdWBGCkCCdWBGCkCCdWBGCkC ACDBGCkCkC/CGCkCkC/CGCkCkCACD}CC@?C+C @?+C@?+@?C+C +B?GCkCkCACDCCkCkCkC GCkCkCF=w8}CkCGCkCkCF'9%w8@?GCCACDBC+@?C Iw+ "C~wSyntax Error - Nonexistent testC}w"Test is only valid on alpha fieldsCw$Test is only valid on numeric fieldsCx$Test uses a c}omparison with a numberCHxTest requires a string valueCwxMismatched types on comparisonC}xBad Date - correct format is CAxmm/dd/yyCCExdd/mm/yyC  yBad value in co}mparison test "Hit to continue.>C* C@}-33"#You must now choose your }key field."Enter a number (1-/C, or 'L' to list"fields FCCC 0u*GCDL=GCDl= }zC>*TGCD=zGCF0;GCF9< 5zCGCD,CC/C Vz CwC(CwC( vz}: **C ( , )ACC}C(WCCC}C( WCCC4!"Field number out of rangeD "}%You must use a keyboard entered field"Hit to continue.>C*T2260 KEYWORD$=INFILE$CD}13120 IF OUTFILE$CD=INFILE$CD THEN 1316013140 KEYWORD$=INFILE$CD :GOSUB 20850CCtC(Cq}C( !|C&CqC(CtC( 19020 POSITION C ,5:PRINT ACDCCzC(CzC( FACD;19}030 IR=5:IC=CCzC(CzC( CwC(|:IL=C2C( :GOSUB 30000CwC(|:DIN=1:GOSUB }30000 19035 IF R$=\CD OR R$=CHR$(27) THEN RETURNCwC(4}!19040 GOSUB 22500:CwC(_}!}#19040 GOSUB 22000:IF ERR THEN 1903019050 GOSUB 22600:CwC(}!#19040 GOSUB 22100:IF ERR THEN 19030}19050 GOSUB 22400:CwC( ~!#19040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 22300: KEYWORD$=PR}T$19090 IF KEYWORD$<>INFILE$CD THEN 19140C~#CA~GCmm/dd/yyACE~GCdd/mm/yyA21}10 IF TYPE(N)=2 THEN PRINT ACDGCDACD(12270 PRT$=DOT$(1,IL):IF TY=2 THEN PRT$=ACDGCDACDCAx%2201}0 F2=VAL(R$(1,2)):F1=VAL(R$(4,5))CE%22010 F1=VAL(R$(1,2)):F2=VAL(R$(4,5))30530 IF DIN THEN PRT$=ACDG}CDACD:IL=8JCVCVCD/ FAJCD1C127 OPEN #1,4,0,ACDJCD.SCRACD9400 TRAP 440:RESTORE 15500:T}RAP 410:CLOSE #3:OPEN #3,4,0,ACDJCD.GLBACD450 CLOSE #3:OPEN #3,4,0,ACDJCD.IDXACD20030 OPEN #2},8,0,ACDJCD.DATACD20510 CLOSE#2:OPEN #2,4,0,ACDJCD.DATACD20610 CLOSE#2:OPEN #2,12,0,ACDJC}D.DATACD21530 CLOSE#1:OPEN#1,4,0,ACDJCD.PRGACD26010 CLOSE#3:OPEN#3,8,0,ACDJCD.IDXACD}26505 CLOSE#3:OPEN#3,8,0,ACDJCD.GLBACDC/CF$kCwC(kCwC(0CCF%13350 POS.} 2,22:PRINT ACDEnter 1-C to change field, '?' toACD+13410IC=0:GOSUB 22150:IF ERR OR IC<1 OR IC>C T}HEN 13600/CF$kCwC(kCwC(CCF% 12065 PRINT ACDWHICH FIELD TO SELECT ON (1-C},ACD:PRINT ACDOR '?' TO LIST)? ACD;'12100 TRAP 12140:X=VAL(R$):IF X<1 OR X>C THEN 12140} GOTO 320004bChC( P*N*nCP*$' 222"LOADING PROGRAM " PLEA}SE WAITRUN ACDD:CONVERT.BAS CJ}-  "Please wait working ...+}}CCC;CMCKeyboard entered fieldsACD>*C>MCProgram calculated fieldsACD>*}MCGrand total fieldsACD>*Cg>" to exit>C*+Cp?*Cp?*C}p?* ?C"MCDp?*p?*/CF$kCwC(CkCwC(D \?CkCzC(kCzC( ')p?*}CC"FkCCC"CkCzC(kCzC( FCU  F%+CCCC+?*}C}CC+"! to continue, to exit>C*;C?;CPPP+R}}E Now you must enter the formulas for your program calculated fields.S You may refer to a keyboard-ente}red field with 'F' followed by the field number.\ You may also refer to a previously defined program-calculated f}ield as 'F' followed by _the field number. For example, calculated field #16 may be made to depend on calculated fiel}d #15by referring to 'F15'."Press to continue. >C*}I You may u}se the operators +,-,*,/ for the four arithmetic operations,:as well as any numeric function listedin the Basic Manua}l.$ You may use parentheses as needed.R All referenced fields must be numeric or dollar. A typical expression mi}ght be:  F9=(F1+F2)*F3/F4"Press to continue. >C*R+R}a The }question 'reject if' will allow you to specify various kinds of tests to be made on enteredc data before it is accepted} into the data file. You may use up to seven tests on each field.X For each test, you have the option to en}ter an error message to be shown if the data you enter is not accepted.cBelow are some examples of tests you may} use. Refer to the manual and user notes for full details. NUMERIC TEST$Ԡ Mus}t be whole number"Press to continue. >C*} ALPHABETIC TESTS"Ⱦ} Length must be under 7%ȼ Length must be at least 5$Ƚ Length must not equal 10#ž} Value must be 6 or less$ż Value must be at least 8"à Entry must be alpha$Ԡ}à Entry must be numeric:Ӡâ Entry must not contain 'ABC' GENERAL T}ESTS"Ϡ Something must be entered" Entry must not equal zeroG THE SIGNS <,>,<=,>=,= }AND <> CAN BE USED INTERCHANGEABLY IN THE TESTS"Press to continue. >C*R+JC D :MARKER.EXEAJC}bCWCjOJCVCDAJCJCD/ .SCRBO?nC4JCD7nCTnCnC4@?+ 3  3"}PLACE"CODEWRITER DISK "IN "DRIVE #bC "PRESS " WHEN READY>C} 3  3"PLACE" DATA DISK IN"DRIVE #eC "PRESS " WHE}N READY>CMCD/+MCD/&D$MC,CE5<MC,C,CMC,CE5 -C&D%+GCD=L+GCD/F$GCkCkCF}a:GCkCkCFz8GCkCkCGCkCkCF5 -CF%+GCADC luCC"_CCFC}C"K:7vu?y*D6D"GCADD G4+D~DZuD}oDD D Dz D" CD vuDDGCDD-BD-vuGCDBDD }.vu D  D+ D D+& Entry must not equal zeroG THE SIGNS <,>,<=,>=,= ?D1:ASDF.SCRvu D  D+ D D+& Entry must not equal zeroG THE SIGNS <,>,<=,>=,=