1 PRINT"[147][158][146]":POKE53280,3:POKE53281,11:PRINT""SPC(11)"PAYCHECK PRINTER[146]"
2 PRINTCHR$(142)".PRESS A KEY WHEN YOUR PRINTER IS READY."
3 PRINT"[145]   (PRESS 'Q' TO EXIT TO LOADSTAR.)"
4 POKE198,0:WAIT198,1:GETK$:IFK$="Q"THEN60000
5 :
6 :
7 PRINT"[147]"
8 OPEN4,4,0
9 PRINT#4,CHR$(147)
10 PRINT#4,CHR$(13)
11 PRINT#4,SPC(35)"PAY CHECK"
20 PRINT"PAY CHECK[146]"
30 PRINT"PERIOD BEGINNING:[146]":INPUTPE$
31 PRINT#4,SPC(3)"PERIOD BEGINNING:"PE$
32 PRINT#4,
40 PRINT"PERIOD ENDING:":INPUTEN$
41 PRINT#4,SPC(3)"PERIOD ENDING:"EN$
50 PRINT#4
51 FORT=1TO1500:NEXT
52 PRINT"[147]":GOTO1001
60 PRINT"WHAT IS YOUR HOURLY RATE:[146]":INPUTH:ZE$="H"
61 PRINT#4,SPC(3)"REG.PAY RATE PER HOUR:$"H
62 PRINT#4,
70 PRINT"HOW MANY HOURS HAVE YOU WORKED THIS     PAY PERIOD:[146]":INPUTM
71 PRINT#4,SPC(3)"REG.HOURS WORKED:"M
80 RP=M*H
90 PRINT"REG.PAY EARNED:[146]$"RP
91 PRINT#4,
100 PRINT#4,SPC(3)"WAGES EARNED REG.PAY:$"RP
110 PRINT"HOW MANY HOURS OVERTIME FOR THIS PAY    PERIOD:[146]":INPUTO
120 PRINT#4,SPC(3)"OVERTIME HRS.:"O
122 IFO=0THEN170
130 PRINT"AT WHAT RATE:[146]":INPUTZ
140 OV=O*Z
150 PRINT#4,SPC(3)"OVERTIME EARNINGS:$"OV
160 PRINT#4,
170 PRINT"ENTER BONUSES IF ANY (IF NOT ENTER 0):[146]":INPUTB
180 PRINT#4,SPC(3)"BONUS:$"B
190 GW=RP+OV+B
200 PRINT"YOUR GROSS WAGES EARNED ARE: $"GW
210 PRINT#4,SPC(3)"GROSS WAGES:$"GW
220 PRINT#4,
230 PRINTSPC(10)"PRESS A KEY TO CONTINUE":POKE198,0:WAIT198,1:POKE198,0
240 PRINT"[147]GROSS WAGES:[146]$"GW
241 GOTO260
260 PRINT"PLEASE ENTER YOUR DEDUCTIONS:[146]"
261 PRINT#4,
262 PRINT#4,SPC(3)"DEDUCTIONS:"
263 PRINT#4,
270 PRINT"1.FEDERAL W/H:[146]":INPUTF
280 PRINT#4,SPC(3)"1.FEDERAL W/H:$"F
290 PRINT"2.FICA[146]":INPUTI
300 PRINT#4,SPC(3)"2.FICA:$"I
310 PRINT"3.STATE W/H:[146]":INPUTS
320 PRINT#4,SPC(3)"3.STATE W/H:$"S
330 PRINT"4.HEALTH INS.:[146]":INPUTL
340 PRINT#4,SPC(3)"4.HEALTH INS.:$"L
350 PRINT"5.CREDIT UNION:[146]":INPUTU
360 PRINT#4,SPC(3)"5.CREDIT UNION:$"U
370 PRINT"6.CONTRIBUTIONS:[146]":INPUTC
380 PRINT#4,SPC(3)"6.CONTRIBUTIONS:$"C
390 PRINT"7.OTHER:[146]":INPUTV
400 PRINT#4,SPC(3)"7.OTHER:$"V
410 PRINT#4,
411 PRINT"[147]"
412 SU=F+I+C+L+U+S+V
413 IFZE$="C"THENJC=FA-SU
414 IFZE$="H"THENJC=GW-SU
430 PRINT"YOUR NET WAGES ARE:[146]$"JC
440 PRINT#4,SPC(3)"YOUR NET WAGES ARE:$"JC :GOTO450
450 CLOSE4
455 PRINT"   PRESS ANY KEY"
457 GETT$:IFT$="" THEN 457
460 RUN
1001 PRINT"DO YOU WORK ON COMMISSION:[146]YES OR NO":INPUTCO$
1020 IFLEFT$(CO$,1)<>"Y"GOTO60
1030 IFLEFT$(CO$,1)="Y"GOTO1050
1050 PRINT#4,SPC(34)"MY COMMISSIONS"
2000 PRINT"WHAT WAS YOUR GROSS SALE TOTAL:[146]$":INPUTD:ZE$="C"
2005 PRINT#4,SPC(3)"GROSS SALES:$"D
2010 PRINT"WHAT IS YOUR COMMISSION RATE:[146]%":INPUTP%
2020 PRINT#4,SPC(3)"COMMISSION RATE:%"P%
2030 CE=P%*D/100
2040 PRINT"YOU EARNED:[146]$"CE
2050 PRINT#4,SPC(3)"COMMISSIONS EARNED:$"CE
2052 PRINT"BONUS EARNED:(IF NOT ENTER 0)[146]$":INPUTNS
2060 PRINT#4,SPC(3)"BONUS:"NS
2061 FA=CE+NS
2080 PRINT"YOUR GROSS EARNINGS ARE:[146]$"FA
2090 PRINT#4,SPC(3)"GROSS EARNINGS:$"FA
3000 FORT=1TO5000:NEXT
3010 PRINT"[147]":GOTO241
60000 REM   CONNECT TO LOADSTAR
60010 LOAD"HELLO CONNECT",8