IMD 1.15: 16/05/2007 7:57:59 fog gam 005         BLACKJCKBAS:()*+DISK DOC,DISK DOC-DISK $$$5 RANDOMIZE 10 DIM P$(41),S(41),R(41),V(41),J(41),M(41),K(21),L(41),C(41),B(41),O(41) 20 PRINT "HOW MANY PLAYERS"; 30 PRINT "(TYPE '0' FOR INSTRUCTIONS)"; 40 INPUT N 50 IF N>0 THEN 80 60 GOSUB 8580 70 GOTO 20 80 IF N<11 THEN 110 90 PRINT " NO MORE THAN 10 CAN PLAY" 100 GOTO 20 110 FOR Q5 = 1 TO N 120 PRINT "NAME"; 130 REM THIS PART STARTED FROM 151-2 140 REM A(B)=0 FOR HUMAN, 1 FOR COMPUTER 150 GOTO 210 160 N$(Q5)="COMPUTER" 170 A(Q5)=1 180 W7=W7+1 190 REM W7 IS # OF COMPUTER PLAYERS 200MONOPOLYBASQ -FOG/GAM005OTHELLO COM.HANGMN-1BAS+HANGMN-2BAS/HANGMN-3BAS- !"MASTERMDBAS #ROULETTEBAS4$%&'  INT 820 IF T(B)>0 THEN 840 830 GOSUB 9010 840 IF Q(B)=1 THEN 3720 850 IF E(B)=0 THEN 880 860 B9=B3 870 GOSUB 4770 880 IF T(B)> 100 THEN 900 890 GOSUB 5710 900 IF N(B)>0 THEN 920 910 IF X(B)=0 THEN 940 920 GOSUB 6230 930 GOTO 940 940 B2=INT( 310 NEXT O1 315 M$(Q5)=N$(Q5) 320 GOTO 360 330 PRINT "TYPE PLAYERS NAME (ONE ONLY AT A TIME)" 340 PRINT "'YOU' IF THE COMPUTER IS PLAYING." 350 GOTO 120 360 T(Q5)=1500 370 NEXT Q5 380 IF Z7=1 THEN 410 390 A7=1 400 A8=1 410 FOR B4= 1 TO 40 420RND(1)*6)+1 950 B1=INT(RND(1)*6)+1 960 PRINT "THE DICE ARE ON";B1;" AND ";B2 970 IF B1=B2 THEN 1010 980 IF J(B)=1 THEN 1150 990 G(B)=0 1000 GOTO 1510 1010 G(B)= G(B)+1 1020 REM G(B) IS NUMBER OF DOUBLES 1030 IF G(B)>=3 THEN 1100 1040 IF J(B)=1 TH REM READS DATA, P$=NAME,S IS TYPE,R IS RENT, AND C IS COST 430 READ P$(B4),S(B4) 440 REM B3= B= PLAYER NUMBER 450 IF S(B4)>8 THEN 470 460 GOTO 490 470 READ L(B4),C(B4) 480 R(B4)=L(B4) 490 NEXT B4 500 I0=1 510 J0=200 520 I=I+1 530 PRINT 540 PRIEN 1070 1050 REM J(B)= 1IF IN JAIL, =0 IF OUT OF JAIL 1060 GOTO 1510 1070 J(B)=0 1080 PRINT "OUT OF JAIL " 1090 GOTO 2760 1100 J(B)=1 1110 PRINT "3 DOUBLES . IN JAIL" 1120 P(B)=10 1130 GOTO 2770 1140 G(B)=0 1150 IF F(B)>0 THEN 1170 1160 GOTO 12NT "TURN";I 550 PRINT 560 GOSUB 6910 570 IF I0=0 THEN 600 580 GOTO 2780 590 I0=0 600 FOR B3=1 TO N 610 B=B3 620 IF A(B)=1 THEN 660 630 O$="YOU" 640 I$="YOUR" 650 GOTO 690 660 O$="I" 670 I$="MY" 680 REM THIS SETS O AND I$ FOR COMPUTER OR HUMAN90 1170 PRINT " IN JAIL WILL ";O$;" USE ";I$;" JAILCARD"; 1180 IF A(B)=0 THEN 1210 1190 PRINT "?* YES *" 1200 GOTO 1260 1210 INPUT X$ 1220 IF LEFT$(X$,1)="N" THEN 1290 1230 IF LEFT$(X$,1)="Y" THEN 1260 1240 PRINT "YES OR NO"; 1250 GOTO 1210 1260 690 R5=0 700 U=0 710 IF Q(B)=1 THEN 3720 720 IF A(B)=1 THEN 780 730 IF N$(B)<>"ME" THEN 760 740 PRINT "YOUR TURN" 750 GOTO 820 760 PRINT N$(B3);"'S TURN" 770 GOTO 820 780 PRINT "MY TURN"; 790 IF W7=1 THEN 810 800 PRINT "(PLAYER";B;")"; 810 PR F(B)=F(B)-1 1270 D(B)=0 1280 GOTO 1490 1290 IF D(B)<3 THEN 1320 1300 PRINT "THIRD TIME IN JAIL.";O$;" MUST PAY $50." 1310 GOTO 1480 1320 PRINT "IN JAIL. WILL ";O$;" PAY $50"; 1330 IF A(B)=0 THEN 1410 1340 D(B)=D(B)+1 1350 IF D(B)=3 THEN 1390 136 GOTO 360 210 INPUT N$(Q5) 220 IF N$(Q5)="COMPUTER" THEN 160 230 IF N$(Q5)="YOU" THEN 160 240 IF N$(Q5)<>"WHAT" THEN 260 250 GOTO 330 260 Z7=1 270 FOR O1=1 TO Q5-1 280 IF M$(O1)<>N$(Q5) THEN 310 290 PRINT "NAME IN USE, INPUT ANOTHER" 300 GOTO 120  EFT$(A$,1)="N" THEN 2760 1900 PRINT "YES OR NO"; 1910 GOTO 1870 1920 T(B)= T(B)- C(P(B)) 1930 IF R5=1 THEN 1950 1940 GOTO 1960 1950 W(B)=W(B)+1 1960 IF U=1 THEN 1980 1970 GOTO 1990 1980 U(B)= U(B)+1 1990 V(P(B))= B 2000 U8=0 2010 GOSUB 4260 2070 GOTO 1290 1480 T(B)= T(B)-50 1490 J(B)=0 1500 D(B)=0 1510 P(B)= P(B)+B1+B2 1520 R5=0 1530 U=0 1540 P=P(B) 1550 IF P(B)>40 THEN 1570 1560 GOTO 1610 1570 P(B)= P(B)- 40 1580 P=P(B) 1590 T(B)= T(B)+200 1600 PRINT "PASSED GO!! COLLECTED $2020 GOTO 2760 2030 REM THIS IS RENT ROUTINE 2040 IF R5=0 THEN 2070 2050 R(P(B))= 25* W(V(P(B))) 2060 GOTO 8320 2070 IF U=0 THEN 8320 2080 IF U(B)=2 THEN 2110 2090 U3=4 2100 GOTO 2120 2110 U3=10 2120 GOTO 8310 2130 IF A(W8)=0 THEN 2180 2140 PRINT0 " 1610 IF S(P(B))>10 THEN 1640 1620 GOTO 2290 1630 P=P(B3) 1640 IF V(P(B))>B THEN 2040 1650 REM V(--) IS THE OWNER OF THE PROPERTY 1660 IF V(P(B))0 THEN 2040 1690 GOTO 1760 1700 Y9=P(B) 1710 IF A(B)= P$(W9); " IS MINE"; 2150 IF W7=1 THEN 2190 2160 PRINT "(PLAYER";W8;")"; 2170 GOTO 2190 2180 PRINT P$(W9);" BELONGS TO "; N$(W8); 2190 IF M(P(B))=1 THEN 2240 2200 PRINT ", RENT IS $ "; R(P(B)) 2210 T(B)=T(B)-R(P(B)) 2220 T(V(P))= T(V(P))+ R(P(B)) 0 THEN 1740 1720 PRINT "I AM ON ";P$(P);" WHICH I OWN." 1730 GOTO 2760 1740 PRINT "YOU ARE ON ";P$(Y9); " WHICH YOU OWN " 1750 GOTO 2760 1760 P=P(B3) 1770 IF A(B)=0 THEN 1800 1780 PRINT P$(P);" IS AVAILABLE AT PRICE $";C(P);" WILL I BUY IT"; 1790 2230 GOTO 2760 2240 PRINT " ,BUT IT IS MORTGAGED" 2250 GOTO 2760 2260 P=P(B3) 2270 T(V(P(B)))= T(V(P(B)))+ R(P(B)) 2280 GOTO 2760 2290 ON S(P(B)) GOTO 2760,2370,2420,2490,2600,2630,2670,2310,2710,2740 2300 REM FOR UNIQUE SQUARES IT SENDS THE PROGRAMGOTO 1820 1800 PRINT "WILL YOU BUY ";P$(P);" FOR $";C(P); 1810 IF A(B)=0 THEN 1870 1820 IF T(B)<200 +C(P) THEN 1850 1830 PRINT "? *YES*" 1840 GOTO 1920 1850 PRINT "? *NO*" 1860 GOTO 2760 1870 INPUT A$ 1880 IF LEFT$(A$,1)="Y" THEN 1920 1890 IF L TO THE RIGHT DIRECTION 2310 Y9=P(B) 2320 IF A(B)=0 THEN 2350 2330 PRINT "I AM ON ";P$(Y9);"." 2340 GOTO 2760 2350 PRINT "YOU ARE ON ";P$(Y9) 2360 GOTO 2760 2370 PRINT "COMMUNITY CHEST "; 2380 PRINT "--"; 2390 GOSUB 3750 2400 REM GOES TO CHANCE-C0 IF T(B)>200 THEN 1390 1370 PRINT "? *NO*" 1380 GOTO 2770 1390 PRINT "? *YES*" 1400 GOTO 1480 1410 P(B)=P(B)+1 1420 INPUT A$ 1430 P(B)=10 1440 IF LEFT$(A$,1)="Y" THEN 1480 1450 IF LEFT$(A$,1)="N" THEN 2770 1460 PRINT "TYPE 'YES' OR 'NO'"; 14   2990 GOTO 2850 3000 GOTO 3010 3010 FOR J8=1 TO N 3020 X=0 3030 T0=0 3040 IF Q(J8)=1 THEN 3650 3050 T$=" " 3060 IF A(J8)=1 THEN 3120 3070 IF N$(J8)<>"ME" THEN 3100 3080 PRINT "YOU HAVE $";T(J8); 3090 GOTO 3160 3100 PRINT N$(J8);" HAS $";T(J8); OUNT OF MONEY" 2520 GOTO 2760 2530 IF Z2>200 THEN 2570 2540 T(B)= T(B)-INT(Z2) 2550 PRINT "INCOME TAX--$";INT(Z2) 2560 GOTO 2760 2570 T(B)= T(B)- 200 2580 PRINT "INCOME TAX-$200" 2590 GOTO 2760 2600 T(B)= T(B)-75 2610 PRINT "LUXURY TAX $75" 2620 3110 GOTO 3160 3120 PRINT "I"; 3130 IF W7=1 THEN 3150 3140 PRINT "(PLAYER";J8;")"; 3150 PRINT " HAVE $";T(J8); 3160 FOR J9=1 TO 40 3170 IF V(J9)=J8 THEN 3190 3180 GOTO 3350 3190 IF T$= " " THEN 3210 3200 PRINT ","; T$; 3210 T$= P$(J9) 3220 X=X+ GOTO 2760 2630 J(B)=1 2640 P(B)=10 2650 PRINT "GO TO JAIL" 2660 GOTO 2760 2670 PRINT "FREE PARKING-$";J0;"." 2680 T(B)=T(B)+J0 2690 J0=200 2700 GOTO 2760 2710 R5=1 2720 GOTO 1640 2730 GOTO 2760 2740 U=1 2750 GOTO 1630 2760 IF G(B)>0 THEN 940C(J9)+B(J9)*INT((S(J9)-10)/2+.5)*50 -M(J9)* .5*C(J9) 3230 IF B(T)=0 THEN 3310 3240 IF B(T)>1 THEN 3270 3250 PRINT "(WITH A HOUSE)"; 3260 GOTO 3310 3270 IF B(T)<5 THEN 3300 3280 PRINT "(WITH A HOTEL)"; 3290 GOTO 3310 3300 PRINT "(WITH";B(T);"HOUSES) 2770 PRINT 2780 IF A8=-1 THEN 3000 2790 IF A8=0 THEN 2850 2800 IF A8=5 THEN 2830 2810 A8=A8+1 2820 GOTO 3700 2830 A8=1 2840 GOTO 3000 2850 PRINT "SUMMARY"; 2860 INPUT A$ 2870 IF A$="AUTO" THEN 2890 2880 GOTO 2910 2890 A8=1 2900 GOTO 3700 29"; 3310 IF M(T)=0 THEN 3330 3320 PRINT "(MORTGAGED)"; 3330 T=J9 3340 IF T0=1 THEN 3460 3350 NEXT J9 3360 IF F(J8)>0 THEN 3420 3370 IF T$<>" " THEN 3400 3380 PRINT "." 3390 GOTO 3610 3400 PRINT ", AND ";T$; 3410 GOTO 3440 3420 IF T$=" " THEN 34710 IF A$="ALWAYS" THEN 2930 2920 GOTO 2950 2930 A8=-1 2940 GOTO 3000 2950 IF LEFT$(A$,1)="N" THEN 3700 2960 IF LEFT$(A$,1)="Y" THEN 3000 2970 PRINT "'YES' OR 'NO' OR 'AUTO'( GIVES A SUMMARY EVERY FIVE TURNS" 2980 PRINT "AND DOESN'T ASK YOU ANY MORE"0 3430 PRINT ",";T$; 3440 T0=1 3450 GOTO 3230 3460 T0=0 3470 IF F(J8)=0 THEN 3550 3480 IF F(J8)=1 THEN 3520 3490 PRINT ",AND ";F(J8);"JAILCARDS."; 3500 X=X+F(J8)*50 3510 GOTO 3610 3520 PRINT ",AND A JAILCARD."; 3530 X=X+50 3540 GOTO 3610 3550 OMMUNITY CHEST GOSUB 2410 GOTO 2440 2420 PRINT "CHANCE--"; 2430 GOSUB 3750 2440 IF V0=1 THEN 2460 2450 GOTO 2760 2460 V0=0 2470 R5=1 2480 GOTO 1640 2490 Z2=.1*(T(B)) 2500 IF Z2>0 THEN 2530 2510 PRINT O$;" IS ON INCOME TAX, BUT HAS A NEGATIVE AM  A READING,9,25,200,ORIENTAL,12,6,100,CH,3 4120 DATA VERMONT,12,6,100,CONN.,12,8,120,JAIL,8 4130 DATA ST. CHAS.,13,10,140,ELECTRIC WORKS,10,1,150,STATES 4140 DATA 13,10,140,VIRGINIA,13,12,160,PENNS.RR.,9,25,200 4150 DATA ST.JAMES,14,14,180,CC,2,TENNESSEPRINT 3650 NEXT J8 3660 PRINT " "; 3670 PRINT "$";J0;" ON THE FREE PARKING JACKPOT." 3680 PRINT 3690 PRINT 3700 IF I0=0 THEN 3720 3710 GOTO 590 3720 PRINT 3730 NEXT B3 3740 GOTO 520 3750 J5=INT(RND(1)*7)+1 3760 ON J5 GOTO 3770,3810,3870E,14,14,180 4160 DATA NEW YORK,14,16,200,FP,7,KENTUCKY,15,18,200 4170 DATA CH,3,INDIANA,15,18,220,ILLINOIS,15,20,240 4180 DATA B&O RR,9,25,200 4190 DATA ATLANTIC,16,22,260,VENTNOR 4200 DATA 16,22,260,WATER WORKS,10,1,150,M. GARDENS 4210 DATA 16,24,2,3930,3990,4040,4070 3770 PRINT "GOTO JAIL!!!" 3780 J(B)=1 3790 P(B)=10 3800 GOTO 4090 3810 PRINT "COLLECT $50 FROM EVERYONE" 3820 FOR Y3=1 TO N 3830 T(Y3)= T(Y3)-50 3840 NEXT Y3 3850 T(B)=T(B)+N*50 3860 GOTO 4090 3870 PRINT "GO TO READING" 3880,GOJAIL,6,PACIFIC,17,26,300,N.CAROLINA 4220 DATA 17,26,300,CC,2,PENNS. AVE.,17,28,320 4230 DATA SHORTLINE,9,25,200,CHANCE,3,PARKPLACE,18 4240 DATA 35,350,LT,5,BOARDWALK,18,50,400,GO,8 4250 DATA GO,8 4260 Z=0 4270 Z(3)=0 4280 Z(2)=0 4290 Z(1)=0 480 P(B)=5 3890 P=5 3900 V0=1 3910 REM V0 TELLS THE PROGRAM TO GO TO READING 3920 RETURN 3930 PRINT "PAY ALL $50" 3940 FOR Y4=1 TO N 3950 T(Y4)= T(Y4)+50 3960 NEXT Y4 3970 T(B)=T(B)-N*50 3980 GOTO 4090 3990 Y2=INT(RND(1)*4)+1 4000 PRINT "PAY $"300 IF U8=0 THEN 4340 4310 B9=E9 4320 P=E8 4330 GOTO 4360 4340 B9=B3 4350 P=P(B9) 4360 IF S(P)<11 THEN 4490 4370 IF P>4 THEN 4400 4380 I7=0 4390 GOTO 4410 4400 I7= P-4 4410 IF P>35 THEN 4440 4420 Q1= P+4 4430 GOTO 4450 4440 Q1=40 4450 FOR W1;Y2*50 4010 T(B)=T(B)-Y2*50 4020 J0=J0+Y2*50 4030 GOTO 4090 4040 PRINT "GO DIRECTLY TO GO" 4050 P(B)=40 4060 GOTO 4090 4070 PRINT "TICKET OUT OF JAIL" 4080 F(B)=F(B)+1 4090 RETURN 4100 DATA MEDITERRANEAN,11,2,60,CC,2,BALTIC,11,4,60,IT,4 4110 DAT= I7 TO Q1 4460 IF S(W1) = S(P) THEN 4480 4470 GOTO 4520 4480 IF V(W1)= B9 THEN 4500 4490 RETURN 4500 Z=Z+1 4510 Z(Z)=W1 4520 NEXT W1 4530 E(B9)= E(B9)+1 4540 IF A(B9)=0 THEN 4570 4550 PRINT "I HAVE A MONOPOLY AND THE RENTS ARE DOUBLED" 4560 GOIF T$=" " THEN 3610 3560 K(0)=LEN(T$):FOR XE=1 TO K(0):K(XE)=ASC(MID$(T$,XE,1)):NEXT XE 3570 IF K(K(0))=46 THEN 3600 3580 PRINT "."; 3590 GOTO 3610 3600 GOTO 3610 3610 PRINT 3620 IF X=0 THEN 3640 3630 PRINT " TOTAL ASSETS:$";T(J8)+X;"." 3640    THEN 9370 5150 IF H5>0 THEN 5190 5160 PRINT "A POSITIVE NUMBER PLEASE!" 5170 INPUT H5 5180 GOTO 5150 5190 FOR H=1 TO 40 5200 IF P$(H)= H$ THEN 5250 5210 NEXT H 5220 PRINT "WHAT LOT"; 5230 INPUT H$ 5240 GOTO 5130 5250 IF A(B)=0 THEN 5310 52601=1 TO 40 4690 IF S(I1)= S(B) THEN 4710 4700 GOTO 4750 4710 IF V(I1)= V9 THEN 4730 4720 RETURN 4730 Z=Z+1 4740 Z(Z)=I1 4750 NEXT I1 4760 GOTO 4570 4770 PRINT " DO ";O$;" WANT HOUSES NOW"; 4780 IF A(B9)=0 THEN 4820 4790 IF T(B9)>500 THEN 4880  H5=H4 5270 H=I2 5280 GOTO 5310 5290 PRINT "YOU DON'T OWN THAT" 5300 GOTO 4770 5310 H7=H5+B(H) 5320 GOSUB 5340 5330 GOTO 5590 5340 R(H)=L(H) 5350 IF H7<6 THEN 5390 5360 PRINT " YOU WILL HAVE TO HAVE 5 HOUSES (ONE HOTEL)" 5370 H5=H7-B(H) 5380 H74800 PRINT "? *NO*" 4810 RETURN 4820 INPUT Z$ 4830 IF LEFT$(Z$,1)="N" THEN 4870 4840 IF LEFT$(Z$,1)="Y" THEN 4900 4850 PRINT "YES OR NO"; 4860 GOTO 4820 4870 RETURN 4880 I3=1 4890 GOTO 4920 4900 PRINT "LOT, #OF HOUSES"; 4910 IF A(B)=0 THEN 512=5 5390 IF H7>0 THEN 5420 5400 PRINT "YOU CAN'T HAVE LESS THAN 0 HOUSES." 5410 GOTO 5570 5420 B(H)=0 5430 FOR H6= 1 TO H7 5440 B(H)=H6 5450 J=H 5460 IF B(H)=0 THEN 4870 5470 ON B(H) GOTO 5480,5500,5520,5540,5540 5480 R(J)= R(J)*2.5 5490 GOTO 5550 4920 FOR I2= 1 TO 40 4930 IF V(I2)<>B9 THEN 4990 4940 IF O(I2)=0 THEN 4990 4950 IF B(I2)>4 THEN 4990 4960 GOTO 5050 4970 H=I2 4980 GOTO 5250 4990 NEXT I2 5000 GOTO 5030 5010 IF I3> 5 THEN 5030 5020 GOTO 4920 5030 PRINT "?*NO*" 5040 RETURN 50 5500 R(J)=R(J)*3 5510 GOTO 5550 5520 R(J)= R(J)*2.3 5530 GOTO 5550 5540 R(J)=R(J)+185 5550 R(J)= 10* INT(R(J)/10 +.5) 5560 NEXT H6 5570 PRINT "THE RENT IS NOW $";R(J);"." 5580 RETURN 5590 C=INT((S(J)-10)/2+.5)*50 5600 IF H5=1 THEN 5630 5610 P050 IF T(B)>1700 THEN 5090 5060 IF B(I2)>5-INT(T(B)/350) THEN 5090 5070 H4=INT (T(B)/350) 5080 GOTO 5100 5090 H4= 5-B(I2) 5100 PRINT "?* YES ";H4;" ON ";P$(I2);"*" 5110 GOTO 5260 5120 INPUT H$,H5 5130 IF LEFT$(H$,1)="N" THEN 4870 5140 IF H$="WHAT"RINT "THOSE WERE $";C;"EACH, MAKING $";H5*C;"." 5620 GOTO 5640 5630 PRINT "THAT WAS $";C;"." 5640 T(B9)= T(B9)- H5*C 5650 X(B9)=X(B9)+H5 5660 RETURN 5670 PRINT "ANOTHER"; 5680 GOTO 4780 5690 RETURN 5700 GOTO 4440 5710 PRINT "WHAT DO ";O$;" WANT TTO 4580 4570 PRINT "YOU NOW HAVE MONOPOLY. THE RENTS ARE DOUBLED" 4580 FOR Z2=1 TO 3 4590 R(Z(Z2))= 2*R(Z(Z2)) 4600 O(Z(Z2))=1 4610 NEXT Z2 4620 IF S(Z(1))<11 THEN 4640 4630 GOTO 4650 4640 RETURN 4650 GOSUB 4770 4660 U8=0 4670 RETURN 4680 FOR I  )= B THEN 6290 6280 GOTO 6330 6290 IF M(E0)=0 THEN 6330 6300 PRINT "?*"; P$(E0);"*" 6310 E=E0 6320 GOTO 6480 6330 NEXT E0 6340 PRINT "? *NOTHING*" 6350 GOTO 6590 6360 INPUT Z$ 6370 IF Z$<>"WHAT" THEN 6410 6380 PRINT "TYPE 'NOTHING', A PROPERTY N 5820 Z5=I4 5830 GOTO 6000 5840 NEXT I4 5850 IF I3=1 THEN 5890 5860 PRINT "? *NOTHING*" 5870 RETURN 5880 GOTO 6110 5890 I3=0 5900 GOTO 5750 5910 INPUT Z$ 5920 IF Z$="WHAT" THEN 9400 5930 IF LEFT$(Z$,3)<>"NOT" THEN 5950 5940 RETURN 5950 FOR ZAME, OR 'HOUSES' IF" 6390 PRINT "YOU WANT TO SELL THEM." 6400 GOTO 6360 6410 IF LEFT$(Z$,3)="NOT" THEN 6590 6420 IF Z$="HOUSES" THEN 6600 6430 FOR E=1 TO 40 6440 IF P$(E)=Z$ THEN 6480 6450 NEXT E 6460 PRINT "WHAT"; 6470 GOTO 6360 6480 IF M(E)=1 T5=1 TO 40 5960 IF P$(Z5)=Z$ THEN 6000 5970 NEXT Z5 5980 PRINT "WHAT"; 5990 GOTO 5910 6000 IF B(Z5)>0 THEN 6120 6010 FOR X=1 TO 40 6020 IF S(X)<>S(Z5) THEN 6060 6030 IF B(X)=0 THEN 6060 6040 PRINT "THERE ARE HOUSES ON OTHER LOTS OF MONPOLY. YOU MUHEN 6510 6490 PRINT "IT ISN'T MORTGAGED" 6500 GOTO 6230 6510 IF V(E)=B THEN 6540 6520 PRINT "YOU DON'T OWN IT" 6530 GOTO 6230 6540 M(E)=0 6550 N(B)= N(B)-1 6560 T(B)=T(B)-INT(.6*C(E)) 6570 PRINT "WITH INTEREST THAT WAS$";INT(.6*C(E)) 6580 IF N(B)ST SELL THEM." 6050 GOTO 5710 6060 NEXT X 6070 GOTO 6150 6080 M(Z5)=1 6090 N(B)= N(B)+1 6100 T(B)= T(B)+.5*C(Z5) 6110 GOTO 5710 6120 PRINT "THERE ARE HOUSES ON IT" 6130 GOTO 5710 6140 RETURN 6150 IF V(Z5)>B3 THEN 6200 6160 IF V(Z5)0 THEN 6230 6590 RETURN 6600 PRINT "LOT,# OF HOUSES"; 6610 INPUT Z$,E2 6620 IF E2>0 THEN 6650 6630 PRINT "INPUT A POSITIVE NUMBER" 6640 GOTO 6600 6650 IF Z$="NO" THEN 6110 6660 GOTO 6700 6670 PRINT "TYPE IN THE NAME OF THE LOT THEN THE # OF HOUS0 6170 IF M(Z5)=0 THEN 6190 6180 PRINT "IT ALREADY IS" 6190 GOTO 6080 6200 PRINT " YOU DON'T OWN THAT" 6210 GOTO 5720 6220 RETURN 6230 PRINT "UNMORTGAGE WHAT"; 6240 IF A(B)=0 THEN 6360 6250 IF T(B)<150 THEN 6340 6260 FOR E0= 1 TO 40 6270 IF V(E0ES YOU ARE" 6680 PRINT "SELLING. TO SELL NONE TYPE 'NO'" 6690 GOTO 6600 6700 FOR E3=1 TO 40 6710 IF P$(E3)=Z$ THEN 6760 6720 NEXT E3 6730 PRINT "WHAT LOT"; 6740 INPUT Z$ 6750 GOTO 6650 6760 B(E3)= B(E3)-E2 6770 X(B)=X(B)-E2 6780 IF B(E3)<0 THENO MORTGAGE"; 5720 I3=1 5730 IF A(B)=0 THEN 5910 5740 IF T(B)>150 THEN 5860 5750 FOR I4= 1 TO 40 5760 IF V(I4)=B THEN 5780 5770 GOTO 5840 5780 IF O(I4)= I3 THEN 5840 5790 IF M(I4)=1 THEN 5840 5800 IF B(I4)<>0 THEN 5840 5810 PRINT "? *";P$(I4);"*"  7290 IF Z$="QUIT" THEN 7590 7300 IF Z$="JAIL CARD" THEN 7590 7310 IF Z$="JAILCARD" THEN 7590 7320 IF A$<>"BANK" THEN 7360 7330 GOTO 7590 7340 PRINT " THAT'S ILLEGAL!" 7350 GOTO 7210 7360 FOR E8=1 TO 40 7370 IF P$(E8)= Z$ THEN 7460 7380 NEXT E8 73IF A7=1 THEN 7050 6920 IF E6=0 THEN 6960 6930 E6=E6+1 6940 IF E6<3 THEN 7090 6950 E6=1 6960 PRINT "CHANGES"; 6970 E6=0 6980 INPUT Z$ 6990 IF Z$<>"WHAT" THEN 7020 7000 PRINT "'YES', 'NO','NEVER',OR 'DELAY'( WILL ASK AGAIN IN THREE TURNS"; 7010 GOT90 PRINT "WHAT LOT"; 7400 INPUT Z$ 7410 IF Z$<>"WHAT" THEN 7440 7420 PRINT "TYPE THE PROPERTY NAME OR 'NO'" 7430 GOTO 7400 7440 IF Z$="NO" THEN 6960 7450 GOTO 7360 7460 IF S(E8)<9 THEN 8250 7470 T8=0 7480 IF V(E8)=0 THEN 8270 7490 IF B(E8)>0 THEO 6980 7020 IF Z$= "NEVER" THEN 7040 7030 GOTO 7060 7040 A7=1 7050 RETURN 7060 IF Z$="YES" THEN 7170 7070 IF Z$<>"DELAY" THEN 7110 7080 E6=1 7090 PRINT 7100 RETURN 7110 IF Z$="NO" THEN 7090 7120 PRINT "TYPE 'YES', OR 'NO' IF YOU WANT TO MAKE CHAN 7570 7500 FOR I2= 1 TO 40 7510 IF S(I2)<>S(E8) THEN 7550 7520 IF B(I2)=0 THEN 7550 7530 PRINT "THERE ARE HOUSES ON OTHER LOTS OF MONOPOLY.YOU MUST SELL THEM." 7540 GOTO 6960 7550 NEXT I2 7560 GOTO 7590 7570 PRINT "THERE ARE HOUSES ON IT" 7580 GNGES OR NOT" 7130 PRINT "OR 'DELAY' TO HAVE IT ASK YOU LATER" 7140 GOTO 6960 7150 RETURN 7160 IF T(B9)> 300 THEN 4880 7170 GOTO 7210 7180 REM THIS PART WILL TRANSFERR OWNERSHIP OF A PROPERTY 7190 REM TO SOMEONE ELSE AND TRANSFER SOME MONEY TO 7200 OTO 7210 7590 T8=0 7600 FOR E9= 1 TO N 7610 IF N$(E9)=A$ THEN 7630 7620 GOTO 7640 7630 T8=T8+1 7640 NEXT E9 7650 ON T8+1 GOTO 7770,7860,7660,7660,7660,7660,7660,7660,7660,7660 7660 PRINT "WHICH PLAYER NO.('-1' FOR INSTRUCTIONS)"; 7670 INPUT E9 76REM TO CORRRESPOND 7210 PRINT "('WHAT,A,0' FOR INST.)"; 7220 INPUT Z$,A$,A 7230 IF Z$="NEW PLAYER" THEN 10120 7240 IF A$<>"YOU" THEN 7260 7250 A$="COMPUTER" 7260 IF Z$="NEW PLAYER" THEN 10120 7270 IF Z$="WHAT" THEN 9420 7280 IF Z$= "NO" THEN 8240 80 IF E9>0 THEN 7720 7690 PRINT "TYPE THE PLAYER NO. OF THE PIECE. BECAUSE I" 7700 PRINT "PLAY MORE THAN ONE PLAYER, I MUST KNOW WHICH"; 7710 GOTO 7670 7720 IF E9>N THEN 7660 7730 IF A(E9)=1 THEN 7760 7740 PRINT "I AM NOT ";N$(E9) 7750 GOTO 7660 77 6870 6790 H=E3 6800 H7=B(H) 6810 GOSUB 5340 6820 E4=INT((S(E3)-10)/2+.5)*25 6830 E4=E4*E2 6840 PRINT " YOU GET$";E4 6850 T(B)=T(B)+E4 6860 GOTO 6230 6870 PRINT "YOU DON'T HAVE THAT MANY" 6880 B(E3)=B(E3)+E2 6890 GOTO 6600 6900 GOTO 6230 6910   330 W8=V(P(B)) 8340 GOTO 2130 8350 W8=V(P(B)) 8360 IF T(E9)> 200+ C(E8) THEN 8390 8370 PRINT "I DONT ACCEPT" 8380 GOTO 7170 8390 IF A> 150+C(E8) THEN 8370 8400 PRINT "I ACCEPT" 8410 GOTO 8010 8420 IF O(E8)=1 THEN 8520 8430 IF A>2*C(E8) THEN 590 E9=1 TO N 7880 IF N$(E9)<>A$ THEN 7900 7890 GOTO 7910 7900 NEXT E9 7910 B=E9 7920 IF Z$="JAILCARD" THEN 7830 7930 IF Z$<>"QUIT" THEN 7970 7940 B=E9 7950 GOSUB 9240 7960 GOTO 6960 7970 U5=V(E8) 7980 IF A$="BANK" THEN 8090 7990 IF A(V(E8))=1 THE 8440 IF S(O1)<>S(E8) THEN 8460 8450 IF V(O1)<>E9 THEN 8500 8460 NEXT O1 8470 IF T(V(E8))>200 THEN 8520 8480 IF A9 THEN 8050 8030 W(V(E8))=W(V(E8))-1 8040 W(E9)=W(E9)+1 8050 IF S(E8)<>10 THEN 8080 8060 U(V(E8))=U(V(E8))-1 8070 U(E9)=U(E9)+1 8080 V(E8)= E9 8090 T(E9)= T(E9)-A 8100 IF >1.5*C(E8) THEN 8560 8550 GOTO 8520 8560 PRINT "IT IS A DEAL" 8570 GOTO 8010 8580 PRINT " THIS PROGRAM WILL HANDLE UP TO TEN PLAYERS" 8590 PRINT "OR PIECES. IT WILL DO ALL ROUTINE JOBS SUCH AS" 8600 PRINT "ROLLING THE DICE,MOVING PIECES, AND INFOA$="BANK" THEN 6960 8110 IF O(E8)=1 THEN 8130 8120 GOTO 8210 8130 FOR O9= 1 TO 40 8140 IF S(O9)=S(E8) THEN 8160 8150 GOTO 8180 8160 R(O9)= R(O9)/2 8170 O(O9)=0 8180 NEXT O9 8190 PRINT "NO LONGER A MONOPOLY THERE" 8200 E(U5)= E(U5)-1 8210 U8=1 8RMING THE" 8610 PRINT "PLAYERS OF ALL OPTIONS. IT WILL ACTUALLY" 8620 PRINT "PLAY THE GAME MAKING THE DECISIONS OF ANY NUMBER OF PLAYERS." 8630 PRINT "WANT THE COMPUTER TO DO THIS TYPE 'YOU' WHEN IT ASKS" 8640 PRINT "FOR THE NAME." 8650 PRINT "OF P220 P=E8 8230 GOSUB 4260 8240 GOTO 6960 8250 PRINT " YOU FOOL, YOU CANT OWN ";Z$;"!!!!" 8260 GOTO 7210 8270 PRINT "IT ISN'T OWNED" 8280 GOTO 7210 8290 GOTO 6960 8300 REM THIS BELONGS TO LINES 1049-- 8310 R(P(B))=INT(RND(1)*6+1)*U3 8320 W9=P(B) 8LAYERS. TO DO THIS TYPE 'YOU' AS THE" 8660 PRINT " NAME OF THAT PLAYER." 8670 PRINT 8680 PRINT "THIS PROGRAM IS FAIRLY SELF-EXPLANATORY, HOWEVER THE FOLLOWING" 8690 PRINT "THINGS MUST BE KEPT IN MIND:" 8700 PRINT 8710 PRINT " 1. IF A QUESTION IS NOT 60 GOTO 7860 7770 PRINT "WHO"; 7780 INPUT A$ 7790 IF A$="NO" THEN 8290 7800 IF A$<>"WHAT" THEN 7820 7810 PRINT "TYPE NEW OWNER'S NAME OR 'NO'"; 7820 GOTO 7590 7830 REM THIS IS FOR JAILCARDS 7840 GOSUB 9610 7850 GOTO 6960 7860 GOTO 7870 7870 FOR  ANYTHING. TYPING CONTROL-O" 8930 PRINT "WILL MAKE THE GAME CONTINUE WITHOUT " 8940 PRINT "TYPE OUT, AND CONTROL-C THEN CONT WILL START THE" 8950 PRINT " TYPE OUT AGAIN WITH THE GAME VERY FAR ALONG." 8960 PRINT " 6. TO SELL HOUSES, WAIT UNTIL THE COMHAT ALL INPUTS ARE EITHER NUMERIC OR ALPHABETIC" 8760 PRINT "AS ASKED FOR. EXAMPLE:" 8770 PRINT " LOT, # OF HOUSES? WHAT,0" 8780 PRINT "WILL GIVE INSTRUCTIONS." 8790 PRINT " 2. THE COMPUTER WILL OFTEN ASK IF YOU WANT CHANGES" 8800 PRINT "OPUTER ASKS" 8970 PRINT "UNMORTGAGE WHAT? AND TYPE 'HOUSES' THEN ANSWER" 8980 PRINT "ANSWER FURTHAR QUESTIONS." 8990 RETURN 9000 PRINT 9010 IF N7=1 THEN 9200 9020 IF A(B)=0 THEN 9100 9030 FOR I2= 1 TO N 9040 IF Q(I2)=1 THEN 9060 9050 IF A(I2)=0 R A SUMMARY. THE CHANGES ROUTINE WILL BE DESCRIBED" 8810 PRINT "BELOW, BUT IF YOU DON'T WANT TO BE BOTHERED WIL THE" 8820 PRINT "EVERYTIME, TYPE 'NEVER' TO HAVE IT STOP ASKING" 8830 PRINT "COMPLETELY, OR 'DELAY' TO HAVE IT ASK IN THREE" 8840 PRINT "TURTHEN 9080 9060 NEXT I2 9070 GOTO 9200 9080 PRINT "I AM $";ABS(T(B));"IN THE RED. SHOULD I QUIT"; 9090 GOTO 9110 9100 PRINT "YOU ARE $";ABS(T(B));"IN THE HOLE. WILL YOU QUIT"; 9110 INPUT Z$ 9120 IF LEFT$(Z$,1)="Y" THEN 9240 9130 IF LEFT$(Z$,1)="N" TNS. FOR SUMMARY TYPE 'AUTO' AND IT WILL " 8850 PRINT "GIVE A SUMMARY EVERY 5 TURNS, WITHOUT ASKING YOU AGAIN" 8860 PRINT " 3. TO SELL PROPERTIES OR ADD AND DROP PLAYERS USE THE " 8870 PRINT "CHANGES ROUTINE. TYPE 'YES' WHEN IT ASKS 'CHANGES?'" 8880 PRIHEN 9190 9140 IF LEFT$(Z$,1)="L" THEN 9200 9150 PRINT "TYPE 'YES' TO QUIT OR 'NO' TO KEEP GOING" 9160 PRINT "AND PAYING 5% INTEREST ON THE NEGATIVE AMMOUNT" 9170 PRINT "OR 'LATER' TO NOT QUIT NOW BUT KEEP THE COMPUTER ASKING" 9180 GOTO 9110 9190 N7=1NT "TYPE 'YES' THEN TYPE 'WHAT,A,0' FOR COMPLETE INSTRUCTIONS" 8890 PRINT " 4. FIVE HOUSES ARE EQUIVALENT TO ONE HOTEL." 8900 PRINT " 5. IF YOU TYPE 'YOU' FOR ALL THE NAMES" 8910 PRINT "THE COMPUTER WILL PLAY ITSELF WITHOUT" 8920 PRINT "ASKING YOU FOR  9200 I1=INT(ABS(.05*T(B)+ .5)) 9210 PRINT "5% INTEREST IS $";I1 9220 T(B)= T(B) - I1 9230 RETURN 9240 Q(B)=1 9250 T(B)=0 9260 FOR I2=1 TO 40 9270 IF V(I2)<>B THEN 9330 9280 V(I2)=0 9290 M(I2)=0 9300 B(I2)=0 9310 R(I2)=L(I2) 9320 O(I2)=0 9330UNDERSTOOD,TYPING 'WHAT' WILL" 8720 PRINT "USUALLY GIVE INSTRUCTIONS. HOWEVER SOME QUESTIONS WILL" 8730 PRINT "ASK FOR MORE THAN ONE THING AND THIS NUMBER OF THINGS MUST" 8740 PRINT "BE TYPED SEPERATED BY COMMAS. ALSO CARE MUST BE " 8750 PRINT "TAKEN T  660 INPUT Z$ 9670 IF Z$<>"WHAT" THEN 9710 9680 PRINT "TYPE THE PERSON'S NAME FROM WHOM THE CARD" 9690 PRINT " CAME.";N$(E9);" HAD IT. WHO HAS IT NOW"; 9700 GOTO 9660 9710 IF Z$<>"YOU" THEN 9830 9720 IF W8=1 THEN 9820 9730 PRINT "WHICH #"; 9740 PRINCAN DO SEVERAL THINGS:" 9430 PRINT " 1. TO SELL PROPERTY FROM ONE PERSON TO ANOTHER" 9440 PRINT "TYPE THE PROPERTY NAME,THE NEW OWNER'S NAME, THEN" 9450 PRINT "THE AMOUNT IT IS BEING SOLD FOR." 9460 PRINT " 2. TO SELL A JAILCARD, TYPE 'JAILCARD',THE NET "('0' FOR INST.)"; 9750 INPUT O3 9760 IF O3>0 THEN 9790 9770 PRINT "I AM PLAYING SEVERAL PLAYERS. TYPE NO. OF ONE YOU WANT"; 9780 GOTO 9750 9790 IF O3>N THEN 9770 9800 T0=O3 9810 GOTO 9880 9820 Z$="COMPUTER" 9830 FOR T0= 1 TO 40 9840 IF N$(T0)=W OWNERS" 9470 PRINT "NAME, THEN THE AMOUNT IT IS BEING SOLD FOR." 9480 PRINT "IF NEEDED THE COMPUTER WILL ASK WHO IT CAME FROM." 9490 PRINT " 3. FOR EITHER OF THE ABOVE,'YOU' CAN BE USED AS THE" 9500 PRINT "NEW OWNER'S NAME,OR THE COMPUTERS PROPERTY C Z$ THEN 9880 9850 NEXT T0 9860 PRINT "WHO "; 9870 GOTO 9660 9880 IF A(T0)=0 THEN 9960 9890 IF A>45 THEN 9920 9900 IF A<30 THEN 9940 9910 GOTO 9940 9920 PRINT " OK" 9930 GOTO 10070 9940 PRINT " NO" 9950 RETURN 9960 IF A(E9)=0 THEN 10010 9970 AN BE USES" 9510 PRINT "THE COMPUTER WILL THEN DECIDE IF IT WILL ACCEPT YOUR OFFER," 9520 PRINT "AND TELL YOU IF IT WILL BUY OR SELL." 9530 PRINT " 4. TO ADD A NEW PLAYER TYPE:'NEW PLAYER',HIS NAME,'0'" 9540 PRINT " 5. TO DROP A PLAYER TYPE:'QUIT',HIS IF A>50 THEN 9940 9980 IF F(E9)=1 THEN 9940 9990 IF T(E9)<200 THEN 9940 10000 GOTO 9920 10010 IF F(T0)=1 THEN 9940 10020 IF A(T0)=0 THEN 10050 10030 IF A> 45 THEN 9940 10040 GOTO 10060 10050 PRINT "HE DOESN'T HAVE ONE" 10060 RETURN 10070 F(T0)= FNAME,'0'" 9550 PRINT 9560 GOTO 7210 9570 B=E9 9580 REMARK THIS IS FOR QUITING FORM CHANGE ROUTINE 9590 GOSUB 9240 9600 GOTO 6960 9610 REM THIS IS FOR CHANGING JAILCARDS 9620 IF N<>2 THEN 9650 9630 T0=3-E9 9640 GOTO 9880 9650 PRINT "WHO FROM"; 9(T0)-1 10080 F(E9)=F(E9)+1 10090 T(T0)=T(T0)+A 10100 T(E9)=T(E9)-A 10110 RETURN 10120 REM THIS ALLOWS A NEW PLAYER 10130 IF A$="YOU" THEN 10210 10140 FOR O9=1 TO N 10150 IF N$(O9)=A$ THEN 10180 10160 NEXT O9 10170 GOTO 10210 10180 PRINT "INPUT A NEXT I2 9340 N$(B)=" " 9350 RETURN 9360 GOTO 6360 9370 PRINT "TYPE PROPERTY NAME THEN NUMBER OF HOUSES OR" 9380 PRINT "'NO,0' TO DO NOTHING" 9390 GOTO 5100 9400 PRINT "TYPE A PROPERTY NAME OR 'NOTHING' "; 9410 GOTO 5910 9420 PRINT " THIS ROUTINE   10290 T(N)=1500 10300 IF A$<>"YOU" THEN 10350 10310 N$(N)="COMPUTER" 10320 W7=W7+1 10330 A(N)=1 10340 GOTO 6960 10350 N$(N)=A$ 10360 GOTO 6960 10370 REM THIS IS FOR NEW PLAYER 10380 N$(O9)= A$ 10390 Q(O9)=0 10400 P(O9)=0 10410 T(O9)=1500 10420 IF N$(9)<>"YOU" THEN 10460 10430 N$(O9)="COMPUTER" 10440 W7=W7+1 10450 A(O9)=1 10460 GOTO 6960 10470 END O9)=1500 1042N)=A$ 10360 GOTO 6960 10370 REM THIS IS FOR NEW PLAYER 10380 N$(O9)= A$ 10390 Q(O9)=0 10400 P(O9)=0 10410 T(O9)=1500 1042 NAME NOT ALREADY USED"; 10190 INPUT A$ 10200 GOTO 10140 10210 FOR O9=1 TO N 10220 IF Q(O9)=1 THEN 10370 10230 NEXT O9 10240 IF N<10 THEN 10270 10250 PRINT "TOO MANY PLAYERS. SOMEONE WILL HAVE TO QUIT." 10260 GOTO 6960 10270 N=N+1 10280 Q(N)=0   olc(1X,'I SEE NO MOVE FOR YOU, SO I WILL MOVE IF I CAN')i0lkmi0lkU(46X,'MY MOVE IS : ',A1,I1)Ul(1X,'DO YOU HAVE A MOVE? ') 2o(/,1X,'CONGRATULATIONS, YOU PLAYED WELL AND HAVE WON.',1X,'THANK YOU FOR A FI!:T"!J ~4g:Ho">2>2*2>2aU!N#Fͥ C !y w+y:I3 XUwͪ.> 3U!+~͇BPVE'!C yw+.:F 8a*"C^"]##>2aU:F,N"uT2A:o:Fš ʃaښ{Қ 2FAڤNE GAME.')(/,1X,'YOU PLAYED WELL; HOWEVER, YOUR LUCK WAS BAD AND',1X,'I HAVE WON. THANK YOU FOR A FINE GAME.')(/,1X,'YOU PLAYED WELL AND WE HAVE TIED. I WAS LUCKY.',1X,'THANK YOU FOR A FINE GAME.')(/,1X,'DO YOU WISH TO PLAY AGAIN? ')V!"!"!"[ڵ0ڮ:ڲ<7=:FG!o~6x̾P!^4!~ 2F:>/̀TC!6  6> :ͳ*͋&>2>2:2a2*"* "*""*""A B C D E F G H >YES NO Y N 3a_#*"*)"*!@*"!*s#r*}2*+}!2z*)"*!@*"!d*s#r*}2*+}!2*)"*!@*"!d*s#r*#> >*#> >!"`!"t!"b!"v3a_#*"E':=»;P 'y:=;P'y yѯͳ{y(0_:<ͳ,#!~wA47>':ay>':=ͳm>!b6 #=Nɯ2GYAH!H@!͢N![ͱN!>2 ![ͱN!>2 e!:*c"ici!*i}2 !ͱN͂=!o͢Nso!\ *k}2 ! AH*}=2 ! AH! ͱN<"! A/////////,1X,'"OTHELLO" - DO YOU WISH TO GO FIRST ?',/,1X,'YOU ARE "X" IF YOU ARE FIRST. ') (A3)*c *"i0lkm(46X,'WHAT IS YOUR MOVE ? ')(1X,'EXAMPLE - UPPER LEFT CORNER IS A1 ')(A1,I1)(1X,'MOVE INVALID. PLEASE RE-ENTER. ')! >SAH*"*#"!"*)""*.~#fo*{ozg}2*~#fo*{ozg}!2˜ *#*k{z" ! AH *i#"i!ͱN͂=!o͢N0!ci! !H@!͢N!:!"!"t*c#"ici!:F,uT:$3a'͞H:) 2GCͥ :I3EXUwͪ.!z͇B*=+V+^+͊?:I3qXUwͪ.!z"/͔I=gN*=: 2G > * #> > * ~#fo}=2 ‘!ͱN* >2 ‘8 !AH = ProcO - X ray Name MisusCOMMON Name UsagWrong Number of SubscriptArray Multiply EQUIVALENCEd Wit *k}2 !j!ͱN͂=!o͢No!j**{ozg}=Ɓ2h ! AHà **{ozg}2”  ! AHà n! AH! AH_! A[! >YAH![ͱN!>2![ͱN!>2C? nthin a GrouMultiple EQUIVALENCE of COMMOCOMMON Base LowereNon-COMMON Variable in BLOCK DATEmpty List for Unformatted WRITNon-Integer ExpressioOperand Mode Not Compatible with OperatoMixing of Operand Modes Not AlloweMissing Integer VariablMissing S CompletioIllegal DO NestinIllegal Data ConstanMissin(1X,'I HAVE NO MOVE AND MUST PASS.')" " > ! rO!" * )++* " !* s#r* )++* " !* s#r* #>>n !* s#r!" !" * )" * !@* * ~#fo}2 =!" !tatement Number on FORMAZero Repeat FactoZero Format A B C D E F G H Too DeeSMO(6X,'BOARD POSITION AFTER ',I2,' MOVES',' YOU HAVE ',I2,' PIECES, I HAVE ',I2,/)(24X,' 1 2 3 4 5 6 7 8')tioCode Outpu(24X,A1,2X,8(A1,1X))""`i"*~#fo*~#fo{oz" * )++" * ~#fo"" * * ~#fo"$ *" * "& *$ * "( *& )"* *( !@** * ~#foH@* >2 !", *, #", *" @* ". *, *$ @* "0 *. )" *0 !@* * ~#fo}2 *. )" *0 !@* * ~#fo}g"G!ͱN!I͢NMI*j!H@!I>!I͢NOI*jU!ZAQG!Z>SAH!ZAH!"!"*)"*!@**~#fo##"*))"*!(@*{"*))ͱN*͢N*#> >j*#> >d!"*+"!ZA*)5"2 *. )" *0 !@* * ~#foH@* >2 y* +}2 j* ~#fo#* s#r!" * ~#fo)++* " ~#fo*, * s#r* ~#fo)++* "* ~#fo#** s#r* ~#fo)"4 ++* ~#fo"2 !<@*4 * "6 * *6 s#r* #>>* }2*!Z>SA!"*))"*!(@*{"*!Z>YA*#> >H*#> >."]"_`i"a!*as#r!"c!"e*c)"g*e!@*g*]~#foH@*_>2i*a~#fo#*as#r*e#> >*c#> > €/>]3Uÿ/!~:¼w  ! AH*i}2 A!\ *k}2² W!ͥ**U)"~#fo? "*.~#fo+"k! A! >SAH0!*i#"ici!w ! AH_! A[! >YAH![ͱN!>2w ![ͱN!>2w  `EXxR"Ā? b@ @*"**@*"*)"*!@**~#foH@*͇>2‰*)"*!@**"*ͱN͂=<*s#r* #*{zad1J1^1:*^1/%/1U3a=1XU:7ʔ1!2zaڔ1Ž1/%/*] /]Uaw1XU:=1!2za11/%/:a11U*]:J31ͯ.1:̯.Ŀ.aҧ1>2*Z|1]U>%3U.!2z*|2]U>?3U.!2z2* ͵B:bC2:F2*͊?͵B͵B*Y|w KP2 Program Unit Length Bytes Data Area Length Bytes Subrout IAGO2 FORw[ F80 COMF80 COMA !"#$%&FORLIB REL'()*+,-./0123456 IF(NAH.EQ.OC)SIGN=1.0 DO 10 I=1,NHD I1=NCORNI(I) I2=NCORNJ(I) ines Referenced: Variables: COMMON Length LABELS: Warning(s) Issued Fatal Error(s) Detected :a=*]¿.<27**p͊?%/͊?>+3UR.2IAGO2 REL`KLMNOPQRSTUV`IAGO2 PRNIAGO2 FORw[ 10 B(I1,I2)=SIGN*OC RETURN END ) 146 WRITE(1,147) 147 FORMAT(/////////////////////////) 100 RETURN E [< AGO2 FORRECRPRηFORLIB REL1789:;<=L80 COM6>?@ABCDED4 COM0EFGHIJIAGO2 REL`KLMNOPQRSTUV~ c$` 2RУ. 43&P2 "kx)ȉ3 84kS,:eD8dF@&&ND SUBROUTINE HANDI(B,NHD,NAH,OC) P=IAGO2 8?COMMAND ERRO?FILE NOT FOUN?CAN'T ENTER FIL~ͫ<#O9!9j9!-9j9!=9O9Ë9"3*+++"=3*3:G32@3*=3+<:8 ʋ92K32C/#~3U+~3U:G+~f.±/"">!rO*~#fo)++"*~#fo"**~#fo"*)"*!@**" *ͱN͂=<* s#r*~#fo)++*~#fo"!" *~#fo)"* !<@**~#fo" )++"*~#fo"**~#fo"!"*#"*  ::L3<*3|=̏>#"33w:3<ʽ#"66<6>3= ?!=>!>?_!K3 0? .?<.?~=w4{ E?> 3>~7?H?7ȷ!~?O9@@o?> ͫ:x:͔:R7͔:> j;6 #=b;y.2?3 <3xڂ;ʏ;͔<Ã;y/y͔2X:*]*p*2$:* V+^+͊?:a*N@*7$ s#r#=2@:!$=ʔ@=~w@z@ʔ@!ڊ@ͣ@ړ@++ͣ@7͊?"p"3͔*ͫ< 8> ͫ<:8!8"9o>g6 #> w~# ʔ< ʔ<]V+^s#r*@"@"@"@"y@"{^#V#>!>!>&2;y*Ay~A0G:;=AAx=@=@~Ax@@~A2o:2>&! WA>&NO*- WA2:;`eT2F2o!gA"^:;2U:F( ! ͳ!k ''LD:ʞA ! <#"9_*9+~ #+<#"9+~7ȷ> ͫ<> ë<4!"4!m3:C3 =3!"3!L3:E3<=~<=^=& !z B+++A*:¸\ͳ>_:F.Ay.AAy*A2oA!>))FB =>BɯogG:I3•B:C3ʕB!x#sB~#jBdBXUwͪ.1UzÕBG:I3•Bxf.G*#"K:m3<ʕ=!>> 3>> 3>>3>*44m3 >4m3Ì=:E3ʢ::L3=>͚>*33L3 >3L3Ì=|}>ƀ)`ij>> 3>> 3>> 3>:C3ʢ::m3<ʪ<?*4|b>#"44w4!m3>^? =j>!3>!L3j>:E3xGK £B*****KA>             32I32H32F32E32J3<2D3[9ů2<3:3Ͷ:3 9>2<3!L3ͪ:> 232323y,2E39:<32E3:3Ͷ:3:32B3 2A3::<3@2<3!m3ͪ:y=7: 7Ͷ:3F: 7!3ͪ::<3!L3܊:!m3܊::C3p::A3p::B32C3A=<<*=3##:D32@3G3 ~¤::w#   "!***@**"#**!***@* *"%**#*)" **%*!@* **~#foH@*>2*-*!*#"!***@**"#**!***@* *"%**#*)" **%*!@* **~#foH@*>2*.*#*)" **%*!@* **~#foH@*͇>2*d/Z.****{ozg"'##|+++D}/+RB °Dù>SIqFù=*ʉD!~*ExE+E:D>k''C'BÇE*G*'*D:{I*C'2ZF+~9Ex==ʞH==*O)w)+&)wH*G*)FEx=""> !rO!"*!*s#r*~#fo}2*l9!"***)++" **~#fo"** **** ***{ozg")**'*)" **)*!@* **~#fo}2*d/**)++*" *~#fo* *s#rt/**#**{z-**#*~#fo{z*!"*!"+***)++" **~#fo"** **~#fo" *!"*!"-*!"**-*)" ***!@* *"*"/****~#fo*/*s#~#fo" ***}2***+++}!*2*Ÿ,* *}2** *+++}!*2*Ÿ,* *+++}2***+++}!*2*ʕ+!"** *}2***+++}!*2*+!"** *}2***}!*2*+!"** *+r**#> >/*-*#> >/!"1*!"***)" *(~#fo"3** * )~#fo"5***)++"**"/****~#fo*5*{ozg}2**/*~#fo*3*{ozg}!*2*¥0**"1***#>>$0*"9**";**"?**"A**"C*7****ͱN͂=!I*͢N*"M**"W**"Y*M++}2***}!*2*/,!"***)" *=)~#fo"** *E)~#fo"***)"***!@***~#fo}2*ʟ,**)++*" *~#fo* *s#r**}2***++}!*2*-* *}2** *++}!*2*-**#"***I*!\ *E*}2*=1**)++*" *~#fod* *s#r8!"*!"-*!"**-*)" ***!@* *"*e"/***~#fo*/*s#r**#> >L1*-*#> >F1*ͱN͂=!I*͢N*"c**"e*a*'!k'*1*}2*2!"**1*)" *(~#fo"o** *M(~#fo"q**o*)"*)++*" *~#fo<* *s#r**}?2***+++}=Ɓ!*2*—-* *}?2** *+++}=Ɓ!*2*—-**)++*" *~#fo * *s#rt/**)++*~#fo"*!"***)" ***!<@* **~#fo"*)++"**~#fo"****~#fo"*!"!**!*#**q*!@***~#foH@*͇>2*‡2*1*)" *(~#fo"s** *}(~#fo"u*)"**s*!@***~#fo}2*ʇ2!Z"+***)" ** *!@* *e~#foH@*>2*2**)++*" *~#fo* *s#r!"**ͱN͂=!I*͢Nw*I*!{j*w*}=   *>sI/O ~͇B=#D>!c~#*r+sxRB͇BÇB>RB>RB>oRB>RB>RB>gRBʞH)GG:=™F:=EʜE:=FF=D2xD*KB|D- ҾDM>#ðD#  " *~#fo* *s#r*y*#*E*{z7**+}=Ɓ2*8* ***{ozg}2*****{ozg}!*2*8!"y***)" ***!@* *"**y*!@**~#foH@*>2*8**)++*" *~#fo* *s#r*y*#*E*{zt8*-*#>>V7**#*~#fo2*4!"o*!"!**!*#"!**o*)++" **~#fo*!*@*}*"** **~#fo*!*@**"***)"***!@**e~#fo}2*5**)" ***!@* *e~#fo}2*5**)" ***!@* *e~#foH@*>2*4*o*#>> 4**#> >{z/!"*!"***)++*~#fo**{ozg}2*X9**)++*~#fo"****s#r**#*~#fo{z9g9B(1X,'DO YOU WISH TO BE GIVEN A HANDICAP? ')*(A3)S(1X,'DO YOU WISH TO GIVE ME A HANDICAP? '))(1X,'HOW MANY CORNERS? (1-4) ')(I1)93*}*#> >3*"**"**"***!{\ **}2*5!"}**}*)M)" *~#fo}2** *~#fo++}!*2*5*}*)u)" *~#fo}2** *~#fo++}!*2*55*}*#**{zD5**)++*" *~#foB* *s#r**#*E*{z@1*9XU(/////////////////////////)"n9"p9>!r9rO!*t9s#rv9!YAH!9ͱN*r9>29;!*r9"9!9ͱN*9>29;9!YAH!*r9"9!9ͱN*9>29;! *r9"9!9ͱN*9>29;*n9ͱN͂=*+}2*S7!"-**-*)" *(~#fo"** * )~#fo"** ***{ozg}2*****{ozg}!*2*7**)" ***!@* **~#foH@*͇>2*7!"y***)" ***!@* *"**y*!@**~#foH@*>2*7**)++*" *<"99!SAH*t9~#fo}=29*t9~#fo+}!929;*n9"99*t9*p9.<<<*p9;*n9ͱN<"99!SAH*t9~#fo}=29*t9~#fo+}!929—;*n9"::*t9*p9.<:!>6**)++*" *~#fo*+*{ozg* *s#r!"-**-*)" *=)~#fo"** *E)~#fo"***)"***!@***~#fo}2*8!"y***)" ***!@* *"**y*!@**~#foH@*>2*8**)++*H7X*|  V:GVͳ"<" <>! 2#!=<͏U2**3**)++*" *~#fo8* *s#r8!"y*!"{**y*)" **{*!@* *"***!@**"/**{*!@* *e~#fo*/*s#r*{*#> >33*y*#> >-3!"}*!"**}*)" ***!@* *e~#fo}2*4*}*)" ***!@* *e~#foH@*>  "W"W7B!W>rO*W~#Bgo"W*W~#-Bgo"W*W~#fo"W2W2W2W2W2W2Wgo"W"VbN*W|oB͆K*W"W(J͏U2V2V<2W:W>tH9NEB “B> LwÆB:W/L=B:WGILB!>͏U>2W!#>\> AogH@Í> }}{(qnz ANo?\>o? A~#ͱN=xl?N͍>g>Z@Ê>NN:WʺNҝ>/<@N@gNO!W>~_#~W#~O2A#4!A.dO2AG~_#~W#~Oܴ@Ï@Z@>NN>OÍ>!?> 2W!PWWw# C:W7C:VO:V2W*V *VUCy2V"V:VO>2W*V*V UCy2V3C:WG:W=ҕC:WC:W2V>tH*VUC>tH:V2W*VUCw# YC*V+"V|UC<ڵC>G!V60#GN!W4:W0wEL»C"W~:C w+Cw!V|D}D!A"W!US"W!E "W2?*V6 ͷVT7VW~#(?!W ~ͨV#7?!?> 2W!ST"W!OP"W! "W2?7VZ@l?NʽNN?y+F+F+Fw`h|ʹ?gyҝ?:WO|g}oxG-|‘?}Œ?Ï@ElaOË?!W~Gx?ƀ@w@w+ɷ!A@Nx{ҽN!W6Awg?z? >W4#"W|/W}/_*W"W>2W:WFbM:WG:W6Dx2 WͭC:WED2W͆I:WfD0I! W5wD2W͏@/))@ =@go"W"W!W~7w?W/"E*W"W!"WaI!W4E*W"WaI"E:WFbM:W)D!W/<)Dw!W~w2W!W~w<2WD2W2W>2W IjE*W*WDM*WE+|E"W"WOL*W*WFI*W#"W*W+"W|#£EOL!W:VO5E:VEE*V ~ 2W!Vq>E> EEE !W4E##wy7O*W*W"W"W:A͏UJ!Wqx!WDAF#~怩OúN 4%A#:>hA>hA>hA>2Ẅ́O͘O~#fo"W͘O"V*W"V:WʓACyAKyA͏U>2W2W<2WA>2WA2W2W2W2W~#fo"W!W"V~#+A!"W!9##"QA:W Bgo"W:WI@F:WF͏U!W$F͏U)F#F:W:M*W|/g}/o#"W:M>2V!W:WZF:WZF:Ww~/2WbM:WN/=N!W6Ag>NO|Ժ@>O!W~+>wNQYúN@N:W=h= A?Ɓ=@>!=\>Js?QYúNN@!A|Yt&wz^Pc|u~r1ͺN  K!W~w+ L!WLLW!Ww#(L6 !W~w#;L4LGL͆K"WlL,OL/ʴJ)ʁJ' JPzL:W2WOL|L͏U!"W2W!MʣL# ”L͏UyO!&M:WʳL!M ^#V"WyL*W"W!"W͆KL͏U}2W2Wy L:W.M͆K*W}2W*W+"Ww#wHB!W:WwGE H:W2WHFF2WE@H:M!W~TH>T>Fw> #w#w#wB> nH> nH>O}2WO!N:WҙAʙA=_^#V ^#VHڪH*W|¶H͏U*W|¶H͏U*QA!WWw#H!WWH:W!VwʹJ:W>tH!W~ Ix8HG@WJ͏UXH(AILEFGDNrEJB/G#H/G/G/G/G#NEJBFIHDD(ED:WG*VWLMWw#LM"V*W|OLJ!W~Mx2Vw:W=ʋM=ʋM+>2W>wâM!W~M/W+~/_s#r>2W7NH!V~wMMGNæMM!WWHGNҦM!WWH!W4/GK+¢M2V!Ww#M!W4>GGLHI4L Ix|CI*I3Iw!W5KͽHKB:V<2V!RV6P#6#"V6 :N=G!Ow#‚N2NT TQTTTT+P+P+P+P+PNs#r#q#pNNͽNN"W`i"W*W*WDM^#V#N#F#xyN:W:W7LͽHLBͽHLJ!W~4J͏U *W"W*W"WOL!"W*W*W:WWJ~'HJEw#5J#~';J"WOL~'nJGI*W#"W#WJ*W#"W#~']JOL:W=J!W4*W"WK2WOL*W+"W|OL*W"W!W4OL!V6:WJ:WJ:VJ<*V6 2VM:V2V:WJ>2VxK2VOL!W~KLBOLLL!W4|/G}/O!>5O 4O7>{_zW}o|g=+O|g}o]OCZQPO o-yOzW{_xG`O`iN#F#q#p#=uO2V"W"W`i"V2V:VҭO!W_O:V*VO_~#fo:V<2VW:VO>L33B> PZ-KqBUVTs>L33wK*V+"V|K:W´J*W|OL+"W:W2W2W2W2Vgo"W"W"W"W:W!Ww:WXK4*W:WG*VWjKW~#jK"VTK:WtH!"Vɯ2Vgo"W*W*W~# ʗK-®KV ×K"W2WG0K K*WT])))_ÌK*W|K#x:VKo>g"W|x!W~w+ KB PZ-KpBUVTs>L33WFORTDATÙAReR@RRR(PQ!O:W_~!P:W_^#V2P2P9PuQ@~Q:W_!O6*5VS|…P}ʈP"P"5VEP*W|ʚP+)|! w#w#£PdQ2T00+G:+G02W>ɯ2W2WH-FG>2WKG+NGH:M!V5!W4G:W.sG>2W2WG:WFEʃGDˆGH+ʗG-œG>2VHy2W!V5!W4GGOx ڿG͏U> GêG:VxG/<2WG!W~wFG:WGͽH4L4LB4L:W!  EISBEINOVCNGLGSSNA2IODTBIRCEFB2V2V!4V"5V*+`iQV!?V*5V>2W> ͨV> ͨVP 3B> PZ-K8BUVTs>L33B> PZ-K7BUVTs>L33B> PZ-K6BUVTTV_*V~ V#~"V RV!SV^#6 #> ͨVwB> PZ-K3BUVTs>w9P@QɯTP(w*V*V&.Rw#%REP77TP8w*VEP>2V?ɯTP2P:V*V~~4w:V~+ʨR1šR> gSèR0> gS> gS#=ʶR~gSèR> gS:P7:PR9PĜS9P2P<2P7TP w2V2P+S S)S*L33B> P-K2BUVTs>L33B> PZ-K1BUVTs>L33B> PZ-K0BUVTs>L33B> PZ-K/BUVTs>L33B> PZ-K.BUVT8>L33B> PZ-K-BUVTs>L33B> PZ-K,BUVTs>L33B> PZ-K+BUVTs>L33B`=?@|V&*Vw"V S}R͏U:P?ɷ!O:W_~NS5!O/Ɓ_#>W2TEP2P>w7!O:W_~S4!O_#>WɇS> gS> gS>gS!O:W_~6?To&S6#<ôS+2TEP2P9Pww!O~{2WQ{ S~ (P2WbN9PuQEP w  T#wT:W_!N+Pp+q?T:W_!O^#VTTTTTT_T:NTʞT> TT2NT:NT*OT> T> T*5VsT|–T}ʙT"OT"5VÙA:NTT:V*V=> T~+T1T> TT> T~0T> T#~#T=T_>2NT͆TU1 REM Revised by Jim Woolley, FOG Librarian, 7/82 100 PRINT:PRINT:PRINT:PRINT "HELLO. WHAT IS YOUR NAME";:INPUT N$ 110 PRINT "HI ";N$;". THIS IS THE GAME KNOWN AS HANGMAN." 115 PRINT "DO YOU KNOW "; 120 PRINT "HOW TO PLAY";:INPUT Y$ 130 IF Y$=@UUU U U UÙA2VͷV U*V&*Vw"V }U͏U:V*V=> ͨV~+wU1bU> ͨVwU> ͨV~ wU0wU> ͨV#~#ͨV=yUs>L33B~#O!U ^#V"U!U6 #6 #6*#6*###6*#6*#6 #6 !U ~ͨV#U:V<2V7V7VIDF0MPIRFWITEXDOMLDZLGSQIBTLOBD"YES" THEN 210 140 IF Y$ ="NO" THEN 160 150 PRINT "JUST A YES OR NO WILL DO FINE HERE. ";:INPUT Y$:GOTO 130 160 PRINT "I THINK OF A WORD, AND YOU GUESS THE LETTERS" 170 PRINT "IN THE WORD. YOU HAVE 10 GUESSES. IF YOU GUESS" 180 PRINT "THE COw2P*W}[Q+)LEP! y3QRQw7\P! ~<_Q9P_Q*W+}<_Q)yEP! !Q~P2T9P67TP*P!O:WO s#r!EPr+s6#Pw#œQ:WG 1wx ڵQ0#w> #w##Pw#Qw"P>wT] 69P(P6QSEP2T!   1240 720 FOR K=1 TO A 730 IF G1$=G$(K) THEN 890 740 NEXT K 750 FOR L=1 TO N 760 IF G1$>G1$ THEN 950 920 C$(L)=G1$ 930 G$(L)="=,$*):" 940 N1=N1+1 950 NEXT L 960 GOSUB 1000 9T L$ 310 W7$="IES" 320 L7$="S." 330 H(0)=1 340 RESTORE 350 FOR I=1 TO 10: READ F(I):NEXT 360 FOR I=1 TO 10: READ O$(I):NEXT 370 READ N9 380 LET N=0 390 Q=0 400 N2 = 0 410 FOR J = 1 TO 20 420 Q$(J) = " " 430 NEXT J 440 I=IN70 IF N1=A THEN 1240 980 IF X=0 THEN 1200 990 GOTO 600 1000 V=LEN(G1$) 1010 IF V<1 THEN 1140 1020 N = N + 1 1030 LET B(N)=ASC(G1$) 1040 B$(N)=G1$ 1050 FOR I=1 TO N-1 1060 IF B(N-I+1)>=B(N-I) THEN 1130 1070 G1$=B$(N-I) 1080 B$(T(N9*RND(1)+1) 450 FOR J=1 TO I 460 READ A$ 470 NEXT J 480 A=LEN(A$) 490 FOR I = 1 TO A 500 G$(I)=MID$(A$,I,1) 510 W$(I)=G$(I) 520 NEXT I 530 A=LEN(A$) 540 FOR J=1 TO 20 550 C$(J)="-" 560 NEXT J 570 X=10 580 N=1 590 N1=0 N-I)=B$(N-I+1) 1090 B$(N-I+1)=G1$ 1100 A5=B(N-I) 1110 B(N-I)=B(N-I+1) 1120 B(N-I+1)=A5 1130 NEXT I 1140 PRINT "YOU HAVE USED "; 1150 FOR L=1 TO N 1160 PRINT B$(L); 1170 NEXT L 1180 PRINT ". "; 1190 RETURN 1200 PRINT "YOU HAVE BEE 600 REM DON'T PRINT GUESSES 610 IF Q=1 THEN 670 620 PRINT "THE WORD IS "; 630 FOR J=1 TO A 640 PRINT C$(J);" "; 650 NEXT J 660 PRINT L$ 670 Q=0 680 PRINT "GUESS"; 690 INPUT G1$ 700 IF G1$="*" THEN 1260 710 IF G1$=A$ THEN N HUNG!" 1210 L8=L8+1 1220 GOSUB 1440 1230 GOTO 1260 1240 PRINT "YOU WIN" 1250 W8=W8+1 1260 PRINT "THE WORD WAS "; 1270 FOR J=1 TO A 1280 PRINT W$(J); 1290 NEXT J 1300 REM 1310 PRINT:PRINT "DO YOU WANT TO TRY ANOTHER WORD ";N$;"." 1RRECT WORD, YOU WIN. IF NOT, YOU HANG." 190 PRINT "CORRECT LETTER GUESSES WILL NOT AFFECT YOUR" 200 PRINT "COUNTER. YOU MAY SURRENDER AT ANY TIME BY" 205 PRINT "TYPING IN AN ASTERISK (*). WE ARE NOW READY" 206 PRINT "TO BEGIN." 210 PRINT "THIS IS T   DATA LECTURE,FIGURE,CHUCKLE,TRAVEL,SLEEP,WHILE: 1730 DATA DEPEND,BERTH,PRIVATE,SCHOOL,SECTION,CUSHION: 1740 DATA MATTRESS,PILLOW,SKILLFULL,GARDENIA,TRAIN,CONVERTIBLE: 1750 DATA ROADSTER,CANVAS,ALASKA,FLAG,SOURDOUGH,BRILLIANT: 1760 DATA LYNCH,XYLO";L7$ 1410 IF W8>0 THEN 1420 1420 PRINT "THANKS FOR PLAYING HANGMAN." 1430 END 1440 IF X>0 THEN 1570 1450 PRINT "-----" 1460 PRINT "I I" 1470 FOR I = 1 TO 4 1480 PRINT "I "; 1490 FOR J = 1 TO 5 1500 PRINT Q$(5*(I-1)+J); 1510 NPHONE,WHICH,CZAR,JAMB,JAZZ: 1770 DATA QUIZ,FLY,WEPT,BRISK,ACRE,BANK: 1780 DATA LINK,DREW,STARRY,GRAVY,HARK,IRK: 1790 DATA LARK,MILK,NASTY,ORANGE,SINK,TRAWL: 1800 DATA UNCLE,VAST,WAND,YAWN,DIFFICULTY,CAMP: 1810 DATA COMPLICATE,DEDICATE,LAUGHTER,HEAEXT J 1520 PRINT L$ 1530 NEXT I 1540 PRINT "I" 1550 PRINT "--------" 1560 RETURN 1570 PRINT "YOU HAVE ";X;" MORE GUESSES." 1580 RETURN 1590 DATA 3,8,14,12,7,9,16,20,1,5 1600 DATA "0","I","\","/","-","-","-","-","\","/" 1610 DRTY,CLEVER,HARNESS: 1820 DATA PRIMITIVE,SLEPT,HARMONICA,HARP,PIANO,CISTERN: 1830 DATA COMMAND,OPPORTUNITY,LAP,CAN,WEPT,CREEP: 1840 DATA PITY,TEXTURE,RAGGED,WRING,PNEUMONIA,HEM: 1850 DATA MUMMY,DESPERATE,PATHETIC,FLING,SIMULTANEOUS,DIAMOND: ATA 180 1620 DATA BATTLE,CATTLE,PENNY,SUDDEN,ARMY,CASTLE: 1630 DATA SHELTER,WELCOME,BETWEEN,BUCKET,FINISH,STABLE: 1640 DATA QUIET,IDEA,VIOLIN,USUAL,MAID,MAIN: 1650 DATA PAID,TRAIL,GATE,HATE,SAFE,SHADE: 1660 DATA STATE,TRADE,WAVE,STAGE,GAY,NEI1860 DATA FANCY,QUICK,DUCK,LIE,TEASPOON,WARP: 1870 DATA VOWEL,LOCOMOTIVE,IT,FANCY,APOLOGY,CANNIBAL: 1880 DATA LOWLY,LLAMA,TERRITORY,KANGAROO,ROTATE,TRACK: 1890 DATA ALTER,LIVELY,CONGRATULATE,GENIUS,IDEA,BUSINESS: 1900 DATA GIRAFFE,MAMMAL,HIPGHBOR: 1670 DATA LAZY,PARADE,BEAT,CREAM,TEAM,DREAM: 1680 DATA LEAST,LEAD,LEAF,SPEAK,STREAM,CREEK: 1690 DATA KNEE,SEEK,NIECE,SECRET,MACHINE,POLICE: 1700 DATA FLIGHT,JET,TOP,SUCKS,SHOOTS,GAS: 1710 DATA YELLOW,AUNT,SNAIL,ODD,BLADES,PERSUADE: 1720POPOTAMUS,CATSUP,CACKLE,VACUUM: 1910 DATA NECK,HANGMAN,LASER,FOOTBALL,TELEPHONE,ENVY: S: 1900 DATA GIRAFFE,MAMMAL,HIPA,TERRITORY,KANGAROO,ROTATE,TRACK: 1890 DATA ALTER,LIVELY,CONGRATULATE,GENIUS,IDEA,BUSINESS: 1900 DATA GIRAFFE,MAMMAL,HIP320 INPUT T$ 1330 IF T$="YES" THEN 340 1340 PRINT L$ 1350 IF W8<>1 THEN 1370 1360 W7$="Y" 1370 IF L8<>1 THEN 1390 1380 L7$="." 1390 PRINT "WELL ";N$;" YOU RETIRE WITH A RECORD OF" 1395 PRINT W8;"VICTOR";W7$;" AND"; 1400 PRINT L8;"DEFEAT  HE AVERAGE VOCABULARY GAME.":PRINT:PRINT 220 DIM V(20) 230 DIM B(20) 240 DIM C$(20),G$(20),B$(40) 250 DIM F(10),O$(10),Q$(20) 260 DIM A(20),H(1) 270 DIM W$(20) 275 RANDOMIZE 280 PRINT "LET'S PLAY HANGMAN." 290 GOSUB 1450 300 PRINT L$ 310 W7$="IES" 320 L7$="S." 330 H(0)=1 340 RESTORE 350 FOR I=1 TO 10: READ F(I):NEXT 360 FOR I=1 TO 10: READ O$(I):NEXT 370 READ N9 380 LET N=0 390 Q=0 400 N2 = 0 410 FOR J = 1 TO 20 420 Q$(J) = " " 430 NEXT J 440 I=INT(1 REM Revised by Jim Woolley, FOG Librarian, 7/82 100 PRINT:PRINT:PRINT:PRINT "HELLO. WHAT IS YOUR NAME";:INPUT N$ 110 PRINT "HI ";N$;". THIS IS THE GAME KNOWN AS HANGMAN." 115 PRINT "DO YOU KNOW "; 120 PRINT "HOW TO PLAY";:INPUT Y$ 130 IF Y$=N9*RND(1)+1) 450 FOR J=1 TO I 460 READ A$ 470 NEXT J 480 A=LEN(A$) 490 FOR I = 1 TO A 500 G$(I)=MID$(A$,I,1) 510 W$(I)=G$(I) 520 NEXT I 530 A=LEN(A$) 540 FOR J=1 TO 20 550 C$(J)="-" 560 NEXT J 570 X=10 580 N=1 590 N1=0 "YES" THEN 210 140 IF Y$ ="NO" THEN 160 150 PRINT "JUST A YES OR NO WILL DO FINE HERE. ";:INPUT Y$:GOTO 130 160 PRINT "I THINK OF A WORD, AND YOU GUESS THE LETTERS" 170 PRINT "IN THE WORD. YOU HAVE 10 GUESSES. IF YOU GUESS" 180 PRINT "THE CO 600 REM DON"T PRINT GUESSES 610 IF Q=1 THEN 670 620 PRINT "THE WORD IS "; 630 FOR J=1 TO A 640 PRINT C$(J);" "; 650 NEXT J 660 PRINT L$ 670 Q=0 680 PRINT "GUESS"; 690 INPUT G1$ 700 IF G1$="*" THEN 1260 710 IF G1$=A$ THEN 12RRECT WORD, YOU WIN. IF NOT, YOU HANG." 190 PRINT "CORRECT LETTER GUESSES WILL NOT AFFECT YOUR" 200 PRINT "COUNTER. YOU MAY SURRENDER AT ANY TIME BY" 205 PRINT "TYPING IN AN ASTERISK (*). WE ARE NOW READY" 206 PRINT "TO BEGIN." 210 PRINT "THIS IS T40 720 FOR K=1 TO A 730 IF G1$=G$(K) THEN 890 740 NEXT K 750 FOR L=1 TO N 760 IF G1$>0 THEN 1420 1420 PRINT "THANKS FOR PLAYING HANGMAN." 1430 END 1440 IF X>0 THEN 1570 1450 PRINT "-----" 1460 PRINT "I I" 1470 FOR I = 1 TO 4 1480 PRINT "I "; 1490 FOR J = 1 TO 5 1500 PRINT Q$(5*(I-1)+J); 1510  IF N1=A THEN 1240 980 IF X=0 THEN 1200 990 GOTO 600 1000 V=LEN(G1$) 1010 IF V<1 THEN 1140 1020 N = N + 1 1030 LET B(N)=ASC(G1$) 1040 B$(N)=G1$ 1050 FOR I=1 TO N-1 1060 IF B(N-I+1)>=B(N-I) THEN 1130 1070 G1$=B$(N-I) 1080 B$(N-NEXT J 1520 PRINT L$ 1530 NEXT I 1540 PRINT "I" 1550 PRINT "--------" 1560 RETURN 1570 PRINT "YOU HAVE ";X;" MORE GUESSES." 1580 RETURN 1590 DATA 3,8,14,12,7,9,16,20,1,5 1600 DATA "0","I","\","/","-","-","-","-","\","/" 1610 I)=B$(N-I+1) 1090 B$(N-I+1)=G1$ 1100 A5=B(N-I) 1110 B(N-I)=B(N-I+1) 1120 B(N-I+1)=A5 1130 NEXT I 1140 PRINT "YOU HAVE USED "; 1150 FOR L=1 TO N 1160 PRINT B$(L); 1170 NEXT L 1180 PRINT ". "; 1190 RETURN 1200 PRINT "YOU HAVE BEEN DATA 180 1620 DATA ABATE,ABERRATION,ABET,ABEYANCE,ABSTEMIOUS,ABSTRUSE: 1630 DATA ACRIMONIOUS,ACUMEN,ADAMANT,AESTHETIC,AFFABLE,AGGRAVATE: 1640 DATA AGNOSTIC,ALACRITY,ALLEGORY,ALLEVIATE,ALTERCATION,ALTRUISTIC: 1650 DATA AMITY,ANACHRONISM,ANALHUNG!" 1210 L8=L8+1 1220 GOSUB 1440 1230 GOTO 1260 1240 PRINT "YOU WIN" 1250 W8=W8+1 1260 PRINT "THE WORD WAS "; 1270 FOR J=1 TO A 1280 PRINT W$(J); 1290 NEXT J 1300 REM 1310 PRINT:PRINT "DO YOU WANT TO TRY ANOTHER WORD ";N$;"." 132OGY,ANATHEMA,APATHY,APOSTATE: 1660 DATA APT,ARBITRARY,ASCETIC,ASKANCE,ASKEW,ASPERITY: 1670 DATA ASSIDUOUS,ASSUAGE,ATAVISM,AUGMENT,AUSPICIOUS,AUSTERE: 1680 DATA AUTHENTIC,AVARICE,AVERSE,AVID,BANAL,BELLICOSE: 1690 DATA BENIGN,BIGOTED,BUCOLIC,BUM0 INPUT T$ 1330 IF T$="YES" THEN 340 1340 PRINT L$ 1350 IF W8<>1 THEN 1370 1360 W7$="Y" 1370 IF L8<>1 THEN 1390 1380 L7$="." 1390 PRINT "WELL ";N$;" YOU RETIRE WITH A RECORD OF" 1395 PRINT W8;"VICTOR";W7$;" AND"; 1400 PRINT L8;"DEFEAT"PTIOUS,CADAVEROUS,CAJOLE: 1700 DATA CALLOUS,CALUMNY,CANDID,CANINE,CANTANKEROUS,CAPRICIOUS: 1710 DATA CAPTIOUS,CAUSTIC,CHARLATAN,CHASTISE,CHIMERICAL,CIRCUMSPECT: 1720 DATA CIRCUMVENT,CITE,CLANDESTINE,CLEMENT,COERCE,COGENT: 1730 DATA COLLAB)=O$(N2) 850 IF X=0 THEN 1200 860 GOSUB 1440 870 GOSUB 1000 880 GOTO 970 890 PRINT "HEY, THAT'S RIGHT!!!!!" 900 FOR L=K TO A 910 IF G$(L)>=B(N-I) THEN 1170 1110 G1$=B$(N-I) 1120 B$(N-I)=B$(N-I+1) 1130 B$(N-I+1)=G1$ 1140 A5=B(N-I) 1150 B(N-I)=B(N-I+1) 1160 B(N-I+1)=A5 1170 NEXT I 1180 PRINT "YOU HAVE USED "; 1(I)=W$(I) 570 NEXT 580 FOR J=1 TO 20 590 C$(J)="-" 600 NEXT J 610 X=10 620 N=1 630 N1=0 640 REM DON"T PRINT GUESSES 650 IF Q=1 THEN 710 660 PRINT "THE WORD IS "; 670 FOR J=1 TO A 680 PRINT C$(J);" "; 690 NEXT J 70190 FOR L=1 TO N 1200 PRINT B$(L); 1210 NEXT L 1220 PRINT ". "; 1230 RETURN 1240 PRINT "YOU HAVE BEEN HUNG!" 1250 L8=L8+1 1260 GOSUB 1480 1270 GOTO 1300 1280 PRINT "YOU WIN" 1290 W8=W8+1 1300 PRINT "THE WORD WAS "; 1310 FOR J=1 TO A 0 PRINT L$ 710 Q=0 720 PRINT "GUESS"; 730 INPUT G1$ 740 IF G1$="*" THEN 1300 750 IF G1$=A$ THEN 1280 760 FOR K=1 TO A 770 IF G1$=G$(K) THEN 930 780 NEXT K 790 FOR L=1 TO N 800 IF G1$>1 THEN 1410 1400 W7$="Y" 1410 IF L8<>1 THEN 1430 1420 L7$="." S BEFORE." 820 GOTO 850 830 NEXT L 840 PRINT "NO" 850 X = X - 1 860 N2 = N2 + 1 870 Q=1 880 Q$(F(N2))=O$(N2) 890 IF X=0 THEN 1240 900 GOSUB 1480 910 GOSUB 1040 920 GOTO 1010 930 PRINT "HEY, THAT'S RIGHT!!!!!" 940 FOR L=K TO A 1430 PRINT "WELL ";N$;" YOU RETIRE WITH A RECORD OF" 1435 PRINT W8;"VICTOR";W7$;" AND"; 1440 PRINT L8;"DEFEAT";L7$ 1450 IF W8>0 THEN 1460 1460 PRINT "THANKS FOR PLAYING HANGMAN." 1470 END 1480 IF X>0 THEN 1610 1490 PRINT "-----" 1500 PRINL$ 310 W7$="IES" 320 L7$="S." 330 H(0)=1 340 RESTORE 350 FOR I=1 TO 10: READ F(I):NEXT 360 FOR I=1 TO 10: READ O$(I):NEXT 370 READ N9 380 LET N=0 390 Q=0 400 N2 = 0 410 FOR J = 1 TO 20 420 Q$(J) = " " 430 NEXT J 440 I=INT(N  IVZ: 1810 DATA ZMPY,LYX,IVDW,MRTNZV,IZEBT,ZIPS,IPR,ZIPO: 1820 DATA ROPN,ZHGBM,IZMTVL,RMPH,IZDOG,MXOVF,ZHGE,ZMWD: 1830 DATA ZDOB,RXVMGRLFHO,VDWO,MLNZGLKLVRZL,VWRXZGVW,VGRXVMGI: 1840 DATA ZMLHVXLMWM,RXLUZIZWK,ZXLMRXO,IRNRGREVK,GZIIBH: 1850 DATA IB620 RETURN 1630 DATA 3,8,14,12,7,9,16,20,1,5 1640 DATA "0","I","\","/","-","-","-","-","\","/" 1650 DATA 181 1660 DATA ITBOVZ,WQVXGREVZ,TVMWZZ,OXSVNBZ,MGRJFVZ,JFVLFHZ: 1670 DATA HBOFNZ,VOUIBY,ORGAPIRVTY,LFITVLRHRVY,FHSBY,BXOVX: 1680 DATALTVMRXX,NMRKLGVMGL,MLNZOBZ,RHGVIMX,RORZX,NMRHXRVMGL: 1860 DATA FWRXILFHO,ZMGLX,BOVNC,SOVTNK,RGFRGZIBK,VCGFIVG: 1870 DATA SVGLIRXI,IRMTD,GVILWZXGBOK,VNLIISLRWS,ZIOVJFRMS: 1880 DATA VNLKSRORZXS,VMLKSLYRXC,OZMTVU,ROORYFHGVIU,RIXLMA: 1890 DATA BNFITB ORJFVX,LMEVITVX,LABX,RMLHZFIW,BMZNRXW,OVXGILVMXVKSZOLTIZNV: 1690 DATA JFZORAZGRLMV,OZHPU,OZELIU,IRHPBU,FZIGAJ,ZOEZMRXT: 1700 DATA ZDPT,RANLT,LDMT,ZMWPVIXSRVUS,VCZTLMS,RWVLFHS: 1710 DATA BKMLGRXS,TFZMZR,MXLTMRGLR,MWRERWFZOR,VDVOQ,FWTVQ: 1720 DATA A,FZHZIJ,FZIPJ,BVO,HZIG,SLMVNVK,LDVOE: 1900 DATA VIVMWRKRGBH,NV,LMRXR,KLTVVZ,ZMGRXOVX,VVIBO,OZNZO: 1910 DATA VIIZXLGGZG,ZMTZILLP,LGZGVI,IZXGG,IIVZIHZ,RYVOO: 1920 DATA LMWLMVX,VMVIRXT,LGZR,FHRMVHHY,RIZUUVT,BIISN: 1930 DATA MGRGSVHRHZ,ZGHFKX,LIZXSZPRP,ZABO,RXLIRXVO,RJFRWZGVO,LEVOBO,ZTZARMVN: 1730 DATA ZWIRTZON,VOZMXSLOBN,ZERTZYRORGBM,BNKSM,YQVXGL: 1740 DATA KGRXL,LTM,BHGVIL,ZQZNZHK,ZIZWLCK,SLHISLIVHXVMXVK: 1750 DATA BTNBK,ILCBK,IRXPOBK,FZPVJ,SZKHLWBI,RTRWI,SBNVI: 1760 DATA ZEZTVH,XSVIALH,XOVX,ZXFFNE,ZKVM,ZMTNZMS: 1940 DATA ZHVIO,LOLTIZNS,SROLHLKSBK,NYIBLMRXV,LNKGILOOVIX: SN: 1930 DATA MGRGSVHRHZ,ZGHFKX,LIZXZILLP,LGZGVI,IZXGG,IIVZIHZ,RYVOO: 1920 DATA LMWLMVX,VMVIRXT,LGZR,FHRMVHHY,RIZUUVT,BIISN: 1930 DATA MGRGSVHRHZ,ZGHFKX,LIZXIFGRMRAVH,ZCD,VITVZMGH,SZMGBH: 1770 DATA SZDOH,SIREVOH,XZOKH,LUZH,DZBH,SZDG,SBILRWG: 1780 DATA BKVG,MRUBF,MRXBXOVF,ZMGZTVE,ZMJFRHSE,ZPVD,RTDZND: 1790 DATA ZDMB,ZMBA,RMXA,VMLMC,BMXSO,BOLKSLMVC,SRXSD: 1800 DATA AZIX,ZNYQ,ZAAQ,FRAJ,OBU,VKGD,IRHPY,XT "I I" 1510 FOR I = 1 TO 4 1520 PRINT "I "; 1530 FOR J = 1 TO 5 1540 PRINT Q$(5*(I-1)+J); 1550 NEXT J 1560 PRINT L$ 1570 NEXT I 1580 PRINT "I" 1590 PRINT "--------" 1600 RETURN 1610 PRINT "YOU HAVE ";X;" MORE GUESSES." 1  STR$(INT(R)),1):R=R-INT(R) 150 NEXT I 160 PRINT:A$="00000":INPUT " INPUT A 5 DIGIT GUESS ";A$ 170 PRINT " NO. GUESS RIGHT POSITIONS RIGHT NUMBERS" 180 FOR W=12 TO 1 STEP -1 190 IF W=12 THEN PRINT:GOTO 210 200 PRINT,"GUESS";:A$="00000":INPUT A$ 210 A$=RIGHT$("00000"+A$,5) 220 FOR I=1 TO 5 230 Z$(I)=MID$(A$,I,1) 240 Y$(I)=Z$(I):L$(I)=X$(I) 250 NEXT I 260 C=0 270 FOR I=1 TO 5 280 IF Z$(I)<>L$(I) THEN 300 290 C=C+1:Z$(I)="10":L$(I)="11" 300 NEXT I 310 D=0 320 FOR I=1 TO 5 330 FOR J=1 TO 5 340 IF Z$(I)<>L$(J) THEN 360 350 D=D+1:Z$(I)="10":L$(J)="11" 360 NEXT J 370 NEXT I 380 PRINT USING U$;13-W;Y$(1);Y$(2);Y$(3);Y$(4);Y$(5);C;C+D; 390 IF C=5 THEN 440 400 NEXT W 410 PRINT:PRINT:PRINT "END OF GAME. YOU LOSE, DUMMY. THE CODE 1 REM Revised for Osborne 1 by Jim Woolley, FOG Librarian, 7/82 2 RANDOMIZE 100 LET P=5000 110 PRINT "THIS PROGRAM IS DESIGNED TO SIMULATE THE FRENCH GAMBLING" 120 DIM G(10) 130 LET P=5000 140 PRINT "GAME ROULETTE." 150 PRINT "DO YOU WISH TO WAS "; 420 PRINT USING "! ";X$(1);X$(2);X$(3);X$(4);X$(5) 430 GOTO 450 440 PRINT:PRINT:PRINT "***** YOU WIN IN ";13-W;"GUESSES":PRINT 450 PRINT:PRINT:GOTO 100 460 END (5) 430 GOTO 450 440 PRINT:PRINT:PRINT "***** YOU WIN IN ";13SEE A DESCRIPTION OF THE RULES" 160 INPUT A$ 170 IF A$="NO" THEN 450 180 PRINT "YOU BEGIN WITH $5,000 AND MAY BET AS MUCH AS YOU LIKE UNTIL" 190 PRINT "YOU HAVE EITHER WON $100,000 OR YOU GO BROKE, WHICH EVER" 200 PRINT "COMES FIRST. THE BETTIN1 REM Revised for Osborne 1 by Jim Woolley, FOG Librarian, 7/82 2 RANDOMIZE 100 PRINT:PRINT:PRINT :PRINT TAB(20)"** MASTERMIND **":PRINT 110 U$="### ! ! ! ! ! ## ##" 120 R=RND(1) 130 FOR I=1 TO 5 140 R=R*10:X$(I)=RIGHT$(  T DESIRED FROM THE TABLE ABOVE" 450 PRINT "HERE IS THE ROULETTE LAYOUT:" 460 PRINT " ***********************" 470 PRINT " * 0 *" 480 PRINT " * 1 2 3 *" 490 PRINT " *************************************************************" 260 PRINT " BET BANK PAYS" 270 PRINT " ------------- --------------------------------" 280 PRINT " 1.RED OR BLACK EVEN MONEY ( * 4 5 6 *" 500 PRINT " * 7 8 9 *" 510 PRINT " * 10 11 12 *" 520 PRINT " * 13 14 15 *" 530 PRINT " * 16 17 18 *" 540AMOUNT OF BET)" 290 PRINT " 2.EVEN OR ODD EVEN MONEY" 300 PRINT " 3. HIGH OR LOW EVEN MONEY" 310 PRINT " 4.COLUMN 1,2,OR 3 2 TO 1" 320 PRINT " 5.DOZEN (LOW,MIDDLE,HIGH) 2 TO 1" 330 PRINT " 6.SINGLE NUMBERS  PRINT " * 19 20 21 *" 550 PRINT " * 22 23 24 *" 560 PRINT " * 25 26 27 *" 570 PRINT " * 28 29 30 *" 580 PRINT " * 31 32 330-36 36 TO 1" 340 PRINT " 7.TWO NUMBERS(ADJACENT) 17 TO 1" 350 PRINT " 8.THREE NUMBERS ACCROSS 11 TO 1" 360 PRINT " 9.FOUR NUMBERS (SQUARE) 8 TO 1" 370 PRINT "10.SIX NUMBERS(RECTANGLE) 5 TO 1" 380 PRINT "************************ *" 590 PRINT " * 34 35 36 *" 600 PRINT " ***********************" 610 PRINT " ***********************" 620 PRINT "THE ROULETTE WHEEL IS SPINNING-ROUND AND ROUND IT" 630 PRINT "GOES, ***************************************" 390 PRINT 400 PRINT 410 PRINT 420 PRINT "WHEN ASKED TO PLACE YOUR BET, DO SO BY FIRST INPUTING" 430 PRINT "THE AMOUNT OF THE BET (SMALLEST BET =$1.00) AND THE" 440 PRINT "NUMBER OF THE TYPE OF BEWHERE SHE STOPS NOBODY KNOWS." 640 LET X=0 650 LET Y=INT(37*RND(1)) 660 PRINT "FAITES VOS JEUX MESSIEUR (PLACE YOUR BETS GENTLEMEN)" 670 INPUT B,C 680 IF C=2 THEN 890 690 IF C=3 THEN 990 700 IF C=4 THEN 1090 710 IF C=5 THEN 1280 720 IF C=G IS DONE ON A BOARD OR CLOTH" 210 PRINT "SUCH AS APPEARS BELOW. HALF THE NUMBERS ARE RED AND HALF" 220 PRINT "ARE BLACK EXCEPT ZERO WHICH IS COLORLESS. BETTING COM-" 230 PRINT "BINATIONS AND ODDS ON THEM ARE AS FOLLOWS:" 240 PRINT 250 PRINT "*!  OR F1=3TO36 STEP 3 1250 IF F1=Y THEN 1820 1260 NEXT F1 1270 GOTO 1880 1280 LET E=2 1290 PRINT "WHICH DOZEN NUMBERS DO YOU CHOOSE, LOW (1-12), MIDDLE" 1300 PRINT "(13-24), OR HIGH (25-36)" 1310 INPUT I$ 1320 PRINT " THE NUMBER IS "Y 1330LACK" 830 IF Z$="BLACK" THEN 1820 840 GOTO 1880 850 PRINT 860 PRINT "THE NUMBER IS RED" 870 IF Z$="RED" THEN 1820 880 GOTO 1880 890 LET E=1 900 PRINT "WHICH DO WANT TO BET ON, ODD OR EVEN" 910 INPUT D$ 920 PRINT "THE NUMBER IS"Y  IF Y=0 THEN 1880 1340 IF I$="MIDDLE" THEN 1380 1350 IF I$="HIGH" THEN 1410 1360 IF Y<13 THEN 1820 1370 GOTO 1880 1380 IF Y>25 THEN 1880 1390 IF Y<13 THEN 1880 1400 GOTO 1820 1410 IF Y>24 THEN 1820 1420 GOTO 1880 1430 LET E= 930 LET D1=Y/2 940 IF D1=INT(Y/2) THEN 970 950 IF D$="ODD" THEN 1820 960 GOTO 1880 970 IF D$="EVEN" THEN 1820 980 GOTO 1880 990 LET E=1 1000 PRINT "DO YOU BET HIGH (19-36) OR LOW (1-18)" 1010 INPUT H$ 1020 PRINT "THE NUMBER IS"Y 36 1440 PRINT "OH OH, A LONG SHOT....PICK YOUR NUMBER." 1450 INPUT G 1460 PRINT "AND THE NUMBER COMES UP --------------------------"Y 1470 IF G=Y THEN 1820 1480 GOTO 1880 1490 LET E=17 1500 PRINT "WHAT TWO ADJACENT NUMBERS ARE YOU BETTING ON"  1030 IF Y=0 THEN 1880 1040 IF Y>18 THEN 1070 1050 IF H$="LOW" THEN 1820 1060 GOTO 1880 1070 IF H$="HIGH" THEN 1820 1080 GOTO 1880 1090 LET E=2 1100 PRINT "WHICH COLUMN DO YOU CHOOSE, 1,2,OR 3" 1110 INPUT F 1120 PRINT "THE NUMBER IS"Y 1510 INPUT G1,G2 1520 PRINT " AND THIS TIME THE NUMBER COMES UP-----------------"Y 1530 IF G1=Y THEN 1820 1540 IF G2=Y THEN 1820 1550 GOTO 1880 1560 LET E=11 1570 PRINT "WHAT THREE NUMBERS(RUNNING ACCROSS THE BOARD) DO YOU WANT" 1580 I 1130 IF Y=0 THEN 1880 1140 IF F=2 THEN 1200 1150 IF F=3 THEN 1240 1160 FOR F1=1 TO 34 STEP 3 1170 IF F1=Y THEN 1820 1180 NEXT F1 1190 GOTO 1880 1200 FOR F1=2TO35 STEP 3 1210 IF F1=Y THEN 1820 1220 NEXT F1 1230 GOTO 1880 1240 FNPUT G1,G2,G3 1590 PRINT "AND THE NUMBER IS ::::::::::::::::::::::::::"Y 1600 IF G1=Y THEN 1820 1610 IF G2=Y THEN 1820 1620 IF G3=Y THEN 1820 1630 GOTO 1880 1640 LET E=8 1650 PRINT "WHAT FOUR NUMBERS( IN A SQUARE ) DO YOU WANT" 1660 IN6 THEN 1430 730 IF C=7 THEN 1490 740 IF C=8 THEN 1560 750 IF C=9 THEN 1640 760 IF C=10 THEN 1730 770 LET E=1 780 PRINT "WHICH COLOR DO YOU WANT TO BET ON" 790 INPUT Z$ 800 IF Y=0 THEN 1880 810 IF Y<19 THEN 860 820 PRINT " THE NUMBER IS B"   RECTANGLE OOO THE BOARD) DO YOU " 1750 PRINT "WANT TO BET ON" 1760 INPUT G(1),G(2),G(3),G(4),G(5),G(6) 1770 PRINT "WELL, THE NUMBER CAME UP"Y 1780 FOR I=1 TO 6 1790 IF G(I)=Y THEN 1820 1800 NEXT I 1810 GOTO 1880 1820 PRINT " *****A WINNER*****" 1830 PRINT "YOU WIN $"E*B 1840 LET P=P+(E*B) 1850 PRINT "YOUR PURSE NOW TOTALS $"P 1860 IF P>100000! THEN 1930 1870 GOTO 650 1880 PRINT " *****YOU LOSE*****" 1890 LET P=P-B 1900 PRINT "YOUR PURSE NOW TOTALS $"P 1910 IF P>0 THEN 650 1920 IF P=<0 THEN 1950 1930 PRINT "END OF GAME YOU BROKE THE HOUSE" 1940 GOTO 1960 1950 PRINT "YOURE BROKE!!!!!" 1960 END F P=<0 THEN 1950 1930 PRINT "END OF GAME YOU BROKE THE HOUSE" 1940 GOTO 1960 1950 PRINT "YOURE BROKE!!!!!" PUT G(1),G(2),G(3),G(4) 1670 PRINT "THE MARBLE FALLS AND BOUNCES AND BOUNCES AND, AND" 1680 PRINT "THE NUMBER COMES UP"Y 1690 FOR I=1 TO 4 1700 IF G(I)=Y THEN 1820 1710 NEXT I 1720 GOTO 1880 1730 LET E=5 1740 PRINT "WHAT SIX NUMBERS (IN A#  :IF R=1 THEN GOTO 350 ELSE PRINT"FOR HAND";G; 350 PRINT:PRINT"YOUR TOTAL IS";X(G);:INPUT F:IF F>-1 THEN GOTO 370 360 PRINT"ONLY 0-3 IS VALID, REENTER";:GOTO350 370 IF F>3 THEN GOTO 360 ELSE IF F<>1 THEN GOTO 550 380 REM ******** PLAYER HIT ROUTINE ****CKJACK" 140 PRINT:INPUT"INSTRUCTIONS? (YES-NO) ";M$: IF M$="NO" THEN GOTO 160 150 IF M$="YES" THEN GOSUB 1640:GOTO 160 ELSE GOTO 140 160 R=16:PRINT"HOW MANY DECKS (1-4)"; 170 INPUT N:IF N<1 OR N>4 THEN PRINT"1 TO 4 DECKS ONLY. REENTER";:GOTO 170 180 E********* 390 IF A<=E THEN GOTO 400 ELSE GOSUB 1220 400 M=S(G):M=M+1:S(G)=M:N=D(A):P(G,M)=N:PRINT"YOUR CARD IS";:GOSUB 1050 410 GOSUB 1010:A=A+1:IF N<>11 THEN GOTO 420 ELSE O(G)=O(G)+1 420 X(G)=X(G)+N 430 IF X(G)<22 THEN GOTO 340 ELSE IF O(G)=0 THEN 4=N*52:GOSUB 870:B=1:GOSUB 890:A=1 190 PRINT:G=1 200 INPUT"BET PLEASE";U:IF U>0 THEN GOTO 220 ELSE IF U=0 THEN GOTO 1600 210 B=1:GOSUB 890:GOTO 200 220 IF U<=500 THEN GOTO 240 ELSE PRINT"SORRY, THE HOUSE LIMIT IS $500!" 230 GOTO 200 240 GOSUB 930:H(1)50 440 O(G)=O(G)-1:X(G)=X(G)-10:GOTO 430 450 PRINT:PRINT"YOU BUSTED WITH";X(G):X(G)=0:Y=Y-1:PRINT 460 REM ********* CHECK FOR END OF PLAY ************ 470 IF G11 THEN GOTO 280 ELSE GOSUB 1550 280 IF W<>21 THEN GOTO 320 ELSE PRINT : PRINT"I HAVEFOR HAND ";G;" WAS"; 530 GOSUB 1050 540 GOTO 340 550 IF F<>0 GOTO 620 560 REM *********PLAYER STAND ALONE ROUTINE ************ 570 IF X(G)<22 GOTO 470 580 IF O(G)=0 GOTO 450 590 X(G)=X(G)-10 600 O(G)=O(G)-1 610 G=G+1 620 IF F<>2 GOTO 730 630 IF  BLACKJACK, "; 290 IF X(1)<>21 THEN GOTO 310 ELSE PRINT"SO DO YOU, WE PUSH" 300 GOSUB 1510:GOTO 190 310 PRINT"YOU LOSE":V=V-U:GOTO300 320 IF X(1)<>21 THEN GOTO 340 ELSE PRINT"YOU HAVE BLACKJACK, YOU WIN!" 330 V=V+3*U/2:GOTO300 340 PRINT:PRINT"PLAY ";S(G)=2 GOTO 670 640 PRINT "DOUBLE ON 1ST 2 CARDS ONLY" 650 GOTO 340 660 REM ***** DOUBLE DOWN ROUTINE ********** 670 IF A<=E THEN GOTO 680 ELSE 1220 680 H(G)=2*U:N=D(A):P(G,3)=N:A=A+1:PRINT "YOU DRAW THE";:GOSUB 1050 690 GOSUB 1010:IF N=11 THEN O(G)=1 REM Revised for Osborne 1 by Jim Woolley, FOG Librarian, 7/82 2 RANDOMIZE 100 REM *** B L A C K J A C K *** 101 WIDTH 80 110 DIM D(208),H(16),O(16),P(16,11),Q(11),S(16),X(16) 120 PRINT:PRINT"WELCOME TO THE CASINO" 130 PRINT "WE PLAY VEGAS STYLE BLA$  A+4:T=2:S(1)=2:GOSUB 980:M=N:RETURN 970 REM ********** COMPUTE THE VALUE OF THE DEALERS HAND ********* 980 Z=0:W=0:FOR I=1 TO 2:N=Q(I):GOSUB 1010:IF N=11 THEN Z=Z+1 990 W=W+N:NEXT I :RETURN 1000 REM **********COMPUTE THE VALUE OF A CARD **********: 10*********PAIR SPLIT ROUTINE ********** 760 R=R+1:Y=Y+1:P(R,1)=P(G,2):S(G)=1:S(R)=1:X(G)=X(G)/2:X(R)=X(G) 770 H(R)=U:IF N<>11 THEN GOTO 340 780 REM **********ACES WERE SPLIT - 1 CARD EACH ********* 790 IF A>E THEN GOSUB 1220 800 N=D(A):P(G,2)=N:PRINT "10 IF N<14 THEN GOTO 1020 ELSE N=N-13:GOTO 1010 1020 IF N=1 THEN N=11:RETURN ELSE GOTO 1030 1030 IF N<11 THEN RETURN ELSE N=10:RETURN 1040 **********PRINT A CARD ********** 1050 I=0 1060 IF N>=14 THEN N=N-13:I=I+1:GOTO 1060 1070 IF N=1 THEN PRINT TAB1ST ACE GETS A";:GOSUB 1050: GOSUB 1010 810 IF N=11 THEN N=1 820 X(G)=X(G)+N:A=A+1:IF A>E THEN GOSUB 1220 830 N=D(A):P(R,2)=N:PRINT "2ND ACE GETS A";:GOSUB 1050:GOSUB 1010 840 IF N=11 THEN N=1 850 X(R)=X(R)+N:A=A+1:GOTO480 860 REM ************ BUILD (17);"ACE ";:GOTO 1130 1080 IF N<10 THEN PRINT TAB(18);N;:GOTO 1130 1090 IF N<11 THEN PRINT TAB(17);N;:GOTO 1130 1100 IF N<12 THEN PRINT TAB(16);"JACK ";:GOTO 1130 1110 IF N<13 THEN PRINT TAB(15);"QUEEN ";:GOTO 1130 1120 PRINT TAB(16);"KING "; 1130 P1 TO 4 DECKS ************ 870 FOR I=1 TO N: J=(I-1)*52: FOR K =1 TO 52: D(J+K)=K:NEXT K,I:RETURN 880 REM *********SHUFFLE THE CARDS *********** 890 PRINT CHR$(26):PRINT "I'M SHUFFLING.... ":FOR I=B TO E 900 C=RND(1)*E:IF CE THEN B=1:GOSUB 890 950 PRINT "DEALING":P(R,1)=D(A):Q(1)=D(A+1):P(R,2)=D(A+2):Q(2)=D(A+3) 960 A=I):GOSUB 1010:X(G)=X(G)+N 1180 IF N<>11 THEN GOTO 1200 1190 O(G)=O(G)+1 1200 NEXT I:RETURN 1210 REM *********SAVE THE CARDS THAT ARE ALREADY DEALT AND SHUFFLE** 1220 K=T:FOR I=1 TO R:K=K+S(I):NEXT I 1230 FOR I=1TOK:A=A-1:J=D(I):D(I)=D(A):D(A)=J:NEXTIO(G)+1 700 X(G)=X(G)+N 710 IF X(G)<22 THEN GOTO 470 720 IF O(G)=0 THEN GOTO 450 ELSE O(G)=O(G)-1:X(G)=X(G)-10:GOTO 1350 730 N=P(G,1):Y=Y+1:GOSUB 1010:M=N:N=P(G,2):GOSUB 1010:IF M=N THEN GOTO 760 740 PRINT "YOU MAY ONLY SPLIT PAIRS": GOTO 340 750 REM %  0 PRINT "YOUR INSURANCE BET ";:IF W=21 THEN PRINT "WINS":V=V+U:RETURN 1580 PRINT "LOSES":V=V-U/2:RETURN 1590 REM ******END OF GAME WRAP UP ************** 1600 PRINT "THANKS FOR PLAYING":PRINT "HOPE YOU ENJOYED YOURSELF" 1610 PRINT "HERE'S YOUR FINAL ST GOSUB 1220 1310 N=D(A):T=T+1:A=A+1:PRINT:PRINT "I DRAW THE";:GOSUB 1050:GOSUB 1010 1320 IF N=11 THEN Z=Z+1 1330 W=W+N:GOTO 1260 1340 IF W<22 THEN GOTO 1380 1350 IF Z=0 THEN GOTO 1370 1360 Z=Z-1:W=W-10:GOTO 1260 1370 PRINT "I BUSTED "; 1380 PRINT "ANDING!":GOSUB 1510 1620 IFV>0THENPRINT"NOW, JUST YOU TRY TO COLLECT !!":END 1630 IF V=0THENPRINT"BIG DEAL......":END ELSEPRINT"PAY UP, OR ELSE":END 1640 REM ******** INSTRUCTIONS *********** 1650 PRINT:PRINT"THE DEALER STANDS ON 17 OR MORE" 1660 PRINMY TOTAL IS ";W 1390 FOR I =1 TO R:PRINT "YOU ";:IF X(I)<>0 THEN GOTO 1410 1400 PRINT "LOST ";:V=V-H(I):GOTO 1460 1410 IF W<22 THEN GOTO 1430 1420 PRINT "WON ";:V=V+H(I):GOTO 1460 1430 IF W<>X(I) THEN GOTO 1450 1440 PRINT "PUSHED ON ";:GOTO 1460 145T"BUT WILL HIT A SOFT 17." 1670 PRINT"YOU MAY SPLIT ANY PAIR.":PRINT"YOU MAY DOUBLE THE 1ST 2 CARDS" 1680 PRINT"AND GET ONLY 1 MORE CARD.":PRINT:PRINT"PLAY CODES:" 1690 PRINT " 0 - STAND":PRINT " 1 - HIT":PRINT " 2 - DOUBLE DOWN" 1700 PRINT " 3 - S0 IF W1 THEN GOTO 1470 ELSE PRINT "THE HAND":GOTO 1480 1470 PRINT "HAND ";I 1480 NEXT I 1490 REM ********* PRINT THE PLAYERS WON/LOST STANDING ******* 1500 PRINT 1510 PRINT "YOU'RE ";:IF V=0 THEN PRINT "PLIT A PAIR":PRINT:PRINT "A ZERO BET ENDS THE GAME" 1710 PRINT "A NEGATIVE BET FORCES A SHUFFLE" 1720 PRINT "GOOD LUCK - LET'S START":RETURN T:PRINT "A ZERO BET ENDS THE GAME" 1710 PRINT "A NEGATIVE BET FORCES A SHUFFLE" 1720 PRINT "GOOD LUCK - LET'SEVEN":RETURN 1520 IF V<0 THEN PRINT "BEHIND $"V:RETURN ELSE PRINT "AHEAD $";V:RETURN 1530 PRINT "AHEAD $";V 1540 REM ********INSURANCE ROUTINE ************ 1550 INPUT "INSURANCE (YES-NO)";M$:IF M$="NO" THEN RETURN 1560 IF M$<>"YES" THEN GOTO 1550 157:B=K+1:GOSUB890:RETURN 1240 REM *******DEALERS LOGIC **********: 1250 N=Q(1):PRINT "MY HOLE CARD";:GOSUB 1050:IF Y=0 THEN GOTO 1390 1260 IF W<17 THEN GOTO 1300 1270 IF W>17 THEN GOTO 1340 1280 IF Z=0 THEN GOTO 1380 1290 W=W-10:Z=Z-1 1300 IF A>E THEN&   FOG Disk Librarian August, 1982 ame represents the name of one of these games. The quotation marks are required. Jim Woolley  DISK.DOC -FOG/GAM.005 First Osborne Group (FOG) Games Disk This disk contains MBASIC games. MONOPOLY was previously found on -FOG.019. BLACKJCK & OTHELLO are from -CPMUG.026. HANGMN, MASTERMD, & ROULETTE are from -CPMUG.027. OTHELLO is the exception; it is not in MBASIC. To run, place OTHELLO.COM in drive A. At the A> prompt, type OTHELLO To run the other games, place MBASIC in drive A and this disk in drive B. At the A> prompt, type B: At the B> prompt, type A:MBASIC Following the Ok prompt, type RUN "filename" where filename represents the name of one of these games. The quotation marks are required. Jim Woolley '  D ROULETT are from -CPMUG.027. OTHELL i th exception i i no i MBASIC T run plac OTHELLO.CO i driv A A th A prompt type OTHELLO T ru th othe games plac MBASI i driv an thi dis i driv B A th A prompt type B: At the B> prompt, type A:MBASIC Following the Ok prompt, type RUN "filename" wher filenam represent th nam o on o thes games. The quotation marks are required. Jim Woolley  FOG Disk Librarian August, 1982 am represent th nam o on o thes games. The quotation marks are required. Jim Woolley  DISK.DOC -FOG/GAM.005 First Osborne Group (FOG) Games Disk Thi dis contain MBASI games MONOPOL wa previousl foun o -FOG.019 BLACKJC OTHELL ar fro -CPMUG.026 HANGMN MASTERM