File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 115 DATA0
2210 DIMB(13 ),G(13 ),F(50 ):READN
3315 FORI= 0TON- 1 :READF(I):NEXTI
4- 20 PRINT \PRINT "GAME OF AWANI ***" \E= 0
4+ 20 PRINT \PRINT "GAME OF *** AWARI ***" \E= 0
5525 FORI= 0TO12:LETB(I)= 3 :NEXTI
6- 30 LETC= 0 :LETF(N)= 0 :LETB(13 )= 0 :LETA (6 )= 0
6+ 30 LETC= 0 :LETF(N)= 0 :LETB(13 )= 0 :LETB (6 )= 0
7735 GOSUB 500
8- 40 PRINT "YOUR MOVE" ;:GOSUB 110
8+ 40 PRINT "YOUR MOVE" ;:GOSUB 110
9945 IFE= 0GOTO80
101050 IFM= 6THENGOSUB100
111155 IFE= 1GOTO80
3131225 RETURN
3232230 FORI= 7TO12:IFB(I)<> 0THENLETE= 1 :RETURN
3333235 GOTO 220
34- 500 PRINT :PRINT " "
34+ 500 PRINT :PRINT " " ;
3535505 FORI= 12TO7STEP- 1 :GOSUB 580
3636510 NEXTI
3737515 PRINT :LETI= 13 :GOSUB 580
38- 520 PRINT ," " ;:PRINTB(6 ):PRINT " "
38+ 520 PRINT ," " ;:PRINTB(6 ):PRINT " " ;
3939525 FORI= 0TO5:GOSUB 580
4040530 NEXTI
4141535 PRINT :PRINT :RETURN
42- 570 IFB(I)<> 0THENPRINT" " ;
42+ 570 IFB(I)<> 0THENPRINT" " ;
4343580 PRINTB(I):RETURN
4444600 LETP= B(M):LETB(M)= 0
4545605 FORP= PTO1STEP- 1 :LETM= M+ 1 :IFM> 13THENLETM= M- 14
You can’t perform that action at this time.
0 commit comments