Removed files which shouldnt be on git

software/CPM/tosort/AccountantDoubleSided/compact.bat

@@ -1,2 +0,0 @@
-MALLARD COMPACT
-

software/CPM/tosort/AccountantDoubleSided/compact.sub

@@ -1,2 +0,0 @@
-MALLARD COMPACT
-

software/CPM/tosort/AcornZ80Disc1/$$$.sub

@@ -1,2 +0,0 @@
-&Îݼ>yž@kH~ß&ÒºAó~ejãU<C2A3>šEÖWªWVUг•s¹Ìæ
J;CM¬ƒ¼§Þ¸îa3‹šÌåÂûžI:ñÖ;<$vî«toÆ¥-ߧöNÝó†¶jTºw‹F›H½
-5iYr;ë󚨸I1ucÑôÛν³T#õç;ß‘t

software/CPM/tosort/AcornZ80Disc1/boot.sub

@@ -1 +0,0 @@
-d_block

software/CPM/tosort/AcornZ80Disc1/test.bbc

@@ -1 +0,0 @@
-:ÝW 0

software/CPM/tosort/AcornZ80Disc1/zcprdemo.com

@@ -1 +0,0 @@
-裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹

software/CPM/tosort/Dbase41/APPECARD.FMT

@@ -1,24 +0,0 @@
-* APPECARD.cmd
-@  1,10 SAY "Append Cards to Tickle File"
-@  3, 0 SAY "Contact " GET contact
-@  4, 0 SAY "Company " GET company
-@  5, 0 SAY "Address " GET address
-@  6, 0 SAY "City    " GET city
-@  7, 0 SAY "State   " GET state
-@  7,16 SAY "Zip " GET zip PICT '99999-9999'
-@  8, 0 SAY "Phone   " GET phone PICT '999/999-9999'
-@  3,54 SAY "Your Initials  " GET initials PICT '!!!'
-@  4,54 SAY "Entry Date"
-@  4,67 GET e:date PICT '99/99/99'
-@  5,54 SAY "Tickle Date"
-@  5,67 GET tkl:date PICT '99/99/99'
-@  6,54 SAY 'Keyword  ' GET keyword
-@ 10, 2 SAY "Comment   " GET line1
-@ 11,12 GET line2
-
-@ 14, 0 SAY "--------------------------------------------------"
-@ 14,50 SAY "------------------------------"
-@ 15, 2 SAY "To exit APPEND press RETURN when cursor is positio"
-@ 15,52 SAY "ned on Contact field."
-
-

software/CPM/tosort/Dbase41/CHXDEPOS.FMT

@@ -1,26 +0,0 @@
-* CHXDEPOS.FMT  CALLED BY CHXMENU.CMD
-@  8, 5 SAY "CHECKBOOK DEPOSIT SLIP for DEPOSITS.DBF"
-@  9, 0 SAY "+-------------------------------------------------"
-@  9,50 SAY "--+"
-@ 10, 0 SAY "!"
-@ 10,52 SAY "!"
-@ 11, 0 SAY "!    DATE"
-@ 11,10 GET DATE PICTURE "##/##/##"
-@ 11,21 SAY "or <cr> to finish              !"
-@ 12, 0 SAY "!"
-@ 12,52 SAY "!"
-@ 13, 0 SAY "!    AMOUNT OF DEPOSIT $"
-@ 13,25 GET AMT PICTURE "#######.##"
-@ 13,52 SAY "!"
-@ 14, 0 SAY "!"
-@ 14,52 SAY "!"
-@ 15, 0 SAY "!    REC'D FROM"
-@ 15,15 GET PAIDFROM
-@ 15,52 SAY "!"
-@ 16, 0 SAY "!"
-@ 16,52 SAY "!"
-@ 17, 0 SAY "+-------------------------------------------------"
-@ 17,50 SAY "--+"
-@ 19,0 SAY "  ENTER NEGATIVE DEPOSITS TO INDICATE BANK FEES"
-
-

software/CPM/tosort/Dbase41/CHXINPUT.FMT

