
10REM  ********************
11REM  ***              ***
12REM  ***    IRSMAN    ***
13REM  ***              ***
14REM  ********************
15REM  **An Apple Program**
16REM  **Modified for the**
17REM  ***    ADAM      ***
18REM  ***by W.L.Osburn ***
19REM  ***** 2/28/88 ******
20GOSUB 1000:REM     INSTS
30GOSUB 2000:REM     SETUP
40GOSUB 3000:REM     PLAY! 
50GOSUB 4000:REM     !END!
60END
1000REM  ***INSTS
1001REM     *** INSTS
1002POKE 12185, 255
1010TEXT:NORMAL:HOME
1020VTAB 2:HTAB 13:? "***IRSMAN ***"
1030VTAB 5:? "    THIS IS THE GAME OF IRSMAN.  TO WIN, YOU   TRY TO ACCUMULATE MORE MONEY THAN YOUR NEMESIS,  THE         IRSMAN."
1033?
1035? "    GIVE ME A NUMBER BETWEEN     1 AND 50. I WILL     DISPLAY A     CONSECUTIVE NUMBER STRING     STARTING AT 1,   AND CONTINUING  "
1036? " THROUGH TO THE NUMBER YOU     SELECTED. YOU WILL     THEN CHOOSE HOW MUCH MONEY (WHICH NUMBER)  YOU WANT TO       REMOVE FROM THE  
1037?:?:?:? "<<< HIT ANY KEY TO CONTINUE >>>":GET a$
1038?:?:?:?:?:?
1040? "  BUT, AND HERE'S THE FUN PART, THE IRSMAN GETS  ALL  OF THE    REMAINING NUMBERS ON THE"; 
1042? " LIST  THAT ARE FACTORS OF THE NUMBER YOU CHOSE. THAT IS HOW THE    IRSMAN GETS HIS MONEY. IF YOU  CHOOSE 6, FOR   EXAMPLE, "; 
1043? "THE IRS MAN GETS ALL OF THE REMAINING  FACTORS OF     6,(POTENTIALLY 1,2, AND 3)."
1050?:INPUT "PRESS RETURN WHEN READY TO CONTINUE : "; ans$
1055TEXT:NORMAL:HOME
1060VTAB 2:HTAB 13:? "*** IRSMAN ***"
1065VTAB 5:? "YOU CANNOT CHOOSE A NUMBER THAT HAS NO         REMAINING FACTORS IN THE LIST, BECAUSE YOU MUST ALWAYS PAY   THE IRS."
1066?
1070? "WHEN YOU CAN NO LONGER REMOVE ANY OF THE REMAINING    NUMBERS FROM THE LIST, THE IRSMAN CLAIMS ALL OF THE UNUSED   MONEY (NUMBERS) F
1080VTAB 23:INPUT "PRESS RETURN WHEN READY TO CONTINUE : "; ans$
1990RETURN
2000REM  ***SETUP
2001REM    *** SETUP
2010DIM li(50):FOR i=1 TO 50: li(i)=i:NEXT
2020VTAB 23:? CHR$(24)
2022? CHR$(7):INPUT "HOW MANY NUMBERS (1-50) IN THE LIST? "; ans$
2025 ans=VAL(ans$):IF ans<1 OR ans>50 OR ans<>INT(ans) THEN VTAB 22:? CHR$(24):?:? "<<< USE A NUMBER FROM 1 TO 50        >>>":FOR pa=1 TO 2
2030 nu=ans
2990RETURN
3000REM  ***PLAY!
3005HOME:VTAB 3:HTAB 13:? "*** IRSMAN ***":?
3010?:? "HERE IS THE LIST :"; :FOR i=1 TO nu:IF li(i) THEN ? i; "  "; 
3015IF PEEK(17002)>35 THEN ?
3020NEXT i
3021IF nu=1 THEN ?:?:? "OOOOPS, YOU CAN'T GET ANYTHING...": ta=1: li(1)=0:RETURN
3025FOR i=2 TO nu:IF  NOT li(i) THEN 3040
3030FOR j=1 TO i:IF  NOT li(j) THEN 3035
3031IF j=i THEN 3035
3033IF li(i)/j=INT(li(i)/j) THEN 3050
3035NEXT j
3040NEXT i:RETURN
3050?:?:? "THE SCORE IS;   IRSMAN: "; ta; :? " *YOU*: "; yo
3060?:INPUT "WHICH DO YOU WANT? "; ans$
3065 ans=VAL(ans$):IF ans<1 OR ans>nu OR li(ans)=0 OR ans<>INT(ans) THEN ?:? "THAT IS NOT AVAILABLE !":GOTO 3060
3070 sc=0:IF an=1 THEN 3100
3075FOR i=1 TO an:IF li(i)=0 THEN 3090
3076IF i=an THEN 3090
3080IF an/i=INT(an/i) THEN  sc=sc+i
3090NEXT i
3100IF sc=0 THEN ?:? "YOU CAN'T HAVE IT. THAT LEAVES NOTHING FOR THE IRSMAN":GOTO 3010
3105 li(ans)=0: yo=yo+ans: ta=ta+sc
3110FOR i=1 TO an:IF li(i)=0 THEN 3125
3115IF i=an THEN 3125
3120IF an/i=INT(an/i) THEN  li(i)=0
3125NEXT i
3130GOTO 3010
4000REM  *** END
4001REM  *** END
4010?:?:? "*** THE GAME IS OVER ***":?
4015FOR i=1 TO nu:IF li(i) THEN  ta=ta+li(i)
4016NEXT
4020? "THE IRSMAN: "; ta
4021? "       YOU: "; yo
4022? "=================":?
4025IF ta>yo THEN ? "THE IRSMAN IS THE WINNER !!!"
4030IF ta<yo THEN ? "YOU HAVE BEATEN THE IRSMAN !!!"
4035IF ta=yo THEN ? "IT'S UNBELIEVABLE BUT IT'S A TIE !!!"
4040? CHR$(7); CHR$(7); CHR$(7); CHR$(7)
4990RETURN



