Initial commit (a clone of the jsmachines project as of v1.15.3)
This commit is contained in:
jeffpar
commit
a5e3e6a59d
714 changed files with 130602 additions and 0 deletions
1
apps/c1p/BASIC/OSI/POKER-CR.BAS
Normal file
1
apps/c1p/BASIC/OSI/POKER-CR.BAS
Normal file
File diff suppressed because one or more lines are too long
241
apps/c1p/BASIC/OSI/POKER.BAS
Normal file
241
apps/c1p/BASIC/OSI/POKER.BAS
Normal file
|
|
@ -0,0 +1,241 @@
|
|||
1 REM*** PAUL A. JOVIAK ***
|
||||
2 REM***** POKER ********
|
||||
3 REM * 8K IP PROGRAM *
|
||||
4 TT=200
|
||||
5 POKE530,1
|
||||
10 A1=2:A2=0:A3=0
|
||||
12 PRINT:PRINT
|
||||
13 PRINT"INSTRUCTIONS:":GOSUB9000
|
||||
20 POKE54068,A1+48:POKE54069,A2+48:POKE54070,A3+48
|
||||
22 G=54053:L$="YOU NOW HAVE $":GOSUB8000
|
||||
23 PRINT"READY ?":F=0:F1=0
|
||||
24 POKE57088,239:F=PEEK(57088):POKE57088,251
|
||||
25 F1=PEEK(57088):IFF=0ANDF1=0THEN24
|
||||
26 IFF1=247ANDTT=200ANDA1=2ANDA2=0ANDA3=0THEN12
|
||||
27 IFF1=247THEN950
|
||||
28 IFF=247THEN30
|
||||
29 GOTO24
|
||||
30 CLEAR
|
||||
35 A1=PEEK(54036)-48:A2=PEEK(54037)-48:A3=PEEK(54038)-48
|
||||
36 TT=A1*100+A2*10+A3
|
||||
37 RS=RND(RND(TT))
|
||||
38 FORI=1TO32:PRINT:NEXT
|
||||
40 P$=" "
|
||||
42 SP=1:SD=1
|
||||
45 DIMM(13)
|
||||
50 DIMC(4,13):DIMS(4):DIMN(13)
|
||||
55 DIMV(2,5):DIMP(2,5):DIMD(2,5)
|
||||
60 FORI=1TO4:FORJ=1TO13:C(I,J)=0:NEXTJ,I
|
||||
70 FORI=2TO9:N(I)=48+I:NEXT:N(10)=84:N(1)=65:N(11)=74:N(12)=81
|
||||
75 N(13)=75
|
||||
80 FORI=1TO4:S(I)=228+I:NEXT
|
||||
90 FORI=1TO5:V(1,I)=64:V(2,I)=32:NEXTI
|
||||
140 FORK=1TO2:FORX=1TO5
|
||||
150 GOSUB1000
|
||||
160 IFK=2THEN180
|
||||
170 P(1,X)=N(N):P(2,X)=S(S):R(X)=N:GOTO190
|
||||
180 D(1,X)=N(N):D(2,X)=S(S)
|
||||
185 W(X)=N:B(X)=N
|
||||
190 NEXTX,K
|
||||
200 FORI=0TO20STEP5:FORJ=0TO2
|
||||
210 POKE53573+I+J,144:POKE53765+I+J,145
|
||||
220 POKE54021+I+J,145:POKE53829+I+J,144
|
||||
230 NEXTJ,I
|
||||
240 FORI=0TO256STEP256:FORJ=0TO128STEP32
|
||||
250 FORX=4TO24STEP5:POKE53604+I+J+X,146:NEXTX
|
||||
260 FORX=0TO20STEP5:POKE53604+I+J+X,147:NEXT
|
||||
270 NEXTJ,I
|
||||
280 GOSUB2000
|
||||
290 L$="HOW MANY CARDS DO":G=53477:GOSUB8000
|
||||
292 L$="YOU WISH ?":G=53541:GOSUB8000:G=53477
|
||||
300 POKE57088,127:F=PEEK(57088):R=0
|
||||
310 IFF=127THENR=1
|
||||
320 IFF=191THENR=2
|
||||
330 IFF=223THENR=3
|
||||
340 IFF=255THEN300
|
||||
350 IFR=0THEN410
|
||||
355 L$=P$:GOSUB8000
|
||||
357 G=53541:GOSUB8000:G=53477
|
||||
360 FORH=1TOR:L$="CARD":POKE53483,H+48
|
||||
363 QC=127
|
||||
365 GOSUB8000:Q=128:FORJ=1TO5:F=0
|
||||
370 POKE57088,127:F=PEEK(57088):IFF=255THEN370
|
||||
390 IFF=QCTHENGOSUB1000:P(1,J)=N(N):P(2,J)=S(S):R(J)=N
|
||||
400 Q=Q-Q/2:QC=QC+Q:NEXTJ:L$=P$:GOSUB8000:NEXTH
|
||||
410 L$=P$:GOSUB8000:G=53541:GOSUB8000:G=53477
|
||||
413 GOSUB2000:GOSUB5000
|
||||
415 GOSUB6900:GOSUB5000
|
||||
420 HD=HC:DW=W:DY=Y:DR=PR:DT=TR:DF=FR:T1=E1:T2=E2
|
||||
425 L$=P$:GOSUB8000
|
||||
430 GOSUB3000
|
||||
440 L$=P$:G=53541:GOSUB8000:G=53477
|
||||
450 GOSUB8000
|
||||
600 FORI=1TO5:W(I)=R(I):FORJ=1TO2:D(J,I)=P(J,I):NEXTJ,I
|
||||
610 GOSUB5010
|
||||
620 L$=P$:GOSUB8000
|
||||
890 GOSUB4000
|
||||
895 IFL$="I FOLD"THEN920
|
||||
900 GOSUB2000
|
||||
920 IFL$="I WIN"ORL$=P$THENTW=SP:Z$="YOU LOST $"
|
||||
930 IFL$="YOU WIN"ORL$="I FOLD"THENTW=SD:Z$="YOU WON $"
|
||||
940 PRINTZ$;TW
|
||||
941 IFL$="I WIN"ORL$=P$THENTW=-TW
|
||||
943 TT=TT+TW
|
||||
945 A1=INT(TT/100):A2=INT((TT-A1*100)/10):A3=INT(TT-A1*100-A2*10)
|
||||
948 IFTT>=500ORTT=<0THEN950
|
||||
949 GOTO20
|
||||
950 PRINT:IFTT>200THENPW=TT-200:PRINT"CONGRATULATIONS ,YOU WON $";PW
|
||||
953 PRINT:IFTT<200THENPW=200-TT:PRINT"SORRY ,YOU LOST $";PW
|
||||
955 PRINT:IFTT=200THENPRINT"YOU BROKE EVEN"
|
||||
957 PRINT"THE CASHIER IS UP FRONT":PRINT:TT=200
|
||||
959 INPUT"PLAY AGAIN";A$
|
||||
960 IFLEFT$(A$,1)="Y"THEN5
|
||||
995 GOTO49999
|
||||
1000 S=INT(4*RND(RS)+1):N=INT(13*RND(RS)+1)
|
||||
1010 IFC(S,N)=1THEN1000
|
||||
1020 IFC(S,N)=0THENC(S,N)=1
|
||||
1030 RETURN
|
||||
2000 K=0:FORX=0TO20STEP5:K=K+1
|
||||
2010 POKE53670+X,P(1,K):POKE53605+X,P(2,K):POKE53735+X,P(2,K)
|
||||
2020 POKE53926+X,V(1,K):POKE53861+X,V(2,K):POKE53991+X,V(2,K)
|
||||
2030 NEXTX:RETURN
|
||||
3000 L$="WHAT IS YOUR BET":GOSUB8000
|
||||
3020 L$="IN DOLLARS ($7 MAX.)?":G=53541:GOSUB8000
|
||||
3030 G=53477
|
||||
3031 GOTO3035
|
||||
3033 L$="RAISE ME BY HOW MUCH ? ":GOSUB8000
|
||||
3034 SP=SD
|
||||
3035 F=0:F1=0
|
||||
3040 POKE57088,127:F=PEEK(57088):POKE57088,191:F1=PEEK(57088)
|
||||
3045 IFF=255ANDF1=255THEN3040
|
||||
3046 IFF1<>255THEN3990
|
||||
3050 Q=127:QC=128:FORI=1TO7:IFF=QTHENQ1=I
|
||||
3055 QC=QC-QC/2:Q=Q+QC
|
||||
3060 NEXT:L$=P$:GOSUB8000:SP=SP+Q1
|
||||
3062 G=53541:GOSUB8000:G=53477
|
||||
3065 IFW=0THEN3990
|
||||
3070 L$="I CALL YOUR $":GOSUB8000:G=53492:L$=CHR$(Q1+48):GOSUB8000
|
||||
3072 G=53477
|
||||
3075 FORI=1TO2000:NEXT:L$=P$:GOSUB8000
|
||||
3080 G=53477:U=INT(7*RND(F))
|
||||
3082 IFSD>10ANDW<3THENU=0
|
||||
3083 IFSD>20ANDW<6THENU=0
|
||||
3084 SD=SD+Q1+U
|
||||
3085 IFU=0THEN3990
|
||||
3090 L$="I RAISE YOU $":GOSUB8000:G=53492:L$=CHR$(U+48):GOSUB8000
|
||||
3095 FORI=1TO1500:NEXT
|
||||
3097 L$=P$:G=53477:GOSUB8000
|
||||
3100 G=53477:L$="CALL ,FOLD":GOSUB8000
|
||||
3103 L$="OR INCREASE BET":G=53541:GOSUB8000:G=53477
|
||||
3105 F=0:F1=0:F2=0
|
||||
3110 POKE57088,251:F1=PEEK(57088):POKE57088,247:F=PEEK(57088)
|
||||
3115 POKE57088,239:F2=PEEK(57088)
|
||||
3120 IFF=255ANDF1=255ANDF2=255THEN3110
|
||||
3125 L$=P$:GOSUB8000
|
||||
3126 G=53541:GOSUB8000:G=53477
|
||||
3130 IFF=223THENL$="I WIN":GOSUB8000:GOTO920
|
||||
3140 IFF2=253THEN3033
|
||||
3150 SP=SD
|
||||
3990 RETURN
|
||||
4000 IFW=1THENKO=1
|
||||
4010 IFW=2THENKO=2
|
||||
4020 IFW=3THENKO=3
|
||||
4030 IFW=4THENKO=6.5
|
||||
4040 IFY=5THENKO=5
|
||||
4050 IFW=7THENKO=6
|
||||
4060 IFW=6THENKO=7
|
||||
4070 IFY=5ANDW=7THENKO=8
|
||||
4080 IFDW=1THENKD=1
|
||||
4090 IFDW=2THENKD=2
|
||||
4100 IFDW=3THENKD=3
|
||||
4110 IFDW=4THENKD=6.5
|
||||
4120 IFDY=5THENKD=5
|
||||
4130 IFDW=7THENKD=6
|
||||
4240 IFDW=6THENKD=7
|
||||
4250 IFDY=5ANDDW=7THENKD=8
|
||||
4300 IFKO>KDTHENL$="YOU WIN"
|
||||
4310 IFKD>KOTHENL$="I WIN"
|
||||
4320 IFKD=0THENL$="I FOLD"
|
||||
4330 IFKD=0THEN4890
|
||||
4400 IFKD<>KOTHEN4890
|
||||
4410 IFKO=2ORKD=2THEN4460
|
||||
4420 IFE1>T1ORDT<TRORFR>DFTHENZ=1
|
||||
4425 IFT1>E1ORDT>TRORDF>FRTHENZ=0
|
||||
4430 IFE1=1ORTR=1ORFR=1ANDT1<>1ANDDT<>1ANDDF<>1THENZ=1
|
||||
4435 IFT1=1ORDT=1ORDF=1ANDE1<>1ANDTR<>1ANDFR<>1THENZ=0
|
||||
4440 IFT1<>E1ORDT<>TRORDF<>FRTHEN4460
|
||||
4450 IFHC>HDTHENZ=1
|
||||
4455 IFHD>HCTHENZ=0
|
||||
4456 IFHC=1THENZ=1
|
||||
4457 IFHD=1THENZ=0
|
||||
4460 IFE2=0THEN4530
|
||||
4465 IFE2>T1ANDE2>T2THENZ=1
|
||||
4470 IFE1>T1ANDE1>T2THENZ=1
|
||||
4475 IFE1=T1ANDE2>T2THENZ=1
|
||||
4480 IFE2=T1ANDE1>T2THENZ=1
|
||||
4485 IFE1=T2ANDE2>T1THENZ=1
|
||||
4490 IFE2=T2ANDE1>T1THENZ=1
|
||||
4500 IFE1=1ORE2=1ANDT1<>1ANDT2<>1THENZ=1
|
||||
4510 IFT1=1ORT2=1ANDE1<>1ANDE2<>1THENZ=0
|
||||
4515 IFT2<>E1ANDT1<>E1THEN4530
|
||||
4516 IFT2<>E2ANDT1<>E2THEN4530
|
||||
4520 IFHC>HDTHENZ=1
|
||||
4525 IFHD>HCTHENZ=0
|
||||
4530 IFKO<>5ORKO<>6ORKO<>7ORKO<>8THEN4880
|
||||
4540 IFHC>HDTHENZ=1
|
||||
4550 IFHD>HCTHENZ=0
|
||||
4880 IFZ=1THENL$="YOU WIN"
|
||||
4885 IFZ=0THENL$="I WIN"
|
||||
4890 GOSUB8000
|
||||
4900 RETURN
|
||||
5000 FORI=1TO2:FORJ=1TO5:V(I,J)=D(I,J):NEXTJ,I
|
||||
5005 L$="THE ANTE IS $1.00":GOSUB8000
|
||||
5010 W=0:FORI=1TO4:FORJ=I+1TO5
|
||||
5020 IFD(1,I)=D(1,J)THENW=W+1
|
||||
5030 NEXTJ,I
|
||||
5040 A=0:FORI=1TO4
|
||||
5050 IFD(2,I)=D(2,I+1)THENA=A+1
|
||||
5060 NEXTI:IFA=4THENW=7
|
||||
5080 FORK=1TO5:FORI=1TO4:FORJ=I+1TO5:IFW(I)<W(I+1)THEN5110
|
||||
5100 W(6)=W(I):W(I)=W(I+1):W(I+1)=W(6)
|
||||
5110 NEXTJ,I,K:Y=0
|
||||
5120 A=0:FORI=1TO4:IFW(I)+1=W(I+1)THENA=A+1
|
||||
5130 NEXTI:IFA=4THENY=5
|
||||
5140 IFW(1)=1ANDW(2)=10ANDW(3)=11ANDW(4)=12ANDW(5)=13THENY=5
|
||||
5150 HC=W(5):IFW(1)=1THENHC=1
|
||||
5155 FORI=1TO13:M(I)=0:NEXT:PR=0:TR=0:FR=0
|
||||
5156 E1=0:E2=0
|
||||
5160 FORI=1TO5:FORJ=1TO13:IFW(I)=JTHENM(J)=M(J)+1
|
||||
5170 NEXTJ,I:FORI=1TO13:IFM(I)=2THENPR=PR+1
|
||||
5175 IFM(I)=2ANDPR=1THENE1=I
|
||||
5176 IFM(I)=2ANDPR=2THENE2=I
|
||||
5180 IFM(I)=3THENTR=I
|
||||
5190 IFM(I)=4THENFR=I
|
||||
5200 NEXTI
|
||||
5500 IFW=1ANDW(5)=E1THENHC=W(4)
|
||||
5510 IFW=1ANDW(4)=E1THENHC=W(3)
|
||||
6000 RETURN
|
||||
6900 IFY=5ORW=7THENRETURN
|
||||
6950 G1=5:IFW=0THENG1=3
|
||||
7000 FORI=1TOG1
|
||||
7010 IFE1=B(I)ORE2=B(I)ORTR=B(I)ORFR=B(I)THEN7100
|
||||
7020 GOSUB1000:D(1,I)=N(N):D(2,I)=S(S):B(I)=N
|
||||
7100 NEXTI
|
||||
7120 FORI=1TO5:W(I)=B(I):NEXT
|
||||
7200 RETURN
|
||||
8000 FORI=1TOLEN(L$):POKEG+I,ASC(MID$(L$,I,1)):NEXT:RETURN
|
||||
9000 PRINT"WHEN THE CARDS APPEAR":PRINT"ON THE SCREEN,YOU"
|
||||
9005 PRINT"WILL BE ASKED 'HOW":PRINT"MANY CARDS DO YOU"
|
||||
9010 PRINT"WISH ?'. THE GAME IS":PRINT"3 CARD DRAW POKER AND"
|
||||
9020 PRINT"IF '4' IS PRESSED NO":PRINT"CARDS ARE DRAWN. IF"
|
||||
9025 PRINT"YOU DRAW 'CARD 1' WILL":PRINT"APPEAR. YOU WILL THEN"
|
||||
9030 PRINT"ANSWER A NUMBER BETWEEN":PRINT"1 AND 5 INDICATING"
|
||||
9035 PRINT"THE CARD YOU WISH TO":PRINT"REPLACE. ANTE IS"
|
||||
9040 PRINT"ALWAYS $1.00. BETS AND":PRINT"RAISES CAN BE NO MORE"
|
||||
9050 PRINT"THAN $7.00 AT A TIME."
|
||||
9060 PRINT"YOU ARE PLAYING TO":PRINT"$500 OR NOTHING."
|
||||
9070 PRINT"GOOD LUCK !!"
|
||||
9080 PRINT
|
||||
9090 PRINT
|
||||
9900 RETURN
|
||||
49999 END
|
||||
119
apps/c1p/BASIC/OSI/SAMPLE1.BAS
Normal file
119
apps/c1p/BASIC/OSI/SAMPLE1.BAS
Normal file
|
|
@ -0,0 +1,119 @@
|
|||
1 REM ***ROBERT L.
|
||||
2 REM ***COPPEDGE
|
||||
5 FOR SC=1TO32:PRINT:NEXT
|
||||
10 PRINT"MATH TUTOR":PRINT:PRINT
|
||||
15 PRINT"THIS TUTOR IS DESIGNED"
|
||||
18 PRINT"TO BE AN AID IN BASIC"
|
||||
20 PRINT"MATHEMATICS."
|
||||
21 PRINT
|
||||
25 PRINT"YOU HAVE THE FOLLOWINT":PRINT"SUBJECTS TO CHOOSE FROM"
|
||||
28 PRINT
|
||||
30 PRINT"1) AFDITION":PRINT:PRINT"2) SUBTRACTION":PRINT
|
||||
35 PRINT"3)MULTIPLICATION":PRINT:PRINT"4) DIVISION"
|
||||
38 PRINT
|
||||
40 INPUT "WHICH WOULD YOU LIKE TO DO";X
|
||||
44 PRINT
|
||||
45 IF X>4 OR X<1 THEN 40
|
||||
50 INPUT "ENTER RANDOM SEED(ANY NUMBER)";Z1
|
||||
55 FOR SC=1TO32:PRINT:NEXT
|
||||
60 ON X GOTO 100,200,300,400
|
||||
100 PRINT"THIS IS ADDITION":FOR Z=1 TO 100
|
||||
105 W=INT(1000*RND(Z1)+1):V=INT(1000*RND(Z1)+1)
|
||||
110 Y=W+V
|
||||
111 S=0
|
||||
115 PRINT:PRINT"WHAT IS:"
|
||||
120 PRINTW;"+";V:INPUT U
|
||||
125 IF U=Y THEN 140
|
||||
126 S=1
|
||||
130 PRINT:PRINT"NO, I'M SORRY"
|
||||
135 INPUT "AGAIN";A$:IF A$="YES" OR A$="Y" THEN 115
|
||||
137 PRINT:PRINT"THE ANSWER IS";Y
|
||||
138 GOTO 160
|
||||
140 PRINT:PRINT"VERY GOOD!! PERFECT!!"
|
||||
145 IF S=0 THEN R(X)=R(X)+1
|
||||
160 PRINT:INPUT"DO YOU WANT ANOTHER ONE";A$
|
||||
165 IF A$="YES" OR A$="Y" THEN 180
|
||||
170 PRINT"YOU GOT ";R(X);" OUT OF ";Z
|
||||
175 GOTO 500
|
||||
180 PRINT:PRINT:PRINT:NEXT Z
|
||||
185 GOTO 170
|
||||
200 PRINT"THIS IS SUBTRACTION":FOR Z=1 TO 100
|
||||
205 W=INT(1000*RND(Z1)+1):V=INT(1000*RND(Z1)+1)
|
||||
210 Y=W-V
|
||||
211 S=0
|
||||
215 PRINT:PRINT"WHAT IS:":PRINT
|
||||
220 PRINTW;"-";V:INPUT U
|
||||
225 IF U=Y THEN 240
|
||||
226 S=1
|
||||
230 PRINT:PRINT"NO, I'M AFRAID THAT'S":PRINT"NOT IT.":PRINT
|
||||
233 PRINT"DO YOU WANT TO"
|
||||
235 INPUT"TRY AGAIN";A$:IFA$="Y" OR A$="YES" THEN 215
|
||||
236 PRINT
|
||||
237 PRINT"THE ANSWER IS ";Y
|
||||
238 PRINT:GOTO260
|
||||
240 PRINT:PRINT"BRAVO!! GOOD JOB!!"
|
||||
245 IF S=0 THEN R(X)=R(X)+1
|
||||
250 PRINT
|
||||
260 INPUT "DO YOU WANT ANOTHER ONE";A$
|
||||
265 IF A$="YES" OR A$="Y" THEN 280
|
||||
270 PRINT"YOU GOT ";R(X);" OUT OF ";Z
|
||||
275 GOTO 500
|
||||
280 PRINT:PRINT:PRINT:NEXT Z
|
||||
285 GOTO 270
|
||||
300 PRINT"THIS IS MULTIPLICATION":FOR Z=1 TO 100
|
||||
305 W=INT(20*RND(Z1)+1):V=INT(20*RND(Z1)+1)
|
||||
310 Y=W*V
|
||||
311 S=0
|
||||
315 PRINT"WHAT IS:"
|
||||
318 PRINT
|
||||
320 PRINTW;"*";V:INPUT U
|
||||
325 IF Y=U THEN 340
|
||||
326 S=1
|
||||
328 PRINT
|
||||
330 PRINT:PRINT"SORRY, BUT THAT'S NOT":PRINT"CORRECT. ":PRINT
|
||||
333 PRINT"DO YOU WANT TO TRY"
|
||||
335 INPUT "AGAIN";A$:IF A$="Y" OR A$="YES" THEN 315
|
||||
337 PRINT:PRINT"THE ANSWER IS";Y
|
||||
338 GOTO 360
|
||||
340 PRINT:PRINT"YOU GOT IT!!"
|
||||
344 PRINT
|
||||
345 IF S=0 THEN R(X)=R(X)+1
|
||||
360 PRINT:INPUT"DO YOU WANT ANOTHER ONE";A$
|
||||
365 IF A$="Y" OR A$="YES" THEN 380
|
||||
366 PRINT
|
||||
370 PRINT"YOU GOT ";R(X);" OUT OF ";Z
|
||||
375 GOTO 500
|
||||
380 PRINT:PRINT:PRINT:NEXT Z
|
||||
385 GOTO 370
|
||||
400 PRINT"THIS IS DIVISION":FOR Z=1 TO 100
|
||||
405 W=INT(150*RND(Z1)+1):V=INT(75*RND(Z1)+1)
|
||||
410 Y=W/V:IF Y=INT(Y) THEN 414
|
||||
411 GOTO 405
|
||||
414 S=0
|
||||
415 PRINT:PRINT"WHAT IS:"
|
||||
420 PRINTW;"/";V:INPUT U
|
||||
425 IF Y=U THEN 440
|
||||
426 S=1
|
||||
428 PRINT
|
||||
430 PRINT"NOT QUITE RIGHT. DO YOU":PRINT"WANT ANOTHER CRACK "
|
||||
435 INPUT "AT IT";A$:IF A$="Y" OR A$="YES" THEN 415
|
||||
436 PRINT
|
||||
437 PRINT"THE ANSWER IS: ";Y
|
||||
438 PRINT:GOTO460
|
||||
439 PRINT
|
||||
440 PRINT:PRINT"PERFECT!!"
|
||||
444 PRINT
|
||||
445 IF S=0 THEN R(X)=R(X)+1
|
||||
450 PRINT
|
||||
460 INPUT "DO YOU WANT ANOTHER ONE";A$
|
||||
462 PRINT
|
||||
465 IF A$="Y" OR A$="YES" THEN 480
|
||||
470 PRINT"YOU GOT ";R(X);" OUT OF ";Z
|
||||
475 GOTO 500
|
||||
480 PRINT:PRINT:PRINT:NEXT Z
|
||||
482 PRINT
|
||||
485 GOTO 470
|
||||
500 PRINT:PRINT"WOULD YOU LIKE ANOTHER"
|
||||
505 INPUT"CATEGORY";A$
|
||||
510 IF A$="Y" OR A$="YES" THEN 30
|
||||
600 END
|
||||
124
apps/c1p/BASIC/OSI/SAMPLE2.BAS
Normal file
124
apps/c1p/BASIC/OSI/SAMPLE2.BAS
Normal file
|
|
@ -0,0 +1,124 @@
|
|||
1 REM ***ROBERT L.
|
||||
2 REM ***COPPEDGE
|
||||
3 FOR SC=1TO32:PRINT:NEXT
|
||||
4 DIM A$(20),Y(20),Q(20)
|
||||
5 PRINT"THIS PROGRAM FIGURES"
|
||||
6 PRINT"OUT YOUR CHECKING"
|
||||
7 PRINT"ACCOUNT. TO DO"
|
||||
8 PRINT"THIS, A NUMBER OF"
|
||||
9 PRINT"THINGS ARE NEEDED, SUCH"
|
||||
10 PRINT"AS THE NUMBER OF CHECKS"
|
||||
11 PRINT"TO BE USED, THE TOTAL"
|
||||
12 PRINT"AMOUNT TO START WITH,"
|
||||
13 PRINT"AND THE NAME OF THE "
|
||||
14 PRINT"RECIPIENT OF THE CHECK,":PRINT"AS WELL AS THE AMOUNT."
|
||||
15 PRINT:INPUT"TYPE 'C' TO CONTINUE";A$
|
||||
16 FOR SC=1TO32:PRINT:NEXT
|
||||
34 PRINT"IF YOU HAVE MADE A"
|
||||
35 PRINT"MISTAKE, AND YOU WOULD"
|
||||
36 PRINT"LIKE TO CORRECT IT,"
|
||||
37 PRINT"MERELY TYPE IN THE WORD"
|
||||
38 PRINT"'HELP' WHEN I ASK"
|
||||
39 PRIP"YOU FOR A CHECK'S NAME."
|
||||
45 HELP=-6
|
||||
46 PRINT
|
||||
50 PRINT:PRINT"PLEASE ENTER YOUR":PRINT"INITIAL BALANCE"
|
||||
54 INPUT T
|
||||
60 IF T=-6 THEN 160
|
||||
62 PRINT
|
||||
65 PRINT"HOW MANY CHECKS DO YOU"
|
||||
66 PRINT"WANT TO BE TOTALLED";:INPUT X
|
||||
67 IF X=0 THEN 160
|
||||
70 IF X=-6 THEN GOTO 160
|
||||
71 FOR SC=1TO32:PRINT:NEXT
|
||||
75 PRINT"ENTER THE NAME OF THE ":PRINT"PERSON OR PERSONS TO"
|
||||
76 PRINT"WHOM THE CHECKS WERE ":PRINT"WRITTEN."
|
||||
77 PRINT
|
||||
78 PRINT"IT'S A GOOD IDEA TO ":PRINT"LIST THEM IN ORDER."
|
||||
80 PRINT
|
||||
90 PRINT"IF IT IS A DEPOSIT, ":PRINT"TYPE 'XDEPOSIT' AND"
|
||||
91 PRINT"THEN THE AMOUNT.":PRINT
|
||||
94 IF X=0 THEN 160
|
||||
95 FOR Z=1 TO X
|
||||
100 PRINT:PRINT"CHECK NUMBER";Z:PRINT
|
||||
101 PRINT"MADE OUT TO:"
|
||||
105 INPUT A$(Z)
|
||||
110 IF A$(Z)="HELP" THEN 160
|
||||
114 PRINT
|
||||
115 PRINT"AMOUNT";:INPUT Y(Z)
|
||||
120 IF Y(Z)=-6 THEN 160
|
||||
124 IF A$(Z)="XDEPOSIT" THEN Y(Z)=-Y(Z)
|
||||
125 NEXT Z
|
||||
128 L=T:PRINT:PRINT:PRINT
|
||||
129 PRINT"ORIGINAL AMOUNT: ";:PRINTT
|
||||
130 PRINT:PRINT"#--MADE TO"
|
||||
131 PRINTTAB(9)"AMOUNT--BALANCE"
|
||||
133 PRINT:PRINT
|
||||
135 FOR Z=1 TO X
|
||||
140 PRINTZ;:PRINTA$(Z)
|
||||
146 LET Q(Z)=ABS(Y(Z))
|
||||
150 L=L-Y(Z)
|
||||
153 PRINTTAB(10)Q(Z);:PRINTTAB(20)L:PRINT
|
||||
155 NEXT Z
|
||||
156 FOR Z=1 TO 5000
|
||||
157 NEXT Z
|
||||
158 PRINT:PRINT:PRINT
|
||||
160 FOR SC=1TO32:PRINT:NEXT
|
||||
161 PRINT"IF THERE ARE MISTAKES":PRINT"THAT YOU WOULD LIKE"
|
||||
162 PRINT"TO CORRECT THEN TYPE IN"
|
||||
166 PRINT"ONE OF THE FOLLOWING":PRINT"NUMBERS:"
|
||||
170 PRINT:PRINT"1) IF THE TOTAL IS WRONG"
|
||||
175 PRINT:PRINT"2) IF A CHECK OR DEP-":PRINT" OSIT IS INCORRECT."
|
||||
180 PRINT:PRINT"3) IF EVERYTHING'S OK.":PRINT
|
||||
190 PRINT:PRINT
|
||||
195 INPUT"(1,2 OR 3)";R
|
||||
196 IF R<1 THEN 165
|
||||
197 IF R>3 THEN 165
|
||||
199 PRINT:PRINT:PRINT
|
||||
200 ON R GOTO 220,230,205,215
|
||||
205 PRINT"OK.":GOTO 400
|
||||
215 PRINT"TRY AGAIN":GOTO 175
|
||||
220 PRINT"ENTER IN NEW TOTAL";:INPUT T:GOTO 128
|
||||
230 PRINT"DO YOU HAVE MORE CHECKS"
|
||||
231 PRINT"OR DEPOSITS TO ADD"
|
||||
232 PRINT"(YES OR NO)";:INPUT N$
|
||||
234 PRINT:PRINT:PRINT
|
||||
235 IF N$="NO" THEN 250
|
||||
240 PRINT"HOW MANY MORE";:INPUT W
|
||||
245 X=X+W :GOTO 310
|
||||
250 PRINT"DO YOU WANT TO EITHER"
|
||||
251 PRINT"CHANGE OR ERASE ONE OF"
|
||||
252 PRINT"THE CHECKS OR DEPOSITS";
|
||||
255 INPUT N$:IF N$="YES" THEN 270
|
||||
256 PRINT:PRINT:PRINT
|
||||
260 GOTO 160
|
||||
270 PRINT:PRINT:PRINT"WHICH CHECK # DO YOU WANT"
|
||||
271 PRINT"TO CHANGE";:INPUT M
|
||||
274 PRINT:PRINT:PRINT
|
||||
275 PRINT"DO YOU WANT TO CHANGE OR"
|
||||
276 PRINT"ERASE IT (1=CHANGE, "
|
||||
277 PRINT"2=ERASE)";:INPUT K
|
||||
278 PRINT:PRINT:PRINT
|
||||
280 ON K GOTO 300,290,275
|
||||
290 A$(M)="DELETED"
|
||||
291 Y(M)=0
|
||||
295 GOTO 128
|
||||
300 PRINT"NEW CHECK NAME"
|
||||
301 INPUT A$(M)
|
||||
302 PRINT"NEW AMOUNT";:INPUT Y(M)
|
||||
303 PRINT:PRINT:PRINT
|
||||
305 PRINT"ANY MORE CHECKS TO BE"
|
||||
306 PRINT"REDONE(YES OR NO)";:INPUT B$
|
||||
307 IF B$="NO" THEN 130
|
||||
308 IF B$="YES" THEN 273
|
||||
309 GOTO 130
|
||||
310 FOR Z=X-(W-1) TO X
|
||||
315 PRINT"CHECK #":PRINTZ
|
||||
320 PRINT"MADE OUT TO:"
|
||||
325 INPUT A$(Z)
|
||||
326 IF A$(Z)="HELP" THEN 160
|
||||
330 PRINT"AMOUNT";:INPUT Y(Z)
|
||||
335 IF Y(Z)=-6 THEN 160
|
||||
340 NEXT Z
|
||||
345 GOTO 128
|
||||
400 END
|
||||
100
apps/c1p/BASIC/OSI/SAMPLE3.BAS
Normal file
100
apps/c1p/BASIC/OSI/SAMPLE3.BAS
Normal file
|
|
@ -0,0 +1,100 @@
|
|||
10 FORH=1TO35:PRINT:NEXT
|
||||
20 PRINT"TRIGNOMETRY DEALS":PRINT"PRIMARILY WITH SIX"
|
||||
22 PRINT"RATIOS CALLED":PRINT"TRIGNOMETRIC FUNCTIONS.":PRINT
|
||||
25 PRINT"THE FIRST OF THESE":PRINT"FUNCTIONS IS THE SINE.":PRINT
|
||||
30 PRINT"SINE IS USUALLY WRITTEN":PRINT"AS 'SIN' IN TRIGNOMETRY."
|
||||
32 FORH=1TO7:PRINT:NEXT:FORH=1TO13000:NEXT
|
||||
35 PRINT"THE SINE OF ANGLE 'A'":PRINT"IS THE OPPOSITE"
|
||||
36 PRINT"SIDE DIVIDED BY"
|
||||
37 PRINT"THE HYPOTENUSE."
|
||||
40 PRINT:PRINT"THE HYPOTENUSE IS THE"
|
||||
42 PRINT"THE LONGEST SIDE OF A":PRINT"RIGHT ANGLED TRIANGLE."
|
||||
44 PRINT:PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
||||
46 FORH=1TO10:PRINT:NEXT:GOSUB4000:GOSUB5000
|
||||
50 PRINT"THUS: SIN(A)=":PRINT"LENGHT OF SIDE 'y'"
|
||||
52 PRINT"DIVIDED BY 'r'.":PRINT:PRINT"OR SIN(A)=y/r.":PRINT
|
||||
54 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE"
|
||||
56 PRINT"VALUE OF SIN(A)?":PRINT:PRINT"SINCE SIN(A)=y/r OR"
|
||||
58 PRINT"SIN(A)=3/5=.6":PRINT:PRINT"HIT 'SPACE BAR' TO"
|
||||
60 PRINT"CONTINUE PROGRAM.":FORH=1TO9:PRINT:NEXT
|
||||
62 GOSUB4000:GOSUB5000:PRINT"THE NEXT TRIG. FUNCTION"
|
||||
90 PRINT"IS THE 'COS' OR COSINE.":PRINT
|
||||
92 PRINT"THE COS(A) EQUALS THE":PRINT"LENGTH OF THE ADJACENT"
|
||||
95 PRINT"SIDE DIVIDED BY THE":PRINT"LENGHT OF":PRINT"THE HYPOTENUSE."
|
||||
97 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM"
|
||||
99 FORH=1TO12:PRINT:NEXT:GOSUB4000:GOSUB5000
|
||||
102 PRINT"THUS THE 'COS' OF ANGLE":PRINT"A EQUALS x/r"
|
||||
105 PRINT"OR COS(A)=x/r.":PRINT:PRINT"IF x=4, y=3, AND r=5"
|
||||
108 PRINT"THEN WHAT IS THE COS(A)?":PRINT
|
||||
111 PRINT"SINCE COS(A)=x/r OR":PRINT"COS(A)=4/5=.8"
|
||||
114 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
||||
117 FORH=1TO11:PRINT:NEXT:GOSUB4000:GOSUB5000
|
||||
212 PRINT"THUS 'TAN' OF ANGLE A":PRINT"EQUALS THE LENGTH OF y"
|
||||
218 PRINT"DIVIDED BY THE LENGTH":PRINT"OF x. OR: TAN(A)=y/x."
|
||||
220 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
||||
222 FORH=1TO14:PRINT:NEXT:GOSUB4000:GOSUB5000
|
||||
240 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(A)?"
|
||||
245 PRINT:PRINT"SINCE TAN(A)=y/x THUS":PRINT"TAN(A)=3/4=.75"
|
||||
248 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
||||
250 FORH=1TO11:PRINT:NEXT:GOSUB4000:GOSUB5000
|
||||
270 PRINT"NOW LET'S HAVE A SHORT":PRINT"QUIZ TO TEST YOUR"
|
||||
275 PRINT"KNOWLEDGE OF THE SIN,":PRINT"COS, AND TAN."
|
||||
280 PRINT:PRINT"PLEASE GIVE":PRINT"DECIMAL ANSWERS!":PRINT:PRINT
|
||||
285 PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
||||
290 FORH=1TO6:PRINT:NEXT:GOSUB5000
|
||||
295 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE COS(A)?"
|
||||
300 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
||||
305 IFA1<>.8THENPRINT"WRONG":PRINT"x/r=4/5=.8"
|
||||
308 IFA1=.8THENPRINT"RIGHT!"
|
||||
310 GOSUB6000
|
||||
315 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE SIN(A)?"
|
||||
320 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
||||
325 IFA1<>.6THENPRINT"WRONG":PRINT"y/r=3/5=.6"
|
||||
330 IFA1=.6THENPRINT"RIGHT!"
|
||||
334 GOSUB6000
|
||||
350 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(A)?"
|
||||
355 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
||||
360 IFA1<>.75THENPRINT"WRONG":PRINT"y/x=3/4=.75"
|
||||
365 IFA1=.75THENPRINT"RIGHT!"
|
||||
370 GOSUB6000
|
||||
400 PRINT"THIS NEXT SECTION IS":PRINT"A LITTLE TOUGHER.":PRINT
|
||||
410 PRINT"THE QUESTIONS WILL":PRINT"ASK YOU ABOUT THE"
|
||||
415 PRINT"SIN, COS, AND TAN OF":PRINT"ANGLE B: NOT ANGLE A!"
|
||||
420 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
||||
425 FORH=1TO7:PRINT:NEXT:GOSUB5000
|
||||
430 FORH=1TO27:PRINT:NEXT:PRINT"REMEMBER:"
|
||||
435 PRINT"COS EQUALS ADJACENT SIDE":PRINT"DIVIDED BY HYPOTENUSE"
|
||||
440 PRINT:PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE COS(B)?"
|
||||
445 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
||||
450 IFA1<>.6THENPRINT"WRONG":PRINT"y/r=3/5=.6"
|
||||
455 IFA1=.6THENPRINT"RIGHT!"
|
||||
460 GOSUB6000
|
||||
490 PRINT"SIN EQUALS OPPOSITE SIDE":PRINT"DIVIDED BY HYPOTENUSE."
|
||||
500 PRINT:PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE SIN(B)?"
|
||||
510 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
||||
520 IFA1<>.8THENPRINT"WRONG":PRINT"x/r=4/5=.8"
|
||||
530 IFA1=.8THENPRINT"RIGHT!"
|
||||
535 GOSUB6000
|
||||
550 PRINT"TAN EQUALS OPPOSITE SIDE":PRINT"DIVIDED BY THE"
|
||||
555 PRINT"ADJACENT SIDE.":PRINT
|
||||
560 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(B)?"
|
||||
570 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1$
|
||||
575 IFLEFT$(A1$,3)="1.3"THENPRINT"RIGHT!"
|
||||
580 IFLEFT$(A1$,3)<>"1.3"THENPRINT"WRONG":PRINT"x/y=4/3=1.33"
|
||||
600 GOSUB6000:PRINT"THIS IS THE END":PRINT"OF THE PROGRAM."
|
||||
610 PRINT:PRINT"DO YOU WANT TO":INPUT"RUN IT AGAIN";A1$
|
||||
620 IF LEFT$(A1$,1)="Y"THEN10
|
||||
630 END
|
||||
4000 FORH=0TO16:POKE54060+H,135:NEXT
|
||||
4010 FORH=0TO7:POKE54127-32*H,143:NEXT
|
||||
4020 FORH=0TO9:POKE54032-H*31,189:NEXT
|
||||
4030 FORH=0TO9:POKE54042-H*32,136:NEXT
|
||||
4040 POKE54063,207:POKE54128,45:POKE54129,89
|
||||
4050 POKE54094,65:POKE54011,43:POKE54012,88
|
||||
4060 POKE54036,120:POKE53876,114:POKE53881,121
|
||||
4070 POKE53936,43:POKE53937,89:POKE54028,45:POKE54029,88
|
||||
4080 POKE53755,66:POKE54041,210:RETURN
|
||||
5000 POKE530,1:POKE57088,1
|
||||
5100 IFPEEK(57088)=239THENFORH=1TO28:PRINT:NEXT:RETURN
|
||||
5200 GOTO5000
|
||||
6000 FORH=1TO6000:NEXT:FORH=1TO26:PRINT:NEXT:RETURN
|
||||
116
apps/c1p/BASIC/OSI/SAMPLE4.BAS
Normal file
116
apps/c1p/BASIC/OSI/SAMPLE4.BAS
Normal file
|
|
@ -0,0 +1,116 @@
|
|||
1 REM***ROBERT L.
|
||||
2 REM***COPPED
|
||||
3 GOSUB20000:FORX=1TO8:READJ(X):NEXTX
|
||||
4 H=54000:T=32:U=32
|
||||
5 FORX=1TO8:READH(X):NEXT:DIMF(16)
|
||||
6 FORX=1TO6:READG(X):NEXT
|
||||
7 POKE530,1:KEY=57088:V=32:W=32
|
||||
8 DEFFND(X)=X-53349-32*INT((X-53349)/32)
|
||||
9 FORX=1TO8:READF(X):NEXT
|
||||
10 INPUT"ENTER RANDOM #";Z1
|
||||
11 FORX=1TO35:PRINT:NEXT:FORX=1TO100
|
||||
12 Y=INT(53349+RND(Z1)*1024)
|
||||
13 POKEY,46:NEXT:POKE54117,32
|
||||
14 EP=INT(53349+RND(Z1)*919)
|
||||
15 IFFND(EP)=<1ORFND(EP)>=24THEN14
|
||||
16 R=PEEK(EP)
|
||||
17 IFEP>54268OREP<53449THEN14
|
||||
50 M=INT(16*RND(Z1)+1)
|
||||
52 IFM>15.8THEN2000
|
||||
53 IFM>8THEN70
|
||||
55 IFFND(EP+F(M))=1ORFND(EP+F(M))=>24THEN50
|
||||
57 IFEP+F(M)<53449OREP+F(M)>54268THEN50
|
||||
58 EP=EP+F(M)
|
||||
60 S=PEEK(EP):POKEEP,4:POKEEP-F(M),R
|
||||
62 R=S
|
||||
63 IFR=40ORR=41THENR=32
|
||||
70 POKEKEY,64:P=PEEK(KEY):FORX=1TO6
|
||||
71 IFP=246THENX=5:GOTO1000
|
||||
72 IFP=G(X)THENGOTO1000
|
||||
73 IFX=ETHENGOTO1000
|
||||
74 NEXT
|
||||
80 GOTO50
|
||||
1000 IFX=<4THEN1010
|
||||
1005 ONX-4GOTO1050,1100
|
||||
1010 IFFND(H+F(X)-1)=0ORFND(H+F(X)+1)=>24THEN1400
|
||||
1015 IFH+F(X)>54268ORH+F(X)<53349THEN1400
|
||||
1020 H=H+F(X):I=H+1:J=H-1
|
||||
1030 T=PEEK(I):U=PEEK(J)
|
||||
1035 IFT=4THENT=32
|
||||
1036 IFU=4THENU=32
|
||||
1040 POKEI-F(X),V:POKEJ-F(X),W
|
||||
1045 POKEJ,40:POKEI,41
|
||||
1046 V=T:W=U
|
||||
1047 E=X:GOTO1400
|
||||
1050 E=0:X=6:GOTO74
|
||||
1100 FORX1=1TO150:POKEH,X1:NEXTX1:POKEH,32
|
||||
1101 IFH=EPTHEN1200
|
||||
1110 GOTO74
|
||||
1200 KI=KI+1:IFKI>7THEN3000
|
||||
1201 FORC1=1TO22:POKE54117+C1,ASC(MID$(A$,C1,1))
|
||||
1202 NEXTC1:FORC2=1TO300:NEXTC2
|
||||
1203 FORC1=1TO22:POKE54117+C1,32
|
||||
1204 NEXTC1
|
||||
1205 GOTO14
|
||||
1400 GOTO74
|
||||
2000 REM***ALIEN FIRE
|
||||
2001 REM***PHASE
|
||||
2010 D=INT(1+8*RND(Z1))
|
||||
2011 K=FND(EP)
|
||||
2015 FORB=1TO24:POKEEP+B*F(D),H(D)
|
||||
2017 IFK+B*J(D)=1ORK+B*J(D)>=23THEN2050
|
||||
2018 IFEP+B*F(D)<53349OREP+B*F(D)>54268THEN2050
|
||||
2020 NEXTB
|
||||
2050 FORC=1TOB:POKEEP+C*F(D),32:NEXT
|
||||
2060 IFD=2THEN2500
|
||||
2070 GOTO70
|
||||
2500 FORC1=1TO150
|
||||
2501 B6=INT(53349+RND(Z1)*919)
|
||||
2502 POKEB6,42:NEXTC1
|
||||
2503 PRINT"ENEMY HAS SHATTERED"
|
||||
2504 PRINT"TURRET SYSTEM."
|
||||
2505 PRINT"TURRET KNOCKED OUT"
|
||||
2506 PRINTKI;" RAIDERS BEFORE"
|
||||
2507 PRINT"IT WAS DISABLED"
|
||||
2508 PRINT"WOULD YOU LIKE TO"
|
||||
2509 PRINT"SWITCH TO ANOTHER"
|
||||
2510 INPUT"TURRET";B$
|
||||
2550 IFLEFT$(B$,1)="Y"THEN2560
|
||||
2555 GOTO4000
|
||||
2560 FORX4=54117TO54300:POKEX4,32:NEXTX4
|
||||
2561 KI=0
|
||||
2565 GOTO10
|
||||
2600 END
|
||||
3000 PRINT"THE TURRET DEFENSE HAS"
|
||||
3001 PRINT"SHATTERED THE"
|
||||
3002 PRINT"RAIDERS NOW-ABORTED"
|
||||
3003 PRINT"ATTEMPT AT STELLAR"
|
||||
3004 PRINT"CONQUEST. WOULD YOU"
|
||||
3005 PRINT"LIKE THEM TO TRY IT"
|
||||
3006 INPUT"AGAIN";B$
|
||||
3007 IFLEFT$(B$,1)="Y"THEN2560
|
||||
4000 PRINT"OK, THEN THEY'LL GO"
|
||||
4001 PRINT"HOME FOR NOW."
|
||||
4500 END
|
||||
9999 DATA0,0,-1,1,1,-1,1,-1
|
||||
10000 DATA140,140,131,131,189,190,190,189
|
||||
10005 DATA126,190,222,238,246,250
|
||||
10009 DATA-32,32,-1,1,-31,-33,33,31
|
||||
20000 A$="NEW TARGET APPROACHING"
|
||||
20002 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
|
||||
20010 INPUT"INSTRUCTIONS NEEDED";R$
|
||||
20020 IFLEFT$(R$,1)="N"THENRETURN
|
||||
20025 PRINT"Destroy the enemy"
|
||||
20030 PRINT"by getting it within"
|
||||
20035 PRINT"the crosshairs. To"
|
||||
20040 PRINT"move the crosshairs,"
|
||||
20045 PRINT"type in a:"
|
||||
20050 PRINT:PRINT"1> moves up"
|
||||
20055 PRINT"2> moves down"
|
||||
20060 PRINT"3> moves left"
|
||||
20065 PRINT"4> moves right"
|
||||
20070 PRINT"5> stops"
|
||||
20075 PRINT"6> fires"
|
||||
20080 PRINT:PRINT:PRINT"Watch it, though,"
|
||||
20085 PRINT"the sucker fires back!!"
|
||||
20090 RETURN
|
||||
167
apps/c1p/BASIC/OSI/SAMPLE5.BAS
Normal file
167
apps/c1p/BASIC/OSI/SAMPLE5.BAS
Normal file
|
|
@ -0,0 +1,167 @@
|
|||
1 REM--ROGER VAN SCOY
|
||||
2 REM--COUNTER
|
||||
19 D1=53392
|
||||
20 W=0:KEY=57088
|
||||
21 DEF FNZ(F)=55-INT(LOG(F)/LOG(2)-.5)
|
||||
22 POKE530,1
|
||||
25 DIMC(25):FORX=1TO25:READC(X):NEXT
|
||||
27 DIMA(23):FORX=1TO23:READA(X):NEXT
|
||||
29 DIMB(19):FORX=1TO19:READB(X):NEXT
|
||||
30 DIMD(24):FORX=1TO24:READD(X):NEXT
|
||||
33 FORX=1TO34:PRINT:NEXT
|
||||
35 PRINT"HI, WHAT'S YOU'RE NAME":INPUTN$
|
||||
40 FORX=1TO34:PRINT:NEXT
|
||||
50 A=53991:P=53487:C=54032:B=P+7*64:D=54181:CN=0
|
||||
70 R=ASC(N$)
|
||||
75 PRINT"TODAY, ";N$
|
||||
80 PRINT"WE'LL PRACTICE"
|
||||
85 PRINT"COUNTING TO TEN!!!"
|
||||
90 FORX=1TO14:PRINT:NEXT
|
||||
91 POKE54117,32
|
||||
94 FORX=1TO4000:NEXT
|
||||
95 FORX=53530TO53700:POKEX,32:NEXT
|
||||
97 GOSUB6000:GOTO1150
|
||||
100 REM---ONE
|
||||
110 Z=P+1:FORX=ZTOZ+6*64STEP64:POKEX,49:NEXT
|
||||
120 POKEZ+63,49:POKEZ+6*64-1,49:POKEZ+6*64+1,49
|
||||
130 POKEB,79:POKEB+1,78:POKEB+2,69
|
||||
135 POKEC,9:POKEC+1,10
|
||||
140 RETURN
|
||||
200 REM---TWO
|
||||
210 POKEP+63,50:FORX=PTOP+2:POKEX,50:NEXT
|
||||
220 Z=P+3:POKEZ+64,50:POKEZ+128,50
|
||||
230 Z=Z+192:POKEZ-1,50:POKEZ-2,50:Z=Z+61:POKEZ,50
|
||||
240 Z=Z+63:POKEZ,50:Z=Z+64:FORX=ZTOZ+4:POKEX,50:NEXT
|
||||
250 POKEB,84:POKEB+1,87:POKEB+2,79
|
||||
260 POKEC-2,181:POKEC-1,182:POKEC,32:POKEC+1,181:POKEC+2,182
|
||||
270 RETURN
|
||||
300 FORX=1TO300
|
||||
320 FORX=P+1TOP+5:POKEX,51:NEXT
|
||||
330 Z=P+69:POKEZ,51:POKEZ+63,51:POKEZ+127,51:POKEZ+126,51:Z=Z+192
|
||||
340 POKEZ,51:POKEZ+64,51
|
||||
350 Z=Z+128:FORX=Z-1TOZ-3STEP-1:POKEX,51:NEXT:POKEZ-68,51
|
||||
360 POKEB+1,84:POKEB+2,72:POKEB+3,82:POKEB+4,69:POKEB+5,69
|
||||
370 POKEC-2,214:POKEC-1,211:POKEC,32:POKEC+1,214:POKEC+2,211
|
||||
380 POKEC+4,214:POKEC+5,211
|
||||
390 RETURN
|
||||
400 REM---FOUR
|
||||
410 Z=P+2:FORX=ZTOZ+6*64STEP64:POKEX,52:NEXT
|
||||
420 Z=Z+62:POKEZ+1,52:POKEZ+64,52:Z=Z+127:POKEZ,52:Z=Z+64
|
||||
430 FORX=ZTOZ+4:POKEX,52:NEXT
|
||||
440 POKEB,70:POKEB+1,79:POKEB+2,85:POKEB+3,82
|
||||
450 POKEC-4,7:POKEC-3,8:POKEC-2,32:POKEC-1,7:POKEC,8:POKEC+1,32
|
||||
460 POKEC+2,7:POKEC+3,8:POKEC+4,32:POKEC+5,7:POKEC+6,8
|
||||
470 RETURN
|
||||
500 REM---FIVE
|
||||
510 FORX=PTOP+4:POKEX,53:NEXT:Z=P+128:POKEZ-64,53
|
||||
520 FORX=ZTOZ+3:POKEX,53:NEXT:Z=Z+68:FORX=ZTOZ+128STEP64:POKEX,53:NEXT
|
||||
530 Z=Z+191:FORX=ZTOZ-2STEP-1:POKEX,53:NEXT:POKEZ-67,53
|
||||
540 POKEB,70:POKEB+1,73:POKEB+2,86:POKEB+3,69
|
||||
550 FORX=C-4TOC+8:POKEX,32:NEXT:POKEC-4,0:POKEC-2,0:POKEC,0:POKEC+2,0
|
||||
560 POKEC+4,0:RETURN
|
||||
600 REM---SIX
|
||||
610 Z=P+2:FORX=ZTOZ+2:POKEX,54:NEXT:POKEZ+63,54:Z=Z+126
|
||||
620 FORX=ZTOZ+192STEP64:POKEX,54:NEXT:Z=Z+64
|
||||
630 FORX=ZTOZ+3:POKEX,54:NEXT
|
||||
640 Z=Z+68:POKEZ,54:POKEZ+64,54:Z=Z+127
|
||||
650 FORX=ZTOZ-2STEP-1:POKEX,54:NEXT
|
||||
660 POKEB+1,83:POKEB+2,73:POKEB+3,88
|
||||
670 FORX=C-4TOC+4:POKEX,32:NEXT
|
||||
680 POKEC-4,15:POKEC-2,15:POKEC,15:POKEC+2,15:POKEC+4,15
|
||||
690 POKEC+60,15:RETURN
|
||||
700 REM---SEVEN
|
||||
710 FORX=PTOP+4:POKEX,55:NEXT:POKEP+68,55:POKEP+131,55:POKEP+194,55
|
||||
720 FORX=P+1+4*64TOP+1+6*64STEP64:POKEX,55:NEXT
|
||||
730 POKEB,83:POKEB+1,69:POKEB+2,86:POKEB+3,69:POKEB+4,78
|
||||
740 POKEC-4,236:POKEC-2,236:POKEC,236:POKEC+2,236:POKEC+4,236
|
||||
750 POKEC+60,236:POKEC+62,236:RETURN
|
||||
800 REM---EIGHT
|
||||
810 Z=P+1:FORX=ZTOZ+2:FORX1=Z+192TOZ+194:FORX2=Z+384TOZ+386
|
||||
820 POKEX,56:POKEX1,56:POKEX2,56:NEXTX2:NEXTX1:NEXTX
|
||||
830 Z=P+64:POKEZ,56:POKEZ+4,56:POKEZ+64,56:POKEZ+68,56
|
||||
840 Z=P+256:POKEZ,56:POKEZ+4,56:POKEZ+64,56:POKEZ+68,56
|
||||
850 POKEB,69:POKEB+1,73:POKEB+2,71:POKEB+3,72:POKEB+4,84
|
||||
860 POKEC-4,248:POKEC-2,248:POKEC,248:POKEC+2,248:POKEC+4,248
|
||||
870 POKEC+60,248:POKEC+62,248:POKEC+64,248:RETURN
|
||||
900 REM---NINE
|
||||
910 Z=P+1:FORX=ZTOZ+2:POKEX,57:NEXT
|
||||
920 Z=Z+67:FORX=ZTOZ+196STEP64:POKEX,57:NEXT
|
||||
930 POKEP+64,57:POKEP+128,57:Z=P+193:FORX=ZTOZ+2:POKEX,57:NEXT
|
||||
940 Z=P+6*64:FORX=ZTOZ+2:POKEX,57:NEXT:POKEZ-61,57
|
||||
950 POKEB,78:POKEB+1,73:POKEB+2,78:POKEB+3,69
|
||||
960 POKEC-4,16:POKEC-2,17:POKEC,18:POKEC+2,19:POKEC+4,20
|
||||
970 POKEC+60,20:POKEC+62,19:POKEC+64,18:POKEC+66,17:RETURN
|
||||
1000 REM---TEN
|
||||
1005 Z=P-3:FORX=ZTOZ+6*65STEP64:POKEX,49:NEXT
|
||||
1010 POKEZ+63,49:POKEZ+6*64-1,49:POKEZ+6*64+1,49
|
||||
1020 Z=P+1:Z1=Z+6*64:FORX=ZTOZ+2:FORX1=Z1TOZ1+2:POKEX,48:POKEX1,48
|
||||
1030 NEXTX1:NEXTX
|
||||
1040 Z=P+64:Z1=P+68:FORX=ZTOZ+256STEP64:FORX1=Z1TOZ1+256STEP64
|
||||
1050 POKEX,48:POKEX1,48:NEXTX1:NEXTX
|
||||
1060 POKEB-1,84:POKEB,69:POKEB+1,78:V=240
|
||||
1080 POKEC-4,V:POKEC-2,V:POKEC,V:POKEC+2,V:POKEC+4,V
|
||||
1090 FORX=60TO68STEP2:POKEX+C,V:NEXT:RETURN
|
||||
1095 RETURN
|
||||
1150 FORX=C-4TOC+8:POKEX,32:NEXT:FORX=C+60TOC+68:POKEX,32:NEXT
|
||||
1170 FORX=1TO23:POKED+X,A(X):NEXT
|
||||
1180 FORX=1TO5000:NEXT:FORX=1TO28:POKED+X,32:NEXT:FORE=1TO25
|
||||
1190 FORX=1TO19:POKED+X,B(X):NEXTX:FORX=20TO24:POKED+X,32:NEXTX
|
||||
1200 R1=INT(25*RND(R))+1:R2=INT(9*RND(R))+1
|
||||
1300 FORX=ATOA+2*R2STEP2:POKEX,C(R1):NEXT
|
||||
1325 GOSUB2000:R3=R2+1
|
||||
1330 IFW=0THEN1325
|
||||
1375 IFW=R3THENCN=CN+1:GOSUB7000
|
||||
1400 IFW<>R3THENFORX=1TO1000:GOSUB7500
|
||||
1500 IFR3=1THENGOSUB100:GOSUB5000:GOSUB8000
|
||||
1510 IFR3=2THENGOSUB200:GOSUB5000:GOSUB8000
|
||||
1520 IFR3=3THENGOSUB300:GOSUB5000:GOSUB8000
|
||||
1530 IFR3=4THENGOSUB400:GOSUB5000:GOSUB8000
|
||||
1540 IFR3=5THENGOSUB500:GOSUB5000:GOSUB8000
|
||||
1550 IFR3=6THENGOSUB600:GOSUB5000:GOSUB8000
|
||||
1560 IFR3=7THENGOSUB700:GOSUB5000:GOSUB8000
|
||||
1570 IFR3=8THENGOSUB800:GOSUB5000:GOSUB8000
|
||||
1580 IFR3=9THENGOSUB900:GOSUB5000:GOSUB8000
|
||||
1590 IFR3=10THENGOSUB1000:GOSUB5000:GOSUB8000
|
||||
1595 FORX=D1TOD1+7:POKEX,32:NEXT
|
||||
1600 POKED+21,32:POKED+22,32:W=0:NEXTE
|
||||
1800 FORX=0TO24:POKEX+D,32:NEXT
|
||||
1850 PRINTN$;"YOU GOT"
|
||||
1900 PRINTCN;"RIGHT OUT OF 25"
|
||||
1950 PRINT"QUESTIONS!!":END
|
||||
2000 POKEKE,127:F=255-PEEK(KE)
|
||||
2117 IFF=0THEN2500
|
||||
2150 IFF=128THENPOKED+21,49:W=1:GOSUB3000:RETURN
|
||||
2200 POKED+21,FNZ(F):W=FNZ(F)-48:RETURN
|
||||
2500 POKEKE,191:F=255-PEEK(KE)
|
||||
2800 IFF=0THEN2000
|
||||
2850 IFF<64THEN2000
|
||||
2900 POKED+21,FNZ(F)+7:W=FNZ(F)-41:RETURN
|
||||
3000 FORX=1TO100
|
||||
3100 POKEKE,128:F=254-PEEK(KE)
|
||||
3200 IFF=32THENPOKED+22,48:W=10:RETURN
|
||||
3300 NEXT:RETURN
|
||||
4900 DATA0,1,14,15,16,17,18,19,20,21,22,23,169,170,176,177,229
|
||||
4950 DATA232,236,240,248,246,238,239,237
|
||||
4960 DATA73,84,39,83,32,89,79,85,82,32,84,85,82,78,32,84,79,32
|
||||
4970 DATA67,79,85,78,84
|
||||
4980 DATA72,79,87,32,77,65,78,89,32,65,82,69,32,84,72,69,82,69,63
|
||||
4990 DATA87,82,79,78,71,44,32,84,72,69,32,65,78,83,87,69,82,32
|
||||
4991 DATA73,83,32,32,32,46
|
||||
5000 FORX=1TO4000:NEXT:FORX=P-10TOP+480:POKEX,32:NEXT:RETURN
|
||||
6000 GOSUB100:GOSUB5000:GOSUB200:GOSUB5000:GOSUB300:GOSUB5000
|
||||
6100 GOSUB400:GOSUB5000:GOSUB500:GOSUB5000:GOSUB600:GOSUB5000
|
||||
6200 GOSUB700:GOSUB5000:GOSUB800:GOSUB5000:GOSUB900:GOSUB5000
|
||||
6300 GOSUB1000:GOSUB5000:RETURN
|
||||
7000 FORX=-2TO24:POKEA+X,32:NEXT
|
||||
7005 POKED1,82:POKED1+1,105:POKED1+2,103:POKED1+3,104:POKED1+4,116
|
||||
7010 FORX=5TO7:POKED1+X,33:NEXT
|
||||
7100 FORX=P-4+6*64TOP+7*64:POKEX,32:NEXT
|
||||
7200 RETURN
|
||||
7500 FORX=-2TO24:POKEA+X,32:NEXT
|
||||
7505 FORX=1TO24:POKED+X,D(X):NEXT
|
||||
7510 IFR3=10THENPOKED+22,49:POKED+23,48:GOTO7550
|
||||
7520 POKED+22,R3+48
|
||||
7550 FORX=P-4+6*64TOP+7*64:POKEX,32:NEXT
|
||||
7700 RETURN
|
||||
8000 FORX=-4TO8:POKEC+X,32:NEXT:FORX=60TO68:POKEC+X,32:NEXT
|
||||
8100 RETURN
|
||||
266
apps/c1p/BASIC/OSI/SAMPLE6.BAS
Normal file
266
apps/c1p/BASIC/OSI/SAMPLE6.BAS
Normal file
|
|
@ -0,0 +1,266 @@
|
|||
1 FORSC=1TO30:PRINT:NEXT:REM--SUSAN SULLIVAN**PRES TUTOR
|
||||
2 PRINT"WANT INSTRUCTIONS?":INPUTD$:IF D$="Y"ORD$="YES"THEN50000
|
||||
3 PRINT"INPUT RANDOM SEED":INPUTX:Z=0:DIMQ(100):Q(1)=0
|
||||
4 R=INT(38*RND(X)+1):Z=Z+1:FOR SC=1TO30:PRINT:NEXT
|
||||
5 IFZ=1THEN60050
|
||||
6 GOTO60000
|
||||
10 PRINT"WHICH PRESIDENT STARTED"
|
||||
11 PRINT"THE TWO TERM TRADITION?"
|
||||
12 PRINT"HE WAS ELECTED UN-"
|
||||
13 PRINT"ANIMOUSLY."
|
||||
14 GOTO450
|
||||
20 PRINT"THIS MAN WAS THE FIRST"
|
||||
21 PRINT"VICE PRESIDENT AND THE"
|
||||
22 PRINT"SECOND PRESIDENT. HE"
|
||||
23 PRINT"AVOIDED WAR WITH"
|
||||
24 PRINT"EUROPE. WHO WAS HE?"
|
||||
25 GOTO450
|
||||
30 PRINT"WHO WAS THE PRESIDENT"
|
||||
31 PRINT"DURING THE LOUISIANA"
|
||||
32 PRINT"PURCHASE AND THE LEWIS"
|
||||
33 PRINT"AND CLARK EXPEDITION?"
|
||||
35 GOTO450
|
||||
40 PRINT"THIS PRESIDENT WAS"
|
||||
41 PRINT"CALLED 'THE FATHER OF"
|
||||
42 PRINT"THE CONSTITUTION'. HE"
|
||||
43 PRINT"WAS IN OFFICE DURING"
|
||||
44 PRINT"THE WAR OF 1812."
|
||||
45 GOTO450
|
||||
50 PRINT"WHO WAS THE PRESIDENT"
|
||||
51 PRINT"WHEN FLORIDA WAS"
|
||||
52 PRINT"ACQUIRED? HE ALSO WROTE"
|
||||
53 PRINT"AN IMPORTANT DOCTRINE."
|
||||
55 GOTO450
|
||||
60 PRINT"ELECTED BY THE HOUSE,"
|
||||
61 PRINT"HE WAS THE SON OF A"
|
||||
62 PRINT"FORMER PRESIDENT. WHO"
|
||||
63 PRINT"WAS HE?"
|
||||
65 GOTO450
|
||||
70 PRINT"THIS PRESIDENT IS GIVEN"
|
||||
71 PRINT"CREDIT FOR STARTING THE"
|
||||
72 PRINT"SPOILS SYSTEM."
|
||||
75 GOTO450
|
||||
80 PRINT"WHICH PRESIDENT STARTED"
|
||||
81 PRINT"AN INDEPENDENT TREASURY"
|
||||
82 PRINT"SYSTEM AND OPPOSED THE"
|
||||
83 PRINT"ANNEXING OF TEXAS?"
|
||||
85 GOTO450
|
||||
90 PRINT"WHICH PRESIDENT DIED"
|
||||
91 PRINT"AFTER ONLY 31 DAYS IN"
|
||||
92 PRINT"OFFICE? HE WAS A HERO"
|
||||
93 PRINT"OF THE BATTLE OF"
|
||||
94 PRINT"TIPPECANOE?"
|
||||
95 GOTO450
|
||||
100 PRINT"WHO WAS THE FIRST VICE"
|
||||
101 PRINT"PRESIDENT TO BECOME PR-"
|
||||
102 PRINT"ESIDENT BECAUSE OF THE"
|
||||
103 PRINT"DEATH OF THE PRESIDENT?"
|
||||
105 GOTO450
|
||||
110 PRINT"WHO WAS IN OFFICE WHEN "
|
||||
111 PRINT"THE STATES OF CAL.,UTAH"
|
||||
112 PRINT"AND NEW MEXICO WERE"
|
||||
113 PRINT"AQUIRED IN THE MEXICAN"
|
||||
114 PRINT"WAR?"
|
||||
115 GOTO450
|
||||
120 PRINT"THIS PRESIDENT DIED IN"
|
||||
121 PRINT"OFFICE AND WAS A HERO"
|
||||
122 PRINT"OF THE MEXICAN WAR?"
|
||||
125 GOTO450
|
||||
130 PRINT"WHO WAS PRESIDENT WHEN"
|
||||
131 PRINT"THE 1850 SLAVERY"
|
||||
132 PRINT"COMPROMISE AND THE"
|
||||
133 PRINT"FUGITIVE SLAVE ACT WERE"
|
||||
134 PRINT"PASSED?"
|
||||
135 GOTO450
|
||||
140 PRINT"WHICH PRESIDENT REPEALED"
|
||||
141 PRINT"THE MISSOURI COMPROMISE?"
|
||||
145 GOTO450
|
||||
150 PRINT"THIS PRESIDENT FAVORED"
|
||||
151 PRINT"THE LECOMPTON CONST-"
|
||||
152 PRINT"ITUTION FOR KANSAS?"
|
||||
155 GOTO450
|
||||
160 PRINT"WHO WAS THE FIRST PRE-"
|
||||
161 PRINT"SIDENT TO BE ASSASSI-"
|
||||
162 PRINT"NATED? HE WAS IN OFFICE"
|
||||
163 PRINT"DURING THE CIVIL WAR?"
|
||||
165 GOTO450
|
||||
170 PRINT"WHO WAS THE FIRST PRE-"
|
||||
171 PRINT"SIDENT TO BE IMPEACHED?"
|
||||
172 PRINT"THE SENATE FAILED TO"
|
||||
173 PRINT"CONVICT HIM BY ONE VOTE."
|
||||
175 GOTO450
|
||||
180 PRINT"THIS PRESIDENT WAS"
|
||||
181 PRINT"PLAGUED BY A CORRUPT"
|
||||
182 PRINT"ADMINISTRATION EVEN"
|
||||
183 PRINT"THOUGH HE PERSONALLY"
|
||||
184 PRINT"WAS HONEST?"
|
||||
185 GOTO450
|
||||
190 PRINT"WHICH PRESIDENT WAS"
|
||||
191 PRINT"ELECTED BY A COMMITTEE"
|
||||
192 PRINT"OF CONGRESS WHEN THE"
|
||||
193 PRINT"RETURNS WERE DISPUTED?"
|
||||
195 GOTO450
|
||||
200 PRINT"WHICH PRESIDENT WAS"
|
||||
201 PRINT"ASSASSINATED BECAUSE OF"
|
||||
202 PRINT"HIS DISLIKE OF THE"
|
||||
203 PRINT"POLITICAL SPOILS SYSTEM?"
|
||||
205 GOTO450
|
||||
210 PRINT"THIS PRESIDENT AQUIRED"
|
||||
211 PRINT"PEARL HARBOR BASE AND"
|
||||
212 PRINT"WAS A FORMER GOVERNOR "
|
||||
213 PRINT"OF THE ALASKA TERRITORY."
|
||||
215 GOTO450
|
||||
220 PRINT"WHICH PRESIDENT MARRIED"
|
||||
221 PRINT"WHILE IN THE WHITE"
|
||||
222 PRINT"HOUSE?"
|
||||
225 GOTO450
|
||||
230 PRINT"WHO WAS THE TWENTY-
|
||||
231 PRINT"THIRD PRESIDENT? HE HAD"
|
||||
232 PRINT"FEWER POPULAR VOTES "
|
||||
233 PRINT"THAN HIS OPPONENT."
|
||||
235 GOTO450
|
||||
240 PRINT"WHO WAS THE ONLY PRE-"
|
||||
241 PRINT"SIDENT TO BE ELECTED TO"
|
||||
242 PRINT"TWO NONCONSECUTIVE "
|
||||
244 PRINT"TERMS?"
|
||||
245 GOTO450
|
||||
250 PRINT"WHO WAS PRESIDENT"
|
||||
251 PRINT"DURING THE SPANISH-"
|
||||
252 PRINT"AMERICAN WAR?"
|
||||
255 GOTO450
|
||||
260 PRINT"WHICH PRESIDENT WON A"
|
||||
261 PRINT"NOBEL PEACE PRIZE FOR"
|
||||
262 PRINT"MEDIATING THE PEACE"
|
||||
263 PRINT"TREATY IN THE RUSSO-"
|
||||
264 PRINT"JAPANESE WAR?"
|
||||
265 GOTO450
|
||||
270 PRINT"WHO WAS PRESIDENT WHEN"
|
||||
271 PRINT"INCOME TAX WAS STARTED?"
|
||||
275 GOTO450
|
||||
280 PRINT"WHO WAS PRESIDENT DUR-"
|
||||
281 PRINT"ING THE FIRST WORLD "
|
||||
282 PRINT"WAR?"
|
||||
285 GOTO450
|
||||
290 PRINT"WHICH PRESIDENT WAS"
|
||||
291 PRINT"INVOLVED IN THE TEAPOT"
|
||||
292 PRINT"DOME SCANDAL?"
|
||||
295 GOTO450
|
||||
300 PRINT"WHICH PRESIDENT HAD THE MOTO 'KEEP COOL'?"
|
||||
305 GOTO450
|
||||
310 PRINT"WHO WAS PRESIDENT WHEN"
|
||||
311 PRINT"THE STOCK MARKET"
|
||||
312 PRINT"CRASHED IN THE 30'S?"
|
||||
315 GOTO450
|
||||
320 PRINT"WHO WAS THE ONLY PRE-"
|
||||
321 PRINT"SIDENT TO BE ELECTED"
|
||||
322 PRINT"MORE THAN TWICE?"
|
||||
325 GOTO450
|
||||
330 PRINT"WHO WAS THE PRESIDENT"
|
||||
331 PRINT"DURING THE KOREAN WAR?"
|
||||
335 GOTO450
|
||||
340 PRINT"WHICH PRESIDENT WAS A"
|
||||
341 PRINT"GENERAL IN WW II?"
|
||||
345 GOTO450
|
||||
350 PRINT"WHO WAS THE FIRST"
|
||||
351 PRINT"CATHOLIC PRESIDENT?"
|
||||
355 GOTO450
|
||||
360 PRINT"WHICH PRESIDENT HAD A"
|
||||
361 PRINT"'WAR ON POVERTY'?"
|
||||
365 GOTO450
|
||||
370 PRINT"WHO WAS PESIDENT WHEN"
|
||||
371 PRINT"MAN LANDED ON THE MOON?"
|
||||
375 GOTO450
|
||||
380 PRINT"WHICH PRESIDENT WAS"
|
||||
381 PRINT"ELECTED BY CONGRESS"
|
||||
382 PRINT"UNDER THE 25TH AMENDMENT?"
|
||||
385 GOTO450
|
||||
390 PRINT"WHICH PRESIDENT IS KNOWN FOR HIS SMILE?"
|
||||
395 GOTO450
|
||||
450 FORI=1TOR:READB$:NEXTI
|
||||
452 PRINT:PRINT:INPUT"ANS.";A$
|
||||
455 PRINT:PRINT:PRINTB$" IS"
|
||||
457 PRINT"THE CORRECT ANSWER."
|
||||
458 FORV=1TO3000:NEXT
|
||||
459 FORV=1TO20:PRINT:NEXT
|
||||
460 RESTORE:GOTO4
|
||||
1000 DATA"GEORGE WASHINGTON"
|
||||
2000 DATA"JOHN ADAMS"
|
||||
3000 DATA"THOMAS JEFFERSON"
|
||||
4000 DATA"JAMES MADISON"
|
||||
5000 DATA"JAMES MONROE"
|
||||
6000 DATA"JOHN QUINCY ADAMS"
|
||||
7000 DATA"ANDREW JACKSON"
|
||||
8000 DATA"MARTIN VAN BUREN"
|
||||
9000 DATA"WILLIAM H. HARRISON"
|
||||
10000 DATA"JOHN TYLER"
|
||||
11000 DATA"JAMES K. POLK"
|
||||
12000 DATA"ZACHARY TAYLOR"
|
||||
13000 DATA"MILLARD FILLMORE"
|
||||
14000 DATA"FRANKLIN PIERCE"
|
||||
15000 DATA"JAMES BUCHANAN"
|
||||
16000 DATA"ABRAHAM LINCOLN"
|
||||
17000 DATA"ANDREW JOHNSON"
|
||||
18000 DATA"ULYSSES S. GRANT"
|
||||
19000 DATA"RUTHERFORD B. HAYES"
|
||||
20000 DATA"JAMES A. GARFIELD"
|
||||
21000 DATA"CHESTER A. ARTHUR"
|
||||
22000 DATA"GROVER CLEVELAND"
|
||||
23000 DATA"BENJAMIN HARRISON"
|
||||
24000 DATA"GROVER CLEVELAND"
|
||||
25000 DATA"WILLIAM MC KINLEY"
|
||||
26000 DATA"THEODRORE ROOSEVELT"
|
||||
27000 DATA"WILLIAM TAFT"
|
||||
28000 DATA"WOODROW WILSON"
|
||||
29000 DATA"WARREN G. HARDING"
|
||||
30000 DATA"CALVIN COOLIDGE"
|
||||
31000 DATA"HERBERT C. HOOVER"
|
||||
32000 DATA"FRANKLIN D. ROOSEVELT"
|
||||
33000 DATA"HARRY S. TRUMAN"
|
||||
34000 DATA"DWIGHT D. EISENHOWER"
|
||||
35000 DATA"JOHN F. KENNEDY"
|
||||
36000 DATA"LYNDON B. JOHNSON"
|
||||
37000 DATA"RICHARD M. NIXON"
|
||||
38000 DATA"GERALD R. FORD"
|
||||
39000 DATA"JIMMY CARTER"
|
||||
40000 B=INT(R/10)+1
|
||||
40001 PRINT:PRINT:PRINT:PRINT
|
||||
40010 ON B GOTO40300,40390,40500,40600
|
||||
40300 ONRGOTO10,20,30,40,50,60,70,80,90,100
|
||||
40390 S=R-9
|
||||
40400 ONSGOTO100,110,120,130,140,150,160,170,180,190
|
||||
40500 S=R-19
|
||||
40550 ONSGOTO200,210,220,230,240,250,260,270,280,290
|
||||
40600 S=R-29
|
||||
40650 ONSGOTO300,310,320,330,340,350,360,370,380,390
|
||||
50000 PRINT:PRINT"DIRECTIONS":PRINT:PRINT
|
||||
50010 PRINT"TO START THE GAME TYPE"
|
||||
50011 PRINT"IN A RANDOM NUMBER AND"
|
||||
50012 PRINT"PUSH IN THE RETURN KEY."
|
||||
50014 PRINT"A QUESTION WILL THEN BE"
|
||||
50016 PRINT"TYPED BY THE COMPUTER."
|
||||
50018 PRINT"YOU SHOULD TYPE IN THE"
|
||||
50019 PRINT"ANSWER AND THEN PUSH"
|
||||
50020 PRINT"THE RETURN KEY."
|
||||
50040 PRINT:PRINT"IF YOU DO NOT KNOW THE"
|
||||
50050 PRINT"ANSWER TYPE IN A ? AND"
|
||||
50055 PRINT"THEN PUSH THE RETURN"
|
||||
50058 PRINT"KEY.":PRINT:PRINT
|
||||
50060 PRINT"WHEN YOU WANT TO STOP"
|
||||
50065 PRINT"JUST PUSH THE RETURN"
|
||||
50068 PRINT"KEY WITHOUT TYPING"
|
||||
50070 PRINT"ANYTHING.":PRINT:GOTO3
|
||||
60000 FOR I=1TOZ
|
||||
60005 IFZ=21 THEN60999
|
||||
60010 IF Q(I)=R THEN60100
|
||||
60020 NEXTI
|
||||
60050 Q(Z)=R
|
||||
60060 GOTO40000
|
||||
60100 Z=Z-1
|
||||
60110 GOTO4
|
||||
60999 PRINT:PRINT:PRINT
|
||||
61000 PRINT"YOU HAVE ANSWERED 20"
|
||||
61001 PRINT"QUESTIONS,IF YOU"
|
||||
61002 PRINT"WISH TO CONTINUE JUST"
|
||||
61003 PRINT"TYPE IN 'RUN' AFTER"
|
||||
61004 PRINT"THE OK THAT THE COM-"
|
||||
61005 PRINT"PUTER TYPES."
|
||||
Loading…
Reference in a new issue