@@ -1,37 +0,0 @@
-* CHXINPUT.FMT CALLED BT CHXMENU.CMD
-@  7,20 SAY "     CHECKBOOK INPUT SCREEN  "
-@  9,10 SAY "LAST CHECK "
-@  9,20 SAY #-FIRSTREC+LASTCHK
-@ 11, 0 SAY "+-------------------------------------------------"
-@ 11,50 SAY "-----------------------------+"
-@ 12, 0 SAY "!"
-@ 12,79 SAY "!"
-@ 13, 0 SAY "!     CHECK NO"
-@ 13,14 GET CHKNO
-@ 13,23 SAY "or <cr> to finish                 DATE"
-@ 13,62 GET DATE PICT "##/##/##"
-@ 13,79 SAY "!"
-@ 14, 0 SAY "!"
-@ 14,79 SAY "!"
-@ 15, 0 SAY "!"
-@ 15,79 SAY "!"
-@ 16, 0 SAY "!     PAY TO"
-@ 16,13 GET PAYTO
-@ 16,57 SAY "AMOUNT $"
-@ 16,65 GET AMT PICTURE "#######.##"
-@ 16,79 SAY "!"
-@ 17, 0 SAY "!"
-@ 17,79 SAY "!"
-@ 18, 0 SAY "!"
-@ 18,79 SAY "!"
-@ 19, 0 SAY "!"
-@ 19,79 SAY "!"
-@ 20, 0 SAY "!     MEMO"
-@ 20,11 GET MEMO
-@ 20,57 SAY "enter    <cr>"
-@ 20,62 GET can
-@ 20,79 SAY "!"
-@ 21, 0 SAY "!"
-@ 21,79 SAY "!"
-@ 22, 0 SAY "+-------------------------------------------------"
-@ 22,50 SAY "-----------------------------+"

software/CPM/tosort/Dbase41/CHXMENU.CMD

