mirror of
https://github.com/rfivet/BCG101.git
synced 2024-06-16 13:35:26 +00:00
Add BUZZWD, GUNNER, TICTAC and WEKDAY.
This commit is contained in:
parent
a0b5ef2678
commit
9f63035c8e
124
dec/BUZZWD.BAS
Normal file
124
dec/BUZZWD.BAS
Normal file
|
|
@ -0,0 +1,124 @@
|
|||
100 PRINT"THIS COMPUTER DEMONSTRATION IS A NEW AID FOR"
|
||||
110 PRINT"PREPARING SPEECHES AND BRIEFINGS. IT'S A BUZZWORD"
|
||||
120 PRINT"GENERATOR WHICH PROVIDES YOU WITH A SET OF 3 HIGHLY"
|
||||
130 PRINT"ACCEPTABLE WORDS TO WORK INTO YOUR MATERIAL. THE WORDS"
|
||||
140 PRINT"DON'T ACTUALLY MEAN ANYTHING, BUT THEY SOUND GREAT."
|
||||
150 PRINT
|
||||
160 PRINT"THE PROCEDURE:"
|
||||
170 PRINT" THINK OF ANY THREE NUMBERS BETWEEN 0 AND 9. ENTER"
|
||||
180 PRINT" THEM AFTER THE '?' SEPARATED BY COMMAS. YOUR"
|
||||
190 PRINT" BUZZWORD WILL BE PRINTED OUT. TYPING '100' FOR"
|
||||
191 PRINT" EACH OF YOUR CHOICES STOPS THIS PROGRAM."
|
||||
210 PRINT "WHAT ARE YOUR THREE NUMBERS";
|
||||
220 GOTO260
|
||||
230 PRINT
|
||||
240 PRINT
|
||||
250 PRINT"THREE MORE NUMBERS";
|
||||
260 INPUT N,M,P
|
||||
265 IF N=100 THEN 1290
|
||||
270 IF N<O THEN 1240
|
||||
280 IF P<0 THEN 1240
|
||||
290 IF M<0 THEN 1240
|
||||
300 IF N>9 THEN 1240
|
||||
310 IF P>9 THEN 1240
|
||||
320 IF M>9 THEN 1240
|
||||
330 PRINT
|
||||
340 IF N=0 THEN 640
|
||||
350 IF N=1THEN 660
|
||||
360 IF N=2THEN 680
|
||||
370 IF N=3THEN 700
|
||||
380 IF N=4 THEN 720
|
||||
390 IF N=5THEN 740
|
||||
400 IF N=6THEN 760
|
||||
410 IF N=7THEN 780
|
||||
420 IF N=8THEN 800
|
||||
430 IF N=9THEN 820
|
||||
440 IF M=0 THEN 840
|
||||
450 IF M=1 THEN 860
|
||||
460 IF M=2 THEN 880
|
||||
470 IF M=3 THEN 900
|
||||
480 IF M=4 THEN 920
|
||||
490 IF M=5 THEN 940
|
||||
500 IF M=6 THEN 960
|
||||
510 IF M=7 THEN 980
|
||||
520 IF M=8 THEN 1000
|
||||
530 IF M=9 THEN 1020
|
||||
540 IF P=0 THEN 1040
|
||||
550 IF P=1 THEN 1060
|
||||
560 IF P=2 THEN 1080
|
||||
570 IF P=3 THEN 1100
|
||||
580 IFP=4 THEN 1120
|
||||
590 IF P=5 THEN 1140
|
||||
600 IF P=6 THEN 1160
|
||||
610 IF P=7 THEN 1180
|
||||
620 IF P=8 THEN 1200
|
||||
630 IF P=9 THEN 1220
|
||||
640 PRINT" INTEGRATED";
|
||||
650 GOTO440
|
||||
660 PRINT" TOTAL";
|
||||
670 GOTO440
|
||||
680 PRINT "SYSTEMATIZED";
|
||||
690 GOTO440
|
||||
700 PRINT" PARALLEL";
|
||||
710 GO TO 440
|
||||
720 PRINT" FUNCTIONAL";
|
||||
730 GOTO440
|
||||
740 PRINT" RESPONSIVE";
|
||||
750 GOTO440
|
||||
760 PRINT" OPTIMAL";
|
||||
770 GOTO440
|
||||
780 PRINT" SYNCHRONIZED";
|
||||
790 GOTO440
|
||||
800 PRINT " COMPATIBLE";
|
||||
810 GOTO440
|
||||
820 PRINT" BALANCED";
|
||||
830 GOTO440
|
||||
840 PRINT" MANAGEMENT";
|
||||
850 GOTO 540
|
||||
860 PRINT" ORGANIZATIONAL";
|
||||
870 GOTO 540
|
||||
880 PRINT" MONITORED";
|
||||
890 GOTO 540
|
||||
900 PRINT" RECIPROCAL";
|
||||
910 GOTO 540
|
||||
920 PRINT" DIGITAL";
|
||||
930 GOTO 540
|
||||
940 PRINT" LOGISTICAL";
|
||||
950 GOTO 540
|
||||
960 PRINT " TRANSITIONAL";
|
||||
970 GOTO 540
|
||||
980 PRINT" INCREMENTAL";
|
||||
990 GOTO 540
|
||||
1000 PRINT" THIRD-GENERATION";
|
||||
1010 GO TO 540
|
||||
1020 PRINT" POLICY";
|
||||
1030 GOTO 540
|
||||
1040 PRINT" OPTIONS"
|
||||
1050 GOTO 230
|
||||
1060 PRINT " FLEXIBILITY"
|
||||
1070 GO TO 230
|
||||
1080 PRINT" CAPABILITY"
|
||||
1090 GOTO230
|
||||
1100 PRINT" MOBILITY"
|
||||
1110 GOTO230
|
||||
1120 PRINT" PROGRAMMING"
|
||||
1130 GO TO 230
|
||||
1140 PRINT" CONCEPT"
|
||||
1150 GOTO230
|
||||
1160 PRINT" TIME-PHASE"
|
||||
1170 GOTO230
|
||||
1180 PRINT" PROJECTION"
|
||||
1190 GOTO230
|
||||
1200 PRINT" HARDWARE"
|
||||
1210 GOTO230
|
||||
1220 PRINT" CONTINGENCY"
|
||||
1230 GOTO230
|
||||
1240 PRINT
|
||||
1250 PRINT
|
||||
1260 PRINT"NUMBERS MUST BE BETWEEN 0 AND 9. PLEASE SELECT THREE MORE."
|
||||
1270 GOTO 260
|
||||
1280 GOTO 260
|
||||
1290 PRINT "GOODBYE FOR NOW! "
|
||||
1300 PRINT\PRINT\PRINT
|
||||
1310 CHAIN "DEMON "
|
||||
1320 END
|
||||
58
dec/GUNNER.BAS
Normal file
58
dec/GUNNER.BAS
Normal file
|
|
@ -0,0 +1,58 @@
|
|||
10 REM *** MODIFIED AND CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
|
||||
90 RANDOMIZE
|
||||
100 PRINT "THIS COMPUTER DEMONSTRATION SIMULATES THE"
|
||||
110 PRINT"RESULTS OF FIRING A FIELD ARTILLERY WEAPON."
|
||||
120 PRINT
|
||||
130 PRINT"YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO THE GUN"
|
||||
140 PRINT"CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE"
|
||||
150 PRINT"WILL PLACE THE PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS"
|
||||
160 PRINT "OF THE TARGET WILL DESTROY IT. TAKE MORE THAN 5 SHOTS,"
|
||||
170 PRINT "AND THE ENEMY WILL DESTROY YOU!"\PRINT
|
||||
180 PRINT"MAXIMUM RANGE OF YOUR GUN IS 46500 YARDS."
|
||||
185 Z=0
|
||||
190 PRINT
|
||||
195 S1=0
|
||||
200 LET T=43000-30000*RND(X)
|
||||
210 LET S=0
|
||||
220 GO TO 370
|
||||
230 PRINT"MINIMUM ELEVATION OF GUN IS ONE DEGREE."
|
||||
240 GO TO 390
|
||||
250 PRINT"MAXIMUM ELEVATION OF GUN IS 89 DEGREES."
|
||||
260 GO TO 390
|
||||
270 PRINT"OVER TARGET BY";ABS(E);"YARDS."
|
||||
280 GO TO 390
|
||||
290 PRINT "SHORT OF TARGET BY";ABS(E);"YARDS."
|
||||
300 GO TO 390
|
||||
310 GO TO 320
|
||||
320 PRINT"***TARGET DESTROYED*** ";S;"ROUNDS OF AMMUNITION EXPENDED"
|
||||
322 GOSUB 600
|
||||
325 S1=S1+S
|
||||
330 IF Z=4 THEN 490
|
||||
340 Z=Z+1
|
||||
345 PRINT
|
||||
350 PRINT"THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY."
|
||||
360 GO TO 200
|
||||
370 PRINT" DISTANCE TO THE TARGET IS";INT(T);"YARDS....."
|
||||
380 PRINT
|
||||
390 PRINT
|
||||
400 PRINT"ELEVATION:";
|
||||
410 INPUT B
|
||||
420 IF B>89 THEN 250
|
||||
430 IF B<1 THEN 230
|
||||
440 LET S=S+1
|
||||
442 IF S<6 THEN 450
|
||||
444 PRINT\PRINT "BOOM !!! YOU HAVE JUST BEEN DESTROYED ";
|
||||
445 GOSUB 600
|
||||
446 PRINT "BY THE ENEMY"\PRINT\PRINT\GOTO 495
|
||||
450 LET B2=2*B/57.3\LET I=46500*SIN(B2)\LET X=T-I\LET E=INT(X)
|
||||
460 IF ABS(E)<100 THEN 310
|
||||
470 IF E>100 THEN 290
|
||||
480 IF E<-100 THEN 270
|
||||
490 PRINT\PRINT\PRINT "TOTAL ROUNDS EXPENDED WERE";S1
|
||||
491 IF S1>15 THEN 495\PRINT "NICE SHOOTING !!"\GOSUB 600\GOTO 500
|
||||
495 PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!"
|
||||
500 PRINT\PRINT "THANK YOU FOR PLAYING!"
|
||||
505 PRINT\PRINT "TRY AGAIN....."\PRINT\GOTO 180
|
||||
600 FOR N=1 TO 10\PRINT CHR$(7);\NEXT N
|
||||
610 RETURN
|
||||
999 END
|
||||
225
dec/TICTAC.BAS
Normal file
225
dec/TICTAC.BAS
Normal file
|
|
@ -0,0 +1,225 @@
|
|||
120 PRINT"YOU HAVE THE OPPORTUNITY OF TRYING TO BEAT THE COMPUTER"
|
||||
130 PRINT"AT TIC-TAC-TOE. ENTER YOUR MOVES AS FOLLOWS:"
|
||||
140 PRINT
|
||||
150 DIM C(11)
|
||||
160 DIM D(11)
|
||||
170 FOR K=1 TO 11
|
||||
180 READ C(K), D(K)
|
||||
190 NEXT K
|
||||
200 PRINT "...ROW NUMBER...COMMA...COLUMN NUMBER..."
|
||||
210 PRINT
|
||||
220 PRINT"ROWS ARE HORIZONTAL(ACROSS)...COLUMNS ARE VERTICAL(UP + DOWN)"
|
||||
230 DIM B(9)
|
||||
240 DIM A(3,3)
|
||||
250 PRINT
|
||||
260 PRINT "NEW GAME STARTED NOW..........................."
|
||||
270 FOR J=1 TO 3
|
||||
280 FOR I=1 TO 3
|
||||
290 LET A(I,J)=0
|
||||
300 NEXT I
|
||||
301 LET I=I-1
|
||||
310 NEXT J
|
||||
311 LET J=J-1
|
||||
320 LET Z= 0
|
||||
330 PRINT "YOUR MOVE",
|
||||
340 INPUT R,C
|
||||
350 PRINT
|
||||
360 IF R>3 THEN 620
|
||||
370 IF C>3 THEN 620
|
||||
380 IF A(R,C) <> 0 THEN 620
|
||||
390 LET A(R,C)=-1
|
||||
400 GOSUB 1660
|
||||
410 IF Z =1 THEN 2070
|
||||
420 REM MACHINE MOVE...
|
||||
430 GOSUB 1100
|
||||
440 REM TEST FOR GAME WIN...
|
||||
450 GOSUB 1660
|
||||
460 IF Z=0 THEN 650
|
||||
470 REM PRINT GAME BOARD..
|
||||
480 GO TO 490
|
||||
490 PRINT
|
||||
500 FOR K=1 TO 3
|
||||
510 LET B=A(K,1)
|
||||
520 LET D=A(K,2)
|
||||
530 LET F=A(K,3)
|
||||
540 GOSUB 840
|
||||
550 IF K>2 THEN 570
|
||||
560 PRINT "***************"
|
||||
570 NEXT K
|
||||
571 LET K=K-1
|
||||
580 PRINT
|
||||
590 IF Z <>0 THEN 2070
|
||||
600 GO TO 330
|
||||
610 STOP
|
||||
620 PRINT "---- ILLEGAL MOVE -- TRY AGAIN ----"
|
||||
630 PRINT
|
||||
640 GO TO 330
|
||||
650LET T2=0
|
||||
660 FOR J=1 TO 3
|
||||
670 FOR I=1 TO 3
|
||||
680 IF A(I,J)<>0 THEN 700
|
||||
690 LET T2=T2+1
|
||||
700 NEXT I
|
||||
701 LET I=I-1
|
||||
710 NEXT J
|
||||
711 LET J=J-1
|
||||
720 IF T2>0 THEN 750
|
||||
730 GOSUB 1340
|
||||
740 GO TO 480
|
||||
750 IF T2>1 THEN 480
|
||||
760 FOR J=1 TO 8
|
||||
770 IF B(J)=-2 THEN 800
|
||||
780 NEXT J
|
||||
781 LET J=J-1
|
||||
790 GO TO 730
|
||||
800 GOSUB 2000
|
||||
810 GO TO 480
|
||||
820 REM PRINT TIC-TAC-TOE BOARD ROW.....
|
||||
830 REM
|
||||
840 IF B<>0 THEN 910
|
||||
850 PRINT " * ";
|
||||
860 IF D<>0 THEN 940
|
||||
870 PRINT " * ";
|
||||
880 IF F<>0 THEN 970
|
||||
890 PRINT " "
|
||||
900 GO TO 1070
|
||||
910 IF B>0 THEN 1000
|
||||
920 PRINT "YOU * ";
|
||||
930 GO TO 860
|
||||
940 IF D>0 THEN 1020
|
||||
950 PRINT "YOU * ";
|
||||
960 GO TO 880
|
||||
970 IF F>0 THEN 1040
|
||||
980 PRINT "YOU"
|
||||
990 GO TO 900
|
||||
1000 PRINT"PDP * ";
|
||||
1010 GO TO 860
|
||||
1020 PRINT "PDP * ";
|
||||
1030 GO TO 880
|
||||
1040 PRINT "PDP"
|
||||
1050 GO TO900
|
||||
1060 REM PRINT LEGENDS..
|
||||
1070 PRINT " * * "
|
||||
1080 RETURN
|
||||
1090 REM PROGRAM TO MAKE MOVE FOR THE MACHINE....
|
||||
1100 LET M=INT(3.33*RND(M))
|
||||
1110 LET N=INT(3.33333*RND(N))
|
||||
1120 IF M=0 THEN 1100
|
||||
1130 IF M>3 THEN 1100
|
||||
1140 IF N=0 THEN 1110
|
||||
1150 IF N>3 THEN 1110
|
||||
1160 LET C(2)=M
|
||||
1170 LET D(2)=N
|
||||
1180 LET C(3)=N
|
||||
1190 LET D(3)=M
|
||||
1200 FOR I=1 TO 8
|
||||
1210 IF B(I)>1 THEN 1370
|
||||
1220 NEXT I
|
||||
1221 LET I=I-1
|
||||
1230 FOR I=1 TO 8
|
||||
1240 IF B(I)<-1 THEN 1370
|
||||
1250 NEXT I
|
||||
1251 LET I=I-1
|
||||
1260 IF R+C=0 THEN 1550
|
||||
1270 FOR K=1 TO 11
|
||||
1280 LET I=C(K)
|
||||
1290 LET J=D(K)
|
||||
1300 IF A(I,J)<>0 THEN 1330
|
||||
1310 LET A(I,J)=1
|
||||
1320 GO TO 1360
|
||||
1330 NEXT K
|
||||
1331 LET K=K-1
|
||||
1340 PRINT " ... TIE GAME ... "
|
||||
1350 LET Z=3
|
||||
1360 RETURN
|
||||
1370 IF I>3 THEN 1440
|
||||
1380 FOR J=1 TO 3
|
||||
1390 IF A(I,J)=0 THEN 1420
|
||||
1400 NEXT J
|
||||
1401 LET J=J-1
|
||||
1410 GO TO 1360
|
||||
1420 LET A(I,J)=1
|
||||
1430 GO TO 1360
|
||||
1440 IF I>6 THEN 1510
|
||||
1450 FOR J=1 TO 3
|
||||
1460 IF A(J,I-3)=0 THEN 1490
|
||||
1470 NEXT J
|
||||
1471 LET J=J-1
|
||||
1480 GO TO 1360
|
||||
1490 LET A(J,I-3)=1
|
||||
1500 GO TO 1360
|
||||
1510 IF I>7 THEN 1550
|
||||
1520 FOR J=1 TO 3
|
||||
1530 IF A(J,J)=0 THEN 1590
|
||||
1540 NEXT J
|
||||
1541 LET J=J-1
|
||||
1550 IF A(1,3)=0 THEN 1610
|
||||
1560 IF A(3,1)=0 THEN 1630
|
||||
1570 LET A(2,2)=1
|
||||
1580 GO TO 1360
|
||||
1590 LET A(J,J)=1
|
||||
1600 GO TO 1360
|
||||
1610 LET A(1,3)=1
|
||||
1620 GO TO 1360
|
||||
1630 LET A(3,1)=1
|
||||
1640 GO TO 1360
|
||||
1650 REM PROGRAM TO TEST FOR GAME WINNER....
|
||||
1660 LET T1=0
|
||||
1670 FOR J=1 TO 9
|
||||
1680 LET B(J)=0
|
||||
1690 NEXT J
|
||||
1691 LET J=J-1
|
||||
1700 FOR J=1 TO 3
|
||||
1710 FOR I=1 TO 3
|
||||
1720 IF A(J,1)<>A(J,I) THEN 1750
|
||||
1730 NEXT I
|
||||
1731 LET I=I-1
|
||||
1740 LET T1=A(J,I)
|
||||
1750 NEXT J
|
||||
1751 LET J=J-1
|
||||
1760 FOR J=1 TO 3
|
||||
1770 FOR I=1 TO 3
|
||||
1780 IF A(1,J)<>A(I,J) THEN 1810
|
||||
1790 NEXT I
|
||||
1791 LET I=I-1
|
||||
1800 LET T1=A(I,J)
|
||||
1810 NEXT J
|
||||
1811 LET J=J-1
|
||||
1820 IF A(1,1)=A(3,3) THEN 1930
|
||||
1830 IF A(3,1)=A(1,3) THEN 1970
|
||||
1840 IF T1<>0 THEN 1990
|
||||
1850 FOR J=1 TO 3
|
||||
1860 FOR I=1 TO 3
|
||||
1870 LET B(J)=B(J)+A(J,I)
|
||||
1880 LET B(J+3)=B(J+3)+A(I,J)
|
||||
1890 NEXT I
|
||||
1891 LET I=I-1
|
||||
1900 NEXT J
|
||||
1901 LET J=J-1
|
||||
1910 LET B(7)=A(1,1)+A(2,2)+A(3,3)
|
||||
1920 RETURN
|
||||
1930 IF A(2,2)=A(3,3) THEN 1950
|
||||
1940 GO TO 1830
|
||||
1950 LET T1=A(2,2)
|
||||
1960 GO TO 1840
|
||||
1970 IF A(2,2)=A(1,3) THEN 1950
|
||||
1980 GO TO 1840
|
||||
1990 IF T1>0 THEN 2030
|
||||
2000 PRINT " ...YOU WIN THIS TIME..."
|
||||
2010 LET Z=1
|
||||
2020 GO TO 1850
|
||||
2030 PRINT " ... THE PDP-8 WINS THIS TIME ..."
|
||||
2040 LET Z=2
|
||||
2050 GO TO 1850
|
||||
2060 REM END OF TEST WINNER PROGRAM.......
|
||||
2070 PRINT "DO YOU WANT TO PLAY ANOTHER GAME: YES(1), NO(0)",
|
||||
2080 INPUT X1
|
||||
2090 IF X1 = 1 THEN 250
|
||||
2100 IF X1 = 0 THEN 2130
|
||||
2110 PRINT "I SAID ONE OR ZERO: TRY AGAIN",
|
||||
2120 GO TO 2080
|
||||
2130 PRINT"IT'S BEEN FUN, COME AGAIN SOMETIME"
|
||||
2140 GO TO 2160
|
||||
2150 DATA 2,2,0,0,0,0,1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1
|
||||
2160 CHAIN "DEMON "
|
||||
2170 END
|
||||
142
dec/WEKDAY.BAS
Normal file
142
dec/WEKDAY.BAS
Normal file
|
|
@ -0,0 +1,142 @@
|
|||
10 PRINT""
|
||||
120PRINT
|
||||
124 LET Y1 = 1970
|
||||
130 PRINT" ENTER TODAY'S DATE IN THIS FORM: MONTH,DAY, YEAR";
|
||||
140 INPUT M1,D1,Y1
|
||||
150 IF Y1>100 THEN 170
|
||||
160 LET Y1 = Y1 + 1900
|
||||
170 DEF FNA(A)=INT(A/4)
|
||||
180 DIM T(12)
|
||||
190 DEF FNB(A)=INT(A/7)
|
||||
210 FOR I= 1 TO 12
|
||||
220 READ T(I)
|
||||
230 NEXT I
|
||||
240 PRINT
|
||||
241PRINT"THIS PROGRAM DEMONSTRATES PDP-11 BASIC AND ALSO GIVES "
|
||||
242PRINT"FACTS ABOUT A DATE OF INTEREST TO YOU"
|
||||
244 PRINT
|
||||
245 PRINT"ENTER DATE OF BIRTH IN THIS FORM: MO,DAY,YEAR";
|
||||
250 INPUT M,D,Y
|
||||
260 PRINT
|
||||
270 IF Y - 75 >0 THEN 280
|
||||
275 LET Y = Y+1900
|
||||
280 LET I1 = INT((Y-1500)/100)
|
||||
290 IF Y-1582<0 THEN 1300
|
||||
300 LET A = I1*5+(I1+3)/4
|
||||
310LET I2 = INT(A-FNB(A)*7)
|
||||
320 LET Y2= INT(Y/100)
|
||||
330 LET Y3 = INT(Y-Y2*100)
|
||||
340 LET A = Y3/4+Y3+D+T(M)+I2
|
||||
350 LET B = INT(A-FNB(A)*7)+1
|
||||
360 IF M>2 THEN 470
|
||||
370 IF Y3= 0 THEN 440
|
||||
380 LET T1 = INT(Y-FNA(Y)*4)
|
||||
390 IF T1<> 0 THEN 470
|
||||
400 IF B<>0 THEN 420
|
||||
410 LET B = 6
|
||||
420 LET B = B-1
|
||||
430 GOTO 470
|
||||
440 LET A = I1-1
|
||||
450 LET T1 = INT(A-FNA(A)*4)
|
||||
460 IF T1 = 0 THEN 400
|
||||
470 IF B <> 0 THEN 490
|
||||
480 LET B = 7
|
||||
490 IF (Y1*12+M1)*31+D1<(Y*12+M)*31+D THEN 550
|
||||
500 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 530
|
||||
510 PRINT M;"/";D;"/";Y;" WAS A ";
|
||||
520 GOTO 570
|
||||
530 PRINT M;"/";D;"/";Y;" IS A ";
|
||||
540 GOTO 570
|
||||
550 PRINT M;"/";D;"/";Y;" WILL BE A ";
|
||||
570 IF B<>1 THEN 590
|
||||
580 PRINT "SUNDAY"
|
||||
590 IF B<>2 THEN 610
|
||||
600 PRINT "MONDAY"
|
||||
610 IF B<>3 THEN630
|
||||
620 PRINT "TUESDAY"
|
||||
630 IF B<>4 THEN 650
|
||||
640 PRINT "WEDNESDAY"
|
||||
650 IF B<>5 THEN 670
|
||||
660 PRINT "THURSDAY"
|
||||
670 IF B<>6 THEN 690
|
||||
680 GOTO 1250
|
||||
690 IF B<>7 THEN 710
|
||||
700 PRINT "SATURDAY"
|
||||
710 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 1120
|
||||
720 LET I5=Y1-Y
|
||||
730 PRINT
|
||||
740 LET I6=M1-M
|
||||
750 LET I7=D1-D
|
||||
760 IF I7>=0 THEN 790
|
||||
770 LET I6=I6-1
|
||||
780 LET I7=I7+30
|
||||
790 IF I6>=0 THEN 820
|
||||
800 LET I5=I5-1
|
||||
810 LET I6=I6+12
|
||||
820 IF I5<0 THEN 1310
|
||||
830 IF I7<>0 THEN 850
|
||||
835 IF I6<>0 THEN 850
|
||||
840 PRINT "****HAPPY BIRTHDAY*****"
|
||||
850 PRINT " "," ","YEARS","MONTHS","DAYS"
|
||||
860 PRINT "YOUR AGE ",I5,I6,I7
|
||||
870 LET A8= (I5*365)+(I6*30)+I7+INT(I6/2)
|
||||
880 LET K5=I5
|
||||
890 LET K6=I6
|
||||
900 LET K7=I7
|
||||
920 LET E=Y+65
|
||||
940 LET F=.35
|
||||
950 PRINT "YOU HAVE SLEPT ",
|
||||
960 GOSUB 1370
|
||||
970 LET F=.17
|
||||
980 PRINT "YOU HAVE EATEN ",
|
||||
990 GOSUB 1370
|
||||
1000 LET F=.23
|
||||
1010 IF K5 > 3 THEN 1040
|
||||
1020 PRINT"YOU HAVE PLAYED ",
|
||||
1030 GOTO 1080
|
||||
1040 IF K5 > 9 THEN 1070
|
||||
1050 PRINT "YOU HAVE PLAYED/STUDIED",
|
||||
1060 GOTO 1080
|
||||
1070 PRINT "YOU HAVE WORKED/STUDIED",
|
||||
1080 GOSUB 1370
|
||||
1090 PRINT "YOU HAVE RELAXED ",K5,K6,K7
|
||||
1100 PRINT
|
||||
1110 PRINT " ","**YOU MAY RETIRE IN";E;"**"
|
||||
1120 PRINT
|
||||
1130 PRINT" CALCULATED BY THE BEST MINICOMPUTER TODAY - THE PDP-11"
|
||||
1140 FOR Q=1 TO 2
|
||||
1150 PRINT
|
||||
1160 NEXT Q
|
||||
1170 PRINT
|
||||
1240 GOTO 240
|
||||
1250 IF D=13 THEN 1280
|
||||
1260 PRINT "FRIDAY "
|
||||
1270 GOTO 710
|
||||
1280 PRINT "FRIDAY THE THIRTEENT@---BEWARE!"
|
||||
1290 GOTO 710
|
||||
1300 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXPXII -"
|
||||
1305 PRINT " THE CURRENT CALENDAR DID NOT EXIST BEFORE THAT YEAR."
|
||||
1310 GOTO 1140
|
||||
1330 DATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5
|
||||
1370 LET K1= INT(F*A8)
|
||||
1380 LET I5 = INT(K1/365)
|
||||
1390 LET K1 = K1-(I5*365)
|
||||
1400 LET I6 = INT(K1/30)
|
||||
1410 LET I7 = K1-(I6*30)
|
||||
1420 LET K5 = K5-I5
|
||||
1430 LET K6 = K6-I6
|
||||
1440 LET K7 = K7-I7
|
||||
1450 IF K7 >= 0 THEN 1480
|
||||
1460 LET K7 = K7+30
|
||||
1470 LET K6 = K6-1
|
||||
1480 IF K6 > 0 THEN 1510
|
||||
1490 LET K6 = K6+12
|
||||
1500 LET K5 = K5-1
|
||||
1510 PRINT I5,I6,I7
|
||||
1520 RETURN
|
||||
1530 IF K6 = 12 THEN 1550
|
||||
1540 GOTO 1090
|
||||
1550 LET K5 = K5+1
|
||||
1560 LET K6=0
|
||||
1570 GOTO 1090
|
||||
1580 END
|
||||
124
port/BUZZWD.BAS
Normal file
124
port/BUZZWD.BAS
Normal file
|
|
@ -0,0 +1,124 @@
|
|||
100 PRINT"THIS COMPUTER DEMONSTRATION IS A NEW AID FOR"
|
||||
110 PRINT"PREPARING SPEECHES AND BRIEFINGS. IT'S A BUZZWORD"
|
||||
120 PRINT"GENERATOR WHICH PROVIDES YOU WITH A SET OF 3 HIGHLY"
|
||||
130 PRINT"ACCEPTABLE WORDS TO WORK INTO YOUR MATERIAL. THE WORDS"
|
||||
140 PRINT"DON'T ACTUALLY MEAN ANYTHING, BUT THEY SOUND GREAT."
|
||||
150 PRINT
|
||||
160 PRINT"THE PROCEDURE:"
|
||||
170 PRINT" THINK OF ANY THREE NUMBERS BETWEEN 0 AND 9. ENTER"
|
||||
180 PRINT" THEM AFTER THE '?' SEPARATED BY COMMAS. YOUR"
|
||||
190 PRINT" BUZZWORD WILL BE PRINTED OUT. TYPING '100' FOR"
|
||||
191 PRINT" EACH OF YOUR CHOICES STOPS THIS PROGRAM."
|
||||
210 PRINT "WHAT ARE YOUR THREE NUMBERS";
|
||||
220 GOTO260
|
||||
230 PRINT
|
||||
240 PRINT
|
||||
250 PRINT"THREE MORE NUMBERS";
|
||||
260 INPUT N,M,P
|
||||
265 IF N=100 THEN 1290
|
||||
270 IF N<0 THEN 1240
|
||||
280 IF P<0 THEN 1240
|
||||
290 IF M<0 THEN 1240
|
||||
300 IF N>9 THEN 1240
|
||||
310 IF P>9 THEN 1240
|
||||
320 IF M>9 THEN 1240
|
||||
330 PRINT
|
||||
340 IF N=0 THEN 640
|
||||
350 IF N=1THEN 660
|
||||
360 IF N=2THEN 680
|
||||
370 IF N=3THEN 700
|
||||
380 IF N=4 THEN 720
|
||||
390 IF N=5THEN 740
|
||||
400 IF N=6THEN 760
|
||||
410 IF N=7THEN 780
|
||||
420 IF N=8THEN 800
|
||||
430 IF N=9THEN 820
|
||||
440 IF M=0 THEN 840
|
||||
450 IF M=1 THEN 860
|
||||
460 IF M=2 THEN 880
|
||||
470 IF M=3 THEN 900
|
||||
480 IF M=4 THEN 920
|
||||
490 IF M=5 THEN 940
|
||||
500 IF M=6 THEN 960
|
||||
510 IF M=7 THEN 980
|
||||
520 IF M=8 THEN 1000
|
||||
530 IF M=9 THEN 1020
|
||||
540 IF P=0 THEN 1040
|
||||
550 IF P=1 THEN 1060
|
||||
560 IF P=2 THEN 1080
|
||||
570 IF P=3 THEN 1100
|
||||
580 IFP=4 THEN 1120
|
||||
590 IF P=5 THEN 1140
|
||||
600 IF P=6 THEN 1160
|
||||
610 IF P=7 THEN 1180
|
||||
620 IF P=8 THEN 1200
|
||||
630 IF P=9 THEN 1220
|
||||
640 PRINT" INTEGRATED";
|
||||
650 GOTO440
|
||||
660 PRINT" TOTAL";
|
||||
670 GOTO440
|
||||
680 PRINT" SYSTEMATIZED";
|
||||
690 GOTO440
|
||||
700 PRINT" PARALLEL";
|
||||
710 GO TO 440
|
||||
720 PRINT" FUNCTIONAL";
|
||||
730 GOTO440
|
||||
740 PRINT" RESPONSIVE";
|
||||
750 GOTO440
|
||||
760 PRINT" OPTIMAL";
|
||||
770 GOTO440
|
||||
780 PRINT" SYNCHRONIZED";
|
||||
790 GOTO440
|
||||
800 PRINT " COMPATIBLE";
|
||||
810 GOTO440
|
||||
820 PRINT" BALANCED";
|
||||
830 GOTO440
|
||||
840 PRINT" MANAGEMENT";
|
||||
850 GOTO 540
|
||||
860 PRINT" ORGANIZATIONAL";
|
||||
870 GOTO 540
|
||||
880 PRINT" MONITORED";
|
||||
890 GOTO 540
|
||||
900 PRINT" RECIPROCAL";
|
||||
910 GOTO 540
|
||||
920 PRINT" DIGITAL";
|
||||
930 GOTO 540
|
||||
940 PRINT" LOGISTICAL";
|
||||
950 GOTO 540
|
||||
960 PRINT " TRANSITIONAL";
|
||||
970 GOTO 540
|
||||
980 PRINT" INCREMENTAL";
|
||||
990 GOTO 540
|
||||
1000 PRINT" THIRD-GENERATION";
|
||||
1010 GO TO 540
|
||||
1020 PRINT" POLICY";
|
||||
1030 GOTO 540
|
||||
1040 PRINT" OPTIONS"
|
||||
1050 GOTO 230
|
||||
1060 PRINT " FLEXIBILITY"
|
||||
1070 GO TO 230
|
||||
1080 PRINT" CAPABILITY"
|
||||
1090 GOTO230
|
||||
1100 PRINT" MOBILITY"
|
||||
1110 GOTO230
|
||||
1120 PRINT" PROGRAMMING"
|
||||
1130 GO TO 230
|
||||
1140 PRINT" CONCEPT"
|
||||
1150 GOTO230
|
||||
1160 PRINT" TIME-PHASE"
|
||||
1170 GOTO230
|
||||
1180 PRINT" PROJECTION"
|
||||
1190 GOTO230
|
||||
1200 PRINT" HARDWARE"
|
||||
1210 GOTO230
|
||||
1220 PRINT" CONTINGENCY"
|
||||
1230 GOTO230
|
||||
1240 PRINT
|
||||
1250 PRINT
|
||||
1260 PRINT"NUMBERS MUST BE BETWEEN 0 AND 9. PLEASE SELECT THREE MORE."
|
||||
1270 GOTO 260
|
||||
1280 GOTO 260
|
||||
1290 PRINT "GOODBYE FOR NOW! "
|
||||
1300 PRINT\PRINT\PRINT
|
||||
1310 CHAIN "DEMON "
|
||||
1320 END
|
||||
58
port/GUNNER.BAS
Normal file
58
port/GUNNER.BAS
Normal file
|
|
@ -0,0 +1,58 @@
|
|||
10 REM *** MODIFIED AND CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
|
||||
90 RANDOMIZE
|
||||
100 PRINT "THIS COMPUTER DEMONSTRATION SIMULATES THE"
|
||||
110 PRINT"RESULTS OF FIRING A FIELD ARTILLERY WEAPON."
|
||||
120 PRINT
|
||||
130 PRINT"YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO THE GUN"
|
||||
140 PRINT"CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE"
|
||||
150 PRINT"WILL PLACE THE PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS"
|
||||
160 PRINT "OF THE TARGET WILL DESTROY IT. TAKE MORE THAN 5 SHOTS,"
|
||||
170 PRINT "AND THE ENEMY WILL DESTROY YOU!"\PRINT
|
||||
180 PRINT"MAXIMUM RANGE OF YOUR GUN IS 46500 YARDS."
|
||||
185 Z=0
|
||||
190 PRINT
|
||||
195 S1=0
|
||||
200 LET T=43000-30000*RND(X)
|
||||
210 LET S=0
|
||||
220 GO TO 370
|
||||
230 PRINT"MINIMUM ELEVATION OF GUN IS ONE DEGREE."
|
||||
240 GO TO 390
|
||||
250 PRINT"MAXIMUM ELEVATION OF GUN IS 89 DEGREES."
|
||||
260 GO TO 390
|
||||
270 PRINT"OVER TARGET BY";ABS(E);"YARDS."
|
||||
280 GO TO 390
|
||||
290 PRINT "SHORT OF TARGET BY";ABS(E);"YARDS."
|
||||
300 GO TO 390
|
||||
310 GO TO 320
|
||||
320 PRINT"***TARGET DESTROYED*** ";S;"ROUNDS OF AMMUNITION EXPENDED"
|
||||
322 GOSUB 600
|
||||
325 S1=S1+S
|
||||
330 IF Z=4 THEN 490
|
||||
340 Z=Z+1
|
||||
345 PRINT
|
||||
350 PRINT"THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY."
|
||||
360 GO TO 200
|
||||
370 PRINT" DISTANCE TO THE TARGET IS";INT(T);"YARDS....."
|
||||
380 PRINT
|
||||
390 PRINT
|
||||
400 PRINT"ELEVATION:";
|
||||
410 INPUT B
|
||||
420 IF B>89 THEN 250
|
||||
430 IF B<1 THEN 230
|
||||
440 LET S=S+1
|
||||
442 IF S<6 THEN 450
|
||||
444 PRINT\PRINT "BOOM !!! YOU HAVE JUST BEEN DESTROYED ";
|
||||
445 GOSUB 600
|
||||
446 PRINT "BY THE ENEMY"\PRINT\PRINT\GOTO 495
|
||||
450 LET B2=2*B/57.3\LET I=46500*SIN(B2)\LET X=T-I\LET E=INT(X)
|
||||
460 IF ABS(E)<100 THEN 310
|
||||
470 IF E>100 THEN 290
|
||||
480 IF E<-100 THEN 270
|
||||
490 PRINT\PRINT\PRINT "TOTAL ROUNDS EXPENDED WERE";S1
|
||||
491 IF S1>15 THEN 495\PRINT "NICE SHOOTING !!"\GOSUB 600\GOTO 500
|
||||
495 PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!"
|
||||
500 PRINT\PRINT "THANK YOU FOR PLAYING!"
|
||||
505 PRINT\PRINT "TRY AGAIN....."\PRINT\GOTO 180
|
||||
600 FOR N=1 TO 10\PRINT CHR$(7);\NEXT N
|
||||
610 RETURN
|
||||
999 END
|
||||
225
port/TICTAC.BAS
Normal file
225
port/TICTAC.BAS
Normal file
|
|
@ -0,0 +1,225 @@
|
|||
100 RANDOMIZE
|
||||
120 PRINT"YOU HAVE THE OPPORTUNITY OF TRYING TO BEAT THE COMPUTER"
|
||||
130 PRINT"AT TIC-TAC-TOE. ENTER YOUR MOVES AS FOLLOWS:"
|
||||
140 PRINT
|
||||
150 DIM C(11)
|
||||
160 DIM D(11)
|
||||
170 FOR K=1 TO 11
|
||||
180 READ C(K), D(K)
|
||||
190 NEXT K
|
||||
200 PRINT "...ROW NUMBER...COMMA...COLUMN NUMBER..."
|
||||
210 PRINT
|
||||
220 PRINT"ROWS ARE HORIZONTAL(ACROSS)...COLUMNS ARE VERTICAL(UP + DOWN)"
|
||||
230 DIM B(9)
|
||||
240 DIM A(3,3)
|
||||
250 PRINT
|
||||
260 PRINT "NEW GAME STARTED NOW..........................."
|
||||
270 FOR J=1 TO 3
|
||||
280 FOR I=1 TO 3
|
||||
290 LET A(I,J)=0
|
||||
300 NEXT I
|
||||
301 LET I=I-1
|
||||
310 NEXT J
|
||||
311 LET J=J-1
|
||||
320 LET Z= 0
|
||||
330 PRINT "YOUR MOVE";
|
||||
340 INPUT R,C
|
||||
350 PRINT
|
||||
360 IF R>3 THEN 620
|
||||
370 IF C>3 THEN 620
|
||||
380 IF A(R,C) <> 0 THEN 620
|
||||
390 LET A(R,C)=-1
|
||||
400 GOSUB 1660
|
||||
410 IF Z =1 THEN 2037
|
||||
420 REM MACHINE MOVE...
|
||||
430 GOSUB 1100
|
||||
440 REM TEST FOR GAME WIN...
|
||||
450 GOSUB 1660
|
||||
460 IF Z=0 THEN 650
|
||||
470 REM PRINT GAME BOARD..
|
||||
480 GO TO 490
|
||||
490 PRINT
|
||||
500 FOR K=1 TO 3
|
||||
510 LET B=A(K,1)
|
||||
520 LET D=A(K,2)
|
||||
530 LET F=A(K,3)
|
||||
540 GOSUB 840
|
||||
550 IF K>2 THEN 570
|
||||
560 PRINT "***************"
|
||||
570 NEXT K
|
||||
571 LET K=K-1
|
||||
580 PRINT
|
||||
590 IF Z <>0 THEN 2037
|
||||
600 GO TO 330
|
||||
610 STOP
|
||||
620 PRINT "---- ILLEGAL MOVE -- TRY AGAIN ----"
|
||||
630 PRINT
|
||||
640 GO TO 330
|
||||
650LET T2=0
|
||||
660 FOR J=1 TO 3
|
||||
670 FOR I=1 TO 3
|
||||
680 IF A(I,J)<>0 THEN 700
|
||||
690 LET T2=T2+1
|
||||
700 NEXT I
|
||||
701 LET I=I-1
|
||||
710 NEXT J
|
||||
711 LET J=J-1
|
||||
720 IF T2>0 THEN 750
|
||||
730 GOSUB 1340
|
||||
740 GO TO 480
|
||||
750 IF T2>1 THEN 480
|
||||
760 FOR J=1 TO 8
|
||||
770 IF B(J)=-2 THEN 800
|
||||
780 NEXT J
|
||||
781 LET J=J-1
|
||||
790 GO TO 730
|
||||
800 GOSUB 2000
|
||||
810 GO TO 480
|
||||
820 REM PRINT TIC-TAC-TOE BOARD ROW.....
|
||||
830 REM
|
||||
840 IF B<>0 THEN 910
|
||||
850 PRINT " * ";
|
||||
860 IF D<>0 THEN 940
|
||||
870 PRINT " * ";
|
||||
880 IF F<>0 THEN 970
|
||||
890 PRINT " "
|
||||
900 GO TO 1070
|
||||
910 IF B>0 THEN 1000
|
||||
920 PRINT "YOU * ";
|
||||
930 GO TO 860
|
||||
940 IF D>0 THEN 1020
|
||||
950 PRINT "YOU * ";
|
||||
960 GO TO 880
|
||||
970 IF F>0 THEN 1040
|
||||
980 PRINT "YOU"
|
||||
990 GO TO 900
|
||||
1000 PRINT"PDP * ";
|
||||
1010 GO TO 860
|
||||
1020 PRINT "PDP * ";
|
||||
1030 GO TO 880
|
||||
1040 PRINT "PDP"
|
||||
1050 GO TO900
|
||||
1060 REM PRINT LEGENDS..
|
||||
1070 PRINT " * * "
|
||||
1080 RETURN
|
||||
1090 REM PROGRAM TO MAKE MOVE FOR THE MACHINE....
|
||||
1100 LET M=INT(3.33*RND(M))
|
||||
1110 LET N=INT(3.33333*RND(N))
|
||||
1120 IF M=0 THEN 1100
|
||||
1130 IF M>3 THEN 1100
|
||||
1140 IF N=0 THEN 1110
|
||||
1150 IF N>3 THEN 1110
|
||||
1160 LET C(2)=M
|
||||
1170 LET D(2)=N
|
||||
1180 LET C(3)=N
|
||||
1190 LET D(3)=M
|
||||
1200 FOR I=1 TO 8
|
||||
1210 IF B(I)>1 THEN 1370
|
||||
1220 NEXT I
|
||||
1221 LET I=I-1
|
||||
1230 FOR I=1 TO 8
|
||||
1240 IF B(I)<-1 THEN 1370
|
||||
1250 NEXT I
|
||||
1251 LET I=I-1
|
||||
1260 IF R+C=0 THEN 1550
|
||||
1270 FOR K=1 TO 11
|
||||
1280 LET I=C(K)
|
||||
1290 LET J=D(K)
|
||||
1300 IF A(I,J)<>0 THEN 1330
|
||||
1310 LET A(I,J)=1
|
||||
1320 GO TO 1360
|
||||
1330 NEXT K
|
||||
1331 LET K=K-1
|
||||
1340 PRINT " ... TIE GAME ... "
|
||||
1350 LET Z=3
|
||||
1360 RETURN
|
||||
1370 IF I>3 THEN 1440
|
||||
1380 FOR J=1 TO 3
|
||||
1390 IF A(I,J)=0 THEN 1420
|
||||
1400 NEXT J
|
||||
1401 LET J=J-1
|
||||
1410 GO TO 1360
|
||||
1420 LET A(I,J)=1
|
||||
1430 GO TO 1360
|
||||
1440 IF I>6 THEN 1510
|
||||
1450 FOR J=1 TO 3
|
||||
1460 IF A(J,I-3)=0 THEN 1490
|
||||
1470 NEXT J
|
||||
1471 LET J=J-1
|
||||
1480 GO TO 1360
|
||||
1490 LET A(J,I-3)=1
|
||||
1500 GO TO 1360
|
||||
1510 IF I>7 THEN 1550
|
||||
1520 FOR J=1 TO 3
|
||||
1530 IF A(J,J)=0 THEN 1590
|
||||
1540 NEXT J
|
||||
1541 LET J=J-1
|
||||
1550 IF A(1,3)=0 THEN 1610
|
||||
1560 IF A(3,1)=0 THEN 1630
|
||||
1570 LET A(2,2)=1
|
||||
1580 GO TO 1360
|
||||
1590 LET A(J,J)=1
|
||||
1600 GO TO 1360
|
||||
1610 LET A(1,3)=1
|
||||
1620 GO TO 1360
|
||||
1630 LET A(3,1)=1
|
||||
1640 GO TO 1360
|
||||
1650 REM PROGRAM TO TEST FOR GAME WINNER....
|
||||
1660 LET T1=0
|
||||
1670 FOR J=1 TO 9
|
||||
1680 LET B(J)=0
|
||||
1690 NEXT J
|
||||
1691 LET J=J-1
|
||||
1700 FOR J=1 TO 3
|
||||
1710 FOR I=1 TO 3
|
||||
1720 IF A(J,1)<>A(J,I) THEN 1750
|
||||
1730 NEXT I
|
||||
1731 LET I=I-1
|
||||
1740 LET T1=A(J,I)
|
||||
1750 NEXT J
|
||||
1751 LET J=J-1
|
||||
1760 FOR J=1 TO 3
|
||||
1770 FOR I=1 TO 3
|
||||
1780 IF A(1,J)<>A(I,J) THEN 1810
|
||||
1790 NEXT I
|
||||
1791 LET I=I-1
|
||||
1800 LET T1=A(I,J)
|
||||
1810 NEXT J
|
||||
1811 LET J=J-1
|
||||
1820 IF A(1,1)=A(3,3) THEN 1930
|
||||
1830 IF A(3,1)=A(1,3) THEN 1970
|
||||
1840 IF T1<>0 THEN 1990
|
||||
1850 FOR J=1 TO 3
|
||||
1860 FOR I=1 TO 3
|
||||
1870 LET B(J)=B(J)+A(J,I)
|
||||
1880 LET B(J+3)=B(J+3)+A(I,J)
|
||||
1890 NEXT I
|
||||
1891 LET I=I-1
|
||||
1900 NEXT J
|
||||
1901 LET J=J-1
|
||||
1910 LET B(7)=A(1,1)+A(2,2)+A(3,3)
|
||||
1920 RETURN
|
||||
1930 IF A(2,2)=A(3,3) THEN 1950
|
||||
1940 GO TO 1830
|
||||
1950 LET T1=A(2,2)
|
||||
1960 GO TO 1840
|
||||
1970 IF A(2,2)=A(1,3) THEN 1950
|
||||
1980 GO TO 1840
|
||||
1990 IF T1>0 THEN 2030
|
||||
2000 PRINT " ...YOU WIN THIS TIME..."
|
||||
2010 LET Z=1
|
||||
2020 GO TO 1850
|
||||
2030 PRINT " ... THE PDP-8 WINS THIS TIME ..."
|
||||
2034 LET Z=2
|
||||
2035 GO TO 1850
|
||||
2036 REM END OF TEST WINNER PROGRAM.......
|
||||
2037 PRINT "DO YOU WANT TO PLAY ANOTHER GAME: YES(1), NO(0)";
|
||||
2038 INPUT X1
|
||||
2039 IF X1 = 1 THEN 250
|
||||
2040 IF X1 = 0 THEN 2043
|
||||
2041 PRINT "I SAID ONE OR ZERO: TRY AGAIN";
|
||||
2042 GO TO 2038
|
||||
2043 PRINT"IT'S BEEN FUN, COME AGAIN SOMETIME"
|
||||
2044 CHAIN "DEMON "
|
||||
2045 DATA 2,2,0,0,0,0,1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1
|
||||
2046 END
|
||||
142
port/WEKDAY.BAS
Normal file
142
port/WEKDAY.BAS
Normal file
|
|
@ -0,0 +1,142 @@
|
|||
10 PRINT""
|
||||
120PRINT
|
||||
124 LET Y1 = 1970
|
||||
130 PRINT" ENTER TODAY'S DATE IN THIS FORM: MONTH,DAY, YEAR";
|
||||
140 INPUT M1,D1,Y1
|
||||
150 IF Y1>100 THEN 170
|
||||
160 LET Y1 = Y1 + 1900
|
||||
170 DEF FNA(A)=INT(A/4)
|
||||
180 DIM T(12)
|
||||
190 DEF FNB(A)=INT(A/7)
|
||||
210 FOR I= 1 TO 12
|
||||
220 READ T(I)
|
||||
230 NEXT I
|
||||
240 PRINT
|
||||
241PRINT"THIS PROGRAM DEMONSTRATES PDP-11 BASIC AND ALSO GIVES "
|
||||
242PRINT"FACTS ABOUT A DATE OF INTEREST TO YOU"
|
||||
244 PRINT
|
||||
245 PRINT"ENTER DATE OF BIRTH IN THIS FORM: MO,DAY,YEAR";
|
||||
250 INPUT M,D,Y
|
||||
260 PRINT
|
||||
270 IF Y - 75 >0 THEN 280
|
||||
275 LET Y = Y+1900
|
||||
280 LET I1 = INT((Y-1500)/100)
|
||||
290 IF Y-1582<0 THEN 1300
|
||||
300 LET A = I1*5+(I1+3)/4
|
||||
310LET I2 = INT(A-FNB(A)*7)
|
||||
320 LET Y2= INT(Y/100)
|
||||
330 LET Y3 = INT(Y-Y2*100)
|
||||
340 LET A = Y3/4+Y3+D+T(M)+I2
|
||||
350 LET B = INT(A-FNB(A)*7)+1
|
||||
360 IF M>2 THEN 470
|
||||
370 IF Y3= 0 THEN 440
|
||||
380 LET T1 = INT(Y-FNA(Y)*4)
|
||||
390 IF T1<> 0 THEN 470
|
||||
400 IF B<>0 THEN 420
|
||||
410 LET B = 6
|
||||
420 LET B = B-1
|
||||
430 GOTO 470
|
||||
440 LET A = I1-1
|
||||
450 LET T1 = INT(A-FNA(A)*4)
|
||||
460 IF T1 = 0 THEN 400
|
||||
470 IF B <> 0 THEN 490
|
||||
480 LET B = 7
|
||||
490 IF (Y1*12+M1)*31+D1<(Y*12+M)*31+D THEN 550
|
||||
500 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 530
|
||||
510 PRINT M;"/";D;"/";Y;" WAS A ";
|
||||
520 GOTO 570
|
||||
530 PRINT M;"/";D;"/";Y;" IS A ";
|
||||
540 GOTO 570
|
||||
550 PRINT M;"/";D;"/";Y;" WILL BE A ";
|
||||
570 IF B<>1 THEN 590
|
||||
580 PRINT "SUNDAY"
|
||||
590 IF B<>2 THEN 610
|
||||
600 PRINT "MONDAY"
|
||||
610 IF B<>3 THEN630
|
||||
620 PRINT "TUESDAY"
|
||||
630 IF B<>4 THEN 650
|
||||
640 PRINT "WEDNESDAY"
|
||||
650 IF B<>5 THEN 670
|
||||
660 PRINT "THURSDAY"
|
||||
670 IF B<>6 THEN 690
|
||||
680 GOTO 1250
|
||||
690 IF B<>7 THEN 710
|
||||
700 PRINT "SATURDAY"
|
||||
710 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 1120
|
||||
720 LET I5=Y1-Y
|
||||
730 PRINT
|
||||
740 LET I6=M1-M
|
||||
750 LET I7=D1-D
|
||||
760 IF I7>=0 THEN 790
|
||||
770 LET I6=I6-1
|
||||
780 LET I7=I7+30
|
||||
790 IF I6>=0 THEN 820
|
||||
800 LET I5=I5-1
|
||||
810 LET I6=I6+12
|
||||
820 IF I5<0 THEN 1310
|
||||
830 IF I7<>0 THEN 850
|
||||
835 IF I6<>0 THEN 850
|
||||
840 PRINT "****HAPPY BIRTHDAY*****"
|
||||
850 PRINT " "," ","YEARS","MONTHS","DAYS"
|
||||
860 PRINT "YOUR AGE ",I5,I6,I7
|
||||
870 LET A8= (I5*365)+(I6*30)+I7+INT(I6/2)
|
||||
880 LET K5=I5
|
||||
890 LET K6=I6
|
||||
900 LET K7=I7
|
||||
920 LET E=Y+65
|
||||
940 LET F=.35
|
||||
950 PRINT "YOU HAVE SLEPT ",
|
||||
960 GOSUB 1370
|
||||
970 LET F=.17
|
||||
980 PRINT "YOU HAVE EATEN ",
|
||||
990 GOSUB 1370
|
||||
1000 LET F=.23
|
||||
1010 IF K5 > 3 THEN 1040
|
||||
1020 PRINT"YOU HAVE PLAYED ",
|
||||
1030 GOTO 1080
|
||||
1040 IF K5 > 9 THEN 1070
|
||||
1050 PRINT "YOU HAVE PLAYED/STUDIED",
|
||||
1060 GOTO 1080
|
||||
1070 PRINT "YOU HAVE WORKED/STUDIED",
|
||||
1080 GOSUB 1370
|
||||
1090 PRINT "YOU HAVE RELAXED ",K5,K6,K7
|
||||
1100 PRINT
|
||||
1110 PRINT " ","**YOU MAY RETIRE IN";E;"**"
|
||||
1120 PRINT
|
||||
1130 PRINT" CALCULATED BY THE BEST MINICOMPUTER TODAY - THE PDP-11"
|
||||
1140 FOR Q=1 TO 2
|
||||
1150 PRINT
|
||||
1160 NEXT Q
|
||||
1170 PRINT
|
||||
1240 GOTO 240
|
||||
1250 IF D=13 THEN 1280
|
||||
1260 PRINT "FRIDAY "
|
||||
1270 GOTO 710
|
||||
1280 PRINT "FRIDAY THE THIRTEENTH---BEWARE!"
|
||||
1290 GOTO 710
|
||||
1300 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXPXII -"
|
||||
1305 PRINT " THE CURRENT CALENDAR DID NOT EXIST BEFORE THAT YEAR."
|
||||
1310 GOTO 1140
|
||||
1330 DATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5
|
||||
1370 LET K1= INT(F*A8)
|
||||
1380 LET I5 = INT(K1/365)
|
||||
1390 LET K1 = K1-(I5*365)
|
||||
1400 LET I6 = INT(K1/30)
|
||||
1410 LET I7 = K1-(I6*30)
|
||||
1420 LET K5 = K5-I5
|
||||
1430 LET K6 = K6-I6
|
||||
1440 LET K7 = K7-I7
|
||||
1450 IF K7 >= 0 THEN 1480
|
||||
1460 LET K7 = K7+30
|
||||
1470 LET K6 = K6-1
|
||||
1480 IF K6 > 0 THEN 1510
|
||||
1490 LET K6 = K6+12
|
||||
1500 LET K5 = K5-1
|
||||
1510 PRINT I5,I6,I7
|
||||
1520 RETURN
|
||||
1530 IF K6 = 12 THEN 1550
|
||||
1540 GOTO 1090
|
||||
1550 LET K5 = K5+1
|
||||
1560 LET K6=0
|
||||
1570 GOTO 1090
|
||||
1580 END
|
||||
Loading…
Reference in New Issue
Block a user