mirror of
https://github.com/rfivet/BCG101.git
synced 2025-07-01 06:27:31 -04:00
43a2f17528
* Update LIFE-2.BAS Minor fixes * Update LITQZ.BAS Minor fixes * Update LITQZ.BAS Fixed spelling error of "OZ", and removed a space to align with original program formatting * Update MNPOLY.BAS Added missing comma * Update MNOPLY.BAS Fixed several errors * Update CHEMST.BAS Restored misspelling and removed a space * Update ANIMAL.BAS * Update BAGLES.BAS Fixed spaces on line 615 * Update CHEMST.BAS Aligned spacing on line 200 with original program * Update LIFE-2.BAS Aligned code formatting with the original book for consistency's sake * Update AWARI.BAS * Update BANNER.BAS Minor formatting fixes. Line 520 looked like a major error at first, but then I remembered that multiplication works both ways. * Update BANNER.BAS Aligned port version with book formatting
70 lines
1.9 KiB
QBasic
70 lines
1.9 KiB
QBasic
5 DATA0
|
|
10 DIMB(13),G(13),F(50):READN
|
|
15 FORI=0TON-1:READF(I):NEXTI
|
|
20 PRINT\PRINT "GAME OF *** AWARI ***"\E=0
|
|
25 FORI=0TO12:LETB(I)=3:NEXTI
|
|
30 LETC=0:LETF(N)=0:LETB(13)=0:LETB(6)=0
|
|
35 GOSUB500
|
|
40 PRINT"YOUR MOVE";:GOSUB110
|
|
45 IFE=0GOTO80
|
|
50 IFM=HTHENGOSUB100
|
|
55 IFE=0GOTO80
|
|
60 PRINT"MY MOVE IS ";:GOSUB800
|
|
65 IFE=0GOTO80
|
|
70 IFM=HTHENPRINT",";:GOSUB800
|
|
75 IFE>0GOTO35
|
|
80 PRINT:PRINT"GAME OVER"
|
|
85 LET D=B(6)-B(13):IF D<0 THEN PRINT "I WIN BY";-D"POINTS":GOTO 20
|
|
90 LETN=N+1:IFD=0THENPRINT"DRAWN GAME":GOTO 20
|
|
95 PRINT"YOU WIN BY"D"POINTS":GOTO20
|
|
100 PRINT"AGAIN";
|
|
110 INPUTM:IFM<7THENIFM>0THENLETM=M-1:GOTO130
|
|
120 PRINT"ILLEGAL MOVE":GOTO100
|
|
130 IFB(M)=0GOTO120
|
|
140 LETH=6:GOSUB200
|
|
150 GOTO500
|
|
200 LETK=M:GOSUB600
|
|
205 LETE=0:IFK>6THENLETK=K-7
|
|
210 LETC=C+1:IFC<9THENLETF(N)=F(N)*6+K
|
|
215 FORI=0TO5:IFB(I)<>0THEN230
|
|
220 NEXTI
|
|
225 RETURN
|
|
230 FORI=7TO12:IFB(I)<>0THENLETE=1:RETURN
|
|
235 GOTO 220
|
|
500 PRINT:PRINT" ";
|
|
505 FORI=12TO7STEP-1:GOSUB580
|
|
510 NEXTI
|
|
515 PRINT:LETI=13:GOSUB580
|
|
520 PRINT," ";:PRINTB(6):PRINT" ";
|
|
525 FORI=0TO5:GOSUB580
|
|
530 NEXTI
|
|
535 PRINT:PRINT:RETURN
|
|
580 IFB(I)<10THENPRINT" ";
|
|
585 PRINTB(I);:RETURN
|
|
600 LETP=B(M):LETB(M)=0
|
|
605 FORP=PTO1STEP-1:LETM=M+1:IFM>13THENLETM=M-14
|
|
610 LETB(M)=B(M)+1:NEXTP
|
|
615 IFB(M)=1THENIFM<>6THENIFM<>13THENIFB(12-M)<>0GOTO625
|
|
620 RETURN
|
|
625 LETB(H)=B(H)+B(12-M)+1:LETB(M)=0:LETB(12-M)=0:RETURN
|
|
800 LETD=-99:LETH=13
|
|
805 FORI=0TO13:LETG(I)=B(I):NEXTI
|
|
810 FORJ=7TO12:IFB(J)=0THEN885
|
|
815 LETQ=0:LETM=J:GOSUB600
|
|
820 FORI=0TO5:IFB(I)=0GOTO845
|
|
825 LETL=B(I)+I:LETR=0
|
|
830 IFL>13THENLETL=L-14:LETR=1:GOTO830
|
|
835 IFB(L)=0THENIFL<>6THENIFL<>13THENLETR=B(12-L)+R
|
|
840 IFR>QTHENLETQ=R
|
|
845 NEXTI
|
|
850 LETQ=B(13)-B(6)-Q:IFC>8GOTO875
|
|
855 LETK=J:IFK>6THENLETK=K-7
|
|
860 FORI=0TON-1:IFF(N)*6+K=INT(F(I)/6^(7-C)+.1)THENLETQ=Q-2
|
|
870 NEXTI
|
|
875 FORI=0TO13:LETB(I)=G(I):NEXTI
|
|
880 IFQ>=DTHENLETA=J:LETD=Q
|
|
885 NEXTJ
|
|
890 LETM=A:PRINTCHR$(42+M);:GOTO200
|
|
900 FORI=0TON-1:PRINTB(I):NEXTI
|
|
999 END
|