@@ -1,181 +0,0 @@
-* CHXMENU.CMD  MAIN MENU FOR CHECKBOOK MANAGEMENT SYSTEM
-* Copyright 1983, Ashton-Tate and RSP, Inc.
-* written by Jim Taylor and Wayne Ratliff
-*  - turn off display of commands to screen
-SET TALK OFF
-* PULL RETAINED VARIABLES FROM MEMORY FILE
-RESTORE FROM CHXBOOK.MEM
-DO WHILE T
-* DO WHILE T  means DO WHILE TRUE  I.E. DO FOREVER
-*   The DO WHILE will be terminated by a RETURN command
-ERASE
-  @ 3,20 SAY '       CHECK BOOK MANAGEMENT MENU'
-  @ 5,10 SAY 'LAST CHECK #'+STR(LASTCHK,6)
-  @ 5,45 SAY 'CURRENT BALANCE $ '+STR(BALANCE,8,2)
-  @ 7,10 SAY ' 0 - EXIT'
-  @ 9,10 SAY ' 1 - ENTER NEW CHECKS    '
-  @ 11,10 SAY ' 2 - ENTER DEPOSITS     '
-  @ 13,10 SAY ' 3 - ENTER CANCELLED CHECKS '
-  @ 15,10 SAY ' 4 - RECONCILE BANK STATEMENT  '
-  @ 17,8 SAY 'ENTER NUMBER OF DESIRED ACTION  0 1 2 3 4'
-  *  - reading user response
-  WAIT TO ACTION
-  * process user's response
-  DO CASE
-  *  - test for exit condition
-    CASE ACTION='0'
-       SET TALK ON
-       RELEASE ACTION
-       * RETAIN VARIABLES
-       SAVE TO CHXBOOK
-       *  - return to CALLING PROGRAM OR dBASE SYSTEM
-       RETURN
-
-  *  - test for new checks
-    CASE ACTION='1'
-       *  - enter new check data
-       * DO CHXNEW
-    *  +++++   from here to the next ++++ could be a seperate command file
-       * CHXNEW COMMAND FILE TO ENTER NEW CHECKS
-       * OPEN DATABASE FILE AND FORMAT FILE
-         USE CHECKS
-         SET FORMAT TO CHXINPUT.FMT
-       * REMEMBER WHERE WE START
-         GO BOTTOM
-         STORE CHKNO+1 TO FIRSTCHK
-         STORE # TO FIRSTREC
-       * NOW ADD THE NEW DATA
-         APPEND
-       * WHEN FINISHED, HOLD ON TO LAST CHECK NUMBER
-         STORE CHKNO TO LASTCHK
-       * CALCULATE HOW MUCH WE JUST SPENT
-         SUM AMT TO SPENT FOR CHKNO >= FIRSTCHK .AND. CHKNO <= LASTCHK
-         STORE BALANCE-SPENT TO BALANCE
-       * CLOSE OUT OPEN FILES AND VARIABLES
-         USE
-         SET FORM TO
-         RELEASE FIRSTCHK,FIRSTREC,SPENT
-       * NEW BALANCE, LASTCHK, AND PROGRAM EXECUTION PASSED BACK TO CHXMENU.CMD
-    *   ++++
-
-  *  - test for new deposits
-    CASE ACTION='2'
-       *  - enter new deposit data
-       * OPEN DEPOSITS AND FORMAT FILES
-         USE DEPOSITS
-         SET FORMAT TO CHXDEPOS.FMT
-       * REMEMBER WHERE WE ARE
-         GO BOTTOM
-         STORE #+1 TO FIRSTDEP
-       * ADD THE NEW DATA
-         APPEND
-       * ADD UP ALL THE NEW DEPOSITS
-         SUM AMT TO DEPOSIT FOR #>= FIRSTDEP
-         STORE BALANCE+DEPOSIT TO BALANCE
-       * CLOSE OUT DEPOSIT ROUTINE
-         SET FORM TO
-         USE
-         RELEASE DEPOSIT,FIRSTDEP
-       * NEW BALANCE AND PROGRAM EXECUTION PASSED BACK TO CHXMENU.CMD
-
-  *  - test for cancelled checks
-    CASE ACTION='3'
-       *  - enter cancelled check data
-         USE CHECKS
-         STORE T TO MORE
-         ERASE
-         DO WHILE MORE
-         ERASE
-         STORE 0 TO C:CAN
-         @ 4,5 SAY "CHECK CANCELATION ROUTINE.     "
-         @ 11,10 SAY "ENTER 0 TO EXIT "
-         @ 12,5 SAY "ENTER CHECK NUMBER TO BE CANCELLED ";
-                GET C:CAN PICTURE "####"
-         READ
-       *  - testing for exit condition
-         IF C:CAN=0
-            STORE F TO MORE
-            LOOP
-         ENDIF
-       *  - search for cancelled check number
-         LOCATE FOR CHKNO=C:CAN
-         IF .NOT. CAN .AND. .NOT. EOF
-          *  - if not already cancelled or at end of file, display check data
-           @ 15,20 SAY 'Paid to '+TRIM(PAYTO)+' on '+DATE
-           @ 17,20 SAY 'Amount of check is $'
-           @ 17,40 SAY AMT
-           @ 19,20 SAY 'for '+MEMO
-          *  - ask if this is the right check
-           STORE Y TO ANSWER
-           @ 21,10 SAY 'Is this the one? (Y/N) ' GET ANSWER
-           READ
-           IF ANSWER
-            *  - change logical flag for cancelled check
-             REPLACE CAN WITH T
-             @ 21,50 SAY "CANCELLED"
-           ENDIF
-         ELSE
-          *  - message to tell the user that the check is not in file.
-           @ 15,5 SAY "Check "+STR(C:CAN,4)+;
-                    " cannot be found or is already cancelled."
-           ACCEPT "           <cr> to continue " to WAIT
-         ENDIF
-       ENDDO MORE
-       ERASE
-       ? "           LIST OF REMAINING UNCLEARED CHECKS "
-       ?
-       ? "CHKNO       PAID TO                       AMOUNT  DATE         MEMO"
-       ?
-       DISPLAY OFF ALL FOR .NOT. CAN CHKNO, PAYTO, AMT, DATE, TRIM(MEMO)
-       WAIT
-       USE
-       RELEASE C:CAN, ANSWER, MORE, WAIT
-       * NO VARIABLES PASSED BACK TO CHXMENU.CMD
-
-  *  - test for reconcile with bank statement
-    CASE ACTION='4'
-       *  - compute balances
-       * COMMANDS TO RECONCILE BALANCE WITH BANK STATEMENT
-        ERASE
-        USE CHECKS
-        @ 5,5 SAY ' PROGRAM TO RECONCILE WITH BANK STATEMENT '
-	@ 8,15 SAY 'CALCULATING BALANCE NOW '
-	SUM AMT TO OUTSTAND FOR .NOT. CAN
-       *  - display total of outstanding checks
-        @ 13,0 SAY 'TOTAL OUTSTANDING CHECKS    = $'
-        @ 13,33 SAY OUTSTAND
-        STORE 0.00 TO BANK:BAL
-       *  - request ending balance from check book
-       	@ 15,0 SAY 'ENTER ENDING BALANCE FROM BANK STATEMENT' GET BANK:BAL
-	READ
-        @ 17,0 SAY 'APPARENT BALANCE = $'
-        @ 17,20 SAY BANK:BAL-OUTSTAND
-        DO CASE
-          CASE BANK:BAL-OUTSTAND > 0
-            @ 19,10 SAY 'CHXCANC.CMD WILL LIST UNCLEARED CHECKS '
-          CASE BANK:BAL-OUTSTAND = 0
-            @ 19,10 SAY 'CHECKS.DBF AND BANK STATEMENT EXACTLY BALANCE '
-          CASE BANK:BAL-OUTSTAND < 0
-            @ 19,10 SAY 'USE CHXDEPOS.CMD TO ADJUST ACCOUNT FOR INTEREST OR FEES '
-            @ 21,10 SAY 'LAST 12 DEPOSITS LISTED HERE '
-            USE DEPOSITS
-            GO BOTTOM
-            SKIP -11
-            LIST OFF NEXT 12 DATE,'$',STR(AMT,8,2),PAIDFROM
-        ENDCASE
-        RELEASE BANK:BAL, OUTSTAND
-        USE
-        ?
-        ? '          ready to return to main menu '
-        WAIT
-       * NO VARIABLES PASSED BACK TO CHXMENU.CMD
-
-  *  - non-valid entry to the menu and ring bell
-    OTHERWISE
-       ERASE
-       @ 20,5 SAY 'ENTRY MUST BE BETWEEN 0 AND 4 '+CHR(7)
-  ENDCASE
-ENDDO
-RETURN
-* EOF CHXMENU.CMD
-

