10 REM      THIS IS THE SAME CRAPS GAME FOUND ON
20 REM      FOG GAM-017 AND UNTIL NOW IT WOULD NOT
30 REM      RUN ON AN EXECUTIVE
40 REM      BUT USING THE OFFSET WITH THE POKE STATEMENTS
50 REM      SEEMS TO MAKE THIS GAME RUN JUST FINE.......    
60 REM      I DID MAKE SOME CHANGES IN THE BETTING ROUTINES ON 12/9/84
70 REM      SO THAT IF YOU GO BROKE YOU CAN GET BACK INTO THE GAME.....    
80 REM      NOW THAT I HAVE FOUND HOW TO CONVERT PROGRAMS I WILL
90 REM      WORK ON OTHER 01 GAMES
100 REM     AND MODIFY THEM TO RUN ON THE OSBORNE EXECUTIVE   
110 REM *****  P L E A S E   U S E   A N D  E N J O Y ! *****
120 OFFSET=-12288 : REM THIS LINE SETS THE SCREEN LOCATION OFFSET
130 PS=0
140 OUT 0,65 : REM THIS MUST BE IN ANY PROGRAM THAT USES SCREEN POKES ON EXEC'S
150 DATA 62227,22,62228,22,62355,22,62483,22,62611,22,62612,22
160 DATA 62486,22,62487,23,62614,22
170 DATA 62489,23,62490,22,62617,17,62618,22
180 DATA 62492,22,62493,5,62620,22,62621,3,62748,22
190 DATA 62495,22,62496,23,62623,24,62624,22
200 PRINT CHR$(26)
210 PRINT CHR$(26)
220 A$="'"
230 FOR X= 1 TO 23
240  PRINT STRING$(79,A$);
250 NEXT X
260 FOR XA=62098!+OFFSET TO 62738!+OFFSET STEP 128
270  FOR XB=XA TO XA+15
280   POKE XB,32
290  NEXT XB
300 NEXT XA
310 FOR X=61844!+OFFSET TO 61859!+OFFSET : POKE X,22 : NEXT X
320 POKE 61843!+OFFSET,10
330 FOR X=61971!+OFFSET TO 61987!+OFFSET : POKE X,22 : NEXT X
340 POKE 61970!+OFFSET,10
350 FOR X= 62114!+OFFSET TO 62626!+OFFSET STEP 128
360 POKE X,22 : NEXT X
370 POKE 62754!+OFFSET,25
380 FOR X=62115!+OFFSET TO 62499!+OFFSET STEP 128 
390 POKE X,22 : NEXT X
400 POKE 62627!+OFFSET,25
410 FOR T = 1 TO 22
420  READ Z,X
430  POKE Z+OFFSET,X
440 NEXT T
450 FOR TIME = 1 TO 100 : NEXT TIME
460 PRINT CHR$(&H1E)
470 FOR X= 1 TO 18 : PRINT : NEXT X
480 PRINT "'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''"  
490 PRINT "''''''''''''''''''''' Modified for OSBORNE EXECUTIVE ''''''''"
500 PRINT "''''''''''''''''''''' By Eric Steinberg Vallejo Ca. '''''''''"
510 FOR TIME = 1 TO 900: NEXT TIME
520 PRINT "'''''''''''''''''''''    Ready to play (Y/N)  ";
530 ANS$=INKEY$
540 S=S+1
550 IF S = 32767 THEN S = -32768!
560 IF ANS$="Y" THEN GOTO 590
570 IF ANS$="N" THEN GOTO 2480
580 GOTO 530
590 RANDOMIZE S
600 MONY=100
610 '*********** BETTING ROUTINE ***********
620 PRINT CHR$(26)
630 FOR X=1 TO 5 : PRINT : NEXT X
640 PRINT TAB(13);
650 IF MONY <=0 THEN GOTO 2550
660 PRINT "YOU HAVE $";MONY;" TO SPEND"
670 PRINT
680 PRINT "        How much of it do you want to bet"
690 PRINT
700 PRINT TAB(23);"$";
710 INPUT BET
720 IF BET <= MONY THEN GOTO 750
730 IF BET > MONY THEN PRINT"SORRY YOU DON'T HAVE THAT MUCH"
740 PRINT"PRESS RETURN";:INPUT ZZZ :GOTO 620
750 'FIRST ROLL
760 PRINT:PRINT TAB(12);"TO ROLL DICE, HIT SPACE BAR"
770 X$=INPUT$(1)
780 '********** FIRST ROLL ***************
790 D1 = INT(RND*6)+1
800 D2 = INT(RND*6)+1
810 R1 = D1+D2
820 GOSUB 1340:'TABLE DISPLAY
830 GOSUB 1600:'FIRST DIE MOVE
840 GOSUB 1820:'DOTS
850 GOSUB 2200:'2nd DIE MOVE
860 FOR TIME= 1 TO 400: NEXT TIME
870 PRINT "  YOU ROLLED  ";R1
880 PRINT
890 IF R1=7 THEN GOTO 960
900 IF R1 = 11 THEN GOTO 960
910 IF R1 = 3 THEN GOTO 1060
920 IF R1 = 12 THEN GOTO 1060
930 IF R1 = 2 THEN GOTO 1060
940 GOTO 1150
950 '******************* WIN ******************
960 MONY = MONY + BET
970 FOR TIME = 1 TO 400 :NEXT TIME
980 PRINT
990 PRINT "  *****************"
1000 PRINT "  *    YOU WON !  *"
1010 PRINT "  *****************"
1020 PRINT:PRINT "  Play again? (Y/N)"
1030 X$= INPUT$(1)
1040 IF X$="Y" THEN GOTO 610 ELSE 2490
1050 '******************* LOSE *******************
1060 MONY = MONY - BET
1070 PRINT
1080 FOR TIME = 1 TO 900 : NEXT TIME
1090 PRINT "  =========="
1100 PRINT "   YOU LOSE"
1110 PRINT "  =========="
1120 PRINT "TRY AGAIN? (Y/N)"
1130 X$=INPUT$(1)
1140 IF X$="Y" THEN 610 ELSE 2490
1150 '****************** POINT ******************
1160 REM       FOR TIME = 1 TO 900 : NEXT TIME
1170 PRINT " the point is ";R1
1180 PRINT " keep rolling"
1190 PRINT: PRINT " hit any key"
1200 PRINT " to roll dice"
1210 X$= INPUT$(1)
1220 D1 = INT(RND*6)+1
1230 D2 = INT(RND*6)+1
1240 R2 =D1+D2
1250 GOSUB 2290:'ERASE 
1260 GOSUB 1600 :'1st DIE MOVE
1270 GOSUB 1820 : 'DOTS
1280 GOSUB 2200 :'2nd DIE MOVE
1290 GOSUB 1820 : 'DOTS
1300 IF R2=7 THEN GOTO 1060
1310 'IF R2=11 THEN GOTO 980
1320 IF R2=R1 THEN GOTO 960
1330 GOTO  1150
1340 '************** DISPLAY ROUTINES *************
1350 PRINT CHR$(26)
1360 FOR X=61470!+OFFSET TO 63754!+OFFSET STEP 127: POKE X,10:NEXT X
1370 FOR X=61471!+OFFSET TO 63755!+OFFSET STEP 127
1380  FOR Q= X TO X+2
1390   POKE Q,22
1400  NEXT Q
1410 NEXT X
1420 D=63757!+OFFSET
1430 FOR X=61474!+OFFSET TO 63758!+OFFSET STEP 127 : POKE X,25 : NEXT X
1440 D=63757!+OFFSET
1450 FOR X = D TO D+87 : POKE X,23 : NEXT X
1460 FOR X=D TO D+384 STEP 128:POKE X,1 :NEXT X
1470 POKE D,17
1480 FOR X=64141!+OFFSET TO 64210!+OFFSET : POKE X,23 : NEXT X
1490 POKE 61473!+OFFSET,32 : POKE 61474!+OFFSET,32
1500 POKE 61601!+OFFSET,32 : POKE 61602!+OFFSET,32
1510 POKE 61729!+OFFSET,32
1520 POKE 61472!+OFFSET,1 : POKE 61600!+OFFSET,1 : POKE 61728!+OFFSET,26
1530 FOR X= 61729!+OFFSET TO 61799!+OFFSET : POKE X,24 : NEXT X
1540 POKE 61472!+OFFSET,17
1550 FOR X=61473!+OFFSET TO 61530!+OFFSET : POKE X,23 : NEXT X
1560 FOR X = 64279!+OFFSET TO 64336!+OFFSET :POKE X,22:NEXT X
1570 FOR X = 64407!+OFFSET TO 64507!+OFFSET :POKE X,22 : NEXT X
1580 RETURN
1590 '************* FIRST DIE MOVEMENT *****************
1600 ST=62883!+OFFSET+18
1610 FOR D =ST TO  ST-29 STEP -1 : DIR$="FORWARD"
1620 GOSUB 1700
1630 NEXT D
1640 FOR D = ST-28 TO ST-20+1 :DIR$= "BACKWARDS"
1650 GOSUB 1700
1660 NEXT D
1670 D=ST-20 : GOSUB 1700
1680 RETURN
1690 '*************** DIE **********************
1700 POKE D+128,13
1710 POKE D+385,13
1720 POKE D+1,22:POKE D+2,22 :POKE D+3,22:POKE D,10
1730 POKE D+131,22:POKE D+259,22
1740 POKE D+4,32:POKE D+132,32: POKE D+260,32
1750 POKE D+388,32:POKE  D+516,32
1760 POKE D+387,25
1770 IF DIR$><"BACKWARDS" THEN GOTO 1800
1780 POKE D-1,32 : POKE D+127,32 : POKE D +255,32
1790 POKE D+382,32 :POKE D+ 383,32
1800 RETURN
1810 POKE D,32 :POKE D+127,32 :POKE D+253,32
1820 'DOTS
1830 GOSUB 1900
1840 IF D1=1 THEN 1940
1850 IF D1=2 THEN 1990
1860 IF D1=3 THEN 2040
1870 IF D1=4 THEN 2080
1880 IF D1=5 THEN 2120
1890 IF D1=6 THEN 2160
1900 A=128: B=129 :C= 130
1910 E=256: F=257 :G= 258
1920 H=384: I=385 :J= 386
1930 RETURN
1940 '1
1950 POKE D+A,32 : POKE D+B,32 : POKE D+C,32
1960 POKE D+E,32 : POKE D+F,13 : POKE D+G,32
1970 POKE D+H,32 : POKE D+I,32 : POKE D+J,32
1980 GOTO 2190
1990 '2
2000 POKE D+A,13 : POKE D+B,32 : POKE D+C,32
2010 POKE D+E,32 : POKE D+F,32 : POKE D+G,32
2020 POKE D+H,32 : POKE D+I,32 : POKE D+J,13
2030 GOTO 2190
2040 POKE D+A,32 : POKE D+B,32 : POKE D+C,13
2050 POKE D+E,32 : POKE D+F,13 : POKE D+G,32
2060 POKE D+H,13 : POKE D+I,32 : POKE D+J,32
2070 GOTO 2190
2080 POKE D+A,13 : POKE D+B,32 : POKE D+C,13
2090 POKE D+E,32 : POKE D+F,32 : POKE D+G,32
2100 POKE D+H,13 : POKE D+I,32 : POKE D+J,13
2110 GOTO 2190
2120 POKE D+A,13 : POKE D+B,32 : POKE D+C,13
2130 POKE D+E,32 : POKE D+F,13 : POKE D+G,32
2140 POKE D+H,13 : POKE D+I,32 : POKE D+J,13
2150 GOTO 2190
2160 POKE D+A,13 : POKE D+B,32 : POKE D+C,13
2170 POKE D+E,13 : POKE D+F,32 : POKE D+G,13
2180 POKE D+H,13 : POKE D+I,32 : POKE D+J,13
2190 RETURN
2200 ST = 62504!+OFFSET : DIR$="FORWARD"
2210 D1=D2
2220 FOR D = ST + 11 TO ST STEP -1
2230 GOSUB 1700
2240 NEXT D
2250 D=ST
2260 GOSUB 1700
2270 GOSUB 1820
2280 RETURN :'BACK TO MAIN PROGRAM
2290 POKE D,32
2300 POKE D+A,32 : POKE D+B,32 : POKE D+C,32 : POKE D+C+1,32
2310 POKE D+E,32 : POKE D+F,32 : POKE D+G,32 : POKE D+G+1,32
2320 POKE D+C+2,32 : POKE D+G+2,32 : POKE D+J+2,32
2330 POKE D+H,32 : POKE D+I,32 : POKE D+J,32 : POKE D+J+1,32
2340 FOR X=1 TO 4 : POKE D+X,32 : NEXT X
2350 IF D= 62880!+OFFSET THEN GOTO 2380
2360 D=62880!+OFFSET
2370 GOTO 2300
2380 PRINT CHR$(&H1E)
2390 PRINT"                  "
2400 PRINT"                  "
2410 PRINT"                  "
2420 PRINT"                  "
2430 PRINT"                  "
2440 PRINT"                  "
2450 PRINT"                  "
2460 PRINT CHR$(&H1E)
2470 RETURN
2480 REM
2490 PRINT CHR$(26)
2500 FOR X=1 TO 6 : PRINT : NEXT X
2510 PRINT TAB(10);
2520 PRINT "YOU ENDED THE GAME WITH $";MONY;".00"
2530 FOR X = 1 TO 14 : PRINT : NEXT X
2540 CLEAR : END
2550 PRINT CHR$(26)
2560  IF PS<6 THEN PS=PS+1
2570 PAWNSHOP$(1)="THATS A NICE WATCH YOUR WEARING AND  I'LL GIVE YOU "
2580 PAWNSHOP$(2)="THAT'S A NICE RING YOU'RE WEARING AND  I'LL GIVE YOU.."
2590 PAWNSHOP$(3)="THAT'S A NICE SET OF LUGGAGE YOU'VE YOU HAVE THERE AND  I'LL GIVE YOU..."
2600 PAWNSHOP$(4)="THAT'S A NICE LOOKING CAR YOU HAVE THERE ... AND I'LL GIVE YOU ..."      
2610 PAWNSHOP$(5)="THAT'S A GOOD LOOKING WIFE YOU HAVE THERE..AND I NEED A MAID.. I'LL GIVE YOU...."
2620 PAWNSHOP$(6)="ALL YOU HAVE LEFT IS YOUR HOUSE .... AND I'LL GIVE YOU ...."
2630 PRINT SPC(15)"{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}":PRINT SPC(15)"{{}}     W E L C O M E  T O   T H E         {{}}    "
2640 PRINT SPC(15)"{{}}         P A W N    S H O P...          {{}}"
2650 PRINT SPC(15) "{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}{{}}"
2660 PRINT:PRINT"YOU ARE BROKE MY FRIEND BUT FEAR NOT I CAN HELP"
2670 PRINT:PRINT
2680 PRINT PAWNSHOP$(PS)
2690 PRINT"$100.00 FOR IT ":INPUT "DO YOU WANT TO SELL (Y/N)";SELL$
2700 IF SELL$="N" THEN GOTO 2480
2710 IF SELL$="Y" THEN MONY=100 : GOTO 620
OR IT ":INPUT "DO YOU WANT TO SELL (Y/N)";SELL$
2700 IF SELL$="N" TH