! C128DATAFILE V4.8.3q(215)0"SWITCH TO 80 COLUMN MODE":"AND THEN 'RUN' AGAIN":~(808,1002"":3440<(7);""13)" "F13)"۽"fP13)"ݞ  ݜ"Z13)"ݞ  > > > > > > C128 DATAFILE V4.8.3 < < < < < < ݜ"d13)"ݞ  ݜ"An13)"ݞ  80 COLUMN MODE ݜ"x13)"ݞ  ݜ"13)"ݞ  CREATED BY MIKE DISSINGER ݜ"13)"ݞ  ݜ"e13)"ݞ  CREATION DATE APRIL 15, 1986 ݜ"13)"ݞ  ݜ"13)"ۮ"6 13)" "w 13)" HIT THE SHIFTED 'H' KEY AT MAIN MENU FOR HELP SCREEN (15);15)" > > > W A I T < < < ";(143) (7):3490 10 3460 "":3440 5,6:6,1!290 !540H!"D$(0):MR$D$:DR$D$:S0:B1$(10):PW0:CW0:B$(32)!,NC0:NL0:PG0:F10:F20:F30:L$D$:RL0:SB$D$:CR$(13):HN$D$:ID$D$!6A$D$:C$D$:T%0:I$D$:CK0:I0:J0:K0:L0:M0:N0:RW5:SF0:Z0:E$"EOF""@EN0:EM$D$:ET0:ES0:A1$D$:A2$D$:A3$D$k"JL1$" "TL2$" #^L5$" "^#hL6$" "#rL3$" "#|L4$" ":$F$(F1),T%(F1),L%(F1):T$REC$(R1,F1),ML$(9,4),PC(10),TT$(5),HC$(9),K%(R1):]$A$c$t$CK02370$" CREATE DATAFILE ":3490:%:290:"HOW MANY FIELDS IN EACH RECORD? (NO MORE THAN 20 IS SUGGESTED) 0 ";F:F03440:540%390:I1F:"FIELD # ";I:"TITLE ? "%"LENGTH? "%"";6);:F$(I):6);:L%(I):I(&OM(1):J0F:RLRLL%(J):J:RLRL3(F1)5:R((OM12(F1))RL)w&"YOUR SELECTIONS WILL ALLOW APPROX":R;"RECORDS. ACCEPT OR REJECT?"&410:A$"R"440'A$"A""SETTING DIMENSIONS....NOW USE 'A-DD' ON MAIN MENU TO ENTER INFORMATION":400: 4:CK1:"":3440:540'510r'(7):" DATAFILE C128 V4.8.3/80 COLUMN MODE ":%'&" CREATED BY MIKE DISSINGER "'0'::L1$X(DC90" ";(15);"C ";(143);"REATE A FILE ";(15);" ^ ";(143);"CURTAIN ON OFF:ON";78);""(NC99" ";(15);"C ";(143);"REATE A FILE ";(15);" ^ ";(143);"CURTAIN ON OFF:OFF";78);""(XL2$(bL1$a)l" ";(15);"D ";(143);"ELETE RECORD IN CURRENT FILE ";(15);" A ";(143);"DD RECORD TO CURRENT/CREATED FILE j)vL2$s)L1$)" ";(15);"R ";(143);"EAD OLD FILE FROM DISK ";(15);" M ";(143);"ODIFY RECORD IN CURRENT FILE )L2$*L1$}*" ";(15);"W ";(143);"RITE NEW FILE TO DISK ";(15);" P ";(143);"RINTOUT FILE IN MEMORY *L2$*L1$ +" ";(15);"V ";(143);"IEW FILE ON SCREEN ";(15);" S ";(143);"ORT RECORDS BY FIELD +L2$k+" "+" ";(15);"* ";(143);"DISK COMMANDS ";(15);"HIT A ALFA KEY FOR DESIRED FUNCTION ";(143);""A," ",HA10"R.S.E. THERE ARE"X;" ";" RECORDS IN MEMORY ":780-" THERE ARE"X;" ";" RECORDS IN MEMORY "z- R0" "-R0" SPACE FOR";RX;" MORE RECORDS "- 3490 .*410:A$"A"2110:3440:990".4A$"M"2110:1640:.>A$"D"2110:1750Q.HA$"C"3440:430b.RA$"R"1170z.\A$"P"2130:2140.fA$"V"2110:1390.pA$"W"2110:4040:R19R10:3440:540.zA$"W"1070.A$"S"2110:1890.A$"Q"2050 /A$"*"2600/A$""3520K/AH(A$):AH10HA10HA10:808,110:270o/AH10HA10HA0:808,100:270/A$"^"C90C99:(7):270/A$"^"C99C90:(7):270/810/IX1R:"PRESS THE RETURN KEY AFTER EACH ENTRY"?0"PRESS RETURN WITHOUT ANY ENTRY TO STOP":"RECORD NUMBER ";I:3490J0N1F0F$(N);" >";:REC$(I,N):REC$(I,N)""REC$(I,N)">"0(REC$(I,N))L%(N)1060:10200REC$(I,1)">"XI1:CK1:3440:5400N:K%(I)I:I:XR:CK1:3440:540D1$"CANNOT EXCEED";L%(N);" CHARACTERS, AS YOU PREVIOUSLY DESIGNATED":d1.3440:4040:R19R10:54018"ENTER NAME OF CURRENT FILE TO BE SAVED"1B"(12 CHARACTERS MAX). ANY EXISTING FILE"C2L"WITH THE SAME NAME WILL BE RE-NAMED. (WILL ADD '!OLD' TO END OF FILE NAME) ":3490:" ";NF$:3490:"";NF$:NF$""540t2V15,8,15:15,"S0:DF] "(NF$,8)"!OLD":25702`15,"R0:DF] "(NF$,8)"!OLD=DF] "NF$:25702j5,8,5,"0:DF] "NF$",S,W":25703t5,R;CR$;F;CR$;X:2570:N1F:5,F$(N);CR$;L%(N):NJ3~I1X:"SAVING RECORD #";I;"":N1F:5,REC$(I,N):N:2570:I:3I1X:"SAVING POINTERS";I;"":5,K%(I):I:2570:5,E$:5:15:CK0:3440:5403CK0237034040:R19R10:3440:54033440Y4:W19:290:"ENTER NAME OF FILE TO BE LOADED--THE PREFIX-'DF]' IS NOT REQUIRED.":"OR ENTER '*' TO EXIT":3490:NF$q4NF$"*"3440:540415,8,15:5,8,5,"0:DF] "NF$",S,R":2570:EN62:(7);(15);"THAT FILE NAME NOT FOUND--TRY AGAIN!"4 4:(143)::3440:1200555,R,F,X:2570:390:400:N1F:5,F$(N),L%(N):Nx5I1X:"READING RECORD #";I;"":N1F:5,REC$(I,N):N:I:5I1X:"READING POINTERS";I;"":5,K%(I):I:2570:SST:S0128055,E$5" ";NF$:5:15?6 " FILE NOW IN MEMORY":20);""~6" USE:";(15);" 'V'";(143);" TO VIEW"6" USE:";(15);" 'M'";(143);" TO MODIFY"7(" USE:";(15);" 'A'";(143);" TO ADD TO FILEM72" USE:";(15);" 'D'";(143);" TO DELETE A RECORD7<" USE:";(15);" 'S'";(143);" TO SORT THE RECORDS7F" USE:";(15);" 'P'";(143);" TO PRINT OUT THE RECORD"8P20);"FROM MAIN MENU FUCTION SELECTIONS"98Z"HIT A KEY TO CONTINUE":410H8d3440:540V8nI1:3440j8xI03440:5408IX"OUT OF RANGE": 4:3440:5408"RECORD NUMBER:";I;" OF:";X;" IN FILE ";NF$:34908N1F:F$(N);"";REC$(K%(I),N):NE9" 9"NEXTLASTJUMPFINDEXIT"9" ":410:A$"N"II1:1400*:A$"L"II1:1400;:A$"J"1530S:A$"F"3440:1540j:A$"E"3440:540t:1470:"JUMP TO RECORD NUMBER";I:1400 ;"FIND RECORDS WITH COMMON ITEMS ":3490:N1F:" ";N;" ";F$(N):NN;"WHICH FIELD IS TO BE SEARCHED? 0 ";SF:SF03440:540j;SF1SFF"":1550;""ENTER COMMON ITEM ":"(THE ENTIRE STRING IS NOT REQUIRED)";,"";F$(SF);" ";:T$:I1X:"SEARCHING RECORD";I;""<6T$(REC$(K%(I),SF),(T$))1600:1620O<@" RECORD #";I;"":N1F:F$(N);": ";REC$(K%(I),N):Nk"AS EACH FIELD IS DISPLAYED, THEN RETURN"J>N1F:F$(N)":":" ";REC$(K%(I),N):(REC$(K%(I),N))36"";>" ";:REC$(K%(I),N):(REC$(K%(I),N))L%(N)1060:1710>REC$(K%(I),N)""REC$(K%(I),N)">">N:CK1:>3440:"DELETE WHICH RECORD? ENTER # OR ALL":3490?DR$:DR$D$540)?DR$"A"DR$D$:1800N?I(DR$):DR$D$:IX2100:1760c?1810:3490:540|?I1X:1810:I:540?"TO DELETE RECORD NUMBER";I;", PRESS"?"SHIFT D, PRESS SPACE BAR TO ADVANCE (IF DELETING ALL)"&@&N1F:F$(N);": ";REC$(K%(I),N):N:410:A$""18501@0CK1:u@:"DELETING RECORD";I:"RECORDS MAY NOW BE OUT OF ORDER": 2@DN1F:REC$(K%(I),N)REC$(X,N):REC$(X,N)"":N@NJ1X:K%(J)XK%(J)K%(X):K%(X)0:XX1:1840@XJXAb3440:" SORT RECORDS IN ASCENDING ORDER ":N1F:"";N;" ";F$(N):N:3490Al"WHICH FIELD IS TO BE SORTED? 0 ";SF:SF03440:540AvSFF"";1900B"PLEASE WAIT ":MXBM(M2):M0CK1:"YOU CAN NOW V-IEW RECORDS IN 'ASCENDED ORDER' (WITH 'V' FUNCTION ON MAIN MENU)":"HIT A KEY":410:3440:540BJ1:KXMBIJBLIM:"SORTING ";I;"":REC$(K%(I),SF)REC$(K%(L),SF)1980"CT%(N)K%(I):K%(I)K%(L):K%(L)T%(N):IIM:I019606CJJ1:JK1930@C1950C"";8);" "D(15);"";7);"YOU HAVE NOT SAVED YOUR CHANGES!":T11500:TiD"";7);" "D(15);"";7);"DO YOU REALLY WANT TO QUIT? Y OR N":410:A$"Y"2090D540DCK02000;E (15);"";39);"SURE YOU WANT TO TERMINATE? Y/N ";(143)OEA$:A$""2070gE A$"Y"3460:540vE*DC6:2920E4" NO SUCH RECORD EXISTS":E>R0EH" NO FILES IN MEMORY": 3:3460:540ERX12120:540E\3440EfFp"";L5$:A$""NFz" PRINTER MAIN MENU "WFL6$`FL3$F" ";(15);" P ";(143);"RINT OUT THE FILE IN MEMORY "FL4$FL3$,G" ";(15);" E ";(143);"XIT PRINTOUT MENU "5GL4$BG"";L5$G" TURN THE PRINTER ON FOR THE ";(15);"'P' ";(143);"FUNCTION "GL6$GL5$H" PRINTER STATUS LINE: THERE ARE";X;" RECORDS IN MEMORY";65)"" HL6$lH " > > > > > > > HOLD-";(15);" '\'";(143);" TO ABORT PRINTOUT < < < < < < < "H " > > > > > > > PRESS THE APPROPRIATE KEY < < < < < < < < ":3490H 410H$ A$"E"3440:540H. A$"P"3320H8 2330+IB " THIS WILL DESTROY THE FILE IN MEMORY!"oIL " SAVE THE FILE FIRST? Y OR N":3490:410:A$"N"CK0:yIV 1070I` "ARE YOU SURE? FORMAT Y OR N ":3490:410:A$"N"53280,0:2600Jj A$"Y"53280,0:2600sJt "ENTER FORMATT CODE------------------------------------------- ":FC$""J~ 60);"";:FC$:2440J FC$"MD":"INCORRECT ":T1500:TK FC$"MD"53280,0:2600pK :"CORRECT ENTRY CODE....PROCEED! ": 2K " "K "DISK NAME:";HN$)L " "GL "NO.";ID$:HN$""540L " "L "ARE '";HN$;"' AND '";ID$;"' CORRECT? Y/N":410:A$"Y"2600BM "HIT A KEY TO START THE FORMAT-----OR HIT-----'*' TO ABORT FORMAT ":410:A$"*"2600M " WAIT..............FORMATTING DISK "M 15,8,15:15,"NEW0:"HN$","ID$:2570:15!N " FORMAT IS COMPLETE ": 2:2600IN 15,EN,EM$,ET,ES:(EN20)(EN62)sN "DISK ERROR"EN", "EM$","ET","ESN "PRESS ANY KEY TO RETURN TO MENU":410:5:15:53280,0:3440:540O( 3440:""eO2 " DISK COMMANDS "O< ""PF "1. DISK CLEAN UP (COLLECT) "WPP "2. SCRATCH A FILE "PZ "3. LIST DIRECTORY "Pd "4. RESET DRIVE '0' "JQn "5. EXIT TO MAIN MENU "Qx "6. TERMINATE DATAFILE C128 V4.8.3 PROGRAM "Q "7. FORMATT DISKENTRY CODE REQUIRED "=R "8. DISK STATUS "R ">>>>> DEFAULT LISTS DIRECTORY >>>>>>>>>>>>>>";:(15);">> ENTER A NUMBER <<<<<<<<<";(143)R 3490R DC$:DC$""2730R DC(DC$):DC1DC83080S DC1:4040:R19R10:2600AS (15);"DISK CLEAN UP IN PROGRESS-WAIT-":3310:D0S 15,8,15:15:"PROCESS IS COMPLETE...DISK HAS BEEN CLEANED ...........................":T12000:T::2600S DC2:4040:R19R10:2600S :3310:3120T DC3:4040:R19R10:2600bT (15);"";49);"USE NO SCROLL KEY":T1400:T: 44,3,70,23,1:T (15);"HIT A KEY TO CONTINUE"T ZX$:ZX$""2830T "": 0,0,79,23,0::3440:2600T" DC4:4040:R19R10:2600-U, 3310:""40);" RE-SETTING DRIVE '0'....."]U6 15,8,15:15,"UJ":15:T11000:T::2600wU@ DC5OE9:3440:540UJ DC6:"ARE YOU SURE YOU WANT TO TERMINATE? Y/N "UT A$:A$""2900V^ A$"Y"2600Vh 3440iVr " C128 DATAFILE V4.8.3 TERMINATING AT USERS REQUEST "V| " CLOSING ALL 15 FILES...............................";:"CLOSING ":3490: 3:" ";)W T115:T:"";T;:S1150:S:T:"CONFIRMING":" ";^W T115:T:"";T;:S175:S:T:"CONFIRMED!"W " ALL FILES CLOSED.................................. ";"STOPING "W T172:" ";:TX "TERMINATED!!";:T140:"*";:S115:S:T:"STOP"X (15);"THANKYOU FOR USING C128 DATAFILE V4.8.3 !!":"MIKE DISSINGER":"LANCASTER, PA"::X DC7:4040:R19R10:2600X 3310:53280,2::2400X DC8:4040:R19R10:2600X 3310NY 15,8,15:15,EN,EM$,ET,ES:"DISK STATUS IS:"EN;" ";" ";EM$;ET;" ";"";ES;" ";"";Y " HIT A KEY TO CONTINUE ":T11000:T:15Y 410::2600Y DC3:"":2800Y "HIT A KEY TO CONTINUE":3310Y HH$:HH$""3100 Z& "":2600bZ0 " "Z: DF$"":"DELETE WHAT FILE OR ENTER '_' TO EXIT";:DF$ZD DF$"_"2600ZN 5,8,5,"0:"DF$",P,R":DS62F9:5R[X F9F0:(15);" NO SUCH FILE NAME ON THIS DISK .....TRY AGAIN! ":T11500:T:2600[b 5:"ARE YOU SURE YOU WANT TO DELETE? Y/N-----";DF$[l A$:A$""3180[v A$"Y"2600\ "OK-----DELETING........................................................"\ 15,8,15:15,"S0:"DF$%\ 15\ (15);(7);:"THE FILE HAS BEEN SUCCESSFULLY DELETED.................................";(143):T12000:T\ "PLEASE CONFIRM................";\ " WHEN DIRECTORY IS AUTOMATICALLY LISTED ":T11500:T[] " CONFIRM PROGRAM DELETION > > > > > > > > > ":DC3:2800a] g] m] s] ] (7):] 15,4,15:15:ST0"":(15);32);"DEVICE NOT PRESENT! ";(143);: 4:2140%^ "";32);"PRINTOUT IN PROGRESS "2^ 4,4:I1m^ 4,(14)(14);NF$;"FILE<<<<<<<<<<<<<<<<<<<<"(15)(15)^ I04,:4:540^* IX4,:4:540^4 4,(14)"RECORD NUMBER";I;"IN FILE ";NF$(15)^> N1F:4,F$(N);"";REC$(K%(I),N)^H A9$H_R A9$(92)4:4:(15);"";32);"PRINT OUT ABORTED ";(143): 2:2140O_\ N__f II1:3360k_p C99x_z W10_ A("D600"):BA1:A,34:B,46:A,35:B,46_ A("D600"):BA1:PQ4001:A,34:B,46PQ:A,35:B,46PQ:_ W19:_ C99I` W19W10:A("D600"):BA1:PQ040:A,34:B,46PQ:A,35:B,46PQ:O` _` 3440:""h` XJ$` XJ$"-1"(7);"HIT A KEY TO CONTINUE":3490:410:3440:3520` XJ$"-9"(7);"HIT A KEY--END OF HELP SCREEN":3490:410:3440:540a XJ$:3530_a "START OUT BY ENTERING A 'C' ON THE MAIN MENU. THAT WILL TAKE YOU TO A SET-UP "a "MENU. YOU WILL BE ASKED FOR THE AMOUNT OF FIELDS -IN EACH RECORD-THAT YOU WANT "b"I SUGGEST 20 AS THEY NORMALLY WILL FIT ONTO THE SCREEN NICELY! THE SCREEN WILL "gb"THEN SAY-YOUR SELECTION WILL ALLOW APPROX.-XXX-RECORDS. ACCEPT OR REJECT. YOU "b"WILL EITHER ENTER AN 'A' OR A 'R'. IF YOU ENTER 'R' (REJECT) YOU ARE RETURNED "c$"BACK TO THE ORGINAL MENU--ASKING FOR THE SET-UP AGAIN-I.E.-FIELDS IN EACH RECORD"oc.". IF YOU SELECT 'A' (ACCEPT) YOU ARE RETURNED TO THE MAIN MENU-WHERE YOU WILL "c8"NOW ENTER AN 'A' (FOR ADD RECORD TO THE FILE YOU JUST CREATED) AND FOLLOW THE "dB"PROMPTS. IF YOU JUST HIT RETURN---YOU ARE RETURNED TO THE MAIN MENU............"wdL"--------------------------------------------------------------------------------"dV"THE FUNCTIONS-D-R-W-V-A-M-P-S-ON THE MAIN MENU WILL NOT WORK UNLESS YOU HAVE----"'e`"CREATED A FILE OR HAVE READ A PREVIOUSLY CREATED FILE INTO MEMORY WITH THE 'R' "~ej"COMMAND. OTHER WISE YOU WILL GET A 'NO FILES IN MEMORY' STATUS LINE AND BE "et"RETURNED TO THE MAIN MENU. ".f~"--------------------------------------------------------------------------------"f"THE FUNCTION '^' IS THE CURTAIN CONTROL--THE CURTAIN IS SET TO BE ON WHEN YOU "f"FIRST RUN THE PROGRAM-BUT CAN BE CHANGED TO -OFF BY HITTING THE '^' KEY. THE "6g"SCREEN WILL THEN CLEAR AS NORMAL WITHOUT THE CURTAIN SCREEN CLEARING EFFECT. "g"--------------------------------------------------------------------------------"g"DISK FUNCTION ARE ACCESSED FROM THE MAIN MENU BY ENTERING A '*' AND ARE SELF ">h"EXPLAINATORY. THE FORMAT CODE IS 'MD' "h"--------------------------------------------------------------------------------",-1h"THE REST OF THE FUNCTIONS ARE PRETTY WELL DEFINED ON THEIR OWN. THERE IS A "Ii"ROUTINE THAT WILL CHECK TO SEE IF A PARTICULAR DEVICE IS 'ON LINE' BEFORE IT "i"WILL ACTUALLY ACCESS THE DEVICE CALLED--I.E.-IF YOU ARE AT THE 'PRINTOUT' MENU "i"AND SELECT 'P' (TO PRINT OUT FILE IN MEMORY) THE ROUTINE WILL FIRST CHECK TO SEE"Qj"IF THE PRINTER IS ON LINE--IF NOT--AN ERROR CODE 'DEVICE NOT PRESENT' WILL SHOW."j"THE PROGRAM WILL THEN CONTINUE--UNLIKE SOME PROGRAMS THAT WILL SHOW THE ERROR "k "CODE OF 'DEVICE NOT PRESENT' AND HALT THE PROGRAMS EXECUTION. "Yk"--------------------------------------------------------------------------------"k"WHEN YOU 'WRITE' A FILE TO DISK--'DF]' IS ADDED TO THE BEGINNING OF THE ACTUAL " l("FILE NAME YOU SELECT--THIS IS JUST TO SHOW THAT THE FILE IS FROM THE C128 "al2"DATAFILE V4.8.1 PROGRAM. IF YOU HAVE READ A PREVIOUSLY STORED FILE BACK INTO "l<"MEMORY-(USING THE 'R' FUNCTION) AND THEN GO TO WRITE IT-THE NEW SAVED FILE NAME "mF"WILL BE THE NAME YOU USED TO LOAD THE FILE INTO MEMORY AND THE ORGINAL FILE NAME"imP"WILL NOW HAVE '!OLD' TACKED ONTO THE END OF IT'S FILE NAME. A NICE WAY TO KEEP "mZ"TRACK OF WHICH FILE IS THE NEWEST AND WHICH IS THE OLDEST!! "nd"--------------------------------------------------------------------------------"qnn"IF YOU USE THE 'R' (READ) FUNCTION-YOU WILL BE ASKED FOR IT'S NAME-THE PREFIX- "nx"'DF]' IS NOT REQUIRED-NOR IS IT NEEDED WHEN YOUR STORE A FILE. AFTER THE FILE "!o"HAS BEEN READ INTO MEMORY-YOU ARE RETURNED TO THE MAIN MENU-WHERE YOU CAN THEN "yo"V-IEW S-ORT D-ELETE A-DD M-ODIFY P-RINTOUT OR W-RITE BACK TO DISK. "o"--------------------------------------------------------------------------------",-1,p"PLEASE, ALSO BEAR IN MIND, THAT IF YOU TOGGLE THE CURTAIN OFF, AND THEN GO TO "p"READ OR WRITE A FILE....THE CURTAIN WILL AUTOMATICALLY BE TURNED BACK ON..THIS IS"p"DUE TO THE FACT THAT A 'CLR' IS PERFORMED WITH EACH OF THOSE FUNCTIONS. IT "9q"WILL RESET THE CURTAIN FUCTION TO THE DEFAULT SETTING, WHICH IS ON. ",-9Tq1,8,1:1:15,8,15:15qST0A$"W":(15);"DEVISE NOT PRESENT!............................................................"q 4:R19::q15,8,15:15rST0A$"R":(15);"DEVISE NOT PRESENT!............................................................"r 4::R19:s15,8,15:15:ST0(15);"";1);"DEVICE NOT PRESENT!..................................................": 4:R19:s