software/CPM/tosort/Dbase41/CMAIN.CMD

@@ -1,243 +0,0 @@
-* Program     CMAIN.cmd
-* Author      joe stegman  for Ashton-Tate
-* Date        23 Feb 1983
-
-*    Sample program for dBASE II(tm)  release 2.4
-* Please make any changes to these programs to suit your needs.
-
-*    CMAIN.cmd      This program is a tickle calendar file program. Any kind
-* of data may be stored in the data base. The recall may be by tickle date or
-* by a keyword of up to 10 char.
-
-*    The report generated by the program is using the report verb of dBASE II.
-* The report sequence is by TICKLE date or KEYWORD. Other reports could be
-* generated to list records in any other sequence or another format.
-
-* The database files:	First the TEXT file
-* TEXT.dbf holds all the following data for the entries.
-*    Contact name       25 char (10 characters for the KEY)
-*    Company name       25 char (10 characters for the KEY)
-*    Address            30 char
-*    City               20 char
-*    State               2 char
-*    Zip code           10 char (99999-9999)
-*    Phone number       12 char (999/999-9999)
-*    Your Initials       3 char
-*    Entry Date          8 char MM/DD/YY
-*    Tickle Date         8 char MM/DD/YY
-*    Line one           50 char This is the text data
-*    Line two           50 char second line of text data
-*    Keyword            10 char   used for specific recall...
-
-* KEYWORD.ndx  -  keyword+$(tkl:date,7,2)+$(tkl:date,1,2)+$(tkl:date,4,2)
-*    places the file in keyword order then tickle date
-
-* TICKLE.ndx   -  $(tkl:date,7,2)+$(tkl:date,1,2)+$(tkl:date,4,2)
-*    places file in chronological order by tickle date
-
-* uses the following command and other dBASE II support files:
-*    cprint.cmd     Prints a report sequenced by the index file selected.
-*    appecard.fmt   Format file for appending new cards to database
-*    editcard.fmt   Format file for editing existing cards in database
-*    tickle.frm     Report format file
-*    text.dbf       Datebase of tickle cards
-*    tickle.ndx     Tickle date index
-*    keyword.ndx    Keyword&tickle date index
-
-**
-**   Begin command file
-**
-
-clear
-set talk off
-
-* Load the date test routine into memory and set the call address
-LOAD datetest
-SET CALL TO 42240
-
-ERASE
-*  Read the current date, then set the system date
-STORE DATE() TO tmp:date
-DO WHILE DATE() = '00/00/00'
-  @ 5,5 SAY "Please enter Today's Date (MM/DD/YY) ";
-      GET tmp:date PICT '99/99/99'
-  READ
- *   erase any error message
-  @ 5,60
- *   test the date, if not correct display an error message, reprompt
-  CALL tmp:date
-  IF tmp:date = '    '
-    @ 5,60 SAY '** Date Invalid **'
-  ELSE
-    *  use macro expansion to set the system date.
-    SET date TO &tmp:date
-  ENDIF
-ENDDO
-
-* open the DBF, NDX files
-USE text
-SET index TO tickle, keyword
-*  if look for the tmp:date in the recall fld
-* find todays date in the file
-STORE $(tmp:date,7,2)+$(tmp:date,1,2)+$(tmp:date,4,2) TO tmp:date
-FIND &tmp:date
-*  if today is not in file, position to record 1
-IF # = 0
-  skip
-ENDIF
-RELE tmp:date
-STORE T TO tklindex
-*  initialize the Index file flag line '' * ''
-STORE 5 TO line
-*  initialize the deleted record counter, used to prompt for PACK..
-STORE 0 TO delcnt
-
-*  This is a forever loop, note the "T"
-DO WHILE T
- *   display the current record and the main menu
-  ERASE
-  @  1,10 SAY "Tickle File Control Screen"
- *   Do not display any data if no records in file.
-  IF ##0
-    @  2,54 SAY "Deleted (T/F)"
-    @  $,$+3 SAY * USIN 'X'
-    @  3, 0 SAY "Contact  " +contact
-    @  3,54 SAY "Your Initials " +initials
-    @  4, 0 SAY "Company  " +company
-    @  4,54 SAY "Entry Date    " +e:date
-    @  5, 0 SAY "Address  " +address
-    @  5,54 SAY "Tickle Date   " +tkl:date
-    @  6, 0 SAY "City     " +city
-    @  6,54 SAY "Keyword   " +keyword
-    @  7,53 SAY "* Indicates Index"
-    @  7, 0 SAY "State    " +state
-    @  7,14 SAY "Zip " +zip
-    @  8, 0 SAY "Phone    " +Phone
-    @ 10, 2 SAY "Comments  " +line1
-    @ 11,12 SAY line2
-    @ line,53 SAY '*'
-  ENDIF
-  @ 18,0 SAY;
-'   A)ppend new cards         D)elete this card         F)ind card'
-  @ 19,0 SAY;
-'   E)dit existing cards      R)ecall this card         S)et INDEX'
-  @ 20,0 SAY;
-'   P)rint range of cards     Q)uit to dBASE II'
-  @ 21,0 SAY;
-'   > skip forward one card   < skip backward one card'
-  @ 23,0 SAY 'Enter an option from the above menu '
-  STORE ' ' TO option
-  DO WHILE .not. option$'AEDRPQ<>FS'
-    @ 23,35 GET OPTION PICT '!'
-    READ
-  ENDDO
-
-  @ 23,0 SAY '                                            '
-  DO CASE
-    CASE option='Q'
-      IF delcnt > 0
-       * if there were some records deleted, find out if they should be packed
-        INPUT 'Do you want to PACK the database file(Y/N) ?' TO ans
-        IF ans
-          SET index TO tickle,keyword
-          ? 'Using PACK to remove cards marked for deletion.'
-          PACK
-        ENDIF
-      ENDIF
-      USE
-      RELE all
-      RETURN
-
-    CASE option='A'
-     *   append records to the tickle file using full screen display
-     *  the format file allows the program to alter only the required info
-     *   leaving other info for display only.
-      SET format TO Appecard
-      APPEND
-      SET format TO
-
-    CASE option='E'
-     *  now that some records have been appended to the data file, we can go
-     * into the edit for back to the selection line.
-      SET format TO Editcard
-     *  edit the current record in the index...
-      EDIT #
-      SET format TO
-
-     *  Edit in this form allows the user to edit any record by moving forward
-     * or backward in the file.
-
-    CASE option='D'
-     *   Delete current card displayed on screen
-     *   don't need to do this if the record is already marked DELETE
-      IF .not. *
-        delete
-        STORE delcnt +1 TO delcnt
-      ENDIF
-
-    CASE  option='R'
-     *   Recall current card displayed on screen
-     *   only need to do this if the record is marked DELETE
-      IF *
-        recall
-        STORE delcnt -1 TO delcnt
-      ENDIF
-
-    CASE option='F'
-     *   prompt for the card to find
-      STORE '          ' TO lookup
-      STORE '99/99/99' TO pictchar
-      IF .not. tklindex
-       *  KEYWORD index set so look for a keyword
-        @ 22,0 SAY 'Find is based on KEYWORD.'
-        STORE 'XXXXXXXXXX' TO pictchar
-      ELSE
-        @ 22,0 SAY 'Find is based on TICKLE DATE.'
-      ENDIF
-      DO WHILE lookup = '          ' .or. # = 0
-        @ 23,0 SAY 'Enter the keyword to find, press return to abort find ';
-             GET lookup PICT '&pictchar'
-        read
-        STORE TRIM(lookup) TO lookup
-        IF tklindex
-          CALL lookup
-          STORE $(lookup,7,2)+$(lookup,1,2)+$(lookup,4,2) TO lookup
-        ENDIF
-        IF lookup#'          '
-          FIND &lookup
-        ENDIF
-      ENDDO
-
-
-    CASE option='S'
-     *  Swith the index between the tickle/keyword indexes
-      IF tklindex
-        SET index TO keyword,tickle
-        STORE F TO tklindex
-        STORE 6 TO line
-      ELSE
-        SET index TO tickle,keyword
-        STORE T TO tklindex
-        STORE 5 TO line
-      ENDIF
-
-    CASE option='P'
-     *  Print the cards in recall or keyword order.
-      DO cprint
-      rele strtdate, stopdate, lkupkey, expression
-
-
-    CASE  option='>'
-     *  skip forward
-      SKIP
-
-    CASE option='<'
-     *  skip backward
-      SKIP -1
-
-  ENDCASE
-
-ENDDO
-return
-* CMAIN.cmd  EOF
-

