100 REM CLR SCREEN, PRINT TWO DOWNS, CHANGE TO YELLOW, LOWERCASE.  LOCK CASE.
110 PRINT"[147][158]        **** [193]CTUAL [197]ARNINGS ****[159]"
120 REM CHANGE BORDER TO DARK GREY.  LENHANGE BACKGROUND TO BLACK
130 POKE53280,11:POKE53281,0
140 REM USE INPUT TO ASK QUESTIONS
150 INPUT"[217]OUR AVERAGE GROSS PAYCHECK ";GROSS
160 INPUT"[217]OUR AVERAGE NET PAYCHECK   ";NET
170 INPUT"[200]OURS WORKED PER PAY-PERIOD ";HOURS
180 PRINT"[201]S THIS WEEKLY OR BI-WEEKLY? (W/B)"
190 REM GET LOOP.  PRESS W OR B TO PASS
200 GETA$:IF A$<>"W" AND A$<>"B" THEN 200
210 REM DEFAULT IS BIWEEKLY UNLESS W IS PRESSED
220 PAID = 26 : IF A$="W" THEN PAID =  52
230 REM CLEAR SCREEN
240 PRINT"[147]"
250 REM THE REST IS JUST HIGH SCHOOL MATH
260 PRINT"[217]OU OFFICIALLY EARN $"GROSS/HOURS" PER HOUR"
280 PRINT" BUT AFTER TAXES AND DEDUCTIONS
290 [153]" YOU EARN $"NET[173]HOURS"PER HOUR."
300 [153]
320 [153]"ATNT A DIFFERENCE OF $" GROSS[173]HOURS[171]NET[173]HOURS"PER HOUR
330 PRINT
340 PRINT" YOU EARN $" GROSS*PAID "PER YEAR."
350 PRINT
360 PRINT"[217]OU TAKE HOME $" NET*PAID "PER YEAR."
370 PRINT
380 PRINT"[217]OU ARE DEDUCTED $"GROSS*PAID-NET*PAID"PER YEAR.
390 [153]
400 [153]" OR"(GROSS[172]PAID[171]NET[172]PAID)[173]((GROSS[172]PAID)[173]100)"% OF YOUR INCOME.
410 PRINT:PRINT"[193]GAIN? (Y/N)"
420 GETA$:IF A$<>"Y" AND A$<>"N" THEN 420
430 IFA$="Y"THENRUN
440 REM RECONNECT TO LOADSTAR
450 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
460 IF ER<>63 THEN PRINT"[147]":END
470 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
480 PRINT"LOAD"Q$A$Q$",8"
490 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END