<: ********************** F: * INITIALIZATION *P: **********************#Z:5dESC$ ()KnLASTINROW$ ESC$jxLASTONSHEET$ ESC$ ESC$~QUOTE$ (")NUL$ QUOTE$ QUOTE$CLSCREEN$ ( )ROW COL FALSE TRUE  WORKSHEET$(2,2): :+: **********************J: * MAIN ROUTINE *i: **********************q: : * PROMPT FOR ORDERS : * PROMPT FOR ENTRIES x: * WRITE FILET : * END-OF-PROGRAM CLEANUPZb:j:: **********************: * PROMPT FOR ORDERS: *: **********************: CLSCREEN$ "Write the file (Y or N): ",REPLY$< REPLY$ "Y" REPLY$ "y" DISKCOPY TRUE DISKCOPY "File name: ",FILENAME$: (FILENAME$,) ".DIF" FILENAME$ FILENAME$ ".DIF"#+t:3~:R: **********************q: * PROMPT FOR ENTRIES *: **********************: CLSCREEN$WORKSHEET$(ROW,COL) "" "Row"; ROW; ", Column ";(@COL); ": ";REPLY$ $() REPLY$ () (WORKSHEET$(ROW,COL))  ();" ";();:WORKSHEET$(ROW,COL) (WORKSHEET$(ROW,COL),(WORKSHEET$(ROW,COL))): : : G REPLY$ ( ) REPLY$;: WORKSHEET$(ROW,COL) WORKSHEET$(ROW,COL) REPLY$: M WORKSHEET$(ROW,COL) LASTONSHEET$ WDTH COL : DEPTH ROW: < WORKSHEET$(ROW,COL) LASTINROW$ ROW ROW : COL : : NCOL COL X  `:h(:2: **********************<: * WRITE FILE *F: **********************P:Z: ----------------------d: HEADER"n: ----------------------7x DISKCOPY O| "O", , FILENAME$a #, "TABLE"u #, ; ",";  #, NUL$ #, "VECTORS" #, ; ","; DEPTH #, NUL$ #, "TUPLES" #, ; ","; WDTH #, NUL$  #, "DATA" #, ; ","; , #, NUL$4:S: ----------------------m: DATA RECORDS": ----------------------, COL  WDTH6 #, ; ","; @ #, "BOT"J ROW  DEPTHyT (WORKSHEET$(ROW,COL))  #, ; ","; (WORKSHEET$(ROW,COL)): #, "V": |^ (WORKSHEET$(ROW,COL),) QUOTE$ WORKSHEET$(ROW,COL) (WORKSHEET$(ROW,COL),)h #, ; ","; Sr #, QUOTE$; WORKSHEET$(ROW,COL); QUOTE$e| ROWs COL{:: ----------------------: END-OF-DATA: ---------------------- #, ; ",";  #, "EOD": :,: **********************K: * END-OF-PROGRAM *j: * CLEAN-UP *: **********************: :DIF (Data Interchange Format) is a trademark of Software Arts, Inc.5:VisiCalc is (was) a trademark of VisiCorp (Personal Software, Inc.):Expansion and update of DIF capabilities and techniques available by:subscription to SATN (Software Arts, 27 Mica Lane, Wellesley, MA 02181):and inquiry to DIF Clearinghouse (POB 527, Cambridge, MA 02139)g:REF: IBM VisiCalc Manual (Appendix B)...transcribed by Phillip Jacka AIAlearinghouse (POB 527, Cambridge, MA 02139)g:REF: IBM VisiCalc Manual (Appen