IMD 1.15: 16/05/2007 7:56:04 fog gam 006    Ї!ֶ2:2a{_:ַʖ:ַ>Ľʖ:=2–!B!6#5ʖ:ַĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "ѷ"͌#>?͌͘ =_.:;<> Oхo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USERS!yO#< Ty#O 3ү21y_͸2y2ͽ:Ϸ˜1͘A͌>>͌92^ :ַ¥.!_~#fow]ԭՎե!v"!çREAD ERRORçNO FILE^:ַ ! ~ 3#0 Wx x р т G ~ # 3x~#B!Y~ɯ2:ַ=!־ý:ַ=!־:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ԯw4!Y~ʆ͌†t=ʆf ^ T ԯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yոpsp2mÆÆf ͧÆFILE EXISTS _: É: :ַʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~2֯2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ֶ Â$$$ SUBSיץ׫ױ"C{2!"E9"1Aگ22!ty)K!G_^#V*Cِ~E ,&-AGMSڛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :ڷE B 2>: ڷb# : ڷy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ھ Hù H H $O͐: 2 *CN# \X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ϯ2  2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \۷Sۀ*C :qn& ^#V>O^"*}:*)=":O:䡵o"*C *C!ͮ~2~2ͦ:2ͮ:ۯO:w:w |g}o*䯆#  ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ܾ,w͜͸Ͳ!!N#F$**O!~#:Aھ#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | sޖ-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌xܯ2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻۯx>2>2ͻ:!Z2:Eڷẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:Eڷ͊:==»y==»*Ww#*"͸*:G#š"͸:!w4 iw:Z!E~=26ۯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{x: 2 p&x~+é7د2 H! >w_: ! ھ5ͤNkͱ¦ͱxʊ#Nx: ڷ! ږ2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#  ):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2 4 %-ßð5OjcccccccccccccÄÎ@UAUTOST [v]pip a:=pip b:=xdir a:b:*.*789   50$5@*-?Oy2:Oy{o{_"!91*>2͚>2ͪ2P2R22y2i&))))Cxj!:2C*S}O|ȯ2Ry2 C:Uy2Vi`n&G>2x21:f2:iO<:j2l>1͟j >!"2`<2>22!"!"!c"@!:(;~(7O8Osborne Computer System 60K CP/M 2.2A >(!!:O2RK:"ȯ2Py2# >2R*"S:V<!R~*5:U< *S#"S2U>K>2Q:":#̪:"2!!:0)2*!P~6(! #ͪ:22*"":22:!>!Q~6:2*":2>_!'" !4>2* j2":= 2"ɯ2": 2~#O !N!V!^=!n=!^=!V=!f=:_^#fkv@IN7lT: :^!~( *~4 h'_!knf^VSR}2:` y :h/2h h:h*Z)>d8 :aȯ:adZ} }d !6w:b +w++N#S͎͎hhN:g > NI @II y2*:, O:*߱:ʭ:@OKh Qh}(2_Kh :ͣ(!~6: OKh Nh ?Kh : >*2)>2)>.2)>2)>2)>2)>2)>2 : >*2)>2)>.2)>2)>2)>2)> 2)>2 :)@(=:~ :)2~((2~:)/Ol(y/2)>"2)>2)>2>2s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bھw!>2*C~=2u:B2~2wE:A*Cڶw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*  ROBO DOC'ROBO INT (-FOG/GAM006DISK DOCDISK BAK DISK.DOC -FOG/GAM.006 First Osborne Group (FOG) Games Disk This disk contains CBASIC games. ROBO was previously found on -FOG.007 & -FOG.009. CRAPS is from -CPMUG.037. As described in DISK.PRN, CRAPS was submitted by John White of Washington. (Appar- ently, some other programs were sent by John but were subsequently misplaced.) ROBO.DOC & CRAPS.DOC describe use of these programs. To run these games, place CRUN2 in drive A and thisDISK DOCCRAPS BAS CRAPS BASBCRAPS DATCRAPS DOCCRAPS INTu !"#DISK PRN$ROBO BAS%&  I)=RND(1) 570 NEXT I 580 W1=0 590 B1=0 600 P1=1 610 P2=1 620 J=0 630 M1=99999! 640 FOR I=1 TO 52 650 IF A(I)>=M1 THEN 680 660 M1=A(I) 670 I1=I 680 NEXT I 690 J=J+1 700 D(J)=I1 710 A(I1)=99999! 720 IF J<52 THEN 630 730 FOR I=gust, 1982 he name of one of these games. Jim Woolley FOG Disk Librarian Au DISK.DOC -FOG/GAM.006 First Osborne Group (FOG) Games Disk This disk contains CBASIC games. ROBO was previously found on -FOG.007 & -FOG.009. CRAPS is fro -CPMUG.037 A describe i DISK.PAY BE" 330 PRINT "PLAYED AT ANY TIME REGARDLESS OF SUIT TO CHANGE THE SUIT." 340 PRINT "IF YOU ARE UNABLE OR UNWILLING TO PLAY, YOU WILL BE GIVEN" 350 PRINT "ANOTHER CARD FROM THE DRAW STACK. IF ALL CARDS HAVE BEEN" 360 PRINT "DRAWN, ANY PERSRN CRAP wa submitte b Joh Whit o Washington (Appar- ently som othe program wer sen b Joh bu wer subsequentl misplaced.) ROBO.DOC & CRAPS.DOC describe use of these programs. To run these games, place CRUN2 in drive A and thisON WHO IS ABLE TO PLAY MUST DO SO." 370 PRINT "AT THE END OF THE GAME, THE PERSON HOLDING CARDS HAS POINTS" 380 PRINT "SCORED AGAINST HIM AS FOLLOWS: EIGHTS=50, ACE=1, FACE" 390 PRINT "CARD=10, INDEX VALUE FOR EACH OTHER CARD." 400 PRINT : PR disk in drive B. At the A> prompt, type B: At the B> prompt, type A:CRUN2 filename where filename represents the name of one of these games. Jim Woolley FOG Disk Librarian AuINT "GAME WILL START SHORTLY..." 410 L=0 : FOR I=1 TO 4 420 FOR J=1 TO 13 430 L=L+1 440 S(L)=I 450 V(L)=J 460 NEXT J 470 NEXT I 480 N1=0 490 N2=0 500 N3=0 510 S1=0 520 S2=0 530 FOR I=1 TO 52 540 G(I)=0 550 H(I)=0 560 A(gust, 1982 he name of one of these games. Jim Woolley FOG Disk Librarian Au disk in drive B. At the A> prompt, type B: At the B> prompt, type A:CRUN2 filename where filename represents the name of one of these games. Jim Woolley FOG Disk Librarian Au  place CRUN2 in drive A and this disk in drive B. At the A> prompt, type B: At the B> prompt, type A:CRUN2 filename where filename represents the name of one of these games. Jim Woolley FOG Disk LiTHEN 1360 1300 IF C1>=C2 THEN 1340 1310 C2=C2-C1 1320 C1=0 1330 GOTO 1360 1340 C1=C1-C2 1350 C2=0 1360 S1=S1+C1 1370 S2=S2+C2 1380 RETURN 1390 PRINT 1400 PRINT "YOUR HAND IS" 1410 FOR I=1 TO 52 1420 IF G(I)=0 THENbrarian August, 1982 me where filename represents the name of one of these games. Jim Woolley FOG Disk Li 1440 1430 PRINT C$(V(I));TAB(6);"OF ";U$(S(I)) 1440 NEXT I 1450 PRINT 1460 PRINT "THE LAST CARD PLAYED WAS THE "; 1470 PRINT C$(V(T(T1)));" OF ";U$(S(T(T1))) 1480 IF V(T(T1))<>7 THEN 1500 1490 PRINT "THE SUIT CALLED FOR IS ";U$(P) 150OTO 1510 1830 G(I)=0 1840 H1=H1-1 1850 T1=T1+1 1860 T(T1)=I 1870 IF V9<>7 THEN 1930 1880 PRINT "WHAT SUIT DO YOU WISH"; 1890 INPUT Y$ 1900 GOSUB 2500 1910 IF S9>0 THEN 1930 ELSE PRINT "UNKNOWN SUIT, TRY AGAIN"; 1920 GOTO 1890 1930 P=S90 RETURN 1510 PRINT "DO YOU WISH TO PLAY A CARD"; 1520 INPUT A$ 1530 AZ$=LEFT$(A$,1) 1531 IF AZ$<>"Y" AND AZ$<>"N" THEN PRINT "(Y OR N) PLEASE ! "; : GOTO 1520 1532 IF AZ$="Y" THEN 1630 1540 IF D1<>0 THEN 1570 1550 PRINT "ALL THE CARDS HAVE BEE 1940 P1=1 1950 IF H1<>0 THEN 1970 1960 W1=1 1970 RETURN 1980 IF P2<>0 THEN 2000 1990 B1=1 2000 P1=0 2010 RETURN 2020 I=53 2030 I=I-1 2040 IF H(I)=0 THEN 2080 2050 IF V(I)=7 THEN 2080 2060 IF S(I)=P THEN 2220 2070 IF V DISK.DOC -FOG/GAM.006 First Osborne Group (FOG) Games Disk This disk contains CBASIC games. ROBO was previously found on -FOG.007 & -FOG.009. CRAPS is from -CPMUG.037. To run these games, (I)=V(T(T1)) THEN 2220 2080 IF I>1 THEN 2030 2090 FOR I=1 TO 52 2100 IF V(I)<>7 THEN 2120 2110 IF H(I)<>0 THEN 2220 2120 NEXT I 2130 IF D1=0 THEN 2460 2140 I=D(D1) 2150 D1=D1-1 2160 IF V(I)=7 THEN 2240 2170 IF S(I)=P THEN 2240 218Y HAND" 1190 FOR I=1 TO 52 1200 IF H(I)=0 THEN 1230 1210 PRINT C$(V(I));TAB(6);"OF ";U$(S(I)) 1220 C1=C1+Z(I) 1230 NEXT I 1240 IF H1=0 THEN 1360 1250 FOR I=1 TO 52 1260 IF G(I)=0 THEN 1280 1270 C2=C2+Z(I) 1280 NEXT I 1290 IF C1=0   0 FOR K=K1 TO K2 2330 IF H(I)=0 THEN 2350 2340 Y(J)=Y(J)+1 2350 NEXT K 2360 NEXT J 2370 P=1 2380 FOR J=2 TO 4 2390 IF Y(J)<=Y(P) THEN 2410 2400 P=J 2410 NEXT J 2420 P2=1 2430 IF H2<>0 THEN 2450 2440 W1=1 2450 RETURN 2460 IF P1<>0 THEN 2480 2470 B1=1 2480 P2=0 2490 RETURN 2500 FOR I0 = 1 TO 4 2510 IF Y$=U$(I0) THEN 2590 2520 NEXT I0 2530 S9 = 0 2540 IF Y$="C" THEN S9=1 2550 IF Y$="D" THEN S9=2 2560 IF Y$="H" THEN S9=3 2570 IF Y$="S" THEN S9=4 2580 RETURN 2590 S9 = I0 2600 RETURN 2610 FOR I0 = 1 TO 13 2620 IF X$=C$(I0) THEN 2700 2630 NEXT I0 2640 V9 = 0 2650 IF X$="J" THEN V9=10 2660 IF X$="Q" THEN V9=11 2670 IF X$="K" THEN V9=12 2680 IF X$="A" THEN V9=13 2690 RETURN 2700 V9 = I0 2710 RETURN 2720 END THEN V9=11 2670 IF X$="K" THEN V9=12 2680 IF X$="A" THEN V9=13 2690 RETURN 2700 V9 = IEN V9=10 2660 IF X$="Q" THEN V9=11 2670 IF X$="K" THEN V9=12 2680 IF X$="A" THEN V9=13 2690 RETURN 2700 V9 = I0 IF V(I)=V(T(T1)) THEN 2240 2190 H2=H2+1 2200 H(I)=1 2210 GOTO 2130 2220 H(I)=0 2230 H2=H2-1 2240 T1=T1+1 2250 T(T1)=I 2260 P=S(I) 2270 IF V(I)<>7 THEN 2420 2280 FOR J=1 TO 4 2290 Y(J)=0 2300 K1=13*(J-1)+1 2310 K2=13*J 232  HEN \ PRINT"Before the roll you had...$";OLD.ROLL.WINNINGS :\ PRINT"you now have...$";WINNINGS :\ PRINT"Your net gain or loss on last roll was ";OLD.ROLL.WINNINGS-WINNINGS :\ PRINT"Your balance for game now $";WINN******* REM THIS IS THE GAME OF CRAPS. I WILL TRY AND INCLUDE ALL REM BETS AVAILABLE ONE AT A TIME. PRINT"If you would like an explaination of the accounting" INPUT" practices used in this program put in an 'X' now ";LINE X$ IF X$="X" THEN GOINGS PRINT 4: IF AFTER.ROLL% THEN \ INPUT"Hit return when ready";LINE TEMP$ AFTER.ROLL%=0 PRINT CHR$(12) IF FIRST% AND LINE.BET<1 THEN \ PRINT"COMING OUT!! GET ON THE LINSUB 800 INPUT"How much money are you starting with? ";LINE OLD.WINNINGS$ RANDOMIZE REAL.OLD.WINNINGS=VAL(OLD.WINNINGS$) OLD.WINNINGS=VAL(OLD.WINNINGS$) FIRST%= - 1 DIM COME.BET(12),COME.POINT%(12), \ E!!!" IF FIRST% AND LINE.BET>1 THEN PRINT "STILL COMING OUT!!" PRINT PRINT"To take bets off when coming out only answer with 'OFF'..." PRINT"To take bets off answer with 'PLACE', 'HARD' or 'FIELD', etc." PRPLACE.POINT%(12),PLACE(12),LINE.ODDS(12), \ PLACE.ODDS.AMOUNT(12),COME.ODDS.AMOUNT(12),\ DICE.ROLL1%(100),DICE.ROLL2%(100),DICE.ROLL.TOTAL%(100) REM *************************************************** REM ************* BETS ****INT PRINT"To take odds on the line or place, or come answer with 'ODDS'" PRINT"To get list of current bets answer next question with 'BETS'" PRINT"To get list of available bets answer next question with 'LIST'" PRINT************************ REM *************************************************** 1.11 IF AFTER.ROLL% THEN \ PRINT :\ PRINT DIE.ONE%;"+";DIE.TWO%;"=";ROLL%,"Was the Roll" IF AFTER.ROLL% AND WINNINGS<>OLD.ROLL.WINNINGS T"When betting first put in the bet code then the bet " PRINT"If you want to quit put in an 'S' or 'STOP'...." PRINT INPUT"BET..........";LINE BETS$ RANDOMIZE BETS$=UCASE$(BETS$) REM ****************************************************** REM THE FOLLOWING SECTIONS SEEM TO BE DONE: REM BIG EIGHT REM BIG SIX REM FIELD REM COME REM PLACE REM HARDWAYS REM LINE REM ODDS REM ***********************************************   HARD4=VAL(HARD4$) WINNINGS=WINNINGS - HARD4 RETURN 10.3 INPUT "How much do you want to bet on the Hard 10?";LINE HARD10$ IF VAL(HARD10$)<1 THEN RETURN LET HARD10=VAL(HARD10$) WINNINF BETS$="OFF" THEN \ OFF%=-1 :\ GOTO 1.11 IF BETS$="BETS" THEN GOSUB 4500 :\ GOTO 1.11 IF BETS$="PLACE" THEN GOSUB 12 :\ GOTO 1.11 IF BETS$="FIELD" THEN GOSUB 1GS=WINNINGS - HARD10 RETURN 10.4 INPUT "How much do you want to bet on the Hard 6?";LINE HARD6$ IF VAL(HARD6$)<1 THEN RETURN LET HARD6=VAL(HARD6$) WINNINGS=WINNINGS - HARD6 RETURN 10.5 INPUT "How4 :\ GOTO 1.11 IF BETS$="HARD" THEN GOSUB 15 :\ GOTO 1.11 IF BETS$="ODDS" THEN GOSUB 16 :\ GOTO 1.11 IF VAL(BETS$)<1 THEN GOTO 100 BETS%=VAL(BETS$)  much do you want to bet on the Hard 8?";LINE HARD8$ IF VAL(HARD8$)<1 THEN RETURN LET HARD8=VAL(HARD8$) WINNINGS=WINNINGS - HARD8 RETURN 10.6 IF FIRST% THEN \ PRINT"No come bets when comin ON BETS% GOSUB 10.1,10.2,10.3,10.4,10.5,10.6, \ 10.7,10.8,10.9,11,11.1,11.2,11.3,11.4, \ 11.5,11.6,11.7 GOTO 1.11 10.1 INPUT "How much do you want to bet on the line?";LINE LINE.BET$ Ig out!!" :\ RETURN INPUT"How much do you want to bet on the Come Line?";LINE COME$ IF VAL(COME$)<1 THEN RETURN COME=VAL(COME$) WINNINGS=WINNINGS - COME RETURN 10.7 INPUT"How much do you want oF VAL(LINE.BET$)<1 THEN RETURN LET LINE.BET=VAL(LINE.BET$) WINNINGS=WINNINGS - LINE.BET RETURN 10.2 INPUT "How much do you want to bet on the Hard four?";LINE HARD4$ IF VAL(HARD4$)<1 THEN RETURN n the BIG SIX?";LINE BIG.SIX$ IF VAL(BIG.SIX$)<1 THEN RETURN LET BIG.SIX=VAL(BIG.SIX$) WINNINGS=WINNINGS - BIG.SIX RETURN 10.8 INPUT"How much do you want on the BIG EIGHT?";LINE BIG.EIGHT$ IF BETS$="S" OR BETS$="STOP" THEN GOTO 9999 IF VAL(BETS$)>19 THEN \ PRINT"There aren't that many bets available!!!" :\ GOTO 1.11 IF BETS$="LIST" THEN GOSUB 5000 :\ GOTO 1.11 I  R.PLACE%) WINNINGS=WINNINGS - PLACE(NUMBER.PLACE%) PRINT"You have placed the following bets so far" PRINT"NUMBER BET" FOR I%=4 TO 10 IF PLACE(I%)>0 THEN \ PRINT PLACE.POINT%(I% LET FIELD=VAL(FIELD$) WINNINGS=WINNINGS - FIELD RETURN 11 INPUT"What number do you want to Place? ";PLACE.POINT$ IF VAL(PLACE.POINT$)<1 THEN GOTO 11 NUMBER.PLACE%=VAL(PLACE.POINT$) PLAC); :\ PRINT TAB(25);PLACE(I%) NEXT I% INPUT"Would you like to place any more bets? ";LINE Y$ Y$=UCASE$(Y$) IF Y$="Y" OR Y$="YES" THEN GOTO 11 ELSE RETURN REM ****************************E.POINT%(NUMBER.PLACE%)=VAL(PLACE.POINT$) IF (PLACE.POINT%(NUMBER.PLACE%)=4 OR PLACE.POINT%(NUMBER.PLACE%)= \ 10) OR (PLACE.POINT%(NUMBER.PLACE%)=5 OR \ PLACE.POINT%(NUMBER.PLACE%)=9) THEN \ PRINT"Remember, yo****************************** REM ** THE FOLLOWING SECTION WILL TAKE ONE TIME AND HORN BETS* REM ********************************************************** 11.1 REM HORN BET INPUT"How much on the horn?";LINE HORN$ HORN$=UCASEu must bet in UNITS OF 5 on that number" :\ PRINT"How much do you want to place on the ";PLACE.POINT%(NUMBER.PLACE%) :\ INPUT PLACE(NUMBER.PLACE%) WINNINGS=WINNINGS - PLACE(NUMBER.PLACE%) IF PLACE.POINT%(NUMBE$(HORN$) LET HORN=VAL(HORN$) WINNINGS=WINNINGS-HORN RETURN 11.2 REM SINGLE ROLL BET ON THE SEVEN INPUT"How much on the Seven?...";LINE SEVEN$ SEVEN$=UCASE$(SEVEN$) SEVEN=VAL(SEVEN$) WINNINR.PLACE%)=6 OR \ PLACE.POINT%(NUMBER.PLACE%)=8 THEN \ PRINT"Remember, you must bet in UNITS OF SIX on that number" :\ PRINT"How much do you want to place on the ";PLACE.POINT%(NUMBER.PLACE%) :\ INPUT PLACE(NUMBEGS=WINNINGS-SEVEN RETURN 11.3 REM SINGLE ROLL BET ON ANY CRAPS INPUT"How much on Any Craps?...";LINE ANY$ ANY$=UCASE$(ANY$) ANY=VAL(ANY$) WINNINGS=WINNINGS-ANY RETURN 11.4 REM SINGLE ROLL BET ON THE E IF VAL(BIG.EIGHT$)<1 THEN RETURN LET BIG.EIGHT=VAL(BIG.EIGHT$) WINNINGS=WINNINGS - BIG.EIGHT RETURN 10.9 INPUT"How much do you want on the FIELD?";LINE FIELD$ IF VAL(FIELD$)<1 THEN RETURN   u now have $";WINNINGS INPUT"Want to take off another?...";LINE Y$ Y$=UCASE$(Y$) IF Y$="Y" OR Y$="YES" THEN GOTO 12 ELSE RETURN 14: REM TAKE OFF FIELD IF FIELD>0 THEN \ WINNINGS=WINNINGS+FIELNE EYES$ EYES$=UCASE$(EYES$) EYES=VAL(EYES$) WINNINGS=WINNINGS-EYES RETURN 11.6 REM SINGLE ROLL BET ON THE TWELVE INPUT"How much on the Twelve?...";LINE TWELVE$ TWELVE$=UCASE$(TWELVE$) TWED PRINT"Field Bet is off, you now have $";WINNINGS FIELD=0 RETURN 15: REM HARDWAYS INPUT"Which hardways do you want off?..(No. or 'A')";LINE HARDWAY$ HARDWAY$=UCASE$(HARDWAY$) IF HARDWAY$="ALL" OLVE=VAL(TWELVE$) WINNINGS=WINNINGS-TWELVE RETURN 11.7 REM SINGLE ROLL BET ON THE THREE INPUT"How much on the Three?...";LINE THREE$ THREE$=UCASE$(THREE$) THREE=VAL(THREE$) WINNINGS=WINNINGS-THREE RR HARDWAY$="A" THEN GOTO 15.5 HARDWAY%=VAL(HARDWAY$) FOR I%=4 TO 10 STEP 2 IF I%=4 AND HARD4>0 THEN \ WINNINGS=WINNINGS+HARD4 :\ HARD4=0 IF I%=6 AND HARD6>0 THEN \ ETURN REM ********************************************************** REM ** THE FOLLOWING SECTION WILL BE USED FOR TAKING BETS ** REM ** OFF IF THE PLAYER SHOULD SO ELECT ** REM *************************************************** WINNINGS=WINNINGS+HARD6 :\ HARD6=0 IF I%=8 AND HARD8>0 THEN \ WINNINGS=WINNINGS+HARD8 :\ HARD8=0 IF I%=10 AND HARD10>0 THEN \ WINNINGS=WINNINGS+HARD10 :\ ******* 12: REM TAKE OFF PLACE BETS INPUT"What is the number of the place bet you want off?";LINE PLACE$ IF VAL(PLACE$)<1 THEN GOTO 12 WINNINGS=WINNINGS+PLACE(VAL(PLACE$)) PLACE(VAL(PLACE$))=0 PRINT"Yo HARD10=0 NEXT I% RETURN 15.5: REM TAKE OFF ALL HARDWAYS AT ONCE WINNINGS=WINNINGS+(HARD4+HARD6+HARD8+HARD10) HARD4=0 : HARD6=0 : HARD8=0 : HARD10=0 RETURN REM ****************************************************LEVEN INPUT"How much on the Eleven?...";LINE ELEVEN$ ELEVEN$=UCASE$(ELEVEN$) ELEVEN=VAL(ELEVEN$) WINNINGS=WINNINGS-ELEVEN RETURN 11.5 REM SINGLE ROLL BET ON THE TWO INPUT"How much on the Two?...";LI  .AMOUNT(PLACE.ODDS%)=ODDS.AMOUNT INPUT"Would you care to add odds to another bet?..";LINE Y$ Y$=UCASE$(Y$) IF Y$="ODDS" THEN GOSUB 700 :\ GOTO 16 IF Y$="Y" OR Y$="YES" THEN GOTO 16 ELS or line bet answer " PRINT"the next question with one of the following:" PRINT" PLACE" PRINT" LINE" PRINT" COME" PRINT"Should you want a list of 'ODDS' odds answer next questions " PRINT"with 'E RETURN REM ODDS ON LINE BET 20: IF NOT FIRST% THEN \ PRINT"You can put as much as $";LINE.BET;" odds on your line bet.." 21 INPUT"How much would you like to bet?...";LINE LINE.ODDS$ IF LINE.ODDS$="ODDS" TODDS'....." PRINT INPUT"Place, Line, or Come Odds?.....";LINE ODD$ IF ODD$="PLACE" THEN GOTO 16.1 IF ODD$="LINE" THEN GOTO 20 IF ODD$="COME" THEN GOTO 25 IF ODDS$="ODDS" THEN GOSUB 700 :\ HEN GOSUB 700 :\ GOTO 21 LINE.ODDS(POINT%)=VAL(LINE.ODDS$) WINNINGS=WINNINGS-LINE.ODDS(POINT%) RETURN REM COME BET ODDS 25 INPUT"Which Come Bet did you want odds on?...";LINE COME$ COME.ODDS%=VA GOTO 16 REM PLACE-BET ODDS 16.1 INPUT"Which Place Bet did you want odds on?...";LINE PLACE$ IF PLACE$="ODDS" THEN GOSUB 700 :\ GOTO 16.1 PLACE.ODDS%=VAL(PLACE$) IF PLACE(PLACE.ODDS%)<1 THEN \ L(COME$) IF COME$="ODDS" THEN GOSUB 700 :\ GOTO 25 IF COME.BET(COME.ODDS%)<1 THEN \ PRINT"You don't have anything on the";COME.BET(COME.ODDS%) :\ RETURN PRINT"How much odds on the ";COME.ODDS%; PRINT"You don't have anything on the";PLACE(PLACE.ODDS%) :\ RETURN PRINT"How much odds on the ";PLACE.ODDS%;" Maximum $";PLACE(PLACE.ODDS%) INPUT ODDS.AMOUNT WINNINGS=WINNINGS-ODDS.AMOUNT PLACE.ODDS" Maximum $";COME.BET(COME.ODDS%) INPUT ODDS.AMOUNT WINNINGS=WINNINGS-ODDS.AMOUNT COME.ODDS.AMOUNT(COME.ODDS%)=ODDS.AMOUNT INPUT"Would you care to add odds to another bet?..";LINE Y$ Y$=UCASE$(Y$) ***** REM ** THIS SECTION WILL BE USED FOR THE TAKING OF ODDS ** REM ** THIS WILL INCLUDE PLACE BETS AS WELL AS LINE BETS ** REM ********************************************************* 16: PRINT"To take the odds on any place, come,   IF ROLL%=12 AND TWELVE>0 THEN \ WINNINGS=WINNINGS+(TWELVE*30)+TWELVE :\ TWELVE=0 IF ROLL%=11 AND ELEVEN>0 THEN \ WINNINGS=WINNINGS+(ELEVEN*15)+ELEVEN :\ ELEVEN=0 ON ROLL% - 1 GOSUB \ *************************************************** REM ***************** FIRST ROLL (COMING OUT) **************** 110: GOSUB 6000 ON ROLL% - 1 GOSUB 150,150,160,160,160, \ 190,160,160,160,190,150 IF 180,180,170,170,170,140,170,170,170,195,180 IF ROLL%=POINT% THEN GOSUB 130 GOTO 1.11 REM *********************************************** REM ** WIN ON LINE BY MAKING POINT ** REM************************************* ROLL%=3 AND THREE>0 THEN \ WINNINGS=WINNINGS+(THREE*15)+THREE :\ THREE=0 IF ROLL%=2 AND TWO>0 THEN \ WINNINGS=WINNNINGS+(TWO*30)+TWO :\ TWO=0 IF ROLL%=12 AND TWELVE>0 THEN \ WINNING*********** 130 PRINT "YOU WIN - - BY MAKING YOUR POINT." :\ WINNINGS=WINNINGS+(LINE.BET*2) :\ LINE.BET=0 IF LINE.ODDS(ROLL%)>0 THEN GOSUB 668 FIRST%= - 1 RETURN REM ****************************S=WINNINGS+(TWELVE*30)+TWELVE :\ TWELVE=0 IF ROLL%=11 AND ELEVEN>0 THEN \ WINNINGS=WINNINGS+(ELEVEN*15)+ELEVEN :\ ELEVEN=0 GOTO 1.11 REM *****************SECOND ROLL (NOT COMING OUT)*************** 120: ************************** REM ** SEVEN IS ROLLED - NOT ON COME OUT ** REM ****************************************************** 140 PRINT "YOU LOSE - - BY FAILING TO MAKE POINT BEFORE ROLLING 7." :\ LINE.BET=0  FIRST%=0 GOSUB 6000 IF ROLL%=3 AND THREE>0 THEN \ WINNINGS=WINNINGS+(THREE*15)+THREE :\ THREE=0 IF ROLL%=2 AND TWO>0 THEN \ WINNINGS=WINNNINGS+(TWO*30)+TWO :\ TWO=0  GOSUB 300 REM PLACE BETS & HARDWAYS GO DOWN IF ANY>0 THEN LET ANY=0 IF TWELVE>0 THEN LET TWELVE=0 IF THREE>0 THEN LET THREE=0 IF TWO>0 THEN LET TWO=0 IF ELEVEN>0 THEN LET ELEVEN=0 IF  IF Y$="Y" OR Y$="YES" THEN GOTO 16 ELSE RETURN 100 IF NOT FIRST% THEN GOTO 120 REM ************************************************************** REM ** THE FOLLOWING IS THE ROLL AND PAYOFFS FOR LINE.BET BETS ** REM ***********  ****************************************************** IF FIELD>0 AND (ROLL%<5 OR ROLL%>8) THEN \ GOSUB 500 IF COME.BET(ROLL%)>0 THEN \ PRINT "Winner on the come!!... ";ROLL% :\ WINNINGS line!!..." :\ WINNINGS=WINNINGS+(COME*2) :\ COME=0 FOR I%=4 TO 10 IF COME.BET(I%)>0 THEN \ PRINT"Come Bet on the ";ROLL%;"coming down!!" :\ COME.BET(I%)=0 NEX=WINNINGS+(COME.BET(ROLL%)*2) :\ COME.BET(ROLL%)=0 IF (BIG.SIX>0 OR BIG.EIGHT>0) AND (ROLL%=6 OR ROLL%=8) THEN \ GOSUB 400 IF NOT OFF% THEN \ GOSUB 350 :\ GOSUB 600 T I% FOR I%=4 TO 10 IF LINE.ODDS(I%)>0 THEN \ PRINT"You have also lost your line odds!!! " :\ LINE.ODDS(I%)=0 NEXT I% FIRST%= - 1 RETURN REM ****************************** IF (DIE.ONE%=DIE.TWO%) AND NOT OFF% THEN \ ON ROLL% - (ROLL%/2) GOSUB 110,205,250,260,210 IF FIELD>0 AND (ROLL%>4 AND ROLL%<9) THEN \ PRINT"Field Bets are lost (damn!)..." :\ FIELD=0 IF N************************* REM ** 2,3, OR 12 IS ROLLED - COMING OUT ** REM******************************************************** 150 PRINT "YOU LOSE ON THE FIRST ROLL - 2,3, OR 12 ." :\ LINE.BET=0 IF OT OFF% AND PLACE(ROLL%)>0 THEN GOSUB 550 FIRST%=0 RETURN 170: REM ****************************************************** REM ** THIS SECTION TAKES CARE OF ROLLS IF THEY ARE NOT ** REM ** COMING OUT AND HAPPEN TO BE A 4,5,6,8,9, OR 10 ** REMFIELD>0 THEN GOSUB 500 FIRST%= - 1 RETURN 160: REM ******************************************************* REM ** THIS SECTION TAKES CARE OF FIRST ROLLS IF THEY ** REM ** HAPPEN TO BE A 4,5,6,8,9, OR A 10 ** REM * ****************************************************** IF (BIG.SIX>0 OR BIG.EIGHT>0) AND (ROLL%=6 OR ROLL%=8) THEN \ GOSUB 400 IF DIE.ONE%=DIE.TWO% THEN \ ON ROLL% - (ROLL%/2) GOSUB 110,205,250,260,210 SEVEN>0 THEN \ WINNINGS=WINNINGS+(SEVEN*8) :\ PRINT"Winner on the Seven...." :\ SEVEN=0 IF BIG.SIX>0 OR BIG.EIGHT>0 THEN GOSUB 450 IF COME>0 THEN \ PRINT"Winner on the come   ** REM ********************************************************** 190 PRINT "YOU WIN ON THE FIRST ROLL - 7 OR 11." :\ WINNINGS=WINNINGS+(LINE.BET*2) :\ LINE.BET=0 IF ANY>0 THEN LET ANY=0  IF DIE.ONE%<>DIE.TWO% THEN \ GOSUB 350 IF FIELD>0 AND (ROLL%<5 OR ROLL%>8) THEN \ GOSUB 500 GOSUB 600 IF FIELD>0 AND (ROLL%=5 OR ROLL%=6 OR ROLL%=8) THEN \ PRINIF TWELVE>0 THEN LET TWELVE=0 IF THREE>0 THEN LET THREE=0 IF TWO>0 THEN LET TWO=0 IF ELEVEN>0 THEN LET ELEVEN=0 IF SEVEN>0 THEN \ WINNINGS=WINNINGS+(SEVEN*8) :\ PRINT"Winner on the SevT"Field Bets are lost (double-damn!!).." :\ FIELD=0 IF PLACE(ROLL%)>0 THEN GOSUB 550 FIRST%=0 RETURN 180: REM ********************************************************** REM ** THIS SECTION TAKES CARE OF 2,3, OR 12 ROLLen...." :\ SEVEN=0 IF NOT OFF% THEN GOSUB 300 IF ROLL%=7 AND OFF% THEN \ FOR I%=4 TO 10 :\ WINNINGS=WINNINGS+COME.ODDS.AMOUNT(ROLL%) :\ COME.ODDS.AMOUNT(ROLL%)=0  IF NOT ** REM ** COMING OUT ** REM ********************************************************** IF COME>0 THEN \ PRINT"Come Line bets just went away..." :\ COME=0 :\ NEXT I% IF FIELD>0 AND ROLL%=7 THEN \ PRINT "You have just lost your $";FIELD;"field bet" :\ FIELD=0 IF FIELD>0 AND ROLL%=11 THEN \ GOSUB 500 IF (BIG.SIX>0 O IF ANY>0 THEN LET WINNINGS=WINNINGS+(ANY*7)+ANY :\ ANY=0 IF FIELD>0 THEN GOSUB 500 FIRST%=0 RETURN REM ********************************************************** REM ** THIS SECTION IS WHEN FIRST ROLL IS 7 OR 11 R BIG.EIGHT>0) AND ROLL%=7 THEN GOSUB 450 FIRST%= - 1 RETURN 195: REM ************************************************************** REM ** THIS SECTION PAYS ON THE COME IF ROLL IS 11 ** REM ********************************** IF COME.BET(ROLL%)>0 THEN \ PRINT"Winner on the come ";ROLL% :\ WINNINGS=WINNINGS+(COME.BET(ROLL%)*2) :\ COME.BET(ROLL%)=0 IF COME > 0 THEN LET COME.BET(ROLL%)=COME :\ COME=0   ES WHEN SEVEN IS ROLLED *** REM ******************************************************* REM HARDWAYS IF HARD4>0 OR HARD6>0 OR HARD8>0 OR HARD10>0 THEN \ PRINT"Your hardways just fell...." :\ HARD4=0 ********************************************************* REM ** PAYOFF ON HARD 4 & 10 ***************************** REM *********************************************************** 205: IF HARD4<1 THEN RETURN PRINT"Winner on t HARD6=0 HARD8=0 HARD10=0 IF LINE.ODDS(ROLL%)>0 THEN \ PRINT"You have lost your odds on the line!!.." LINE.ODDS=0 FOR I%=4 TO 10 IF PLACE(I%)>0 he Hard 4!!..." WINNINGS=WINNINGS+(HARD4*8) RETURN 210: IF HARD10<1 THEN RETURN PRINT"Winner on the Hard 10" WINNINGS=WINNINGS+(HARD10*8) RETURN 250: REM *************************************************** THEN \ PRINT"Place Bet on the ";i%; "coming down!!" :\ PLACE(I%)=0 NEXT I% NUMBER.PLACE%=0 FOR I%=4 TO 10 IF COME.BET(I%)>0 THEN \ PRINT"Come Bet on the ";I%;"cominREM ** PAYOFF ON HARD 6 & 8 ************************* REM *************************************************** IF HARD6<1 THEN RETURN PRINT"Winner on the Hard 6!!..." WINNINGS=WINNINGS+(HARD6*10) PRINT "WINNg down!!" :\ COME.BET(ROLL%)=0 NEXT I% FOR I%=4 TO 10 IF PLACE.ODDS.AMOUNT(I%)>0 THEN \ PRINT"Odds on the ";I%;"coming down!!" :\ PLACE.ODDS.AMOUNT(I%)=0 NEXT I% INGS NOW = $";WINNINGS RETURN 260: IF HARD8<1 THEN RETURN PRINT"Winner on the Hard 8!!..." WINNINGS=WINNINGS+(HARD8*10) RETURN RETURN 300: REM ******************************************************* REM ** LOSS FOR I%=4 TO 10 IF COME.ODDS.AMOUNT(I%)>0 THEN \ PRINT"Odds on the ";I%;"coming down!!" :\ COME.ODDS.AMOUNT(I%)=0 NEXT I% IF FIELD>0 AND ROLL%=7 THEN \ PRINT "You ha**************************** IF COME > 0 THEN \ WINNINGS=WINNINGS+(COME*2) PRINT "Win on the come line......" COME=0 FIRST%=0 IF FIELD>0 THEN GOSUB 500 RETURN 200: REM **  IF BIG.EIGHT>0 THEN LET WINNINGS=WINNINGS+(BIG.EIGHT*2) :\ PRINT"Lucked out on the big eight..." :\ BIG.EIGHT=0 RETURN 450: REM ************************************************************ REM ** BIG SIX & EIGHT GO DOWN *********************** IF ROLL%=4 AND DIE.ONE% <> DIE.TWO% AND HARD4>0 THEN :\ PRINT"Hard 4 just went down...." :\ HARD4=0 IF ROLL%=6 AND DIE.ONE% <> DIE.TWO% AND HARD6>0 THEN :\ PRINT ** REM ************************************************************ IF BIG.SIX>0 THEN \ PRINT"Suprise!! You just lost your big six bet" :\ BIG.SIX=0 IF BIG.EIGHT>0 THEN \ PRINT"HARD 6 just went down...." :\ HARD6=0 IF ROLL%=8 AND DIE.ONE% <> DIE.TWO% AND HARD8>0 THEN :\ PRINT"HARD 8 just went down...." :\ HARD8=0 IF ROLL%=10 AND DIE.ONE% <> DIE.TWO% AND HARD10"Suprise!! You just lost your big eight bet" :\ BIG.EIGHT=0 RETURN 500: REM ************************************************* REM ** FIELD BETS ** REM ************************************************* >0 THEN :\ PRINT"HARD 10 just went down...." :\ HARD10=0 RETURN 400: REM ************************************************************ REM ** BIG SIX & EIGHT ** REM ********* IF ROLL% <> 11 THEN GOTO 505 PRINT"Win on the field !! " :\ PRINT"You now have $";FIELD*2;" on the field." :\ LET FIELD=FIELD*2 :\ INPUT"Do you want to leave it? ";LINE Y$ :\ Y$=UCASE$*************************************************** IF ROLL%<>6 THEN GOTO 440 IF BIG.SIX>0 THEN LET WINNINGS=WINNINGS+(BIG.SIX*2) :\ PRINT"Lucked out on the big six..." :\ BIG.SIX=0 :\ RETURN 440 (Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS+FIELD :\ FIELD=0 :\ RETURN 505 IF ROLL% <> 2 THEN GOTO 510 PRINT"Win on the field !! " :\ PRINT"You now have $";FIELD*ve just lost your $";FIELD;"field bet" :\ FIELD=0 RETURN 350: REM *********************************************************** REM ** HARDWAYS GO DOWN *** REM ************************************  OLL%)>0 THEN GOTO 560 ELSE GOTO 570 560 PLACE(ROLL%)=PLACE(ROLL%)+INT((PLACE(ROLL%)) * 1.8) :\ PRINT"You now have $";INT%(PLACE(ROLL%)); :\ PRINT" on the ";ROLL% :\ INPUT"Do you want to leave it on?"; RETURN 510 IF ROLL% <> 12 THEN GOTO 520 PRINT"Win on the field !! " :\ PRINT"You now have $";FIELD*4;" on the Field." :\ LET FIELD=FIELD*4 :\ INPUT"Do you want to leave it? ";LINE Y$ :\ LINE Y$ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS+INT%((PLACE(ROLL%))) PLACE(ROLL%)=0 570 IF PLACE(ROLL%)>0 THEN GOTO 571 ELSE GOTO 575 571 PLACE(ROLL%)=PLACE(ROLL%)+I Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS+FIELD :\ FIELD=0 :\ RETURN 520: IF ROLL%=7 THEN RETURN PRINT"Win on the field !! " :\ PRINT"You NT%(PLACE(ROLL%)) * 1.8 :\ PRINT"You now have $";INT%(PLACE(ROLL%)); :\ PRINT" on the ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETnow have $";FIELD*2;" on the Field." :\ LET FIELD=FIELD*2 :\ INPUT"Do you want to leave it? ";LINE Y$ :\ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS+FIELD :\ URN WINNINGS=WINNINGS+INT%((PLACE(ROLL%))) PLACE(ROLL%)=0 575 IF PLACE(ROLL%)>0 THEN GOTO 576 ELSE GOTO 580 576 PLACE(ROLL%)=PLACE(ROLL%)+ INT%(PLACE(ROLL%)) * 1.4 :\ PRINT"You now have $";INT%(PLACE(RO FIELD=0 RETURN 550: REM *********************************************************** REM ** PLACE BET WINS ** REM *********************************************************** IF PLACE(RLL%)); :\ PRINT" on the ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS+ INT%((PLACE(ROLL%))) PLACE(ROLL%)=3;" on the Field." :\ LET FIELD=FIELD*3 :\ INPUT"Do you want to leave it? ";LINE Y$ :\ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS+FIELD :\ FIELD=0 :\   S + INT%((PLACE(ROLL%)*1.66666667)) PLACE(ROLL%)=0 RETURN 600: REM *********************************************************** REM ** THIS SECTION WILL DEAL WITH PAYING OFF ANY ODDS ** REM ** BETS THERE HAPPEN TO BE u want to leave it on?";LINE Y$ Y$ = UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS + INT%((PLACE(ROLL%))) PLACE(ROLL%)=0 585 IF PLACE(ROLL%)>0 THEN GOTO 586 ELSE GOTO 590 586  ** REM *********************************************************** 605 IF PLACE.ODDS.AMOUNT(ROLL%)>0 THEN GOTO 606 ELSE GOTO 618 606 PLACE.ODDS.AMOUNT(ROLL%)=PLACE.ODDS.AMOUNT(ROLL%) + INT%(PLACE.ODDS.AMOUNT(ROLL PLACE(ROLL%)=PLACE(ROLL%) + INT%(PLACE(ROLL%)) * 1.166666667 :\ PRINT"You now have $";INT%(PLACE(ROLL%)); :\ PRINT" on the ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=UCASE$(Y$) %)) * 3 :\ PRINT"You now have $";INT%(PLACE.ODDS.AMOUNT(ROLL%)); :\ PRINT" on the Place Odds ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" T IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS + INT%((PLACE(ROLL%))) PLACE(ROLL%)=0 590 IF PLACE(ROLL%)>0 THEN GOTO 591 ELSE RETURN 591 PLACE(ROLL%)=PLACE(ROLL%) + INT%(PLACE(ROLL%)) * 1.66666667 :\ HEN RETURN WINNINGS=WINNINGS + INT%((PLACE.ODDS.AMOUNT(ROLL%))) PLACE.ODDS.AMOUNT(ROLL%)=0 618 IF PLACE.ODDS.AMOUNT(ROLL%)>0 THEN GOTO 616 ELSE GOTO 628 616 PLACE.ODDS.AMOUNT(ROLL%)=PLACE.ODDS.AMOUNT(ROLL%) + INT%(PLA PRINT"You now have $";INT%(PLACE(ROLL%)); :\ PRINT" on the ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGCE.ODDS.AMOUNT(ROLL%)) * (3/2) :\ PRINT"You now have $";INT%(PLACE.ODDS.AMOUNT(ROLL%)); :\ PRINT" on the Place Odds ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=UCASE$(Y$) 0 580 IF PLACE(ROLL%)>0 THEN GOTO 581 ELSE GOTO 585 581 PLACE(ROLL%)=PLACE(ROLL%)+ INT%(PLACE(ROLL%)) * 1.4 :\ PRINT"You now have $";INT%(PLACE(ROLL%)); :\ PRINT" on the ";ROLL% :\ INPUT"Do yo  8 656 COME.ODDS.AMOUNT(ROLL%)=COME.ODDS.AMOUNT(ROLL%) + INT%(COME.ODDS.AMOUNT(ROLL%)) * (6/5) :\ WINNINGS=WINNINGS + INT%((COME.ODDS.AMOUNT(ROLL%))) COME.ODDS.AMOUNT(ROLL%)=0 668 IF LINE.ODDS(ROLL%)>0 THEN GOTO 666 EMOUNT(ROLL%) + INT%(PLACE.ODDS.AMOUNT(ROLL%)) * (6/5) :\ PRINT"You now have $";INT%(PLACE.ODDS.AMOUNT(ROLL%)); :\ PRINT" on the Place Odds ";ROLL% :\ INPUT"Do you want to leave it on?";LINE Y$ Y$=LSE GOTO 678 666 IF ROLL%=6 OR ROLL%=8 THEN \ LINE.ODDS(ROLL%)=LINE.ODDS(ROLL%) + INT%(LINE.ODDS(ROLL%)) * (6/5) IF ROLL%=4 OR ROLL%=10 THEN \ LINE.ODDS(ROLL%)=LINE.ODDS(ROLL%)+(LINE.ODDS(ROLL%)*2) IF UCASE$(Y$) IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS + INT%((PLACE.ODDS.AMOUNT(ROLL%))) PLACE.ODDS.AMOUNT(ROLL%)=0 638 IF COME.ODDS.AMOUNT(ROLL%)>0 THEN GOTO 639 ELSE GOTO 648 639 COME.ODDS.AMOROLL%=5 OR ROLL%=9 THEN \ LINE.ODDS(ROLL%)=LINE.ODDS(ROLL%)+(LINE.ODDS(ROLL%)*(3/2)) WINNINGS=WINNINGS + INT%((LINE.ODDS(ROLL%))) LINE.ODDS(ROLL%)=0 RETURN 678 RETURN 700: REM *****************************UNT(ROLL%)=COME.ODDS.AMOUNT(ROLL%) + INT%(COME.ODDS.AMOUNT(ROLL%)) * 3 :\ WINNINGS=WINNINGS + INT%((COME.ODDS.AMOUNT(ROLL%))) COME.ODDS.AMOUNT(ROLL%)=0 648 IF COME.ODDS.AMOUNT(ROLL%)>0 THEN GOTO 646 ELSE GOTO 658 646 ************************** REM ** THIS SECTION IS A LIST OF ODDS PAYED ON THE ODDS ** REM ******************************************************* PRINT"4 AND 10 ";TAB(20);"2 TO 1" PRINT"5 AND 9 ";TAB(20);"3 TO 2" PRINT"6COME.ODDS.AMOUNT(ROLL%)=COME.ODDS.AMOUNT(ROLL%) + INT%(COME.ODDS.AMOUNT(ROLL%)) * (3/2) :\ WINNINGS=WINNINGS + INT%((COME.ODDS.AMOUNT(ROLL%))) COME.ODDS.AMOUNT(ROLL%)=0 658 IF COME.ODDS.AMOUNT(ROLL%)>0 THEN GOTO 656 ELSE GOTO 66 AND 8 ";TAB(20);"6 T0 5" RETURN 800: REM ******************************************************* REM ** THE FOLLOWING IS AN ATTEMPT TO EXPLAIN THE ** REM ** ACCOUNTING USED IN THIS PROGRAM ** REM ********************* IF LEFT$(Y$,1)="Y" THEN RETURN WINNINGS=WINNINGS + INT%((PLACE.ODDS.AMOUNT(ROLL%))) PLACE.ODDS.AMOUNT(ROLL%)=0 628 IF PLACE.ODDS.AMOUNT(ROLL%)>0 THEN GOTO 626 ELSE GOTO 638 626 PLACE.ODDS.AMOUNT(ROLL%)=PLACE.ODDS.A  ON EACH ONE AND HOW MUCH ** REM ** TOTAL IS BET - THIS, IN THEORY CAN BE CALLED AT ANY TIME ** REM ************************************************************** PRINT CHR$(12) IF LINE.BET>0 THEN PRINT "LINE BET";TAB(25);"$";LINE.BET IF HARD4>0int is that all money put on the table is" PRINT" considered to be lost until the bet is actually won" PRINT" i.e. Every bet is a minus amount unless it is either" PRINT" taken off or won. What this means is that if you are" PRINT" just starting out a THEN PRINT"HARD 4";TAB(25);"$";HARD4;TAB(30); IF HARD6>0 THEN PRINT"HARD 6"; TAB(60);"$";HARD6 IF HARD8>0 THEN PRINT"HARD 8";TAB(25);"$";HARD8;TAB(30); IF HARD10>0 THEN PRINT"HARD 10";TAB(60);"$";HARD10 IF FIELD>0 THEN PRINT"FIELD";TAB(25);"$";FIELD;Tnd bet $10.00 then the balance will" PRINT" show you to be $10.00 in the hold, etc." PRINT PRINT" The amounts shown after each roll (net win or loss)" PRINT" is the difference between what you started with and" PRINT" what you have after the roll. IfAB(30); IF COME>0 THEN PRINT "COME LINE";TAB(60);"$";COME IF BIG.EIGHT>0 THEN PRINT "BIG 8";TAB(25);"$";BIG.EIGHT;TAB(60); IF BIG.SIX>0 THEN PRINT "BIG 6";TAB(60);"$";BIG.SIX IF HORN>0 THEN PRINT"HORN";TAB(25);"$";HORN;TAB(60); IF TWO>0 THEN PRINT"TWO you have been" PRINT" losing steadily this figure will show up as a minus" PRINT" figure even though you might have gained in actuality." PRINT PRINT" All this may seem confusing but after you work with" PRINT" it for a little while I suspect it will";TAB(60);"$";TWO IF THREE>0 THEN PRINT"THREE";TAB(25);"$";THREE;TAB(60); IF TWELVE>0 THEN PRINT"TWELVE";TAB(60);"$";TWELVE IF SEVEN>0 THEN PRINT"SEVEN";TAB(25);"$";SEVEN;TAB(60); IF ELEVEN>0 THEN PRINT"ELEVEN";TAB(60);"$";ELEVEN IF ANY>0 THEN PRINT"A remain just" PRINT" as murkey as it does right now!!!" PRINT RETURN 4500: REM ************************************************************** REM ** THIS SECTION WILL TELL THE PLAYER WHAT BETS HE OR SHE ** REM ** HAS OUT, HOW MUCH HE HAS BET NY CRAPS";TAB(25);"$";ANY;TAB(60); FOR I%=4 TO 10 IF COME.BET(I%)>0 THEN \ PRINT "COME BET on the "; :\ PRINT I%;TAB(25);COME.BET(I%) :\ COME.TOTAL=COME.TOTAL + COME.BET(I%) NEXT I% FOR I%=4 TO 10 ********************************** PRINT"Certain assumptions have been made in this program which might" PRINT"help and explain to the player how he can tell how he is doing" PRINT"and how much he has won or lost after each roll." PRINT" The first po  quit put in an 'S' or 'STOP' Else hit return..";LINE TEMP$ IF TEMP$="S" OR TEMP$="STOP" THEN GOTO 9999 RANDOMIZE RETURN 5000: REM ****************************************************************** REM * THE FOLLOWING WILL BE THE MASTERE ODDS ";TAB(25);LINE.ODDS(I%) IF PLACE.ODDS.AMOUNT(I%)>0 THEN \ PRINT"PLACE ODDS AMOUNT ";I%;TAB(25);"$";PLACE.ODDS.AMOUNT(I%) IF COME.ODDS.AMOUNT(I%)>0 THEN \ PRINT"COME ODDS AMOUNT ";I%;TAB LIST FOR BETS AVAILABLE * REM * THIS LIST IS IN A IN A GOSUB SO THAT THE PLAYER * REM * CAN CALL IT UP ANYTIME HE WANTS TO BET TO SEE IT * REM ****************************************************************** PRIN(25);"$";COME.ODDS.AMOUNT(I%) TOTAL.ODDS=TOTAL.ODDS + \ LINE.ODDS(I%) + PLACE.ODDS.AMOUNT(I%) + COME.ODDS.AMOUNT(I%) NEXT I% TOTAL.BETS=LINE.BET+HARD4+HARD6+HARD8+HARD10+COME.TOTAL+ \ FIELD+TOTAL.PLACET CHR$(12) PRINT"The following is a list of the available bets along with" PRINT"the odds for that bet. To make a specific bet the player" PRINT"need only put in the code number for a given bet when asked" PRINT"for a bet." PRINT"1 LINE BET +TOTAL.ODDS+COME+BIG.EIGHT+BIG.SIX \ +TWO+TWELVE+THREE+SEVEN+ANY+HORN IF TOTAL.BETS<1 THEN LET TOTAL.BETS=0 PRINT"TOTAL BETS OUT=$";TOTAL.BETS PRINT"Your total bets, wins and losses are $";INT%(WINNINGS) PRINT"You started with $";OLD.WINNINGS EVEN"; REM: LINE.BET PRINT TAB(40);"12 7 7 TO 1" REM: SEVEN PRINT"2 HARDWAY 4 7 to 1"; REM: HARD2 PRINT TAB(40);"13 ANY CRAPS 7 TO 1" REM: ANY PRINT"3 HARDWAY 10 7 to 1"; REM: H PRINT"Your Balance is $";OLD.WINNINGS+INT%(WINNINGS) COME.TOTAL=0 TOTAL.PLACE=0 TOTAL.ODDS=0 LET TOTAL.BETS=0 PRINT IF FIRST% THEN \ PRINT "You are coming out!" ELSE \ PRINT "The Point is ";POINT% PRINT INPUT"If you want to ARD10 PRINT TAB(40);"14 11 15 TO 1" REM: ELEVEN PRINT"4 HARDWAY 6 9 to 1"; REM: HARD6 PRINT TAB(40);"15 2 30 TO 1" REM: EYES PRINT"5 HARDWAY 8 9 to 1"; REM: HARD8 PRINT TAB(40);"16 12 IF PLACE(I%)>0 THEN \ PRINT"PLACE ";I%;TAB(25);"$";PLACE(I%) :\ TOTAL.PLACE=TOTAL.PLACE + PLACE(I%) NEXT I% FOR I%=4 TO 10 IF LINE.ODDS(I%)>0 THEN \ PRINT"LIN   LET POINT%=ROLL% PRINT CHR$(12) PRINT "First die=" ; DIE.ONE% ; TAB(15) ; "Second Die=" ; DIE.TWO% PRINT PRINT"Point rolled is ";ROLL% PRINT PRINT"Point is ";POINT% OLD.ROLL.WINNING REM: LINE.ODDS() PRINT"8 BIG EIGHT EVEN"; REM: BIG.EIGHT PRINT TAB(40);"ODDS PLACE ODDS VARIES" REM: PLACE.ODDS.AMOUNT() PRINT"9 FIELD VARIES"; REM: FIELD PRINT TAB(40);"ODDS COME ODDS VARIES" S=WINNINGS INPUT"Hit return when you are ready for more";LINE TEMP$ RANDOMIZE AFTER.ROLL%=-1 PRINT CHR$(12) RETURN 9999: REM ************************************************************ REM ** THIS IS THREM: COME.ODDS.AMOUNT() PRINT"10 PLACE BET EVEN" REM: PLACE(%) PRINT"11 HORN BET VARIES" REM: HORN() IF FIRST% THEN \ PRINT "You are coming out!" ELSE \ PRINT "The Point is ";POINT% E NORMAL END OF THE PROGRAM. IT WILL WRITE ** REM ** OUT TO A FILE CALLED CRAPS.DAT WHAT ROLLS WERE MADE ** REM ** IN THE SEQUENCE IN WHICH THEY WERE ROLLED FOR LATER ** REM ** PERUSAL. IT SHOULD ALSO PUT A SPACE IN THE FILE EVERY** REM ** INPUT"When you are through looking at this hit return";LINE TEMP$ RETURN REM ********************************************** REM ** ROLL DICE ** REM ********************************************** 6000 LET DIE TIME A SEVEN IS ROLLED. ** REM ************************************************************ TRUE%=-1 NUL.STRING$="***************" IF END #1 THEN 9999.1 CRAPS.DAT$="CRAPS.DAT" .ONE%=INT%(6*RND + 1) DIE.TWO%=INT%(6*RND + 1) ROLL%=DIE.ONE% + DIE.TWO% THROW%=THROW%+1 DICE.ROLL1%(THROW%)=DIE.ONE% DICE.ROLL2%(THROW%)=DIE.TWO% DICE.ROLL.TOTAL%(THROW%)=ROLL% IF FIRST% THEN FILE CRAPS.DAT$ WHILE TRUE% READ #1;LINE DUMMY$ WEND 9999.1 FOR I%=1 TO THROW% PRINT USING "## ## ##";#1; \ DICE.ROLL1%(I%),DICE.ROLL2%(I%),DICE.ROLL.TOTAL%(I%)  30 TO 1" REM: TWELVE PRINT"6 COME BET EVEN"; REM: COME.BET(%) PRINT TAB(40);"17 3 15 TO 1" REM: THREE PRINT"7 BIG SIX EVEN"; REM: BIG.SIX PRINT TAB(40);"ODDS LINE ODDS VARIES"   4 1 5 5 1 6 3 5 8 3 3 6 3 2 5 3 2 5 2 4 6 1 2 3 1 3 4 4 1 5  IF DICE.ROLL.TOTAL%(I%)=7 THEN \ PRINT #1;NUL.STRING$ 9999.2 NEXT I% CLOSE 1 STOP END   This is a copy of my Craps program that I sent to you last week. After I sent it to you I thought that I would take a little better look at it and found that it was screwed up. I have made the fixes necessary. This program is still not perfect but for the most part it works just fine. I have also added a little file routine that prints out what was rolled during any given session to took at later and see why all that money was lost. Sorry about sending you a buggy program. John G. White 216 E. 5th St. Port Angeles, Wash. 98362 n session to took at later and see why all that money was lost. Sorry about sending you a buggy program. John G. White 2             d  d d 7Gd4p#+$p#=$p#5Was the Roll$d4 7Before the roll you had...$$#d4you now have...$$#d4Your net gain or loss on last roll was $#d4Your balance for game now $$#d4d47 Hit return when readyn;h R$d4p 7FCOMING OUT!! GET ON THE LINE!!!$d4p 7jSTILL COMING OUT!!$d4d4To take bets off when coming out only answer with 'OFF'...$d4To take bets off answer with 'PLACE', 'HARD' or 'FIELD', etc.$d4d4To take odds on the line or place, or come answer with 'ODDS'$d4To get list of current bets answer next question with 'BETS'$d4To get list of available bets answer next question with 'LIST'$d4When betting first put in the bet code then the bet $d4If you want to quit put in an 'S' or 'STOP'....$d4d4BET..........n;hMsSSTOP 7a69IXp7There aren't that many bets available!!!$d46LIST746OFF7Ā6BETS7/1$1.8$1.4$1.166666667$1.66666667$*(9If you would like an explaination of the accounting$d4 practices used in this program put in an 'X' now n;hX7+How much money are you starting with? n;hMXX    6PLACE7 K6FIELD7 6HARD7 K6ODDS7%t6Xp736ĀX:wb^96z666c666v666K6 6 6 =6 s6 6 6 6How much do you want to bet on the line?n;hXp7XHow much do y  How much on the horn?n;/h//s0/X0How much on the Seven?...n;1h11s21X2How much on Any Craps?...n;3h33s43X4How much on the Eleven?...n;5h55s65X6How much on the Two?...n;7h77s87 Hard 8?n;!h!Xp7"!X"7&No come bets when coming out!!$d4How much do you want to bet on the Come Line?n;#h#Xp7g$#X$How much do you want on the BIG SIX?n;%h%Xp7&%X&How much do you want X8How much on the Twelve?...n;9h99s:9X:How much on the Three?...n;;h;;s<;X<What is the number of the place bet you want off?n;=h=Xp7 6 K=X]!=X]!pYou now have $$#d4Want to take on the BIG EIGHT?n;'h'Xp7('X(How much do you want on the FIELD?n;)h)Xp7<*)X*What number do you want to Place? n;+1'+Xp76K,+X:,!+X:,!,!  ,!,!  7 GRememoff another?...n;.h..s.Y.YES 7 6 K6 *p7 *Field Bet is off, you now have $$#d4*pWhich hardways do you want off?..(No. or 'A')n;>h>>s>ALL>A 7 6J?>X:-6 ʀ --897I-ber, you must bet in UNITS OF 5 on that number$d4How much do you want to place on the $,!p#d4n;,!"',!,!,! 7 Remember, you must bet in UNITS OF SIX on that number$d4How much do you want to place on the $p 7 p- p 7  p-"p 7'""p- p 7Fp6  "p p"ppTo take the odds on any place, come, or line bet answer $d4the next question with one of the,!p#d4n;,!"',!You have placed the following bets so far$d4NUMBER BET$d4-6 Y -- 7 -!p7 -!p#dJ-!#d46 LWould you like to place any more bets? n;.h..s.Y.YES 7 6K6  following:$d4 PLACE$d4 LINE$d4 COME$d4Should you want a list of 'ODDS' odds answer next questions $d4with 'ODDS'.....$d4d4Place, Line, or Come Odds?.....n;@h@PLACE76@LINE76@COME76AODDS7+6tWhich Place Beou want to bet on the Hard four?n;hXp7XHow much do you want to bet on the Hard 10?n;hXp7TXHow much do you want to bet on the Hard 6?n;hXp7 X How much do you want to bet on the   - - BY FAILING TO MAKE POINT BEFORE ROLLING 7.$d4p}4p74p:p7/:p<p7?<pGp7OGp6p7_6p2p72pWinner on the Seven....$d42p&p(p 7 H$p7Winner on the come line!!....ODDS7+6t.Y.YES 76t6 7CYou can put as much as $$# odds on your line bet..$d4How much would you like to bet?...n;DhDODDS7+6CE !DXE !Which Come Bet did you want odds on?...n;#hF#X:#$d4$p$p-6 -- 7E-!p7BCome Bet on the $p#coming down!!$d4-!p6-6Z -- 7- !p7You have also lost your line odds!!! $d4- !p6MYOU LOSE ON THE FIRST ROLL - 2,3, OR 12ODDS7+6F!p7 You don't have anything on the$F!#d4How much odds on the $Fp# Maximum $$F!#d4n;C"'CF !CWould you care to add odds to another bet?..n;.h..s.Y.YES 76t6 768U .$d4p*p7 ŀ*p 7 !p7\Winner on the come!!... $p#d4!p!p&p(p  7 7' 7b^96666F6*p  7Fieb ^966666666666<p 7$<p<<pGp 7JHGpGGp :p 7p:p::p 6p 76p66p68U<p 7ǀ<p<<pGpld Bets are lost (damn!)...$d4*p !p 7#7&p(p  787``b^96666F6!p7Winner on the come $p#d4!p!p$p7!$$p7* 7HGpGGp :p 7:p::p 6p 796p66pgb ^96U6U66666666B6UE7sv6YOU WIN - - BY MAKING YOUR POINT.$d4pp !p7*րYOU LOSE p 7 '*p  7<Field Bets are lost (double-damn!!)..$d4*p!p7O#7$p7Come Line bets just went away...$d4$p4p74p44p*p7 ŀYOU WIN ON THE FIRST Rt did you want odds on?...n;=h=ODDS7+6ĀB=X:B!p7KYou don't have anything on the$B!#d4How much odds on the $Bp# Maximum $$B!#d4n;C"'CB !CWould you care to add odds to another bet?..n;.h..s   p 7Hard 4 just went down....$d4p p 7DHARD 6 just went down....$d4 p "p 7HARD 8 just went down....$d4"p  p 7HARD 10 just went down....$d4p76 &p7  7 You have just lost your $$*#field bet$d4*p*p  7 &p(p  7; H$p7X$pWin on the come line......$d4$p*p7 p7Winner on the Hard 4!!...$d4pp7W&pLucked out on the big six...$d4&p(p7 G(pLucked out on the big eight...$d4(p&p7 Suprise!! You just lost your big six bet$d4&p(p7 Suprise!! You just lost your big eight bet$d4(p 7 6!bWinner on the Hard 10$d4p p7Winner on the Hard 6!!...$d4 pWINNINGS NOW = $$#d4"p7QWinner on the Hard 8!!...$d4" pp p "p p 7Your hardways just fell....$d4p p"pin on the field !! $d4You now have $$*p# on the field.$d4**pDo you want to leave it? n;.h..s.SY7!S**p7!n6!Win on the field !! $d4You now have $$*p# on the Field.$d4**pDo you want to leave itp !p7You have lost your odds on the line!!..$d4Ip-6. -- 7v-!p7sPlace Bet on the $-p#coming down!!$d4-!p6!,-6 -- 7-!p7Come Bet on the $-p#coming down!!$d4!p? n;.h..s.SY7!**p 7" 6"Win on the field !! $d4You now have $$*p# on the Field.$d4**pDo you want to leave it? n;.h..s.SY7"**p7"Win on the field !! $d4You now have $$*6-6 -- 7/- !p7,Odds on the $-p#coming down!!$d4- !p6߀-6D -- 7- !p7Odds on the $-p#coming down!!$d4- !p67*p 7You have just lost your $$*#field bet$d4*pp# on the Field.$d4**pDo you want to leave it? n;.h..s.SY7#(**p!p7#M6#P6#P6#!!!.BYou now have $$!rp#d on the $p#d4Do you want to leave it on?n;.h..s.SY7#OLL - 7 OR 11.$d4pp4p7 4p:p7:p<p7)<pGp79Gp6p7I6p2p72pWinner on the Seven....$d42p 7} 7ǀ-6 -- 7ǀ ! !p6*p  leave it on?n;.h..s.SY7( !rp !p !p7)+6).6).6) ! ! !rpYou now have $$ !rp#d on the Place Odds $p#d4Do you want to leave it on?n;.h..s.SY7) !rp !r.pYou now have $$!rp#d on the $p#d4Do you want to leave it on?n;.h..s.SY7%E!rp!p!p7%v6%y6%y6&!!!r.pYou now have $$!rp#d on the $p#d4Do you want!p !p7)6)6)6*, ! ! !rp !rp !p !p7*B6*E6*E6* ! ! !rp !rp !p !p7*6*6*6* ! ! !rp !rp ! to leave it on?n;.h..s.SY7%!rp!p!p7&/6&26&26&!!!r.pYou now have $$!rp#d on the $p#d4Do you want to leave it on?n;.h..s.SY7&!rp!pp !p7*6*6*6+ 7+  ! ! !rp  7+M ! ! !p  7+} ! ! !p !rp !p4 AND 10 $J2 TO 1$d45 AND 9 $J3 TO 2$d46 AN!p7&6&6&!!!r.pYou now have $$!rp#d on the $p#d4Do you want to leave it on?n;.h..s.SY7'n!.rp!p !p7'6'6'6(P ! ! !rpYou now have D 8 $J6 T0 5$d4Certain assumptions have been made in this program which might$d4help and explain to the player how he can tell how he is doing$d4and how much he has won or lost after each roll.$d4 The first point is that all money put on the $$ !rp#d on the Place Odds $p#d4Do you want to leave it on?n;.h..s.SY7(5 !rp !p !p7(f6(i6(i6) ! ! !rpYou now have $$ !rp#d on the Place Odds $p#d4Do you want to table is$d4 considered to be lost until the bet is actually won$d4 i.e. Every bet is a minus amount unless it is either$d4 taken off or won. What this means is that if you are$d4 just starting out and bet $10.00 then the balance will$d4 show you!rp!p!p7$6$6$6$!!!r.pYou now have $$!rp#d on the $p#d4Do you want to leave it on?n;.h..s.SY7$!rp!p!p7$6$6$6%`!!  J$$- !#d4- !p73COME ODDS AMOUNT $-p#J$$- !#d4LL- !- !- !62qM "J*KL$(&G:<240Mp73MpTOTAL BETS OUT=$$M#d4Your total bets, wins and losses are $$rp#d4Ys$d4 figure even though you might have gained in actuality.$d4d4 All this may seem confusing but after you work with$d4 it for a little while I suspect it will remain just$d4 as murkey as it does right now!!!$d4d4 R$d4p7/LINE BET$J$ou started with $$#d4Your Balance is $$rp#d4JpKpLpMpd474CYou are coming out!$d464YThe Point is $Ep#d4d4If you want to quit put in an 'S' or 'STOP' Else hit return..n;hSSTOP 7469IM R$d4The following is a$#d4p7/HARD 4$J$$#Jd p70HARD 6$80.0 THEN PRINT "That's very good!" ************** 60 PRINT "" 65 PRINT "YOU HAVE BEEN A GREAT LITTLE PLAYER AND I HOPE YOU'LL PLAY AGAIN." 70 PRINT "Will you play again sometime, ";NAME$;"?" 75 INPUT B$ 80 IF B$ = "YES" THEN 82 81 GOTO 91 82 PRINT PRINT PRINT PRINT " O BBBBB O YY YY II " 85 PRINT " OOO BB BB OOO YY YY II " 86 PRINT " OO OO BB BB OO OO YYYY II " 87 PRINT " OO OO BBBBB OO OO YY II " 88 PRINT " OOO BB BB OOO YY " 89 PRINT " O BBBBB  O YY ** " PRINT PRINT 90 PRINT "GEE, THANKS A LOT,";NAME$;" ,I CAN HARDLY WAIT!!!!" 91 PRINT "IT WOULD MAKE ME UNHAPPY NOT TO PLAY AGAIN!" PRINT "Is there someone else out there who wants to play?"; PRINT "VERY GOOD; THE SUM OF THE NUMBERS IS"; S% L%=L%+1 30 PRINT "DO YOU HAVE MORE TO DO (YES OR NO)"; 32 INPUT C$ 35 IF C$ ="YES" THEN 11 PRINT "You just answered ";L%;" questions right and ";J%; " not correct." PERCENT = L%/(L%+J%) *"  trick Cunningham, San Antonio, TX 78216 (512)822-3593. EOFa bit of modification, the program can be made to generate negative integers or real numbers for more advanced students. Pa ROBO. ROBO is an addition program I wrote for my seven year old daughter, Amy. It presents the learner with a number line (lamentably a bit too small for the entire range of values generated) and with random pairs of numbers to add together. It gives a bit of positive feedback for correct answers and four opportunities to guess or calculate the right answer before giving up and presenting a brand new problem. At the end of the program the total number of right and wrong answers are presented and the student is encour- aged to run the program again. The numbers generated are all integers. With a bit of modification, the program can be made to generate negative integers or real numbers for more advanced students. Pa#   O YY ** $d4d4d4GEE, THANKS A LOT,$$ ,I CAN HARDLY WAIT!!!!$d4IT WOULD MAKE ME UNHAPPY NOT TO PLAY AGAIN!$d4Is there someone else out there who wants to play?$dn; 1' YES76)ions right and $p# not correct.$d45 16 17 18 19 20 $d4$, Here are two numbers for you to add:$p# + $p#d4WHAT DO YOU THINK THE ANSWER IS$dn;":'76,No. I'm sorry that your answer is not correct. Try again.$d47)d4d4Perhaps this problem is too grownup for you. We'll try another.$d4d4d46V66>R$d4VERY GOOD; THE SUM OF THE NUMBERS IS$p#d4DO YOU HAVE MORE TO DO (YES OR NO)$dn;1'YES76VYou just answered $p# questions right and $p# not correct.$d4 .p$d4YOU HAVE BEEN A GREAT LITTLE PLAYER AND I HOPE YOU'LL PLAY AGAIN.$d4Will you play again sometime, $$?$d4n; 1' YES766Ed4d4d4 O BBBBB O YY YY II $d4 OOO BB BB OOO YY YY II $d4 OO OO BB BB OO OO YYYY II $d4 OO OO BBBBB OO OO YY II $d4 OOO BB BB OOO YY $d4 O BBBBB 1$100.0$*`THIS IS A PROGRAM TO ADD TWO NUMBERS$d4What is your name$dn;1'MCpB: CpB:d4--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|$d4 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 1$  %  &  '