software/CPM/tosort/Dbase41/CPRINT.CMD

@@ -1,115 +0,0 @@
-*  Program     CPRINT.cmd     01 March 1983
-*    COPYRIGHT (c) 1983       ASHTON-TATE
-*    Programmed by joe stegman  for dBASE II(tm) release 2.4
-*    Called from CMAIN.cmd
-
-*    This program will print tickle cards from the TEXT database file.
-*    The sequence of the report is based on the index in use when this command
-*     file is executed. If sequence is by KEYWORD then the user is prompted to
-*     enter a keyword to FIND, then a range of dates to print for the keyword.
-*    If the TICKLE.ndx file is set then the user will be prompted for a range
-*     of dates to print. Then all cards falling within that range will be
-*     printed.
-
-*  clear menu from screen
- @ 18,0
- @ 19,0
- @ 20,0
- @ 21,0
- @ 22,0
-*   erase the prompt line
- @ 23,0 SAY '                                 '
-*   initialize the KEYWORD expression used in the report command
- STORE ' ' TO expression,lkup
- STORE # TO rec:no
- IF .not. tklindex
-  *   Printing report based on a keyword
-   STORE '.and. !(KEYWORD) = lkupkey' TO expression
-   STORE '          ' TO lkupkey
-   STORE F TO ok
-   DO WHILE .not. ok
-     STORE T TO ok
-     STORE '          ' TO lkupkey
-     @ 19,0 SAY 'Enter keyword to report on, or (/) to exit ';
-          GET lkupkey PICT '!!!!!!!!!!'
-     READ
-     IF lkupkey='/'
-       rele expression, lkupkey, ok, lkup
-       return
-     ENDIF
-     FIND '&lkupkey'
-     @ 19,55
-     IF #=0
-       @ 19,55 SAY '** Keyword Not Found **'
-       STORE F TO ok
-     ENDIF
-   ENDDO
- ENDIF
-*   read the dates...  But only if the user wants to continue
-*  or  if the index is set to the tickle index.
-
-*  set the index to tickle to test for a valid date entry
- set index to tickle,keyword
- STORE '  /  /  ' TO strtdate,stopdate
- STORE F TO ok
- DO WHILE .not. ok
-   STORE T TO ok
-   @ 21,0 SAY 'Enter Start date for range of cards to print ';
-         GET strtdate PICT '99/99/99'
-   READ
-   IF strtdate='  /  /  '
-    *  time to return to cmain
-     RELE startdate,stopdate,lkupdate,lkupkey,ok
-     RETURN
-   ENDIF
-   STORE $(strtdate,7,2) +$(strtdate,1,2) +$(strtdate,4,2) TO lkupdate
-   FIND &lkupdate
-   IF #=0
-     @ 21,55 SAY '** Date Not In Index'
-     STORE F TO ok
-   ENDIF
- ENDDO
-*   get the stop date for the range
- STORE strtdate TO stopdate
- STORE F TO ok
- DO WHILE .not. ok
-   STORE T TO ok
-   @ 22,0 SAY 'Enter Stop date of range of cards to print ';
-         GET stopdate PICT '99/99/99'
-   read
-   IF stopdate < strtdate
-     @ 22,55 SAY '** Date Invalid **'
-     STORE F TO ok
-   ENDIF
- ENDDO
-*
- STORE ' ' TO DVC
- DO WHILE .NOT. DVC$'PS'
-   @ 23,0 SAY 'Want report to P)rinter or to S)creen. Enter P/S ?';
-      GET dvc PICT '!'
-   READ
- ENDDO
- STORE " " TO dest
- IF DVC='P'
-   STORE 'TO PRINT' TO dest
- ENDIF
-
- IF .not. tklindex
-  *  looking in the Keyword index file
-   SET index TO keyword,tickle
-*  STORE lkupkey+lkupdate TO lkupkey
-   FIND &lkupkey
-   LOCATE next 65535 for tkl:date >= strtdate .and. !(keyword)=lkupkey
- ELSE
-   FIND &lkupdate
- ENDIF
- REPORT FORM tickle WHILE tkl:date <= stopdate &expression &dest
-ENDIF
-
-IF dvc='S'
-  ACCEPT 'Press RETURN to display the main menu ' TO dvc
-ENDIF
-RELE expression, lkupkey, ok, lkup, strtdate, stopdate, dest, dvc, lkupdate
-RETURN
-*  eof cprint.cmd
-

