+ :SAMPLE TS-DOS PROGRAM9 256:,0[BS$(8):DE$(128):CR$(13)CH$"D""S""R""K""A""L""P"(VK$BS$DE$CR$2NU$"":DT$"."ʀ<HT$"(Hit any key to continue)"FRD$"(R)am or (D)isk"PMG$"Not Selected"ZER$"Select a file first"9dFN$"File name: [........]"ci::::[ Main program starts here ]:::inxA$"Main Menu": 9000:A$"==== ====": 9000:ʁ " (D)irectory";25);"(A)dd record" " (S)elect a file";25);"(L)ist report"' " (R)ename a file";25);"(P)rint report"L " (K)ill a file";25);"(Q)uit"Ru FD$"" FD$".DO" FD$MG$A$"File: "FD$: 9000 9500 C$"Q" (CH$,C$)11000,1500,2000,2500,3000,3500,4000,4500#1: 110:::::[ OF MAIN PROGRAM ]:::::<:::::[ SUBRINES BEGIN HERE ]::g:: :hit a wrong key return to 240:Directory Routine: 8000 C$"R" : ::A$HT$: 9000̃ 9500::File selection routine:::A$FN$: 9000 I1 9: BS$;: I7 10000: IS$"" 2055=H 8000r (IS$) 2 8050 : IS$IS$".DO" C$"D" IS$"0:"IS$FD$IS$  :Rename a file routineDŽ ::ބ FD$MG$ 8500 A$"Enter New file name: [........]": 9000' I1 9: BS$;: I3 10000\ (IS$)2 8050 : IS$IS$".DO"g 8000 C$"D" IS$"0:"IS$ FD$ AS IS$:FD$IS$: :Kill file routineЅ : FD$MG$ 8500 ::A$"OK to delete"FD$" (Y/N)": 9000: 9500 C$"Y" 3040- FD$:FD$""3 M :Add Record Routined FD$MG$ 8500j A$"ENTER NEW MEMBER": 9000 "Enter first name"҆ "(or 0 to quit) [...............]"; I1 16:BS$;: I 10000:F$IS$ F$"0" = "Last Name [....................]";V I1 21:BS$;: Ii 10000:L$IS$$"Address [....................]";. I1 21:BS$;:I‡8 10000:S$IS$B"City [....................]";L I1 21:BS$;:IV 10000:Y$IS$C`"State [..]";BS$;BS$;BS$;Vj 10000:E$IS$ut"Zip Code [.....]";~ I1 6:BS$;:I 10000: Z$IS$:"First Name: "F$ֈ"Last Name: "L$툰"Address: "S$ "City, St: "Y$", "E$#"Zip Code: "Z$E:" Is this correct (Y/N)?"P 9500d C$"N" 3510uFD$APPAS1#1,F$;",";L$;",";S$;",";Y$;",";E$;",";Z$#1: 3510͉:List report routine䉠 FD$MG$ 8500FD$AS1 #1,F$,L$,S$,Y$,E$,Z$: F$;" ";L$6 S$: Y$: E$: Z$S::A$HT$: 9000: 9500g (1) 4070r 4020|#1::Print report routine FD$MG$ 8500ꊞ:::A$"Hit any key to begin printing": 9000: 9500FD$AS1#1,F$,L$,S$,Y$,E$,Z$!F$;" ";L$)S$@Y$;", ";E$;" ";Z$FZ (1) 4600e 4530o#1:?:Ram or Disk prompt routine@:::A$RD$: 9000J 9500:T:Is there an extension if not add .DOr (IS$,(IS$)2,1)"." IS$IS$".DO"|=3!:Select file first prompt routineU4!:::A$ER$: 9000k>!::A$HT$: 9500qH!'#:Center text routine(#I(40(A$))22#I);A$;<#ό%:Get Character routine%C$: C$"" 9500!%:Line 9510 checks to see if character is I"%:uppercase, if not then make it uppercaseg&% C$"Z" C$((C$)32)m0%':Get String input routine' WS$NU$ 10500.'IS$WS$8'WS$NU$ÍB'ލ)IC$: IC$"" 10500 ) (VK$,IC$)1 10540,20000,20000,20500>"):Line 10540 checks for a printable characterd,) IC$ " " IC$ "z" 105000):If character is not uppercase change it to uppercase1) IC$"Z" IC$((IC$)32)ώ6)B$B$IC$ڎ@) IC$;J) 10500N:backspace routine N (B$) 1 105002*NB$(B$,1,((B$)1))E4N BS$;DT$;BS$;Q>N 10500pP:Carriage return routine{PWS$B$PB$NU$(P2P