# Compucolor.org – Virtual Media

```100 REM  *************** ADD ACCOUNTS ************************
110 REM
120 GOTO 350
130 REM
140 REM  ****************** YES/NO ***************************
150 POKE 33278,0
160 IF PEEK (33278)= 0GOTO 160
170 IF PEEK (33278)= 89THEN PRINT "ES":Q\$= "Y":RETURN
180 IF PEEK (33278)= 78THEN PRINT "O":Q\$= "N":RETURN
190 PLOT 26,32,26:GOTO 150
200 REM
210 REM  ************** INKEY (SINGLE KEY INPUT) *************
220 POKE 33278,0
230 Y= PEEK (33278)
240 IF Y= 0GOTO 230
250 Y\$= CHR\$ (Y):RETURN
260 REM
270 REM  *************** PROTECTED FIELDS ********************
280 PO= PEEK (32940)+ PEEK (32941)* 256+ 1:SA= 28672+ 128* Y+ X+ X:ZZ= INT (SA/ 256):POKE PO+ 3,SA- 256* ZZ:POKE PO+ 4,ZZ:SA= SA- 2:POKE PO+ 1,ASC (NA\$):FI\$= ""
290 PLOT 3,X,Y:KB= CALL (ML):IF KB= 9OR PEEK (PO)= 0THEN RETURN
300 FOR I= 2TO PEEK (PO)* 2STEP 2:FI\$= FI\$+ CHR\$ (PEEK (SA+ I)):NEXT I:RETURN
350 PLOT 27,4:PRINT "RUN FIELDS":PLOT 27,27:CLEAR 5000
360 DD= PEEK (65535):DSK\$= MID\$ (STR\$ (DD- 1),2)+ ":"
400 IF DD= 1THEN PLOT 12,14,3,10,15:INPUT "LOAD DATA DISK AND HIT <RETURN> ";A
430 PRINT :PRINT :PRINT "OPTIONS ARE:"
440 PRINT :PRINT "	1. ADD INCOME ACCOUNT (OTHER THAN PAY)"
450 PRINT "	2. ADD A BANK ACCOUNT"
460 PRINT "	3. ADD EXPENDITURE ACCOUNT (OTHER THAN PAY DEDUCTION)"
470 PRINT "	4. ADD AN ASSET ACCOUNT"
480 PRINT "	5. ADD A LIABILITY ACCOUNT"
490 PRINT "	9. END"
500 PRINT :PRINT :PRINT "PLEASE MAKE A SELECTION....";:GOSUB 220:ANS= VAL (Y\$):PRINT
510 IF NOT ((ANS> = 1AND ANS< = 5)OR ANS= 9)THEN PLOT 7:GOTO 420
520 ON ANSGOSUB 1000,2000,3000,4000,5000,9000,9000,9000,9000
530 GOTO 420
1000 REM  ************* ADD INCOME ACCOUNT ********************
1010 REM
1020 FILE "R",1,DSK\$+ "INCTIT",1
1030 GET 1,1;NREC:NACCT= NREC- 1
1040 IF NACCT> 18THEN 1200
1050 PLOT 12,3,1,1:PRINT "CURRENT ACCOUNTS ARE:"
1060 PLOT 3,32,1:PRINT "SUGGESTED INCOME CATEGORIES ARE:"
1070 FOR REC= 2TO NREC- 1
1080 GET 1,REC;NAME\$[12]:PLOT 3,5,REC+ 3:PRINT REC- 1,""NAME\$""
1090 NEXT REC
1100 PLOT 3,32,5:PRINT " 1. PAY"
1110 PLOT 3,32,6:PRINT " 2. CHILD ENDOWMENT"
1120 PLOT 3,32,7:PRINT " 3. SOCIAL WELFARE"
1130 PLOT 3,32,8:PRINT " 4. DIVIDENDS AND INTEREST"
1140 PLOT 3,32,9:PRINT " 5. RENTAL INCOME"
1150 PLOT 3,32,10:PRINT " 6. BUSINESS INCOME"
1160 GOSUB 10000:REM           INPUT PAY DETAILS
1170 PUT 1,NREC;INCAC\$[12],BUDCAT\$[1],TAX\$[1],FRQ\$[2],FAMT
1180 NREC= NREC+ 1:PUT 1,1;NREC
1190 PLOT 12:GOTO 1210
1200 PLOT 7,12,3,5,15:PRINT "YOU HAVE USED YOUR QUOTA OF 19 INCOME ACCOUNTS"
1210 PRINT :PLOT 3,5,17:PRINT "DO YOU WISH TO ADD ANY MORE INCOME ACCOUNTS (Y/N)? ";:GOSUB 150:IF NOT (Q\$= "Y"OR Q\$= "N")THEN PLOT 7,28,11,28:GOTO 1210
1220 IF Q\$= "Y"THEN 1030
1230 FILE "C",1:RETURN
2000 REM  ************* ADD BANK ACCOUNT ********************
2010 REM
2020 FILE "R",1,DSK\$+ "BNKTIT",1
2030 GET 1,1;NREC:NACCT= NREC- 1
2040 IF NACCT> 9THEN 2200
2050 PLOT 12,3,1,1:PRINT "CURRENT ACCOUNTS ARE :"
2060 PLOT 3,32,1:PRINT "SUGGESTED 'BANK' CATEGORIES ARE:"
2065 IF NACCT= 1GOTO 2100
2070 FOR REC= 2TO NREC- 1
2080 GET 1,REC;NAME\$[12]:PLOT 3,5,REC+ 3:PRINT REC- 1,""NAME\$""
2090 NEXT REC
2100 PLOT 3,32,5:PRINT " 1. SAVINGS ACCOUNTS"
2110 PLOT 3,32,6:PRINT " 2. CHEQUE ACCOUNTS"
2120 PLOT 3,32,7:PRINT " 3. BUILDING SOCIETIES"
2130 PLOT 3,32,8:PRINT " 4. CREDIT UNIONS"
2160 GOSUB 11000:REM           INPUT BANK DETAILS
2170 PUT 1,NREC;BNKAC\$[12],DETAIL\$[13],BAL,LDATE\$[9]
2180 NREC= NREC+ 1:PUT 1,1;NREC
2190 PLOT 12:GOTO 2210
2200 PLOT 7,12,3,5,15:PRINT "YOU HAVE USED YOUR QUOTA OF 9 BANK ACCOUNTS"
2210 PRINT :PLOT 3,5,17:PRINT "DO YOU WISH TO ADD ANY MORE BANK ACCOUNTS (Y/N)? ";:GOSUB 150:IF NOT (Q\$= "Y"OR Q\$= "N")THEN PLOT 7,28,11,28:GOTO 2210
2220 IF Q\$= "Y"THEN 2030
2230 FILE "C",1:RETURN
3000 REM  ************* ADD EXPENDITURE ACCOUNT ***************
3010 REM
3020 FILE "R",1,DSK\$+ "EXPTIT",1
3030 GET 1,1,5;NREC:NACCT= NREC- 1
3040 IF NACCT> 63THEN 3340
3050 IF NACCT> 1THEN PLOT 12,3,1,1:PRINT "CURRENT ACCOUNTS ARE :"
3060 IF NACCT= 1GOTO 3130
3070 FOR REC= 2TO NREC- 1
3080 GET 1,REC;NAME\$[12]
3090 IF REC< = 15THEN PLOT 3,0,REC+ 1:PRINT REC- 1;" "NAME\$"":GOTO 3130
3084 IF REC< = 29THEN PLOT 3,16,REC- 13:PRINT REC- 1;" "NAME\$"":GOTO 3130
3110 IF REC< = 43THEN PLOT 3,32,REC- 27:PRINT REC- 1;" "NAME\$"":GOTO 3130
3120 PLOT 3,48,REC- 41:PRINT REC- 1;" "NAME\$""
3130 NEXT REC
3132 PLOT 3,5,25:PRINT "DO YOU WISH TO SEE SAMPLE CATEGORIES (Y/N)? ";:GOSUB 150:IF NOT (Q\$= "Y"OR Q\$= "N")THEN PLOT 7:GOTO 3132
3140 IF Q\$= "N"THEN PLOT 28,11:GOTO 3300
3150 PLOT 12:PRINT "SAMPLE CATEGORIES OF EXPENDITURE ACCOUNTS ARE:"
3160 PRINT :PRINT :PRINT "LIFE INSURANCE			HOUSEHOLD INSURANCE"
3170 PRINT "MEDICAL/HOSPITAL EXPENSES	MEDICAL/HOSPITAL SUBS"
3180 PRINT "RENT				RATES"
3190 PRINT "MORTGAGE REPAYMENTS		HOUSE REPAIRS"
3200 PRINT "FOOD AND LIFING			HOUSEHOLD REPLACEMENTS"
3210 PRINT "ELECTRICITY/GAS/FUEL		TELEPHONE"
3220 PRINT "LAUNDRY AND CLEANING		CLOTHING"
3230 PRINT "CHILD CARE/EDUCATION		ENTERTAINMENT"
3240 PRINT "FARES				AUTOMOBILE RUNNING COSTS"
3250 PRINT "HIRE PURCHASE PAYMENTS		LOAN PAYMENTS"
3270 PRINT :PRINT :INPUT "HIT <RETURN> TO CONTINUE....";ANS
3280 GOTO 3050
3290 REM
3300 GOSUB 12000:REM           INPUT EXPENDITURE DETAILS
3310 PUT 1,NREC;EXAC\$[12],BUDCAT\$[1],TAX\$[1],FRQ\$[2],FCAST,LIABAC\$[2],INCAC\$[2],BAL,"         "[9],"N"[1]
3320 NREC= NREC+ 1:PUT 1,1,5;NREC
3330 PLOT 12:GOTO 3350
3340 PLOT 7,12,3,5,15:PRINT "YOU HAVE USED YOUR QUOTA OF 63 EXPENDITURE ACCOUNTS"
3350 PRINT :PLOT 3,5,17:PRINT "DO YOU WISH TO ADD ANY MORE EXPENDITURE ACCOUNTS (Y/N)? ";:GOSUB 150:IF NOT (Q\$= "Y"OR Q\$= "N")THEN PLOT 7:GOTO 3350
3360 IF Q\$= "Y"THEN 3030
3370 FILE "C",1:RETURN
4000 REM  ************* ADD ASSET ACCOUNT ********************
4010 REM
4020 FILE "R",1,DSK\$+ "ASSETS",3
4030 GET 1,1;NREC:NACCT= NREC- 1
4040 IF NACCT> 23THEN 4190
4050 PLOT 12,3,1,1:PRINT "CURRENT ACCOUNTS ARE :"
4060 IF NREC< = 13THEN PLOT 3,30,1:PRINT "SUGGESTED 'ASSET' CATEGORIES ARE:"
4070 IF NACCT= 1GOTO 4110
4080 FOR REC= 2TO NREC- 1
4090 GET 1,REC;NAME\$[20]
4091 IF REC< = 13THEN PLOT 3,5,REC+ 1:PRINT REC- 1,""NAME\$"":GOTO 4100
4092 PLOT 3,32,REC- 11:PRINT REC- 1;" "NAME\$""
4100 NEXT REC
4108 IF NREC> 13GOTO 4150
4110 PLOT 3,30,5:PRINT " 1. REAL ESTATE"
4120 PLOT 3,30,6:PRINT " 2. SHARES AND DEBENTURES"
4130 PLOT 3,30,7:PRINT " 3. INSURANCE POLS (SURRENDER VAL)"
4140 PLOT 3,30,8:PRINT " 4. MOTOR VEHICLES"
4142 PLOT 3,30,9:PRINT " 5. FURNITURE & PERSONAL EFFECTS"
4150 GOSUB 13000:REM           INPUT ASSET DETAILS
4170 NREC= NREC+ 1:PUT 1,1;NREC
4180 PLOT 12:GOTO 4200
4190 PLOT 7,12,3,5,15:PRINT "YOU HAVE USED YOUR QUOTA OF 23 ASSET ACCOUNTS"
4200 PRINT :PLOT 3,5,17:PRINT "DO YOU WISH TO ADD ANY MORE ASSET ACCOUNTS (Y/N)? ";:GOSUB 150:IF NOT (Q\$= "Y"OR Q\$= "N")THEN PLOT 7:GOTO 4200
4210 IF Q\$= "Y"THEN 4030
4220 FILE "C",1:RETURN
5000 REM  ************* ADD LIABILITY ACCOUNT ********************
5010 REM
5020 FILE "R",1,DSK\$+ "LIABS",3
5030 GET 1,1;NREC:NACCT= NREC- 1
5040 IF NACCT> 23THEN 5200
5050 PLOT 12,3,1,1:PRINT "CURRENT ACCOUNTS ARE :"
5060 IF NREC< = 13THEN PLOT 3,30,1:PRINT "SUGGESTED CATEGORIES ARE:"
5070 IF NACCT= 1GOTO 5110
5080 FOR REC= 2TO NREC- 1
5090 GET 1,REC;NAME\$[20]
5091 IF REC< = 13THEN PLOT 3,5,REC+ 1:PRINT REC- 1," "NAME\$"":GOTO 5100
5092 PLOT 3,32,REC- 11:PRINT REC- 1;" "NAME\$""
5100 NEXT REC
5101 IF NREC> 13GOTO 5160
5110 PLOT 3,30,5:PRINT " 1. MORTGAGE"
5120 PLOT 3,30,6:PRINT " 2. OVERDRAFTS"
5130 PLOT 3,30,7:PRINT " 3. LOANS"
5140 PLOT 3,30,8:PRINT " 4. HIRE PURCHASE"
5150 PLOT 3,30,9:PRINT " 5. CREDIT CARDS"
5160 GOSUB 14000:REM           INPUT LIABILITY DETAILS
5170 PUT 1,NREC;LIABAC\$[20],BAL,BALDATE\$[9],INRATE,PERIOD
5180 NREC= NREC+ 1:PUT 1,1;NREC
5190 PLOT 12:GOTO 5210
5200 PLOT 7,12,3,1,15:PRINT "YOU HAVE USED YOUR QUOTA OF 23 LIABILITY ACCOUNTS"
5210 PRINT :PLOT 3,1,17:PRINT "DO YOU WISH TO ADD ANY MORE LIABILITY ACCOUNTS (Y/N)? ";:GOSUB 150:IF NOT (Q\$= "Y"OR Q\$= "N")THEN PLOT 7:GOTO 5210
5220 IF Q\$= "Y"THEN 5030
5230 FILE "C",1:RETURN
10000 REM  ****************** PROTECTED FIELDS *****************
10010 PLOT 3,23,16
10020 PRINT "ENTER INCOME DETAILS"
10030 PLOT 3,0,18,15
10040 PLOT 3,1,20:PRINT "ACCOUNT NUMBER"
10050 PLOT 3,1,21:PRINT "ACCOUNT NAME"
10060 PLOT 3,1,22:PRINT "BUDGET CATEGORY"
10070 PLOT 3,1,23:PRINT "TAXABLE (Y/N)?"
10080 PLOT 3,1,24:PRINT "TIMES PER YEAR"
10085 PLOT 3,1,25:PRINT "FORECAST AMOUNT        \$"
10090 PLOT 3,25,20:PRINT ""NACCT""
10100 PLOT 3,25,21:PRINT "            "
10110 PLOT 3,25,22:PRINT " "
10120 PLOT 3,25,23:PRINT " "
10130 PLOT 3,25,24:PRINT "  "
10135 PLOT 3,25,25:PRINT "         "
10140 REM
10150 PLOT 6,2,3,0,27:GOSUB 20000
10210 X= 25:Y= 21:ML= 12:NA\$= "A":PLOT 6,38
10230 GOSUB 280:IF KB= 9GOTO 10230
10250 INCAC\$= FI\$
10260 X= 25:Y= 22:ML= 1:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 10210
10300 BUDCAT\$= FI\$
10310 X= 25:Y= 23:ML= 10:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 10260
10350 TAX\$= FI\$
10360 X= 25:Y= 24:ML= 2:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 10310
10400 FRQ\$= FI\$
10420 X= 25:Y= 25:ML= 9:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 10360
10450 FAMT= VAL (FI\$):PLOT 6,2:RETURN
11000 REM  **************   PROTECTED FIELDS.  *****************
11010 PLOT 3,23,16
11020 PRINT "ENTER BANK DETAILS"
11030 PLOT 3,0,18,15
11040 PLOT 3,1,20:PRINT "ACCOUNT NUMBER"
11050 PLOT 3,1,21:PRINT "ACCOUNT NAME"
11060 PLOT 3,1,22:PRINT "ACCOUNT IDENTIFICATION"
11070 PLOT 3,1,23:PRINT "BALANCE                \$"
11080 PLOT 3,1,24:PRINT "LAST DATE (D.M.YY)"
11100 PLOT 3,25,20:PRINT ""NACCT""
11110 PLOT 3,25,21:PRINT "            "
11120 PLOT 3,25,22:PRINT "             "
11130 PLOT 3,25,23:PRINT "          "
11140 PLOT 3,25,24:PRINT "         "
11160 REM
11170 PLOT 6,2,3,0,27:GOSUB 20000
11230 X= 25:Y= 21:ML= 12:NA\$= "A":PLOT 6,38
11250 GOSUB 280:IF KB= 9GOTO 11250
11270 BNKAC\$= FI\$
11280 X= 25:Y= 22:ML= 13:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 11230
11320 DETAIL\$= FI\$
11330 X= 25:Y= 23:ML= 10:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 11280
11370 BAL= VAL (FI\$)
11380 X= 25:Y= 24:ML= 8:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 11330
11420 TD\$= FI\$:GOSUB 21000:IF ERR= 1THEN PLOT 7:GOTO 11380
11430 LDATE\$= TD\$:PLOT 6,2:RETURN
12000 REM  *****
************* PROTECTED FIELDS ****************
12010 PLOT 3,23,20
12020 PRINT "ENTER EXPENDITURE DETAILS"
12030 PLOT 3,0,18,15
12040 PLOT 3,1,22:PRINT "ACCOUNT NUMBER"
12050 PLOT 3,1,23:PRINT "ACCOUNT NAME"
12060 PLOT 3,1,24:PRINT "BUDGET CATEGORY"
12070 PLOT 3,1,25:PRINT "TAXABLE (Y/N)?"
12080 PLOT 3,1,26:PRINT "TIMES PER YEAR"
12090 PLOT 3,1,27:PRINT "FORECAST AMOUNT        \$"
12100 PLOT 3,1,28:PRINT "LIABILITY A/C NUMBER"
12110 PLOT 3,1,29:PRINT "INCOME A/C NUMBER"
12120 PLOT 3,1,30:PRINT "BALANCE                \$"
12130 PLOT 3,25,22:PRINT ""NACCT""
12140 PLOT 3,25,23:PRINT "            "
12150 PLOT 3,25,24:PRINT " "
12160 PLOT 3,25,25:PRINT " "
12170 PLOT 3,25,26:PRINT "  "
12180 PLOT 3,25,27:PRINT "         "
12190 PLOT 3,25,28:PRINT "  "
12200 PLOT 3,25,29:PRINT "  "
12210 PLOT 3,25,30:PRINT "         "
12220 REM
12230 PLOT 6,2
12240 X= 25:Y= 23:ML= 12:NA\$= "A":PLOT 6,38
12260 GOSUB 280:IF KB= 9GOTO 12260
12280 EXAC\$= FI\$
12290 X= 25:Y= 24:ML= 1:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12240
12330 BUDCAT\$= FI\$
12340 X= 25:Y= 25:ML= 1:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12290
12380 TAX\$= FI\$
12390 X= 25:Y= 26:ML= 2:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12340
12430 FRQ\$= FI\$
12440 X= 25:Y= 27:ML= 9:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12390
12470 FCAST= VAL (FI\$)
12480 X= 25:Y= 28:ML= 2:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12440
12510 LIABAC\$= FI\$
12520 X= 25:Y= 29:ML= 2:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12480
12550 INCAC\$= FI\$
12560 X= 25:Y= 30:ML= 9:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 12520
12590 BAL= VAL (FI\$):PLOT 6,2:RETURN
13000 REM  **************   PROTECTED FIELDS.  *****************
13010 PLOT 3,23,16
13020 PRINT "ENTER ASSET DETAILS"
13030 PLOT 3,0,18,15
13040 PLOT 3,1,20:PRINT "ACCOUNT NUMBER"
13050 PLOT 3,1,21:PRINT "ACCOUNT NAME"
13060 PLOT 3,1,22:PRINT "VALUE                  \$"
13070 PLOT 3,1,23:PRINT "DATE OF VALUE"
13080 PLOT 3,1,24:PRINT "APPRECIATION RATE"
13082 PLOT 3,1,25:PRINT "INFLATION RATE"
13090 PLOT 3,25,20:PRINT ""NACCT""
13100 PLOT 3,25,21:PRINT "                    "
13110 PLOT 3,25,22:PRINT "         "
13120 PLOT 3,25,23:PRINT "        "
13130 PLOT 3,25,24:PRINT "     %"
13132 PLOT 3,25,25:PRINT "     %"
13140 REM
13150 PLOT 6,2,3,0,27:GOSUB 20000
13160 X= 25:Y= 21:ML= 20:NA\$= "A":PLOT 6,38
13180 GOSUB 280:IF KB= 9GOTO 13180
13200 ASSAC\$= FI\$
13210 X= 25:Y= 22:ML= 9:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 13160
13250 VA= VAL (FI\$)
13260 X= 25:Y= 23:ML= 8:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 13210
13300 TD\$= FI\$:GOSUB 21000:IF ERR= 1THEN PLOT 7:GOTO 13260
13310 X= 25:Y= 24:ML= 5:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 13260
13350 APPRATE= VAL (FI\$)
13351 X= 25:Y= 25:ML= 5:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 13310
13355 INFRATE= VAL (FI\$):PLOT 6,2:RETURN
14000 REM  **************   PROTECTED FIELDS.  *****************
14010 PLOT 3,23,16
14020 PRINT "ENTER ASSET DETAILS"
14030 PLOT 3,0,18,15
14040 PLOT 3,1,20:PRINT "ACCOUNT NUMBER"
14050 PLOT 3,1,21:PRINT "ACCOUNT NAME"
14060 PLOT 3,1,22:PRINT "BALANCE                \$"
14070 PLOT 3,1,23:PRINT "BALANCE DATE"
14080 PLOT 3,1,24:PRINT "INTEREST RATE"
14090 PLOT 3,1,25:PRINT "INTEREST PERIOD (365,12)"
14100 PLOT 3,25,20:PRINT ""NACCT""
14110 PLOT 3,25,21:PRINT "                    "
14120 PLOT 3,25,22:PRINT "         "
14130 PLOT 3,25,23:PRINT "        "
14140 PLOT 3,25,24:PRINT "     %"
14150 PLOT 3,25,25:PRINT "     "
14160 REM
14170 PLOT 6,2,3,0,27:GOSUB 20000
14180 X= 25:Y= 21:ML= 20:NA\$= "A":PLOT 6,38
14200 GOSUB 280:IF KB= 9GOTO 14200
14220 LIABAC\$= FI\$
14230 X= 25:Y= 22:ML= 9:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 14180
14270 BAL= VAL (FI\$)
14280 X= 25:Y= 23:ML= 8:NA\$= "A":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 14230
14320 TD\$= FI\$:GOSUB 21000:IF ERR= 1THEN PLOT 7:GOTO 14280
14325 BALDATE\$= TD\$
14330 X= 25:Y= 24:ML= 5:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 14280
14370 INRATE= VAL (FI\$)
14380 X= 25:Y= 25:ML= 5:NA\$= "N":PLOT 6,38:GOSUB 280:IF KB= 9GOTO 14330
14420 PERIOD= VAL (FI\$):PLOT 6,2:RETURN
19997 REM
19998 REM  ************** INPUT INSTRUCTIONS (******************
19999 REM
20000 PRINT "           1. ONLY LEFT & RIGHT CURSOR ALLOWED."
20010 PRINT "           2. CURSOR WON'T GO OUT OF A FIELD."
20020 PRINT "           3. DEL/INS CHAR AND DEL LINE ALL WORK."
20030 PRINT "           4. ALPHA CHARS DISABLED IN NUMERIC FLD."
20040 PRINT "           5. TAB KEY BACKS UP A FIELD.";
20050 RETURN
21000 REM  ******************** DATE ROUTINE *******************
21010 REM
21020 REM  INPUT DATE AS D.M.YY ,ASSIGN TO TD\$, AND CALL THIS
21030 REM  OUTPUT IS TD\$ IN THE FORM OF '12 JAN 81'
21040 REM
21045 ERR= 0:IF LEN (TD\$)= 0THEN ERR= 1:GOTO 21120
21047 FOR JI= 1TO LEN (TD\$):T6= ASC (MID\$ (TD\$,JI,1)):IF NOT (T6= 46OR (T6> 47AND T6< 58))THEN ERR= 1:GOTO 21120
21049 NEXT JI
21050 STRMTH\$= "  JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
21060 IF  MID\$ (TD\$,2,1)= "."THEN TD\$= "0"+ TD\$
21070 IF  MID\$ (TD\$,5,1)= "."THEN TD\$= LEFT\$ (TD\$,3)+ "0"+ RIGHT\$ (TD\$,4)
21080 MM= VAL (MID\$ (TD\$,4,2))
21090 MM\$= " "+ MID\$ (STRMTH\$,MM* 3,3)+ " "
21100 TD\$= LEFT\$ (TD\$,2)+ MM\$+ RIGHT\$ (TD\$,2)
21110 IF  LEFT\$ (TD\$,1)= "0"THEN TD\$= " "+ RIGHT\$ (TD\$,8)
21120 IF ERR= 1THEN PLOT 7
21130 RETURN
```