software/CPM/tosort/Dbase41/CREATE.CMD

@@ -1,83 +0,0 @@
-* Program.: CREATE.CMD
-* Author..: Luis A. Castro. 
-* Date....: 02/02/83. 
-* Notice..: Copyright 1983,  ASHTON-TATE.
-* Notes...: Creates a command file header and footer
-*    documentation. This is the recommend way to
-*    document command files.
-
-SET TALK OFF 
-SET INTENSITY OFF 
-
-* Replace my name with your name and
-* replace our copyright notice with your's. 
-STORE "Luis A. Castro" TO yourname
-STORE "Copyright 1983,  ASHTON-TATE" TO notice
-
-ERASE
-?
-? '* Program...:'
-? '* Author(s).:'+yourname
-? '* Date......:'
-? '* Notice....:'+notice
-? '* Called by.:'
-? '* Call(s)...:' 
-? '* Notes.....:'
-@ 0,0
-
-* Get program file name...
-ACCEPT '* Program...' to filename
-IF @('.',filename) > 0
-   STORE $(filename,1,@('.',filename)-1) to filename
-ENDIF
-IF filename=' '
-   ERASE
-   RETURN
-ENDIF
-STORE !(filename)+'.CMD' TO filename
-IF FILE(filename)
-   @ 10,0
-   ? '*** FILE ALREADY EXISTS ***'
-   CLEAR
-   RETURN
-ENDIF
-
-* Next, get the rest of the information...
-?
-ACCEPT '* Date......' TO date
-?
-ACCEPT '* Called by.' TO called:by
-ACCEPT '* Call(s)...' TO calls
-ACCEPT '* Notes.....' TO notes
-
-* Now, create the command file...
-ERASE
-SET ALTERNATE TO &filename
-SET ALTERNATE ON
-? '* Program...: '+filename
-? '* Author(s).: '+yourname
-? '* Date......: '+date
-? '* Notice....: '+notice
-? '* Called by.: '+called:by
-? '* Call(s)...: '+calls
-? '* Notes.....: '+notes
-?
-? '* Set flags go here...'
-? 'SET TALK OFF'
-?
-? '* Store statements follow...'
-? "STORE ' ' TO select"
-?
-? '* <body of program goes here>'
-?
-? '* <release local memory variables>'
-? 'RELEASE select'
-? 'RETURN'
-? '* EOF '+filename
-? '* <list of parameters passed>'
-SET ALTERNATE OFF
-
-CLEAR
-RETURN
-* EOF create.cmd 
-

