SimFILE-128 by Craig Bruce Here is SimFILE-128. It is a simple menu-driven data file management program (notice I didn't say "database"). It should be easy to use; all of the options are described. The CRC32 for the program is 2515962192. If you have any problems using this program, you can contact me at the following e-mail address: -Craig Bruce csbruce@neumann.uwaterloo.ca -------- begin 620 simfile128.prg M`1Q"'`$`F2(3$Y,BQR@Q,2G'*#$T*2+324W&RQLE). MIXXZU9E8.\@H4D,D*%@L4T8I+$PI.P"1'0L`BUBK0;&R,3FG0;)!JE<`N!T, M`)DZ6+)8JEG MCCK5F5@[R"A20R0H6"Q31BDL3"DBD2(`^QT.`(M8LD&GF2(3(D53)")7(CLZ M0;)!JS$ZU9DBD2([`!T>#P!8LEBK5SJ9(A(B6#O(*%)#)"A8+%-&*2Q,*2*2 M(@`I'A``F2*1(CLZC@`R'A$`6$:R5P!3'A(`BU)#)"A)+%-/*%A&*2FS5"0H M4T\H6$8I*:>"20"$'A,`BU)#)"A)+%-/*%A&*2FR5"0H4T\H6$8I*:=81K)8 M1JI7.HM81K.R6%BG,3@`C1X4`(DT-#0`EAX5`%A&LE<`MQX6`(M20R0H2BQ3 M3RA81BDIL50D*%-/*%A&*2FG@DH`Z!X7`(M20R0H2BQ33RA81BDILE0D*%-/ M*%A&*2FG6$:R6$:J5SJ+6$:SLEA8IS(R`/$>&`")-#0V``@?&0!*LLTH22FJ M5SJ+2K$Q-J=*LE<`$Q\:`.=)+$HZC@`A'QL`022RMR@N*3J.`"T?'`!!)+(B M(CJ.`$\?'0"9(B@2V9(O$LZ2*2`2/YT2(D),)#LZZSJA^2!!)`"#'QX`6%BR MU"A2)*HB6=E.SB(L020I.NP@_"!86+.Q+CI!)++**")965E.3B(L6%@L5RD` MH1\?`(M!)+(B62*G()DBV453+B(ZU2"9(LY/+B(`IQ\@`(X`O1\A`)DZF2+# M2$])0T4Z(!(_G2([`.P?(@#K.J'Y($$D.HM!)+)2)*]&4:=!)+(BT2(ZU2!! M)++'*,8H020IL#$R."D`%R`C`)D@0DPD.SI8LM0H04,D+$$D*3KL(/P@6+.Q M+CJ9020[0DLD.SJ.`$(@)`"!2;(NI$Y&.IDB$B)20R0H+BQ)*3J94D,D*%1. M+$DI3E(D.H(ZC@!U("4`_B4ZES4Q,C$L4DZM,C4V.I`)DZF453)")`$<9/4B!.3TXM1$53 M5%)50U1)5D4@4D4M14Y44EDZ(!)'3U1/(#*2(CK7`-`H7P"`.HDW.`#6*&`` M.@#I*&$`CR`J*BH@2$5,4"`J*BH`^RAB`)DBDQ+(14Q0(9(1$2(`#REC`.LZ MH4$D.NP@_"!!)+(B(@`Y*60`F2+.3R!(14Q0($%604E,04),12!)3B!42$E3 M(%9%4E-)3TXN(@!!*64`B3RIM`%(DLL``Z``\L>0"/("HJ*B!35$%2 M5"U54"!23U5424Y%("HJ*@`J+'H`4DZR,3J9(A'3151424Y'(-50+BXN(@!- M+'L`F2(1$2H@QDE824Y'(,/!T-,M42!'3$E40T@N+BXB`'LL?`!!LC-C4T,C0L,3(X.H\@*BHJ($M%4DY!3"!3 M151-4T<`C2V"`(PR.H%)LBZD3D8ZAU)#)"@N+$DI+$9,*$DI.H(`GRV#`(TU M.3(ZUS8Q-3J)-S@`I2V$`#H`OBV%`(\@*BHJ($%$1"!214-/4D0@*BHJ`/,M MA@#K.IDBDQ+!1$0@02#214-/4D0Z(-)%0T]21"([Q"A23BD[(B!/1B#,24U) M5"([35@`("Z'`)DB$=+%U-72SB!!3$].12!)3B!&25)35"!&245,1"!43R!% M6$E4$2(`42Z(`(L@4DZQ35@@IR"9(LY/(-)%0T]21"#%3E122453($%212!& M4D5%(2(ZB3G2;(N.M4@@4FR6*M7I%>IJUG4U*R M+CI#4[(N.I%&4HDW."PS.3(`<#?2`%-"LE@Z5$ZR4T(Z0U.R5SJ11E*),C(P M+#,Y,@"2-],`CR`J*BH@4T5,14-4($%#5$E612!&245,1"`J*BH`LC?4`)DB M$=-%05)#2"!/3B!72$E#2"!&245,1#H1(@#?-]4`@4FR+J1.1CJ9(B`@(")) MJE<[0DLD(BXBHS@I4D,D*"XL22DB$2(Z@@`+.-8`F2+%3E1%4B!&245,1"!. M54U"15(Z("([.HTR-SI31K+%*$$D*:M7`!\XUP"+022R(B*G(%-&LJM7.HX` M73C8`(L@4T:S+B"P(%-&L4Y&(*<@F2+.54U"15(@3U54($]&(%)!3D=%(2`@ MU%)9($%'04E.+B(ZB3(Q-`!C.-D`C@!I.-H`.@"#.-L`CR`J*BH@141)5"!2 M14-/4D0@*BHJ`(PXW`!!1[)7`+XXW0"9("*3$L5$250@TD5#3U)$.B#214-/ M4D0BQ"A43BDB($]&(L0H4DZK5RDB$2(`YSC>`(%)LBZD3D8ZF2(2(E)#)"@N M+$DI.IE20R0H5$XL22E.4B0Z@@#S.-\`BT%'IR#^&``R.>``F2(3$R+(*$)4 M)"PR,RD[(A+.DD585"P2*Y(@("`2S))!4U0L$BV2("`@$L621$E4("`@$M22 M3U`B.P!D.>$`F2(@("`2PI)/5%1/32(ZF2(2QI)/4E=!4D0M,3`@(!+2DD56 M15)312TQ,"([`(HYX@"+(%-2(*<@F2(@(!+#DD].5$E.544M4T5!4D-((CK5 M()D`PCGC`)DB$L2214Q%5$4@("`2T))224Y4+5)%0T]21"`@(!+1DE5)5"U% M1$E4("!%$MB2250B.P#;.>0`_AH@+BPN+%=)+#(Q.D%'LBXZ_AD`##KE`*'Y M020Z6"2RQRC&*$$D*;`Q,C@I.EBRU"@BR,[,Q=3"QM+#T<30V"(L6"0I`#PZ MY@"+(%BR+B"G()$@U"@B*RTBJE(D+$$D*:I7((D@,C(Y+#(S-2PR,S@L,C,S M`$R5SJ9(A,3(L@H0E0D+#(S*3M%4R0[(D##3TY4 M24Y524Y'(--%05)#2"XN+B(`73S]`)$@4U*J5R")(#(R.2PQ-SR5SJ+022R(DXBIS(R,`#?/``! MF2+$14Q%5$E.1RXN+B(ZBR!43K)23JM7(*<@_A@Z5$ZR4DZK,CI23K)23JM7 M`/(\`0&+(%-"LE).(*<@4U*R+@`*/0(!D2A23K)7*:HRB3/Q(!F2!23JM7(M)%0T]21%,L(CM.1JHQ.R+& M245,1%,N(CJ9`'<_$P&9(L].(%)%0T]21"!.54U"15(Z(@"E/Q0!@4FR,:12 M3JM7.IE).U4D.H%*LBZD3D8Z4D,D*$DL2BFRMR@N*3J".H(`V3\5`9XV-30X M-#J@.#J9($),)#LZB39(A'#05-3151412!53DE4($Y/5"!355!03U)4140N M(@#!14$![/T@*$FS.+!)L3,P*3I$5K))`/E%0@&+2;)7IS(X,#K5ZSJ9(A$2 MQ%))5D4@3E5-0D52($]&($1)4TL@54Y)5#HB.IE$3B0[520`'D9#`8TR-SKL M_2!!)+,B,"*P022Q(C$B.D1.)+)!)#J),C@P`#A&1`&/("HJ*B!!4%!%3D0@ M1DE,12`J*BH`2T9%`9DB$2(ZBU).LC&G,CDW`'U&1@'K.IDB$LY%5R!-05A) M355-($Y534)%4B!/1B!214-/4D13.B(Z0;)-6#J--S$`G49'`>S]($&S4DZK M5[!!L3,R-S8V.DY-LD$ZB3(Y-@"C1D@!.@"]1DD!CR`J*BH@05!014Y$($9) M3$4@*BHJ`/=&2@&9(I,2P5!014Y$(,9)3$4@5$\@1DE,12!)3B!-14U/4EDZ M$1$1(CJ-,C@Y.HM!)+(B(J-C4T-S@L+#@ZCR`J*BH@2T523D%,($-,4D-(3BP@0TA+24X` M6$A2`4$DLK".DJRJU<`O4A5`5,E*$DILDHZ@DD`Y4A6`9D@6%*K5R(JTD5#3U)$4RPB M.UA&JE<[(BK&245,1%,N(CJ9`"5)5P&+4DZK5ZI84K%-6*=,LDU8.IDBQDE, M12!724Q,($)%(%1254Y#051%1"$B0DPD.M5,LE).JU>J6%*K5P!#25@!F2+/ M3B!&24Q%(%)%0T]21"!.54U"15(Z(@!V25D!@4FR4DZD3#J92:M23CM5)#J! M2K(NI$Y&.E)#)"A)+$HILB(B.H(Z@4JR+J181@"?25H!BU,E*$HIL;(NIU)# M)"A)+%,E*$HI*;*W*"XI.M5!)+*W*"XI`*=)6P&".H(`XDE<`9XV-30X-#J@ M.#I23K),JE96#M5)`!>3&L!H5@D.HM8)+.Q(B*GBU@DLB+1(K!8)+(B42*G MH#0ZB3,U,0!W3&P!C34Q.H(ZC38U.IE"3"0[.HDS-3$`FDQM`9DBDQ+204Y' M12#04DE.5#HB.HL@4DZR5R"G(#$U.`"M3&X!C34R.#J+0;*K,:R5SJ),S4Q`$%-<@&9(I,2T%))3E0@SD57(,A%041)3D0&9(A$2T$%'12!,14Y' M5$@M+4E.($Q)3D53+#$M,C4U+#`]3D\@3$E-250Z(CI!LE!,.HTW,0!;3GH! MBT&S+K!!L3(U-:P&9(A$2QD]232#&145$("@P/<-/ M35!55$52+"`Q/G,34X``]0AP%&4K(R.D-" MLBXZB3$W-``J4(@!BU-2LC2GF2*3T%))3E1)3D`8M23K)7IYDBSD\@4D5# M3U)$4R!)3B!-14U/4EDA(CJ)-S<`F%*?`9DBSU!424].4SH1(CJ9(B`@("`2 MTY)/4E0@1DE,12`HP4Q02$%"151)6D4I$2(`R%*@`9DB("`@(!+5DDY33U)4 M($9)3$4@*%!55"!)3B!204Y$3TT@3U)$15(I$2(``%.A`9DB("`@(!+1DE5) M5"`M(,=/($)!0TL@5$\@S4%)3B#-14Y5(CI!0R2R(LC3U=$B.HTS,P`84Z(! MD2!8((D@.3@L-#$Y+#0U,2PW.``M4Z,!F2*3$M-/4E0@1DE,13J2(@!=4Z0! MF2(1U$A)4R!33U)4(%5315,@5$A%(-%524-+(--/4E0@04Q'3U))5$A-(@", M4Z4!F2+!4%!23U@@5$E-13H@,3`P(%)%0STP32`R-U,L(#4P,#TR32`T.5,B M`+-3I@&9(C$P,#`]-DT@-#)3("@R+4M%62!33U)4+%)!3D1/32DB`-E3IP&9 M(LI54U0@5T%)5"!&3U(@5$A%(,W,(%9%4E-)3TXA$2(`%%2H`9DBTT5,14-4 M(-!224U!4ED@QDE%3$0@5$\@4T]25"!"63H1(CJ-,C$S.HL@4T:RJS$@IR`W M.``E5*D!4T\H+BFR4T8Z2[)7`#E4J@&+3D:R+J<@2[(N.HDT,S0`:52K`>LZ MF3J9.IDBTT]25"!7251(24X@1DE%3$0C(CM33RA+JU!6$:R,:186#I4)"A3 M3RA81BDILE)#)"A8+%-/*%A&*2DZ@@#$5KH!ZSJ!2;))I%).JU".HDT-#0`#E>[`8M86+$NI_X8.HM20R0H22Q31BFR022G_A@Z MBU)#)"A)+%-/*%G-#0V.M6),C$Z_ADZ_AD`Q5>^`8M)L[)*IX%+LBZD3D8Z6"2R4D,D*$DL M2RDZ4D,D*$DL2RFR4D,D*$HL2RDZ4D,D*$HL2RFR6"0Z@CI)LDFJ5SI*LDJK M5P#M5[\![/U)L[)*.HM!LTJG4R4H3*I7*;)!.DRR3*HR.E,E*$PILDH`_U?` M`4&R23KL_4&S0CKL_4P`#UC!`8L@4U"R5R"G(/XF`$A8P@&9(A'!3$P@1$]. M12$3$R(Z_@4S-3K^!")5.2!4-B!/-"!1($5&($@@1T5&1$5#1"(ZB3G0;)7.D*R M0:HQ.0"Z6M8!BT*QLE).IT*R4DZK5SJ+0JLQ.;&R5Z=!LD*K,3D`X%K7`8M! MLUBG@4FR0:18JU7.(!B30V-P`V7.,!4T:R4T:K M5SJ+4T:S+J=31K).1@`_7.0!B30V-P!:7.4!BUBJ,C"Q4DZK5Z=8LE).JUG6+)7.HDT-CD`CUSH M`5BR6*LR,#J)-#8Y`)QP2;%23JM7IS0Y,@`M7>\!6+)).HDT-C4`,UWP`3H`65WQ M`8\@*BHJ($U/1$E&62!214-/4D0@4U1254-455)%("HJ*@![7?(!F2*3$LU/ M1$E&62#214-/4D0@TU1254-455)%.B(`J%WS`9DB$<]05$E/3E,Z(CJ9(A$@ M("`@$L.22$%.1T4@159%4EE42$E.1R(`UUWT`9DB$2`@("`2QI))14Q$(,Y! M344@04Y$(-=)1%1(($-(04Y'12!/3DQ9(@`-7O4!F2(1("`@(!+1DE5)5"`M M(,=/(%1/(,U!24X@S45.52(Z04,DLB+(P\;1(CJ-,S,ZF0`E7O8!D2!8((D@ M.3@L-3`S+#4Q,RPW.`!57OG0;*K5SJ.`%%C&`)!LE1..D*R6#J+0;%"IT&RJU<`5V,9`HX`76,:`CH` M>6,;`H\@*BHJ(%)!3D=%(%)%4$Q!0T4@*BHJ`)%C'`*9(I,2TD%.1T4@TD50 M3$%#13HB`,=C'0*9(A'215!,04-%($].(%=(24-(($9)14Q$.A$B.HTR,3,Z M0T*R4T8ZBU-&LJM7ISG-S@`^6,?`E-&LD-" M.IDBDQ+204Y'12#215!,04-%.B(`$V0@`IDB$<9)14Q$.B`2(E)#)"@N+%-& M*0!.9"$"F2(1TT5!4D-(($9/4B`H7"!!3$].13U!3$PL7"!&25)35#U354)3 M5%(I.B(ZC3(W.E@DLD$D`&AD(@*9(A'215!,04-%(%=)5$@Z(CJ-,C<`?V0C M`IDB$1'73U)+24Y'+BXN(CK^)0"G9"0"BU@DLB)<(J<@@4FR0:1".E)#)"A) M+%-&*;)!)#J".HDU-34`QF0E`HO(*%@D+%G-S@`.F8R`E-& MLD-".IDBDQ+204Y'12#35$%425-424-3.B(ZF2(1TD%.1T4Z(D$B5$\B0CJ9 M(M=/4DM)3D@*#("`@-2PQ M-CDL(#$S+"`S,BPR,3`L,C4U+"`R-"P@.38L(#