Qbus
Veteran Member
Ok, let’s see if I can figure it out, quote, copy, paste. Sounds simple enough.
Code:
Rock, Scissors and Paper game for PDP-11 using RT-11/DEC Basic tested on an 11/23.
10 REM ROCK SCISSORS PAPER GAME FOR PDP11
20 PRINT” THE GAME OF ROCK, SCISSORS AND PAPER”
30 PRINT
40 REM GAME NUMBER ROUTEEN
50 PRINT” HOW MANY GAMES WOULD YOU LIKE TO PLAY “
60 INPUT Q
70 IF Q<11 GOTO 120
80 PRINT” SORRY, BUT I AM NOT ALLOWED TO PLAY THAT MANY”
90 PRINT” PLEASE ENTER A NEW NUMBER BETWEEN ONE AND TEN “
100 GOTO 60
110 G=1 + G
120 PRINT
130 PRINT” THIS IS GAME NUMBER “G
140 PRINT
150 REM RANDOM NUMBER GENERATOR
160 X=INT (3*RND(0)+1)
170 REM PLAYERS INPUT AND VALID ENTRY ROUTEEN
180 PRINT” 3=ROCK, 2=SCISSORS AND 1=PAPER “
190 PRINT” WHATS YOUR CHOICE “
200 INPUT K
210 IF K=1 GOTO 260
220 IF K=2 GOTO 260
230 IF K=3 GOTO 260
240 PRINT” INVALID ENTRY, TRY AGAIN “
250 GOTO 180
260 PRINT” MY CHOICE IS “
270 REM MY CHOICE DISPLAY LOGIC
280 IF X=1 GOTO 310
290 IF X=2 GOTO 330
300 IF X=3 GOTO 350
310 PRINT” #1 PAPER “
320 GOTO 380
330 PRINT” #2 SCISSORS “
340 GOTO 380
350 PRINT” #3 ROCK “
360 GOTO 380
370 REM GAME LOGIC
380 IF X=K GOTO 520
390 IF X>K GOTO 500
400 IF X=1 GOTO 450
410 PRINT
420 PRINT” YOU WIN “
430 H=H+1
440 GOTO 550
450 IF K< > 3 GOTO 420
460 PRINT
470 PRINT” I WIN “
480 C=C+1
490 GOTO 550
500 IF K < > 1 GOTO 470
505 IF X < > 3 GOTO 470
510 GOTO 420
520 PRINT
530 PRINT” TIE GAME, NO WINNER “
540 F=F+1
550 IF G < Q GOTO 110
560 REM FINAL SCORE DISPLAY
570 PRINT
580 PRINT” THE FINAL GAME SCORE IS “
590 PRINT” GAMES THAT I WON “C
600 PRINT” GAMES YOU WON “H
610 PRINT” TIE GAMES “F
620 REM END OF GAME OCT 2013
630 END
Note: to save a Basic file use the “SAVE” command, just name the file and do not include the .BAS extension.
To open an existing file in Basic use the “OLD’ command along with the file name.