software/CPM/tosort/Dbase41/DATER.CMD

@@ -1,80 +0,0 @@
-* Program...: DATER.CMD
-* Author(s).: "UNKNOWN", modified by Luis A. Castro.
-* Date......: 1/12/83. 
-* Notice....: Copyright 1983, ASHTON-TATE 
-* Notes.....: Demonstrates converting from calendar date
-*   to julian date, adding a given number of days, then 
-*   converting back to the calendar date.
-
-SET TALK OFF 
-SET BELL OFF 
-SET INTENSITY OFF 
-ERASE
-@ 2, 0 SAY "C A L E N D A R - J U L I A N    C O N V E R S I O N"
-@ 3, 0 SAY "========================================"
-@ 3,40 SAY "========================================"
-
-STORE "        " TO mdate
-DO WHILE mdate="  "
-   STORE "        " TO mdate
-   @ 5,0 SAY 'Enter calendar date ';
-         GET mdate PICTURE "99/99/99"
-   READ
-   STORE VAL($(mdate,1,2)) TO month
-   STORE VAL($(mdate,4,2)) TO day
-   STORE VAL($(mdate,7,2))+1900 TO year
-   * If you wish to verify the date and the DATESYS
-   * command file has been executed, type the following:
-   *   POKE 41997,month,day,year
-   *   CALL
-ENDDO
-
-* Convert from CALENDAR to JULIAN...
-* What is 395.25???
-STORE INT(30.57*month)+INT(365.25*year-395.25)+day TO julian
-* Adjust the julian date if leap year...
-IF month > 2
-   IF INT(year/4) = year/4
-      STORE julian-1 TO julian
-   ELSE
-      STORE julian-2 TO julian
-   ENDIF
-ENDIF
-@ 6, 0 SAY "The julian date is ="
-@ 6,20 SAY julian
-STORE 0 TO delta
-@ 8,0 SAY "Enter interval in days between dates ";
-       GET delta PICTURE "999"
-READ
-STORE julian+delta TO mjulian
-
-* Convert from JULIAN to CALENDAR...
-STORE INT(mjulian/365.26)+1 TO year
-STORE mjulian+INT(395.25-365.25*year) TO day
-* Calculate extra day for leap year...
-IF INT(year/4)*4 = year
-   STORE 1 TO leapday
-ELSE
-   STORE 2 TO leapday
-ENDIF
-* Calculate actual number of days...
-IF day > (91-leapday)
-   STORE day+leapday TO day
-ENDIF
-* Generate actual month, day, and year...
-STORE INT(day/30.57) TO month
-STORE day-INT(30.57*month) TO day
-IF month > 12
-   STORE 1 TO month
-   STORE year+1 TO year
-ENDIF
-
-* Set-up the calendar date and display it...
-STORE year-1900 TO year
-STORE STR(month,2)+"/"+STR(day,2)+"/"+STR(year,2) TO mdate
-@ 10,0 SAY "CALENDAR DATE = "+mdate
-
-RELEASE leapday,mdate,julian,mjulian,day,month,year,delta
-RETURN 
-* EOF dater.cmd
-

software/CPM/tosort/Dbase41/DATESYS.CMD

