:SAMPLE TS-DOS PROGRAM- :,QBS$():DE$():CR$( )uCH$"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"KBP$"BANK (0) OR (1)" PMG$"Not Selected")ZER$"Select a file first"IdFN$"File name: [........]"si::::[ Main program starts here ]:::ynxA$"Main Menu": (#:A$"==== ====": (#: " (D)irectory";);"(A)dd record" " (S)elect a file";);"(L)ist report"5 " (R)ename a file";);"(P)rint report"Z " (K)ill a file";);"(Q)uit"` FD$"" FD$".DO" FD$MG$A$"File: "FD$: (# % C$"Q"  (CH$,C$),,, , , ,,#: n:::::[ OF MAIN PROGRAM ]:::::@:::::[ SUBRINES BEGIN HERE ]::k:: :hit a wrong key return to 240:Directory Routine: @ C$"R" :  }: C$"0" C$"1" : : (C$)::A$HT$: (# %:#:File selection routine::::A$FN$: (#S I : BS$;: Il ': IS$"" r| @ (IS$)  r : IS$IS$".DO" C$"R"  }:IS$C$":"IS$FD$IS$  :Rename a file routine  ::# FD$MG$ 4!R A$"Enter New file name: [........]": (#k I : BS$;: Iu ' (IS$) r : IS$IS$".DO" @ C$"D" }:IS$C$":"IS$ FD$ AS IS$:FD$IS$: :Kill file routine : FD$MG$ 4!K ::A$"OK to delete"FD$" (Y/N)": (#: %a C$"Y"  r FD$:FD$""x  :Add Record Routine FD$MG$ 4!  A$"ENTER NEW MEMBER": (#  "Enter first name" "(or 0 to quit) [...............]";. I :BS$;: I? ':F$IS$P F$"0" ~ "Last Name [....................]"; I :BS$;: I ':L$IS$$"Address [....................]";. I :BS$;:I8 ':S$IS$-B"City [....................]";EL I :BS$;:IVV ':Y$IS$~`"State [..]";BS$;BS$;BS$;j ':E$IS$t"Zip Code [.....]";~ I :BS$;:I ': Z$IS$:"First Name: "F$ "Last Name: "L$$ "Address: "S$C "City, St: "Y$", "E$Z "Zip Code: "Z$| :" Is this correct (Y/N)?"  %  C$"N"  FD$APPAS1 #,F$;",";L$;",";S$;",";Y$;",";E$;",";Z$ #:   :List report routine  FD$MG$ 4!% FD$AS1? #,F$,L$,S$,Y$,E$,Z$Q : F$;" ";L$i  S$: Y$: E$: Z$ ::A$HT$: (#: %  ()    #: :Print report routine  FD$MG$ 4! :::A$"Hit any key to begin printing": (#: %% FD$AS1? #,F$,L$,S$,Y$,E$,Z$N F$;" ";L$V S$m Y$;", ";E$;" ";Z$s   ()    #: ?:Ram or Disk prompt routine @:::A$RD$: (# J %: T:Is there an extension if not add .DO; r (IS$,(IS$),)"." IS$IS$".DO"A |] }:Select bank 0: or 1:t ~:::A$BP$: (#  %: 3!:Select file first prompt routine 4!:::A$ER$: (# >!::A$HT$: % H! '#:Center text routine (#I(((A$)) 2#I);A$; <#9 %:Get Character routineR %C$: C$"" % !%:Line 9510 checks to see if character is "%:uppercase, if not then make it uppercase &% C$"Z" C$((C$) ) 0% ':Get String input routine' WS$NU$ ).'IS$WS$&8'WS$NU$,B'E)IC$: IC$"" )j) (VK$,IC$) ,), N, N,P"):Line 10540 checks for a printable character,) IC$ " " IC$ "z" )0):If character is not uppercase change it to uppercase 1) IC$"Z" IC$((IC$) ).6)B$B$IC$9@) IC$;CJ) )\N:backspace routineu N (B$)  )*NB$(B$,,((B$)))4N BS$;DT$;BS$;>N )P:Carriage return routinePWS$B$PB$NU$(P2P