0 DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"HELP-4137",DV,1
2 IFA=1THENA=2:LOAD"NOTEPAD",DV,1
3 POKE198,0:SP$="          "
5 DIM M0$(10),M1$(20),M2$(20),D$(10):FL=0:F1=0
6 FORI=1TO10:D$(I)="0":NEXT:D$(6)="53400"
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
30 PRINT"";:GOSUB9500
40 SYSAD,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[198]ORM 4137"
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,5+64,15,8,M+64,H,TX,M0$(1),M0$(2),M0$(3),M0$(4),M0$(5)
80 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
85 ONKGOTO200,300,103,900,40
103 GOSUB9500:SYSAD+18
105 SYSAD+3,14+64,1,7,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),M1$(12),M1$(13),M1$(14)
110 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
115 IFK=14THENSYSAD+18:POKE781,21:SYS59903:GOTO70
117 IFK=13THENH$="4137.H":GOSUB600:GOTO105
120 IFK=12THEN5000
130 IFK=11THENN$="4137.N":GOSUB500:GOTO105
135 IFK=3THEN105
136 IFK=5THEN105
137 IFK=6THEN105
138 IFK=8THEN105
139 IFK=10THEN105
140 GOSUB9100:IFLEN(W$)=0THEN105
145 D$(K)=W$
150 D$(3)=STR$(VAL(D$(1))-VAL(D$(2)))
155 D$(5)=STR$(VAL(D$(3))-VAL(D$(4)))
160 D$(8)=STR$(VAL(D$(6))-VAL(D$(7)))
165 IFVAL(D$(7))>VAL(D$(6))THEND$(8)="[211][212][207][208]":D$(10)="0"
170 D$(9)=D$(5):IFVAL(D$(5))>VAL(D$(8))THEND$(9)=D$(8)
175 D$(10)=STR$(INT(VAL(D$(9))*.0765+.5))
186 GOSUB9500
190 GOTO105
195 :
200 GOSUB9300
210 IFVAL(W$)=0THENCLOSE2:CLOSE15:GOSUB9000:GOTO70
220 OPEN15,8,15,"IO":W$="4137."+W$
225 OPEN2,8,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:GOSUB9000:GOTO70
250 FORI=1TO10:INPUT#2,D$(I):NEXT
270 CLOSE2:CLOSE15
275 GOSUB9000:SYSAD+18:GOTO186
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="4137."+W$
320 OPEN15,8,15,"S0:"+W$:CLOSE15
330 OPEN15,8,15,"IO"
335 OPEN2,8,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=1TO10:PRINT#2,D$(I):NEXT
370 CLOSE2:CLOSE15
375 GOSUB9000:GOTO70
390 :
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 :
900 GOSUB9400:IFW$<>"Y"THENGOSUB9000:GOTO70
905 POKE214,21:PRINT: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]";
906 PRINT"[221] [208]RINTING...                          [221]";
910 OPEN4,4,7
915 PRINT#4,SP$"[198]ORM 4137 - [211][211] [212]AX ON [213]NREPORTED [212]IPS"
920 PRINT#4,SP$"-------------------------------------"
925 FORI=1TO10:PRINT#4,SP$;M1$(I):NEXT
930 PRINT#4:CLOSE4:GOSUB9000:GOTO70
935 :
5000 SYSAD+18:POKE781,21:SYS59903:POKE646,M
5001 PRINT""TAB(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
5002 PRINTTAB(9)"[221]                  [221]"
5003 PRINTTAB(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
5004 AC=0:AC$="0"
5005 AC$=RIGHT$(SP$+AC$,10):POKE646,TX
5006 PRINT""TAB(17)AC$
5010 SYSAD+3,6+64,10,9,M+64,H,TX,M2$(1),M2$(2),M2$(3),M2$(4),M2$(5),M2$(6)
5020 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
5025 IFK=6THENSYSAD+18:GOTO103
5030 IFK=1THENAC=0:GOTO5065
5035 GOSUB9100
5040 W=VAL(W$):IFW=0THEN5005
5045 IFK=2THENAC=AC+W
5050 IFK=3THENAC=AC-W
5055 IFK=4THENAC=AC*W
5060 IFK=5THENAC=AC/W
5065 AC$=STR$(AC):GOTO5005
5070 :
9000 POKE214,21:PRINT: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]";
9005 PRINT"[221]  [213]SE [195]URSOR [203]EYS/[210][197][212][213][210][206] TO SELECT.   [221]";
9010 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]";:POKE2023,125:POKE56295,1
9015 RETURN
9100 GOSUB9600:POKE646,TX
9105 POKE214,22:PRINT:PRINT"[197]NTER: ";
9110 SYS49152+3,TX,TX,9
9115 GOSUB9000:RETURN
9120 :
9300 GOSUB9600:POKE646,TX
9305 POKE214,22:PRINT:PRINT"[197]NTER [217]EAR: ";
9310 SYS49152+3,TX,TX,4
9315 RETURN
9320 :
9400 GOSUB9600:POKE646,TX
9405 POKE214,22:PRINT:PRINT"[208]RINTER [210]EADY? ";
9410 SYS49152,TX,TX,1
9415 RETURN
9420 :
9500 FORI=1TO10
9505 M1$(I)=LEFT$(M1$(I),27):D$(I)=RIGHT$(SP$+D$(I),10)
9510 M1$(I)=M1$(I)+D$(I):NEXT
9515 RETURN
9520 :
9600 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
9602 POKE214,22:PRINT:PRINT"                                   "
9605 RETURN
9610 :
10000 OPEN15,8,15,"S0:4137":CLOSE15:SAVE"0:4137",8:END
10999 :
11000 REM MENU0
11001 DATA 5,"[204]OAD [198]ILE "
11002 DATA "[211]AVE [198]ILE "
11003 DATA "[197]DIT [198]ILE "
11004 DATA "[208]RINT [198]ILE"
11005 DATA "[205]AIN [205]ENU "
11006 :
11099 REM MENU1
11100 DATA 14
11101 DATA "1. [212]OTAL TIPS                       0"
11102 DATA "2. [212]OTAL TIPS REPORTED              0"
11103 DATA "3. [204]INE 1 - LINE 2                  0"
11104 DATA "4. [212]IPS RECEIVED/NOT REPORTED       0"
11105 DATA "5. [204]INE 3 - LINE 4                  0"
11106 DATA "6. [215]AGES SUBJECT TO [211][211]              0"
11107 DATA "7. [212]OTAL WAGES FROM [215]-2             0"
11108 DATA "8. [204]INE 6 - LINE 7                  0"
11109 DATA "9. [211]MALLER LINE 5 OR 8              0"
11110 DATA "10. [212][207][212][193][204] [212][193][216]                       0"
11111 DATA "[206]OTEPAD                              "
11112 DATA "[195]ALCULATOR                           "
11113 DATA "[200]ELP                                 "
11114 DATA "[205]AIN [205]ENU                            "
11115 :
11199 REM MENU2
11200 DATA 6
11201 DATA "[218]ERO [193]CCUMULATOR  "
11202 DATA "[193]DD TO [193]CC.       "
11203 DATA "[211]UBTRACT FROM [193]CC."
11204 DATA "[205]ULTIPLY [193]CC.     "
11205 DATA "[196]IVIDE [193]CC.       "
11206 DATA "[197]XIT              "