@@ -1,99 +0,0 @@
-* Program.: DATESYS.CMD
-* Author..: Luis A. Castro. 
-* Date....: 12/6/82. 
-* Notice..: Copyright 1982,  ASHTON-TATE. 
-* Notes...: To set the system date with a verified date using
-*   the DATETEST subroutine. This command file works only with
-*   dBASE II version 2.3B and 2.4 under CP/M 2.2. You may want
-*   to remove all the comment lines, if you want to make this
-*   program run faster.
-*
-* Subroutine DATETEST:
-*   Memory used.: A410H to A482H.
-*   Description.: Checks date input, entered through POKEs to
-*      locations 41997,41998, and 41999.  Location 41997 gets the
-*      month parameter, location 41998 gets the day, and location
-*      41999 gets the year.  Returns nulls at locations 41997,
-*      41998, and 41999 if there is an error in input.  This 
-*      subroutine also checks for leap year.
-*   Note........: This subroutine will always be available through
-*      a POKE and CALL command once it is loaded, as long as you
-*      do not execute a SORT command.
-*
-* Disclaimer: This program is a sample program. The author does 
-*   not claim it to be syntactically correct or complete.  The
-*   author recommends that the user always maintain backup files,
-*   especially when trying a new program.  Any corruption of data
-*   resulting from the use of this program is the sole respon-
-*   sibility of the user. 
-*
-SET TALK OFF 
-SET BELL OFF
-SET INTENSITY OFF 
-
-STORE DATE() TO mdate
-IF mdate="00/00/00"
-   * The POKE sequences that follow, load the DATETEST
-   * subroutine starting at address 42000 decimal.
-   * I chose the POKE method, because with small
-   * subroutines it is faster than LOADing.
-   SET CALL TO 42000 
-   *             0   1   2   3   4   5   6   7   8   9 
-   POKE 42000,  58, 14,164,254,  1,218,115,164,254, 32 
-   POKE 42010, 210,115,164, 58, 15,164,254,  0,218,115 
-   POKE 42020, 164,254,100,210,115,164, 58, 13,164,254 
-   POKE 42030,   1,218,115,164,254, 13,210,115,164,254 
-   POKE 42040,   2,202, 92,164, 14,  4, 33,127,164,190 
-   POKE 42050,  35,202, 83,164, 13,194, 65,164, 58, 14 
-   POKE 42060, 164,254, 32,210,115,164,201, 58, 14,164 
-   POKE 42070, 254, 31,210,115,164,201, 58, 15,164,230 
-   POKE 42080,   3, 58, 14,164,202,109,164,254, 29,210 
-   POKE 42090, 115,164,201,254, 30,210,115,164,201, 62 
-   POKE 42100,   0, 50, 13,164, 50, 14,164, 50, 15,164 
-   POKE 42110, 201,  4,  6,  9, 11 
-
-   * Next, a prompt is displayed on the screen to get
-   * the date and the program loops through until a 
-   * valid date is entered.
-   ERASE
-   @ 2, 0 SAY 'S Y S T E M    D A T E'
-   @ 3, 0 SAY '========================================'
-   @ 3,40 SAY '========================================'
-
-   * Initialize the date parameters...
-   POKE 41997,0,0,0
-
-   DO WHILE PEEK(41997)=0
-      STORE "  /  /  " TO mdate
-      @ 5,0 SAY 'Enter system date as MM/DD/YY ';
-            GET mdate PICTURE "99/99/99"
-      READ
-      * Now POKE the month,day, and year into 
-      * locations 41997,41998,and 41999 respectively.  
-      POKE 41997,VAL($(mdate,1,2))
-      POKE 41998,VAL($(mdate,4,2))
-      POKE 41999,VAL($(mdate,7,2))
-      CALL
-   ENDDO
-
-   * If you prefer an input format of DD/MM/YY you would
-   * substitute the above DO WHILE..ENDDO with
-   *
-   * DO WHILE PEEK(41997)=0
-   *    STORE "  /  /  " TO mdate
-   *    @ 5,0 SAY 'Enter system date as DD/MM/YY ';
-   *          GET mdate PICTURE "99/99/99"
-   *    READ
-   *    POKE 41997,VAL($(mdate,4,2))
-   *    POKE 41998,VAL($(mdate,1,2))
-   *    POKE 41999,VAL($(mdate,7,2))
-   *    CALL
-   * ENDDO
-
-   * The system date is set at this point.
-   SET DATE TO &mdate
-ENDIF
-
-RETURN 
-* EOF DATESYS.CMD 
-

software/CPM/tosort/Dbase41/DATETEST.HEX

@@ -1,14 +0,0 @@
-:10A5000022AAA57EFE08C274A516011E0DCD80A547
-:10A51000DA74A532B0A52316011E20CD80A5DA7409
-:10A52000A532B1A52316001E64CD80A5DA74A5322C
-:10A53000B2A53AB0A5FE02CA5AA50E0421ACA5BE2A
-:10A5400023CA51A50DC23FA53AB1A5FE20D274A5DC
-:10A55000C93AB1A5FE1FD274A5C93AB2A5E603CA8D
-:10A560006BA53AB1A5FE1DD274A5C93AB1A5FE1ED0
-:10A57000D274A5C92AAAA54E2336200DC278A5C932
-:10A58000237EFE20C28CA50600C394A5D630D8FE3B
-:10A590000A3FD847237ED630D8FE0A3FD84F788767
-:0AA5A0004787878081BAD8BB3FC906
-:07A5AC000406090B0000008A
-:0000000000
-