ROCK PAPER SCISSORS PORTING FROM APPLE 1 TO APPLE II BY MATTEO TREVISAN

No replies
Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 162

An easy porting by Apple 1 to Apple ii platform made by me here the code:

1020 PRINT "WELCOME TO ROCK PAPER SCISSORS"
1030 DIM V$(10)
1040 PRINT "ROCK OR PAPER OR SCISSORS": INPUT V$
1050 IF V$ = "ROCK" THEN 1080
1060 IF V$ = "PAPER" THEN 1150
1070 IF V$ = "SCISSORS" THEN 2020
1080 A= INT (2 * RND (1) + 1)
1090 IF A = 0 THEN 1110
1100 IF A = 1 THEN 1130
1110 PRINT "PAPER YOU LOSE"
1120 GOTO 1040
1130 PRINT "SCISSORS YOU WIN"
1140 GOTO 1040
1150 A= INT (2 * RND (1) + 1)
1160 IF A = 0 THEN 1180
1170 IF A = 1 THEN 2000
1180 PRINT "SCISSORS YOU LOSE"
1190 GOTO 1040
2000 PRINT "ROCK YOU WIN"
2010 GOTO 1040
2020 A = INT (2 * RND (1) + 1)
2030 IF A = 0 THEN 2050
2040 IF A = 1 THEN 2070
2050 PRINT "ROCK YOU LOSE"
2060 GOTO 1040
2070 PRINT "PAPER YOU WIN"
2080 GOTO 1040

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"