(::::::::::::::::::::::::::::::::::.:S RANDOM FILEY: TRAP 20000 REM OPEN ERROR 60000: VARIABLES 5,2 : ASSUMES TEXT GRPHICS  14000 : OPEN 50000 : MENU<c` : FORMATTED ENTRY$j : X1 FIELDSFt : ,C(X),R(X),HEAD$(X),1M~ :S :Z :w : CLEAR PREVIOUS FIELDS} : : X1 FIELDS : A$(X)" " : : : ::::::::::::::::::::::::::::::::::  ADD A RECORD  AGAIN1:FRST1& :6 AGAINJ FRST FRST0u 2400: 2500 : SHOW FIELDS/CLR DATA ADD1 : ADD FLAG : : 4000: INPUT RTN : : ESC  : : NRNR1 : BUMP# OF RECS : RECNR  :/& : 12000: WRITE RECORD5+ :W0 : ,0,23,EL$"ADD ANOTHER"d: : Y$j? :D : ("Y",(Y$,1)) 0 AGAIN1: AGAIN0N S ESC0 : CLEARX :] ADDED0b H :::::::::::::::::::::::::::::::::: R CHANGE A RECORD( \ AGAIN1. f :B p : AGAINL z REC0f : REC0 RECNR : :"RECORD(#)";REC : : 3500 : EDIT REC ESC : ,0,23,EL$"CHANGE ANOTHER" : Y$! : ("Y",(Y$,1)) 0 AGAIN1: AGAIN0#! 7! ESC0 : CLEAR=! :C! j! ::::::::::::::::::::::::::::::::::! EDIT A RECORD! :! :! 13000: READ REC! :! 2400: DISPLY DATA! :! 4000: INPUT RTN! :" ESC 3640 ":'"12000: WRITE RECORD-":3"$:9".:?"8f"::::::::::::::::::::::::::::::::::" DISPLAY DATA":"" ITEM1 FIELDS": ,0,ITEM,HEAD$(ITEM)" "A$(ITEM)" "# : OVERALL INPUT ROUTINE#:OK$"N"#: OK$"N"D#: 4300 : CIR/DISPLAY DATAY#: ITEM0:ESC0w#: ESC ITEMFIELDS#: ITEMITEM1#:#: LELE(ITEM) : LENGTH#: VR(ITEM)1:HC(ITEM): ROW,COL# ,C(ITEM)20,R(ITEM)!$BG$A$(ITEM): BACKGROUND DATA=$ 5000 : INPUT ROUTINEx$: IN$" " A$(ITEM)IN$: ,H,V,A$(ITEM)RESET$$: 4500$: $: ESC $: 4300: DISPLAY DATA$: ,0,22$: "OK?(Y/N)";OK$%: ("Y",(OK$,1)) OK$"Y" %&%:,%F%: :CLEAR DATA RTN:L%:c%: ITEM1 FIELDS~%: DUM(A$(ITEM))%: ,C(ITEM),R(ITEM)1,A$(ITEM)%: ADD % ADD ,C(ITEM)DUM,R(ITEM)1,(ULIN$,LE(ITEM)DUM)6& ADD ,C(ITEM)DUM,R(ITEM)1,(SPACE$,LE(ITEM)DUM)A&: G&:N&:T&:[&:&: ,0,23,"ITEM TOO LONG--PLEASE RE-ENTER"&: ,0,ITEM,EL$&: BIG1 : REDO&: BIG0&&&0: '::::::::::::::::::::::::::::::::::2' CHECK LENGTH8':X' (A$(ITEM))LE(ITEM) m':  "SCEG"': ,0,23,"ITEM TOO LONG--PLEASE RE- ENTER!"': ,0,ITEM,EL': BIG1 : REDO': BIG0'':"(::::::::::::::::::::::::::::::::::G( INPUT ROUTINEM(:X( 255z( 5900 : CLR BUFFER(IN$" ":CH$" ":BG$" ":IN0:DUN0(:( LE240 LE240(:( DUN(: ,H,V,CASE$IN$CSR$RESET$ ): CH$"": CH$""() : ,H,V,CASE$BG$RESET$K) : ,H,V,CASE$IN$CSR$RESET$Y): CH$:i)(: CH(CH$))<: 5400 : TEST CH)F: DUN )P:)Z: BKS BKS0: 5950): IN IN$IN$CH$: ADD BG$IN$(ULIN$,LELN(LELN))*#*: ,H,V,CASE$IN$" "RESET$)*/*:K*"DUN0:IN1:BKS0:ESC0Q*':y*, TEST CHARACTER*6LN(IN$): CUR LEN*@ CH13 DUN1:IN0: 5800: CR*T CH27 DUN1:IN0:ESC1: ESC++h (CH144 CH149) CH157 CH95 (CH32) BKS1:IN0:5530X+| CH96 CHCH128:CH$(CH): 5520+ NMBR (CH57 CH45)  BLEEP$:IN0:5530+ LNLE  BLEEP$:IN0++CTRCTR1+100+"O2"(MUSIC$,CTR,1)+ CTRLMT CTR0, 255 ,1,D::::::::::::::::::::::::::::::::::V,N DISPLAY TIME,X ,0,24,(TI$,2)":"(TI$,3,2) ":"(TI$,2),b,::::::::::::::::::::::::::::::::::, CLEAR TO END OF FIELD -: ,H,V,CASE$IN$(SPACE$, LELN)RESET$-:-- :=- CLEAR BUFFERT-ZZ 1 8: CH$:Z- `->:-H: BACKSPACE RTN-R LN0  255:"S V1O5 C V206 C V3O4C": 5995-\IN$(IN$,LN1)-k-.::::::::::::::::::::::::::::::::::.. WRITE TO FILE,..RCRDREC12..:@..#1,RCRDV./ ITEM1 FIELDSt. /: #1,RCRD,PLACE(ITEM)./: 1,A$(ITEM)./:.0/.:/ ADDED 12300.C/. 0::::::::::::::::::::::::::::::::::.0: WRITE # OF RECORDS/0:/ 0#1,1:#1,1/*0:%/401,NR+/>0:1/H0X/2::::::::::::::::::::::::::::::::::}/2 READ FORM FILE/2RCRDREC1/2:/2#1,RCRD/2 ITEM1 FIELDS/2: #1,RCRD,PLACE(ITEM)/2: 1,A$(ITEM)/2:/3/3 06::::::::::::::::::::::::::::::::::E06 NORMAN OPENK06:b06 #1,(FILE$),L(LR)h06:06RCRD256LR1: NEXT SECTOR06:06#1,RCRD: #1,RCRD06:06 DS50 14100: : CREATE NEW FILE06:16#1,1:#1,1: # OF RECS16:171,NR17=17::::::::::::::::::::::::::::::::::b17 CREATE IF NOT EXISTh1(7:1-7: ,1,12,"CREATING THE "FILE$" FILE"127#1,100:#1,100: 100 RECORDS1<71,(255): NULL RECORD1A7#1,1:#1,1: # OF RECS2D71,0: NO RCRDS YET2F7#112P7 #1,(FILE$),L(LR)72w7U2P: MENU USING ON...GOSUBt2Q: NDEX$ : INDEX TO KEYS2R: SELECT$(CTR)"###"2S: CTRCTR12U: COL(CTR),ROW(CTR),SELECT$(CTR)2V: 2W:NOCTR1 : NBR OF ITEMS3Y: ESC(3Z: : 52000 : DISPLAY FULL@3\: CHOICE1:LASTNOb3_: 54000 : DISPLAY HIGHLGTx3a: RETRN 0:ESC03d: RETRN ESC3n: 53000 : GET KEY3x: 54000 : DISPLAY PARTIAL3: 3 ,0,224: CHOICE 3000,34004: CHOICE 3 ESC1C4::::::::::::::::::::::::::::::::::I4V4Ù:"BYE!u4Î : RETURN TO CLOSE FILE{4:4 : DISPLAY ALL OPTIONS4*:44: CTR1 NO4> ,COL(CTR),ROW(CTR),SELECT$(CTR),04H˂4Rˎ4\:4: KEYPRESS 5 :LASTCHOICE5: A$5:D5ϋ (NDEX$,A$) CHOICE(NDEX$,A$)e5: A$UP$ CHOICECHOICE15&: A$DWN$ CHOICECHOICE15+ϋ A$ESC$ ESC1:CHOICENO50: A$RETRN$ RETRN155: CHOICE1 CHOICENO57: CHOICENO CHOICE168: 6:: 6D:%6: DISPLAY BARS+6:V6 ,COL(LAST),ROW(LAST),SELECT$(LAST),06 ,COL(CHOICE),ROW(CHOICE),SELECT$(CHOICE),16 ,9,22,"ESC TO END"6ӎ6":6: MENU DATA6փ "ACE" : FIRST LTR INDEX6փ 5,10," ADD A RECORD "7փ 5,11," CHANGE A RECORD "B7׃ 5,12," END PROGRAM "b7׃ 0,0,"###" : END MARK7`::::::::::::::::::::::::::::::::::7j OPENING ASSIGNMENTS7tHEAD$(1)"DISK #"7~HEAD$(2)"DISK SIDE"7HEAD$(3)"PROGRAM NAME"8HEAD$(4)"COMMENTS"8:08PLACE(1)1 : LE(1)4J8PLACE(2)6 : LE(2)2e8PLACE(3)9 : LE(3)308BLEEP$"S V1O5 G V2O6 G V304 G"8SPACE$" "8SPACE$SPACE$SPACE$SPACE$8CSR$" "8CASE$(142)8RESET$(27)"C"9PLACE(4)39 : LE(4)26 9:19LR64 : LENGTH OF RECORD>9FIELDS4T9FILE$"DISK LIST"e9QUOTE$(34)9ULIN$(164):X15:ULIN$ULIN$ULIN$:: CREATE UNDERLINE9EL$(27)"Q"9:99DWN$(17)9UP$(145)9RETRN$(13): ESC$(27): :: C(1)1:R(1)1*:C(2)1:R(2)4<:C(3)1:R(3)7O:C(4)1:R(4)10[: A$(4): 2,0: OPEN KEYBOARD, ALLOWING INPUT WITHOUT ? MARK::':H