0 DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"HELP-SCHC",DV,1
2 IFA=1THENA=2:LOAD"NOTEPAD",DV,1
3 POKE198,0
5 DIM M0$(20),M1$(20),M2$(20),M3$(20),M4$(20),M5$(20),M6$(20),M7$(20),M8$(20)
6 DIMM9$(20):SP$="          "
7 DIMD$(44):FORI=0TO44:D$(I)="0":NEXT
10 POKE53280,0:POKE53281,0:AD=36864
20 READX:FORI=1TOX:READM0$(I):NEXT
21 READX:FORI=1TOX:READM1$(I):NEXT
22 READX:FORI=1TOX:READM2$(I):NEXT
24 READX:FORI=1TOX:READM3$(I):NEXT
25 READX:FORI=1TOX:READM4$(I):NEXT
26 READX:FORI=1TOX:READM5$(I):NEXT
27 READX:FORI=1TOX:READM6$(I):NEXT
30 READX:FORI=1TOX:READM9$(I):NEXT
33 PRINT"";
40 SYSAD,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[211]CHEDULE [195]"
50 IFPEEK(198)<>1THENEND
55 SYSAD+15:GETDV$:GETME$:GETHI$:GETTX$
56 DV=ASC(DV$):M=ASC(ME$)AND15:H=ASC(HI$)AND15:TX=ASC(TX$)AND15
60 SYSAD+18:POKE198,0:GOSUB9000
70 SYSAD+3,11+64,11,8,M,H,TX,M0$(1),M0$(2),M0$(3),M0$(4),M0$(5),M0$(6),M0$(7),M0$(8),M0$(9),M0$(10),M0$(11)
80 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
85 IFK>3THENSYSAD+18:POKE781,21:SYS59903
90 ONKGOTO 200,300,900,1070,2070,3070,4070,5070,6070,700,40
95 GOTO70
100 :
200 GOSUB9300
210 IFVAL(W$)=0THEN275
220 OPEN15,DV,15,"IO":W$="SCHC."+W$
225 OPEN2,DV,2,"0:"+W$+",S,R"
230 INPUT#15,E,E$,E1,E2
234 POKE214,21:PRINT:PRINT"                                    "
235 POKE214,21:PRINT:PRINT"[196]ISK [211]TATUS:"E;E$:FORI=1TO2000:NEXT
236 POKE214,21:PRINT:PRINT"                                    "
240 IFETHENCLOSE2:CLOSE15:PRINT"[145][198]ILE [206]OT [204]OADED":FORI=1TO2000:NEXT:GOTO275
250 FORI=0TO44:INPUT#2,D$(I):NEXT
270 CLOSE2:CLOSE15
275 GOSUB9000:GOTO70
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="SCHC."+W$
320 OPEN15,DV,15,"S0:"+W$:CLOSE15
330 OPEN15,DV,15,"IO"
335 OPEN2,DV,2,"0:"+W$+",S,W"
340 INPUT#15,E,E$,E1,E2
344 POKE214,21:PRINT:PRINT"                                    "
345 POKE214,21:PRINT:PRINT"[196]ISK [211]TATUS: "E;E$:FORI=1TO2000:NEXT
346 POKE214,21:PRINT:PRINT"                                    "
350 IFETHENCLOSE2:CLOSE15:PRINT"[145][198]ILE [206]OT [211]AVED":FORI=1TO2000:NEXT:GOTO375
360 FORI=0TO44:PRINT#2,D$(I):NEXT
370 CLOSE2:CLOSE15
375 GOSUB9000:GOTO70
390 :
400 TL=0:FORI=37TO41:TL=TL+VAL(D$(I)):NEXT:D$(42)=STR$(TL)
405 D$(44)=STR$(VAL(D$(42))-VAL(D$(43))):D$(4)=D$(44)
410 D$(3)=STR$(VAL(D$(1))-VAL(D$(2)))
415 D$(5)=STR$(VAL(D$(3))-VAL(D$(4)))
420 D$(7)=STR$(VAL(D$(5))+VAL(D$(6)))
425 D$(28)=STR$(INT(VAL(D$(27))*.20+.5))
430 D$(29)=STR$(VAL(D$(27))-VAL(D$(28)))
435 TL=0:FORI=8TO26:TL=TL+VAL(D$(I)):NEXT
440 T1=VAL(D$(29))+VAL(D$(30))+VAL(D$(31))+VAL(D$(32))
445 D$(33)=STR$(TL+T1)
450 D$(34)=STR$(VAL(D$(7))-VAL(D$(33)))
460 D$(36)=STR$(VAL(D$(34))-VAL(D$(35)))
475 RETURN
480 :
500 SYSAD+6,2:SYSAD+9,1
505 SYS50176,1,3,38,20,TX,0
510 KY=PEEK(197)
515 IFKY=3THENSYS51712,1,3,38,20,7:GOTO505
520 IFKY=6THENOPEN15,DV,15,"S0:"+N$:CLOSE15:SYSAD+12,N$,1:GOTO505
530 IFKY=5THEN POKE147,0:SYS57812N$,DV,1:SYS62631:SYSAD+9,1:GOTO505
550 SYSAD+6,1:SYSAD+9,2:RETURN
560 :
600 SYSAD+6,2:POKE646,TX:PRINT"[147]"TAB(14)"*** [200][197][204][208] ***"
601 POKE646,M
602 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
603 FORI=1TO21:PRINT"[221]                                      [221]";:NEXT
604 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:POKE646,TX
605 PRINT"              [208]RESS [210][197][212][213][210][206]";:POKE52346,TX
606 OPEN2,DV,2,H$+",P,R":SYS51968
610 POKE198,0
615 GETK$:IFK$<>CHR$(13)THEN615
620 CLOSE2:SYSAD+9,2:RETURN
625 :
700 POKE646,TX
701 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
702 PRINT"[221]          [211]CHEDULE [195] [212]OTALS          [221]"
704 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
706 PRINT"[221][199]ROSS [201]NCOME (7)                     [221]"
708 PRINT"[221][212]OTAL [197]XPENSES (28)                  [221]"
710 PRINT"[221][195]OST OF [199]OODS (40)                   [221]"
712 PRINT"[221][206]ET [208]ROFIT ([204]OSS)                    [221]"
724 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
725 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
726 GOSUB9200
730 PRINT""
735 PRINTTAB(28)RIGHT$(SP$+D$(7),10)
740 PRINTTAB(28)RIGHT$(SP$+D$(33),10)
745 PRINTTAB(28)RIGHT$(SP$+D$(44),10)
750 PRINTTAB(28)RIGHT$(SP$+D$(36),10)
775 GETK$:IFK$<>CHR$(13)THEN775
780 SYSAD+18:GOSUB9000:GOTO70
785 :
900 GOSUB9400:IFW$<>"Y"THENGOSUB9000:GOTO70
905 POKE214,22:PRINT:PRINT"[208]RINTING...      "
910 OPEN4,4,7
915 PRINT#4,SP$;"[211]CHEDULE [195]
920 [152]4,SP$;"-------------------------------------"
922 [129]I[178]1[164]7:[152]4,SP$;[200](M1$(I),27)[170][201](SP$[170]D$(I),10):[130]:[152]4
925 [129]I[178]1[164]8:[152]4,SP$;[200](M2$(I),27)[170][201](SP$[170]D$(I[170]7),10):[130]:[152]4
930 [129]I[178]1[164]8:[152]4,SP$;[200](M3$(I),27)[170][201](SP$[170]D$(I[170]15),10):[130]:[152]4
935 [129]I[178]1[164]9:[152]4,SP$;[200](M4$(I),27)[170][201](SP$[170]D$(I[170]23),10):[130]:[152]4
955 [129]I[178]1[164]4:[152]4,SP$;[200](M5$(I),27)[170][201](SP$[170]D$(I[170]32),10):[130]:[152]4
960 [129]I[178]1[164]8:[152]4,SP$;[200](M6$(I),27)[170][201](SP$[170]D$(I[170]36),10):[130]:[152]4
990 [152]4:[160]4:[141]9000:[137]70
995 :
1000 [158]AD[170]3,11[170]64,1,8,M,H,TX,M1$(1),M1$(2),M1$(3),M1$(4),M1$(5),M1$(6),M1$(7),M1$(8),M1$(9),M1$(10),M1$(11)
1010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
1020 [139]K[178]11[167][158]AD[170]18:[137]70
1025 [139]K[178]10[167]H$[178]"SCHC.H1":[141]600:[137]1000
1030 [139]K[178]8[167]N$[178]"SCHC.N1":[141]500:[137]1000
1035 [139]K[178]9[167][141]9500:[137]1000
1045 [139]K[178]3[167]1000
1046 [139]K[178]4[167]1000
1047 [139]K[178]5[167]1000
1048 [139]K[178]7[167]1000
1050 [141]9100:[139][195](W$)[178]0[167]1000
1055 D$(K)[178]W$
1067 [141]400
1070 [129]I[178]1[164]7:M1$(I)[178][200](M1$(I),27)[170][201](SP$[170]D$(I),10):[130]
1075 [137]1000
1080 :
2000 [158]AD[170]3,12[170]64,1,8,M,H,TX,M2$(1),M2$(2),M2$(3),M2$(4),M2$(5),M2$(6),M2$(7),M2$(8),M2$(9),M2$(10),M2$(11),M2$(12)
2010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
2020 [139]K[178]12[167][158]AD[170]18:[137]70
2025 [139]K[178]11[167]H$[178]"SCHC.H2":[141]600:[137]2000
2030 [139]K[178]9[167]N$[178]"SCHC.N2":[141]500:[137]2000
2035 [139]K[178]10[167][141]9500:[137]2000
2050 [141]9100:[139][195](W$)[178]0[167]2000
2055 D$(K[170]7)[178]W$:[141]400
2070 [129]I[178]1[164]8:M2$(I)[178][200](M2$(I),27)[170][201](SP$[170]D$(I[170]7),10):[130]
2087 [137]2000
2090 :
3000 [158]AD[170]3,12[170]64,1,8,M,H,TX,M3$(1),M3$(2),M3$(3),M3$(4),M3$(5),M3$(6),M3$(7),M3$(8),M3$(9),M3$(10),M3$(11),M3$(12)
3010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
3020 [139]K[178]12[167][158]AD[170]18:[137]70
3025 [139]K[178]11[167]H$[178]"SCHC.H3":[141]600:[137]3000
3030 [139]K[178]10[167][141]9500:[137]3000
3035 [139]K[178]9[167]N$[178]"SCHC.N3":[141]500:[137]3000
3050 [141]9100:[139][195](W$)[178]0[167]3000
3052 D$(K[170]15)[178]W$:[141]400
3070 [129]I[178]1[164]8:M3$(I)[178][200](M3$(I),27)[170][201](SP$[170]D$(I[170]15),10):[130]
3085 [137]3000
3090 :
4000 [158]AD[170]3,13[170]64,1,7,M,H,TX,M4$(1),M4$(2),M4$(3),M4$(4),M4$(5),M4$(6),M4$(7),M4$(8),M4$(9),M4$(10),M4$(11),M4$(12),M4$(13)
4010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
4020 [139]K[178]13[167][158]AD[170]18:[137]70
4025 [139]K[178]12[167]H$[178]"SCHC.H4":[141]600:[137]4000
4030 [139]K[178]11[167][141]9500:[137]4000
4035 [139]K[178]10[167]N$[178]"SCHC.N4":[141]500:[137]4000
4040 [139]K[178]5[167]4000
4041 [139]K[178]6[167]4000
4050 [141]9100:[139][195](W$)[178]0[167]4000
4055 D$(K[170]23)[178]W$:[141]400
4070 [129]I[178]1[164]9:M4$(I)[178][200](M4$(I),27)[170][201](SP$[170]D$(I[170]23),10):[130]
4085 [137]4000
4090 :
5000 [158]AD[170]3,8[170]64,1,8,M,H,TX,M5$(1),M5$(2),M5$(3),M5$(4),M5$(5),M5$(6),M5$(7),M5$(8)
5010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
5020 [139]K[178]8[167][158]AD[170]18:[137]70
5025 [139]K[178]7[167]H$[178]"SCHC.H5":[141]600:[137]5000
5030 [139]K[178]6[167][141]9500:[137]5000
5035 [139]K[178]5[167]N$[178]"SCHC.N5":[141]500:[137]5000
5040 [139]K[179][177]3[167]5000
5050 [141]9100:[139][195](W$)[178]0[167]5000
5055 D$(K[170]32)[178]W$:[141]400
5070 [129]I[178]1[164]4:M5$(I)[178][200](M5$(I),27)[170][201](SP$[170]D$(I[170]32),10):[130]
5085 [137]5000
5090 :
6000 [158]AD[170]3,12[170]64,1,8,M,H,TX,M6$(1),M6$(2),M6$(3),M6$(4),M6$(5),M6$(6),M6$(7),M6$(8),M6$(9),M6$(10),M6$(11),M6$(12)
6010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
6020 [139]K[178]12[167][158]AD[170]18:[137]70
6025 [139]K[178]11[167]H$[178]"SCHC.H6":[141]600:[137]6000
6030 [139]K[178]10[167][141]9500:[137]6000
6035 [139]K[178]9[167]N$[178]"SCHC.N6":[141]500:[137]6000
6040 [139]K[178]6[167]6000
6041 [139]K[178]8[167]6000
6050 [141]9100:[139][195](W$)[178]0[167]6000
6055 D$(K[170]36)[178]W$:[141]400
6070 [129]I[178]1[164]8:M6$(I)[178][200](M6$(I),27)[170][201](SP$[170]D$(I[170]36),10):[130]
6085 [137]6000
6090 :
9000 [151]214,21:[153]:[153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9005 [153]"(null)  (null)SE LENURSOR (null)EYS/(null)VAL(null)(null)(null)(null) TO SELECT.   (null)";
9010 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9015 [142]
9100 [141]9600:[151]646,TX
9105 [151]214,22:[153]:[153]"VALNTER: ";
9110 [158]49152[170]3,TX,TX,9
9115 [141]9000:[142]
9200 [151]214,21:[153]:[153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9205 [153]"(null)             (null)RESS (null)VAL(null)(null)(null)(null)             (null)";
9210 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9215 [142]
9300 [141]9600:[151]646,TX
9305 [151]214,22:[153]:[153]"VALNTER (null)EAR: ";
9310 [158]49152[170]3,TX,TX,4
9315 [142]
9320 :
9400 [141]9600:[151]646,TX
9405 [151]214,22:[153]:[153]"(null)RINTER (null)EADY? ";
9410 [158]49152,TX,TX,1
9415 [142]
9420 :
9500 [158]AD[170]18:[151]646,M
9501 [153]""[163]9)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
9502 [153][163]9)"(null)                  (null)"
9503 [153][163]9)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
9504 AC[178]0:AC$[178]"0"
9505 AC$[178][201](SP$[170]AC$,10):[151]646,TX
9506 [153]""[163]17)AC$
9510 [158]AD[170]3,6[170]64,10,9,M[170]64,H,TX,M9$(1),M9$(2),M9$(3),M9$(4),M9$(5),M9$(6)
9520 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
9525 [139]K[178]6[167][158]AD[170]18:[142]
9530 [139]K[178]1[167]AC[178]0:[137]9565
9535 [141]9100
9540 W[178][197](W$):[139]W[178]0[167]9505
9545 [139]K[178]2[167]AC[178]AC[170]W
9550 [139]K[178]3[167]AC[178]AC[171]W
9555 [139]K[178]4[167]AC[178]AC[172]W
9560 [139]K[178]5[167]AC[178]AC[173]W
9565 AC$[178][196](AC):[137]9505
9570 :
9600 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
9602 [151]214,22:[153]:[153]"                                    "
9605 [142]
9610 :
10000 [159]15,8,15,"S0:SCHC":[160]15:[148]"0:SCHC",8:[128]
10998 :
10999 [143] MENU0
11000 [131] 11
11001 [131] "(null)OAD ASCILE         "
11002 [131] "(null)AVE ASCILE         "
11003 [131] "(null)RINT ASCILE        "
11004 [131] "RIGHT$NCOME            "
11005 [131] "VALXPENSES 8-15     "
11007 [131] "VALXPENSES 16-21    "
11008 [131] "VALXPENSES 22-27    "
11009 [131] "(null)ET PROFIT/LOSS   "
11010 [131] "LENOST OF GOODS     "
11013 [131] "(null)OTALS            "
11014 [131] "(null)AIN (null)ENU         "
11015 :
11099 [143] MENU1
11100 [131] 11
11101 [131] " 1. CHR$ROSS RECEIPTS/SALES             "
11102 [131] " 2. (null)ETURNS/ALLOWANCES              0"
11103 [131] " 3. (null)INE 1 - LINE 2                 0"
11104 [131] " 4. (null)INE 40                         0"
11105 [131] " 5. CHR$(null)(null)(null)(null) (null)(null)(null)ASCRIGHT$(null)                    0"
11106 [131] " 6. (null)THER INCOME                    0"
11107 [131] " 7. CHR$(null)(null)(null)(null)CLOSERIGHT$(null)LEN(null)(null)VAL                    0"
11108 [131] "(null)OTEPAD                              "
11109 [131] "LENALCULATOR                           "
11110 [131] "LEFT$ELP                                 "
11111 [131] "(null)AIN (null)ENU                            "
11113 :
11199 [143] MENU2
11200 [131] 12
11201 [131] " 8. ATNDVERTISING                     0"
11202 [131] " 9. PEEKAD DEBTS                       0"
11203 [131] "10. LENAR/TRUCK EXPENSES              0"
11204 [131] "11. LENOMMISSION/FEES                 0"
11205 [131] "12. STR$EPLETION                       0"
11206 [131] "13. STR$EPRECIATION                    0"
11207 [131] "14. VALMPLOYEE BENEFIT PRG.           0"
11208 [131] "15. RIGHT$NSURANCE                       0"
11210 [131] "(null)OTEPAD                              "
11211 [131] "LENALCULATOR                           "
11212 [131] "LEFT$ELP                                 "
11213 [131] "(null)AIN (null)ENU                            "
11214 :
11300 [131] 12
11301 [131] "16A. (null)ORTGAGE INTEREST              0"
11302 [131] "16B. (null)THER INTEREST                 0"
11303 [131] "17. (null)EGAL/PROF. SERVICES            0"
11304 [131] "18. (null)FFICE EXPENSE                  0"
11305 [131] "19. (null)ENSION/PROFIT SHARING          0"
11306 [131] "20A. (null)ENT FOR VEHICLES              0"
11307 [131] "20B. (null)ENT FOR OTHER                 0"
11308 [131] "21. (null)EPAIRS/MAINTENANCE             0"
11309 [131] "(null)OTEPAD                              "
11310 [131] "LENALCULATOR                           "
11311 [131] "LEFT$ELP                                 "
11312 [131] "(null)AIN (null)ENU                            "
11313 :
11399 [143] MENU4
11400 [131] 13
11401 [131] "22. (null)UPPLIES                        0"
11402 [131] "23. (null)AXES/LICENSES                  0"
11403 [131] "24A. (null)RAVEL                         0"
11404 [131] "24B. (null)EALS/ENTERTAINMENT            0"
11405 [131] "24C. 20% OF LINE 24B                 "
11406 [131] "24D. (null)INE 24B - LINE 24C             "
11407 [131] "25. (null)TILITIES                        "
11408 [131] "26. (null)AGES                            "
11409 [131] "27. (null)THER EXPENSES                   "
11410 [131] "(null)OTEPAD                              "
11411 [131] "LENALCULATOR                           "
11412 [131] "LEFT$ELP                                 "
11413 [131] "(null)AIN (null)ENU                            "
11499 [143] MENU5
11500 [131] 8
11501 [131] "28. (null)(null)(null)ATN(null) VAL(null)(null)VAL(null)(null)VAL(null)                  0"
11502 [131] "29. (null)ENTATIVE PROFIT/LOSS           0"
11503 [131] "30. LEFT$OME EXPENSES                   0"
11504 [131] "31. (null)VAL(null) (null)(null)(null)ASCRIGHT$(null) ((null)(null)(null)(null))               0"
11507 [131] "(null)OTEPAD                              "
11508 [131] "LENALCULATOR                           "
11509 [131] "LEFT$ELP                                 "
11510 [131] "(null)AIN (null)ENU                            "
11513 :
11599 [143] MENU6
11600 [131] 12
11601 [131] "33. RIGHT$NVENTORY AT BEGINNING          0"
11602 [131] "34. (null)URCHASES LESS COST             0"
11603 [131] "35. LENOST OF LABOR                   0"
11604 [131] "36. (null)ATERIALS/SUPPLIES              0"
11605 [131] "37. (null)THER COSTS                     0"
11606 [131] "38. ATNDD LINES 33 - 37               0"
11607 [131] "39. RIGHT$NVENTORY AT END                0"
11608 [131] "40. LEN(null)(null)(null) OF GOODS SOLD              0"
11609 [131] "(null)OTEPAD                              "
11610 [131] "LENALCULATOR                           "
11611 [131] "LEFT$ELP                                 "
11612 [131] "(null)AIN (null)ENU                            "
11613 :
11699 [143] MENU7
11899 [143] MENU9
11900 [131] 6
11901 [131] "(null)ERO ATNCC.         "
11902 [131] "ATNDD TO ATNCC.       "
11903 [131] "(null)UBTRACT FROM ATNCC."
11904 [131] "(null)ULTIPLY ATNCC.     "
11905 [131] "STR$IVIDE ATNCC.       "
11906 [131] "VALXIT              "