@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}}}AS |||DDOS DOSDOS SYS }}}} *}CDOS SYSB#SEC35 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}&p<7=7q<9J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L -}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` ' E}?@3 D MOVSCREERALINESEPOKTEMPMBASPL2BREAPRINTPEEK /}AQ @ SAVE "D 0}:AUTORUN.BAS;@I,+]A 'A9AKAR@]@ 1}@AR@116.'hhhhhhh֑`%%6-F:@,%F:@,$AV(/A( 2}/6-?:C:,<<%@<A Y,2A@7 AP<&&;@@,;@,;@@,F-@@# 3}K#M6-@P-@@BU Z('@"P:'@,(6-@d 6. |6.| nC- 4}@# ,-@7@#1 C-@@#s_"@!-@#( :-@8@#A M6 5}-_-@@#x"4AEy:*-$@%@F@P6@6B2I: z4 A% 6}}-@B:,0B2I$@%@F=7<,4 _22@ 7} A5G%2@@@G2@@@@!-%@@#! 7<, 8}G%2G2@ 6. -@AP KAi 9}'Ap9AqKAr6. D:MENU.EXEA-@PAU@+B2I :}/ AB2wa +@-@@7 @ WELCOME TOI-@@a @ FILEWRITER.- ;}@@. @ غ6-?:A6}served, , ,LIST "D:INTRO.LSTCONVERTED BY JOHN BLUME!!DYNATECH MICROSOFTWARE INC.;@%, AU ?} AUp6-F:A,&@6-AV$+%@+%@++6-?:C:,<%@< @}%@<A,II6-?:C:,<BBy<<AY<@F<B2w<@<A<,?%A?6-?:C:,< A}%A<%A<A(,?%A@?6-?:C:,<%A@<%AA<A(,B2W@A# B}@6-A((6-?:C:,:,7 $0,0,60,60,60,60,255,255y)6-F:@,&A(& )$"y@B7t}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . F}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u G}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* ) H} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + I}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' , J} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.!}^^RPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMDL}OTMDIMLENABLEINFILEGLBFFILTDIFOUNLRGSMLNOPCOLCOLSMEXSMLREXLRKEYLOGLOBALLKEYWORDMTLPAGFKESCM}REELINMSCREEXLP@ @ N} @@@O} !"#$%&'()*+P},-./0123456789:;Q}@<=>?@A@BCDEFGHIJR}KLMNOPSAVE "D:CONVERT.BAS.;@@,6-F:Ai,.6-F:Ap,$S};@,$6. D :MARKER.EXEO67@<@,.=:,4-@F:AS,K67,.>:F:AS%,,O 67B:,&@T},..PRG B! A()9 Bq B)-@@"9  Printing...*2-@!U}6.2-@8+% 1!A'%6-&A(,67%@,.>:,-   3. / B BV}0$x B(A'} B A :@%68@,-@:68@,-@-@W}@@@@ 68,-68%@,-8,%%%68%@X},-8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@$$67Y}8,<8%@,&@,. @h6-6-|* 6. 67@@,.*67@,.$ 6. Z}67,.$67@,."A@I #BU A"@I@@ D:EXP.GLB[}-@" A3@ 6-A:,6-8%@,&8,""8,&@B$B#$$67\}8,<8%@,&@,. A5''678,<8%@,&@,.0X  A6-@5@]}5@@ D:EXP.IDX@67,. 6-% A`56- A56-A:7$@^}%@,, B* 6..67@@,.*67@,.$@ B` Be5 +_}6-@+AR@5 B .-@@.(Your selections are:>-@@ > $File p`}reparation.(first time only).F>-@@>($Enter new records..................E>-@@>($Lookup a}records.....................L!>-@@>($Search records.....................S&>-@@>($Update rb}ecords.....................U+>-@@>($Delete records.....................D:>-@@>($Enter func}ction by pressing the key ?<-@@!<(" To return to this menu press D16-@76-@'6-@'d}1 B F4)4>:@',AH4FAI"AK4EA M4LBOe}4SB Q4UB0S4DB@X4XA] A% B B% Af} + A % D:LINK.BAS BFILE PREPERATION ROUTINEm +'0@@g}A0@@[0@@@mAR@9-@@9 This option will erase all youh}r5-@@5 previously entered records.=-@@= #To begin file preparation press =-@i}@= #To exit file preparation press ?-@@? %Please enter choice/press RETURN ۠ 16-@2j}6-@7'6-@1 B 4CA4XA A5LV? >:A%,"-@k}@? This will take some time` Bot A##@@E:A l}`a (}-@@2 Your file is full.D-@@a Hit to continue.#6- Bm}# A# 6- B }8AR#-@8BEGIN DISPLAY LOOP 8,!@A!0n}*/-8,8,/ 78,<8%@,&@,48,"A!0>((IF TYPE(N)=2 THEN PRINT "mm/dd/yy"H>8,@o}*8,> 7@<8%@,&8,,R AR\6-aH-@@"H &@#p} records on file f-@p''8, @)8,!@A!u4-@@#4 Hit q} to return to menuz A4A#$$678,<8%@,&@,. 6-@ B r}BPN-@@"+ Is this correct? 76-@"C6-@N6-@:Y, B4A#!6-@s}4N! B3(A#KEYWORD$=INFILE$(1,8)! BP B! B=-@@"= # t} TO print to continue,F:B2y,"@" @@, A"u F:B2y,@A"v6-%@u} A E@ A@B% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8v}%@,&8,F'6-6-"@' BH 4$I BJ3!@3&@B B!w}B!LAN!@* A%R A%@@$TAV''B%B&B$B#x}X$YM OR L OPTION\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`y}  ($bD7<,4m)7<,4MA6-A:78,<8%@,&@,,%D$d,)6-A:78,<8%@,&@,,&,$z}*LOOKUP RECORD+9#@@E:/6-9 B + B(A+=-@@#= {}"Hit to print, to exit +-6-@ B-"@B@*+"@B@4+ @@PRINT|} SCREEN>+ B B0.@ 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 / }-@@!/>' WHICH 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/22PRT$=DOT$(1,IL):IF TY=2 THEN PRT$="mm/dd/yy"//   /  SMALLEST VAL}UE 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 LARGEC04B%H0 6-6.6-R0-@&@W0 >:A%},\06-@$6-&@f0 B Bp0"B%0u0"@B$qz0"@B$}0$$6.78,<8%@,&@,04B$@02)*4B%p04B%003)*4B%p0 } B%00$$6.78,<8%@,&@,04B$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 RECORD}0c-@@"= # to print, to continue,O-@@#c  to exit16-@ B}1-"@ @@# B- B%@1"@6-1 $1@ A1! 6-6-"@! B}1-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 REC}ORD ROUTINE2##@@E:2 BGET RECORD2(B1p2 B3EDIT RECORD2B}12 6. BP3j-@@"> $Hit to return to menu, or P-@@#j to continue edit}ing.3)6- B)4B1p"3 B,3 B0@63 6-6-%@@3..IF OUTFILE$(1,8)=INFILE$}(1,8) THEN 13160J3 B `T3''KEYWORD$=INFILE$(1,8):GOSUB 20850h3 B Br3@ A3HAND}Y DANDY RECORD EDITOR3 6.6-4 BCALCULATE PC'S4 }4a0@@70@@}Q0@@@aSET UP SCREEN!4 BPPRINT INFILE$&400PRINT "Enter 1-?? to change field, '?}' to"04++ " list, 'p'rint record or 's'ave. :416-@#6-@4'6-@1 B?4 BD4 4S)4}s6-@ $I4/4P)4p @@% B/ B3PN4 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 B3 } 5*5R-@@"< !ĠĠ - Hit H6-R B45 B3P6DELETE RECORD6}##@@E:6 BTO GET RECORD6(B@6a-@@#4 Sure you want to delet}e? @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 GLOBALSB BB[-@@", Printer not ready.>-@@#[ Hit t}o continue.B+-@@"!6-+ BB B$8JRECORD SEARCH UTILITYBJ6- BD}J6-GJ+-@@!+ Please enter key.oJ+-@@!+  qJ 6. BGET }KEYtJ(B`~J! 6-6-%@! BJ BJ$$IF R$<>INFILE$(1,8) THEN 19140J BPPRINT IN}FILE$J'-@@#'  Is this 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 PREP ROUTINE*N# 6. 67,.#67@,.4N 6.6.9N@>NOPEN #2,8},0,"D:EXP.DAT"CN-@HN@RNBUILD INDEX\N6-P:'@',fN6-&$@'zN6-%@dN}6-%@dN6-%@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:},N67B:,%@,.>:,N67B:,%@,.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!  Hi}t to continue.-6-96-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-@:, >:,w"Bpw&6-%@&7<,0/Bpw.6-%@$*}@@1. Bpw) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@wD}67%@,.'AR:*@@0D BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CO}NSOLE 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-&@2y B y -6.>:, $y]@)0@@C0@@]0}@@@"y$|y--@@"- 7@<@5,y$}"A" >:@(, }"A}B" >:@(,}'BB '@}" B'P"AR};@ ,}-@}F:AS,}67,.>:F:AS%,, }X67B:,&@,..PRG" }4AR@F-@@T Saving }X} }-@#}TT 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.<}ARd}O-B2HB2Q#' 9B}2w?(}E"O B#e} B$f} B# B!g}A +'0@@A0@}@@h}B-B (i}=-@@= # CODEWRITER is n}ow generating thej}d-@@d Jprogram you designed. It will take about five minutes. The program willk}=-@}@= #be stored automatically on the datal}.-@@. disk under the name:m}/"-@!u&B:,'@}@ / 7@,n}<-@@< " Your program will begin listingo}9-@@9 on the screen in a} few minutes.p}MERGE GENERATED CODEq}&,~ 'INSERT DATA DISK' MESSAGE-~A +@'0@@@A0@}@@.~(-@@( @PLACE/~/-@@/ @ PROGRAM DISK0~/-@@}/ @ IN DRIVE #1~0-@@0 @ PRESS 2~--@@- @ WHEN READY3}~6-@ B4~$~~ B$~6-~+@+@@~@6}-!@~@~ B$p }-@@7 Working please wait ...I-@@^(Memory} scanner :pAR@%%6-F:A6,%AV$F:A7,!!6-F:,%AV$F:%@,6-F:%@,- }@"@( 6-%"B `B'b B'R86-P:+%@,'AV,86-%@&+$AV,R }#%@A(7%@@CA@OAAR$ D:CONVERT.BASRNIITIINDEXBUNMDa&OC=7PhOJ&&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@6j6S1CCC CCC#C(D-HD2LD7dD<vDZwDdxDixDkDnDoDpDrDt/}DDDD4E7E7EiEiEEEEEEFF*F LF}FF&FNFSFXF]FbFgGlG4GhGG0}GGGGGHH"HBHFHJHJH\HHHHHHHHHII;I>I^IlI{IIII %1}JFJ\J |J%J*J/J4J9JJ KKnKKKKKBLJLLLLLL LLMDMfM$|M)M.M2}3M8M=MBNDOeOOOOOOOP6PNPWPPPPP3}PQQ Q "QXQQQ@RVRRRRRRRRS*S?SoS {SSSST ,T%_T*{T>TCTR4}TWT\TfUw+UzCUGUXU\UnU nU U U$ U. U U U U %V YV V@ VJ VVVW%WAW`WrWW5}WWWWWX'XWXXXXX Y#Y:Y>YQYsY }YYYY Z"$Z'[Z,_Z1|Z6Z;Z@ZhZrZ6}|ZZZZ[[-[C[N[R[Z[h[[[[[0[5[:[D\N\XE\]o\b\g\i\j]l$]n-]oA]pi]q7}]v]]]]]]] ^\^^^^^_J_u____!`L`x``` `` `*a4-a>Ca\8}Maf\aplazaaaaaaaa$b..b8DbBtbLbbbbbbbbbbbcc1cJcfc 9}ccc c#c(d-8d2Od<ldAdFdPdZddeiejen?e\eeeeeff#f7fZffffff:}f g5g^g~ggggg h h,hBhZhshh"h,h@hJhTh^hhhr iw&i|Ai[ijiiiDiN;}iXi]jbjljv+jTjgjvj jjpjzjdjnjxjjjkk4kQknkykkkkkkl?l<}mlll"l,lXllm*m2mbmmmm mm*m4n>-nHMnRn\nfnzno'o5oJolo|oo=}ooooooppppp$$p.$p8Cp=epBpLpVp`pepjptp~qEqzqqqr=rjrr@r>}JrTr^rhrrr|s.sDsfstssssssstt t t Ct: GtD xtN t4!t>!tH!tR!u\!4uf!mup!uz?}!u!"v!Jv!v!v!v!v!v!w!w!=w!Uw!hw!w!w"w(#w2#w<#xF#xZ#0xd#cxn#xx#x# y#By#By#Ty#`y#y#y#@}z#Hz#z#z#z##{#Y{#Y{${${${"$*|,$]|6$a|;$|@$|$}%}&%'}'+}'+}$'?}.'C}8'R}='n}B'}G'}j'}o'*~t'A~y'R~~'XA}~'r~'~'~'~'~'~'+'A'U'r(( (((.(F*G +G*+w>x>x>>>>؀>>>>2>J>XB}>r>|>|? ????Ɓ? ?*?4?>?OH?XR?\?f?p?z??Ȃ?Ԃ?ₘ???2?HhBIjBNmBwB |BqC}BքBB$B@BBхBBTBwBPFRFUFZF#_FdFfFiFznFpFΈsFxF}F&FSFFFԉFF(FSFFD}F⊹F F]FNNNOLOVO`OjOϋtOӋ~OًO닒OOOP P P#P-(PH-PV2Pn7PaC(CD/   520 POSITION aC,5:PRINTCDCDCDdCgC0UCKW}gC POSITION 2,dC:PRINTCD$Verify global totals...............VCDdCdCgCgCgC POSITX}ION 2,dC:PRINTCD$Exit program.......................XCDjCDgCUUCKgCIF R$=CDY}VCD THEN 15000:REM VERIFY DATAgCgC}- ";Will data be on the same disk as the program Z} ?d*BLBBLB*}- "You have room for a maximum of B "records in your [}data file. "$Please enter total number of records "you want in the file ? ^C[C XC0u*CD0;C\}D:: MCD,CD,B MBCD,1 REM MAX RECORDS=B2 REM FILE LENGTH=B3 REM FILE N]}AME= C CD/ F4 CLR :REM SET UP DIM ARRAYS6 ML=2:GOSUB 31000:POKE 752,18 PRINT CHR$(125);CD Ru^}nning... 10 GOSUB 90BN'220 GOSUB 21100:REM CHANGE DISK MESSAGE#230 GOSUB 21500:IF NOT ERR THEN_} 220mCOpCB O$pC7C(:OmC O% sC& OF$vC1,+CsC(vCOF%O#31,28,31,30,31,30,`}31,31,30,31,30,31mC O}-"Do you wish to enter dates in "merican format : mm/dd/yy or a}"uropean format : dd/mm/yy ?^CXC [C 0u*Hq*CDA9CDE9NPmCCD5+85 DATA 31,28,31,30,31,30b},31,31,30,31,30,31990 DIM MT(12):RES. 85:FOR I=1 TO 12:READ X:MT(I)=X:NEXT I90 REM}-  "Pleasec} wait working ...100 REM DIM STATEMENTS95 NF=B:MX=B:NG=UC:RL=CC-105 DIM INDEX$(MX*d}8+3),KEYWORD$(40),LINE$(20)110 BUF=99:DIM LABEL$(@C),SP(B),TYPE(B),LRG$(40),SML$(40)115 e}DIM INFILE$(CC ),OUTFILE$(CC),PO(B),PC(B),PR(B),PRT$(40),R$(40)/118 DIM DOT$(4f}0),BLANK$(40),TI$(BUF),GLOBAL(NG)yC< CA|CB O$pC7C(pC7C( R|C|C O%16000 REM Gg}LOBAL ADJUSTMENTS16900 RETURN:REM END GLOBALS|C*S33 3)}q} B'DOS SYS#SEC35 BAD,D1BOOT B.FILEWRT BKCONVERT BASB CODEGEN EXEBMENU EXEBMARKER EXEB/,AUTORUN SYSB O$pC7C(pC7C( Sz CRCpC:C(pC:C( FA)}䠠r}"# Enter the field to accumulate in" CD." Please enter 1 to B or 'l' tos}"list fields. F..^CXC[CCA0u*CDL=CDl= TC>*CD/T*?CCD,@?t}CCB TC7C(UC * C7C(+UC * CpC*CC* O% CD/XU CDu}C@? ** CD/CW/'U CD CAyCyC  CD9U C CD/,B CD=U CyCWA C CD/ v}DATA B C CD/CWB+ "C %V& CYV$You must enter a numeric valuw}e. CV"Error - non numeric field entered.CV!Error - grand total field entered "Hit x} to continue.B*+18000 REM PC CALCS AND GLOBALS18001 TRAP 1825218252 REM CALC P.C.'S18800y} GOSUB 16000:RETURN|CB O$pC7C(pC7C( W|C|C O%|CWhB*BC&BOF$+Cz}C(OF%R333WCBW$C7C(C7C('X')}{}䠠"Enter the formula for program"calculated field C."RCC:C(C|}:C( F"FC="[L] and [RETURN] to list fields^C#XC[C0u*CD=CD= :YHq*}}CD?=QYhB*CDL=CDl= sYC>*Ch*CYgCJGCgC FC=CCD/ F~}gC IC=FC:IL=CB(:GOSUB C7C( Z22400C7C($Z22300 :INFILE$(C=}C(,C=C( )=PRT$W%BOF$+CC( |Z6PF+C F+C =VAL(INFILE$(+C=C(,+C}=C( ))OF%@?CCC0*CCD/-B*C[+C[C-[CCC}C C[C0*+*CZ[+Ch[CC [C0*+C[CC CC[C}0*+C[+C0*+ "C\ +C\ Syntax ErrorCE\}Mismatched ParenthesesCo\Bad character or functionC\Non numeric field in formulaC\}Error - Global FieldC\Error - Undefined P.C. Field "Hit to continue.@ (C\B}*@ (C "  " @?+CC+C}CC+C+CF =]?C+C+CF-=]C+C+C+CFF=]\C+C+CF+=C+C+CF-=  ^C+}C+C+CF*=C+C+CF/= C+C+CF^= \^C+C+C+CF0:C+C+CF98C+C+CF.= ^C+C+}CF)=^C+C+C+CF(=^C+C+C+CFINT(=^CCC+C+C+CFSQR(=_CCC}+C+C+CFABS(=J_CCC+C+C+CFEXP(=u_CCC+C+C+CFLOG(=_CC}C+C+C+CFSIN(=_CCC+C+C+CFCOS(=_CCC+C+C+CFATN(=!`CC}C+C+C+CFSGN(=L`CCC+C+C+CFCLOG(=x`CCC+C0+C+CC+}C+CF0:C+C+CF98C+C+CF.= `>?C+C+CFE9`4+C+CC+C+CF+=C+C+CF-= }a+C+C$*XCa-a>@?C+C C+C0+C+C$*XCBlaXC7C(aXC7C(}aXC7C(XCCaXC7C(aXCC(C+C C+C0C0C0C0C+C}+CF0;C+C+CF9< .bXCc+XCC+C+CF505 +C+CC+C+CF0;C+C+CF9< tb+XCXC C+C}+CF505 +C+C+PF*C 333R)}󠠠BW$C}C7C(c C7C(1cCAlphaAC7C(JcCDateAC7C(fcCNumericAC7C(cCDollar}$AC7C(c C@(CCCCc)}󠠠"[?] an}d [RETURN] for help."[RETURN] for next option."Field #C" Field Type: CD"Fiel}d Length: CB(" Field Name: RCC:C(C:C( F" Reject If: ^CXC [CCA0u*}CD=eCD?=ePF*Hq*CD/?eCCD/CDBCBCC7C(C\eCCFLENGTH=C}FVALUE= eCFNUMERIC=eC F NOT NUMERIC=eCFCONTAINS=eCFINTEGER=C F }NOT INTEGER= f CFNO ENTRY=f,JC7fCVCFLEN=Zf CIF LENA+CCFVAL=f C} TRAP ????:IF VALA C CWC+Cp*CfVCfCVC CD(R$)CCETHEN C}CCDC gCVCFNUM=5gC GOSUB 22800:CFNOT=^gC GOSUB 22150: IF N}OT ERR THEN CCCDCgCV+C X*CgVCgCVC SML$=CCE}:GOSUB 22900:IF ERR THEN CCCDC,hCVC IF INT(IC)CFNOT=Zh=CF}INT=sh<>IC THEN CCCDC IF R$<>CD THEN CCCD+Cp*C}hVCChCVC iC&iC IF R$CAiC IF ICCD THEN C}CCDC SML$=CCE:LRG$=R$:GOSUB 22700:IF ICCCCF0 THEN CCCD} "Error Message?XC[C ^C%0u*CD=jXCCD=+jPOS. 2,22:PRINT CDCDCD:} ERR=1:RETURNCCC ERR=0:RETURNW%@C+C+CF =j+C+CzCCC+C+CF<}=jCC+C+CF==jCC+C+CF>=kCCk+C+C+CF<>=4kCC+C+CF<==QkC}C+C+CF>==nkCCykCD/+CkXCCD/ BCD/+C D$CBBCB B FCD}%C+C+C CC+C+CF< =lC+C+C>=C"C+C+CF= =?lC+C+C<>C"C+C+C}F> =mlC+C+C<=C"C+C+CF<>=lC+C+C= CC+C+CF<==lC+C+C> CC+C}+CF>==lC+C+C< CC+C+C+CC?C+C+CF =*m+C+CC+CC+C+CF0:}C+C+CF98CbmC+C+CF0:C+C+CF98mC+C+CF.=C+C+CF+= C+C+CF-= m}C+C+CF'=Cm.C@?+?CD$CCC+CC+CCF/9-n4CCCC+}CD%?mCAnCCCC F,CC+CC F,mCEnCC+CC F,CCCC F,C+C+}CC$*CXC+CCCC C nCCCC oCc'oC 5oC}CsC(JomCAloCCCCCCC+CCdWBC+CCdWBC+CCdWBC+C CDBC}+C+C/CC+C+C/CC+C+CCDCC@?C+C @?+C@?+@?C+C +B?C+C+C}CDCvC+C+C+C C+C+CF=ep8vC+CC+C+CF'9p8@?CvCCDBC+@?C p+ "}CpSyntax Error - Nonexistent testCq"Test is only valid on alpha fieldsCEq$Test is only }valid on numeric fieldsCzq$Test uses a comparison with a numberCqTest requires a string value}CqMismatched types on comparisonCrBad Date - correct format is mCArmm/dd/yyCmC}E=rdd/mm/yyC jrBad value in comparison test "Hit to continue.B* C@}}-33"#You must now choose your key field."Enter a number (1-B, or 'L' to list"}fields F^C[CXC 0u*CDL=CDl= fsC>*TCD=tsCF0;CF9< sXCCD,}XCXCB s XC7C(XC7C( s: **C ( , )ACXC=C(WCCXC=C( WCCXC}4!"Field number out of rangeD "%You must use a keyboard entered field"Hit to continue}.B*T2260 KEYWORD$=INFILE$CD13120 IF OUTFILE$CD=INFILE$CD THEN 1316013140 KEYWOR}D$=INFILE$CD :GOSUB 20850XCC4C(C1C( !muXC&C1C(C4C( 19020 POSITION XC ,5:PRINT} CDRCC:C(C:C( FCD;19030 IR=5:IC=XCC:C(C:C( C7C("v:IL=C}B( :GOSUB 30000C7C(Jv:DIN=1:GOSUB 30000 19035 IF R$=CD OR R$=CHR$(27) THEN RETURNC7C(}v!19040 GOSUB 22500:C7C(v!#19040 GOSUB 22000:IF ERR THEN 1903019050 GOSUB 22600:C7C(}w!#19040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 22400:C7C(hw!#19040 GOSUB 22100:IF ERR} THEN 1903019050 GOSUB 22300: KEYWORD$=PRT$19090 IF KEYWORD$<>INFILE$CD THEN 19140mCx#m}CAxCmm/dd/yyAmCE0xCdd/mm/yyA2110 IF TYPE(N)=2 THEN PRINT CDCDCD(12270 PRT$=DOT$(1,IL):I}F TY=2 THEN PRT$=CDCDCDmCAx%22010 F2=VAL(R$(1,2)):F1=VAL(R$(4,5))mCE y%22010 F1=VAL(R$(1,2)):}F2=VAL(R$(4,5))30530 IF DIN THEN PRT$=CDCDCD:IL=8 CCCD/ FA CD1C127 OPEN #1,4,0,C}D CD.SCRCD9400 TRAP 440:RESTORE 15500:TRAP 410:CLOSE #3:OPEN #3,4,0,CD CD.GLBCD450 CLOSE #3:O}PEN #3,4,0,CD CD.IDXCD20030 OPEN #2,8,0,CD CD.DATCD20510 CLOSE#2:OPEN #2,4,0,CD CD}.DATCD20610 CLOSE#2:OPEN #2,12,0,CD CD.DATCD21530 CLOSE#1:OPEN#1,4,0,CD CD.PRGCD}26010 CLOSE#3:OPEN#3,8,0,CD CD.IDXCD26505 CLOSE#3:OPEN#3,8,0,CD CD.GLBCDvCBOF$+}C7C(+C7C({vCvCOF%13350 POS. 2,22:PRINT CDEnter 1-vC to change field, '?' toCD+}13410IC=0:GOSUB 22150:IF ERR OR IC<1 OR IC>vC THEN 13600BOF$+C7C(+C7C(]|vCvCOF% 1}2065 PRINT CDWHICH FIELD TO SELECT ON (1-vC,CD:PRINT CDOR '?' TO LIST)? CD;'12100 TRAP} 12140:X=VAL(R$):IF X<1 OR X>vC THEN 12140 GOTO 320004"C(C( ?}P*N*.CR}P*$'OC@ p}pp " | Loading Program Please Wait. |C"-A "  " }"POKE 764,12:LOADCD D:CONVERT.BAS"RUN'* OvCJ } DISK ERROR vCPROGRAM STOPPED AT LINE 10120vCJC@(C@ C@ChJhhhȑh`AC'h}hhhhhh֑`AC $CCC-C%Cj CCCC}CCD.CCJCCD.C/.JOF$C+CCCD.C+CC+}CJOF% OF$+COF%oOF$CCD.CD.C+C< JOF%@`+}}  "Please wait working ...+}[CXCCBC CKeyboard entered fieldsACC}>*C؀+C> CProgram calculated fieldsACC>*C+ CGrand total fieldsACC>*CJ}+CX>" to exitB*+XCp?*C+[Cp?*C+[C?p?*C+ ?}[C" CDp?*C p?*C+BOF$+C7C(C+C7C(C \?XC+C:C(+C:C( 'O}p?*COP+XC[C"F+CXC[C"RC+C:C(+C:C( FXCU  OF%+[C[CXC[C}Ȃ+?*CԂ+[C}CC+"! to continue, to exitB*B2?CB}HC+R}E Now you must enter the formulas for your program calculated fields.S Y}ou may refer to a keyboard-entered field with 'F' followed by the field number.\ You may also refer to a previousl}y defined program-calculated field as 'F' followed by _the field number. For example, calculated field #16 may be ma}de to depend on calculated field #15by referring to 'F15'."Press to continue. B*}}I You may use the operators +,-,*,/ for the four arithmetic operations,:as well as any numeric fu}nction listedin the Basic Manual.$ You may use parentheses as needed.R All referenced fields must be numeric or }dollar. A typical expression might be:  F9=(F1+F2)*F3/F4"Press to continue. B*R}+R}a The question 'reject if' will allow you to specify various kinds of tests to be made on entered}c data before it is accepted into the data file. You may use up to seven tests on each field.X For each t}est, you have the option to enter 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 TES}T$Ԡ Must be whole number"Press to continue. B*} ALPHA}BETIC 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 'AB}C' GENERAL TESTS"Ϡ Something must be entered" Entry must not equal zero}G THE SIGNS <,>,<=,>=,= AND <> CAN BE USED INTERCHANGEABLY IN THE TESTS"Press to continue. B}*R+ C D :MARKER.EXEA C"CWCjO CCDA C CD/ .SCRBO?.C4 CD7.CT.C.C4}@?+ 3  3"PLACE"CODEWRITER DISK "IN "DRIVE #"C "PRESS }" WHEN READYB 3  3"PLACE" PROGRAM DISK" IN DRIVE #%C "}PRESS " WHEN READYB CD/A+ CD/D$ CBE5v CBB CBE5 -CD%+C}D=+CD/OF$C+C+CFa:C+C+CFz8ԍC+C+CC+C+CF5 -COF%+CAC^C luXC}[C"C^CFXC[C"K:7vu?y*C6C\CACC 4}+C~CuCCC C Cz C" ^CC юvuCCCCC-BC-vu}CCBCC .vuC C?+CC+&CCCC F,C+C+aL&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``!}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS"}&?|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 + '. . . }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@6j6S1BB BBBZB_BdBnBsBxBC:CbCCCCD>DTD}jDDDD,D1D6D@DJETE^3Eh7EmMErYE^E^EvE{EE E EEF&F+&F0FF5LF:XF?cFXgF]gFb}FgFlFqFvF{GG9G=G=GAGhGlGGGGGGGH HH5HEH\HlHwH{HHHH}HHHHH2IRIrIIIII$J8JaJJJJJJK"K;KOKSKWKiKKKKKK}LMLLLLLLM'M3MYMZMkM|MMMMMMMMMMNNN NN&N0N7N}BN \N`NLnNVxN`NjNtN~NNNNNOO3O8OLO`OlO|OOOOO PPP #P'P3P(}?P2LP<mPFPPPZPdPnPxPQ(Q6QKQ[Q_QsQwQQQQQQQQR@ RE-RJ;RT]R^aRhlRr}}RwR|RRRRRRR,S:SLSXS\SjSxSSSSS4S>SCSHSMSR TpTu-Tz=TMT]T^T}^TsTTTTTTUU"U JU \U hU$ ~U& U. U8 U= UB UD UG UL VQ .VV =V[ TV` lVe }Vj Vl Vo Vq Vt} Vy W~ W 8W RW W W W W W W W X X BX NX hX X X X( X2 X< YF 0YP JYZ NY UY jY Y Y Y }Y Y Y Y Z &Z *Z LZ PZ" ^ZT bZY bZ^ }Zb Zc Zh Zr Zw Zx [| [ [ [ *[ +[ +[ U[ [ [ [ \ 4\ c}\ \ \ \ ] ] +] 3] 3] D] ] ] ] ] ] ] ] ] ^ &^ 8^ R^ X^ a^& m^' v^( ^) ^0 ^: ^D ^ ^} ^ ^ _ _ _ _ !_ !_ +_ 8_ B_ T_U_U_f_w_____ ``#`#`'`9`H`Q`]```}``"`h`r`|````aaaaa'aQayaaaaaaaaaabb(bBbXb}^bpbbbbbbbbbbccc)c:cRc`cxccccccccdd5dLdfPdgP }dhTdkZdlldmwdndodpdzdddee4e+mH+5mR+Gm\+`mf+pmp+mz+m+m+m+m+$}n+ n+Vn+hn+n+n+n+n,n,n,n,n,n,o,o.o.o.2o.Eo/\o/qo&/o0o0o0o2o2o2,p2Lp2p2p27q%}2Uq2{q2q20r2>r2gr2r2,s2rs3s 3Ft3t3t3t3u3Vu"3u'3u,3 v132v63v;3v@3ZwB3wE3w6w6w6x6x6x6y&}6qy6y6y6z:z:zhBzrBz|BzB%zB8zBUzBmzBzBzBzBzBz0uz:uzDuzNu{Xu {bu{lu0{vu>{uN{u_{u{u{u{u'}{u{u{u|y|y/|?|(}'**A)} R 3 33""Your choices are as follows:"Ed*}it Screen ...............E"Change Screen .............C "Load Screen ...............L "Save Sc+}reen ...............S"Exit to Main Menu..........X" Enter your choice/press A#A,*,}AEAe TDACAc jDALAl D *dASAs DAXAx D4-}K:7Ay*A6ADAA AAAZEhAaAzEhAA3Er6A.}A"A-AA64+ 333R"____________________" CODEWRITER"/}SCREEN EDITOR"____________________+" PRESS START "TO"CONTINUE "____0}________________y*AAcF+5 333"____________________"NO SCREE1}N IN MEMORY "____________________" PRESS START "TO "CONTINUE "___________2}_________0AAB*"BD*B B GAAA2GBA B( 3}BBGB.5GB*BGBB.5GAB( B*B/5HB#5B4}$5 5HB.5EHAB( BAB( AB( B AB(*BHBH*A5}B( B AB(AB(*BBNUMERICAB$5HBBDOLLAR$AAB( BAB( AB(6} 2IBAB( BBA B("BAaI%B BB UI$"B%B(B%BBE5-BUI%+BB B7} .B""BD"FIELD#A, LEN=AB(, TYPE: BD"%[K] KEYED, [P] PROG CAL, [G] GR. TOT.%B8}%B8J%B"y*B6BBaJBB Bk5BK5 J%BBp5BP5 J%9}B Bg5BG5 J%BB%B J%BJAB(B%B KAB(B%B"KA:}B(B+BB B .B"(BB BF**%B BAB( *BK%B%B%BK(B;} B%B BF../../..9KBAB( BAB(AB(*"BDBL"Error - no <}input fieldBML"Error - no label for fieldBL"Error - incorrect date formatBL=}"Error - numeric field too longBL"#Error - over fifty fields in record*+* B B+B+B>}+B('M+B.B.B.B3MP+*(B BB-BBYM(B B B++B'kMB++B.B"B61BB?}1BM1BB +B.B"1B++B.B* B(B BB-B+"BD"A fields accepted@}+2*K:7E:73ABN(B A(BpB(B(BDBL"(BDRS'4B7BA}`?y*A6ANAA A A N`A}NA7BT:B4B4BUB}7BO7B7BO7B4B'3O4B&:B ""7B "4B 4B7B"`C}A4B7B"(ROW: COL: "7B "4B " HD}it for options4B7B"`=BA"BD"Press for Next"E}Press to begin"=BP =BP=BP AF}PAAQxAA(QA6QAKQ=B=B=B[Q=BF=BLLG}L..*B Q@AA4B+B7B.B4B&Q4B&"Hit to continue.y*B6BQH}"BD"44d@B!RBAR$B;RTBB(BB(]R@BR%@BlRI}rA44d"You have defined no K.E. fieldsA.BARX*d6* 33J}3"(BD"( Cursor Pos. ROW:1 COL:1 for menuCBT * *4K:7y*A6p*AK}jS4AxSHAS4ASHASAS | *CBCB CBSCBAAT *L} *| *CBCBCBA TCBAT * *A--TAA==TAA+MTAA*]TAM}+"BAFB4B7B"BCB B( ( ([B(BBEACB B(CBB(R$IB[BBB E5IBIBIBTIBN}IB FBFB"BFBIB-BIB-R%(BCB B(CBB(BDC"7B "4B 4B7B"O}"BDy*A6AA ~U +B4B.B7B%B Bp*AA UB AA Uj AAP}U.B.B %B%B( AV.B.B%B%B(.B.B .V *@B=VB 4B7B"BFBQ}F4B+B7B.B B%B4B7B""BDAAV%B%B B%BAV%B%BB%BFB %BR}7B(%BFB(7B V (BBE5 W  *@B W A8W%B@B B(FB ARW%B@BS}B(%B7B(%BFB(7B Wy +B4B%B B V @BAR$BCBW %BBT}B(B B(%BFB W@BBR%+AXZ "B%F"%Do you want to reorder your fields? yU}*A6AY5Ay5 hX AN5An5 X4d XLBAX$OBLBB(BLBB(.BV}LB B(+BLBB(RBLBRBRB RB YRB B(.B Y *2 RBRBRBB(+BRB B(.BRBB(OBRW}BB(BX%4dRBB(RBB(RBB(RBB(RBB(RBB(RB B(RB B(A+FB RX}$IB"BBE5IBIBIBYIBIB (B BB BB IB-C4BB 7B"IB-R%CB B( BCY}BB( BFB T *A^Z  BCB B(7B B ( 4B B7B(  " " "7BZ}"4BIB(B BE5IBIBIBZIBIB 4B7B"IB-+IB(B BE54B7B"IB-+BAC[}BB(U[BLABELAUB CBB([BDATEAUBCBB( CBB([BNUMERICAUBCBB( CB\}B([BDOLLARAUBCBB( CBB(\BPROG CALAUBCBB( CBB(4\BPROG CALAUBCBB]}( CBB(c\B GRAND TOTAUBCBB( CBB(\B GRAND TOTAUBCBB( BACBB(\B^}ALPHAAUBCBB( "XBD" #CB =BD =UB+ THIS IS AN ILLEGAL CO_}PYy*  3 3"(堠@"Enter screen file name`} +B.BOB0u*[BD=]+[BD=] hB*@B]  *sBB(]*^BaBDAf*dB^*[BA+sBa}B(4^BD7(B A(BpB(B(BDBAAHIAX$gBHIjBHImBHIpBHILB B(gBb}LBB(jBLBB(mBLBB(pBX%(B A(BpB(B(BDBAX$"BGAI(BLB B(LBB("BDCX%4c}A+aBD : AaBsBWCaB[BDBaBaBD/.SCRB+Af_X*d 33"(d}堠@"Enter screen file name +B.BOB0u*[BD=_d[BD= `hB*@Be}` **?4aBD7@?sBB(AAX$gBLB B(jBLBB(mBLBB(pBLBB(f}gBjBmBpBX%`CBA`$"B(BCB B(CBB(FA"BD`%4Ad*g}SAA 'a 33"HAVE YOU" SAVED YOUR" SCREEN? Y/N4K:7h}y*A6AYAy aANAn ad'   33"PLACE" CODEWRITER "i}IN "DRIVE #yB "PRESS " WHEN READYy*pby*b+ j}  33"REMOVE" CODEWRITER"FROM "DRIVE #yB "PRESS "k} WHEN READY 3  3"PLACE" PROGRAM DISK "IN "DRIVE #sB "l}PRESS " WHEN READY   33" SCREEN FILE [BD/ "[BD" NOT FOUNm}D ON "DRIVE #sB "PRESS " TO CONTINUEl?dB4^BD7@?dBTdBn}dB4+(|B@'B@'XB@OB@vB@aB@(B@|B(Row: Col: AB Press fo}or OPTIONSAB.AB(BBBDBB ABOBBBDBXBBDAB&B(B(sBB(yBB( +)"B@(p}B@([B@r(B@^B@2 B&2B&2B&2B&(B@)B@ B@: e k  e g q}e yBsBf+*p* 3 3 3""Your} have the following options:" S.........Create a screen layout" A..........Create an application "s} F............Format a blank disk"CTo create a screen format [] you must have a formatted disk ready"t}LTo create an application [] you must already have created a screen format"with selection ." Enter yu}our choice/press A!B(*IB%hIBIB IB`IB{BhIBIB IBA\hBB:*IBSv}yhBB4 IBFh(F(4K:7y*A6IBAAB"A-A6AhIBAw}(4+ B33& TO RESTART FOR MENU! TO BEGIN FORMATTIx}NG"____________________" DISK FORMAT"UTILITY"____________________yBsBiJ)y}"REMOVE CODEWRITER"DISK FROM DRIVE yB "PLACE DISK TO BE "FORMATTED IN DRIVE sBz}y*AABj)Aj'Aj(Ajr)r)^BD :A^BsBWC0? "{}FORMATTING DISK^BD7B "FINISHED FORMATTINGh) *}[BD=9k'4K:7|}3 3R"(BD"(________________________________________"Is this your screen file?y*}}A6AYAy k*ANAn l:**aBD/lBaBD/l$BaBBE5l%yBB(~}Sl*^B D :MARKER.EXEA^ByBWCyBB(f*dBl*yBB( B(B(.*^B D:CODEGEN}.EXEA%B^BD.J DISK ERROR %BS' 333"____________________"SYSTE}M" CONFIGURATION"MENU"____________________ " NUMBER OF " DRIVES = -} "____________________" DEFAULT IS"1 DRIVE; HIT NUMBER FOR DRIVES (1/2) OR } TO CONTINUEy*hn+yBsByB4K:7yByBBAA}n+Bn,*++BB n+ B sBy*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} Dthe next line, and the tab key to move quickly across the screen., Prompts must be in the the following f}orm :  address ..........F You may leave any number of spaces bet}ween the prompt and the dots.cFor computed fields, the number of dots specifies the maximum value that may be enter}ed in the field."Press to continue. :*}S When you are finished, press the key. }You then press to read the screen.Z You are asked whether each numeric and dollar field is entered from the k}eyboard , ? calculated by the program , or summed as a grand total .a A label is a word or phrase not } connected with data. You may specify a label by typing it cin reverse video.This can be achieved by pressing the A}tari Logo key before typing in the label._ Remember to press the Atari Logo key again before entering a prompt} to deactivate 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 th}e 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 fiel}ds.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 ../../.."}Press to continue. :*R+R}X This option will allow you move the fields around the scree}n to customize 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 aro}und the screen.\ Fields are not allowed to overlap, so when you are moving the field it automatically ski}ps over the other fields.9 At any point you may press to return to the menu."Press to cont}inue. :*R+y*z:+[BD=%z+@B[BD/X$B[BLBE5B0Uz@BB9BAmz@BBZ}Baz@BBzz@BB`B{zBB [BLBLBB-CX%[BD5A[BD5Z z@B+[BAF}BOB {lu+B.B"BOBF+B.B"K:7vu?y*B6B_{[BABB} {4@?+B~FB{uB Bz OBFB {vuFBFB[BFBB-BB-vu[BFBB}FBFB .vuB B/|+BB+& ' 4&0& 1&& *L\THE LIBERTY BELL IS NOTTHE ONLY THING IN PHILIDELPHIATHAT'S CRACKEDBB+& ' 4&0& 1&& *LF 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@6j6S1 77 8(8-8258<P8Fk8P8Z8d888889f99 :h: "}:*;4w;y;"y;;;;;;;;;;<<:<Y<p<A}"}**A:k ] 222"LOADING PROGRAM " PLEASE WAIT"}RUN "- D:FILEWRT 7J  DISK ERROR7J R878$71,7"}78%+f9Q162,16,32,173,6,134,207,104,104,157,69,3,104,157,68,3,169,4,157,74,3,169,3,157,66i99L3,32,86,228,16,3,76,166,"}6,169,203,157,68,3,169,0,157,69,3,169,2,157,72,3,1699:R0,157,73,3,169,7,157,66,3,32,86,228,16,6,192,136,240,92,208,96,169,"}255,197,203,208:h:R4,197,204,240,210,169,205,157,68,3,169,0,157,69,3,32,86,228,16,2,48,69,165,207,240k::V14,165,203,141,2"}24,2,165,204,141,225,2,169,0,133,207,165,203,157,68,3,165,204,157,69,3:;R165,205,56,229,203,157,72,3,165,206,229,204,157,7"}3,3,254,72,3,208,3,254,73,3,32,86;w;U228,16,137,192,3,240,133,76,166,6,32,173,6,108,224,2,152,133,212,169,0,133,213,169,12z"};;157,66,3,32,86,228,967 7;+77+7@7h `A  #R77D"}.J<+} " This is an illegal copy !y* " "illegal"} S䠐`&J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L $ D:FILEWRTRALINESEPOKTEMPMBASPL2BREAPRINTPEEK