' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ϠҮ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`18:11:868:X1%10:FL%2:160E& A%(J)(A$):A%(J)1A%(J)50770{&RL%RL%A%(J):150:J2FG%18:X1%24:FL%10:160&FG%PG%İ155&H$(J)A$& A$"":A0$"":150:" PRESS ESCAPE TO EDIT ANY FIELD";:35,20: '*"POKE-16368,0":"VTAB14":ILES":"CATALOG":D$"CLOSE"3%D$;"EXEC SETUP,D2"=%1000%150::"WHICH FIELD (TYPE 0 FOR NO EDIT)?";::34,20:130:J0JPG%18I750%FG%J19İ155%FG%0PG%1J18İ155%J0800%RL%RL%A%(J)::21:10:250RL%;:&J2FG% ";PTR$;(162);(13)#$ND%28109$"SAVE ";Q$;",D2"[$"BSAVE DBFILES,A$6000,L1279"f$"NEW"$"10 C$=CHR$(4)";(13)$"30 PRINT C$";(34);"RUN ";Q$;(34);(13)%"40 END";(13):"UNLOCK";G$:"SAVE ";G$:"LOCK ";G$:"LOCK ";Q$:"LOCK DBF":";:I:(13))#T2%NF%:NF%20T2%20~#NF%10ĺ"19231 ";:IT1%1T2%:"H$(";I1;")=";(34);H$(I);(34);":";:I:(13)#NF%20ĺ"19232 ";:IT2%1NF%:"H$(";I1;")=";(34);H$(I);(34);":";:I:(13)$PTR$""ĺ"19050 PRINTD$";(162);"BLOAD,"A%(NF%);(13)*"T1%NF%:NF%18T1%18h""19220 ";:I1T1%:"FD%(";I1;")=";A%(I);":";:I:(13)"NF%18ĺ"19221 ";:IT1%1NF%:"FD%(";I1;")=";A%(I);":";:I:(13)"NF%10T1%10#"19230 ";:I1T1%:"H$(";I1;")=";(34);H$(I);(34);Q$=";(34);Q$;(34);":N$=";(34);N$;(34);":SN%=";SN%;":P$=";P$;":CN%=";CN%;(13)!v"19200 RL%=";RL%;":RD%="RD%":NF%=";NF%;":DIMF$(";NF%;"),FD%(";NF%;")";",H$(";NF%;")";(13);"19210 &F,F$ = ";"I0NF%2:"F$(";I;"),";A%(I1);";";:I:"F$(";NF%1;")ANK INITIALIZED DISK WITH GREETING PROGRAM '";G$"'":"INTO DRIVE 2 AND PRESS RETURN":A$:D$ ND$"OPEN SETUP,D"ND%:D$"DELETE SETUP":D$"OPEN SETUP":D$"WRITE SETUP" X"NEW":"LOAD MODIFIABLE DATABASE,D1" b"BLOAD DBFILES,A$6000"Q!l"18500 /N)?";:PG%ĺ" (PRESS '/' TO SCROLL)";0+A$J,A$"/"PG%İ155:550Z-A$"Y"580k.A$"N"550021:1:958:"PRESS ESC. TO EDIT OR RETURN TO START OVER. ";:X1%7:160:A0$(13)ĉ::410:550Da ID$:::10:ND%1ĺ"INSERT BL160:A$""520XH$(Q%)A$:I:PG%0NF%18Ĺ34,2:35,20::PG%1:FG%1:K%NF%18:460(&RD%22686RL%:35,24:21:1:958:"THAT'S ALL OF THE FIELDS. WITH THE FIELDS AS DEFINED, YOU CAN HAVE "RD%:"RECORDS ON LINE. ARE YOU SATISFIED WITH IT (Y0FL%2:160:A$""470DA%(Q%)(A$):A%(Q%)1A%(Q%)49470sRL%RL%A%(Q%):21:10::250RL%;::" ";RL%200ğ:21:10:250RL%;:RL%250Ģ21:1:958:"TOO MANY CHARACTERS. SHORTEN SOME FIELD";:880:750I2:X1%24:FL%10:)407pRL%0:EFLAG1:::"FIELD CHARS. TITLE (LIMIT 10 CHARS)":150:" PRESS ESCAPE TO EDIT ANY FIELD"34,2:35,20K%NF%:NF%18K%18:PG%0I1K%:Q%PG%18I:I2:3:PG%0I10ĺI;Q%9ĺ(Q%55);I2:11:" ";:X1%1 "NF%" FIELDS IN EACH RECORD.":12710:"PLEASE TYPE IN THE NUMBER OF CHARACTERS YOU WISH TO HAVE IN EACH FIELD AND THE TITLE OF THE FIELD. PRESS RETURN AFTER EACH ENTRY HAS BEEN MADE.":"PRESS RETURN WHEN YOU ARE READY TO BEGIN";:A$:A$(27:10:"HOW MANY FIELDS DO YOU WANT IN EACH RECORD? (NOTE: IF YOU ARE GOING TO USE MODIFIER MODULE 1, ACCOUNTING FUNCTIONS,THE FINAL FIELD SHOULD BE RESERVED FOR TOTALS) ":FL%2:160:A0$(27)398NF%(A$):NF%1NF%22407#:"THERE WILL BEOUR PRINTER."YB$""ĺ"THE CHARACTER STRING ";:121:"WILL BE SENT TO YOUR PRINTER."127:10:"HOW MANY DISK DRIVES DO YOU HAVE? ";:B$:B$(27)390ND%(B$):ND%1ND%1ND%2ND%2:"YOU HAVE "ND%" DISK DRIVES.":127RL%0RALLEL CARDS. Y/N)?":A$:A$(27)387C$"":B$"":P$(34)(34):A$"Y"ĺ:"TYPE THE REQUIRED CHARACTER STRING.":FL%10:160:B$A$:C$A$:A0$(27)390B$""İ125P$Z$(34)B$(34) :B$""ĺ"NO SPECIAL CHARACTERS WILL BE SENT TO YOPY OF":20(PTR$)2:PTR$:"ON YOUR WORKING DISK. THE PROGRAM WILL TAKE CARE OF LOADING IT. THE CALL NUMBERIS ";CN%&127:10:"DOES YOUR PRINTER REQUIRE ANY CONTROL CHARACTERS TO BE SENT TO IT BEFORE PRINTING (SUCH AS CONTROL I 80 N FOR PA0:CS%0:MD%0)!B@I3172:I:1:4):I/!t@]!DHQ$"THE MODIFIABLE DATA BASE":N$"NOBODY"!pI::8:(20(Q$)2):Q$:11:6:"BY R.C. CLARDY & C.P. ANSON"::(14(N$)2):"REVISED BY ";N$:2900:D$(4):23:"COPYRIGHT 1980 BY SYNERGISTIC SOFTWARE":34,20::1:13:JJĺ"RECORD # "JJ;:PC%ĺ" (CONT.)"< =[ =3:1:JNF%PC%8:J8J8| =IPC%81PC%8J:I10ĺI; =I9ĺ(I55); =").."::I:868: >MD%3:15800:2860 >3050 H?I(II8):IPC%PC%I:15590 !@CS%1:MD%1:350Z<23:1:"END (Y/N)??";:A$:A$"Y"Ā1<19500i<15600:15800:NF%8MD%3Ģ21:27:"(/ = SCROLL)"o<<:35,20::34,2::::" SAVE ";Q$:" BSAVE DBFILES,A$6000,L1279":" NEW"*)H:D$"CLOSE"'4:::"WHEN THE CURSOR RETURNS, YOUR NEW PROGRAM IS READY. YOU SHOULD THEN INSERT THE BLANK INITIALIZED DISKETTE"(5"INTO YOUR DRIVE. TRACE OVER THE FOLLOWING LINES USING THE FORWARD ARROW AND PRESS RETURN AFTER EACH LLPHANUMERIC, #=NUMERIC, OR $=MONETARY). YOU MUST ALSOSPECIFY THE HORIZONTAL POSITION AT WHICH";5"EACH FIELD SHOULD BE PRINTED (I.E. THE NUMBER OF SPACES FROM THE LEFT MARGIN). IF A FIELD IS NOT TO BE PRINTED, ENTER AZERO OR PRESS RETURN WHEN ETARY FIELDS WILL HAVE DECIMAL VALUESAUTOMATICALLY ADDED."~PK%0ĺ"MONETARY FIELDS WILL NOT HAVE DECIMAL VALUES ADDED."125:10:"PRESS RETURN TO CONTINUE.":A$:A$(27)365g::" FOR EACH FIELD, YOU MUST SPECIFY THE FIELD TYPE (A=AUTOMATICALLYADD DECIMAL VALUES TO ALL MONETARY FIELDS (Y/N)? "o" ADDED NOT ADDED"::5:"$143.00";:23:"$143":5:"$121.10";:23:"$121.1":5:"$103.19";:23:"$103.19"rA$:A$(27)360wPK%1:A$"N"PK%0::PK%ĺ"MON":10:"$21.14";:30:"$ 21.14":10:"$.21";:30:"$ .21"SjA$:A$(27)358lkA$"R"A$"L"362lLF%0:A$"L"LF%1m:"THE MONETARY FIELDS WILL BE LEFT";:LF%0Ė29:"RIGHT";Cn:"JUSTIFIED.":125:10:"DO YOU WISH THE PROGRAM TO ALEFT EDGE OF THE PAPER.":125:10:"DO YOU WISH THE DATA IN YOUR MONETARY AND NUMERIC FIELDS TO BE LEFT JUSTIFIED OR RIGHT JUSTIFIED (L OR R)? "=i7:"LEFT JUSTIFIED RIGHT JUSTIFIED"::10:"$235.00";:30:"$ 235.00":10:"$1111.24";:30:"$1111.24CROSS.":125:10:"HOW MANY SPACES FROM THE LEFT EDGE OF THE PAPER SHOULD THE PAGE NUMBER BE PRINTED?":FL%3:160:A0$(27)349gHT%(NF%)(A$):HT%(NF%)0HT%(NF%)PR%(NF%)358h:"THE PAGE NUMBER WILL BE PRINTED "HT%(NF%):"SPACES FROM THE BER ";(222):216,0:5:"PRESS RETURN":A$:195000:19500V:D$"BSAVE";I$",A";37885N%RL%;",L";N%RL%3",D"DR%:RM%0:S*EO$:R$;0:J:S$:}*JF%0:O$:I1J:R$;I:B$:B$A$F%I*TI:*(222)42(222)543005*S$:O$:W$;0:0:216,0:F%0:J0:MD%230254*195001+::10:"ERROR CODE NUMA$;" FILE (Y/N)?":B$A$:3040:A$"Y"19600k)pvA$B$:16:958:18:14(A$)2::" DELETING ";A$;" ":)v1:868:D$"DELETE";A$;",D";DR%:40005:Jİ40010:F%āIF%J1:R$;I1:B$:W$;I:B$:I:W$;0:J1)v19500<*@37886,(NR%):37887,(NR%1)8:14(A$)2::" LOADING ";A$;" ":m(uD$"BLOAD";A$;",D";DR%:NR%,(37886):NR%1,(37887):RM%0:19600(u16:958:18:14(A$)2::" SAVING ";A$;" ":(*v40000:40005:Jİ40010(.vF%0ĺW$;J1:I$:W$;0:J1(/v19500,)\v:" DELETE ";EuI%2Ģ17:13:"SAVE">'Fu:I%1RM%İ2970:I%1:18:958:'Gu:"INPUT FILE NAME (RETURN FOR CATALOG)":I$""ĺ"PRESS ':' FOR FILE ";I$'Nu:FL%19:1400:A$""ė:D$"CATALOG,D"DR%::30023'SuI%3I$A$'XuI%30100,30200,30300'(u16:958:1R%2DR%1n&?u17:868:" 1)..LOAD 2)..SAVE 3)..DELETE 4)..CATALOG SELECT WHICH?":M%4:3100&AuI%4Č936:D$;"CATALOG,D"DR%:::10:" PRESS RETURN ":A$::19500&Du17:958:17::" READY TO LOAD ":I%3Ģ17:13:"DELETE"'ENT FILE IS ";::I$;S%MRM%Ģ21:1::" RECORDS HAVE BEEN MODIFIED. "\%MM%8%M:3100:2I%3:958:I%3I%5İ2600%NRE%0:I%3280,3300,5600,6000,6300,11800,30000,15400 &0uMD%2:" DISK DRIVE 1 OR 2 (DEFAULT=1)?":3040:DR%I%:D):RF%,0:RF%1,0$L:10:"MAIN MENU 1)...START A NEW FILE 2)...ENTER RECORD 3)...LIST/MODIFY 4)...SEARCH 5)...SORT 6)...PRINT 7)...DISK ACCESS 8)...TERMINATE"%M23:" WHICH?";:15::N%;::" OF ";RD%" RECORDS USED":I$""Ė24(I$):"CURR10;F$(5),10;F$(6),10;F$(7),10;F$(8),10;F$(9),10G#KI09:FD%(I)10:Im#KI09:H$(I)"FIELD #"(I49):I#,LD$:S$:D$"PR#0"#^L19570#hL:19560#rL216,0:43000$L:JJ0:SR%0:F%0:SPT%0:SH%0:T1%0:PC%0:CS%0:MD%0:N%256(NR%1)(NR%"8JD$"BLOADDBFILES,A$9400":1013,76:1014,0:1015,148:NR%,0:NR%1,0:O$D$"OPENFILES,L20":W$D$"WRITEFILES,R":S$D$"CLOSE":R$D$"READFILES,R""KRD%225:RL%100:SN%2:NF%10:F$(20),FD%(20),H$(20)/# KF,F$F$(0),10;F$(1),10;F$(2),10;F$(3),10;F$(4),:PRINT:NEXTI:RC%=RP%+1:RETURN"(13)m,i"2400 IFA0$<>"(162)"$"(162)"OR J1% < > 1 THEN A$ = A$ + A0$"(13)2-jTFLAGMFLAGLF%0ĺ"2750 IFMD%=9ORABS(PR%(II))=5THENA1$=STR$(VAL(F$(NF%-1))+VAL(A$)):GOSUB900:&R,F$(NF%-1)=A1$:IFNF%-PC%*8<9THENVTAB1+2*NF%-1:NEXTI";:FG%ĺ":F%=1";"+](13);+a"12210 RETURN"(13)+f"12250 GOSUB950:PRINT:FORI=1TOPR%(NF%):PRINT"(162)"="(162)";:NEXTI:PRINT:FORII=0TONF%-1:IFPR%(II)>1THENPOKE36,HT%(II):A1$=STR$(TL(II)):GOSUB2795"(13)#,h"12251 NEXTII:PRINT:FORI=RC%TORP%I):PRINTH$(II);"(13):*O"12110 NEXTII:PRINT:PRINT"(13)*R"12150 FORII=0TONF%-1:IFPR%(II)>0THENPOKE36,HT%(II):A1$=F$(II):GOSUB2795:IFSR%=0ORSPT%=1THENTL(II)=TL(II)+VAL(F$(II))";(13)+\"12200 NEXTII:PRINT:RC%=RC%+1:IFRC%>RP%-1THENFORI=1TOVT%:PRINTRC%="RP%1":FORI=0TONF%:READ HT%(I),PR%(I):NEXTI"(13)b)H"12070 &G,JJ:IF RC%0THENPOKE36,HT%(IIGHI2%:PR%(NF%)I3%a(:::" PRESS ESC. TO EDIT ANY FIELD. ":34,2:35,20::H1%T3%:g( (*"19300 DIM HT%(NF%),PR%(NF%),TL(NF%-1):DATA";:I0NF%1:HT%(I)","PR%(I)",";:I:HT%(NF%)","PR%(NF%):(13)6)>"19301 VT%="VT%":PN%=0:RP%="RP%":H1%:I1%I:I2%HHIGH:I3%PR%(NF%):IJ1%1:M0:JI1I1%:HT%(J)0M0PR%(J)0MHT%(J)^'Ju'HHIGH0:J1%1766'JI111:HT%(J)0HHIGH0HHIGHHT%(J)'J'MHHIGH1MPR%(NF%)'PR%(NF%)M'J1%NF%PR%(NF%)I3%(422:II1%:HHACTIVITY CEASES.":34,10:12g&ND$"OPEN MOD1,D1":D$"DELETE MOD1":D$"OPEN MOD1":D$"WRITE MOD1"~&X"NEW":"LOAD ";Q$&]810&35,24:34,20::::" MODIFY WHICH FIELD (0 = NO EDIT)? ";:130:J1%J:J1%0J1%I750&J1%0770W':T3%00%5A0$(27)İ750:550$%:550*%D%ID$:::10:"INSERT YOUR WORKING DISK CONTAINING THE PROGRAM ";::Q$::"INTO DRIVE 1 FOR MODIFICATION AND PRESS RETURN.":A$:D$ &K::"YOUR PROGRAM IS NOW BEING MODIFIED. PLEASE WAIT UNTIL ALL DISK 35,24:21:1:958::12:"SATISFIED (Y/N)?":PG%Ė9:"(PRESS '/' TO SCROLL)";X$+A$r$,A$"/"PG%İ155:550$-A$"Y"580$.A$"N"550%021:1:958::"PRESS RETURN TO START OVER OR ESC. TO EDIT ONE FIELD.";:A0$:A0$(13)ĉ::FLAG0:4468-#20:" "A" ";:HT%(I)A:HHIGHAX#(PR%(I))1INF%1Č868:32:"NO":#31:"(Y/N)?";:H1%37:150:A$"Y"A$"N"482#PR%(I)PR%(I)(2(A$"Y")(PR%(I))):31#A$"Y"ĺ" YES ":TFLAG1#A$"N"ĺ" NO "#P$&FLAG1:")2(A$"#")3(A$"$"):10:" "A$" ";J"A$"#"INF%1NFLAG1f"A$"$"INF%1MFLAG1"20:"("HHIGH1"-"PR%(NF%)1")?";:FL%3:X1%31:160:A(A$):A0Ė19:" NONE ";:PR%(I)1((PR%(I))):HT%(I)0:478#AHHIGH1APR%(NF%)1!NFLAGMFLAG0A$"#":450>!MFLAGNFLAG0A$"$":450!MFLAGNFLAGĖ11:"(#,$)?";:H1%18:150:A$"$"A$"#"431!A$"$"NFLAG0!A$"#"MFLAG0!450!10:"(A,#,$)?";:H1%18:150:A$"#"A$"$"A$"A"445."PR%(I)(A$"A18V:422:I:VNF%1PG%1:34,1:35,20::FG%1:VNF%1:420G 550k I3FG%18:3:868:I9ĺI1;~ I8ĺ(56I); INF%1TFLAGĺ::" NOTE: THIS IS THE TOTALS FIELD ";::I3FG%18:10!(INF%1)(NFLAG0MFLAG0)TFLAG0445T IS WHAT YOU ACTUALLY WANT."X" PRESS RETURN WHEN YOU ARE READY TO BEGIN.";:A$ENT%1:TGLAG0:HHIGH0:NFLAG0:MFLAG0:PG%0:FG%0:::" FIELD TYPE HORIZ. TOTAL? ";:34,20:770FL%2:34,1:::VNF%1:NF%18V17> IPG%E""SPECIFIED TO BE PART OF A HORIZONTAL TOTAL WILL BE ADDED TOGETHER WITHIN EACHRECORD AND THE TOTAL STORED IN THE LAST FIELD OF THAT RECORD. CARE SHOULD BE USED, THEREFORE, NOT TO MIX MONETARY AND";"NUMERIC FIELDS IN THE TOTAL UNLESS THAASKED FOR THE HORIZONTAL POSITION. FINALLY, YOU WILL""SPECIFY WHICH FIELDS SHOULD BE USED TO CALCULATE HORIZONTAL TOTALS FOR EACH RECORD. NOTE THAT ALPHABETIC FIELDS CAN NOT BE PART OF A HORIZONTAL TOTAL. ALL FIELDS (NUMERIC OR MONETARY) THAT ARI-16*PC%:HTAB16:A1$=STR$(TL(II)):IFABS(PR%(II))>1THEN:GOSUB2795"(13)<"44062 GOSUB3040:IFA$="(162)"/"(162)"THENPC%=PC%+1:GOTO44059"(13)<"44061NEXTII:IFNF%>8THENVTAB21:HTAB25:PRINT"(162)"'/'=SCROLL"(162);(13)<"44063 GOTO19500"(13)~=(162)" TOTALS "(162)":FORII=PC%*8TOPC%*8+J:VTAB3+2*II-16*PC%:HTAB16:A1$=STR$(TL(II)):IFABS(PR%(II))>1THEN&R,F$(II)=A1$:A1$=F$(II):GOSUB2795"(13)E<LF%ĺ"44059GOSUB 15600:VTAB1:HTAB13:PRINT"(162)" TOTALS "(162)":FORII=PC%*8TOPC%*8+J:VTAB3+2*I:GOTO19500":(13):"44058TEXT:HOME:VTAB10:HTAB11:FLASH:PRINT"(162)"CALCULATING TOTALS"(162)":NORMAL:FORI=0TONF%-1:TL(I)=0:NEXTI:FORI=1TON%:&G,I:FORJ=0TONF%-1:TL(J)=TL(J)+VAL(F$(J)):NEXTJ,I"(13);LF%0ĺ"44059GOSUB 15600:VTAB1:HTAB13:PRINT"TR$(VAL(F$(II))*JJ):&L,F$(II)=A$:GOSUB2750:&P,J:NEXTJ:GOTO19500" :LF%0ĺ"44055 TEXT:HOME:VTAB10:PRINT"(162)" MULTIPLYING "(162)"H$(II)"(162)" FIELDS BY "(162)"JJ:FORJ=1TON%:&G,J:GOSUB 2780:A$=STR$(VAL(F$(II))*JJ):&R,F$(II)=A$:GOSUB2750:&P,J:NEXTJLY "(162)"H$(II)"(162)" BY "(162)"JJ"(162)" (Y/N)?"(162)":GOSUB 3040:IFA$<>"(162);w8"Y"(162)"THEN44054"(13)@9LF%ĺ"44055 TEXT:HOME:VTAB10:PRINT"(162)" MULTIPLYING "(162)"H$(II)"(162)" FIELDS BY "(162)"JJ:FORJ=1TON%:&G,J:GOSUB 2780:A$=SG0ĺ"44053 GOSUB 3050:II=I%-1:IFABS(PR%(II))<2THEN44053"(13)7TFLAGĺ"44053 GOSUB 3050:II=I%-1:IFABS(PR%(II))<2ORI%=NF%THEN44053"(13)X8"44054 HOME:PRINT"(162)"MULTIPLY BY WHAT VALUE?"(162)":FL%=10:GOSUB 1300:JJ=VAL(A$):HOME:PRINT"(162)"MULTIP)6"44050 VTAB18:CALL-958:PRINT:PRINT"(162)" 1)..DISPLAY TOTALS"(162)":PRINT:PRINT"(162)" 2)..MULTIPLY BY A CONSTANT"(162)":M%=2:GOSUB 3100:HOME:IFI%=1THEN44058"(13)6"44052 GOSUB 15590:PRINT"(162)" WHICH FIELD?"(162)";"(13)>7TFLA4011 TM%=II:& G,JJ:I = VAL (F$(II)):J = (I <=MX) AND (I >=MN): IF J AND SPT% THEN GOSUB 12030"(13)5"44020 IF J AND SPT%=0THENGOSUB 4700:GOSUB970"(13)5"44030 II=TM%:JJ=JJ+1:IF JJ"(162);(162)"THENPN%=VAL(A$)-1:RC%=RP%+1"(13)3}"16300 IFABS(PR%(II))>3THENGOSUB2780"(13)74"19800 VTAB17:PRINT"(162)"8)...SPECIAL FUNCTIONSTO4800"(13)2y"6150 HOME:IFSR%=4THENPRINT"(162)"ENTER MINIMUM VALUE"(162)":FL%=20:GOSUB1300:MN=VAL(A$):VTAB21:HTAB7:PRINT"(162)"MAX"(162)";:GOSUB1300:MX=VAL(A$):GOTO10000"(13)2{"10000 IFRN%=1ANDSR%=4THENGOSUB44010:GOTO19500"(13)3|"11800 PNA$=STR$(VAL(F$(II))+VAL(A$))"(13)1w"6060 VTAB18:PRINT"(162)" 4)..SEARCH A NUMERIC RANGE"(162)":PRINT:PRINT"(162)" WHICH?"(162)":M%=4" 2x(13):"5250 IFA$="(162)"P"(162)"THENGOSUB12030:PRINTD$:PRINTD$"(162)"PR#0"(162)":TEXT:POKE34,20:GOUB2795:GOSUB2750:RETURN"(13)p0s"2982 IF SR%ANDSR%<4THENGOSUB 11090"(13):"2983 IF SR%=4THENGOSUB44010"(13)0uTFLAGĺ"3500 IF II=NF%-1THENRETURN"(13)#1v"3520 IF ABS (PR%(II))>1AND(LEFT$(A$,1)="(162)"+"(162)"ORLEFT$(A$,1)="(162)"-"(162)")THE(F$(NF%-1))-VAL(F$(II))):&L,F$(NF%-1)=A1$"(13):"2781 RETURN"(13)/qLF%1ĺ"3600 &L,F$(II)=A$:A1$=F$(II):VTAB3+2*II-16*PC%:HTAB16:CALL-868:GOSUB2795:GOSUB2750:RETURN"(13)0rLF%0ĺ"3600 &R,F$(II)=A$:A1$=F$(II):VTAB3+2*II-16*PC%:HTAB16:CALL-868:GOSAG0ĺ"2750 RETURN"(13):"2780 RETURN"(13)K.mTFLAGĺ"2751 RETURN"(13).nTFLAGLF%0ĺ"2780 IFABS(PR%(II))>3THENA1$=STR$(VAL(F$(NF%-1))-VAL(F$(II))):&R,F$(NF%-1)=A1$"(13):"2781 RETURN"(13)C/oTFLAGLF%1ĺ"2780 IFABS(PR%(II))>3THENA1$=STR$(VAL6*PC%:HTAB16:PRINT"(162)"$"(162)"F$(NF%-1)"(13)-kTFLAGMFLAGLF%1ĺ"2750 IFMD%=9ORABS(PR%(II))=5THENA1$=STR$(VAL(F$(NF%-1))+VAL(A$)):GOSUB900:&L,F$(NF%-1)=A1$:IFNF%-PC%*8<9THENVTAB1+2*NF%-16*PC%:HTAB16:PRINT"(162)"$"(162)"F$(NF%-1)"(13),.lTFLEASE WAIT UNTIL ALL DISK ACTIVITY CEASES.":34,10:12ND$"OPEN MOD2,D1":D$"DELETE MOD2":D$"OPEN MOD2":D$"WRITE MOD2"X"NEW":"LOAD ";Q$]TYPE1810b"19400 DIM P2%(NF%),V2%(NF%),H2%(NF%)";(13):JNF%:NF%20J20/c"19401 DATA ";%(NF%1)ENF%2585CFINF%111:VT%(I)VT%(I)VT%(I1):IID$:::10:"INSERT YOUR WORKING DISK CONTAINING THE PROGRAM ";::Q$::"INTO DRIVE 1 FOR MODIFICATAION AND PRESSRETURN.":A$:D$9K::"YOUR PROGRAM IS NOW BEING MODIFIED. PLTISFIED (Y/N)?":PG%ĺ"(PRESS' / ' TO SCROLL)";8+A$R,A$"/"PG%İ155:550b-A$"Y"580s.A$"N"550023:1:958:"PRESS RETURN TO START OVER, OR ANY OTHERKEY TO CONTINUE.";:A0$:A0$(13)ĉ::FLAG0:400:550DVT%(NF%)LINESVTA$):I%HIGH440(I%LINESİ150:4406VT%(I)I%sX1%33:160:HT%(I)(A$):VT%(I)HIGHHT%(I)HHIGH1445HT%(I)1445HHIGHHT%(I):HIGHVT%(I)I:JNF%1PG%1:34,1:35,22::FG%1:JNF%1:4200&FLAG1:35,24:23:1:958:"SAJ17FL%39IPG%18J:I3PG%18:3:I9ĺI1;LI8ĺ(56I);w11:"(Y/N)?";:A$:A$(27)İ750:425A$"N"Ė9:" NO ":PR%(I)0:VT%(I)HIGH:HT%(I)HHIGH:450PR%(I)1:9:" YES ";TYPE1445X1%21:160:I%(INTED IN THE SAME ORDER AS THEY ARE NUMBERED."Y" PRESS RETURN WHEN READY.":A$PG%0:FG%0:HIGH0:HHIGH0:::"FIELD PRINT IT? VERTICAL HORIZONTAL ";TYPE1Ė19:" ";I0NF%:VT%(I)LINES:I34,1:::JNF%1:NF%18 AT THE SAMEOR A GREATER VERTICAL POSITION THAN THE PREVIOUS FIELDS. SIMILARLY, IF TWO"0"FIELDS ARE TO BE PRINTED ON THE SAME LINE, THE HIGHER NUMBERED FIELD SHOULD BE SPACED FARTHER TO THE RIGHT THAN THE LOWER NUMBERED FIELD. ALL FIELDS ARE PREACH"r"FIELD OF YOUR RECORDS TO BE PRINTED. YOU WILL ALSO SPECIFY WHICH FIELDS ARE TO BE PRINTED AND WHICH ARE NOT TO BE PRINTED."W|" NOTE: SINCE VERY FEW PRINTERS HAVE PROVISIONS FOR SPACING BACK UP A PAGE, EACH FIELD SHOULD BE PRINTEDD ** SOFTWARE, INC. ***6D *********************RD *********************XDTION AND PRESS RETURN.":A$:9C *********************UC *********************qC ** COPYRIGHT 1979 ***C ** BY SYNERGISTIC ***C ** SOFTWARE, INC. ***C *********************C *********************C*******C***:GOTO2986"(13)!B"UNLOCK ";Q$1B"SAVE ";Q$AB"LOCK ";Q$RB"TEXT:HOME"aB"CATALOG"pBD$"CLOSE"BD$;"EXEC MOD1"B1000BI11000:I:C::10:"ERROR CODE NUMBER ";(222);" IN LINE NUMBER ";(219)256(218):"CORRECT CONDI)=A$:RETURN"(13)^A"6063FORII=0TONF%-1:TL(II)=0:NEXTII"(13):"11360 IFRN%<2THEN2986"(13)A"2986IFSPT%THEN11925"(13):"2987IFSPT%=0THENHOME:GOTO44059"(13)A"970FORII=0TONF%-1:TL(II)=TL(II)+VAL(F$(II)):NEXTII:RETURN"(13)B"11035GOSUB2900TAB1+2*NF%-16*PC%:HTAB16:PRINTF$(NF%-1)"(13)@TFLAGNFLAGLF%1ĺ"2750 IFMD%=9ORABS(PR%(II))=4THENA1$=STR$(VAL(F$(NF%-1))+VAL(A$)):&L,F$(NF%-1)=A1$:IFNF%-PC%*8<8THENVTAB1+2*NF%-16*PC%:HTAB16:PRINTF$(NF%-1)"(13)A"3515 IFABS(PR%(II))<2THEN&L,F$(II)>=ITHENFL=3-I"(13):"910NEXTI:IFFLTHENA1$=A1$+RIGHT$("(34)".00"(34)",FL)"(13):"920RETURN"(13)?PK%0ĺ"900 RETURN"(13)-@TFLAGNFLAGLF%0ĺ"2750 IFMD%=9ORABS(PR%(II))=4THENA1$=STR$(VAL(F$(NF%-1))+VAL(A$)):&R,F$(NF%-1)=A1$:IFNF%-PC%*8<8THENV;:RETURN"(13)%>"19907 M%=9"(13)K>"3310 &L,F$="(162);(162);(13)|>"11865 FORII=0TONF%-1:TL(II)=0:NEXTII"(13)>TFLAG0ĺ"3500 REM"(13)d?PK%1ĺ"900 A1$=STR$(INT(100*VAL(A1$)+.51)/100):FL=3:FORI=2TO3:IFASC(RIGHT$(A1$,I))=46ANDLEN(A1$LF%ĺ"2795 J%=ABS(PR%(II)):IFJ%=3ORJ%=5THENGOSUB900:&L,F$(II)=A1$:PRINT"(162)"$"(162)";"(13):"2797 PRINTA1$;:RETURN"(13)>LF%0ĺ"2795 J%=ABS(PR%(II)):IFJ%=3ORJ%=5THENGOSUB900:&R,F$(II)=A1$:A1$=F$(II):PRINT"(162)"$"(162)";"(13):"2797 PRINTA1$0:"IS YOUR PAPER CONTINUOUS FEED OR SINGLE SHEETS (C/S)?":A$:A$(27)333d*XG%1:A$"C"XG%0*:"YOUR PAPER IS ";:XG%ĺ"SINGLE SHEETS."*XG%0ĺ"CONTINOUS FEED."*125:339D600,6000,6300,11700,30000,15400"(13)@)*********************[)** COPYRIGHT 1979 ***v)** BY SYNERGISTIC ***)** SOFTWARE, INC. ***)*********************)*********************)L*:"YOUR FORMS CONTAIN "LINES" LINES.":125:1ESS RETURN.":A$:D$:1(z*********************(|"11700 PRINT"(162)" PAGE NUMBER (RETURN = "(162)"PN%+1"(162)")?"(162)";:HTAB1:FL%=3:GOSUB1400:VTAB15:CALL-958:IFA$<>"(162);(162)"THENPN%=VAL(A$)-1"(13)%)"20100 RE%=0:ONI% GOTO 3280,3300,5-"'s"IOUS FIELDS. ALL FIELDS WILL BE PRINTED IN THE SAME ORDER AS THEY ARE NUMBERED."::" PRESS RETURN WHEN YOU ARE READY TO BEGIN.":A$:400(u::10:"ERROR CODE NUMBER ";(222);" IN LINE NUMBER ";(219)256(218):"CORRECT CONDITION AND PRAT WHICH YOU WISH EACH FIELD OF YOUR RECORDS TO"'r"BE PRINTED. YOU WILL ALSO SPECIFY WHICH FIELDS ARE AND ARE NOT TO BE PRINTED.":" NOTE: SINCE VERY FEW PRINTERS HAVE PROVISION FOR BACK SPACING, EACH FIELD SHOULD HAVE A HIGHER TAB THAN THE PREV(13)%^"12210"T%f"12250 PRINTD$"(162)"PR#0"(162);:XG%ĺ":FL%=1:GOSUB1400";i%g":RETURN";(13)r%k684%pI11000:I:2&q::5:" FOR EACH FIELD, YOU MUST SPECIFY THE HORIZONTAL POSITION (THE NUMBER OF SPACES FROM THE LEFT MARGIN) :IFP2%(II)THENPOKE36,H2%(II):PRINTH$(II);"(13)T$O"12110 NEXTII:PRINT:PRINT"(13)$R"12150 FORII=0TONF%-1:IFP2%(II)THENPOKE36,H2%(II):PRINTF$(II);";(13)$\"12200 NEXTII:PRINT:RC%=RC%+1:IFRC%>RP%-1THENFORI=1TOV2%:PRINT:NEXTI";:FG%ĺ":F%=1";%]1 V2%="VT%":PN%=0:RP%="RP%":RC%="RP%1":FORI=0TONF%:READ H2%(I),P2%(I):NEXTI"(13)~#H"12070 &G,JJ:IF RC%"194012250 PRINTD$"(162)"PR#0"(162);:XG%ĺ":FL%=1:GOSUB1400";P!":RETURN";(13)p!"12110"(13):"12080"(13)""11800 PRINT"(162)"ENTER PAGE NUMBER (RETURN = NO NEW PAGE)"(162)";:FL%=3:GOSUB1400:VTAB15:CALL-958:IFA$<>"(162);(162)"THENPN%=VAL(A$)C v"12100 IF V2%(II) THEN FOR I=1 TO V2%(II):PRINT:NEXT I";(13)v "12150 POKE 36, H2%(II): PRINT F$(II);";(13) "12200 NEXT II: IF V2%(NF%) THEN FOR I=1 TO V2%(NF%):PRINT:NEXT I";(13) FG%ĺ"12210 F%=1"(13) FG%0ĺ"12210"(13);!":I0J:PR%(I)","VT%(I)","HT%(I)",";:I:(13)}dNF%20ĺ"19402 DATA";:IJ1NF%:PR%(I)","VT%(I)","HT%(I)",";:I:(13)g"19403 FOR I=0TONF%:READ P2%(I),V2%(I),H2%(I):NEXTI";(13) l"12070 &G,JJ:FOR II=0 TO NF%-1:IF P2%(II)=0 THEN 12200";(13)z#???     ԠŠĠΠ ϠϠҮР͠%ŠŠ%ӠҠŠ>ҠŠ$ "RUN SETUP PROGRAM": E(27)383PTR$"":CN%0:A$"Y"ĺ:"WHAT IS THE CALL NUMBER (INPUT 0 IF NONENEEDED)?";CN%::"WHAT IS THE ROUTINE CALLED? ":FL%30:160:PTR$A$:CN%0PTR$""ĺ"NO PRINTER DRIVER ROUTINE REQUIRED."vCN%PTR$""Ė5:"NOTE: YOU MUST PLACE A CG$)2:G$:127Y10:"WHICH I/O PORT IS YOUR PRINTER CONNECTEDTO? ":A$:A$(27)375zSN%(A$):SN%1SN%8SN%0:"YOUR PRINTER INTERFACE IS IN SLOT ";SN%:127 10:"DOES YOUR PRINTER REQUIRE A PRINTER DRIVER ROUTINE (Y/N)?":A$:A$Aw:" THE NEW PROGRAM WILL BE CALLED:":20(Q$)2:Q$:127|10:"WHAT IS THE NAME OF THE GREETING PROGRAMON YOUR BLANK, INITIALIZED DISK?":FL%20:160:G$A$:A0$(27)365}A$""G$"HELLO":" THE GREETING PROGRAM'S NAME IS:":20(Oh:10:"PLEASE TYPE IN YOUR NAME. ":FL%30:160:N$A$:A$""N$"ANONYMOUS"nm:"YOUR NAME IS ";N$:127r10:"WHAT DO YOU WISH THE NEW PROGRAM TO BE CALLED (LIMIT 30 CHARS)?":FL%30:160:Q$A$:A0$(27)360sA$""Q$"MODIFIABLE DATABASE"TERS CONTAINED WITHIN NO MORE THAN 22 FIELDS. IT IS RECOMMENDED THAT YOU LIMIT RECORD AND"T"FIELD LENGTH AS MUCH AS POSSIBLE TO ALLOW A MAXIMUM NUMBER OF RECORDS TO BE STORED ON EACH DISK.":" PRESS RETURN WHEN READY TO BEGIN."^A$ DATA BASE PROGRAM IS AUTOMATICALLY MODIFIED TO YOUR SPECIFICATIONS AND SAVED TO A NEW DISK. THEREAFTER, WHEN YOU BOOT THAT DISK, YOUR CUSTOMIZED ";aJ"PROGRAM WILL BE":"RUN.":" THE TOTAL LENGTH OF EACH RECORD IS LIMITED TO 250 CHARACA BASE PROGRAM ALLOWS THE USER TO MODIFY THE PROGRAM'S BASIC CHARACTERISTICS TO FIT HIS PARTICULAR NEEDS. YOU WILL SPECIFY THE NUMBER AND SIZE OF ALL FIELDS, THEIR HEADINGS, AND@"EVEN A NEW TITLE FOR THE PROGRAM. ONCE YOU HAVE DONE THIS, THECH A DISKETTE READY OR IF YOU HAVE NOT READ""THE DOCUMENTATION ACCOMPANYING THIS DISKETTE, YOU SHOULD ABORT THE PROGRAM AT THIS TIME BY PRESSING ESC."":"PRESS RETURN WHEN READY TO CONTINUE.",A$:A$(27)Ā6:5:" THIS DATN MODIFIED TO SUIT YOUR NEEDS. THIS PROGRAM WILL PERFORM THE NECESSARY MODIFICATIONS. YOU WILL"0"NEED A BLANK DISKETTE WHICH HAS BEEN INITIALIZED WITH AN APPLESOFT GREETING PROGRAM ON WHICH TO STORE YOUR NEW PROGRAM. IF YOU DO NOT HAVE SUE DATABASE"::9:"MASTER SETUP PROGRAM"::5:"BY ROBERT CLARDY & CHRIS ANSON":880:23:"COPYRIGHT 1980 BY SYNERGISTIC SOFTWARE";:880b17:1:958:"NOTE: THIS DISK IS A MASTER DISK AND SHOULD BE USED ONLY TO SETUP WORKING DISKS WHICH HAVE BEE" ";:J1%2J1%1:A$"":170] A0$(8)A$(A$,J1%1):36,(36)2:" ";:36,(36)2:170 J1%FL%J1%FL%1:"";:170 (A0$)27Ğ:((A0$)64);: A0$;:A$A$A0$:J1%J1%1:170 A%(100),H$(100):D$(4) ::10:8:"THE MODIFIABLM:M6572:3:(M):M:3:"I";:3:M118:2M:11:A%(M);:25:H$(M);:M: FG%1::M19V1:3:(M55);:11:A%(M);:25:H$(M):M: A$"":A0$"":J1%1 X1%J1%:A0$ A0$(27)EFLAG750 A0$(13)A0$(27)ı A0$(8)J1%J1%1:, PRESS ESC TO EDIT":9 A$:D$:J(A$)48:J16JJ7? 35,24::21:1:958:10:250RL%;::" CHARACTERS LEFT":6:"RECORD TO CONTAIN ";NF%;" FIELDS.": V1IPG%18:V119ı V1NF%V1NF%L 34,2:35,20:FG%FG%0::M19:3:M:HRIS ANSON ***, d***********************B n(4)"MAXFILES 3"L s885U x250} yC$""I(C$):I27Ğ:(I64);: zB$;" ": }I(A$):B$A$:I27Z$"CHR$("(I)")+":LG%(B$):LG%LG%(LG%1):B$(B$,LG%) ~ "IF THIS IS INCORRECT" ************************=************************[***** DATA BASE ********y(***** PROGRAM ********2***** SETUP ********<************************F************************P*** BY ROBERT CLARDY *** Z*** AND C             3100:RN%I%:RN%1RM%Ģ21:29702RN%1İ260011:958:" 1)..SEARCH FOR A SUBSTRING 2)..SEARCH FOR ONE FIELD 3)..SEARCH FOR TWO FIELDS WHICH SEARCH OPTION?":M%33100:SR%I%:RC%RP%115590:SH%1:21:"SEARCH WHICH FIELD19500`p" 1)...DISPLAY RESULTS 2)...PRINT RESULTS WHICH?":M%2:3100:I%2SPT%111:958:" 1)...CURRENT FILE ONLY 2)...ALL FILES DISK 1 3)...ALL FILES DISK 2 4)...ALL FILES BOTH DISKS SELECT SEARCH RANGE"!M%4:RM%:RM%N%256RM%:NR%,RM%:RM%(RF%1)256(RF%):RM%RM%(RM%0):I%RM%256:RF%1,I%:I%RM%I%256:RF%,I%:JJJJ1:RM%1:A$"P"İ12030:12250:D$"PR#0"::34,20:4800(A$)1348002950 PC%0:4700:JJJJ1:JJN%159001:"SEARCH IN PROCESS"<3040:21:A$"/"PC%PC%1:4700oA$"E"T2%JJ:16000:JJT2%:P,JJ:RM%1:4800A$"D"5250"DELETE RECORD (Y/N)?":3100:A$"Y"Ģ19:958:4800JJN%āIJJN%1:G,I1:P,I:I~N%N%1:RM%N%256:NR%1,::nh32,15:33,25:34,1:2:16:IIPC%8PC%8J:32II16PC%:1:A1$F$(II):2795:II::34,20:MD%3ı:19:25:"RTN=CONTINUE":25:"ESC=RTN TO MENU":25:"'E'=EDIT":25:"'D'=DELETE":25:"'P'=PRINT":NF%8Ė25:"'/'=SCROLL";SH%Ģ21:1:IIPC%8PC%8J:3500:II:IINF%PC%PC%1:21:1:" PRESS RETURN":20):M%60:3100:3350H RM%1:P,N%1:N%N%1:4800:3300  :FL%FD%(II):"ENTER DATA FOR":H$(II);" FIELD":T1%1:1300:T1%0 L,F$(II)A$\15600fG,JJFL%0:1300:20? :"ENTER NEW FILE NAME":FL%19:1300:I$A$X NR%1,0:NR%,0:N%0 PC%0:JJN%1:MD%1:JJRD%ĉ::"FILE FILLED TO CAPICITY '";I%;" RECORDS'."::10:"START A NEW FILE":2900:19500a RE%1:::2:15600:MD%9:A$"0":2750:MD%D%3JJ1:3:4712:28606 I%0I%NF%1III%1:@ 3050_ 23:1:A$:A$(27)19500~ I%(A$)48:I%15I%I%7 M%50I%35ı I%1I%M%I%03100 D$: :12:"STARTING A NEW FILE ERASES ALL RECORDS IN MEMORY----":20:R$;Q:I$:S$:MD%6İ2870| D$"BLOAD"I$:NR%,(37886):NR%1,(37887):N%256(NR%1)(NR%):MD%6āJJ1N%:12030:JJ MD%6İ11090 RM%İ40000 Q:I$"":NR%,0:NR%1,0: M%90:3100 M%90:3100:NF%8A$"/"PC%PC%1:15590:M)2:" SEARCHING FILE- "I$:/ T I11000:I:y "WHICH RECORD NO. (DEFAULT=1)":FL%4:1400:JJ(A$):JJ1JJN%JJ1 958::"SAVE MODIFIED WORKING FILE FIRST (Y/N)?"::3040:A$"Y"ĉ::30000  O$",D"DR%:R$;0:I:S$:Q1I:O$:40:D$:J ( N%0ĉ::10:6:"THERE ARE NO RECORDS ON FILE":2900:19500P V d F$(II): N%2ĉ::10:1:"NOT ENOUGH RECORDS TO SORT":2900:19500 " , :" MODIFY WHICH FIELD?";:NF%8Ė25:"'/' = SCROLL" -  6 ::10:11(I$25):J1%25(J1%25):" ";:1500< B (A0$)32ĺ"";:1500J ` A$A$A0$^ J1%J1%1:1500 P,N%1:G,JJ(JJ1):A$F$(II):G,N%1:MD%N%256:NR%1,MD%:NR%,N%MD%256:MD%1:J1%(A$)1:A$ CV%(J1%25):J1%25(J1%25):FL%J1%1):32,0:33,%2A$I$: :MD%125006 lA0$(13)J1%1A$""J vA0$(13)2550 4A0$(8)J1%J1%(J1%1):CV%(J1%25):J1%25(J1%25):" ";:A$(A$,J1%(J1%1)):1500 A0$(21)A0$(NS$,J1%,1):A0$""A0$" "! 8 A0$;:J1%FL%J1%FL%1:CV%(J1%,25:CV%32II16PC%N CV%:868:J1FL%:"'";:J:CV%:1:CS%NS$F$(II) (NS$)1ĭ(NS$,1)" "NS$(NS$,(NS$)1):1450 NS$ J1%1A$"" @CV%(J1%25):J1%25(J1%25):A0$:A0$(27)19500 MD%0J1%1A0$(58)1900 &MD5#az(4);"MAXFILES1":15200:NR%802:RF%800:N%0:B%(5):40993,24:40994,234:40995,234:1850034,23:33,1::D$"PR#";SN%:P$;:CN%ČCN%19:25:"RTN=CONTINUE":25:"ESC=RTN TO MENU":23 xJ1%1:NS$"":CV%(37)1:T1%Ĺ32,15:33            !" L#!LL5 ߖ # O ^ 9Lp1`1!  ߖ #() ߖ *+ ߖ  9Lp bc`deqr`%&`%'` % ` % `bc ߖ `qr ߖ `Lч(%`b&dqb'X1 L -!. ߖHh$𥉅` / 0! hQȱPP х`8$Ɔ  !"Ԭ!#̩ !`XL z   ! # ()   *+ 9Lp  wqi-. % ߖ`8$``aLΕ %IePPL ߅` z %ȱPȱQ% P Ъ {$0Lvݩ {ڥ%%ȱȱ` ,LL g RP-/Q.0`--L-..8$ƆL`SLX z əLHqi w `Fo z ߅PȩQ L  w 抠ȥPȩePpPȥQ ; ͥP$ ʝ`G z $`PI z "#0#L/"L""# $`L P`Lޢ5LR    WITHOUT MARGINS, IT CAN HAVE 80. 14"a"INCH COMPUTER PAPER CAN HAVE UP TO 128 CHARACTERS) ":FL%3:160:A0$(27)345bPR%(NF%)(A$):PR%(NF%)1PR%(NF%)200345dVT%(LN%RP%5)2f:"YOUR PAPER CAN HAVE UP TO "PR%(NF%):"CHARACTERS AA$):RP%LN%2I5:RP%0I0345X]:"TOP AND BOTTOM MARGINS WILL BE "I" LINES.":125(^10:"HOW MANY CHARACTERS CAN BE PRINTED ACROSS YOUR FORMS OR SHEETS? (NOTE: 8.5INCH WIDE PAPER CAN HAVE UP TO 65 CHAR- ACTERS IF YOU LEAVE ROOM FOR MARGINS.R IS CONTINUOUS FEED."IZFLAG%0ĺ"YOUR PAPER IS NOT CONTINUOUS FEED."[125:10:"HOW MANY LINES DO YOU WISH TO LEAVE ON EACH SHEET AS A TOP AND BOTTOM MARGIN? (NOTE: MARGINS WILL BE EQUAL. SPECIFY TOP ONLY) ":FL%3:160:A0$(27)343 \I( OF STANDARD TYPE)":FL%3:160:A0$(27)330FVLN%(A$):LN%1341WFLAG%0::"YOUR PAPER HAS "LN%" LINES.":125:10:"IS YOUR PAPER CONTINUOUS FEED OR SEPARATE SHEETS (C/S)? ";:A$:A$"C"FLAG%1XA$(27)340Y:FLAG%ĺ"YOUR PAPE RECORDS? ":FL%2:160:A0$(27)325GKNF%(A$):NF%1NF%22330xT:"YOUR RECORDS CONTAIN "NF%" FIELDS.":125-U10:958:"HOW MANY LINES CAN BE PRINTED ON EACH PAGE OF YOUR OUTPUT FORMS OR SHEETS? (NOTE: 8.5 X 11 INCH PAPER HAS 66 LINES WHEN YOU ARE READY TO BEGIN.":A$,E:10F"WHAT IS THE NAME OF YOUR PROGRAM? (PRESS RETURN FOR CATALOG) ":FL%30:160:Q$A$:Q$""ĺD$"CATALOG"::326'J:"YOUR PROGRAM IS CALLED ";Q$:125:10:"HOW MANY FIELDS ARE THERE IN EACH OF YOURSS""THAN 5000), PERFORMING NUMERIC COMBINA- TIONS ON DATA OF ANY FIELD (SUCH AS ADDING DATA TO A FIELD'S CONTENTS OR MULTIPLYING A FIELD BY A CONSTANT) AND PROPERLY FORMATTING THE OUTPUT OF MONETARY DATA FIELDS."""" PRESS RETURNNG FEATURES TO YOUR DATABASE APPLICATION PROGRAM."" THE FEATURES TO BE ADDED INCLUDE COLUMNAR OUTPUT OF RECORD DATA, VERTICALAND HORIZONTAL TOTALS ON ANY FIELDS, SEARCHING NUMERIC FIELDS FOR A RANGE OF VALUES (E.G. GREATER THAN 1000 BUT LET IS TO BE USED TO""FURTHER CUSTOMIZE YOUR APPLICATION PROGRAM (ALREADY SET UP BY THE SETUP PROGRAM) FOR YOUR PARTICULAR DATA MANAGEMENT REQUIREMENTS. IN PARTICULAR,"4"THIS PROGRAM ALLOWS YOU TO ADD NUMERIC PROCESSING AND ACCOUNTI"MODIFIER MODULE NUMBER 1":14:10:"BY ROBERT C. CLARDY":988:23:"COPYRIGHT 1980 BY SYNERGISTIC SOFTWARE"; I150:HT%(I)0:PR%(I)0:I:988:" MODIFIER MODULE NUMBER 1 IS A COM- PANION PROGRAM TO THE MODIFIABLE DATABASE PROGRAM. I(8)J1%J1%1:" ";:J1%2J1%1:A$"":170m A0$(8)A$(A$,J1%1):36,(36)2:" ";:36,(36)2:170 J1%FL%J1%FL%1:"";:170 A0$;:A$A$A0$:J1%J1%1:170 PR%(50),HT%(50):D$(4)n ::10:8:"THE MODIFIABLE DATABASE"::7:2M:132:M:; FG%1::M19V1:3:(M55);:132::M:R A$"":A0$"":J1%1t X1%J1%:" ";:X1%J1%:A0$ A0$(27)ENT%İ750:I318PG%:160 A0$(32)A0$(13)A0$(8)A0$(27)170 A0$(13)A0$(27)ĺD$:(37):- A0$:HT%(M1);:PR%(M1)0Ė22:"NONE";E 32:"NO";:T%3Ė32:"YES";K x I318FG%:H1%:A$:A$(27)İ750:150~ V1IPG%18:V119ı V1NF%V1NF% 34,2:35,20:FG%FG%0::M19:3:M:M:M6572:3:(M):M:3:"I";:M118:***************- _************************C d(4)"MAXFILES 3"M s990V x250 }"IF THIS IS NOT CORRECT, PRESS ESC TO EDIT.": A$:D$:J(A$)48:J16JJ7 13:"A";:T%(PR%(M1)):T%1Ė13:"#";:T%3T%5Ė13:"$";$ 23; ************************=************************[******* MODIFIER *******y(******* MODULE *******2******* NUMBER 1 *******<************************F************************P*** BY ROBERT CLARDY *** Z*********                    YPE2Ģ10:"PRESS RETURN TO CONTINUE.":A$:A$(27)338m:"FOR EACH FIELD, YOU MUST SPECIFY THE HORIZONTAL POSITION (NUMBER OF SPACES FROM THE LEFT OF THE PAGE) AND VERTICAL POSITION (NUMBER OF LINES FROM THE TOP OF THE PAGE) AT WHICH YOU WISH PAGE SHOULD THE PAGE NUMBER BE PRINTED?":FL%3:160:A0$(27)345[eHT%(NF%)(A$)f:"THE PAGE NUMBER WILL BE PRINTED "HT%(NF%):"SPACES FROM THE LEFT EDGE OF THE PAPER.":125:10:"PRESS RETURN TO CONTINUE.":A$:A$(27)350g8818hTIABLE PLACEMENT.":125:360i\10:"SKIP HOW MANY LINES FOR THE TOP MARGIN? ":FL%3:160:A0$(27)338]VT%(A$):RP%LINES2VT%5:VT%LINES355^:"THE TOP MARGIN WILL BE "VT%" LINES.":125Hd10:"HOW MANY SPACES FROM THE LEFT EDGE OF THEES(A$):LINES5335R2000S10:"WHICH FORMAT TYPE DO YOU WISH TO USE 1) COLUMNAR OR 2) VARIABLE?":A$:A$(27)2000TTYPE(A$):TYPE1TYPE2339Y:TYPE1ĺ"YOU HAVE SELECTED COLUMNAR OUTPUT.":125ZTYPE2ĺ"YOU HAVE SELECTED VAR223308M:"YOUR RECORDS CONTAIN "NF%" FIELDS.":125O10:958:"HOW MANY LINES OF TYPE CAN BE PRINTED ON EACH FORM OR SHEET OF PAPER? NOTE: STANDARD 8.5 BY 11 INCH PAPER WILLACCOMODATE 66 LINES OF TYPE.":FL%3:160:A0$(27)327PLINR PROGRAM? (PRESS RETURN FOR CATALOG)":FL%30:160:A$""ĺD$"CATALOG"::325]FQ$A$G:"YOUR PROGRAM IS CALLED ";Q$:125J10:958:"HOW MANY FIELDS ARE THERE IN EACH OF YOUR RECORDS?":FL%2:160:A0$(27)322KNF%(A$):NF%1NF% HORIZON-TAL AND VERTICAL PLACEMENT OF EACH FIELDIS SPECIFIED. HEADINGS ARE NOT PRINTED. WITH BOTH OUTPUT FORMATS, THE FIELDS"@"TO BE PRINTED IS SPECIFIED BY THE USER. PRESS RETURN WHEN READY TO BEGIN.";:A$B:10SE"WHAT IS THE NAME OF YOUR 2)VARIABLE FORMAT. COLUMNAR OUTPUT PROVIDES FOR RECORD OUTPUT IN VERTICAL COLUMNS WITH HEADINGS AT THE","TOP OF EACH PAGE. PAGE NUMBERS ARE PROVIDED IF DESIRED."~6" VARIABLE OUTPUT IS INTENDED TO BE USED FOR PRINTING ON FORMS. THESING THESETUP PROGRAM. NOTE THAT THE SETUP PROGRAM MUST BE RUN FIRST. THIS PROGRAM""ALLOWS YOU TO SPECIFY THE EXACT FORMAT OF YOUR PROGRAM'S OUTPUT."n"" TWO GENERAL TYPES OF OUTPUT FORMATTING ARE AVAILABLE: 1)COLUMNAR OUTPUT O23:"COPYRIGHT 1980 BY SYNERGISTIC SOFTWARE";:880 :" MODIFIER MODULE NUMBER 2 IS A COM- PANION PROGRAM TO THE MODIFIABLE DATABASE PROGRAM. IT IS TO BE USED TO"X"FURTHER CUSTOMIZE THE APPLICATION PROGRAMS THAT YOU HAVE CREATED U):36,(36)2:" ";:36,(36)2:170F J1%FL%J1%FL%1:"";:170i A0$;:A$A$A0$:J1%J1%1:170 PR%(50),VT%(50),HT%(50):D$(4)2 ::10:8:"THE MODIFIABLE DATABASE"::7:"MODIFIER MODULE NUMBER 2":14:10:"BY ROBERT C. CLARDY":880:V1:3:(M55);:132::M:3 A$"":A0$"":J1%1U X1%J1%:" ";:X1%J1%:A0$ A0$(32)A0$(13)A0$(8)A0$(27)170 A0$(13)A0$(27)ĺD$:(37): A0$(8)J1%J1%1:" ";:J1%2J1%1:A$"":170$ A0$(8)A$(A$,J1%1; _ 23:1:"ONLY ";LINES;" LINES ON THE FORM.";:W11500:W:1:868:I3PG%21:x V1IPG%18:V119ı V1NF%V1NF% 34,2:35,20:FG%FG%0::M19:3:M:M:M6572:3:(M):M:3:"I";:M118:2M:132:M: FG%1::M19***************- _************************C d(4)"MAXFILES 3"M s885V x250 }"IF THIS IS NOT CORRECT, PRESS ESC TO EDIT.": A$:D$:J(A$)48:J16JJ7  12:"NO";:PR%(M1)Ė12:"YES";:34:HT%(M1);:TYPE2Ė22:VT%(M1)" ************************=************************[******* MODIFIER *******y(******* MODULE *******2******* NUMBER 2 *******<************************F************************P*** BY ROBERT CLARDY *** Z*********            OSE"D$"EXEC FIXER" T:F%=1";](13)dh"12251 NEXTII:PRINT:FORI=RC%TORP%:PRINTCHR$(10):NEXTI:RC%=RP%+1:RETURN"(13){"UNLOCK";A$;(13)"SAVE";A$;(13)"LOCK";A$;(13)"TEXT:HOME:VTAB10:PRINT"(34)"YOUR PROGRAM HAS BEEN CORRECTED."(34);(13)D$"CLPRINT";(34);"PAGE ";(34);";PN%:PRINTCHR$(10);CHR$(10):FORII=0TONF%-1:IFPR%(II)>0THENPOKE36,HT%(II):PRINTH$(II);"(13)O"12110 NEXTII:PRINT:PRINTCHR$(10)"(13)\"12200 NEXTII:PRINT:RC%=RC%+1:IFRC%>RP%-1THENFORI=1TOVT%:PRINTCHR$(10):NEXTI";:FG%ĺ"TCHR$(10):NEXT I";(13)m "12200 NEXT II: IF V2%(NF%) THEN FOR I=1 TO V2%(NF%):PRINTCHR$(10):NEXT I";(13)v 900 D$"OPEN FIXER":D$"WRITE FIXER" *"LOAD ";A$;(13)wM"12100 FORI=1 TO VT%:PRINTCHR$(10):NEXTI:RC%=0:PN%=PN%+1:POKE36,HT%(NF%):(13)[ "12200 NEXT II: IF V2%(NF%) THEN FOR I=1 TO V2%(NF%):PRINTCHR$(10):NEXT I";(13) "12110 NEXTII:PRINT:PRINTCHR$(10)"(13) 900 XD$"OPEN FIXER":D$"WRITE FIXER" b"LOAD ";A$;(13) v"12100 IF V2%(II) THEN FOR I=1 TO V2%(II):PRINULE 2 VARIABLE FORMAT 3)...MODIFIER MODULE 2 COLUMNAR FORMAT WHICH?":B$:D$:B$"1"800o dB$"2"600 nB$"3"60 D$"OPEN FIXER":D$"WRITE FIXER" "LOAD ";A$;(13) "12100 IF V2%(II) THEN FOR I=1 TO V2%(II):PRINTCHR$(10):NEXT I"; DRIVE ONE AND ENTER THE NAME OF THE PROGRAM TO BE CORRECTED (RETURN FOR CATALOG)." 2A$:A$""ė:D$"CATALOG"::"ENTER PROGRAM NAME.":50_ <:10:"HAS YOUR PROGRAM BEEN MODIFIED FOR 1)...MODIFIER MODULE 1 COLUMNAR FORMAT 2)...MODIFIER MODBETWEEN LINES OF OUTPUT, NO TOP MARGINS, ETC.)" "THEN YOUR PROGRAM WILL REQUIRE A CORRECTION. IF THIS IS NOT THE CASE, PRESS ESC AT THIS TIME TO TERMINATE. PRESS RETURN.":A$:A$(27)Ā[ (:" INSERT YOUR APPLICTAIONS DISK INTO  D$(4)::5:" SOME PRINTERS REQUIRE THAT SPECIAL CONTROL CHARACTERS BE SENT TO THEM IN ORDER TO INSURE THAT THEY PERFORM"3 "LINE FEEDS PROPERLY. IF YOUR PRINTER REQUIRES THIS (THE PRINTOUT FROM YOUR DATABASE HAS NO BLANK LINES