Data
Prev: 23297 Up: Map Next: 59695
23755: BASIC Program
The game is mostly Sinclair BASIC. See the recovered listing on the BASIC listing page. LIST only shows line 1; line 15's header is corrupted on the tape so listing stops. The program still runs. Line 1 does RANDOMIZE USR (VARS-116) digits show 140, hidden float 116 entering Run_Bootstrap.
BasicProgram 23755 DEFB 0,1,55,0,8,8,8,8 Line 1: RANDOMIZE USR ((PEEK 23627)+((PEEK 23628)*256)-116).
23763 DEFB 8,17,7,16,7,249,192,40
23771 DEFB 40,190,53,14,0,0,75,92
23779 DEFB 0,41,43,40,40,190,54,14
23787 DEFB 0,0,76,92,0,41,42,50
23795 DEFB 14,0,0,0,1,0,41,45
23803 DEFB 49,52,48,14,0,0,116,0
23811 DEFB 0,41,13
Corrupted line 15 (LIST protection).
23814 DEFB 255,15,203,78,65,77,69,32 LIST stops here: the line-number high byte is 255. Reading the bytes as a line anyway, the length word swallows the "N" of "NAME" and it would show as: 65295AME DO YOU GO BY?": INPUT "ENTER NAME "; LINE N$: IF N$="" THEN GO TO VAL "15".
23822 DEFB 68,79,32,89,79,85,32,71
23830 DEFB 79,32,66,89,63,34,58,238
23838 DEFB 34,69,78,84,69,82,32,78
23846 DEFB 65,77,69,32,34,59,202,78
23854 DEFB 36,58,250,78,36,61,34,34
23862 DEFB 203,236,176,34,49,53,34,13
23870 DEFB 0,20,152,0,215,46,52,14 Line 20: BEEP .4,-10: CLS : PRINT AT 8,3;"ENTER LEVEL OF DIFFICULTY": INPUT " LEVEL 1,2 OR 3 "; LINE E$: LET E$=E$+" ": IF CODE E$(1)>51 OR CODE E$(1)<49 THEN GO TO VAL "20".
23878 DEFB 127,76,204,204,204,44,45,49
23886 DEFB 48,14,0,0,10,0,0,58
23894 DEFB 251,58,245,172,56,14,0,0
23902 DEFB 8,0,0,44,51,14,0,0
23910 DEFB 3,0,0,59,34,69,78,84
23918 DEFB 69,82,32,76,69,86,69,76
23926 DEFB 32,79,70,32,68,73,70,70
23934 DEFB 73,67,85,76,84,89,34,58
23942 DEFB 238,34,32,76,69,86,69,76
23950 DEFB 32,49,44,50,197,51,32,34
23958 DEFB 59,202,69,36,58,241,69,36
23966 DEFB 61,69,36,43,34,32,34,58
23974 DEFB 250,175,69,36,40,49,14,0
23982 DEFB 0,1,0,0,41,62,53,49
23990 DEFB 14,0,0,51,0,0,197,175
23998 DEFB 69,36,40,49,14,0,0,1
24006 DEFB 0,0,41,60,52,57,14,0
24014 DEFB 0,49,0,0,203,236,176,34
24022 DEFB 50,48,34,13
24026 DEFB 0,22,10,0,241,76,86,61 Line 22: LET LV=VAL E$+U.
24034 DEFB 176,69,36,43,85,13
24040 DEFB 0,30,191,0,215,46,53,14 Line 30: BEEP .5,30: CLS : PRINT AT 10,10;"PLEASE WAIT": LET LM=3: LET SC=O: LET JB=O: LET L=6: LET CS=1500: LET DT=O: RANDOMIZE O: DIM T(5,5): RESTORE 9110: FOR N=U TO 5: FOR A=U TO 5: READ S: LET T(N,A)=S: NEXT A: NEXT N.
24048 DEFB 127,127,255,255,255,44,51,48
24056 DEFB 14,0,0,30,0,0,58,251
24064 DEFB 58,245,172,49,48,14,0,0
24072 DEFB 10,0,0,44,49,48,14,0
24080 DEFB 0,10,0,0,59,34,80,76
24088 DEFB 69,65,83,69,32,87,65,73
24096 DEFB 84,34,58,241,76,77,61,51
24104 DEFB 14,0,0,3,0,0,58,241
24112 DEFB 83,67,61,79,58,241,74,66
24120 DEFB 61,79,58,241,76,61,54,14
24128 DEFB 0,0,6,0,0,58,241,67
24136 DEFB 83,61,49,53,48,48,14,0
24144 DEFB 0,220,5,0,58,241,68,84
24152 DEFB 61,79,58,249,79,58,233,84
24160 DEFB 40,53,14,0,0,5,0,0
24168 DEFB 44,53,14,0,0,5,0,0
24176 DEFB 41,58,229,57,49,49,48,14
24184 DEFB 0,0,150,35,0,58,235,78
24192 DEFB 61,85,204,53,14,0,0,5
24200 DEFB 0,0,58,235,65,61,85,204
24208 DEFB 53,14,0,0,5,0,0,58
24216 DEFB 227,83,58,241,84,40,78,44
24224 DEFB 65,41,61,83,58,243,65,58
24232 DEFB 243,78,13
24235 DEFB 0,40,84,0,241,67,83,61 Line 40: LET CS=1450: DIM U(5,INT PI): RESTORE VAL "9120": FOR N=U TO 5: FOR A=U TO 3: READ S: LET U(N,A)=S: NEXT A: NEXT N.
24243 DEFB 49,52,53,48,14,0,0,170
24251 DEFB 5,0,58,233,85,40,53,14
24259 DEFB 0,0,5,0,0,44,186,167
24267 DEFB 41,58,229,176,34,57,49,50
24275 DEFB 48,34,58,235,78,61,85,204
24283 DEFB 53,14,0,0,5,0,0,58
24291 DEFB 235,65,61,85,204,51,14,0
24299 DEFB 0,3,0,0,58,227,83,58
24307 DEFB 241,85,40,78,44,65,41,61
24315 DEFB 83,58,243,65,58,243,78,13
24323 DEFB 0,50,56,0,233,75,36,40 Line 50: DIM K$(16,20): RESTORE VAL "9140": FOR N=U TO 16: READ K$(N): NEXT N.
24331 DEFB 49,54,14,0,0,16,0,0
24339 DEFB 44,50,48,14,0,0,20,0
24347 DEFB 0,41,58,229,176,34,57,49
24355 DEFB 52,48,34,58,235,78,61,85
24363 DEFB 204,49,54,14,0,0,16,0
24371 DEFB 0,58,227,75,36,40,78,41
24379 DEFB 58,243,78,13
24383 DEFB 0,60,46,0,233,75,40,49 Line 60: DIM K(16): RESTORE VAL "9145": FOR N=U TO 16: READ K(N): NEXT N:.
24391 DEFB 54,14,0,0,16,0,0,41
24399 DEFB 58,229,176,34,57,49,52,53
24407 DEFB 34,58,235,78,61,85,204,49
24415 DEFB 54,14,0,0,16,0,0,58
24423 DEFB 227,75,40,78,41,58,243,78
24431 DEFB 58,13
24433 DEFB 0,70,137,0,233,73,40,49 Line 70: DIM I(16): FOR N=U TO 16: LET I(N)=O: NEXT N: LET I(6)=5: LET I(4)=U: DIM R(5): RESTORE VAL "9095": FOR N=U TO 5: READ R(N): NEXT N: DIM D$(5,19).
24441 DEFB 54,14,0,0,16,0,0,41
24449 DEFB 58,235,78,61,85,204,49,54
24457 DEFB 14,0,0,16,0,0,58,241
24465 DEFB 73,40,78,41,61,79,58,243
24473 DEFB 78,58,241,73,40,54,14,0
24481 DEFB 0,6,0,0,41,61,53,14
24489 DEFB 0,0,5,0,0,58,241,73
24497 DEFB 40,52,14,0,0,4,0,0
24505 DEFB 41,61,85,58,233,82,40,53
24513 DEFB 14,0,0,5,0,0,41,58
24521 DEFB 229,176,34,57,48,57,53,34
24529 DEFB 58,235,78,61,85,204,53,14
24537 DEFB 0,0,5,0,0,58,227,82
24545 DEFB 40,78,41,58,243,78,58,233
24553 DEFB 68,36,40,53,14,0,0,5
24561 DEFB 0,0,44,49,57,14,0,0
24569 DEFB 19,0,0,41,13
24574 DEFB 0,115,52,0,235,78,61,85 Line 115: FOR N=U TO 5: RESTORE VAL "9000"+INT (RND*12)+U: READ l$: LET D$(n)=L$.
24582 DEFB 204,53,14,0,0,5,0,0
24590 DEFB 58,229,176,34,57,48,48,48
24598 DEFB 34,43,186,40,165,42,49,50
24606 DEFB 14,0,0,12,0,0,41,43
24614 DEFB 85,58,227,108,36,58,241,68
24622 DEFB 36,40,110,41,61,76,36,13
24630 DEFB 0,135,20,0,235,65,61,85 Line 135: FOR A=U TO N: IF A=N THEN GO TO VAL "145".
24638 DEFB 204,78,58,250,65,61,78,203
24646 DEFB 236,176,34,49,52,53,34,13
24654 DEFB 0,140,21,0,250,68,36,40 Line 140: IF D$(N)=D$(A) THEN GO TO VAL "115".
24662 DEFB 78,41,61,68,36,40,65,41
24670 DEFB 203,236,176,34,49,49,53,34
24678 DEFB 13
24679 DEFB 0,145,6,0,243,65,58,243 Line 145: NEXT A: NEXT N.
24687 DEFB 78,13
24689 DEFB 0,155,54,0,233,66,36,40 Line 155: DIM B$(5,15): RESTORE VAL "9015": FOR N=U TO 5: READ B$(N): NEXT N.
24697 DEFB 53,14,0,0,5,0,0,44
24705 DEFB 49,53,14,0,0,15,0,0
24713 DEFB 41,58,229,176,34,57,48,49
24721 DEFB 53,34,58,235,78,61,85,204
24729 DEFB 53,14,0,0,5,0,0,58
24737 DEFB 227,66,36,40,78,41,58,243
24745 DEFB 78,13
24747 DEFB 0,165,36,0,233,86,40,53 Line 165: DIM V(5): FOR N=U TO 5: LET V(N)=R: NEXT N.
24755 DEFB 14,0,0,5,0,0,41,58
24763 DEFB 235,78,61,85,204,53,14,0
24771 DEFB 0,5,0,0,58,241,86,40
24779 DEFB 78,41,61,82,58,243,78,13
24787 DEFB 0,170,19,0,241,77,66,61 Line 170: LET MB=INT (RND*5)+U.
24795 DEFB 186,40,165,42,53,14,0,0
24803 DEFB 5,0,0,41,43,85,13
24810 DEFB 0,180,63,0,233,84,36,40 Line 180: DIM T$(5,14): RESTORE VAL "9045": FOR N=U TO 5: READ T$(N): NEXT N: GO TO VAL "8900".
24818 DEFB 53,14,0,0,5,0,0,44
24826 DEFB 49,52,14,0,0,14,0,0
24834 DEFB 41,58,229,176,34,57,48,52
24842 DEFB 53,34,58,235,78,61,85,204
24850 DEFB 53,14,0,0,5,0,0,58
24858 DEFB 227,84,36,40,78,41,58,243
24866 DEFB 78,58,236,176,34,56,57,48
24874 DEFB 48,34,13
24877 DEFB 1,54,132,0,231,85,58,218 Line 310: BORDER U: PAPER R: CLS : LET S$=" ": FOR N=U TO 30: PRINT AT U,N;"~";AT 11,N;"~": NEXT N: FOR N=R TO 10: PRINT AT N,U;"~"; PAPER 6;S$; PAPER R;"~": NEXT N.
24885 DEFB 82,58,251,58,241,83,36,61
24893 DEFB 34,32,32,32,32,32,32,32
24901 DEFB 32,32,32,32,32,32,32,32
24909 DEFB 32,32,32,32,32,32,32,32
24917 DEFB 32,32,32,32,32,34,58,235
24925 DEFB 78,61,85,204,51,48,14,0
24933 DEFB 0,30,0,0,58,245,172,85
24941 DEFB 44,78,59,34,126,34,59,172
24949 DEFB 49,49,14,0,0,11,0,0
24957 DEFB 44,78,59,34,126,34,58,243
24965 DEFB 78,58,235,78,61,82,204,49
24973 DEFB 48,14,0,0,10,0,0,58
24981 DEFB 245,172,78,44,85,59,34,126
24989 DEFB 34,59,218,54,14,0,0,6
24997 DEFB 0,0,59,83,36,59,218,82
25005 DEFB 59,34,126,34,58,243,78,13
25013 DEFB 1,59,195,0,245,218,54,14 Line 315: PRINT PAPER 6;AT 7,6;"_";AT 2,9;"4";AT 5,3;"5 _";AT 6,9;"_ 3";TAB 21;"1";AT 9,10;"2";AT 3,27;"N";AT 4,27;"↑".
25021 DEFB 0,0,6,0,0,59,172,55
25029 DEFB 14,0,0,7,0,0,44,54
25037 DEFB 14,0,0,6,0,0,59,34
25045 DEFB 95,34,59,172,50,14,0,0
25053 DEFB 2,0,0,44,57,14,0,0
25061 DEFB 9,0,0,59,34,52,20,1
25069 DEFB 20,0,130,34,59,172,53,14
25077 DEFB 0,0,5,0,0,44,51,14
25085 DEFB 0,0,3,0,0,59,34,53
25093 DEFB 20,1,135,20,0,32,32,32
25101 DEFB 95,34,59,172,54,14,0,0
25109 DEFB 6,0,0,44,57,14,0,0
25117 DEFB 9,0,0,59,34,95,32,32
25125 DEFB 32,129,51,34,59,173,50,49
25133 DEFB 14,0,0,21,0,0,59,34
25141 DEFB 129,49,34,59,172,57,14,0
25149 DEFB 0,9,0,0,44,49,48,14
25157 DEFB 0,0,10,0,0,59,34,129
25165 DEFB 50,34,59,172,51,14,0,0
25173 DEFB 3,0,0,44,50,55,14,0
25181 DEFB 0,27,0,0,59,34,78,34
25189 DEFB 59,172,52,14,0,0,4,0
25197 DEFB 0,44,50,55,14,0,0,27
25205 DEFB 0,0,59,34,94,34,13
25212 DEFB 1,64,242,0,246,57,50,14 Line 320: PLOT 92,136: DRAW 5,9: DRAW INT PI,-5: PLOT 97,136: DRAW 5,7: DRAW 5,-7: PLOT 105,139: DRAW INT PI,6: DRAW 5,-9: PLOT 111,140: DRAW 5,4: DRAW 6,-8: CIRCLE 219,144,12.
25220 DEFB 0,0,92,0,0,44,49,51
25228 DEFB 54,14,0,0,136,0,0,58
25236 DEFB 252,53,14,0,0,5,0,0
25244 DEFB 44,57,14,0,0,9,0,0
25252 DEFB 58,252,186,167,44,45,53,14
25260 DEFB 0,0,5,0,0,58,246,57
25268 DEFB 55,14,0,0,97,0,0,44
25276 DEFB 49,51,54,14,0,0,136,0
25284 DEFB 0,58,252,53,14,0,0,5
25292 DEFB 0,0,44,55,14,0,0,7
25300 DEFB 0,0,58,252,53,14,0,0
25308 DEFB 5,0,0,44,45,55,14,0
25316 DEFB 0,7,0,0,58,246,49,48
25324 DEFB 53,14,0,0,105,0,0,44
25332 DEFB 49,51,57,14,0,0,139,0
25340 DEFB 0,58,252,186,167,44,54,14
25348 DEFB 0,0,6,0,0,58,252,53
25356 DEFB 14,0,0,5,0,0,44,45
25364 DEFB 57,14,0,0,9,0,0,58
25372 DEFB 246,49,49,49,14,0,0,111
25380 DEFB 0,0,44,49,52,48,14,0
25388 DEFB 0,140,0,0,58,252,53,14
25396 DEFB 0,0,5,0,0,44,52,14
25404 DEFB 0,0,4,0,0,58,252,54
25412 DEFB 14,0,0,6,0,0,44,45
25420 DEFB 56,14,0,0,8,0,0,58
25428 DEFB 216,50,49,57,14,0,0,219
25436 DEFB 0,0,44,49,52,52,14,0
25444 DEFB 0,144,0,0,44,49,50,14
25452 DEFB 0,0,12,0,0,13
25458 DEFB 1,69,144,0,245,172,49,51 Line 325: PRINT AT 13,R;"1=DRY GULCH : 2=DODGE CITY";TAB R;"3=NUGGET CITY : 4=BULLETVILLE";TAB 8;"5=DEADMANS CREEK";AT 16,7;"------------------".
25466 DEFB 14,0,0,13,0,0,44,82
25474 DEFB 59,34,49,61,68,82,89,32
25482 DEFB 71,85,76,67,72,32,58,32
25490 DEFB 50,61,68,79,68,71,69,32
25498 DEFB 67,73,84,89,34,59,173,82
25506 DEFB 59,34,51,61,78,85,71,71
25514 DEFB 69,84,32,67,73,84,89,32
25522 DEFB 58,32,52,61,66,85,76,76
25530 DEFB 69,84,86,73,76,76,69,34
25538 DEFB 59,173,56,14,0,0,8,0
25546 DEFB 0,59,34,53,61,68,69,65
25554 DEFB 68,77,65,78,83,32,67,82
25562 DEFB 69,69,75,34,59,172,49,54
25570 DEFB 14,0,0,16,0,0,44,55
25578 DEFB 14,0,0,7,0,0,59,34
25586 DEFB 45,45,45,45,45,45,45,45
25594 DEFB 45,45,45,45,45,45,45,45
25602 DEFB 45,45,34,13
25606 DEFB 1,74,54,0,229,176,34,57 Line 330: RESTORE VAL "9050": FOR N=U TO 5: READ Z: READ X: BEEP Z/4,X+3: NEXT N: RETURN.
25614 DEFB 48,53,48,34,58,235,78,61
25622 DEFB 85,204,53,14,0,0,5,0
25630 DEFB 0,58,227,90,58,227,88,58
25638 DEFB 215,90,47,52,14,0,0,4
25646 DEFB 0,0,44,88,43,51,14,0
25654 DEFB 0,3,0,0,58,243,78,58
25662 DEFB 254,13
25664 DEFB 1,224,9,0,237,176,34,55 Line 480: GO SUB VAL "7500".
25672 DEFB 53,48,48,34,13
25677 DEFB 1,229,15,0,250,85,77,61 Line 485: IF UM=TN THEN GO TO VAL "487".
25685 DEFB 84,78,203,236,176,34,52,56
25693 DEFB 55,34,13
25696 DEFB 1,230,8,0,236,176,34,53 Line 486: GO TO VAL "500".
25704 DEFB 48,48,34,13
25708 DEFB 1,231,246,0,231,167,58,218 Line 487: BORDER PI: PAPER PI: CLS : PRINT : PRINT : PRINT : PRINT "YOU HAVE ENTERED ";T$(TN): PRINT : PRINT "AGENT CHARLES A.SIRINGO OF THE": PRINT : PRINT "PINKERTON DETECTIVE AGENCY": PRINT : PRINT "IS WAITING FOR YOU.": PRINT : PRINT "HE ARRESTS YOU ON A CHARGE OF": PRINT : PRINT "MURDER. YOU ARE GOING TO PRISON": PRINT : PRINT "FOR A LONG LONG TIME....": GO TO VAL "2725".
25716 DEFB 167,58,251,58,245,58,245,58
25724 DEFB 245,58,245,34,89,79,85,32
25732 DEFB 72,65,86,69,32,69,78,84
25740 DEFB 69,82,69,68,32,34,59,84
25748 DEFB 36,40,84,78,41,58,245,58
25756 DEFB 245,34,65,71,69,78,84,32
25764 DEFB 67,72,65,82,76,69,83,32
25772 DEFB 65,46,83,73,82,73,78,71
25780 DEFB 79,32,79,70,32,84,72,69
25788 DEFB 34,58,245,58,245,34,80,73
25796 DEFB 78,75,69,82,84,79,78,32
25804 DEFB 68,69,84,69,67,84,73,86
25812 DEFB 69,32,65,71,69,78,67,89
25820 DEFB 34,58,245,58,245,34,73,83
25828 DEFB 32,87,65,73,84,73,78,71
25836 DEFB 32,70,79,82,32,89,79,85
25844 DEFB 46,34,58,245,58,245,34,72
25852 DEFB 69,32,65,82,82,69,83,84
25860 DEFB 83,32,89,79,85,32,79,78
25868 DEFB 32,65,32,67,72,65,82,71
25876 DEFB 69,32,79,70,34,58,245,58
25884 DEFB 245,34,77,85,82,68,69,82
25892 DEFB 46,32,89,79,85,32,65,82
25900 DEFB 69,32,71,79,73,78,71,32
25908 DEFB 84,79,32,80,82,73,83,79
25916 DEFB 78,34,58,245,58,245,34,70
25924 DEFB 79,82,32,65,32,76,79,78
25932 DEFB 71,32,76,79,78,71,32,84
25940 DEFB 73,77,69,46,46,46,46,34
25948 DEFB 58,236,176,34,50,55,50,53
25956 DEFB 34,13
25958 DEFB 1,249,86,0,231,186,167,58 Line 505: BORDER INT PI: PAPER U: CLS : PRINT PAPER 4;AT U,INT PI;;"YOU ARE IN ";T$(TN): PRINT : PRINT TAB INT PI; PAPER U;"YOU CAN DO THE FOLLOWING:-".
25966 DEFB 218,85,58,251,58,245,218,52
25974 DEFB 14,0,0,4,0,0,59,172
25982 DEFB 85,44,186,167,59,59,34,89
25990 DEFB 79,85,32,65,82,69,32,73
25998 DEFB 78,32,34,59,84,36,40,84
26006 DEFB 78,41,58,245,58,245,173,186
26014 DEFB 167,59,218,85,59,34,89,79
26022 DEFB 85,32,67,65,78,32,68,79
26030 DEFB 32,84,72,69,32,70,79,76
26038 DEFB 76,79,87,73,78,71,58,45
26046 DEFB 34,13
26048 DEFB 1,254,227,0,245,172,54,14 Line 510: PRINT AT 6,4;"1-GO TO SALOON",,TAB 4;"2-GO TO SHERIFFS' OFFICE",,TAB 4;"3-GO TO STORE",,TAB 4;"4-GO TO TELEGRAPH OFFICE",,TAB 4;"5-MOVE ON",,,TAB 4;"6-STATUS";AT 19,2;"PRESS NUMBER OF YOUR CHOICE".
26056 DEFB 0,0,6,0,0,44,52,14
26064 DEFB 0,0,4,0,0,59,34,49
26072 DEFB 45,71,79,32,84,79,32,83
26080 DEFB 65,76,79,79,78,34,44,44
26088 DEFB 173,52,14,0,0,4,0,0
26096 DEFB 59,34,50,45,71,79,32,84
26104 DEFB 79,32,83,72,69,82,73,70
26112 DEFB 70,83,39,32,79,70,70,73
26120 DEFB 67,69,34,44,44,173,52,14
26128 DEFB 0,0,4,0,0,59,34,51
26136 DEFB 45,71,79,32,84,79,32,83
26144 DEFB 84,79,82,69,34,44,44,173
26152 DEFB 52,14,0,0,4,0,0,59
26160 DEFB 34,52,45,71,79,32,84,79
26168 DEFB 32,84,69,76,69,71,82,65
26176 DEFB 80,72,32,79,70,70,73,67
26184 DEFB 69,34,44,44,173,52,14,0
26192 DEFB 0,4,0,0,59,34,53,45
26200 DEFB 77,79,86,69,32,79,78,34
26208 DEFB 44,44,44,173,52,14,0,0
26216 DEFB 4,0,0,59,34,54,45,83
26224 DEFB 84,65,84,85,83,34,59,172
26232 DEFB 49,57,14,0,0,19,0,0
26240 DEFB 44,50,14,0,0,2,0,0
26248 DEFB 59,34,80,82,69,83,83,32
26256 DEFB 78,85,77,66,69,82,32,79
26264 DEFB 70,32,89,79,85,82,32,67
26272 DEFB 72,79,73,67,69,34,13
26279 DEFB 2,8,37,0,215,46,48,48 Line 520: BEEP .001,45: IF INKEY$="1" THEN GO TO VAL "1000".
26287 DEFB 49,14,119,3,18,110,151,44
26295 DEFB 52,53,14,0,0,45,0,0
26303 DEFB 58,250,166,61,34,49,34,203
26311 DEFB 236,176,34,49,48,48,48,34
26319 DEFB 13
26320 DEFB 2,9,16,0,250,166,61,34 Line 521: IF INKEY$="2" THEN GO TO VAL "3000".
26328 DEFB 50,34,203,236,176,34,51,48
26336 DEFB 48,48,34,13
26340 DEFB 2,10,16,0,250,166,61,34 Line 522: IF INKEY$="3" THEN GO TO VAL "7666".
26348 DEFB 51,34,203,236,176,34,55,54
26356 DEFB 54,54,34,13
26360 DEFB 2,11,16,0,250,166,61,34 Line 523: IF INKEY$="4" THEN GO TO VAL "2500".
26368 DEFB 52,34,203,236,176,34,50,53
26376 DEFB 48,48,34,13
26380 DEFB 2,12,16,0,250,166,61,34 Line 524: IF INKEY$="5" THEN GO TO VAL "6000".
26388 DEFB 53,34,203,236,176,34,54,48
26396 DEFB 48,48,34,13
26400 DEFB 2,13,16,0,250,166,61,34 Line 525: IF INKEY$="6" THEN GO TO VAL "7800".
26408 DEFB 54,34,203,236,176,34,55,56
26416 DEFB 48,48,34,13
26420 DEFB 2,23,28,0,215,46,48,48 Line 535: BEEP .005,0: GO TO VAL "520".
26428 DEFB 53,14,121,35,215,10,61,44
26436 DEFB 48,14,0,0,0,0,0,58
26444 DEFB 236,176,34,53,50,48,34,13
26452 DEFB 3,242,91,0,231,85,58,218 Line 1010: BORDER U: PAPER R: CLS : PRINT PAPER 4;AT R,5;"YOU'RE IN THE SALOON"; PAPER R;AT 4,7;"DO YOU WANT TO:-".
26460 DEFB 82,58,251,58,245,218,52,14
26468 DEFB 0,0,4,0,0,59,172,82
26476 DEFB 44,53,14,0,0,5,0,0
26484 DEFB 59,34,89,79,85,39,82,69
26492 DEFB 32,73,78,32,84,72,69,32
26500 DEFB 83,65,76,79,79,78,34,59
26508 DEFB 218,82,59,172,52,14,0,0
26516 DEFB 4,0,0,44,55,14,0,0
26524 DEFB 7,0,0,59,34,68,79,32
26532 DEFB 89,79,85,32,87,65,78,84
26540 DEFB 32,84,79,58,45,34,13
26547 DEFB 3,247,170,0,245,172,54,14 Line 1015: PRINT AT 6,6;"1) DRINK": PRINT : PRINT TAB 6;"2) PLAY POKER": PRINT : PRINT TAB 6;"3) LOOK AROUND": PRINT : PRINT TAB 6;"4) LEAVE";AT 15,R;"PRESS NUMBER OF YOUR CHOICE": BEEP .3,20.
26555 DEFB 0,0,6,0,0,44,54,14
26563 DEFB 0,0,6,0,0,59,34,49
26571 DEFB 41,32,68,82,73,78,75,34
26579 DEFB 58,245,58,245,173,54,14,0
26587 DEFB 0,6,0,0,59,34,50,41
26595 DEFB 32,80,76,65,89,32,80,79
26603 DEFB 75,69,82,34,58,245,58,245
26611 DEFB 173,54,14,0,0,6,0,0
26619 DEFB 59,34,51,41,32,76,79,79
26627 DEFB 75,32,65,82,79,85,78,68
26635 DEFB 34,58,245,58,245,173,54,14
26643 DEFB 0,0,6,0,0,59,34,52
26651 DEFB 41,32,76,69,65,86,69,34
26659 DEFB 59,172,49,53,14,0,0,15
26667 DEFB 0,0,44,82,59,34,80,82
26675 DEFB 69,83,83,32,78,85,77,66
26683 DEFB 69,82,32,79,70,32,89,79
26691 DEFB 85,82,32,67,72,79,73,67
26699 DEFB 69,34,58,215,46,51,14,127
26707 DEFB 25,153,153,153,44,50,48,14
26715 DEFB 0,0,20,0,0,13
26721 DEFB 3,252,29,0,215,46,48,49 Line 1020: BEEP .01,PI: IF INKEY$="1" THEN GO TO VAL "1150".
26729 DEFB 14,122,35,215,10,61,44,167
26737 DEFB 58,250,166,61,34,49,34,203
26745 DEFB 236,176,34,49,49,53,48,34
26753 DEFB 13
26754 DEFB 3,253,16,0,250,166,61,34 Line 1021: IF INKEY$="2" THEN GO TO VAL "1250".
26762 DEFB 50,34,203,236,176,34,49,50
26770 DEFB 53,48,34,13
26774 DEFB 3,254,16,0,250,166,61,34 Line 1022: IF INKEY$="3" THEN GO TO VAL "2000".
26782 DEFB 51,34,203,236,176,34,50,48
26790 DEFB 48,48,34,13
26794 DEFB 4,0,15,0,250,166,61,34 Line 1024: IF INKEY$="4" THEN GO TO VAL "500".
26802 DEFB 52,34,203,236,176,34,53,48
26810 DEFB 48,34,13
26813 DEFB 4,6,24,0,215,46,48,48 Line 1030: BEEP .005,-PI: GO TO VAL "1020".
26821 DEFB 53,14,121,35,215,10,61,44
26829 DEFB 45,167,58,236,176,34,49,48
26837 DEFB 50,48,34,13
26841 DEFB 4,126,148,0,218,52,14,0 Line 1150: PAPER 4: CLS : PRINT AT 4,6;"YOU ARE AT THE BAR": PRINT : PRINT : PRINT : PRINT TAB 5;"WHAT WILL YOU HAVE ?": PRINT : PRINT TAB 6;"1) BEER ($1)": PRINT : PRINT TAB 6;"2) RED EYE ($2)".
26849 DEFB 0,4,0,0,58,251,58,245
26857 DEFB 172,52,14,0,0,4,0,0
26865 DEFB 44,54,14,0,0,6,0,0
26873 DEFB 59,34,89,79,85,32,65,82
26881 DEFB 69,32,65,84,32,84,72,69
26889 DEFB 32,66,65,82,34,58,245,58
26897 DEFB 245,58,245,58,245,173,53,14
26905 DEFB 0,0,5,0,0,59,34,87
26913 DEFB 72,65,84,32,87,73,76,76
26921 DEFB 32,89,79,85,32,72,65,86
26929 DEFB 69,32,63,34,58,245,58,245
26937 DEFB 173,54,14,0,0,6,0,0
26945 DEFB 59,34,49,41,32,66,69,69
26953 DEFB 82,32,32,40,36,49,41,34
26961 DEFB 58,245,58,245,173,54,14,0
26969 DEFB 0,6,0,0,59,34,50,41
26977 DEFB 32,82,69,68,32,69,89,69
26985 DEFB 32,32,40,36,50,41,34,13
26993 DEFB 4,131,105,0,215,46,54,14 Line 1155: BEEP .6,25: INPUT "ENTER (1 OR 2) "; LINE E$: LET E$=E$+" ": IF CODE E$(U)=49 OR CODE E$(U)=50 THEN LET H=VAL E$(U): GO TO VAL "1160".
27001 DEFB 128,25,153,153,153,44,50,53
27009 DEFB 14,0,0,25,0,0,58,238
27017 DEFB 34,69,78,84,69,82,32,40
27025 DEFB 49,32,79,82,32,50,41,32
27033 DEFB 34,59,202,69,36,58,241,69
27041 DEFB 36,61,69,36,43,34,32,34
27049 DEFB 58,250,175,69,36,40,85,41
27057 DEFB 61,52,57,14,0,0,49,0
27065 DEFB 0,197,175,69,36,40,85,41
27073 DEFB 61,53,48,14,0,0,50,0
27081 DEFB 0,203,241,72,61,176,69,36
27089 DEFB 40,85,41,58,236,176,34,49
27097 DEFB 49,54,48,34,13
27102 DEFB 4,133,9,0,236,176,34,49 Line 1157: GO TO VAL "1155".
27110 DEFB 49,53,53,34,13
27115 DEFB 4,136,60,0,250,77,85,60 Line 1160: IF MU<H THEN PRINT : PRINT TAB 5;"YOU CAN'T AFFORD IT!!": GO SUB VAL "9231": GO TO VAL "1000".
27123 DEFB 72,203,245,58,245,173,53,14
27131 DEFB 0,0,5,0,0,59,34,89
27139 DEFB 79,85,32,67,65,78,39,84
27147 DEFB 32,65,70,70,79,82,68,32
27155 DEFB 73,84,33,33,34,58,237,176
27163 DEFB 34,57,50,51,49,34,58,236
27171 DEFB 176,34,49,48,48,48,34,13
27179 DEFB 4,141,118,0,250,72,61,85 Line 1165: IF H=U THEN LET IS=IS+U: LET CS=CS+10: LET MU=MU-H: PRINT : PRINT TAB 6;"ONE BEER COMING UP": PRINT : PRINT "THAT'S WORTH 10 STRENGTH POINTS": GO TO VAL "1175".
27187 DEFB 203,241,73,83,61,73,83,43
27195 DEFB 85,58,241,67,83,61,67,83
27203 DEFB 43,49,48,14,0,0,10,0
27211 DEFB 0,58,241,77,85,61,77,85
27219 DEFB 45,72,58,245,58,245,173,54
27227 DEFB 14,0,0,6,0,0,59,34
27235 DEFB 79,78,69,32,66,69,69,82
27243 DEFB 32,67,79,77,73,78,71,32
27251 DEFB 85,80,34,58,245,58,245,34
27259 DEFB 84,72,65,84,39,83,32,87
27267 DEFB 79,82,84,72,32,49,48,32
27275 DEFB 83,84,82,69,78,71,84,72
27283 DEFB 32,80,79,73,78,84,83,34
27291 DEFB 58,236,176,34,49,49,55,53
27299 DEFB 34,13
27301 DEFB 4,146,113,0,250,72,61,82 Line 1170: IF H=R THEN LET IS=IS+INT PI: LET CS=CS+25: LET MU=MU-H: PRINT : PRINT TAB 4;"ONE RED EYE COMING UP": PRINT : PRINT "THAT'S WORTH 25 STRENGTH POINTS".
27309 DEFB 203,241,73,83,61,73,83,43
27317 DEFB 186,167,58,241,67,83,61,67
27325 DEFB 83,43,50,53,14,0,0,25
27333 DEFB 0,0,58,241,77,85,61,77
27341 DEFB 85,45,72,58,245,58,245,173
27349 DEFB 52,14,0,0,4,0,0,59
27357 DEFB 34,79,78,69,32,82,69,68
27365 DEFB 32,69,89,69,32,67,79,77
27373 DEFB 73,78,71,32,85,80,34,58
27381 DEFB 245,58,245,34,84,72,65,84
27389 DEFB 39,83,32,87,79,82,84,72
27397 DEFB 32,50,53,32,83,84,82,69
27405 DEFB 78,71,84,72,32,80,79,73
27413 DEFB 78,84,83,34,13
27418 DEFB 4,151,51,0,235,78,61,45 Line 1175: FOR N=-10 TO 10: BEEP .1,N: BEEP .1,N+U: NEXT N.
27426 DEFB 49,48,14,0,0,10,0,0
27434 DEFB 204,49,48,14,0,0,10,0
27442 DEFB 0,58,215,46,49,14,125,76
27450 DEFB 204,204,204,44,78,58,215,46
27458 DEFB 49,14,125,76,204,204,204,44
27466 DEFB 78,43,85,58,243,78,13
27473 DEFB 4,156,170,0,250,73,83,62 Line 1180: IF IS>LM THEN CLS : LET CS=CS-IS*20: PRINT AT 6,INT PI;"YOU FEEL DIZZY AND STUMBLE": PRINT : PRINT " INTO A LONESOME COWBOY,WHO": PRINT : PRINT " HITS YOU VERY HARD,YOUR": PRINT : PRINT " STRENGTH IS ";CS: GO TO VAL "1190".
27481 DEFB 76,77,203,251,58,241,67,83
27489 DEFB 61,67,83,45,73,83,42,50
27497 DEFB 48,14,0,0,20,0,0,58
27505 DEFB 245,172,54,14,0,0,6,0
27513 DEFB 0,44,186,167,59,34,89,79
27521 DEFB 85,32,70,69,69,76,32,68
27529 DEFB 73,90,90,89,32,65,78,68
27537 DEFB 32,83,84,85,77,66,76,69
27545 DEFB 34,58,245,58,245,34,32,32
27553 DEFB 32,73,78,84,79,32,65,32
27561 DEFB 76,79,78,69,83,79,77,69
27569 DEFB 32,67,79,87,66,79,89,44
27577 DEFB 87,72,79,34,58,245,58,245
27585 DEFB 34,32,32,32,72,73,84,83
27593 DEFB 32,89,79,85,32,86,69,82
27601 DEFB 89,32,72,65,82,68,44,89
27609 DEFB 79,85,82,34,58,245,58,245
27617 DEFB 34,32,32,32,83,84,82,69
27625 DEFB 78,71,84,72,32,73,83,32
27633 DEFB 34,59,67,83,58,236,176,34
27641 DEFB 49,49,57,48,34,13
27647 DEFB 4,161,9,0,236,176,34,49 Line 1185: GO TO VAL "1000".
27655 DEFB 48,48,48,34,13
27660 DEFB 4,166,59,0,235,78,61,85 Line 1190: FOR N=U TO 50: BEEP .1,RND*50: NEXT N: IF CS<=0 THEN GO TO VAL "2435".
27668 DEFB 204,53,48,14,0,0,50,0
27676 DEFB 0,58,215,46,49,14,125,76
27684 DEFB 204,204,204,44,165,42,53,48
27692 DEFB 14,0,0,50,0,0,58,243
27700 DEFB 78,58,250,67,83,199,48,14
27708 DEFB 0,0,0,0,0,203,236,176
27716 DEFB 34,50,52,51,53,34,13
27723 DEFB 4,171,8,0,236,176,34,53 Line 1195: GO TO VAL "500".
27731 DEFB 48,48,34,13
27735 DEFB 4,176,104,0,215,46,49,14 Line 1200: BEEP .1,5: BEEP .1,10: BEEP .1,15: INPUT " PRESS ENTER TO CONTINUE "; LINE H$: RETURN.
27743 DEFB 125,76,204,204,204,44,53,14
27751 DEFB 0,0,5,0,0,58,215,46
27759 DEFB 49,14,125,76,204,204,204,44
27767 DEFB 49,48,14,0,0,10,0,0
27775 DEFB 58,215,46,49,14,125,76,204
27783 DEFB 204,204,44,49,53,14,0,0
27791 DEFB 15,0,0,58,238,34,32,17
27799 DEFB 2,18,1,18,0,16,7,32
27807 DEFB 80,82,69,83,83,32,69,78
27815 DEFB 84,69,82,32,84,79,32,67
27823 DEFB 79,78,84,73,78,85,69,32
27831 DEFB 16,0,17,4,34,59,202,72
27839 DEFB 36,58,254,13
27843 DEFB 4,226,91,0,231,52,14,0 Line 1250: BORDER 4: PAPER 4: CLS : IF MU<3 THEN PRINT AT 11,5;"YOU CAN'T AFFORD IT": GO SUB VAL "9231": GO TO VAL "1000".
27851 DEFB 0,4,0,0,58,218,52,14
27859 DEFB 0,0,4,0,0,58,251,58
27867 DEFB 250,77,85,60,51,14,0,0
27875 DEFB 3,0,0,203,245,172,49,49
27883 DEFB 14,0,0,11,0,0,44,53
27891 DEFB 14,0,0,5,0,0,59,34
27899 DEFB 89,79,85,32,67,65,78,39
27907 DEFB 84,32,65,70,70,79,82,68
27915 DEFB 32,73,84,34,58,237,176,34
27923 DEFB 57,50,51,49,34,58,236,176
27931 DEFB 34,49,48,48,48,34,13
27938 DEFB 4,236,139,0,250,77,85,62 Line 1260: IF MU>120 THEN PRINT AT 7,8;"THERE IS NO ONE": PRINT : PRINT TAB 6;"TO PLAY POKER WITH.": FOR N=U TO 30: BEEP .05,N*-U: BEEP .02,N: NEXT N: GO TO VAL "1000".
27946 DEFB 49,50,48,14,0,0,120,0
27954 DEFB 0,203,245,172,55,14,0,0
27962 DEFB 7,0,0,44,56,14,0,0
27970 DEFB 8,0,0,59,34,84,72,69
27978 DEFB 82,69,32,73,83,32,78,79
27986 DEFB 32,79,78,69,34,58,245,58
27994 DEFB 245,173,54,14,0,0,6,0
28002 DEFB 0,59,34,84,79,32,80,76
28010 DEFB 65,89,32,80,79,75,69,82
28018 DEFB 32,87,73,84,72,46,34,58
28026 DEFB 235,78,61,85,204,51,48,14
28034 DEFB 0,0,30,0,0,58,215,46
28042 DEFB 48,53,14,124,76,204,204,204
28050 DEFB 44,78,42,45,85,58,215,46
28058 DEFB 48,50,14,123,35,215,10,61
28066 DEFB 44,78,58,243,78,58,236,176
28074 DEFB 34,49,48,48,48,34,13
28081 DEFB 4,241,115,0,245,172,54,14 Line 1265: PRINT AT 6,4;"YOU PLAY POKER WITH": PRINT : PRINT TAB 4;"THE TOWN GAMBLER....": BEEP .2,U: BEEP .4,10: GO SUB VAL "1200".
28089 DEFB 0,0,6,0,0,44,52,14
28097 DEFB 0,0,4,0,0,59,34,89
28105 DEFB 79,85,32,80,76,65,89,32
28113 DEFB 80,79,75,69,82,32,87,73
28121 DEFB 84,72,34,58,245,58,245,173
28129 DEFB 52,14,0,0,4,0,0,59
28137 DEFB 34,84,72,69,32,84,79,87
28145 DEFB 78,32,71,65,77,66,76,69
28153 DEFB 82,46,46,46,46,34,58,215
28161 DEFB 46,50,14,126,76,204,204,204
28169 DEFB 44,85,58,215,46,52,14,127
28177 DEFB 76,204,204,204,44,49,48,14
28185 DEFB 0,0,10,0,0,58,237,176
28193 DEFB 34,49,50,48,48,34,13
28200 DEFB 4,246,56,0,241,83,36,61 Line 1270: LET S$=" ": LET C=INT (RND*3)+U.
28208 DEFB 34,32,32,32,32,32,32,32
28216 DEFB 32,32,32,32,32,32,32,32
28224 DEFB 32,32,32,32,32,32,32,32
28232 DEFB 32,32,32,32,32,32,32,32
28240 DEFB 34,58,241,67,61,186,40,165
28248 DEFB 42,51,14,0,0,3,0,0
28256 DEFB 41,43,85,13
28260 DEFB 4,251,102,0,241,89,72,61 Line 1275: LET YH=INT (RND*16)+9060: LET GH=INT (RND*16)+9060: IF C=U THEN LET GH=GH+R: IF GH>9075 THEN LET GH=9075.
28268 DEFB 186,40,165,42,49,54,14,0
28276 DEFB 0,16,0,0,41,43,57,48
28284 DEFB 54,48,14,0,0,100,35,0
28292 DEFB 58,241,71,72,61,186,40,165
28300 DEFB 42,49,54,14,0,0,16,0
28308 DEFB 0,41,43,57,48,54,48,14
28316 DEFB 0,0,100,35,0,58,250,67
28324 DEFB 61,85,203,241,71,72,61,71
28332 DEFB 72,43,82,58,250,71,72,62
28340 DEFB 57,48,55,53,14,0,0,115
28348 DEFB 35,0,203,241,71,72,61,57
28356 DEFB 48,55,53,14,0,0,115,35
28364 DEFB 0,13
28366 DEFB 5,10,16,0,250,71,72,61 Line 1290: IF GH=YH THEN GO TO VAL "1275".
28374 DEFB 89,72,203,236,176,34,49,50
28382 DEFB 55,53,34,13
28386 DEFB 5,25,33,0,241,80,79,84 Line 1305: LET POT=R: LET MU=MU-U:: RESTORE YH: READ Y$: RESTORE GH: READ G$.
28394 DEFB 61,82,58,241,77,85,61,77
28402 DEFB 85,45,85,58,58,229,89,72
28410 DEFB 58,227,89,36,58,229,71,72
28418 DEFB 58,227,71,36,13
28423 DEFB 5,30,64,0,251,58,245,172 Line 1310: CLS : PRINT AT R,7;"THE ANTE IS $1.00";AT 4,12;"POT=$";POT.
28431 DEFB 82,44,55,14,0,0,7,0
28439 DEFB 0,59,34,84,72,69,32,65
28447 DEFB 78,84,69,32,73,83,32,36
28455 DEFB 49,46,48,48,34,59,172,52
28463 DEFB 14,0,0,4,0,0,44,49
28471 DEFB 50,14,0,0,12,0,0,59
28479 DEFB 34,80,79,84,61,36,34,59
28487 DEFB 80,79,84,13
28491 DEFB 5,35,46,0,245,172,54,14 Line 1315: PRINT AT 6,R;"YOUR HAND:";AT 8,12;Y$.
28499 DEFB 0,0,6,0,0,44,82,59
28507 DEFB 34,89,79,85,82,32,72,65
28515 DEFB 78,68,58,34,59,172,56,14
28523 DEFB 0,0,8,0,0,44,49,50
28531 DEFB 14,0,0,12,0,0,59,89
28539 DEFB 36,13
28541 DEFB 5,40,57,0,245,172,49,48 Line 1320: PRINT AT 10,R;"YOU HAVE $";INT MU;TAB 17;":LAST BET $0".
28549 DEFB 14,0,0,10,0,0,44,82
28557 DEFB 59,34,17,4,89,79,85,32
28565 DEFB 72,65,86,69,32,36,34,59
28573 DEFB 186,77,85,59,173,49,55,14
28581 DEFB 0,0,17,0,0,59,34,58
28589 DEFB 76,65,83,84,32,66,69,84
28597 DEFB 32,36,48,34,13
28602 DEFB 5,45,53,0,241,66,76,61 Line 1325: LET BL=RND*10: IF GH>9063 OR BL>6 THEN GO TO 1350.
28610 DEFB 165,42,49,48,14,0,0,10
28618 DEFB 0,0,58,250,71,72,62,57
28626 DEFB 48,54,51,14,0,0,103,35
28634 DEFB 0,197,66,76,62,54,14,0
28642 DEFB 0,6,0,0,203,236,49,51
28650 DEFB 53,48,14,0,0,70,5,0
28658 DEFB 13
28659 DEFB 5,50,81,0,245,172,49,55 Line 1330: PRINT AT 17,R;"GAMBLER THROWS IN HIS CARDS": LET MU=MU+POT: GO SUB VAL "1200": GO SUB VAL "1500": GO TO VAL "1490".
28667 DEFB 14,0,0,17,0,0,44,82
28675 DEFB 59,34,71,65,77,66,76,69
28683 DEFB 82,32,84,72,82,79,87,83
28691 DEFB 32,73,78,32,72,73,83,32
28699 DEFB 67,65,82,68,83,34,58,241
28707 DEFB 77,85,61,77,85,43,80,79
28715 DEFB 84,58,237,176,34,49,50,48
28723 DEFB 48,34,58,237,176,34,49,53
28731 DEFB 48,48,34,58,236,176,34,49
28739 DEFB 52,57,48,34,13
28744 DEFB 5,70,46,0,241,78,66,61 Line 1350: LET NB=INT (RND*4)+R: IF GH>9073 THEN LET NB=5.
28752 DEFB 186,40,165,42,52,14,0,0
28760 DEFB 4,0,0,41,43,82,58,250
28768 DEFB 71,72,62,57,48,55,51,14
28776 DEFB 0,0,113,35,0,203,241,78
28784 DEFB 66,61,53,14,0,0,5,0
28792 DEFB 0,13
28794 DEFB 5,75,8,0,235,78,61,85 Line 1355: FOR N=U TO NB.
28802 DEFB 204,78,66,13
28806 DEFB 5,80,116,0,250,78,61,85 Line 1360: IF N=U THEN LET BET=R: PAUSE 150: PRINT AT 13,4;"THE GAMBLER BETS $";BET: LET POT=POT+BET: GO SUB VAL "1510": GO SUB VAL "1200": GO SUB VAL "1500": GO TO VAL "1435".
28814 DEFB 203,241,66,69,84,61,82,58
28822 DEFB 242,49,53,48,14,0,0,150
28830 DEFB 0,0,58,245,172,49,51,14
28838 DEFB 0,0,13,0,0,44,52,14
28846 DEFB 0,0,4,0,0,59,34,84
28854 DEFB 72,69,32,71,65,77,66,76
28862 DEFB 69,82,32,66,69,84,83,32
28870 DEFB 36,34,59,66,69,84,58,241
28878 DEFB 80,79,84,61,80,79,84,43
28886 DEFB 66,69,84,58,237,176,34,49
28894 DEFB 53,49,48,34,58,237,176,34
28902 DEFB 49,50,48,48,34,58,237,176
28910 DEFB 34,49,53,48,48,34,58,236
28918 DEFB 176,34,49,52,51,53,34,13
28926 DEFB 5,83,26,0,250,78,61,78 Line 1363: IF N=NB AND BL>6 THEN GO TO VAL "1330".
28934 DEFB 66,198,66,76,62,54,14,0
28942 DEFB 0,6,0,0,203,236,176,34
28950 DEFB 49,51,51,48,34,13
28956 DEFB 5,85,82,0,250,78,61,78 Line 1365: IF N=NB THEN LET POT=POT+BET: PRINT AT 17,R;"THE GAMBLER SEES YOU": GO SUB VAL "1510": GO SUB VAL "1200": GO TO VAL "1475".
28964 DEFB 66,203,241,80,79,84,61,80
28972 DEFB 79,84,43,66,69,84,58,245
28980 DEFB 172,49,55,14,0,0,17,0
28988 DEFB 0,44,82,59,34,84,72,69
28996 DEFB 32,71,65,77,66,76,69,82
29004 DEFB 32,83,69,69,83,32,89,79
29012 DEFB 85,34,58,237,176,34,49,53
29020 DEFB 49,48,34,58,237,176,34,49
29028 DEFB 50,48,48,34,58,236,176,34
29036 DEFB 49,52,55,53,34,13
29042 DEFB 5,90,21,0,250,66,76,62 Line 1370: IF BL>6 THEN GO TO VAL "1380".
29050 DEFB 54,14,0,0,6,0,0,203
29058 DEFB 236,176,34,49,51,56,48,34
29066 DEFB 13
29067 DEFB 5,95,91,0,250,73,36,61 Line 1375: IF I$="C" THEN LET POT=POT+BET: PRINT AT 17,INT PI;"THE GAMBLER CALLS YOUR BET": GO SUB VAL "1510": GO SUB VAL "1200": GO TO VAL "1430".
29075 DEFB 34,67,34,203,241,80,79,84
29083 DEFB 61,80,79,84,43,66,69,84
29091 DEFB 58,245,172,49,55,14,0,0
29099 DEFB 17,0,0,44,186,167,59,34
29107 DEFB 84,72,69,32,71,65,77,66
29115 DEFB 76,69,82,32,67,65,76,76
29123 DEFB 83,32,89,79,85,82,32,66
29131 DEFB 69,84,34,58,237,176,34,49
29139 DEFB 53,49,48,34,58,237,176,34
29147 DEFB 49,50,48,48,34,58,236,176
29155 DEFB 34,49,52,51,48,34,13
29162 DEFB 5,100,113,0,241,66,69,84 Line 1380: LET BET=BET+INT (RND*10)+U: LET POT=POT+BET: PRINT AT 17,4;"HE RAISES THE BET TO $";BET: GO SUB VAL "1510": GO SUB VAL "1200": GO TO VAL "1430".
29170 DEFB 61,66,69,84,43,186,40,165
29178 DEFB 42,49,48,14,0,0,10,0
29186 DEFB 0,41,43,85,58,241,80,79
29194 DEFB 84,61,80,79,84,43,66,69
29202 DEFB 84,58,245,172,49,55,14,0
29210 DEFB 0,17,0,0,44,52,14,0
29218 DEFB 0,4,0,0,59,34,72,69
29226 DEFB 32,82,65,73,83,69,83,32
29234 DEFB 84,72,69,32,66,69,84,32
29242 DEFB 84,79,32,36,34,59,66,69
29250 DEFB 84,58,237,176,34,49,53,49
29258 DEFB 48,34,58,237,176,34,49,50
29266 DEFB 48,48,34,58,236,176,34,49
29274 DEFB 52,51,48,34,13
29279 DEFB 5,150,20,0,250,186,77,85 Line 1430: IF INT MU-BET<O THEN GO TO VAL "1470".
29287 DEFB 45,66,69,84,60,79,203,236
29295 DEFB 176,34,49,52,55,48,34,13
29303 DEFB 5,155,151,0,237,176,34,49 Line 1435: GO SUB VAL "1500": PRINT AT 12,INT PI;"WHAT DO YOU WANT TO DO?";AT 14,8;"A)THROW IN HAND";TAB 8;"B)CALL HIS BET";TAB 8;"C)RAISE";TAB 8;"D)SEE HIM".
29311 DEFB 53,48,48,34,58,245,172,49
29319 DEFB 50,14,0,0,12,0,0,44
29327 DEFB 186,167,59,34,87,72,65,84
29335 DEFB 32,68,79,32,89,79,85,32
29343 DEFB 87,65,78,84,32,84,79,32
29351 DEFB 68,79,63,34,59,172,49,52
29359 DEFB 14,0,0,14,0,0,44,56
29367 DEFB 14,0,0,8,0,0,59,34
29375 DEFB 65,41,84,72,82,79,87,32
29383 DEFB 73,78,32,72,65,78,68,34
29391 DEFB 59,173,56,14,0,0,8,0
29399 DEFB 0,59,34,66,41,67,65,76
29407 DEFB 76,32,72,73,83,32,66,69
29415 DEFB 84,34,59,173,56,14,0,0
29423 DEFB 8,0,0,59,34,67,41,82
29431 DEFB 65,73,83,69,34,59,173,56
29439 DEFB 14,0,0,8,0,0,59,34
29447 DEFB 68,41,83,69,69,32,72,73
29455 DEFB 77,34,13
29458 DEFB 5,160,84,0,215,46,52,14 Line 1440: BEEP .4,10: INPUT " ENTER LETTER "; LINE I$: BEEP .3,30: BEEP .2,20.
29466 DEFB 127,76,204,204,204,44,49,48
29474 DEFB 14,0,0,10,0,0,58,238
29482 DEFB 34,32,32,32,32,32,32,69
29490 DEFB 78,84,69,82,32,76,69,84
29498 DEFB 84,69,82,32,34,59,202,73
29506 DEFB 36,58,215,46,51,14,127,25
29514 DEFB 153,153,153,44,51,48,14,0
29522 DEFB 0,30,0,0,58,215,46,50
29530 DEFB 14,126,76,204,204,204,44,50
29538 DEFB 48,14,0,0,20,0,0,13
29546 DEFB 5,165,26,0,250,73,36,61 Line 1445: IF I$="A" THEN GO SUB VAL "1500": GO TO VAL "1490".
29554 DEFB 34,65,34,203,237,176,34,49
29562 DEFB 53,48,48,34,58,236,176,34
29570 DEFB 49,52,57,48,34,13
29576 DEFB 5,170,105,0,250,73,36,61 Line 1450: IF I$="B" THEN LET MU=MU-BET: LET POT=POT+BET: GO SUB VAL "1500": GO SUB VAL "1510": PRINT AT 17,10;"OK. YOU CALL": PAUSE 150: GO TO VAL "1469".
29584 DEFB 34,66,34,203,241,77,85,61
29592 DEFB 77,85,45,66,69,84,58,241
29600 DEFB 80,79,84,61,80,79,84,43
29608 DEFB 66,69,84,58,237,176,34,49
29616 DEFB 53,48,48,34,58,237,176,34
29624 DEFB 49,53,49,48,34,58,245,172
29632 DEFB 49,55,14,0,0,17,0,0
29640 DEFB 44,49,48,14,0,0,10,0
29648 DEFB 0,59,34,79,75,46,32,89
29656 DEFB 79,85,32,67,65,76,76,34
29664 DEFB 58,242,49,53,48,14,0,0
29672 DEFB 150,0,0,58,236,176,34,49
29680 DEFB 52,54,57,34,13
29685 DEFB 5,175,41,0,250,73,36,61 Line 1455: IF I$="D" THEN LET MU=MU-BET: LET POT=POT+BET: GO TO VAL "1475".
29693 DEFB 34,68,34,203,241,77,85,61
29701 DEFB 77,85,45,66,69,84,58,241
29709 DEFB 80,79,84,61,80,79,84,43
29717 DEFB 66,69,84,58,236,176,34,49
29725 DEFB 52,55,53,34,13
29730 DEFB 5,177,145,0,250,73,36,61 Line 1457: IF I$="C" AND MU>=BET+U THEN PRINT AT 19,R;"WHAT DO YOU BET? (MIN.$";BET+U;")": INPUT " ENTER AMOUNT "; LINE E$: LET E$=E$+" ": IF CODE E$(U)<58 AND CODE E$(U)>48 THEN GO TO VAL "1462".
29738 DEFB 34,67,34,198,77,85,200,66
29746 DEFB 69,84,43,85,203,245,172,49
29754 DEFB 57,14,0,0,19,0,0,44
29762 DEFB 82,59,34,87,72,65,84,32
29770 DEFB 68,79,32,89,79,85,32,66
29778 DEFB 69,84,63,32,40,77,73,78
29786 DEFB 46,36,34,59,66,69,84,43
29794 DEFB 85,59,34,41,34,58,238,34
29802 DEFB 32,32,32,32,32,69,78,84
29810 DEFB 69,82,32,65,77,79,85,78
29818 DEFB 84,32,34,59,202,69,36,58
29826 DEFB 241,69,36,61,69,36,43,34
29834 DEFB 32,34,58,250,175,69,36,40
29842 DEFB 85,41,60,53,56,14,0,0
29850 DEFB 58,0,0,198,175,69,36,40
29858 DEFB 85,41,62,52,56,14,0,0
29866 DEFB 48,0,0,203,236,176,34,49
29874 DEFB 52,54,50,34,13
29879 DEFB 5,180,20,0,250,73,36,61 Line 1460: IF I$="C" THEN GO TO 1457.
29887 DEFB 34,67,34,203,236,49,52,53
29895 DEFB 55,14,0,0,177,5,0,13
29903 DEFB 5,181,9,0,236,176,34,49 Line 1461: GO TO VAL "1440".
29911 DEFB 52,52,48,34,13
29916 DEFB 5,182,27,0,241,82,65,61 Line 1462: LET RA=VAL E$: IF RA<BET+U THEN GO TO VAL "1460".
29924 DEFB 176,69,36,58,250,82,65,60
29932 DEFB 66,69,84,43,85,203,236,176
29940 DEFB 34,49,52,54,48,34,13
29947 DEFB 5,183,16,0,250,82,65,62 Line 1463: IF RA>MU THEN GO TO VAL "1460".
29955 DEFB 77,85,203,236,176,34,49,52
29963 DEFB 54,48,34,13
29967 DEFB 5,184,114,0,237,176,34,49 Line 1464: GO SUB VAL "1500": LET MU=MU-RA: LET POT=POT+RA: LET BET=RA: PRINT AT 17,INT PI;"YOU RAISE THE BET TO $";BET: GO SUB VAL "1510": PAUSE 150: GO SUB VAL "1500": NEXT N.
29975 DEFB 53,48,48,34,58,241,77,85
29983 DEFB 61,77,85,45,82,65,58,241
29991 DEFB 80,79,84,61,80,79,84,43
29999 DEFB 82,65,58,241,66,69,84,61
30007 DEFB 82,65,58,245,172,49,55,14
30015 DEFB 0,0,17,0,0,44,186,167
30023 DEFB 59,34,89,79,85,32,82,65
30031 DEFB 73,83,69,32,84,72,69,32
30039 DEFB 66,69,84,32,84,79,32,36
30047 DEFB 34,59,66,69,84,58,237,176
30055 DEFB 34,49,53,49,48,34,58,242
30063 DEFB 49,53,48,14,0,0,150,0
30071 DEFB 0,58,237,176,34,49,53,48
30079 DEFB 48,34,58,243,78,13
30085 DEFB 5,185,9,0,236,176,34,49 Line 1465: GO TO VAL "1440".
30093 DEFB 52,52,48,34,13
30098 DEFB 5,187,60,0,245,172,49,55 Line 1467: PRINT AT 17,R;"YOU CAN'T AFFORD TO RAISE.": GO SUB VAL "9230": GO TO VAL "1435".
30106 DEFB 14,0,0,17,0,0,44,82
30114 DEFB 59,34,89,79,85,32,67,65
30122 DEFB 78,39,84,32,65,70,70,79
30130 DEFB 82,68,32,84,79,32,82,65
30138 DEFB 73,83,69,46,34,58,237,176
30146 DEFB 34,57,50,51,48,34,58,236
30154 DEFB 176,34,49,52,51,53,34,13
30162 DEFB 5,189,3,0,243,78,13 Line 1469: NEXT N.
30169 DEFB 5,190,84,0,237,176,34,49 Line 1470: GO SUB VAL "1500": PRINT AT 17,O;"YOU CAN'T AFFORD TO PLAY ANYMORE": GO SUB VAL "9230": GO SUB VAL "1200": GO TO VAL "1000".
30177 DEFB 53,48,48,34,58,245,172,49
30185 DEFB 55,14,0,0,17,0,0,44
30193 DEFB 79,59,34,89,79,85,32,67
30201 DEFB 65,78,39,84,32,65,70,70
30209 DEFB 79,82,68,32,84,79,32,80
30217 DEFB 76,65,89,32,65,78,89,77
30225 DEFB 79,82,69,34,58,237,176,34
30233 DEFB 57,50,51,48,34,58,237,176
30241 DEFB 34,49,50,48,48,34,58,236
30249 DEFB 176,34,49,48,48,48,34,13
30257 DEFB 5,195,151,0,237,176,34,49 Line 1475: GO SUB VAL "1500": IF GH>YH THEN PRINT AT 12,R;"GAMBLER'S HAND:": PRINT : PRINT TAB 12;G$;AT 17,2;"THE GAMBLER WINS THAT ONE": GO SUB VAL "1510": GO SUB VAL "1200": GO SUB VAL "1500": GO TO VAL "1490".
30265 DEFB 53,48,48,34,58,250,71,72
30273 DEFB 62,89,72,203,245,172,49,50
30281 DEFB 14,0,0,12,0,0,44,82
30289 DEFB 59,34,71,65,77,66,76,69
30297 DEFB 82,39,83,32,72,65,78,68
30305 DEFB 58,34,58,245,58,245,173,49
30313 DEFB 50,14,0,0,12,0,0,59
30321 DEFB 71,36,59,172,49,55,14,0
30329 DEFB 0,17,0,0,44,50,14,0
30337 DEFB 0,2,0,0,59,34,19,0
30345 DEFB 17,4,16,0,84,72,69,32
30353 DEFB 71,65,77,66,76,69,82,32
30361 DEFB 87,73,78,83,32,84,72,65
30369 DEFB 84,32,79,78,69,34,58,237
30377 DEFB 176,34,49,53,49,48,34,58
30385 DEFB 237,176,34,49,50,48,48,34
30393 DEFB 58,237,176,34,49,53,48,48
30401 DEFB 34,58,236,176,34,49,52,57
30409 DEFB 48,34,13
30412 DEFB 5,200,135,0,250,71,72,60 Line 1480: IF GH<YH THEN LET MU=MU+POT: GO SUB VAL "1510": PRINT AT 12,R;"GAMBLER'S HAND:": PRINT : PRINT TAB 12;G$;AT 17,8;"YOU WIN THAT ONE": GO SUB VAL "1200": GO SUB VAL "1500".
30420 DEFB 89,72,203,241,77,85,61,77
30428 DEFB 85,43,80,79,84,58,237,176
30436 DEFB 34,49,53,49,48,34,58,245
30444 DEFB 172,49,50,14,0,0,12,0
30452 DEFB 0,44,82,59,34,71,65,77
30460 DEFB 66,76,69,82,39,83,32,72
30468 DEFB 65,78,68,58,34,58,245,58
30476 DEFB 245,173,49,50,14,0,0,12
30484 DEFB 0,0,59,71,36,59,172,49
30492 DEFB 55,14,0,0,17,0,0,44
30500 DEFB 56,14,0,0,8,0,0,59
30508 DEFB 34,16,0,19,0,17,4,89
30516 DEFB 79,85,32,87,73,78,32,84
30524 DEFB 72,65,84,32,79,78,69,34
30532 DEFB 58,237,176,34,49,50,48,48
30540 DEFB 34,58,237,176,34,49,53,48
30548 DEFB 48,34,13
30551 DEFB 5,210,75,0,250,77,85,62 Line 1490: IF MU>120 THEN CLS : PRINT AT 10,6;"THE GAMBLER QUITS!!": GO SUB VAL "1200": GO TO VAL "1000".
30559 DEFB 49,50,48,14,0,0,120,0
30567 DEFB 0,203,251,58,245,172,49,48
30575 DEFB 14,0,0,10,0,0,44,54
30583 DEFB 14,0,0,6,0,0,59,34
30591 DEFB 84,72,69,32,71,65,77,66
30599 DEFB 76,69,82,32,81,85,73,84
30607 DEFB 83,33,33,34,58,237,176,34
30615 DEFB 49,50,48,48,34,58,236,176
30623 DEFB 34,49,48,48,48,34,13
30630 DEFB 5,211,65,0,245,172,49,54 Line 1491: PRINT AT 16,R;"WOULD YOU LIKE ANOTHER HAND?": PRINT : PRINT TAB 13;"(Y/N)".
30638 DEFB 14,0,0,16,0,0,44,82
30646 DEFB 59,34,87,79,85,76,68,32
30654 DEFB 89,79,85,32,76,73,75,69
30662 DEFB 32,65,78,79,84,72,69,82
30670 DEFB 32,72,65,78,68,63,34,58
30678 DEFB 245,58,245,173,49,51,14,0
30686 DEFB 0,13,0,0,59,34,40,89
30694 DEFB 47,78,41,34,13
30699 DEFB 5,212,29,0,215,46,48,51 Line 1492: BEEP .03,U: IF INKEY$="Y" THEN GO TO VAL "1498".
30707 DEFB 14,123,117,194,143,92,44,85
30715 DEFB 58,250,166,61,34,89,34,203
30723 DEFB 236,176,34,49,52,57,56,34
30731 DEFB 13
30732 DEFB 5,215,16,0,250,166,61,34 Line 1495: IF INKEY$="N" THEN GO TO VAL "1000".
30740 DEFB 78,34,203,236,176,34,49,48
30748 DEFB 48,48,34,13
30752 DEFB 5,217,22,0,215,46,48,49 Line 1497: BEEP .01,O: GO TO VAL "1492".
30760 DEFB 14,122,35,215,10,61,44,79
30768 DEFB 58,236,176,34,49,52,57,50
30776 DEFB 34,13
30778 DEFB 5,218,16,0,250,77,85,60 Line 1498: IF MU<INT PI THEN GO TO VAL "1250".
30786 DEFB 186,167,203,236,176,34,49,50
30794 DEFB 53,48,34,13
30798 DEFB 5,219,9,0,236,176,34,49 Line 1499: GO TO VAL "1275".
30806 DEFB 50,55,53,34,13
30811 DEFB 5,220,41,0,235,75,61,49 Line 1500: FOR K=12 TO 21: PRINT AT K,0;S$: NEXT K: RETURN.
30819 DEFB 50,14,0,0,12,0,0,204
30827 DEFB 50,49,14,0,0,21,0,0
30835 DEFB 58,245,172,75,44,48,14,0
30843 DEFB 0,0,0,0,59,83,36,58
30851 DEFB 243,75,58,254,13
30856 DEFB 5,230,75,0,245,172,52,14 Line 1510: PRINT AT 4,17;POT;AT 10,12;INT MU;" ";AT 10,28;BET: RETURN.
30864 DEFB 0,0,4,0,0,44,49,55
30872 DEFB 14,0,0,17,0,0,59,80
30880 DEFB 79,84,59,172,49,48,14,0
30888 DEFB 0,10,0,0,44,49,50,14
30896 DEFB 0,0,12,0,0,59,186,77
30904 DEFB 85,59,34,32,34,59,172,49
30912 DEFB 48,14,0,0,10,0,0,44
30920 DEFB 50,56,14,0,0,28,0,0
30928 DEFB 59,66,69,84,58,254,13
30935 DEFB 7,209,84,0,217,57,14,0 Line 2001: INK 9: PAPER INT PI: CLS : IF DT=U THEN PRINT AT 10,R;"THERE'S NOBODY SPECIAL HERE": PAUSE 150: GO TO VAL "1000".
30943 DEFB 0,9,0,0,58,218,186,167
30951 DEFB 58,251,58,250,68,84,61,85
30959 DEFB 203,245,172,49,48,14,0,0
30967 DEFB 10,0,0,44,82,59,34,84
30975 DEFB 72,69,82,69,39,83,32,78
30983 DEFB 79,66,79,68,89,32,83,80
30991 DEFB 69,67,73,65,76,32,72,69
30999 DEFB 82,69,34,58,242,49,53,48
31007 DEFB 14,0,0,150,0,0,58,236
31015 DEFB 176,34,49,48,48,48,34,13
31023 DEFB 7,218,17,0,250,165,42,76 Line 2010: IF RND*LV<U THEN GO TO VAL "2100".
31031 DEFB 86,60,85,203,236,176,34,50
31039 DEFB 49,48,48,34,13
31044 DEFB 7,223,32,0,229,57,48,48 Line 2015: RESTORE 9000+INT (RND*12)+U: READ J$.
31052 DEFB 48,14,0,0,40,35,0,43
31060 DEFB 186,40,165,42,49,50,14,0
31068 DEFB 0,12,0,0,41,43,85,58
31076 DEFB 227,74,36,13
31080 DEFB 7,233,13,0,235,78,61,85 Line 2025: FOR N=U TO 5.
31088 DEFB 204,53,14,0,0,5,0,0
31096 DEFB 13
31097 DEFB 7,238,19,0,250,74,36,61 Line 2030: IF J$=D$(N) THEN GO TO VAL "2015".
31105 DEFB 68,36,40,78,41,203,236,176
31113 DEFB 34,50,48,49,53,34,13
31120 DEFB 7,243,9,0,243,78,58,241 Line 2035: NEXT N: LET BG=U.
31128 DEFB 66,71,61,85,13
31133 DEFB 7,248,62,0,245,172,53,14 Line 2040: PRINT AT 5,O;"A MAN WALKS INTO THE SALOON WITH": PRINT : PRINT TAB 3;J$.
31141 DEFB 0,0,5,0,0,44,79,59
31149 DEFB 34,65,32,77,65,78,32,87
31157 DEFB 65,76,75,83,32,73,78,84
31165 DEFB 79,32,84,72,69,32,83,65
31173 DEFB 76,79,79,78,32,87,73,84
31181 DEFB 72,34,58,245,58,245,173,51
31189 DEFB 14,0,0,3,0,0,59,74
31197 DEFB 36,13
31199 DEFB 7,253,18,0,241,68,84,61 Line 2045: LET DT=U: GO TO 2200.
31207 DEFB 85,58,236,50,50,48,48,14
31215 DEFB 0,0,152,8,0,13
31221 DEFB 8,52,24,0,241,66,71,61 Line 2100: LET BG=O: LET M=INT (RND*5)+U.
31229 DEFB 79,58,241,77,61,186,40,165
31237 DEFB 42,53,14,0,0,5,0,0
31245 DEFB 41,43,85,13
31249 DEFB 8,62,20,0,250,86,40,77 Line 2110: IF V(M)<R THEN GO TO 2100.
31257 DEFB 41,60,82,203,236,50,49,48
31265 DEFB 48,14,0,0,52,8,0,13
31273 DEFB 8,64,69,0,250,77,61,77 Line 2112: IF M=MB AND V(U)+V(R)+V(3)+V(4)+V(5)>6 THEN GO TO 2100.
31281 DEFB 66,198,86,40,85,41,43,86
31289 DEFB 40,82,41,43,86,40,51,14
31297 DEFB 0,0,3,0,0,41,43,86
31305 DEFB 40,52,14,0,0,4,0,0
31313 DEFB 41,43,86,40,53,14,0,0
31321 DEFB 5,0,0,41,62,54,14,0
31329 DEFB 0,6,0,0,203,236,50,49
31337 DEFB 48,48,14,0,0,52,8,0
31345 DEFB 13
31346 DEFB 8,67,22,0,241,74,36,61 Line 2115: LET J$=D$(M): GO TO 2040.
31354 DEFB 68,36,40,77,41,58,236,50
31362 DEFB 48,52,48,14,0,0,248,7
31370 DEFB 0,13
31372 DEFB 8,152,76,0,245,217,54,14 Line 2200: PRINT INK 6;AT 12,U;"DO YOU WANT TO CHALLENGE HIM ?": PRINT : PRINT TAB 13;"(Y/N)".
31380 DEFB 0,0,6,0,0,59,172,49
31388 DEFB 50,14,0,0,12,0,0,44
31396 DEFB 85,59,34,68,79,32,89,79
31404 DEFB 85,32,87,65,78,84,32,84
31412 DEFB 79,32,67,72,65,76,76,69
31420 DEFB 78,71,69,32,72,73,77,32
31428 DEFB 63,34,58,245,58,245,173,49
31436 DEFB 51,14,0,0,13,0,0,59
31444 DEFB 34,40,89,47,78,41,34,13
31452 DEFB 8,162,16,0,250,166,61,34 Line 2210: IF INKEY$="Y" THEN GO TO VAL "2300".
31460 DEFB 89,34,203,236,176,34,50,51
31468 DEFB 48,48,34,13
31472 DEFB 8,167,40,0,215,46,48,49 Line 2215: BEEP .01,20: BEEP .01,30.
31480 DEFB 14,122,35,215,10,61,44,50
31488 DEFB 48,14,0,0,20,0,0,58
31496 DEFB 215,46,48,49,14,122,35,215
31504 DEFB 10,61,44,51,48,14,0,0
31512 DEFB 30,0,0,13
31516 DEFB 8,172,22,0,250,166,61,34 Line 2220: IF INKEY$="N" THEN LET DT=U: GO TO VAL "1000".
31524 DEFB 78,34,203,241,68,84,61,85
31532 DEFB 58,236,176,34,49,48,48,48
31540 DEFB 34,13
31542 DEFB 8,182,9,0,236,176,34,50 Line 2230: GO TO VAL "2210".
31550 DEFB 50,49,48,34,13
31555 DEFB 8,252,179,0,251,58,245,172 Line 2300: CLS : PRINT AT 4,INT PI;"DO YOU THINK HE IS :-": PRINT : PRINT " 1) ";B$(U): PRINT : PRINT " 2) ";B$(R): PRINT : PRINT " 3) ";B$(3): PRINT : PRINT " 4) ";B$(4): PRINT : PRINT " 5) ";B$(5): PRINT : PRINT " ENTER NUMBER OF CHOICE.".
31563 DEFB 52,14,0,0,4,0,0,44
31571 DEFB 186,167,59,34,68,79,32,89
31579 DEFB 79,85,32,84,72,73,78,75
31587 DEFB 32,72,69,32,73,83,32,58
31595 DEFB 45,34,58,245,58,245,34,32
31603 DEFB 32,32,49,41,32,34,59,66
31611 DEFB 36,40,85,41,58,245,58,245
31619 DEFB 34,32,32,32,50,41,32,34
31627 DEFB 59,66,36,40,82,41,58,245
31635 DEFB 58,245,34,32,32,32,51,41
31643 DEFB 32,34,59,66,36,40,51,14
31651 DEFB 0,0,3,0,0,41,58,245
31659 DEFB 58,245,34,32,32,32,52,41
31667 DEFB 32,34,59,66,36,40,52,14
31675 DEFB 0,0,4,0,0,41,58,245
31683 DEFB 58,245,34,32,32,32,53,41
31691 DEFB 32,34,59,66,36,40,53,14
31699 DEFB 0,0,5,0,0,41,58,245
31707 DEFB 58,245,34,32,32,32,69,78
31715 DEFB 84,69,82,32,78,85,77,66
31723 DEFB 69,82,32,79,70,32,67,72
31731 DEFB 79,73,67,69,46,34,13
31738 DEFB 9,6,97,0,215,46,50,14 Line 2310: BEEP .2,10: BEEP .3,-10: INPUT LINE E$: LET E$=E$+" ": IF CODE E$(U)<49 OR CODE E$(U)>53 THEN GO TO VAL "2310".
31746 DEFB 126,76,204,204,204,44,49,48
31754 DEFB 14,0,0,10,0,0,58,215
31762 DEFB 46,51,14,127,25,153,153,153
31770 DEFB 44,45,49,48,14,0,0,10
31778 DEFB 0,0,58,238,202,69,36,58
31786 DEFB 241,69,36,61,69,36,43,34
31794 DEFB 32,34,58,250,175,69,36,40
31802 DEFB 85,41,60,52,57,14,0,0
31810 DEFB 49,0,0,197,175,69,36,40
31818 DEFB 85,41,62,53,51,14,0,0
31826 DEFB 53,0,0,203,236,176,34,50
31834 DEFB 51,49,48,34,13
31839 DEFB 9,11,21,0,241,65,61,176 Line 2315: LET A=VAL E$: IF A<U THEN GO TO VAL "2310".
31847 DEFB 69,36,58,250,65,60,85,203
31855 DEFB 236,176,34,50,51,49,48,34
31863 DEFB 13
31864 DEFB 9,16,20,0,250,65,62,53 Line 2320: IF A>5 THEN GO TO VAL "2310".
31872 DEFB 14,0,0,5,0,0,203,236
31880 DEFB 176,34,50,51,49,48,34,13
31888 DEFB 9,26,141,0,231,79,58,251 Line 2330: BORDER O: CLS : PRINT AT 6,4;"DO YOU WANT TO :-": PRINT : PRINT TAB 5;"1) TAKE HIM PRISONER": PRINT : PRINT TAB 5;"2) HAVE A GUN FIGHT": PRINT : PRINT : PRINT TAB 9;"PRESS 1 OR 2".
31896 DEFB 58,245,172,54,14,0,0,6
31904 DEFB 0,0,44,52,14,0,0,4
31912 DEFB 0,0,59,34,68,79,32,89
31920 DEFB 79,85,32,87,65,78,84,32
31928 DEFB 84,79,32,58,45,34,58,245
31936 DEFB 58,245,173,53,14,0,0,5
31944 DEFB 0,0,59,34,49,41,32,84
31952 DEFB 65,75,69,32,72,73,77,32
31960 DEFB 80,82,73,83,79,78,69,82
31968 DEFB 34,58,245,58,245,173,53,14
31976 DEFB 0,0,5,0,0,59,34,50
31984 DEFB 41,32,72,65,86,69,32,65
31992 DEFB 32,71,85,78,32,70,73,71
32000 DEFB 72,84,34,58,245,58,245,58
32008 DEFB 245,173,57,14,0,0,9,0
32016 DEFB 0,59,34,80,82,69,83,83
32024 DEFB 32,49,32,79,82,32,50,34
32032 DEFB 13
32033 DEFB 9,31,51,0,250,166,61,34 Line 2335: IF INKEY$="1" THEN LET E$="CAPTURED ": LET I$="LAUGHS": LET TP=U: GO TO VAL "2400".
32041 DEFB 49,34,203,241,69,36,61,34
32049 DEFB 67,65,80,84,85,82,69,68
32057 DEFB 32,34,58,241,73,36,61,34
32065 DEFB 76,65,85,71,72,83,34,58
32073 DEFB 241,84,80,61,85,58,236,176
32081 DEFB 34,50,52,48,48,34,13
32088 DEFB 9,33,28,0,215,46,48,49 Line 2337: BEEP .01,PI: BEEP .01,PI*PI.
32096 DEFB 14,122,35,215,10,61,44,167
32104 DEFB 58,215,46,48,49,14,122,35
32112 DEFB 215,10,61,44,167,42,167,13
32120 DEFB 9,36,55,0,250,166,61,34 Line 2340: IF INKEY$="2" THEN LET E$="KILLED ": LET I$="FROWNS": LET TP=O: LET GF=U: GO TO VAL "5000".
32128 DEFB 50,34,203,241,69,36,61,34
32136 DEFB 75,73,76,76,69,68,32,34
32144 DEFB 58,241,73,36,61,34,70,82
32152 DEFB 79,87,78,83,34,58,241,84
32160 DEFB 80,61,79,58,241,71,70,61
32168 DEFB 85,58,236,176,34,53,48,48
32176 DEFB 48,34,13
32179 DEFB 9,41,9,0,236,176,34,50 Line 2345: GO TO VAL "2335".
32187 DEFB 51,51,53,34,13
32192 DEFB 9,96,56,0,231,54,14,0 Line 2400: BORDER 6: CLS : PRINT AT 7,R;"YOU SAY;""I'M TAKING YOU IN.""".
32200 DEFB 0,6,0,0,58,251,58,245
32208 DEFB 172,55,14,0,0,7,0,0
32216 DEFB 44,82,59,34,89,79,85,32
32224 DEFB 83,65,89,59,34,34,73,39
32232 DEFB 77,32,84,65,75,73,78,71
32240 DEFB 32,89,79,85,32,73,78,46
32248 DEFB 34,34,34,13
32252 DEFB 9,103,132,0,250,73,40,52 Line 2407: IF I(4)+I(5)+I(7)<=O THEN PRINT AT 10,INT PI;"THE MAN SEES THAT YOU HAVE": PRINT : PRINT " NO GUN AND RUNS OFF": LET SC=SC-50: GO TO VAL "2422".
32260 DEFB 14,0,0,4,0,0,41,43
32268 DEFB 73,40,53,14,0,0,5,0
32276 DEFB 0,41,43,73,40,55,14,0
32284 DEFB 0,7,0,0,41,199,79,203
32292 DEFB 245,172,49,48,14,0,0,10
32300 DEFB 0,0,44,186,167,59,34,84
32308 DEFB 72,69,32,77,65,78,32,83
32316 DEFB 69,69,83,32,84,72,65,84
32324 DEFB 32,89,79,85,32,72,65,86
32332 DEFB 69,34,58,245,58,245,34,32
32340 DEFB 32,32,78,79,32,71,85,78
32348 DEFB 32,65,78,68,32,82,85,78
32356 DEFB 83,32,79,70,70,34,58,241
32364 DEFB 83,67,61,83,67,45,53,48
32372 DEFB 14,0,0,50,0,0,58,236
32380 DEFB 176,34,50,52,50,50,34,13
32388 DEFB 9,106,15,0,250,66,71,61 Line 2410: IF BG=U THEN GO TO VAL "2450".
32396 DEFB 85,203,236,176,34,50,52,53
32404 DEFB 48,34,13
32407 DEFB 9,110,30,0,250,165,42,53 Line 2414: IF RND*5>1.7 THEN GO TO VAL "2450".
32415 DEFB 14,0,0,5,0,0,62,49
32423 DEFB 46,55,14,129,89,153,153,154
32431 DEFB 203,236,176,34,50,52,53,48
32439 DEFB 34,13
32441 DEFB 9,111,87,0,245,172,49,48 Line 2415: PRINT AT 10,INT PI;"BUT,THE MAN THROWS A BOTTLE": PRINT : PRINT " AT YOU AND RUNS OFF.": LET CS=CS-50.
32449 DEFB 14,0,0,10,0,0,44,186
32457 DEFB 167,59,34,66,85,84,44,84
32465 DEFB 72,69,32,77,65,78,32,84
32473 DEFB 72,82,79,87,83,32,65,32
32481 DEFB 66,79,84,84,76,69,34,58
32489 DEFB 245,58,245,34,32,32,32,172
32497 DEFB 89,79,85,32,65,78,68,32
32505 DEFB 82,85,78,83,32,79,70,70
32513 DEFB 46,34,58,241,67,83,61,67
32521 DEFB 83,45,53,48,14,0,0,50
32529 DEFB 0,0,13
32532 DEFB 9,118,66,0,235,78,61,49 Line 2422: FOR N=18 TO 30: BEEP .3,N: BEEP .2,N*-U: NEXT N: IF CS<=O THEN GO TO VAL "2435".
32540 DEFB 56,14,0,0,18,0,0,204
32548 DEFB 51,48,14,0,0,30,0,0
32556 DEFB 58,215,46,51,14,127,25,153
32564 DEFB 153,153,44,78,58,215,46,50
32572 DEFB 14,126,76,204,204,204,44,78
32580 DEFB 42,45,85,58,243,78,58,250
32588 DEFB 67,83,199,79,203,236,176,34
32596 DEFB 50,52,51,53,34,13
32602 DEFB 9,126,9,0,236,176,34,49 Line 2430: GO TO VAL "1000".
32610 DEFB 48,48,48,34,13
32615 DEFB 9,131,57,0,231,79,58,218 Line 2435: BORDER O: PAPER O: CLS : PRINT AT 10,O;"YOU HAVE DIED FROM YOUR INJURIES":.
32623 DEFB 79,58,251,58,245,172,49,48
32631 DEFB 14,0,0,10,0,0,44,79
32639 DEFB 59,34,89,79,85,32,72,65
32647 DEFB 86,69,32,68,73,69,68,32
32655 DEFB 70,82,79,77,32,89,79,85
32663 DEFB 82,32,73,78,74,85,82,73
32671 DEFB 69,83,34,58,13
32676 DEFB 9,136,85,0,229,176,34,57 Line 2440: RESTORE VAL "9100": FOR N=U TO 11: READ M: READ W: BEEP M/3,W: NEXT N: LET M$="YOU RAN OUT OF STRENGTH!": GO TO VAL "8500".
32684 DEFB 49,48,48,34,58,235,78,61
32692 DEFB 85,204,49,49,14,0,0,11
32700 DEFB 0,0,58,227,77,58,227,87
32708 DEFB 58,215,77,47,51,14,0,0
32716 DEFB 3,0,0,44,87,58,243,78
32724 DEFB 58,241,77,36,61,34,89,79
32732 DEFB 85,32,82,65,78,32,79,85
32740 DEFB 84,32,79,70,32,83,84,82
32748 DEFB 69,78,71,84,72,33,34,58
32756 DEFB 236,176,34,56,53,48,48,34
32764 DEFB 13
32765 DEFB 9,146,102,0,245,172,49,49 Line 2450: PRINT AT 11,1;"YOU TAKE THE MAN,AT GUN POINT": PRINT : PRINT " TO THE SHERIFF'S OFFICE": GO SUB VAL "2455": GO TO VAL "2460".
32773 DEFB 14,0,0,11,0,0,44,49
32781 DEFB 14,0,0,1,0,0,59,34
32789 DEFB 89,79,85,32,84,65,75,69
32797 DEFB 32,84,72,69,32,77,65,78
32805 DEFB 44,65,84,32,71,85,78,32
32813 DEFB 80,79,73,78,84,34,58,245
32821 DEFB 58,245,34,32,32,32,32,84
32829 DEFB 79,32,84,72,69,32,83,72
32837 DEFB 69,82,73,70,70,39,83,32
32845 DEFB 79,70,70,73,67,69,34,58
32853 DEFB 237,176,34,50,52,53,53,34
32861 DEFB 58,236,176,34,50,52,54,48
32869 DEFB 34,13
32871 DEFB 9,151,47,0,229,176,34,57 Line 2455: RESTORE VAL "9080": FOR N=U TO 10: READ K: READ G: BEEP K/3,G: NEXT N: RETURN.
32879 DEFB 48,56,48,34,58,235,78,61
32887 DEFB 85,204,49,48,14,0,0,10
32895 DEFB 0,0,58,227,75,58,227,71
32903 DEFB 58,215,75,47,51,14,0,0
32911 DEFB 3,0,0,44,71,58,243,78
32919 DEFB 58,254,13
32922 DEFB 9,156,76,0,231,53,14,0 Line 2460: BORDER 5: CLS : PRINT AT 4,U;"YOU TELL THE SHERIFF YOU HAVE": PRINT : PRINT TAB 4;E$;B$(A).
32930 DEFB 0,5,0,0,58,251,58,245
32938 DEFB 172,52,14,0,0,4,0,0
32946 DEFB 44,85,59,34,89,79,85,32
32954 DEFB 84,69,76,76,32,84,72,69
32962 DEFB 32,83,72,69,82,73,70,70
32970 DEFB 32,89,79,85,32,72,65,86
32978 DEFB 69,34,58,245,58,245,173,52
32986 DEFB 14,0,0,4,0,0,59,69
32994 DEFB 36,59,66,36,40,65,41,13
33002 DEFB 9,161,24,0,250,68,36,40 Line 2465: IF D$(A)=J$ AND TP=U THEN GO TO VAL "2495".
33010 DEFB 65,41,61,74,36,198,84,80
33018 DEFB 61,85,203,236,176,34,50,52
33026 DEFB 57,53,34,13
33030 DEFB 9,162,24,0,250,68,36,40 Line 2466: IF D$(A)=J$ AND GF=U THEN GO TO VAL "2700".
33038 DEFB 65,41,61,74,36,198,71,70
33046 DEFB 61,85,203,236,176,34,50,55
33054 DEFB 48,48,34,13
33058 DEFB 9,163,76,0,245,172,57,14 Line 2467: PRINT AT 9,R;"THE SHERIFF ";I$;" AND SAYS;": PRINT : PRINT " ""THAT'S NOT ";B$(A);".""".
33066 DEFB 0,0,9,0,0,44,82,59
33074 DEFB 34,84,72,69,32,83,72,69
33082 DEFB 82,73,70,70,32,34,59,73
33090 DEFB 36,59,34,32,65,78,68,32
33098 DEFB 83,65,89,83,59,34,58,245
33106 DEFB 58,245,34,32,32,34,34,84
33114 DEFB 72,65,84,39,83,32,78,79
33122 DEFB 84,32,34,59,66,36,40,65
33130 DEFB 41,59,34,46,34,34,34,13
33138 DEFB 9,164,38,0,250,86,40,65 Line 2468: IF V(A)=U THEN LET C$="HE HAS BEEN PUT IN JAIL".
33146 DEFB 41,61,85,203,241,67,36,61
33154 DEFB 34,72,69,32,72,65,83,32
33162 DEFB 66,69,69,78,32,80,85,84
33170 DEFB 32,73,78,32,74,65,73,76
33178 DEFB 34,13
33180 DEFB 9,165,28,0,250,86,40,65 Line 2469: IF V(A)=O THEN LET C$="HE WAS KILLED".
33188 DEFB 41,61,79,203,241,67,36,61
33196 DEFB 34,72,69,32,87,65,83,32
33204 DEFB 75,73,76,76,69,68,34,13
33212 DEFB 9,166,47,0,250,68,36,40 Line 2470: IF D$(A)<>J$ THEN LET C$="HE DOESN'T FIT THE DESCRIPTION".
33220 DEFB 65,41,201,74,36,203,241,67
33228 DEFB 36,61,34,72,69,32,68,79
33236 DEFB 69,83,78,39,84,32,70,73
33244 DEFB 84,32,84,72,69,32,68,69
33252 DEFB 83,67,82,73,80,84,73,79
33260 DEFB 78,34,13
33263 DEFB 9,167,85,0,250,66,71,61 Line 2471: IF BG=U THEN RESTORE 9150+INT (RND*4)+U: READ Z$: PRINT AT 14,4;"""THAT'S ";Z$;"""": GO TO VAL "2480".
33271 DEFB 85,203,229,57,49,53,48,14
33279 DEFB 0,0,190,35,0,43,186,40
33287 DEFB 165,42,52,14,0,0,4,0
33295 DEFB 0,41,43,85,58,227,90,36
33303 DEFB 58,245,172,49,52,14,0,0
33311 DEFB 14,0,0,44,52,14,0,0
33319 DEFB 4,0,0,59,34,34,34,84
33327 DEFB 72,65,84,39,83,32,34,59
33335 DEFB 90,36,59,34,34,34,34,58
33343 DEFB 236,176,34,50,52,56,48,34
33351 DEFB 13
33352 DEFB 9,168,16,0,245,172,49,52 Line 2472: PRINT AT 14,R;C$.
33360 DEFB 14,0,0,14,0,0,44,82
33368 DEFB 59,67,36,13
33372 DEFB 9,176,64,0,250,84,80,61 Line 2480: IF TP=U THEN PRINT AT 17,7;"HE LETS THE MAN GO": GO SUB VAL "2482": GO TO VAL "2483".
33380 DEFB 85,203,245,172,49,55,14,0
33388 DEFB 0,17,0,0,44,55,14,0
33396 DEFB 0,7,0,0,59,34,72,69
33404 DEFB 32,76,69,84,83,32,84,72
33412 DEFB 69,32,77,65,78,32,71,79
33420 DEFB 34,58,237,176,34,50,52,56
33428 DEFB 50,34,58,236,176,34,50,52
33436 DEFB 56,51,34,13
33440 DEFB 9,177,58,0,245,172,49,55 Line 2481: PRINT AT 17,7;"HE COVERS THE BODY": GO SUB VAL "2482": GO TO VAL "2720".
33448 DEFB 14,0,0,17,0,0,44,55
33456 DEFB 14,0,0,7,0,0,59,34
33464 DEFB 72,69,32,67,79,86,69,82
33472 DEFB 83,32,84,72,69,32,66,79
33480 DEFB 68,89,34,58,237,176,34,50
33488 DEFB 52,56,50,34,58,236,176,34
33496 DEFB 50,55,50,48,34,13
33502 DEFB 9,178,63,0,235,78,61,53 Line 2482: FOR N=50 TO -10 STEP -U: BEEP .1,N: BEEP .05,N/2: NEXT N: RETURN.
33510 DEFB 48,14,0,0,50,0,0,204
33518 DEFB 45,49,48,14,0,0,10,0
33526 DEFB 0,205,45,85,58,215,46,49
33534 DEFB 14,125,76,204,204,204,44,78
33542 DEFB 58,215,46,48,53,14,124,76
33550 DEFB 204,204,204,44,78,47,50,14
33558 DEFB 0,0,2,0,0,58,243,78
33566 DEFB 58,254,13
33569 DEFB 9,179,35,0,251,58,250,77 Line 2483: CLS : IF MU<5 THEN LET W=MU: LET MU=O: GO TO VAL "2485".
33577 DEFB 85,60,53,14,0,0,5,0
33585 DEFB 0,203,241,87,61,77,85,58
33593 DEFB 241,77,85,61,79,58,236,176
33601 DEFB 34,50,52,56,53,34,13
33608 DEFB 9,180,27,0,241,87,61,186 Line 2484: LET W=INT (MU/10): LET MU=MU-W.
33616 DEFB 40,77,85,47,49,48,14,0
33624 DEFB 0,10,0,0,41,58,241,77
33632 DEFB 85,61,77,85,45,87,13
33639 DEFB 9,181,115,0,245,172,54,14 Line 2485: PRINT AT 6,4;"THE SHERIFF FINES YOU $";W: PRINT : PRINT TAB 4;"FOR WASTING HIS TIME THEN": PRINT : PRINT TAB 4;"THROWS YOU OUT".
33647 DEFB 0,0,6,0,0,44,52,14
33655 DEFB 0,0,4,0,0,59,34,84
33663 DEFB 72,69,32,83,72,69,82,73
33671 DEFB 70,70,32,70,73,78,69,83
33679 DEFB 32,89,79,85,32,36,34,59
33687 DEFB 87,58,245,58,245,173,52,14
33695 DEFB 0,0,4,0,0,59,34,70
33703 DEFB 79,82,32,87,65,83,84,73
33711 DEFB 78,71,32,72,73,83,32,84
33719 DEFB 73,77,69,32,84,72,69,78
33727 DEFB 34,58,245,58,245,173,52,14
33735 DEFB 0,0,4,0,0,59,34,84
33743 DEFB 72,82,79,87,83,32,89,79
33751 DEFB 85,32,79,85,84,34,13
33758 DEFB 9,182,64,0,235,78,61,51 Line 2486: FOR N=30 TO -30 STEP -U: BEEP .05,N: BEEP .05,N-R: NEXT N: GO TO VAL "500".
33766 DEFB 48,14,0,0,30,0,0,204
33774 DEFB 45,51,48,14,0,0,30,0
33782 DEFB 0,205,45,85,58,215,46,48
33790 DEFB 53,14,124,76,204,204,204,44
33798 DEFB 78,58,215,46,48,53,14,124
33806 DEFB 76,204,204,204,44,78,45,82
33814 DEFB 58,243,78,58,236,176,34,53
33822 DEFB 48,48,34,13
33826 DEFB 9,191,157,0,245,172,49,50 Line 2495: PRINT AT 12,R;"THE SHERIFF AGREES AND PUTS": PRINT : PRINT TAB 4;"HIM BEHIND BARS.": PRINT : PRINT TAB R;"YOU RECEIVE $";R(A);" REWARD": LET V(A)=U: LET MU=MU+R(A): LET SC=SC+200: GO SUB VAL "2498".
33834 DEFB 14,0,0,12,0,0,44,82
33842 DEFB 59,34,84,72,69,32,83,72
33850 DEFB 69,82,73,70,70,32,65,71
33858 DEFB 82,69,69,83,32,65,78,68
33866 DEFB 32,80,85,84,83,34,58,245
33874 DEFB 58,245,173,52,14,0,0,4
33882 DEFB 0,0,59,34,72,73,77,32
33890 DEFB 66,69,72,73,78,68,32,66
33898 DEFB 65,82,83,46,34,58,245,58
33906 DEFB 245,173,82,59,34,89,79,85
33914 DEFB 32,82,69,67,69,73,86,69
33922 DEFB 32,36,34,59,82,40,65,41
33930 DEFB 59,34,32,82,69,87,65,82
33938 DEFB 68,34,58,241,86,40,65,41
33946 DEFB 61,85,58,241,77,85,61,77
33954 DEFB 85,43,82,40,65,41,58,241
33962 DEFB 83,67,61,83,67,43,50,48
33970 DEFB 48,14,0,0,200,0,0,58
33978 DEFB 237,176,34,50,52,57,56,34
33986 DEFB 13
33987 DEFB 9,192,23,0,250,66,36,40 Line 2496: IF B$(A)=B$(MB) THEN GO TO VAL "9600".
33995 DEFB 65,41,61,66,36,40,77,66
34003 DEFB 41,203,236,176,34,57,54,48
34011 DEFB 48,34,13
34014 DEFB 9,193,8,0,236,176,34,53 Line 2497: GO TO VAL "500".
34022 DEFB 48,48,34,13
34026 DEFB 9,194,47,0,229,176,34,57 Line 2498: RESTORE VAL "9085": FOR N=U TO 18: READ K: READ H: BEEP K/5,H: NEXT N: RETURN.
34034 DEFB 48,56,53,34,58,235,78,61
34042 DEFB 85,204,49,56,14,0,0,18
34050 DEFB 0,0,58,227,75,58,227,72
34058 DEFB 58,215,75,47,53,14,0,0
34066 DEFB 5,0,0,44,72,58,243,78
34074 DEFB 58,254,13
34077 DEFB 9,197,36,0,250,77,85,199 Line 2501: IF MU<=100 THEN LET BB=20: GO TO VAL "2550".
34085 DEFB 49,48,48,14,0,0,100,0
34093 DEFB 0,203,241,66,66,61,50,48
34101 DEFB 14,0,0,20,0,0,58,236
34109 DEFB 176,34,50,53,53,48,34,13
34117 DEFB 9,201,29,0,241,66,66,61 Line 2505: LET BB=20+INT (RND*50)+U.
34125 DEFB 50,48,14,0,0,20,0,0
34133 DEFB 43,186,40,165,42,53,48,14
34141 DEFB 0,0,50,0,0,41,43,85
34149 DEFB 13
34150 DEFB 9,246,177,0,231,85,58,218 Line 2550: BORDER U: PAPER 5: CLS : PRINT AT 6,U;"YOU GO TO THE TELEGRAPH OFFICE",,," THE CLERK SAYS HE WILL SHOW",,," YOU THE LATEST TELEGRAPHS",,," FOR $";BB;AT 16,6;"DO YOU AGREE ?(Y/N)".
34158 DEFB 53,14,0,0,5,0,0,58
34166 DEFB 251,58,245,172,54,14,0,0
34174 DEFB 6,0,0,44,85,59,34,89
34182 DEFB 79,85,32,71,79,32,84,79
34190 DEFB 32,84,72,69,32,84,69,76
34198 DEFB 69,71,82,65,80,72,32,79
34206 DEFB 70,70,73,67,69,34,44,44
34214 DEFB 44,34,32,84,72,69,32,67
34222 DEFB 76,69,82,75,32,83,65,89
34230 DEFB 83,32,72,69,32,87,73,76
34238 DEFB 76,32,83,72,79,87,34,44
34246 DEFB 44,44,34,32,89,79,85,32
34254 DEFB 84,72,69,32,76,65,84,69
34262 DEFB 83,84,32,84,69,76,69,71
34270 DEFB 82,65,80,72,83,34,44,44
34278 DEFB 44,34,32,70,79,82,32,36
34286 DEFB 34,59,66,66,59,172,49,54
34294 DEFB 14,0,0,16,0,0,44,54
34302 DEFB 14,0,0,6,0,0,59,34
34310 DEFB 68,79,32,89,79,85,32,65
34318 DEFB 71,82,69,69,32,63,40,89
34326 DEFB 47,78,41,34,13
34331 DEFB 9,251,35,0,215,46,48,50 Line 2555: BEEP .02,30: IF INKEY$="N" THEN GO TO VAL "500".
34339 DEFB 14,123,35,215,10,61,44,51
34347 DEFB 48,14,0,0,30,0,0,58
34355 DEFB 250,166,61,34,78,34,203,236
34363 DEFB 176,34,53,48,48,34,13
34370 DEFB 10,0,16,0,250,166,61,34 Line 2560: IF INKEY$="Y" THEN GO TO VAL "2570".
34378 DEFB 89,34,203,236,176,34,50,53
34386 DEFB 55,48,34,13
34390 DEFB 10,5,30,0,215,46,48,50 Line 2565: BEEP .02,-20: GO TO VAL "2555".
34398 DEFB 14,123,35,215,10,61,44,45
34406 DEFB 50,48,14,0,0,20,0,0
34414 DEFB 58,236,176,34,50,53,53,53
34422 DEFB 34,13
34424 DEFB 10,10,158,0,250,77,85,60 Line 2570: IF MU<BB THEN CLS : PRINT AT 8,0;"YOUR INTENTIONS ARE BIGGER THAN",,,"YOUR WALLET.YOU DON'T HAVE $";BB: FOR N=-20 TO 25: BEEP .1,N: BEEP .05,N*-U: NEXT N: GO TO VAL "500".
34432 DEFB 66,66,203,251,58,245,172,56
34440 DEFB 14,0,0,8,0,0,44,48
34448 DEFB 14,0,0,0,0,0,59,34
34456 DEFB 89,79,85,82,32,73,78,84
34464 DEFB 69,78,84,73,79,78,83,32
34472 DEFB 65,82,69,32,66,73,71,71
34480 DEFB 69,82,32,84,72,65,78,34
34488 DEFB 44,44,44,34,89,79,85,82
34496 DEFB 32,87,65,76,76,69,84,46
34504 DEFB 89,79,85,32,68,79,78,39
34512 DEFB 84,32,72,65,86,69,32,36
34520 DEFB 34,59,66,66,58,235,78,61
34528 DEFB 45,50,48,14,0,0,20,0
34536 DEFB 0,204,50,53,14,0,0,25
34544 DEFB 0,0,58,215,46,49,14,125
34552 DEFB 76,204,204,204,44,78,58,215
34560 DEFB 46,48,53,14,124,76,204,204
34568 DEFB 204,44,78,42,45,85,58,243
34576 DEFB 78,58,236,176,34,53,48,48
34584 DEFB 34,13
34586 DEFB 10,15,10,0,241,77,85,61 Line 2575: LET MU=MU-BB.
34594 DEFB 77,85,45,66,66,13
34600 DEFB 10,25,202,0,231,79,58,218 Line 2585: BORDER O: PAPER 7: CLS : PRINT AT 4,U;"TELEGRAPH FROM ";T$(UM);AT 8,3;"PINKERTON AGENT CHARLES A.",,," SIRINGO ARRIVED TODAY IN",,," SEARCH OF FUGITIVE KNOWN",,," AS ";N$: INPUT " PRESS ENTER"; LINE H$.
34608 DEFB 55,14,0,0,7,0,0,58
34616 DEFB 251,58,245,172,52,14,0,0
34624 DEFB 4,0,0,44,85,59,34,84
34632 DEFB 69,76,69,71,82,65,80,72
34640 DEFB 32,70,82,79,77,32,34,59
34648 DEFB 84,36,40,85,77,41,59,172
34656 DEFB 56,14,0,0,8,0,0,44
34664 DEFB 51,14,0,0,3,0,0,59
34672 DEFB 34,80,73,78,75,69,82,84
34680 DEFB 79,78,32,65,71,69,78,84
34688 DEFB 32,67,72,65,82,76,69,83
34696 DEFB 32,65,46,34,44,44,44,34
34704 DEFB 32,32,32,83,73,82,73,78
34712 DEFB 71,79,32,65,82,82,73,86
34720 DEFB 69,68,32,84,79,68,65,89
34728 DEFB 32,73,78,34,44,44,44,34
34736 DEFB 32,32,32,83,69,65,82,67
34744 DEFB 72,32,79,70,32,70,85,71
34752 DEFB 73,84,73,86,69,32,75,78
34760 DEFB 79,87,78,34,44,44,44,34
34768 DEFB 32,32,32,65,83,32,34,59
34776 DEFB 78,36,58,238,34,32,32,32
34784 DEFB 32,32,32,32,32,80,82,69
34792 DEFB 83,83,32,69,78,84,69,82
34800 DEFB 34,59,202,72,36,13
34806 DEFB 10,30,15,0,250,74,66,201 Line 2590: IF JB<>O THEN GO SUB VAL "2610".
34814 DEFB 79,203,237,176,34,50,54,49
34822 DEFB 48,34,13
34825 DEFB 10,35,9,0,236,176,34,50 Line 2595: GO TO VAL "2620".
34833 DEFB 54,50,48,34,13
34838 DEFB 10,50,198,0,251,58,245,172 Line 2610: CLS : PRINT AT 4,4;"TELEGRAPH FROM KNOXVILLE";AT 8,R;"THE OUTLAW ";B$(JB),,," ESCAPED FROM KNOXVILLE COUNTY",,," JAIL.",,,," REWARD FOR RECAPTURE $";R(JB): INPUT " PRESS ENTER"; LINE H$: LET JB=O: RETURN.
34846 DEFB 52,14,0,0,4,0,0,44
34854 DEFB 52,14,0,0,4,0,0,59
34862 DEFB 34,84,69,76,69,71,82,65
34870 DEFB 80,72,32,70,82,79,77,32
34878 DEFB 75,78,79,88,86,73,76,76
34886 DEFB 69,34,59,172,56,14,0,0
34894 DEFB 8,0,0,44,82,59,34,84
34902 DEFB 72,69,32,79,85,84,76,65
34910 DEFB 87,32,34,59,66,36,40,74
34918 DEFB 66,41,44,44,44,34,32,32
34926 DEFB 69,83,67,65,80,69,68,32
34934 DEFB 70,82,79,77,32,75,78,79
34942 DEFB 88,86,73,76,76,69,32,67
34950 DEFB 79,85,78,84,89,34,44,44
34958 DEFB 44,34,32,32,74,65,73,76
34966 DEFB 46,34,44,44,44,44,34,32
34974 DEFB 32,82,69,87,65,82,68,32
34982 DEFB 70,79,82,32,82,69,67,65
34990 DEFB 80,84,85,82,69,32,36,34
34998 DEFB 59,82,40,74,66,41,58,238
35006 DEFB 34,32,32,32,32,32,32,32
35014 DEFB 32,80,82,69,83,83,32,69
35022 DEFB 78,84,69,82,34,59,202,72
35030 DEFB 36,58,241,74,66,61,79,58
35038 DEFB 254,13
35040 DEFB 10,60,19,0,241,88,61,186 Line 2620: LET X=INT (RND*12)+U.
35048 DEFB 40,165,42,49,50,14,0,0
35056 DEFB 12,0,0,41,43,85,13
35063 DEFB 10,65,19,0,250,88,60,56 Line 2625: IF X<8 THEN GO TO VAL "500".
35071 DEFB 14,0,0,8,0,0,203,236
35079 DEFB 176,34,53,48,48,34,13
35086 DEFB 10,70,60,0,250,88,61,49 Line 2630: IF X=12 THEN LET W$="UNION PACIFIC RAILROAD CO.": LET X$="TRAIN".
35094 DEFB 50,14,0,0,12,0,0,203
35102 DEFB 241,87,36,61,34,85,78,73
35110 DEFB 79,78,32,80,65,67,73,70
35118 DEFB 73,67,32,32,32,32,82,65
35126 DEFB 73,76,82,79,65,68,32,67
35134 DEFB 79,46,34,58,241,88,36,61
35142 DEFB 34,84,82,65,73,78,34,13
35150 DEFB 10,71,60,0,250,88,61,49 Line 2631: IF X=11 THEN LET W$="GREAT NORTHERN RAILROAD CO.": LET X$="TRAIN".
35158 DEFB 49,14,0,0,11,0,0,203
35166 DEFB 241,87,36,61,34,71,82,69
35174 DEFB 65,84,32,78,79,82,84,72
35182 DEFB 69,82,78,32,32,32,82,65
35190 DEFB 73,76,82,79,65,68,32,67
35198 DEFB 79,46,34,58,241,88,36,61
35206 DEFB 34,84,82,65,73,78,34,13
35214 DEFB 10,72,51,0,250,88,61,49 Line 2632: IF X=10 THEN LET W$="DENVER": LET X$="FIRST NATIONAL BANK".
35222 DEFB 48,14,0,0,10,0,0,203
35230 DEFB 241,87,36,61,34,68,69,78
35238 DEFB 86,69,82,34,58,241,88,36
35246 DEFB 61,34,70,73,82,83,84,32
35254 DEFB 78,65,84,73,79,78,65,76
35262 DEFB 32,66,65,78,75,34,13
35269 DEFB 10,73,60,0,250,88,61,57 Line 2633: IF X=9 THEN LET W$="MONTPELIER,IDAHO": LET X$="FIRST NATIONAL BANK".
35277 DEFB 14,0,0,9,0,0,203,241
35285 DEFB 87,36,61,34,77,79,78,84
35293 DEFB 80,69,76,73,69,82,44,73
35301 DEFB 68,65,72,79,34,58,241,88
35309 DEFB 36,61,34,70,73,82,83,84
35317 DEFB 32,78,65,84,73,79,78,65
35325 DEFB 76,32,66,65,78,75,34,13
35333 DEFB 10,74,61,0,250,88,61,56 Line 2634: IF X=8 THEN LET W$="WINNEMUCCA,NEVADA": LET X$="FIRST NATIONAL BANK".
35341 DEFB 14,0,0,8,0,0,203,241
35349 DEFB 87,36,61,34,87,73,78,78
35357 DEFB 69,77,85,67,67,65,44,78
35365 DEFB 69,86,65,68,65,34,58,241
35373 DEFB 88,36,61,34,70,73,82,83
35381 DEFB 84,32,78,65,84,73,79,78
35389 DEFB 65,76,32,66,65,78,75,34
35397 DEFB 13
35398 DEFB 10,75,199,0,251,58,245,172 Line 2635: CLS : PRINT AT 4,O;"TELEGRAPH FROM ";W$;AT 8,R;"WILD BUNCH CARRIED OUT RAID",,," ON ";X$;AT 12,R;"REWARDS RAISED BY $50": FOR N=U TO 5: LET R(N)=R(N)+50: NEXT N: INPUT " PRESS ENTER"; LINE H$: GO TO 500.
35406 DEFB 52,14,0,0,4,0,0,44
35414 DEFB 79,59,34,84,69,76,69,71
35422 DEFB 82,65,80,72,32,70,82,79
35430 DEFB 77,32,34,59,87,36,59,172
35438 DEFB 56,14,0,0,8,0,0,44
35446 DEFB 82,59,34,87,73,76,68,32
35454 DEFB 66,85,78,67,72,32,67,65
35462 DEFB 82,82,73,69,68,32,79,85
35470 DEFB 84,32,82,65,73,68,34,44
35478 DEFB 44,44,34,32,32,79,78,32
35486 DEFB 34,59,88,36,59,172,49,50
35494 DEFB 14,0,0,12,0,0,44,82
35502 DEFB 59,34,82,69,87,65,82,68
35510 DEFB 83,32,82,65,73,83,69,68
35518 DEFB 32,66,89,32,36,53,48,34
35526 DEFB 58,235,78,61,85,204,53,14
35534 DEFB 0,0,5,0,0,58,241,82
35542 DEFB 40,78,41,61,82,40,78,41
35550 DEFB 43,53,48,14,0,0,50,0
35558 DEFB 0,58,243,78,58,238,34,32
35566 DEFB 32,32,32,32,32,32,32,80
35574 DEFB 82,69,83,83,32,69,78,84
35582 DEFB 69,82,34,59,202,72,36,58
35590 DEFB 236,53,48,48,14,0,0,244
35598 DEFB 1,0,13
35601 DEFB 10,140,217,0,245,172,49,50 Line 2700: PRINT AT 12,2;"THE SHERIFF AGREES AND CALLS": PRINT : PRINT " THE UNDERTAKER.": PRINT : PRINT " YOU RECEIVE $";R(A);" REWARD.": LET MU=MU+R(A): LET SC=SC+500: LET V(A)=O: IF I(4)>O AND I(6)>O THEN LET I(6)=I(6)-U: GO SUB VAL "2498": GO TO VAL "2710".
35609 DEFB 14,0,0,12,0,0,44,50
35617 DEFB 14,0,0,2,0,0,59,34
35625 DEFB 84,72,69,32,83,72,69,82
35633 DEFB 73,70,70,32,65,71,82,69
35641 DEFB 69,83,32,65,78,68,32,67
35649 DEFB 65,76,76,83,34,58,245,58
35657 DEFB 245,34,32,32,84,72,69,32
35665 DEFB 85,78,68,69,82,84,65,75
35673 DEFB 69,82,46,34,58,245,58,245
35681 DEFB 34,32,32,89,79,85,32,82
35689 DEFB 69,67,69,73,86,69,32,36
35697 DEFB 34,59,82,40,65,41,59,34
35705 DEFB 32,82,69,87,65,82,68,46
35713 DEFB 34,58,241,77,85,61,77,85
35721 DEFB 43,82,40,65,41,58,241,83
35729 DEFB 67,61,83,67,43,53,48,48
35737 DEFB 14,0,0,244,1,0,58,241
35745 DEFB 86,40,65,41,61,79,58,250
35753 DEFB 73,40,52,14,0,0,4,0
35761 DEFB 0,41,62,79,198,73,40,54
35769 DEFB 14,0,0,6,0,0,41,62
35777 DEFB 79,203,241,73,40,54,14,0
35785 DEFB 0,6,0,0,41,61,73,40
35793 DEFB 54,14,0,0,6,0,0,41
35801 DEFB 45,85,58,237,176,34,50,52
35809 DEFB 57,56,34,58,236,176,34,50
35817 DEFB 55,49,48,34,13
35822 DEFB 10,145,34,0,241,73,40,53 Line 2705: LET I(5)=I(5)-U: GO SUB VAL "2498".
35830 DEFB 14,0,0,5,0,0,41,61
35838 DEFB 73,40,53,14,0,0,5,0
35846 DEFB 0,41,45,85,58,237,176,34
35854 DEFB 50,52,57,56,34,13
35860 DEFB 10,150,23,0,250,66,36,40 Line 2710: IF B$(A)=B$(MB) THEN GO TO VAL "9700".
35868 DEFB 65,41,61,66,36,40,77,66
35876 DEFB 41,203,236,176,34,57,55,48
35884 DEFB 48,34,13
35887 DEFB 10,155,8,0,236,176,34,53 Line 2715: GO TO VAL "500".
35895 DEFB 48,48,34,13
35899 DEFB 10,160,121,0,231,48,14,0 Line 2720: BORDER 0: PAPER 0: CLS : PRINT AT 7,O;"HE ARRESTS YOU FOR MANSLAUGHTER": PRINT : PRINT "YOU'LL BE IN JAIL FOR QUITE A": PRINT : PRINT "LONG TIME.....".
35907 DEFB 0,0,0,0,58,218,48,14
35915 DEFB 0,0,0,0,0,58,251,58
35923 DEFB 245,172,55,14,0,0,7,0
35931 DEFB 0,44,79,59,34,72,69,32
35939 DEFB 65,82,82,69,83,84,83,32
35947 DEFB 89,79,85,32,70,79,82,32
35955 DEFB 77,65,78,83,76,65,85,71
35963 DEFB 72,84,69,82,34,58,245,58
35971 DEFB 245,34,89,79,85,39,76,76
35979 DEFB 32,66,69,32,73,78,32,74
35987 DEFB 65,73,76,32,70,79,82,32
35995 DEFB 81,85,73,84,69,32,65,34
36003 DEFB 58,245,58,245,34,76,79,78
36011 DEFB 71,32,84,73,77,69,46,46
36019 DEFB 46,46,46,34,13
36024 DEFB 10,165,78,0,235,78,61,55 Line 2725: FOR N=7 TO -20 STEP -U: BEEP .2,N: BEEP .05,N+3: NEXT N: GO SUB VAL "9500": GO TO VAL "9870".
36032 DEFB 14,0,0,7,0,0,204,45
36040 DEFB 50,48,14,0,0,20,0,0
36048 DEFB 205,45,85,58,215,46,50,14
36056 DEFB 126,76,204,204,204,44,78,58
36064 DEFB 215,46,48,53,14,124,76,204
36072 DEFB 204,204,44,78,43,51,14,0
36080 DEFB 0,3,0,0,58,243,78,58
36088 DEFB 237,176,34,57,53,48,48,34
36096 DEFB 58,236,176,34,57,56,55,48
36104 DEFB 34,13
36106 DEFB 11,184,18,0,231,82,58,218 Line 3000: BORDER R: PAPER INT PI: INK 9: CLS.
36114 DEFB 186,167,58,217,57,14,0,0
36122 DEFB 9,0,0,58,251,13
36128 DEFB 11,189,248,0,215,46,50,14 Line 3005: BEEP .2,15: BEEP .25,-15: PRINT AT 6,5;"YOU GO TO THE SHERIFFS": PRINT : PRINT TAB 5;"OFFICE TO LOOK AT THE": PRINT : PRINT TAB 5;"LATEST WANTED POSTERS": PRINT : PRINT TAB 5;"ON MEMBERS OF THE WILD": PRINT : PRINT TAB 5;"BUNCH."; FLASH U;AT 17,12;"ANY KEY": FLASH O.
36136 DEFB 126,76,204,204,204,44,49,53
36144 DEFB 14,0,0,15,0,0,58,215
36152 DEFB 46,50,53,14,126,127,255,255
36160 DEFB 255,44,45,49,53,14,0,0
36168 DEFB 15,0,0,58,245,172,54,14
36176 DEFB 0,0,6,0,0,44,53,14
36184 DEFB 0,0,5,0,0,59,34,89
36192 DEFB 79,85,32,71,79,32,84,79
36200 DEFB 32,84,72,69,32,83,72,69
36208 DEFB 82,73,70,70,83,34,58,245
36216 DEFB 58,245,173,53,14,0,0,5
36224 DEFB 0,0,59,34,79,70,70,73
36232 DEFB 67,69,32,84,79,32,76,79
36240 DEFB 79,75,32,65,84,32,84,72
36248 DEFB 69,34,58,245,58,245,173,53
36256 DEFB 14,0,0,5,0,0,59,34
36264 DEFB 76,65,84,69,83,84,32,87
36272 DEFB 65,78,84,69,68,32,80,79
36280 DEFB 83,84,69,82,83,34,58,245
36288 DEFB 58,245,173,53,14,0,0,5
36296 DEFB 0,0,59,34,79,78,32,77
36304 DEFB 69,77,66,69,82,83,32,79
36312 DEFB 70,32,84,72,69,32,87,73
36320 DEFB 76,68,34,58,245,58,245,173
36328 DEFB 53,14,0,0,5,0,0,59
36336 DEFB 34,66,85,78,67,72,46,34
36344 DEFB 59,219,85,59,172,49,55,14
36352 DEFB 0,0,17,0,0,44,49,50
36360 DEFB 14,0,0,12,0,0,59,34
36368 DEFB 65,78,89,32,75,69,89,34
36376 DEFB 58,219,79,13
36380 DEFB 11,194,15,0,250,166,201,34 Line 3010: IF INKEY$<>"" THEN GO TO VAL "7000".
36388 DEFB 34,203,236,176,34,55,48,48
36396 DEFB 48,34,13
36399 DEFB 11,204,34,0,215,46,48,49 Line 3020: BEEP .01,INT PI: BEEP .02,15.
36407 DEFB 14,122,35,215,10,61,44,186
36415 DEFB 167,58,215,46,48,50,14,123
36423 DEFB 35,215,10,61,44,49,53,14
36431 DEFB 0,0,15,0,0,13
36437 DEFB 11,209,9,0,236,176,34,51 Line 3025: GO TO VAL "3010".
36445 DEFB 48,49,48,34,13
36450 DEFB 15,165,38,0,241,68,84,61 Line 4005: LET DT=O: LET JM=INT (RND*3)+U: LET UM=U(UM,JM).
36458 DEFB 79,58,241,74,77,61,186,40
36466 DEFB 165,42,51,14,0,0,3,0
36474 DEFB 0,41,43,85,58,241,85,77
36482 DEFB 61,85,40,85,77,44,74,77
36490 DEFB 41,13
36492 DEFB 15,195,199,0,241,82,36,61 Line 4035: LET R$="-------------------------------": LET HS=6: LET HL=O: BORDER 5: PAPER 5: CLS : PRINT "YOU START YOUR JOURNEY....": IF I(U)<=O THEN LET G=G*R: PRINT : PRINT "BUT YOU HAVE NO HORSE SO THE": PRINT "JOURNEY WILL TAKE ";G;" DAYS": GO TO 4080.
36500 DEFB 34,45,45,45,45,45,45,45
36508 DEFB 45,45,45,45,45,45,45,45
36516 DEFB 45,45,45,45,45,45,45,45
36524 DEFB 45,45,45,45,45,45,45,45
36532 DEFB 34,58,241,72,83,61,54,14
36540 DEFB 0,0,6,0,0,58,241,72
36548 DEFB 76,61,79,58,231,53,14,0
36556 DEFB 0,5,0,0,58,218,53,14
36564 DEFB 0,0,5,0,0,58,251,58
36572 DEFB 245,34,89,79,85,32,83,84
36580 DEFB 65,82,84,32,89,79,85,82
36588 DEFB 32,74,79,85,82,78,69,89
36596 DEFB 46,46,46,46,34,58,250,73
36604 DEFB 40,85,41,199,79,203,241,71
36612 DEFB 61,71,42,82,58,245,58,245
36620 DEFB 34,66,85,84,32,89,79,85
36628 DEFB 32,72,65,86,69,32,78,79
36636 DEFB 32,72,79,82,83,69,32,83
36644 DEFB 79,32,84,72,69,34,58,245
36652 DEFB 34,74,79,85,82,78,69,89
36660 DEFB 32,87,73,76,76,32,84,65
36668 DEFB 75,69,32,34,59,71,59,34
36676 DEFB 32,68,65,89,83,34,58,236
36684 DEFB 52,48,56,48,14,0,0,240
36692 DEFB 15,0,13
36695 DEFB 15,200,86,0,250,73,40,82 Line 4040: IF I(R)<=O THEN LET G=G+R: PRINT : PRINT "BUT YOU HAVE NO SADDLE SO THE": PRINT "JOURNEY WILL TAKE ";G;" DAYS....".
36703 DEFB 41,199,79,203,241,71,61,71
36711 DEFB 43,82,58,245,58,245,34,66
36719 DEFB 85,84,32,89,79,85,32,72
36727 DEFB 65,86,69,32,78,79,32,83
36735 DEFB 65,68,68,76,69,32,83,79
36743 DEFB 32,84,72,69,34,58,245,34
36751 DEFB 74,79,85,82,78,69,89,32
36759 DEFB 87,73,76,76,32,84,65,75
36767 DEFB 69,32,34,59,71,59,34,32
36775 DEFB 68,65,89,83,46,46,46,46
36783 DEFB 34,13
36785 DEFB 15,240,61,0,241,74,89,61 Line 4080: LET JY=O: FOR N=U TO G: LET JY=JY+U: PRINT : PRINT "DAY ";JY;" OF JOURNEY": GO SUB 4960.
36793 DEFB 79,58,235,78,61,85,204,71
36801 DEFB 58,241,74,89,61,74,89,43
36809 DEFB 85,58,245,58,245,34,68,65
36817 DEFB 89,32,34,59,74,89,59,34
36825 DEFB 32,79,70,32,74,79,85,82
36833 DEFB 78,69,89,34,58,237,52,57
36841 DEFB 54,48,14,0,0,96,19,0
36849 DEFB 13
36850 DEFB 15,255,42,0,250,73,40,49 Line 4095: IF I(10)>=U THEN LET I(10)=I(10)-U.
36858 DEFB 48,14,0,0,10,0,0,41
36866 DEFB 200,85,203,241,73,40,49,48
36874 DEFB 14,0,0,10,0,0,41,61
36882 DEFB 73,40,49,48,14,0,0,10
36890 DEFB 0,0,41,45,85,13
36896 DEFB 16,14,136,0,241,78,78,61 Line 4110: LET NN=INT (RND*R)+U: LET TS=O: LET DI=PI: LET OR=PI: LET MI=PI: FOR W=U TO NN: POKE 23692,255: LET FO=O: LET KK=INT (RND*12): IF KK=11 AND I(U)=U THEN GO SUB 4970: GO TO 4126.
36904 DEFB 186,40,165,42,82,41,43,85
36912 DEFB 58,241,84,83,61,79,58,241
36920 DEFB 68,73,61,167,58,241,79,82
36928 DEFB 61,167,58,241,77,73,61,167
36936 DEFB 58,235,87,61,85,204,78,78
36944 DEFB 58,244,50,51,54,57,50,14
36952 DEFB 0,0,140,92,0,44,50,53
36960 DEFB 53,14,0,0,255,0,0,58
36968 DEFB 241,70,79,61,79,58,241,75
36976 DEFB 75,61,186,40,165,42,49,50
36984 DEFB 14,0,0,12,0,0,41,58
36992 DEFB 250,75,75,61,49,49,14,0
37000 DEFB 0,11,0,0,198,73,40,85
37008 DEFB 41,61,85,203,237,52,57,55
37016 DEFB 48,14,0,0,106,19,0,58
37024 DEFB 236,52,49,50,54,14,0,0
37032 DEFB 30,16,0,13
37036 DEFB 16,19,34,0,250,68,69,61 Line 4115: IF DE=U AND N=R OR DE=U AND N<>U AND N<=G-U THEN GO TO VAL "4130".
37044 DEFB 85,198,78,61,82,197,68,69
37052 DEFB 61,85,198,78,201,85,198,78
37060 DEFB 199,71,45,85,203,236,176,34
37068 DEFB 52,49,51,48,34,13
37074 DEFB 16,20,34,0,250,77,84,61 Line 4116: IF MT=U AND N=R OR MT=U AND N<>U AND N<=G-U THEN GO TO VAL "4140".
37082 DEFB 85,198,78,61,82,197,77,84
37090 DEFB 61,85,198,78,201,85,198,78
37098 DEFB 199,71,45,85,203,236,176,34
37106 DEFB 52,49,52,48,34,13
37112 DEFB 16,21,52,0,245,58,245,34 Line 4117: PRINT : PRINT "YOU ARE ON THE OPEN RANGE": IF OR=PI THEN GO SUB VAL "4200": LET OR=O.
37120 DEFB 89,79,85,32,65,82,69,32
37128 DEFB 79,78,32,84,72,69,32,79
37136 DEFB 80,69,78,32,82,65,78,71
37144 DEFB 69,34,58,250,79,82,61,167
37152 DEFB 203,237,176,34,52,50,48,48
37160 DEFB 34,58,241,79,82,61,79,13
37168 DEFB 16,22,30,0,237,176,34,52 Line 4118: GO SUB VAL "4701": IF KK=INT PI THEN LET F$="BUFFALO".
37176 DEFB 55,48,49,34,58,250,75,75
37184 DEFB 61,186,167,203,241,70,36,61
37192 DEFB 34,66,85,70,70,65,76,79
37200 DEFB 34,13
37202 DEFB 16,23,41,0,250,75,75,61 Line 4119: IF KK=5 OR KK=6 THEN GO SUB VAL "4870": GO TO VAL "4126".
37210 DEFB 53,14,0,0,5,0,0,197
37218 DEFB 75,75,61,54,14,0,0,6
37226 DEFB 0,0,203,237,176,34,52,56
37234 DEFB 55,48,34,58,236,176,34,52
37242 DEFB 49,50,54,34,13
37247 DEFB 16,24,21,0,250,75,75,61 Line 4120: IF KK=U THEN LET F$="LONGHORN".
37255 DEFB 85,203,241,70,36,61,34,76
37263 DEFB 79,78,71,72,79,82,78,34
37271 DEFB 13
37272 DEFB 16,25,9,0,237,176,34,52 Line 4121: GO SUB VAL "4700".
37280 DEFB 55,48,48,34,13
37285 DEFB 16,26,76,0,245,58,245,34 Line 4122: PRINT : PRINT "A ";M$;",";U$;" ";F$: PRINT E$;" (STRENGTH ";BS;")": PRINT : PRINT "YOUR STRENGTH IS ";CS.
37293 DEFB 65,32,34,59,77,36,59,34
37301 DEFB 44,34,59,85,36,59,34,32
37309 DEFB 34,59,70,36,58,245,69,36
37317 DEFB 59,34,32,40,83,84,82,69
37325 DEFB 78,71,84,72,32,34,59,66
37333 DEFB 83,59,34,41,34,58,245,58
37341 DEFB 245,34,89,79,85,82,32,83
37349 DEFB 84,82,69,78,71,84,72,32
37357 DEFB 73,83,32,34,59,67,83,13
37365 DEFB 16,27,26,0,237,176,34,52 Line 4123: GO SUB VAL "4950": IF H$="F" THEN GO SUB VAL "4730".
37373 DEFB 57,53,48,34,58,250,72,36
37381 DEFB 61,34,70,34,203,237,176,34
37389 DEFB 52,55,51,48,34,13
37395 DEFB 16,28,17,0,250,72,36,61 Line 4124: IF H$="R" THEN GO SUB VAL "4780".
37403 DEFB 34,82,34,203,237,176,34,52
37411 DEFB 55,56,48,34,13
37416 DEFB 16,29,32,0,250,72,36,61 Line 4125: IF H$="B" THEN GO SUB VAL "4795": IF TS=PI THEN GO TO VAL "4123".
37424 DEFB 34,66,34,203,237,176,34,52
37432 DEFB 55,57,53,34,58,250,84,83
37440 DEFB 61,167,203,236,176,34,52,49
37448 DEFB 50,51,34,13
37452 DEFB 16,30,49,0,241,84,83,61 Line 4126: LET TS=O: BEEP .7,PI: PRINT : PRINT R$: NEXT W: PAUSE 100: NEXT N: GO TO VAL "480".
37460 DEFB 79,58,215,46,55,14,128,51
37468 DEFB 51,51,51,44,167,58,245,58
37476 DEFB 245,82,36,58,243,87,58,242
37484 DEFB 49,48,48,14,0,0,100,0
37492 DEFB 0,58,243,78,58,236,176,34
37500 DEFB 52,56,48,34,13
37505 DEFB 16,34,77,0,245,58,245,34 Line 4130: PRINT : PRINT "YOU'RE IN THE DESERT": IF DI=PI THEN GO SUB VAL "4200": GO SUB VAL "4850": GO SUB VAL "4845": GO SUB VAL "4855": GO SUB VAL "4990".
37513 DEFB 89,79,85,39,82,69,32,73
37521 DEFB 78,32,84,72,69,32,68,69
37529 DEFB 83,69,82,84,34,58,250,68
37537 DEFB 73,61,167,203,237,176,34,52
37545 DEFB 50,48,48,34,58,237,176,34
37553 DEFB 52,56,53,48,34,58,237,176
37561 DEFB 34,52,56,52,53,34,58,237
37569 DEFB 176,34,52,56,53,53,34,58
37577 DEFB 237,176,34,52,57,57,48,34
37585 DEFB 13
37586 DEFB 16,35,9,0,237,176,34,52 Line 4131: GO SUB VAL "4701".
37594 DEFB 55,48,49,34,13
37599 DEFB 16,37,22,0,250,75,75,61 Line 4133: IF KK=INT PI THEN LET F$="SCORPION".
37607 DEFB 186,167,203,241,70,36,61,34
37615 DEFB 83,67,79,82,80,73,79,78
37623 DEFB 34,13
37625 DEFB 16,38,25,0,250,75,75,61 Line 4134: IF KK=U THEN LET F$="RATTLE SNAKE".
37633 DEFB 85,203,241,70,36,61,34,82
37641 DEFB 65,84,84,76,69,32,83,78
37649 DEFB 65,75,69,34,13
37654 DEFB 16,39,76,0,250,75,75,61 Line 4135: IF KK=O THEN LET N=N-2: PRINT : PRINT "A SANDSTORM ADDS 2 DAYS": PRINT "TO YOUR JOURNEY": GO TO VAL "4126".
37662 DEFB 79,203,241,78,61,78,45,50
37670 DEFB 14,0,0,2,0,0,58,245
37678 DEFB 58,245,34,65,32,83,65,78
37686 DEFB 68,83,84,79,82,77,32,65
37694 DEFB 68,68,83,32,50,32,68,65
37702 DEFB 89,83,34,58,245,34,84,79
37710 DEFB 32,89,79,85,82,32,74,79
37718 DEFB 85,82,78,69,89,34,58,236
37726 DEFB 176,34,52,49,50,54,34,13
37734 DEFB 16,40,41,0,250,75,75,61 Line 4136: IF KK=5 OR KK=6 THEN GO SUB VAL "4870": GO TO VAL "4126".
37742 DEFB 53,14,0,0,5,0,0,197
37750 DEFB 75,75,61,54,14,0,0,6
37758 DEFB 0,0,203,237,176,34,52,56
37766 DEFB 55,48,34,58,236,176,34,52
37774 DEFB 49,50,54,34,13
37779 DEFB 16,41,9,0,236,176,34,52 Line 4137: GO TO VAL "4121".
37787 DEFB 49,50,49,34,13
37792 DEFB 16,44,127,0,245,58,245,34 Line 4140: PRINT : PRINT "YOU'RE IN THE MOUNTAINS": IF MI=PI THEN GO SUB VAL "4200": GO SUB VAL "4850": GO SUB VAL "4845": GO SUB VAL "4855": GO SUB VAL "4975": IF I(13)<=O OR I(15)<=O THEN GO SUB VAL "4860": GO SUB VAL "4990".
37800 DEFB 89,79,85,39,82,69,32,73
37808 DEFB 78,32,84,72,69,32,77,79
37816 DEFB 85,78,84,65,73,78,83,34
37824 DEFB 58,250,77,73,61,167,203,237
37832 DEFB 176,34,52,50,48,48,34,58
37840 DEFB 237,176,34,52,56,53,48,34
37848 DEFB 58,237,176,34,52,56,52,53
37856 DEFB 34,58,237,176,34,52,56,53
37864 DEFB 53,34,58,237,176,34,52,57
37872 DEFB 55,53,34,58,250,73,40,49
37880 DEFB 51,14,0,0,13,0,0,41
37888 DEFB 199,79,197,73,40,49,53,14
37896 DEFB 0,0,15,0,0,41,199,79
37904 DEFB 203,237,176,34,52,56,54,48
37912 DEFB 34,58,237,176,34,52,57,57
37920 DEFB 48,34,13
37923 DEFB 16,46,69,0,250,75,75,61 Line 4142: IF KK=O THEN PRINT : PRINT "A ROCKFALL ADDS 2 DAYS": PRINT "TO YOUR JOURNEY": LET N=N-R: GO TO VAL "4126".
37931 DEFB 79,203,245,58,245,34,65,32
37939 DEFB 82,79,67,75,70,65,76,76
37947 DEFB 32,65,68,68,83,32,50,32
37955 DEFB 68,65,89,83,34,58,245,34
37963 DEFB 84,79,32,89,79,85,82,32
37971 DEFB 74,79,85,82,78,69,89,34
37979 DEFB 58,241,78,61,78,45,82,58
37987 DEFB 236,176,34,52,49,50,54,34
37995 DEFB 13
37996 DEFB 16,47,41,0,250,75,75,61 Line 4143: IF KK=5 OR KK=6 THEN GO SUB VAL "4870": GO TO VAL "4126".
38004 DEFB 53,14,0,0,5,0,0,197
38012 DEFB 75,75,61,54,14,0,0,6
38020 DEFB 0,0,203,237,176,34,52,56
38028 DEFB 55,48,34,58,236,176,34,52
38036 DEFB 49,50,54,34,13
38041 DEFB 16,49,9,0,237,176,34,52 Line 4145: GO SUB VAL "4701".
38049 DEFB 55,48,49,34,13
38054 DEFB 16,51,27,0,250,75,75,61 Line 4147: IF KK=INT PI THEN LET F$="MOUNTAIN LION".
38062 DEFB 186,167,203,241,70,36,61,34
38070 DEFB 77,79,85,78,84,65,73,78
38078 DEFB 32,76,73,79,78,34,13
38085 DEFB 16,52,25,0,250,75,75,61 Line 4148: IF KK=U THEN LET F$="GRIZZLY BEAR".
38093 DEFB 85,203,241,70,36,61,34,71
38101 DEFB 82,73,90,90,76,89,32,66
38109 DEFB 69,65,82,34,13
38114 DEFB 16,53,9,0,236,176,34,52 Line 4149: GO TO VAL "4121".
38122 DEFB 49,50,49,34,13
38127 DEFB 16,104,69,0,250,73,40,49 Line 4200: IF I(10)<=O THEN LET CS=CS-20: PRINT : PRINT "YOU'RE VERY HUNGRY": GO SUB 4990: RETURN.
38135 DEFB 48,14,0,0,10,0,0,41
38143 DEFB 199,79,203,241,67,83,61,67
38151 DEFB 83,45,50,48,14,0,0,20
38159 DEFB 0,0,58,245,58,245,34,89
38167 DEFB 79,85,39,82,69,32,86,69
38175 DEFB 82,89,32,72,85,78,71,82
38183 DEFB 89,34,58,237,52,57,57,48
38191 DEFB 14,0,0,126,19,0,58,254
38199 DEFB 13
38200 DEFB 18,92,161,0,229,57,50,48 Line 4700: RESTORE 9200: LET PK=INT (RND*5): FOR K=O TO PK: READ M$: NEXT K: RESTORE 9205: LET PK=INT (RND*5): FOR K=O TO PK: READ U$: NEXT K: RESTORE 9210: LET PK=INT (RND*6): FOR K=O TO PK: READ E$: NEXT K: LET BS=INT (RND*90)+11: RETURN.
38208 DEFB 48,14,0,0,240,35,0,58
38216 DEFB 241,80,75,61,186,40,165,42
38224 DEFB 53,14,0,0,5,0,0,41
38232 DEFB 58,235,75,61,79,204,80,75
38240 DEFB 58,227,77,36,58,243,75,58
38248 DEFB 229,57,50,48,53,14,0,0
38256 DEFB 245,35,0,58,241,80,75,61
38264 DEFB 186,40,165,42,53,14,0,0
38272 DEFB 5,0,0,41,58,235,75,61
38280 DEFB 79,204,80,75,58,227,85,36
38288 DEFB 58,243,75,58,229,57,50,49
38296 DEFB 48,14,0,0,250,35,0,58
38304 DEFB 241,80,75,61,186,40,165,42
38312 DEFB 54,14,0,0,6,0,0,41
38320 DEFB 58,235,75,61,79,204,80,75
38328 DEFB 58,227,69,36,58,243,75,58
38336 DEFB 241,66,83,61,186,40,165,42
38344 DEFB 57,48,14,0,0,90,0,0
38352 DEFB 41,43,49,49,14,0,0,11
38360 DEFB 0,0,58,254,13
38365 DEFB 18,93,43,0,229,176,34,57 Line 4701: RESTORE VAL "9215": LET PK=INT (RND*7): FOR K=O TO PK: READ F$: NEXT K: RETURN.
38373 DEFB 50,49,53,34,58,241,80,75
38381 DEFB 61,186,40,165,42,55,14,0
38389 DEFB 0,7,0,0,41,58,235,75
38397 DEFB 61,79,204,80,75,58,227,70
38405 DEFB 36,58,243,75,58,254,13
38412 DEFB 18,102,67,0,241,74,61,79 Line 4710: LET J=O: LET JI=O: LET IJ=O: IF I(INT PI)=U AND I(5)>=U THEN LET J=INT (RND*20)+U: GO TO VAL "4712".
38420 DEFB 58,241,74,73,61,79,58,241
38428 DEFB 73,74,61,79,58,250,73,40
38436 DEFB 186,167,41,61,85,198,73,40
38444 DEFB 53,14,0,0,5,0,0,41
38452 DEFB 200,85,203,241,74,61,186,40
38460 DEFB 165,42,50,48,14,0,0,20
38468 DEFB 0,0,41,43,85,58,236,176
38476 DEFB 34,52,55,49,50,34,13
38483 DEFB 18,103,9,0,236,176,34,52 Line 4711: GO TO VAL "4714".
38491 DEFB 55,49,52,34,13
38496 DEFB 18,104,28,0,250,74,62,73 Line 4712: IF J>I(5) THEN LET J=I(5).
38504 DEFB 40,53,14,0,0,5,0,0
38512 DEFB 41,203,241,74,61,73,40,53
38520 DEFB 14,0,0,5,0,0,41,13
38528 DEFB 18,105,25,0,241,73,40,53 Line 4713: LET I(5)=I(5)-J.
38536 DEFB 14,0,0,5,0,0,41,61
38544 DEFB 73,40,53,14,0,0,5,0
38552 DEFB 0,41,45,74,13
38557 DEFB 18,106,56,0,250,73,40,52 Line 4714: IF I(4)=U AND I(6)>=U THEN LET JI=INT (RND*20)+U: GO TO VAL "4716".
38565 DEFB 14,0,0,4,0,0,41,61
38573 DEFB 85,198,73,40,54,14,0,0
38581 DEFB 6,0,0,41,200,85,203,241
38589 DEFB 74,73,61,186,40,165,42,50
38597 DEFB 48,14,0,0,20,0,0,41
38605 DEFB 43,85,58,236,176,34,52,55
38613 DEFB 49,54,34,13
38617 DEFB 18,107,9,0,236,176,34,52 Line 4715: GO TO VAL "4718".
38625 DEFB 55,49,56,34,13
38630 DEFB 18,108,30,0,250,74,73,62 Line 4716: IF JI>I(6) THEN LET JI=I(6).
38638 DEFB 73,40,54,14,0,0,6,0
38646 DEFB 0,41,203,241,74,73,61,73
38654 DEFB 40,54,14,0,0,6,0,0
38662 DEFB 41,13
38664 DEFB 18,109,26,0,241,73,40,54 Line 4717: LET I(6)=I(6)-JI.
38672 DEFB 14,0,0,6,0,0,41,61
38680 DEFB 73,40,54,14,0,0,6,0
38688 DEFB 0,41,45,74,73,13
38694 DEFB 18,110,56,0,250,73,40,55 Line 4718: IF I(7)=U AND I(8)>=U THEN LET IJ=INT (RND*20)+U: GO TO VAL "4720".
38702 DEFB 14,0,0,7,0,0,41,61
38710 DEFB 85,198,73,40,56,14,0,0
38718 DEFB 8,0,0,41,200,85,203,241
38726 DEFB 73,74,61,186,40,165,42,50
38734 DEFB 48,14,0,0,20,0,0,41
38742 DEFB 43,85,58,236,176,34,52,55
38750 DEFB 50,48,34,13
38754 DEFB 18,111,9,0,236,176,34,52 Line 4719: GO TO VAL "4722".
38762 DEFB 55,50,50,34,13
38767 DEFB 18,112,30,0,250,73,74,62 Line 4720: IF IJ>I(8) THEN LET IJ=I(8).
38775 DEFB 73,40,56,14,0,0,8,0
38783 DEFB 0,41,203,241,73,74,61,73
38791 DEFB 40,56,14,0,0,8,0,0
38799 DEFB 41,13
38801 DEFB 18,113,26,0,241,73,40,56 Line 4721: LET I(8)=I(8)-IJ.
38809 DEFB 14,0,0,8,0,0,41,61
38817 DEFB 73,40,56,14,0,0,8,0
38825 DEFB 0,41,45,73,74,13
38831 DEFB 18,114,52,0,241,66,85,61 Line 4722: LET BU=IJ+JI+J: PRINT : PRINT "YOU USED ";BU;" BULLETS": GO SUB VAL "4960": RETURN.
38839 DEFB 73,74,43,74,73,43,74,58
38847 DEFB 245,58,245,34,89,79,85,32
38855 DEFB 85,83,69,68,32,34,59,66
38863 DEFB 85,59,34,32,66,85,76,76
38871 DEFB 69,84,83,34,58,237,176,34
38879 DEFB 52,57,54,48,34,58,254,13
38887 DEFB 18,122,60,0,241,71,83,61 Line 4730: LET GS=O: IF I(3)=U THEN LET GS=GS+(INT (I(5)/20)*2).
38895 DEFB 79,58,250,73,40,51,14,0
38903 DEFB 0,3,0,0,41,61,85,203
38911 DEFB 241,71,83,61,71,83,43,40
38919 DEFB 186,40,73,40,53,14,0,0
38927 DEFB 5,0,0,41,47,50,48,14
38935 DEFB 0,0,20,0,0,41,42,50
38943 DEFB 14,0,0,2,0,0,41,13
38951 DEFB 18,124,54,0,250,73,40,52 Line 4732: IF I(4)=U THEN LET GS=GS+(INT (I(6)/30)*5).
38959 DEFB 14,0,0,4,0,0,41,61
38967 DEFB 85,203,241,71,83,61,71,83
38975 DEFB 43,40,186,40,73,40,54,14
38983 DEFB 0,0,6,0,0,41,47,51
38991 DEFB 48,14,0,0,30,0,0,41
38999 DEFB 42,53,14,0,0,5,0,0
39007 DEFB 41,13
39009 DEFB 18,126,54,0,250,73,40,55 Line 4734: IF I(7)=U THEN LET GS=GS+(INT (I(8)/30)*8).
39017 DEFB 14,0,0,7,0,0,41,61
39025 DEFB 85,203,241,71,83,61,71,83
39033 DEFB 43,40,186,40,73,40,56,14
39041 DEFB 0,0,8,0,0,41,47,51
39049 DEFB 48,14,0,0,30,0,0,41
39057 DEFB 42,56,14,0,0,8,0,0
39065 DEFB 41,13
39067 DEFB 18,128,23,0,250,73,40,57 Line 4736: IF I(9)=U THEN LET GS=GS+R.
39075 DEFB 14,0,0,9,0,0,41,61
39083 DEFB 85,203,241,71,83,61,71,83
39091 DEFB 43,82,13
39094 DEFB 18,130,140,0,245,58,245,34 Line 4738: PRINT : PRINT "YOU HAVE ";CS;" STRENGTH": PRINT "HOW MUCH WILL YOU USE ?": GO SUB VAL "4960": INPUT "ENTER AMOUNT "; LINE E$: LET E$=E$+" ": IF CODE E$(U)>47 AND CODE E$(U)<58 THEN GO TO VAL "4740".
39102 DEFB 89,79,85,32,72,65,86,69
39110 DEFB 32,34,59,67,83,59,34,32
39118 DEFB 83,84,82,69,78,71,84,72
39126 DEFB 34,58,245,34,72,79,87,32
39134 DEFB 77,85,67,72,32,87,73,76
39142 DEFB 76,32,89,79,85,32,85,83
39150 DEFB 69,32,63,34,58,237,176,34
39158 DEFB 52,57,54,48,34,58,238,34
39166 DEFB 69,78,84,69,82,32,65,77
39174 DEFB 79,85,78,84,32,34,59,202
39182 DEFB 69,36,58,241,69,36,61,69
39190 DEFB 36,43,34,32,34,58,250,175
39198 DEFB 69,36,40,85,41,62,52,55
39206 DEFB 14,0,0,47,0,0,198,175
39214 DEFB 69,36,40,85,41,60,53,56
39222 DEFB 14,0,0,58,0,0,203,236
39230 DEFB 176,34,52,55,52,48,34,13
39238 DEFB 18,131,9,0,236,176,34,52 Line 4739: GO TO VAL "4738".
39246 DEFB 55,51,56,34,13
39251 DEFB 18,132,52,0,241,75,61,176 Line 4740: LET K=VAL E$: IF K>CS THEN PRINT : PRINT "YOU DON'T HAVE THAT MUCH": GO TO VAL "4738".
39259 DEFB 69,36,58,250,75,62,67,83
39267 DEFB 203,245,58,245,34,89,79,85
39275 DEFB 32,68,79,78,39,84,32,72
39283 DEFB 65,86,69,32,84,72,65,84
39291 DEFB 32,77,85,67,72,34,58,236
39299 DEFB 176,34,52,55,51,56,34,13
39307 DEFB 18,134,18,0,250,75,60,49 Line 4742: IF K<10 THEN LET GS=O.
39315 DEFB 48,14,0,0,10,0,0,203
39323 DEFB 241,71,83,61,79,13
39329 DEFB 18,136,94,0,241,67,83,61 Line 4744: LET CS=CS-K: LET K=K+GS: IF K>=BS*1.5 THEN PRINT : PRINT "YOU ANNIHILATED THAT ONE!": LET SC=SC+BS: GO SUB VAL "4710": GO SUB VAL "4990": RETURN.
39337 DEFB 67,83,45,75,58,241,75,61
39345 DEFB 75,43,71,83,58,250,75,200
39353 DEFB 66,83,42,49,46,53,14,129
39361 DEFB 64,0,0,0,203,245,58,245
39369 DEFB 34,89,79,85,32,65,78,78
39377 DEFB 73,72,73,76,65,84,69,68
39385 DEFB 32,84,72,65,84,32,79,78
39393 DEFB 69,33,34,58,241,83,67,61
39401 DEFB 83,67,43,66,83,58,237,176
39409 DEFB 34,52,55,49,48,34,58,237
39417 DEFB 176,34,52,57,57,48,34,58
39425 DEFB 254,13
39427 DEFB 18,138,15,0,250,75,60,66 Line 4746: IF K<BS THEN GO TO VAL "4750".
39435 DEFB 83,203,236,176,34,52,55,53
39443 DEFB 48,34,13
39446 DEFB 18,140,72,0,250,165,42,57 Line 4748: IF RND*9>PI THEN PRINT : PRINT "YOU MADE A MESS OF HIM!": LET SC=SC+BS: GO SUB VAL "4710": GO SUB VAL "4990": RETURN.
39454 DEFB 14,0,0,9,0,0,62,167
39462 DEFB 203,245,58,245,34,89,79,85
39470 DEFB 32,77,65,68,69,32,65,32
39478 DEFB 77,69,83,83,32,79,70,32
39486 DEFB 72,73,77,33,34,58,241,83
39494 DEFB 67,61,83,67,43,66,83,58
39502 DEFB 237,176,34,52,55,49,48,34
39510 DEFB 58,237,176,34,52,57,57,48
39518 DEFB 34,58,254,13
39522 DEFB 18,142,48,0,250,70,79,62 Line 4750: IF FO>O THEN PRINT : PRINT "YOU GOT HAMMERED THAT TIME!": GO TO VAL "4760".
39530 DEFB 79,203,245,58,245,34,89,79
39538 DEFB 85,32,71,79,84,32,72,65
39546 DEFB 77,77,69,82,69,68,32,84
39554 DEFB 72,65,84,32,84,73,77,69
39562 DEFB 33,34,58,236,176,34,52,55
39570 DEFB 54,48,34,13
39574 DEFB 18,144,64,0,245,58,245,34 Line 4752: PRINT : PRINT "NOW THE ";F$;" IS ANNOYED": LET FO=PI: GO SUB VAL "4710": GO SUB VAL "4990": GO TO VAL "4123".
39582 DEFB 78,79,87,32,84,72,69,32
39590 DEFB 34,59,70,36,59,34,32,73
39598 DEFB 83,32,65,78,78,79,89,69
39606 DEFB 68,34,58,241,70,79,61,167
39614 DEFB 58,237,176,34,52,55,49,48
39622 DEFB 34,58,237,176,34,52,57,57
39630 DEFB 48,34,58,236,176,34,52,49
39638 DEFB 50,51,34,13
39642 DEFB 18,152,119,0,250,70,36,61 Line 4760: IF F$="BUFFALO" OR F$="RATTLE SNAKE" OR F$="SCORPION" OR F$="VULTURE" OR F$="LONGHORN" OR F$="GRIZZLY BEAR" OR F$="MOUNTAIN LION" THEN GO TO VAL "4790".
39650 DEFB 34,66,85,70,70,65,76,79
39658 DEFB 34,197,70,36,61,34,82,65
39666 DEFB 84,84,76,69,32,83,78,65
39674 DEFB 75,69,34,197,70,36,61,34
39682 DEFB 83,67,79,82,80,73,79,78
39690 DEFB 34,197,70,36,61,34,86,85
39698 DEFB 76,84,85,82,69,34,197,70
39706 DEFB 36,61,34,76,79,78,71,72
39714 DEFB 79,82,78,34,197,70,36,61
39722 DEFB 34,71,82,73,90,90,76,89
39730 DEFB 32,66,69,65,82,34,197,70
39738 DEFB 36,61,34,77,79,85,78,84
39746 DEFB 65,73,78,32,76,73,79,78
39754 DEFB 34,203,236,176,34,52,55,57
39762 DEFB 48,34,13
39765 DEFB 18,153,61,0,241,67,85,61 Line 4761: LET CU=O: FOR T=U TO 16: LET CU=CU+I(T): NEXT T: IF CU<=O AND MU<=4 THEN GO TO VAL "4770".
39773 DEFB 79,58,235,84,61,85,204,49
39781 DEFB 54,14,0,0,16,0,0,58
39789 DEFB 241,67,85,61,67,85,43,73
39797 DEFB 40,84,41,58,243,84,58,250
39805 DEFB 67,85,199,79,198,77,85,199
39813 DEFB 52,14,0,0,4,0,0,203
39821 DEFB 236,176,34,52,55,55,48,34
39829 DEFB 13
39830 DEFB 18,154,97,0,250,77,85,200 Line 4762: IF MU>=4 AND RND*5>4 THEN PRINT : PRINT "THE ";F$;" TAKES $";INT (MU/2): LET MU=INT (MU/2): GO SUB VAL "4960": RETURN.
39838 DEFB 52,14,0,0,4,0,0,198
39846 DEFB 165,42,53,14,0,0,5,0
39854 DEFB 0,62,52,14,0,0,4,0
39862 DEFB 0,203,245,58,245,34,84,72
39870 DEFB 69,32,34,59,70,36,59,34
39878 DEFB 32,84,65,75,69,83,32,36
39886 DEFB 34,59,186,40,77,85,47,50
39894 DEFB 14,0,0,2,0,0,41,58
39902 DEFB 241,77,85,61,186,40,77,85
39910 DEFB 47,50,14,0,0,2,0,0
39918 DEFB 41,58,237,176,34,52,57,54
39926 DEFB 48,34,58,254,13
39931 DEFB 18,156,15,0,250,67,85,199 Line 4764: IF CU<=O THEN GO TO VAL "4762".
39939 DEFB 79,203,236,176,34,52,55,54
39947 DEFB 50,34,13
39950 DEFB 18,157,38,0,241,67,85,61 Line 4765: LET CU=INT (RND*16)+U: IF I(CU)<=O THEN GO TO VAL "4765".
39958 DEFB 186,40,165,42,49,54,14,0
39966 DEFB 0,16,0,0,41,43,85,58
39974 DEFB 250,73,40,67,85,41,199,79
39982 DEFB 203,236,176,34,52,55,54,53
39990 DEFB 34,13
39992 DEFB 18,159,55,0,241,73,40,67 Line 4767: LET I(CU)=O: PRINT : PRINT "THE ";F$;" TAKES YOUR": PRINT K$(CU): GO SUB VAL "4960": RETURN.
40000 DEFB 85,41,61,79,58,245,58,245
40008 DEFB 34,84,72,69,32,34,59,70
40016 DEFB 36,59,34,32,84,65,75,69
40024 DEFB 83,32,89,79,85,82,34,58
40032 DEFB 245,75,36,40,67,85,41,58
40040 DEFB 237,176,34,52,57,54,48,34
40048 DEFB 58,254,13
40051 DEFB 18,162,34,0,245,58,245,34 Line 4770: PRINT : PRINT "THE ";F$;" LEAVES": GO SUB VAL "4960": RETURN.
40059 DEFB 84,72,69,32,34,59,70,36
40067 DEFB 59,34,32,76,69,65,86,69
40075 DEFB 83,34,58,237,176,34,52,57
40083 DEFB 54,48,34,58,254,13
40089 DEFB 18,172,90,0,241,83,67,61 Line 4780: LET SC=SC-10: LET CS=CS-10: GO SUB VAL "4990": IF I(U)>=U AND RND*8>5 THEN PRINT : PRINT "O.K YOU MADE IT": RETURN.
40097 DEFB 83,67,45,49,48,14,0,0
40105 DEFB 10,0,0,58,241,67,83,61
40113 DEFB 67,83,45,49,48,14,0,0
40121 DEFB 10,0,0,58,237,176,34,52
40129 DEFB 57,57,48,34,58,250,73,40
40137 DEFB 85,41,200,85,198,165,42,56
40145 DEFB 14,0,0,8,0,0,62,53
40153 DEFB 14,0,0,5,0,0,203,245
40161 DEFB 58,245,34,79,46,75,32,89
40169 DEFB 79,85,32,77,65,68,69,32
40177 DEFB 73,84,34,58,254,13
40183 DEFB 18,173,59,0,245,58,245,34 Line 4781: PRINT : PRINT "UNFORTUNATELY HE'S A QUICK": PRINT M$;",";U$;" ";F$: GO TO VAL "4123".
40191 DEFB 85,78,70,79,82,84,85,78
40199 DEFB 65,84,69,76,89,32,72,69
40207 DEFB 39,83,32,65,32,81,85,73
40215 DEFB 67,75,34,58,245,77,36,59
40223 DEFB 34,44,34,59,85,36,59,34
40231 DEFB 32,34,59,70,36,58,236,176
40239 DEFB 34,52,49,50,51,34,13
40246 DEFB 18,182,76,0,250,73,40,49 Line 4790: IF I(10)>O THEN LET I(10)=O: PRINT : PRINT "THE ";F$;"TAKES ": PRINT "YOUR FOOD": GO SUB VAL "4960": RETURN.
40254 DEFB 48,14,0,0,10,0,0,41
40262 DEFB 62,79,203,241,73,40,49,48
40270 DEFB 14,0,0,10,0,0,41,61
40278 DEFB 79,58,245,58,245,34,84,72
40286 DEFB 69,32,34,59,70,36,59,34
40294 DEFB 84,65,75,69,83,32,34,58
40302 DEFB 245,34,89,79,85,82,32,70
40310 DEFB 79,79,68,34,58,237,176,34
40318 DEFB 52,57,54,48,34,58,254,13
40326 DEFB 18,183,81,0,250,73,40,49 Line 4791: IF I(11)>O THEN LET I(11)=O: PRINT "THE ";F$;" TAKES": PRINT "YOUR HORSES FOOD": GO SUB VAL "4960": RETURN.
40334 DEFB 49,14,0,0,11,0,0,41
40342 DEFB 62,79,203,241,73,40,49,49
40350 DEFB 14,0,0,11,0,0,41,61
40358 DEFB 79,58,245,34,84,72,69,32
40366 DEFB 34,59,70,36,59,34,32,84
40374 DEFB 65,75,69,83,34,58,245,34
40382 DEFB 89,79,85,82,32,72,79,82
40390 DEFB 83,69,83,32,70,79,79,68
40398 DEFB 34,58,237,176,34,52,57,54
40406 DEFB 48,34,58,254,13
40411 DEFB 18,184,82,0,250,73,40,49 Line 4792: IF I(12)>O AND DE=U THEN LET I(12)=O: PRINT : PRINT "THE ";F$;" TAKES": PRINT "YOUR WATER": GO SUB VAL "4960": RETURN.
40419 DEFB 50,14,0,0,12,0,0,41
40427 DEFB 62,79,198,68,69,61,85,203
40435 DEFB 241,73,40,49,50,14,0,0
40443 DEFB 12,0,0,41,61,79,58,245
40451 DEFB 58,245,34,84,72,69,32,34
40459 DEFB 59,70,36,59,34,32,84,65
40467 DEFB 75,69,83,34,58,245,34,89
40475 DEFB 79,85,82,32,87,65,84,69
40483 DEFB 82,34,58,237,176,34,52,57
40491 DEFB 54,48,34,58,254,13
40497 DEFB 18,185,49,0,237,176,34,52 Line 4793: GO SUB VAL "4990": PRINT : PRINT "THE ";F$;" ATTACKS AGAIN": GO TO VAL "4123".
40505 DEFB 57,57,48,34,58,245,58,32
40513 DEFB 245,34,84,72,69,32,34,59
40521 DEFB 70,36,59,34,32,65,84,84
40529 DEFB 65,67,75,83,32,65,71,65
40537 DEFB 73,78,34,58,236,176,34,52
40545 DEFB 49,50,51,34,13
40550 DEFB 18,187,15,0,250,84,83,61 Line 4795: IF TS=PI THEN GO TO VAL "4805".
40558 DEFB 167,203,236,176,34,52,56,48
40566 DEFB 53,34,13
40569 DEFB 18,188,57,0,241,66,66,61 Line 4796: LET BB=INT (RND*50)+U: LET BF=O: FOR T=16 TO U STEP -U: LET BF=I(T)*K(T).
40577 DEFB 186,40,165,42,53,48,14,0
40585 DEFB 0,50,0,0,41,43,85,58
40593 DEFB 241,66,70,61,79,58,235,84
40601 DEFB 61,49,54,14,0,0,16,0
40609 DEFB 0,204,85,205,45,85,58,241
40617 DEFB 66,70,61,73,40,84,41,42
40625 DEFB 75,40,84,41,13
40630 DEFB 18,189,47,0,250,84,61,53 Line 4797: IF T=5 OR T=6 OR T=8 THEN LET BF=BF/50.
40638 DEFB 14,0,0,5,0,0,197,84
40646 DEFB 61,54,14,0,0,6,0,0
40654 DEFB 197,84,61,56,14,0,0,8
40662 DEFB 0,0,203,241,66,70,61,66
40670 DEFB 70,47,53,48,14,0,0,50
40678 DEFB 0,0,13
40681 DEFB 18,190,22,0,250,66,70,200 Line 4798: IF BF>=BB THEN LET BF=T: GO TO VAL "4805".
40689 DEFB 66,66,203,241,66,70,61,84
40697 DEFB 58,236,176,34,52,56,48,53
40705 DEFB 34,13
40707 DEFB 18,191,6,0,241,66,70,61 Line 4799: LET BF=T.
40715 DEFB 84,13
40717 DEFB 18,192,3,0,243,84,13 Line 4800: NEXT T.
40724 DEFB 18,197,37,0,250,77,85,199 Line 4805: IF MU<=O THEN PRINT : PRINT "YOU HAVE NO MONEY": LET TS=PI: RETURN.
40732 DEFB 79,203,245,58,245,34,89,79
40740 DEFB 85,32,72,65,86,69,32,78
40748 DEFB 79,32,77,79,78,69,89,34
40756 DEFB 58,241,84,83,61,167,58,254
40764 DEFB 13
40765 DEFB 18,200,138,0,245,58,245,34 Line 4808: PRINT : PRINT "YOU HAVE $";MU: PRINT "HOW MUCH DO YOU OFFER?": BEEP .5,20: INPUT "ENTER AMOUNT "; LINE E$: LET E$=E$+" ": IF CODE E$(U)>47 AND CODE E$(U)<57 THEN GO TO VAL "4810".
40773 DEFB 89,79,85,32,72,65,86,69
40781 DEFB 32,36,34,59,77,85,58,245
40789 DEFB 34,72,79,87,32,77,85,67
40797 DEFB 72,32,68,79,32,89,79,85
40805 DEFB 32,79,70,70,69,82,63,34
40813 DEFB 58,215,46,53,14,127,127,255
40821 DEFB 255,255,44,50,48,14,0,0
40829 DEFB 20,0,0,58,238,34,69,78
40837 DEFB 84,69,82,32,65,77,79,85
40845 DEFB 78,84,32,34,59,202,69,36
40853 DEFB 58,241,69,36,61,69,36,43
40861 DEFB 34,32,34,58,250,175,69,36
40869 DEFB 40,85,41,62,52,55,14,0
40877 DEFB 0,47,0,0,198,175,69,36
40885 DEFB 40,85,41,60,53,55,14,0
40893 DEFB 0,57,0,0,203,236,176,34
40901 DEFB 52,56,49,48,34,13
40907 DEFB 18,201,9,0,236,176,34,52 Line 4809: GO TO VAL "4808".
40915 DEFB 56,48,56,34,13
40920 DEFB 18,202,24,0,241,89,66,61 Line 4810: LET YB=VAL E$: IF YB>MU THEN GO TO VAL "4808".
40928 DEFB 176,69,36,58,250,89,66,62
40936 DEFB 77,85,203,236,176,34,52,56
40944 DEFB 48,56,34,13
40948 DEFB 18,204,170,0,250,70,36,61 Line 4812: IF F$="BUFFALO" OR F$="RATTLE SNAKE" OR F$="SCORPION" OR F$="VULTURE" OR F$="LONGHORN" OR F$="GRIZZLY BEAR" OR F$="MOUNTAIN LION" THEN PRINT : PRINT "WHAT IS A ";F$;" GOING": PRINT "TO DO WITH $";YB;" ?": LET TS=PI: RETURN.
40956 DEFB 34,66,85,70,70,65,76,79
40964 DEFB 34,197,70,36,61,34,82,65
40972 DEFB 84,84,76,69,32,83,78,65
40980 DEFB 75,69,34,197,70,36,61,34
40988 DEFB 83,67,79,82,80,73,79,78
40996 DEFB 34,197,70,36,61,34,86,85
41004 DEFB 76,84,85,82,69,34,197,70
41012 DEFB 36,61,34,76,79,78,71,72
41020 DEFB 79,82,78,34,197,70,36,61
41028 DEFB 34,71,82,73,90,90,76,89
41036 DEFB 32,66,69,65,82,34,197,70
41044 DEFB 36,61,34,77,79,85,78,84
41052 DEFB 65,73,78,32,76,73,79,78
41060 DEFB 34,203,245,58,245,34,87,72
41068 DEFB 65,84,32,73,83,32,65,32
41076 DEFB 34,59,70,36,59,34,32,71
41084 DEFB 79,73,78,71,34,58,245,34
41092 DEFB 84,79,32,68,79,32,87,73
41100 DEFB 84,72,32,36,34,59,89,66
41108 DEFB 59,34,32,63,34,58,241,84
41116 DEFB 83,61,167,58,254,13
41122 DEFB 18,207,55,0,250,89,66,200 Line 4815: IF YB>=BB THEN PRINT : PRINT "THE ";F$;" ACCEPTS": LET MU=MU-YB: LET TS=0: RETURN.
41130 DEFB 66,66,203,245,58,245,34,84
41138 DEFB 72,69,32,34,59,70,36,59
41146 DEFB 34,32,65,67,67,69,80,84
41154 DEFB 83,34,58,241,77,85,61,77
41162 DEFB 85,45,89,66,58,241,84,83
41170 DEFB 61,48,14,0,0,0,0,0
41178 DEFB 58,254,13
41181 DEFB 18,212,99,0,250,73,40,66 Line 4820: IF I(BF)*K(BF)>=BB THEN PRINT : PRINT "THE ";F$;" IS DISGUSTED": PRINT "HE TAKES YOUR ";K$(BF): LET I(BF)=0: LET TS=O: LET BF=O: RETURN.
41189 DEFB 70,41,42,75,40,66,70,41
41197 DEFB 200,66,66,203,245,58,245,34
41205 DEFB 84,72,69,32,34,59,70,36
41213 DEFB 59,34,32,73,83,32,68,73
41221 DEFB 83,71,85,83,84,69,68,34
41229 DEFB 58,245,34,72,69,32,84,65
41237 DEFB 75,69,83,32,89,79,85,82
41245 DEFB 32,34,59,75,36,40,66,70
41253 DEFB 41,58,241,73,40,66,70,41
41261 DEFB 61,48,14,0,0,0,0,0
41269 DEFB 58,241,84,83,61,79,58,241
41277 DEFB 66,70,61,79,58,254,13
41284 DEFB 18,217,36,0,245,58,245,34 Line 4825: PRINT : PRINT "THE ";F$;" ATTACKS YOU": LET TS=PI: RETURN.
41292 DEFB 84,72,69,32,34,59,70,36
41300 DEFB 59,34,32,65,84,84,65,67
41308 DEFB 75,83,32,89,79,85,34,58
41316 DEFB 241,84,83,61,167,58,254,13
41324 DEFB 18,237,65,0,241,68,73,61 Line 4845: LET DI=O: IF I(12)<U THEN LET CS=CS-30: PRINT : PRINT "YOU ARE VERY THIRSTY": RETURN.
41332 DEFB 79,58,250,73,40,49,50,14
41340 DEFB 0,0,12,0,0,41,60,85
41348 DEFB 203,241,67,83,61,67,83,45
41356 DEFB 51,48,14,0,0,30,0,0
41364 DEFB 58,245,58,245,34,89,79,85
41372 DEFB 32,65,82,69,32,86,69,82
41380 DEFB 89,32,84,72,73,82,83,84
41388 DEFB 89,34,58,254,13
41393 DEFB 18,238,45,0,241,73,40,49 Line 4846: LET I(12)=I(12)-U: LET CS=CS+10: RETURN.
41401 DEFB 50,14,0,0,12,0,0,41
41409 DEFB 61,73,40,49,50,14,0,0
41417 DEFB 12,0,0,41,45,85,58,241
41425 DEFB 67,83,61,67,83,43,49,48
41433 DEFB 14,0,0,10,0,0,58,254
41441 DEFB 13
41442 DEFB 18,242,73,0,250,73,40,85 Line 4850: IF I(U)=U AND I(12)<1 THEN PRINT : PRINT "YOUR HORSE NEEDS WATER": LET HS=HS-2: RETURN.
41450 DEFB 41,61,85,198,73,40,49,50
41458 DEFB 14,0,0,12,0,0,41,60
41466 DEFB 49,14,0,0,1,0,0,203
41474 DEFB 245,58,245,34,89,79,85,82
41482 DEFB 32,72,79,82,83,69,32,78
41490 DEFB 69,69,68,83,32,87,65,84
41498 DEFB 69,82,34,58,241,72,83,61
41506 DEFB 72,83,45,50,14,0,0,2
41514 DEFB 0,0,58,254,13
41519 DEFB 18,243,45,0,241,73,40,49 Line 4851: LET I(12)=I(12)-U: LET CS=CS+10: RETURN.
41527 DEFB 50,14,0,0,12,0,0,41
41535 DEFB 61,73,40,49,50,14,0,0
41543 DEFB 12,0,0,41,45,85,58,241
41551 DEFB 67,83,61,67,83,43,49,48
41559 DEFB 14,0,0,10,0,0,58,254
41567 DEFB 13
41568 DEFB 18,247,10,0,250,73,40,85 Line 4855: IF I(U)=O THEN RETURN.
41576 DEFB 41,61,79,203,254,13
41582 DEFB 18,248,56,0,250,73,40,49 Line 4856: IF I(11)<=O AND DE=U THEN PRINT : PRINT "HORSES DON'T EAT SAND": LET HS=HS-U.
41590 DEFB 49,14,0,0,11,0,0,41
41598 DEFB 199,79,198,68,69,61,85,203
41606 DEFB 245,58,245,34,72,79,82,83
41614 DEFB 69,83,32,68,79,78,39,84
41622 DEFB 32,69,65,84,32,83,65,78
41630 DEFB 68,34,58,241,72,83,61,72
41638 DEFB 83,45,85,13
41642 DEFB 18,249,57,0,250,73,40,49 Line 4857: IF I(11)<=O AND MT=U THEN PRINT : PRINT "HORSES DON'T EAT ROCKS": LET HS=HS-U.
41650 DEFB 49,14,0,0,11,0,0,41
41658 DEFB 199,79,198,77,84,61,85,203
41666 DEFB 245,58,245,34,72,79,82,83
41674 DEFB 69,83,32,68,79,78,39,84
41682 DEFB 32,69,65,84,32,82,79,67
41690 DEFB 75,83,34,58,241,72,83,61
41698 DEFB 72,83,45,85,13
41703 DEFB 18,250,42,0,250,73,40,49 Line 4858: IF I(11)>O THEN LET I(11)=I(11)-U.
41711 DEFB 49,14,0,0,11,0,0,41
41719 DEFB 62,79,203,241,73,40,49,49
41727 DEFB 14,0,0,11,0,0,41,61
41735 DEFB 73,40,49,49,14,0,0,11
41743 DEFB 0,0,41,45,85,13
41749 DEFB 18,251,11,0,237,176,34,52 Line 4859: GO SUB VAL "4975": RETURN.
41757 DEFB 57,55,53,34,58,254,13
41764 DEFB 18,252,37,0,241,77,73,61 Line 4860: LET MI=O: IF I(13)<U THEN LET CS=CS-10.
41772 DEFB 79,58,250,73,40,49,51,14
41780 DEFB 0,0,13,0,0,41,60,85
41788 DEFB 203,241,67,83,61,67,83,45
41796 DEFB 49,48,14,0,0,10,0,0
41804 DEFB 13
41805 DEFB 18,253,31,0,250,73,40,49 Line 4861: IF I(15)<U THEN LET CS=CS-15.
41813 DEFB 53,14,0,0,15,0,0,41
41821 DEFB 60,85,203,241,67,83,61,67
41829 DEFB 83,45,49,53,14,0,0,15
41837 DEFB 0,0,13
41840 DEFB 18,254,25,0,245,58,245,34 Line 4862: PRINT : PRINT "YOU ARE VERY COLD": RETURN.
41848 DEFB 89,79,85,32,65,82,69,32
41856 DEFB 86,69,82,89,32,67,79,76
41864 DEFB 68,34,58,254,13
41869 DEFB 19,6,106,0,237,176,34,52 Line 4870: GO SUB VAL "4960": IF INT (RND*18)+U>8 THEN LET GN=INT (RND*100)+U: PRINT : PRINT "YOU FIND A GOLD NUGGET WORTH $";GN: LET MU=MU+GN: RETURN.
41877 DEFB 57,54,48,34,58,250,186,40
41885 DEFB 165,42,49,56,14,0,0,18
41893 DEFB 0,0,41,43,85,62,56,14
41901 DEFB 0,0,8,0,0,203,241,71
41909 DEFB 78,61,186,40,165,42,49,48
41917 DEFB 48,14,0,0,100,0,0,41
41925 DEFB 43,85,58,245,58,245,34,89
41933 DEFB 79,85,32,70,73,78,68,32
41941 DEFB 65,32,71,79,76,68,32,78
41949 DEFB 85,71,71,69,84,32,87,79
41957 DEFB 82,84,72,32,36,34,59,71
41965 DEFB 78,58,241,77,85,61,77,85
41973 DEFB 43,71,78,58,254,13
41979 DEFB 19,7,65,0,241,71,78,61 Line 4871: LET GN=INT (RND*7)+10: LET I(GN)=I(GN)+U: PRINT : PRINT "YOU FIND ";K$(GN): RETURN.
41987 DEFB 186,40,165,42,55,14,0,0
41995 DEFB 7,0,0,41,43,49,48,14
42003 DEFB 0,0,10,0,0,58,241,73
42011 DEFB 40,71,78,41,61,73,40,71
42019 DEFB 78,41,43,85,58,245,58,245
42027 DEFB 34,89,79,85,32,70,73,78
42035 DEFB 68,32,34,59,75,36,40,71
42043 DEFB 78,41,58,254,13
42048 DEFB 19,86,101,0,245,58,245,34 Line 4950: PRINT : PRINT "WILL YOU RUN,FIGHT OR BRIBE ?": BEEP .5,20: INPUT "ENTER R,F OR B "; LINE H$: IF H$="R" OR H$="F" OR H$="B" THEN RETURN.
42056 DEFB 87,73,76,76,32,89,79,85
42064 DEFB 32,82,85,78,44,70,73,71
42072 DEFB 72,84,32,79,82,32,66,82
42080 DEFB 73,66,69,32,63,34,58,215
42088 DEFB 46,53,14,127,127,255,255,255
42096 DEFB 44,50,48,14,0,0,20,0
42104 DEFB 0,58,238,34,69,78,84,69
42112 DEFB 82,32,82,44,70,32,79,82
42120 DEFB 32,66,32,34,59,202,72,36
42128 DEFB 58,250,72,36,61,34,82,34
42136 DEFB 197,72,36,61,34,70,34,197
42144 DEFB 72,36,61,34,66,34,203,254
42152 DEFB 13
42153 DEFB 19,91,9,0,236,176,34,52 Line 4955: GO TO VAL "4950".
42161 DEFB 57,53,48,34,13
42166 DEFB 19,96,59,0,215,46,50,14 Line 4960: BEEP .2,20: BEEP .2,10: BEEP .2,15: RETURN.
42174 DEFB 126,76,204,204,204,44,50,48
42182 DEFB 14,0,0,20,0,0,58,215
42190 DEFB 46,50,14,126,76,204,204,204
42198 DEFB 44,49,48,14,0,0,10,0
42206 DEFB 0,58,215,46,50,14,126,76
42214 DEFB 204,204,204,44,49,53,14,0
42222 DEFB 0,15,0,0,58,254,13
42229 DEFB 19,106,17,0,250,72,76,61 Line 4970: IF HL=U THEN LET KK=KK-U: RETURN.
42237 DEFB 85,203,241,75,75,61,75,75
42245 DEFB 45,85,58,254,13
42250 DEFB 19,107,84,0,245,58,245,34 Line 4971: PRINT : PRINT "YOUR HORSE GOES LAME": LET HS=HS-U: LET HL=U: PRINT "THIS ADDS 2 DAYS TO YOUR JOURNEY": LET N=N-R.
42258 DEFB 89,79,85,82,32,72,79,82
42266 DEFB 83,69,32,71,79,69,83,32
42274 DEFB 76,65,77,69,34,58,241,72
42282 DEFB 83,61,72,83,45,85,58,241
42290 DEFB 72,76,61,85,58,245,34,84
42298 DEFB 72,73,83,32,65,68,68,83
42306 DEFB 32,50,32,68,65,89,83,32
42314 DEFB 84,79,32,89,79,85,82,32
42322 DEFB 74,79,85,82,78,69,89,34
42330 DEFB 58,241,78,61,78,45,82,13
42338 DEFB 19,111,10,0,250,73,40,85 Line 4975: IF I(U)=O THEN RETURN.
42346 DEFB 41,61,79,203,254,13
42352 DEFB 19,112,49,0,250,72,83,199 Line 4976: IF HS<=U THEN LET I(U)=O: PRINT : PRINT "YOUR HORSE IS DEAD": GO SUB VAL "9226": RETURN.
42360 DEFB 85,203,241,73,40,85,41,61
42368 DEFB 79,58,245,58,245,34,89,79
42376 DEFB 85,82,32,72,79,82,83,69
42384 DEFB 32,73,83,32,68,69,65,68
42392 DEFB 34,58,237,176,34,57,50,50
42400 DEFB 54,34,58,254,13
42405 DEFB 19,126,68,0,250,67,83,199 Line 4990: IF CS<=O THEN PRINT : PRINT "YOU'RE DEAD.....": LET M$="YOU RAN OUT OF STRENGTH!": GO TO VAL "5270".
42413 DEFB 79,203,245,58,245,34,89,79
42421 DEFB 85,39,82,69,32,68,69,65
42429 DEFB 68,46,46,46,46,46,34,58
42437 DEFB 241,77,36,61,34,89,79,85
42445 DEFB 32,82,65,78,32,79,85,84
42453 DEFB 32,79,70,32,83,84,82,69
42461 DEFB 78,71,84,72,33,34,58,236
42469 DEFB 176,34,53,50,55,48,34,13
42477 DEFB 19,127,2,0,254,13 Line 4991: RETURN.
42483 DEFB 19,138,81,0,231,85,58,251 Line 5002: BORDER U: CLS : PRINT AT 9,U;"YOU BOTH WALK INTO THE STREET ",,," FOR A FIGHT TO THE DEATH.".
42491 DEFB 58,245,172,57,14,0,0,9
42499 DEFB 0,0,44,85,59,34,89,79
42507 DEFB 85,32,66,79,84,72,32,87
42515 DEFB 65,76,75,32,73,78,84,79
42523 DEFB 32,84,72,69,32,83,84,82
42531 DEFB 69,69,84,32,34,44,44,44
42539 DEFB 34,32,70,79,82,32,65,32
42547 DEFB 70,73,71,72,84,32,84,79
42555 DEFB 32,84,72,69,32,68,69,65
42563 DEFB 84,72,46,34,13
42568 DEFB 19,139,45,0,229,176,34,57 Line 5003: RESTORE VAL "9080": FOR N=U TO 10: READ K: READ G: BEEP K/3,G: NEXT N.
42576 DEFB 48,56,48,34,58,235,78,61
42584 DEFB 85,204,49,48,14,0,0,10
42592 DEFB 0,0,58,227,75,58,227,71
42600 DEFB 58,215,75,47,51,14,0,0
42608 DEFB 3,0,0,44,71,58,243,78
42616 DEFB 13
42617 DEFB 19,140,15,0,241,83,70,61 Line 5004: LET SF=O: PAPER O: BORDER INT PI: CLS.
42625 DEFB 79,58,218,79,58,231,186,167
42633 DEFB 58,251,13
42636 DEFB 19,142,58,0,250,73,40,186 Line 5006: IF I(INT PI)+I(4)<=O THEN LET M$="YOU DIDN'T HAVE A GUN!": GO TO VAL "5012".
42644 DEFB 167,41,43,73,40,52,14,0
42652 DEFB 0,4,0,0,41,199,79,203
42660 DEFB 241,77,36,61,34,89,79,85
42668 DEFB 32,68,73,68,78,39,84,32
42676 DEFB 72,65,86,69,32,65,32,71
42684 DEFB 85,78,33,34,58,236,176,34
42692 DEFB 53,48,49,50,34,13
42698 DEFB 19,143,69,0,250,73,40,53 Line 5007: IF I(5)+I(6)<=O THEN LET M$="YOU DIDN'T HAVE ANY BULLETS!": GO TO VAL "5012".
42706 DEFB 14,0,0,5,0,0,41,43
42714 DEFB 73,40,54,14,0,0,6,0
42722 DEFB 0,41,199,79,203,241,77,36
42730 DEFB 61,34,89,79,85,32,68,73
42738 DEFB 68,78,39,84,32,72,65,86
42746 DEFB 69,32,65,78,89,32,66,85
42754 DEFB 76,76,69,84,83,33,34,58
42762 DEFB 236,176,34,53,48,49,50,34
42770 DEFB 13
42771 DEFB 19,144,122,0,250,73,40,186 Line 5008: IF I(INT PI)>O AND I(5)<=O AND I(6)>=O OR I(4)>O AND I(5)>O AND I(6)<=O THEN LET M$="YOUR BULLETS DIDN'T FIT YOUR GUN": GO TO VAL "5012".
42779 DEFB 167,41,62,79,198,73,40,53
42787 DEFB 14,0,0,5,0,0,41,199
42795 DEFB 79,198,73,40,54,14,0,0
42803 DEFB 6,0,0,41,200,79,197,73
42811 DEFB 40,52,14,0,0,4,0,0
42819 DEFB 41,62,79,198,73,40,53,14
42827 DEFB 0,0,5,0,0,41,62,79
42835 DEFB 198,73,40,54,14,0,0,6
42843 DEFB 0,0,41,199,79,203,241,77
42851 DEFB 36,61,34,89,79,85,82,32
42859 DEFB 66,85,76,76,69,84,83,32
42867 DEFB 68,73,68,78,39,84,32,70
42875 DEFB 73,84,32,89,79,85,82,32
42883 DEFB 71,85,78,34,58,236,176,34
42891 DEFB 53,48,49,50,34,13
42897 DEFB 19,146,46,0,241,89,61,79 Line 5010: LET Y=O: LET M$="YOU WERE NOT FAST ENOUGH!": GO TO VAL "5018".
42905 DEFB 58,241,77,36,61,34,89,79
42913 DEFB 85,32,87,69,82,69,32,78
42921 DEFB 79,84,32,70,65,83,84,32
42929 DEFB 69,78,79,85,71,72,33,34
42937 DEFB 58,236,176,34,53,48,49,56
42945 DEFB 34,13
42947 DEFB 19,148,5,0,241,89,61,85 Line 5012: LET Y=U.
42955 DEFB 13
42956 DEFB 19,155,163,1,244,50,51,54 Line 5019: POKE 23606,247: POKE 23607,242: PRINT " !""#$ %",," &'()* +";TAB 25;",-. /0123 4";TAB 25;"567 89:;<= >";TAB 25;"?@A BCDEF G";TAB 0;"HIJKL MN",,"OP QRSTU VW";TAB 21;"XYZ\] ↑_£abcdefghijklm";TAB 20;"no pqrst uvwxyz {|}~©".
42964 DEFB 48,54,14,0,0,54,92,0
42972 DEFB 44,50,52,55,14,0,0,247
42980 DEFB 0,0,58,244,50,51,54,48
42988 DEFB 55,14,0,0,55,92,0,44
42996 DEFB 50,52,50,14,0,0,242,0
43004 DEFB 0,58,245,34,16,0,17,7
43012 DEFB 32,33,17,1,16,7,34,34
43020 DEFB 35,36,16,0,17,7,32,16
43028 DEFB 5,37,17,5,16,0,34,44
43036 DEFB 44,34,17,7,32,38,16,7
43044 DEFB 17,1,39,40,41,42,16,0
43052 DEFB 17,7,32,16,5,43,16,0
43060 DEFB 17,5,34,59,173,50,53,14
43068 DEFB 0,0,25,0,0,59,34,16
43076 DEFB 6,44,45,46,32,32,32,32
43084 DEFB 16,0,17,7,32,47,16,7
43092 DEFB 17,1,48,49,50,51,16,0
43100 DEFB 17,7,32,52,17,5,34,59
43108 DEFB 173,50,53,14,0,0,25,0
43116 DEFB 0,59,34,16,6,53,54,55
43124 DEFB 32,32,32,32,16,0,17,7
43132 DEFB 56,57,58,16,7,17,1,59
43140 DEFB 60,61,16,0,17,7,32,62
43148 DEFB 17,5,34,59,173,50,53,14
43156 DEFB 0,0,25,0,0,59,34,16
43164 DEFB 6,63,64,65,16,0,32,32
43172 DEFB 32,32,17,7,66,143,67,68
43180 DEFB 17,1,16,7,69,70,17,7
43188 DEFB 16,0,32,71,17,5,34,59
43196 DEFB 173,48,14,0,0,0,0,0
43204 DEFB 59,34,17,7,72,73,74,143
43212 DEFB 75,76,32,77,16,5,78,143
43220 DEFB 143,143,143,16,0,17,5,34
43228 DEFB 44,44,34,17,7,16,2,79
43236 DEFB 80,16,0,32,81,82,83,84
43244 DEFB 85,32,16,5,86,87,17,7
43252 DEFB 143,143,16,0,17,5,34,59
43260 DEFB 173,50,49,14,0,0,21,0
43268 DEFB 0,59,34,17,7,17,5,16
43276 DEFB 5,88,89,90,92,93,16,0
43284 DEFB 32,16,5,94,7,17,7,95
43292 DEFB 96,16,0,97,16,2,98,99
43300 DEFB 100,101,102,16,0,103,104,105
43308 DEFB 106,107,16,5,108,109,143,16
43316 DEFB 0,17,5,34,59,173,50,48
43324 DEFB 14,0,0,20,0,0,59,34
43332 DEFB 16,7,110,16,0,17,7,111
43340 DEFB 32,32,32,112,16,5,113,114
43348 DEFB 115,16,0,116,32,117,16,2
43356 DEFB 118,119,120,121,122,16,0,32
43364 DEFB 32,32,123,124,125,126,16,5
43372 DEFB 127,34,16,0,17,7,13
43379 DEFB 19,166,251,0,244,50,51,54 Line 5030: POKE 23607,245: PRINT AT 8,13;"! ""# $%&'()* +,-./0123456789 :;< = >?@AB C DEFGHIJKLMNO PQR STUVWXYZ[\]↑_£abcdefghij klmno pqrstuv wxyz{|}~ ©".
43387 DEFB 48,55,14,0,0,55,92,0
43395 DEFB 44,50,52,53,14,0,0,245
43403 DEFB 0,0,58,32,245,172,56,14
43411 DEFB 0,0,8,0,0,44,49,51
43419 DEFB 14,0,0,13,0,0,59,34
43427 DEFB 17,5,33,32,32,32,32,32
43435 DEFB 32,17,7,34,34,35,32,36
43443 DEFB 37,38,39,40,41,42,32,43
43451 DEFB 44,45,46,47,48,17,1,16
43459 DEFB 7,49,50,51,16,0,17,7
43467 DEFB 52,16,7,17,1,53,17,7
43475 DEFB 54,17,7,16,0,55,56,17
43483 DEFB 5,57,32,32,32,32,32,58
43491 DEFB 17,7,16,0,59,17,7,60
43499 DEFB 32,61,32,62,63,64,65,66
43507 DEFB 32,67,32,32,32,68,69,17
43515 DEFB 1,16,7,70,71,72,16,0
43523 DEFB 17,7,73,17,1,16,7,74
43531 DEFB 75,16,0,17,7,76,77,17
43539 DEFB 5,78,79,32,32,32,32,80
43547 DEFB 17,7,81,82,32,83,84,85
43555 DEFB 86,87,88,89,90,91,92,93
43563 DEFB 94,95,96,17,1,16,7,97
43571 DEFB 98,99,16,0,17,7,100,17
43579 DEFB 1,16,7,101,102,16,0,17
43587 DEFB 7,103,104,17,6,105,106,32
43595 DEFB 32,32,32,107,17,7,108,109
43603 DEFB 110,111,32,112,113,114,115,116
43611 DEFB 117,118,32,119,120,121,122,17
43619 DEFB 1,16,7,123,124,125,16,0
43627 DEFB 17,7,126,32,127,34,13
43634 DEFB 19,186,38,1,244,50,51,54 Line 5050: POKE 23607,248: PRINT AT 12,11;"!""#$ %&'()* +,-./012345 6789: ;<=>?@ABC D EFGHIJKLMNOP";TAB 21;"QRSTUVW X YZ[\]↑_";TAB 24;"£abcdefghi";TAB 25;"jklmnop";TAB 26;"qrstuvwxy";TAB 28;"z {|}~©";TAB 32.
43642 DEFB 48,55,14,0,0,55,92,0
43650 DEFB 44,50,52,56,14,0,0,248
43658 DEFB 0,0,58,245,172,49,50,14
43666 DEFB 0,0,12,0,0,44,49,49
43674 DEFB 14,0,0,11,0,0,59,16
43682 DEFB 0,34,17,7,33,34,34,17
43690 DEFB 6,35,36,32,32,32,37,38
43698 DEFB 39,17,7,40,41,42,17,7
43706 DEFB 32,32,43,44,45,46,47,48
43714 DEFB 49,50,51,52,53,32,32,32
43722 DEFB 54,55,56,17,6,57,58,32
43730 DEFB 32,32,32,32,32,59,60,61
43738 DEFB 62,63,17,7,64,65,17,7
43746 DEFB 66,67,32,68,32,69,70,71
43754 DEFB 72,73,74,75,76,77,17,6
43762 DEFB 143,78,79,80,34,59,173,50
43770 DEFB 49,14,0,0,21,0,0,59
43778 DEFB 34,81,82,83,143,143,17,7
43786 DEFB 84,85,86,87,32,88,32,32
43794 DEFB 89,90,91,92,17,6,143,143
43802 DEFB 93,94,95,34,59,173,50,52
43810 DEFB 14,0,0,24,0,0,59,34
43818 DEFB 96,97,143,143,143,17,7,98
43826 DEFB 99,100,101,102,103,143,17,6
43834 DEFB 143,143,104,105,34,59,173,50
43842 DEFB 53,14,0,0,25,0,0,59
43850 DEFB 34,106,107,108,143,143,143,143
43858 DEFB 17,7,143,143,143,143,17,6
43866 DEFB 109,110,111,112,34,59,173,50
43874 DEFB 54,14,0,0,26,0,0,59
43882 DEFB 34,113,114,115,116,117,118,17
43890 DEFB 7,17,6,143,143,143,119,120
43898 DEFB 121,34,59,173,50,56,14,0
43906 DEFB 0,28,0,0,59,34,122,32
43914 DEFB 123,124,143,125,126,127,34,59
43922 DEFB 173,51,50,14,0,0,32,0
43930 DEFB 0,13
43932 DEFB 19,206,69,0,244,176,34,50 Line 5070: POKE VAL "23606",VAL "254": POKE VAL "23607",VAL "251": PRINT "£[]{";TAB 0;"}";TAB 32.
43940 DEFB 51,54,48,54,34,44,176,34
43948 DEFB 50,53,52,34,58,244,176,34
43956 DEFB 50,51,54,48,55,34,44,176
43964 DEFB 34,50,53,49,34,58,245,34
43972 DEFB 17,6,96,91,93,123,34,59
43980 DEFB 173,48,14,0,0,0,0,0
43988 DEFB 59,34,125,34,59,173,51,50
43996 DEFB 17,7,14,0,0,32,0,0
44004 DEFB 13
44005 DEFB 20,0,144,0,245,218,53,14 Line 5120: PRINT PAPER 5;AT 10,15;"abc";AT 11,15; PAPER 6;"def";AT 12,15;"ghi";AT 13,15;"jkl";AT 14,15;"m n".
44013 DEFB 0,0,5,0,0,59,172,49
44021 DEFB 48,14,0,0,10,0,0,44
44029 DEFB 49,53,14,0,0,15,0,0
44037 DEFB 59,34,97,98,99,34,59,172
44045 DEFB 49,49,14,0,0,11,0,0
44053 DEFB 44,49,53,14,0,0,15,0
44061 DEFB 0,59,218,54,14,0,0,6
44069 DEFB 0,0,59,34,100,101,102,34
44077 DEFB 59,172,49,50,14,0,0,12
44085 DEFB 0,0,44,49,53,14,0,0
44093 DEFB 15,0,0,59,34,103,104,105
44101 DEFB 34,59,172,49,51,14,0,0
44109 DEFB 13,0,0,44,49,53,14,0
44117 DEFB 0,15,0,0,59,34,106,107
44125 DEFB 108,34,59,172,49,52,14,0
44133 DEFB 0,14,0,0,44,49,53,14
44141 DEFB 0,0,15,0,0,59,34,109
44149 DEFB 32,110,34,13
44153 DEFB 20,5,73,0,241,75,61,186 Line 5125: LET K=INT (RND*4)+2: FOR D=U TO K: RESTORE VAL "9035": FOR N=U TO 20: READ H: READ F: BEEP H/3,F.
44161 DEFB 40,165,42,52,14,0,0,4
44169 DEFB 0,0,41,43,50,14,0,0
44177 DEFB 2,0,0,58,235,68,61,85
44185 DEFB 204,75,58,229,176,34,57,48
44193 DEFB 51,53,34,58,235,78,61,85
44201 DEFB 204,50,48,14,0,0,20,0
44209 DEFB 0,58,227,72,58,227,70,58
44217 DEFB 215,72,47,51,14,0,0,3
44225 DEFB 0,0,44,70,13
44230 DEFB 20,10,37,0,250,166,201,34 Line 5130: IF INKEY$<>"" AND Y=0 THEN LET SF=1: GO TO VAL "5300".
44238 DEFB 34,198,89,61,48,14,0,0
44246 DEFB 0,0,0,203,241,83,70,61
44254 DEFB 49,14,0,0,1,0,0,58
44262 DEFB 236,176,34,53,51,48,48,34
44270 DEFB 13
44271 DEFB 20,15,6,0,243,78,58,243 Line 5135: NEXT N: NEXT D.
44279 DEFB 68,13
44281 DEFB 20,80,60,0,245,218,54,14 Line 5200: PRINT PAPER 6;AT 11,15;"oep";AT 12,15;"qhr".
44289 DEFB 0,0,6,0,0,59,172,49
44297 DEFB 49,14,0,0,11,0,0,44
44305 DEFB 49,53,14,0,0,15,0,0
44313 DEFB 59,34,111,101,112,34,59,172
44321 DEFB 49,50,14,0,0,12,0,0
44329 DEFB 44,49,53,14,0,0,15,0
44337 DEFB 0,59,34,113,104,114,34,13
44345 DEFB 20,90,37,0,241,77,61,186 Line 5210: LET M=INT (RND*5)+5: FOR N=1 TO M.
44353 DEFB 40,165,42,53,14,0,0,5
44361 DEFB 0,0,41,43,53,14,0,0
44369 DEFB 5,0,0,58,235,78,61,49
44377 DEFB 14,0,0,1,0,0,204,77
44385 DEFB 13
44386 DEFB 20,95,25,0,250,166,201,34 Line 5215: IF INKEY$<>"" AND Y=0 THEN GO TO VAL "5300".
44394 DEFB 34,198,89,61,48,14,0,0
44402 DEFB 0,0,0,203,236,176,34,53
44410 DEFB 51,48,48,34,13
44415 DEFB 20,100,3,0,243,78,13 Line 5220: NEXT N.
44422 DEFB 20,130,94,0,245,218,54,14 Line 5250: PRINT PAPER 6;AT 11,15;"set";AT 12,15;"uhv".
44430 DEFB 0,0,6,0,0,59,172,49
44438 DEFB 49,14,0,0,11,0,0,44
44446 DEFB 49,53,14,0,0,15,0,0
44454 DEFB 59,34,115,101,116,34,59,172
44462 DEFB 49,50,14,0,0,12,0,0
44470 DEFB 44,49,53,14,0,0,15,0
44478 DEFB 0,59,34,18,1,19,1,16
44486 DEFB 6,17,2,117,18,0,19,0
44494 DEFB 17,6,16,0,104,18,1,19
44502 DEFB 1,17,2,16,7,16,6,118
44510 DEFB 17,0,18,0,17,7,16,0
44518 DEFB 34,13
44520 DEFB 20,135,61,0,235,78,61,45 Line 5255: FOR N=-20 TO 20: BEEP .05,N: BEEP .1,N*-1.5: NEXT N.
44528 DEFB 50,48,14,0,0,20,0,0
44536 DEFB 204,50,48,14,0,0,20,0
44544 DEFB 0,58,215,46,48,53,14,124
44552 DEFB 76,204,204,204,44,78,58,215
44560 DEFB 46,49,14,125,76,204,204,204
44568 DEFB 44,78,42,45,49,46,53,14
44576 DEFB 129,64,0,0,0,58,243,78
44584 DEFB 13
44585 DEFB 20,140,14,0,218,79,58,217 Line 5260: PAPER O: INK VAL "9": BORDER O: CLS.
44593 DEFB 176,34,57,34,58,231,79,58
44601 DEFB 251,13
44603 DEFB 20,145,35,0,245,172,49,48 Line 5265: PRINT AT 10,10;"HE SHOT YOU!".
44611 DEFB 14,0,0,10,0,0,44,49
44619 DEFB 48,14,0,0,10,0,0,59
44627 DEFB 34,72,69,32,83,72,79,84
44635 DEFB 32,89,79,85,33,34,13
44642 DEFB 20,150,45,0,229,176,34,57 Line 5270: RESTORE VAL "9100": FOR N=U TO 11: READ M: READ W: BEEP M/3,W: NEXT N.
44650 DEFB 49,48,48,34,58,235,78,61
44658 DEFB 85,204,49,49,14,0,0,11
44666 DEFB 0,0,58,227,77,58,227,87
44674 DEFB 58,215,77,47,51,14,0,0
44682 DEFB 3,0,0,44,87,58,243,78
44690 DEFB 13
44691 DEFB 20,160,9,0,236,176,34,56 Line 5280: GO TO VAL "8500".
44699 DEFB 53,48,48,34,13
44704 DEFB 20,180,74,0,245,218,54,14 Line 5300: PRINT PAPER 6;AT 11,15;"wex";AT 12,15;"yz\".
44712 DEFB 0,0,6,0,0,59,172,49
44720 DEFB 49,14,0,0,11,0,0,44
44728 DEFB 49,53,14,0,0,15,0,0
44736 DEFB 59,34,119,101,120,34,59,172
44744 DEFB 49,50,14,0,0,12,0,0
44752 DEFB 44,49,53,14,0,0,15,0
44760 DEFB 0,59,34,17,6,121,16,2
44768 DEFB 17,2,122,16,0,17,6,92
44776 DEFB 17,7,16,0,34,13
44782 DEFB 20,185,75,0,246,49,50,56 Line 5305: PLOT 128,100: DRAW -9,18: PRINT PAPER VAL "5";AT 6,12;"AAAGGH!".
44790 DEFB 14,0,0,128,0,0,44,49
44798 DEFB 48,48,14,0,0,100,0,0
44806 DEFB 58,252,45,57,14,0,0,9
44814 DEFB 0,0,44,49,56,14,0,0
44822 DEFB 18,0,0,58,245,218,176,34
44830 DEFB 53,34,59,172,54,14,0,0
44838 DEFB 6,0,0,44,49,50,14,0
44846 DEFB 0,12,0,0,59,34,65,65
44854 DEFB 65,71,71,72,33,34,13
44861 DEFB 20,190,31,0,235,78,61,79 Line 5310: FOR N=O TO 40: BEEP .002,N: NEXT N.
44869 DEFB 204,52,48,14,0,0,40,0
44877 DEFB 0,58,215,46,48,48,50,14
44885 DEFB 120,3,18,110,151,44,78,58
44893 DEFB 243,78,13
44896 DEFB 20,195,45,0,229,176,34,57 Line 5315: RESTORE VAL "9080": FOR N=U TO 10: READ M: READ W: BEEP M/3,W: NEXT N.
44904 DEFB 48,56,48,34,58,235,78,61
44912 DEFB 85,204,49,48,14,0,0,10
44920 DEFB 0,0,58,227,77,58,227,87
44928 DEFB 58,215,77,47,51,14,0,0
44936 DEFB 3,0,0,44,87,58,243,78
44944 DEFB 13
44945 DEFB 20,200,15,0,250,83,70,61 Line 5320: IF SF=U THEN GO TO VAL "5405".
44953 DEFB 85,203,236,176,34,53,52,48
44961 DEFB 53,34,13
44964 DEFB 20,205,115,0,218,52,14,0 Line 5325: PAPER 4: INK 9: BORDER U: CLS : PRINT AT 6,2;"YOU CARRY THE BODY TO THE": PRINT : PRINT " SHERIFFS OFFICE.....": GO SUB VAL "2455": GO TO VAL "2460".
44972 DEFB 0,4,0,0,58,217,57,14
44980 DEFB 0,0,9,0,0,58,231,85
44988 DEFB 58,251,58,245,172,54,14,0
44996 DEFB 0,6,0,0,44,50,14,0
45004 DEFB 0,2,0,0,59,34,89,79
45012 DEFB 85,32,67,65,82,82,89,32
45020 DEFB 84,72,69,32,66,79,68,89
45028 DEFB 32,84,79,32,84,72,69,34
45036 DEFB 58,245,58,245,34,32,32,83
45044 DEFB 72,69,82,73,70,70,83,32
45052 DEFB 79,70,70,73,67,69,46,46
45060 DEFB 46,46,46,34,58,237,176,34
45068 DEFB 50,52,53,53,34,58,236,176
45076 DEFB 34,50,52,54,48,34,13
45083 DEFB 21,29,14,0,218,79,58,217 Line 5405: PAPER O: INK VAL "9": BORDER O: CLS.
45091 DEFB 176,34,57,34,58,231,79,58
45099 DEFB 251,13
45101 DEFB 21,34,181,0,245,172,55,14 Line 5410: PRINT AT 7,9;"YOU DREW FIRST!": PRINT : PRINT TAB 9;"THAT'S MURDER.": PRINT : PRINT : PRINT TAB 5;"THE SHERIFF ARRESTS YOU": PRINT : PRINT TAB 8;"YOU'LL BE IN JAIL": PRINT : PRINT TAB 8;"FOR QUITE A WHILE": GO TO 2725.
45109 DEFB 0,0,7,0,0,44,57,14
45117 DEFB 0,0,9,0,0,59,34,89
45125 DEFB 79,85,32,68,82,69,87,32
45133 DEFB 70,73,82,83,84,33,34,58
45141 DEFB 245,58,245,173,57,14,0,0
45149 DEFB 9,0,0,59,34,84,72,65
45157 DEFB 84,39,83,32,77,85,82,68
45165 DEFB 69,82,46,34,58,245,58,245
45173 DEFB 58,245,173,53,14,0,0,5
45181 DEFB 0,0,59,34,84,72,69,32
45189 DEFB 83,72,69,82,73,70,70,32
45197 DEFB 65,82,82,69,83,84,83,32
45205 DEFB 89,79,85,34,58,245,58,245
45213 DEFB 173,56,14,0,0,8,0,0
45221 DEFB 59,34,89,79,85,39,76,76
45229 DEFB 32,66,69,32,73,78,32,74
45237 DEFB 65,73,76,34,58,245,58,245
45245 DEFB 173,56,14,0,0,8,0,0
45253 DEFB 59,34,70,79,82,32,81,85
45261 DEFB 73,84,69,32,65,32,87,72
45269 DEFB 73,76,69,34,58,236,50,55
45277 DEFB 50,53,14,0,0,165,10,0
45285 DEFB 13
45286 DEFB 23,112,95,0,237,176,34,51 Line 6000: GO SUB VAL "300": PRINT AT 17,1;"YOU ARE IN (";TN;")";T$(TN): PRINT : PRINT TAB 4;"WHERE DO YOU WANT TO GO?".
45294 DEFB 48,48,34,58,245,172,49,55
45302 DEFB 14,0,0,17,0,0,44,49
45310 DEFB 14,0,0,1,0,0,59,34
45318 DEFB 89,79,85,32,65,82,69,32
45326 DEFB 73,78,32,40,34,59,84,78
45334 DEFB 59,34,41,34,59,84,36,40
45342 DEFB 84,78,41,58,245,58,245,173
45350 DEFB 52,14,0,0,4,0,0,59
45358 DEFB 34,87,72,69,82,69,32,68
45366 DEFB 79,32,89,79,85,32,87,65
45374 DEFB 78,84,32,84,79,32,71,79
45382 DEFB 63,34,13
45385 DEFB 23,117,89,0,238,34,69,78 Line 6005: INPUT "ENTER NUMBER OF DESTINATION "; LINE E$: LET E$=E$+" ": IF CODE E$(U)<49 OR CODE E$(U)>53 THEN GO TO VAL "6005".
45393 DEFB 84,69,82,32,78,85,77,66
45401 DEFB 69,82,32,79,70,32,68,69
45409 DEFB 83,84,73,78,65,84,73,79
45417 DEFB 78,32,34,59,202,69,36,58
45425 DEFB 241,69,36,61,69,36,43,34
45433 DEFB 32,34,58,250,175,69,36,40
45441 DEFB 85,41,60,52,57,14,0,0
45449 DEFB 49,0,0,197,175,69,36,40
45457 DEFB 85,41,62,53,51,14,0,0
45465 DEFB 53,0,0,203,236,176,34,54
45473 DEFB 48,48,53,34,13
45478 DEFB 23,137,40,0,241,70,76,61 Line 6025: LET FL=VAL E$: IF FL<U OR FL>5 OR FL=TN THEN GO TO VAL "6005".
45486 DEFB 176,69,36,58,250,70,76,60
45494 DEFB 85,197,70,76,62,53,14,0
45502 DEFB 0,5,0,0,197,70,76,61
45510 DEFB 84,78,203,236,176,34,54,48
45518 DEFB 48,53,34,13
45522 DEFB 23,140,12,0,241,71,61,84 Line 6028: LET G=T(TN,FL).
45530 DEFB 40,84,78,44,70,76,41,13
45538 DEFB 23,142,64,0,250,71,60,45 Line 6030: IF G<-10 THEN LET DE=O: LET MT=U: LET G=G/-3: LET P$="MOUNTAINS": GO TO VAL "6045".
45546 DEFB 49,48,14,0,0,10,0,0
45554 DEFB 203,241,68,69,61,79,58,241
45562 DEFB 77,84,61,85,58,241,71,61
45570 DEFB 71,47,45,51,14,0,0,3
45578 DEFB 0,0,58,241,80,36,61,34
45586 DEFB 77,79,85,78,84,65,73,78
45594 DEFB 83,34,58,236,176,34,54,48
45602 DEFB 52,53,34,13
45606 DEFB 23,147,47,0,250,71,60,79 Line 6035: IF G<O THEN LET DE=U: LET MT=O: LET G=G*-U: LET P$="DESERT": GO TO VAL "6045".
45614 DEFB 203,241,68,69,61,85,58,241
45622 DEFB 77,84,61,79,58,241,71,61
45630 DEFB 71,42,45,85,58,241,80,36
45638 DEFB 61,34,68,69,83,69,82,84
45646 DEFB 34,58,236,176,34,54,48,52
45654 DEFB 53,34,13
45657 DEFB 23,152,29,0,241,80,36,61 Line 6040: LET P$="OPEN RANGE": LET MT=O: LET DE=O.
45665 DEFB 34,79,80,69,78,32,82,65
45673 DEFB 78,71,69,34,58,241,77,84
45681 DEFB 61,79,58,241,68,69,61,79
45689 DEFB 13
45690 DEFB 23,157,116,0,245,172,49,57 Line 6045: PRINT AT 19,U;T$(FL);" IS ";G;" DAYS RIDE"," ACROSS THE ";P$: BEEP .3,7: BEEP .2,14: BEEP .3,-7.
45698 DEFB 14,0,0,19,0,0,44,85
45706 DEFB 59,84,36,40,70,76,41,59
45714 DEFB 34,32,73,83,32,34,59,71
45722 DEFB 59,34,32,68,65,89,83,32
45730 DEFB 82,73,68,69,34,44,34,32
45738 DEFB 65,67,82,79,83,83,32,84
45746 DEFB 72,69,32,34,59,80,36,58
45754 DEFB 215,46,51,14,127,25,153,153
45762 DEFB 153,44,55,14,0,0,7,0
45770 DEFB 0,58,215,46,50,14,126,76
45778 DEFB 204,204,204,44,49,52,14,0
45786 DEFB 0,14,0,0,58,215,46,51
45794 DEFB 14,127,25,153,153,153,44,45
45802 DEFB 55,14,0,0,7,0,0,13
45810 DEFB 23,162,35,0,238,34,32,32 Line 6050: INPUT " PRESS ENTER TO CONTINUE"; LINE H$.
45818 DEFB 32,32,80,82,69,83,83,32
45826 DEFB 69,78,84,69,82,32,84,79
45834 DEFB 32,67,79,78,84,73,78,85
45842 DEFB 69,34,59,202,72,36,13
45849 DEFB 23,172,201,0,218,52,14,0 Line 6060: PAPER 4: BORDER U: CLS : PRINT AT 4,4;"DO YOU WANT TO:": PRINT : PRINT TAB 5;"A) START YOUR JOURNEY": PRINT : PRINT TAB 5;"B) BUY PROVISIONS": PRINT : PRINT TAB 5;"C) LOOK AT MAP AGAIN";AT 14,3;"PRESS LETTER OF YOUR CHOICE".
45857 DEFB 0,4,0,0,58,231,85,58
45865 DEFB 251,58,245,172,52,14,0,0
45873 DEFB 4,0,0,44,52,14,0,0
45881 DEFB 4,0,0,59,34,68,79,32
45889 DEFB 89,79,85,32,87,65,78,84
45897 DEFB 32,84,79,58,34,58,245,58
45905 DEFB 245,173,53,14,0,0,5,0
45913 DEFB 0,59,34,65,41,32,83,84
45921 DEFB 65,82,84,32,89,79,85,82
45929 DEFB 32,74,79,85,82,78,69,89
45937 DEFB 34,58,245,58,245,173,53,14
45945 DEFB 0,0,5,0,0,59,34,66
45953 DEFB 41,32,66,85,89,32,80,82
45961 DEFB 79,86,73,83,73,79,78,83
45969 DEFB 34,58,245,58,245,173,53,14
45977 DEFB 0,0,5,0,0,59,34,67
45985 DEFB 41,32,76,79,79,75,32,65
45993 DEFB 84,32,77,65,80,32,65,71
46001 DEFB 65,73,78,34,59,172,49,52
46009 DEFB 14,0,0,14,0,0,44,51
46017 DEFB 14,0,0,3,0,0,59,34
46025 DEFB 80,82,69,83,83,32,76,69
46033 DEFB 84,84,69,82,32,79,70,32
46041 DEFB 89,79,85,82,32,67,72,79
46049 DEFB 73,67,69,34,13
46054 DEFB 23,177,35,0,215,46,48,49 Line 6065: BEEP .01,5: IF INKEY$="A" THEN GO TO VAL "4000".
46062 DEFB 14,122,35,215,10,61,44,53
46070 DEFB 14,0,0,5,0,0,58,250
46078 DEFB 166,61,34,65,34,203,236,176
46086 DEFB 34,52,48,48,48,34,13
46093 DEFB 23,182,16,0,250,166,61,34 Line 6070: IF INKEY$="B" THEN GO TO VAL "7660".
46101 DEFB 66,34,203,236,176,34,55,54
46109 DEFB 54,48,34,13
46113 DEFB 23,187,16,0,250,166,61,34 Line 6075: IF INKEY$="C" THEN GO TO VAL "6000".
46121 DEFB 67,34,203,236,176,34,54,48
46129 DEFB 48,48,34,13
46133 DEFB 23,192,29,0,215,46,48,50 Line 6080: BEEP .02,29: GO TO VAL "6065".
46141 DEFB 14,123,35,215,10,61,44,50
46149 DEFB 57,14,0,0,29,0,0,58
46157 DEFB 236,176,34,54,48,54,53,34
46165 DEFB 13
46166 DEFB 27,88,14,0,218,176,34,55 Line 7000: PAPER VAL "7": INK VAL "9": CLS.
46174 DEFB 34,58,217,176,34,57,34,58
46182 DEFB 251,13
46184 DEFB 27,89,131,0,245,34,32,32 Line 7001: PRINT " ": PRINT " ": PRINT " ": PRINT " ".
46192 DEFB 32,140,136,140,136,32,132,140
46200 DEFB 32,32,140,32,140,136,132,140
46208 DEFB 140,140,32,140,140,140,136,132
46216 DEFB 140,140,34,58,245,34,32,32
46224 DEFB 32,133,132,133,32,32,138,32
46232 DEFB 138,32,133,134,133,32,133,32
46240 DEFB 138,133,32,133,32,32,138,32
46248 DEFB 138,32,134,34,58,245,34,32
46256 DEFB 32,32,133,133,133,32,32,139
46264 DEFB 131,138,32,133,133,133,32,32
46272 DEFB 32,138,32,32,133,131,130,136
46280 DEFB 32,138,32,133,34,58,245,34
46288 DEFB 32,32,32,133,130,135,32,132
46296 DEFB 142,132,142,32,141,136,135,32
46304 DEFB 32,132,142,32,32,141,140,140
46312 DEFB 138,132,142,140,130,34,13
46319 DEFB 27,93,203,0,245,172,55,14 Line 7005: PRINT AT 7,4;"DEAD";AT 7,23;"DEAD";AT 9,5;"OR";AT 9,24;"OR";AT 11,4;"ALIVE";AT 11,23;"ALIVE";AT 13,4;"$";R(L);AT 13,23;"$";R(L).
46327 DEFB 0,0,7,0,0,44,52,14
46335 DEFB 0,0,4,0,0,59,34,68
46343 DEFB 69,65,68,34,59,172,55,14
46351 DEFB 0,0,7,0,0,44,50,51
46359 DEFB 14,0,0,23,0,0,59,34
46367 DEFB 68,69,65,68,34,59,172,57
46375 DEFB 14,0,0,9,0,0,44,53
46383 DEFB 14,0,0,5,0,0,59,34
46391 DEFB 79,82,34,59,172,57,14,0
46399 DEFB 0,9,0,0,44,50,52,14
46407 DEFB 0,0,24,0,0,59,34,79
46415 DEFB 82,34,59,172,49,49,14,0
46423 DEFB 0,11,0,0,44,52,14,0
46431 DEFB 0,4,0,0,59,34,65,76
46439 DEFB 73,86,69,34,59,172,49,49
46447 DEFB 14,0,0,11,0,0,44,50
46455 DEFB 51,14,0,0,23,0,0,59
46463 DEFB 34,65,76,73,86,69,34,59
46471 DEFB 172,49,51,14,0,0,13,0
46479 DEFB 0,44,52,14,0,0,4,0
46487 DEFB 0,59,34,36,34,59,82,40
46495 DEFB 76,41,59,172,49,51,14,0
46503 DEFB 0,13,0,0,44,50,51,14
46511 DEFB 0,0,23,0,0,59,34,36
46519 DEFB 34,59,82,40,76,41,13
46526 DEFB 27,98,62,1,246,49,49,55 Line 7010: PLOT 117,135: DRAW -7,-17: DRAW 18,-10: DRAW O,15: DRAW 10,12: DRAW 8,-17: DRAW -18,-10: PLOT 127,123: DRAW -10,12: DRAW 10,-9: DRAW 11,9: PLOT 145,120: DRAW 15,-R: DRAW -32,-12: PLOT 127,106: DRAW -32,12: DRAW 15,R.
46534 DEFB 14,0,0,117,0,0,44,49
46542 DEFB 51,53,14,0,0,135,0,0
46550 DEFB 58,252,45,55,14,0,0,7
46558 DEFB 0,0,44,45,49,55,14,0
46566 DEFB 0,17,0,0,58,252,49,56
46574 DEFB 14,0,0,18,0,0,44,45
46582 DEFB 49,48,14,0,0,10,0,0
46590 DEFB 58,252,79,44,49,53,14,0
46598 DEFB 0,15,0,0,58,252,49,48
46606 DEFB 14,0,0,10,0,0,44,49
46614 DEFB 50,14,0,0,12,0,0,58
46622 DEFB 252,56,14,0,0,8,0,0
46630 DEFB 44,45,49,55,14,0,0,17
46638 DEFB 0,0,58,252,45,49,56,14
46646 DEFB 0,0,18,0,0,44,45,49
46654 DEFB 48,14,0,0,10,0,0,58
46662 DEFB 246,49,50,55,14,0,0,127
46670 DEFB 0,0,44,49,50,51,14,0
46678 DEFB 0,123,0,0,58,252,45,49
46686 DEFB 48,14,0,0,10,0,0,44
46694 DEFB 49,50,14,0,0,12,0,0
46702 DEFB 58,252,49,48,14,0,0,10
46710 DEFB 0,0,44,45,57,14,0,0
46718 DEFB 9,0,0,58,252,49,49,14
46726 DEFB 0,0,11,0,0,44,57,14
46734 DEFB 0,0,9,0,0,58,246,49
46742 DEFB 52,53,14,0,0,145,0,0
46750 DEFB 44,49,50,48,14,0,0,120
46758 DEFB 0,0,58,252,49,53,14,0
46766 DEFB 0,15,0,0,44,45,82,58
46774 DEFB 252,45,51,50,14,0,0,32
46782 DEFB 0,0,44,45,49,50,14,0
46790 DEFB 0,12,0,0,58,246,49,50
46798 DEFB 55,14,0,0,127,0,0,44
46806 DEFB 49,48,54,14,0,0,106,0
46814 DEFB 0,58,252,45,51,50,14,0
46822 DEFB 0,32,0,0,44,49,50,14
46830 DEFB 0,0,12,0,0,58,252,49
46838 DEFB 53,14,0,0,15,0,0,44
46846 DEFB 82,13
46848 DEFB 27,103,70,0,246,176,34,49 Line 7015: PLOT VAL "111",VAL "112": DRAW VAL "6",VAL "-30": PLOT VAL "145",VAL "112": DRAW VAL "-6",VAL "-30": DRAW VAL "-22",O,-PI.
46856 DEFB 49,49,34,44,176,34,49,49
46864 DEFB 50,34,58,252,176,34,54,34
46872 DEFB 44,176,34,45,51,48,34,58
46880 DEFB 246,176,34,49,52,53,34,44
46888 DEFB 176,34,49,49,50,34,58,252
46896 DEFB 176,34,45,54,34,44,176,34
46904 DEFB 45,51,48,34,58,252,176,34
46912 DEFB 45,50,50,34,44,79,44,45
46920 DEFB 167,13
46922 DEFB 27,108,68,0,250,68,36,40 Line 7020: IF D$(L)<>"NO RIGHT EAR......." THEN PLOT VAL "112",VAL "108": DRAW VAL "-4",O,PI: DRAW VAL "6",VAL "-13".
46930 DEFB 76,41,201,34,78,79,32,82
46938 DEFB 73,71,72,84,32,69,65,82
46946 DEFB 46,46,46,46,46,46,46,34
46954 DEFB 203,246,176,34,49,49,50,34
46962 DEFB 44,176,34,49,48,56,34,58
46970 DEFB 252,176,34,45,52,34,44,79
46978 DEFB 44,167,58,252,176,34,54,34
46986 DEFB 44,176,34,45,49,51,34,13
46994 DEFB 27,113,69,0,250,68,36,40 Line 7025: IF D$(L)<>"NO LEFT EAR........" THEN PLOT VAL "144",VAL "108": DRAW VAL "4",O,-PI: DRAW VAL "-6",VAL "-13".
47002 DEFB 76,41,201,34,78,79,32,76
47010 DEFB 69,70,84,32,69,65,82,46
47018 DEFB 46,46,46,46,46,46,46,34
47026 DEFB 203,246,176,34,49,52,52,34
47034 DEFB 44,176,34,49,48,56,34,58
47042 DEFB 252,176,34,52,34,44,79,44
47050 DEFB 45,167,58,252,176,34,45,54
47058 DEFB 34,44,176,34,45,49,51,34
47066 DEFB 13
47067 DEFB 27,118,51,0,246,176,34,49 Line 7030: PLOT VAL "132",VAL "82": PLOT VAL "131",VAL "83": DRAW VAL "-7",O: PLOT VAL "123",VAL "82".
47075 DEFB 51,50,34,44,176,34,56,50
47083 DEFB 34,58,246,176,34,49,51,49
47091 DEFB 34,44,176,34,56,51,34,58
47099 DEFB 252,176,34,45,55,34,44,79
47107 DEFB 58,246,176,34,49,50,51,34
47115 DEFB 44,176,34,56,50,34,13
47122 DEFB 27,123,99,0,246,176,34,49 Line 7035: PLOT VAL "126",VAL "90": PLOT VAL "128",VAL "90": PLOT VAL "127",VAL "92": PLOT VAL "127",VAL "95": PLOT VAL "127",VAL "97": PLOT VAL "127",VAL "98": PLOT VAL "127",VAL "101".
47130 DEFB 50,54,34,44,176,34,57,48
47138 DEFB 34,58,246,176,34,49,50,56
47146 DEFB 34,44,176,34,57,48,34,58
47154 DEFB 246,176,34,49,50,55,34,44
47162 DEFB 176,34,57,50,34,58,246,176
47170 DEFB 34,49,50,55,34,44,176,34
47178 DEFB 57,53,34,58,246,176,34,49
47186 DEFB 50,55,34,44,176,34,57,55
47194 DEFB 34,58,246,176,34,49,50,55
47202 DEFB 34,44,176,34,57,56,34,58
47210 DEFB 246,176,34,49,50,55,34,44
47218 DEFB 176,34,49,48,49,34,13
47225 DEFB 27,128,83,0,246,176,34,49 Line 7040: PLOT VAL "116",VAL "104": PLOT VAL "116",VAL "105": DRAW VAL "3",O: PLOT VAL "119",VAL "104": PLOT VAL "120",VAL "104": PLOT VAL "119",VAL "105".
47233 DEFB 49,54,34,44,176,34,49,48
47241 DEFB 52,34,58,246,176,34,49,49
47249 DEFB 54,34,44,176,34,49,48,53
47257 DEFB 34,58,252,176,34,51,34,44
47265 DEFB 79,58,246,176,34,49,49,57
47273 DEFB 34,44,176,34,49,48,52,34
47281 DEFB 58,246,176,34,49,50,48,34
47289 DEFB 44,176,34,49,48,52,34,58
47297 DEFB 246,176,34,49,49,57,34,44
47305 DEFB 176,34,49,48,53,34,13
47312 DEFB 27,133,84,0,246,176,34,49 Line 7045: PLOT VAL "138",VAL "105": DRAW VAL "-3",O: PLOT VAL "136",VAL "104": DRAW VAL "-3",0: PLOT VAL "135",VAL "106": PLOT VAL "139",VAL "104".
47320 DEFB 51,56,34,44,176,34,49,48
47328 DEFB 53,34,58,252,176,34,45,51
47336 DEFB 34,44,79,58,246,176,34,49
47344 DEFB 51,54,34,44,176,34,49,48
47352 DEFB 52,34,58,252,176,34,45,51
47360 DEFB 34,44,48,14,0,0,0,0
47368 DEFB 0,58,246,176,34,49,51,53
47376 DEFB 34,44,176,34,49,48,54,34
47384 DEFB 58,246,176,34,49,51,57,34
47392 DEFB 44,176,34,49,48,52,34,13
47400 DEFB 27,138,76,0,246,176,34,49 Line 7050: PLOT VAL "134",VAL "101": DRAW VAL "3",O: PLOT VAL "133",VAL "102": PLOT VAL "123",VAL "102": PLOT VAL "119",VAL "101": DRAW VAL "3",O.
47408 DEFB 51,52,34,44,176,34,49,48
47416 DEFB 49,34,58,252,176,34,51,34
47424 DEFB 44,79,58,246,176,34,49,51
47432 DEFB 51,34,44,176,34,49,48,50
47440 DEFB 34,58,246,176,34,49,50,51
47448 DEFB 34,44,176,34,49,48,50,34
47456 DEFB 58,246,176,34,49,49,57,34
47464 DEFB 44,176,34,49,48,49,34,58
47472 DEFB 252,176,34,51,34,44,79,13
47480 DEFB 27,143,211,0,250,68,36,40 Line 7055: IF D$(L)<>"NO EYEBROWS........" THEN PLOT VAL "132",VAL "105": PLOT VAL "131",VAL "105": PLOT VAL "131",VAL "104": PLOT VAL "135",VAL "107": DRAW VAL "4",O: PLOT VAL "132",VAL "106": DRAW VAL "4",O: PLOT VAL "123",VAL "104": PLOT VAL "123",VAL "105": PLOT VAL "122",VAL "105": PLOT VAL "119",VAL "106": DRAW VAL "4",O: PLOT VAL "116",VAL "107": DRAW VAL "5",O.
47488 DEFB 76,41,201,34,78,79,32,69
47496 DEFB 89,69,66,82,79,87,83,46
47504 DEFB 46,46,46,46,46,46,46,34
47512 DEFB 203,246,176,34,49,51,50,34
47520 DEFB 44,176,34,49,48,53,34,58
47528 DEFB 246,176,34,49,51,49,34,44
47536 DEFB 176,34,49,48,53,34,58,246
47544 DEFB 176,34,49,51,49,34,44,176
47552 DEFB 34,49,48,52,34,58,246,176
47560 DEFB 34,49,51,53,34,44,176,34
47568 DEFB 49,48,55,34,58,252,176,34
47576 DEFB 52,34,44,79,58,246,176,34
47584 DEFB 49,51,50,34,44,176,34,49
47592 DEFB 48,54,34,58,252,176,34,52
47600 DEFB 34,44,79,58,246,176,34,49
47608 DEFB 50,51,34,44,176,34,49,48
47616 DEFB 52,34,58,246,176,34,49,50
47624 DEFB 51,34,44,176,34,49,48,53
47632 DEFB 34,58,246,176,34,49,50,50
47640 DEFB 34,44,176,34,49,48,53,34
47648 DEFB 58,246,176,34,49,49,57,34
47656 DEFB 44,176,34,49,48,54,34,58
47664 DEFB 252,176,34,52,34,44,79,58
47672 DEFB 246,176,34,49,49,54,34,44
47680 DEFB 176,34,49,48,55,34,58,252
47688 DEFB 176,34,53,34,44,79,13
47695 DEFB 27,148,138,0,246,176,34,49 Line 7060: PLOT VAL "114",VAL "95": DRAW O,VAL "16": PLOT VAL "113",VAL "98": DRAW O,VAL "13": PLOT VAL "112",VAL "105": DRAW O,VAL "7": PLOT VAL "142",VAL "96": DRAW O,VAL "15": PLOT VAL "143",VAL "98": DRAW O,VAL "13": PLOT VAL "144",VAL "105": DRAW O,VAL "7".
47703 DEFB 49,52,34,44,176,34,57,53
47711 DEFB 34,58,252,79,44,176,34,49
47719 DEFB 54,34,58,246,176,34,49,49
47727 DEFB 51,34,44,176,34,57,56,34
47735 DEFB 58,252,79,44,176,34,49,51
47743 DEFB 34,58,246,176,34,49,49,50
47751 DEFB 34,44,176,34,49,48,53,34
47759 DEFB 58,252,79,44,176,34,55,34
47767 DEFB 58,246,176,34,49,52,50,34
47775 DEFB 44,176,34,57,54,34,58,252
47783 DEFB 79,44,176,34,49,53,34,58
47791 DEFB 246,176,34,49,52,51,34,44
47799 DEFB 176,34,57,56,34,58,252,79
47807 DEFB 44,176,34,49,51,34,58,246
47815 DEFB 176,34,49,52,52,34,44,176
47823 DEFB 34,49,48,53,34,58,252,79
47831 DEFB 44,176,34,55,34,13
47837 DEFB 27,153,177,1,246,49,51,56 Line 7065: PLOT 138,70: DRAW O,10: PLOT 117,70: DRAW O,11: PLOT 100,64: DRAW 14,O: DRAW O,6: PLOT 116,71: PLOT 115,71: DRAW 8,-4: DRAW O,-9: PLOT 121,66: PLOT 120,65: DRAW O,-3: PLOT 119,61: PLOT 118,61: DRAW -3,3: PLOT 132,58: DRAW O,9: DRAW 7,3: PLOT 133,67: DRAW 3,-6: DRAW 4,3: DRAW O,5: PLOT 140,64: DRAW 12,O.
47845 DEFB 14,0,0,138,0,0,44,55
47853 DEFB 48,14,0,0,70,0,0,58
47861 DEFB 252,79,44,49,48,14,0,0
47869 DEFB 10,0,0,58,246,49,49,55
47877 DEFB 14,0,0,117,0,0,44,55
47885 DEFB 48,14,0,0,70,0,0,58
47893 DEFB 252,79,44,49,49,14,0,0
47901 DEFB 11,0,0,58,246,49,48,48
47909 DEFB 14,0,0,100,0,0,44,54
47917 DEFB 52,14,0,0,64,0,0,58
47925 DEFB 252,49,52,14,0,0,14,0
47933 DEFB 0,44,79,58,252,79,44,54
47941 DEFB 14,0,0,6,0,0,58,246
47949 DEFB 49,49,54,14,0,0,116,0
47957 DEFB 0,44,55,49,14,0,0,71
47965 DEFB 0,0,58,246,49,49,53,14
47973 DEFB 0,0,115,0,0,44,55,49
47981 DEFB 14,0,0,71,0,0,58,252
47989 DEFB 56,14,0,0,8,0,0,44
47997 DEFB 45,52,14,0,0,4,0,0
48005 DEFB 58,252,79,44,45,57,14,0
48013 DEFB 0,9,0,0,58,246,49,50
48021 DEFB 49,14,0,0,121,0,0,44
48029 DEFB 54,54,14,0,0,66,0,0
48037 DEFB 58,246,49,50,48,14,0,0
48045 DEFB 120,0,0,44,54,53,14,0
48053 DEFB 0,65,0,0,58,252,79,44
48061 DEFB 45,51,14,0,0,3,0,0
48069 DEFB 58,246,49,49,57,14,0,0
48077 DEFB 119,0,0,44,54,49,14,0
48085 DEFB 0,61,0,0,58,246,49,49
48093 DEFB 56,14,0,0,118,0,0,44
48101 DEFB 54,49,14,0,0,61,0,0
48109 DEFB 58,252,45,51,14,0,0,3
48117 DEFB 0,0,44,51,14,0,0,3
48125 DEFB 0,0,58,246,49,51,50,14
48133 DEFB 0,0,132,0,0,44,53,56
48141 DEFB 14,0,0,58,0,0,58,252
48149 DEFB 79,44,57,14,0,0,9,0
48157 DEFB 0,58,252,55,14,0,0,7
48165 DEFB 0,0,44,51,14,0,0,3
48173 DEFB 0,0,58,246,49,51,51,14
48181 DEFB 0,0,133,0,0,44,54,55
48189 DEFB 14,0,0,67,0,0,58,252
48197 DEFB 51,14,0,0,3,0,0,44
48205 DEFB 45,54,14,0,0,6,0,0
48213 DEFB 58,252,52,14,0,0,4,0
48221 DEFB 0,44,51,14,0,0,3,0
48229 DEFB 0,58,252,79,44,53,14,0
48237 DEFB 0,5,0,0,58,246,49,52
48245 DEFB 48,14,0,0,140,0,0,44
48253 DEFB 54,52,14,0,0,64,0,0
48261 DEFB 58,252,49,50,14,0,0,12
48269 DEFB 0,0,44,79,13
48274 DEFB 27,158,66,0,250,68,36,40 Line 7070: IF D$(L)="SCAR ON RIGHT CHEEK" THEN PLOT 119,89: DRAW 3,7.
48282 DEFB 76,41,61,34,83,67,65,82
48290 DEFB 32,79,78,32,82,73,71,72
48298 DEFB 84,32,67,72,69,69,75,34
48306 DEFB 203,246,49,49,57,14,0,0
48314 DEFB 119,0,0,44,56,57,14,0
48322 DEFB 0,89,0,0,58,252,51,14
48330 DEFB 0,0,3,0,0,44,55,14
48338 DEFB 0,0,7,0,0,13
48344 DEFB 27,163,67,0,250,68,36,40 Line 7075: IF D$(L)="SCAR ON LEFT CHEEK." THEN PLOT 136,89: DRAW -3,7.
48352 DEFB 76,41,61,34,83,67,65,82
48360 DEFB 32,79,78,32,76,69,70,84
48368 DEFB 32,67,72,69,69,75,46,34
48376 DEFB 203,246,49,51,54,14,0,0
48384 DEFB 136,0,0,44,56,57,14,0
48392 DEFB 0,89,0,0,58,252,45,51
48400 DEFB 14,0,0,3,0,0,44,55
48408 DEFB 14,0,0,7,0,0,13
48415 DEFB 27,168,113,0,250,68,36,40 Line 7080: IF D$(L)="A LEFT EARING......" THEN PLOT 147,104: PLOT 148,103: PLOT 148,102: PLOT 147,101.
48423 DEFB 76,41,61,34,65,32,76,69
48431 DEFB 70,84,32,69,65,82,73,78
48439 DEFB 71,46,46,46,46,46,46,34
48447 DEFB 203,246,49,52,55,14,0,0
48455 DEFB 147,0,0,44,49,48,52,14
48463 DEFB 0,0,104,0,0,58,246,49
48471 DEFB 52,56,14,0,0,148,0,0
48479 DEFB 44,49,48,51,14,0,0,103
48487 DEFB 0,0,58,246,49,52,56,14
48495 DEFB 0,0,148,0,0,44,49,48
48503 DEFB 50,14,0,0,102,0,0,58
48511 DEFB 246,49,52,55,14,0,0,147
48519 DEFB 0,0,44,49,48,49,14,0
48527 DEFB 0,101,0,0,13
48532 DEFB 27,173,113,0,250,68,36,40 Line 7085: IF D$(L)="A RIGHT EARING....." THEN PLOT 109,103: PLOT 109,101: PLOT 108,102: PLOT 108,103.
48540 DEFB 76,41,61,34,65,32,82,73
48548 DEFB 71,72,84,32,69,65,82,73
48556 DEFB 78,71,46,46,46,46,46,34
48564 DEFB 203,246,49,48,57,14,0,0
48572 DEFB 109,0,0,44,49,48,51,14
48580 DEFB 0,0,103,0,0,58,246,49
48588 DEFB 48,57,14,0,0,109,0,0
48596 DEFB 44,49,48,49,14,0,0,101
48604 DEFB 0,0,58,246,49,48,56,14
48612 DEFB 0,0,108,0,0,44,49,48
48620 DEFB 50,14,0,0,102,0,0,58
48628 DEFB 246,49,48,56,14,0,0,108
48636 DEFB 0,0,44,49,48,51,14,0
48644 DEFB 0,103,0,0,13
48649 DEFB 27,178,42,1,250,68,36,40 Line 7090: IF D$(L)="A MOUSTACHE........" THEN PLOT 128,87: DRAW 4,O: PLOT 128,86: DRAW 4,O: PLOT 128,85: DRAW 5,O: PLOT 134,84: PLOT 133,84: PLOT 126,87: DRAW -3,O: PLOT 126,86: DRAW -4,O: PLOT 126,85: DRAW -4,O: PLOT 121,84: PLOT 122,84.
48657 DEFB 76,41,61,34,65,32,77,79
48665 DEFB 85,83,84,65,67,72,69,46
48673 DEFB 46,46,46,46,46,46,46,34
48681 DEFB 203,246,49,50,56,14,0,0
48689 DEFB 128,0,0,44,56,55,14,0
48697 DEFB 0,87,0,0,58,252,52,14
48705 DEFB 0,0,4,0,0,44,79,58
48713 DEFB 246,49,50,56,14,0,0,128
48721 DEFB 0,0,44,56,54,14,0,0
48729 DEFB 86,0,0,58,252,52,14,0
48737 DEFB 0,4,0,0,44,79,58,246
48745 DEFB 49,50,56,14,0,0,128,0
48753 DEFB 0,44,56,53,14,0,0,85
48761 DEFB 0,0,58,252,53,14,0,0
48769 DEFB 5,0,0,44,79,58,246,49
48777 DEFB 51,52,14,0,0,134,0,0
48785 DEFB 44,56,52,14,0,0,84,0
48793 DEFB 0,58,246,49,51,51,14,0
48801 DEFB 0,133,0,0,44,56,52,14
48809 DEFB 0,0,84,0,0,58,246,49
48817 DEFB 50,54,14,0,0,126,0,0
48825 DEFB 44,56,55,14,0,0,87,0
48833 DEFB 0,58,252,45,51,14,0,0
48841 DEFB 3,0,0,44,79,58,246,49
48849 DEFB 50,54,14,0,0,126,0,0
48857 DEFB 44,56,54,14,0,0,86,0
48865 DEFB 0,58,252,45,52,14,0,0
48873 DEFB 4,0,0,44,79,58,246,49
48881 DEFB 50,54,14,0,0,126,0,0
48889 DEFB 44,56,53,14,0,0,85,0
48897 DEFB 0,58,252,45,52,14,0,0
48905 DEFB 4,0,0,44,79,58,246,49
48913 DEFB 50,49,14,0,0,121,0,0
48921 DEFB 44,56,52,14,0,0,84,0
48929 DEFB 0,58,246,49,50,50,14,0
48937 DEFB 0,122,0,0,44,56,52,14
48945 DEFB 0,0,84,0,0,13
48951 DEFB 27,183,40,1,250,68,36,40 Line 7095: IF D$(L)="PATCH ON LEFT EYE.." THEN PLOT 132,101: DRAW 5,O: PLOT 132,102: DRAW 6,O: PLOT 132,103: DRAW 7,O: PLOT 132,104: DRAW 7,O: PLOT 129,105: DRAW 10,O: PLOT 133,106: DRAW 6,O: PLOT 135,107: DRAW 4,O: PLOT 140,108: PLOT 141,108.
48959 DEFB 76,41,61,34,80,65,84,67
48967 DEFB 72,32,79,78,32,76,69,70
48975 DEFB 84,32,69,89,69,46,46,34
48983 DEFB 203,246,49,51,50,14,0,0
48991 DEFB 132,0,0,44,49,48,49,14
48999 DEFB 0,0,101,0,0,58,252,53
49007 DEFB 14,0,0,5,0,0,44,79
49015 DEFB 58,246,49,51,50,14,0,0
49023 DEFB 132,0,0,44,49,48,50,14
49031 DEFB 0,0,102,0,0,58,252,54
49039 DEFB 14,0,0,6,0,0,44,79
49047 DEFB 58,246,49,51,50,14,0,0
49055 DEFB 132,0,0,44,49,48,51,14
49063 DEFB 0,0,103,0,0,58,252,55
49071 DEFB 14,0,0,7,0,0,44,79
49079 DEFB 58,246,49,51,50,14,0,0
49087 DEFB 132,0,0,44,49,48,52,14
49095 DEFB 0,0,104,0,0,58,252,55
49103 DEFB 14,0,0,7,0,0,44,79
49111 DEFB 58,246,49,50,57,14,0,0
49119 DEFB 129,0,0,44,49,48,53,14
49127 DEFB 0,0,105,0,0,58,252,49
49135 DEFB 48,14,0,0,10,0,0,44
49143 DEFB 79,58,246,49,51,51,14,0
49151 DEFB 0,133,0,0,44,49,48,54
49159 DEFB 14,0,0,106,0,0,58,252
49167 DEFB 54,14,0,0,6,0,0,44
49175 DEFB 79,58,246,49,51,53,14,0
49183 DEFB 0,135,0,0,44,49,48,55
49191 DEFB 14,0,0,107,0,0,58,252
49199 DEFB 52,14,0,0,4,0,0,44
49207 DEFB 79,58,246,49,52,48,14,0
49215 DEFB 0,140,0,0,44,49,48,56
49223 DEFB 14,0,0,108,0,0,58,246
49231 DEFB 49,52,49,14,0,0,141,0
49239 DEFB 0,44,49,48,56,14,0,0
49247 DEFB 108,0,0,13
49251 DEFB 27,188,254,0,250,68,36,40 Line 7100: IF D$(L)="PATCH ON RIGHT EYE." THEN PLOT 115,107: DRAW 6,O: PLOT 116,106: DRAW 10,O: PLOT 116,105: DRAW 7,O: PLOT 116,104: DRAW 7,O: PLOT 116,103: DRAW 7,O: PLOT 116,102: DRAW 7,O: PLOT 117,101: DRAW 5,O.
49259 DEFB 76,41,61,34,80,65,84,67
49267 DEFB 72,32,79,78,32,82,73,71
49275 DEFB 72,84,32,69,89,69,46,34
49283 DEFB 203,246,49,49,53,14,0,0
49291 DEFB 115,0,0,44,49,48,55,14
49299 DEFB 0,0,107,0,0,58,252,54
49307 DEFB 14,0,0,6,0,0,44,79
49315 DEFB 58,246,49,49,54,14,0,0
49323 DEFB 116,0,0,44,49,48,54,14
49331 DEFB 0,0,106,0,0,58,252,49
49339 DEFB 48,14,0,0,10,0,0,44
49347 DEFB 79,58,246,49,49,54,14,0
49355 DEFB 0,116,0,0,44,49,48,53
49363 DEFB 14,0,0,105,0,0,58,252
49371 DEFB 55,14,0,0,7,0,0,44
49379 DEFB 79,58,246,49,49,54,14,0
49387 DEFB 0,116,0,0,44,49,48,52
49395 DEFB 14,0,0,104,0,0,58,252
49403 DEFB 55,14,0,0,7,0,0,44
49411 DEFB 79,58,246,49,49,54,14,0
49419 DEFB 0,116,0,0,44,49,48,51
49427 DEFB 14,0,0,103,0,0,58,252
49435 DEFB 55,14,0,0,7,0,0,44
49443 DEFB 79,58,246,49,49,54,14,0
49451 DEFB 0,116,0,0,44,49,48,50
49459 DEFB 14,0,0,102,0,0,58,252
49467 DEFB 55,14,0,0,7,0,0,44
49475 DEFB 79,58,246,49,49,55,14,0
49483 DEFB 0,117,0,0,44,49,48,49
49491 DEFB 14,0,0,101,0,0,58,252
49499 DEFB 53,14,0,0,5,0,0,44
49507 DEFB 79,13
49509 DEFB 27,193,73,0,241,76,36,61 Line 7105: LET L$="SEE PICTURE": IF D$(L)="A LIMP IN LEFT LEG." THEN LET L$="LIMPS WITH LEFT LEG".
49517 DEFB 34,83,69,69,32,80,73,67
49525 DEFB 84,85,82,69,34,58,250,68
49533 DEFB 36,40,76,41,61,34,65,32
49541 DEFB 76,73,77,80,32,73,78,32
49549 DEFB 76,69,70,84,32,76,69,71
49557 DEFB 46,34,203,241,76,36,61,34
49565 DEFB 76,73,77,80,83,32,87,73
49573 DEFB 84,72,32,76,69,70,84,32
49581 DEFB 76,69,71,34,13
49586 DEFB 27,195,56,0,250,68,36,40 Line 7107: IF D$(L)="A LIMP IN RIGHT LEG" THEN LET L$="LIMPS WITH RIGHT LEG".
49594 DEFB 76,41,61,34,65,32,76,73
49602 DEFB 77,80,32,73,78,32,82,73
49610 DEFB 71,72,84,32,76,69,71,34
49618 DEFB 203,241,76,36,61,34,76,73
49626 DEFB 77,80,83,32,87,73,84,72
49634 DEFB 32,82,73,71,72,84,32,76
49642 DEFB 69,71,34,13
49646 DEFB 27,198,150,0,250,76,61,82 Line 7110: IF L=R THEN PRINT AT 15,9;B$(L);TAB 6;"ALIAS-THE SUNDANCE KID"," FOR-MURDER:HORSE AND CATTLE RUSTLING:BANK AND TRAIN ROBBERY",,,"DESCRIPTION-";L$.
49654 DEFB 203,245,172,49,53,14,0,0
49662 DEFB 15,0,0,44,57,14,0,0
49670 DEFB 9,0,0,59,66,36,40,76
49678 DEFB 41,59,173,54,14,0,0,6
49686 DEFB 0,0,59,34,65,76,73,65
49694 DEFB 83,45,84,72,69,32,83,85
49702 DEFB 78,68,65,78,67,69,32,75
49710 DEFB 73,68,34,44,34,32,32,70
49718 DEFB 79,82,45,77,85,82,68,69
49726 DEFB 82,58,72,79,82,83,69,32
49734 DEFB 65,78,68,32,67,65,84,84
49742 DEFB 76,69,32,32,32,82,85,83
49750 DEFB 84,76,73,78,71,58,66,65
49758 DEFB 78,75,32,65,78,68,32,84
49766 DEFB 82,65,73,78,32,82,79,66
49774 DEFB 66,69,82,89,34,44,44,44
49782 DEFB 34,68,69,83,67,82,73,80
49790 DEFB 84,73,79,78,45,34,59,76
49798 DEFB 36,13
49800 DEFB 27,203,148,0,250,76,61,51 Line 7115: IF L=3 THEN PRINT AT 15,10;B$(L);TAB 2;"ALIAS-KID CURRY:TOM CAPEHART: BOB NEVILLES";TAB 3;"FOR-MURDER:TRAIN ROBBERY",,,"DESCRIPTION-";L$.
49808 DEFB 14,0,0,3,0,0,203,245
49816 DEFB 172,49,53,14,0,0,15,0
49824 DEFB 0,44,49,48,14,0,0,10
49832 DEFB 0,0,59,66,36,40,76,41
49840 DEFB 59,173,50,14,0,0,2,0
49848 DEFB 0,59,34,65,76,73,65,83
49856 DEFB 45,75,73,68,32,67,85,82
49864 DEFB 82,89,58,84,79,77,32,67
49872 DEFB 65,80,69,72,65,82,84,58
49880 DEFB 32,32,66,79,66,32,78,69
49888 DEFB 86,73,76,76,69,83,34,59
49896 DEFB 173,51,14,0,0,3,0,0
49904 DEFB 59,34,70,79,82,45,77,85
49912 DEFB 82,68,69,82,58,84,82,65
49920 DEFB 73,78,32,82,79,66,66,69
49928 DEFB 82,89,34,44,44,44,34,68
49936 DEFB 69,83,67,82,73,80,84,73
49944 DEFB 79,78,45,34,59,76,36,13
49952 DEFB 27,208,148,0,250,76,61,53 Line 7120: IF L=5 THEN PRINT AT 15,9;B$(L): PRINT " ALIAS-THE TALL TEXAN:J.D.ROSE:","FOR:CATTLE RUSTLING:MURDER:FRAUDBANK AND TRAIN ROBBERY",,,"DESCRIPTION-";L$.
49960 DEFB 14,0,0,5,0,0,203,245
49968 DEFB 172,49,53,14,0,0,15,0
49976 DEFB 0,44,57,14,0,0,9,0
49984 DEFB 0,59,66,36,40,76,41,58
49992 DEFB 245,34,32,65,76,73,65,83
50000 DEFB 45,84,72,69,32,84,65,76
50008 DEFB 76,32,84,69,88,65,78,58
50016 DEFB 74,46,68,46,82,79,83,69
50024 DEFB 58,34,44,34,70,79,82,58
50032 DEFB 67,65,84,84,76,69,32,82
50040 DEFB 85,83,84,76,73,78,71,58
50048 DEFB 77,85,82,68,69,82,58,70
50056 DEFB 82,65,85,68,66,65,78,75
50064 DEFB 32,65,78,68,32,84,82,65
50072 DEFB 73,78,32,82,79,66,66,69
50080 DEFB 82,89,34,44,44,44,34,68
50088 DEFB 69,83,67,82,73,80,84,73
50096 DEFB 79,78,45,34,59,76,36,13
50104 DEFB 27,213,151,0,250,76,61,85 Line 7125: IF L=U THEN PRINT AT 15,10;B$(L)," ALIAS-BUTCH CASSIDY:JIM LOWE"," FOR-HORSE AND CATTLE RUSTLING"," TRAIN,BANK AND PAYROLL ROBBERY",,,"DESCRIPTION-";L$.
50112 DEFB 203,245,172,49,53,14,0,0
50120 DEFB 15,0,0,44,49,48,14,0
50128 DEFB 0,10,0,0,59,66,36,40
50136 DEFB 76,41,44,34,32,32,65,76
50144 DEFB 73,65,83,45,66,85,84,67
50152 DEFB 72,32,67,65,83,83,73,68
50160 DEFB 89,58,74,73,77,32,76,79
50168 DEFB 87,69,34,44,34,32,70,79
50176 DEFB 82,45,72,79,82,83,69,32
50184 DEFB 65,78,68,32,67,65,84,84
50192 DEFB 76,69,32,82,85,83,84,76
50200 DEFB 73,78,71,34,44,34,32,84
50208 DEFB 82,65,73,78,44,66,65,78
50216 DEFB 75,32,65,78,68,32,80,65
50224 DEFB 89,82,79,76,76,32,82,79
50232 DEFB 66,66,69,82,89,34,44,44
50240 DEFB 44,34,68,69,83,67,82,73
50248 DEFB 80,84,73,79,78,45,34,59
50256 DEFB 76,36,13
50259 DEFB 27,218,153,0,250,76,61,52 Line 7130: IF L=4 THEN PRINT AT 15,12;B$(L)," ALIAS-WILLIAM MCGUINNNESS"," FOR-MURDER:PAYROLL ROBBERY"," HORSE AND CATTLE RUSTLING",,,"DESCRIPTION-";L$.
50267 DEFB 14,0,0,4,0,0,203,245
50275 DEFB 172,49,53,14,0,0,15,0
50283 DEFB 0,44,49,50,14,0,0,12
50291 DEFB 0,0,59,66,36,40,76,41
50299 DEFB 44,34,32,32,32,32,65,76
50307 DEFB 73,65,83,45,87,73,76,76
50315 DEFB 73,65,77,32,77,67,71,85
50323 DEFB 73,78,78,78,69,83,83,34
50331 DEFB 44,34,32,32,32,70,79,82
50339 DEFB 45,77,85,82,68,69,82,58
50347 DEFB 80,65,89,82,79,76,76,32
50355 DEFB 82,79,66,66,69,82,89,34
50363 DEFB 44,34,32,32,32,32,72,79
50371 DEFB 82,83,69,32,65,78,68,32
50379 DEFB 67,65,84,84,76,69,32,82
50387 DEFB 85,83,84,76,73,78,71,34
50395 DEFB 44,44,44,34,68,69,83,67
50403 DEFB 82,73,80,84,73,79,78,45
50411 DEFB 34,59,76,36,13
50416 DEFB 27,228,34,0,238,34,32,32 Line 7140: INPUT " PRESS ENTER TO CONTINUE"; LINE H$.
50424 DEFB 32,80,82,69,83,83,32,69
50432 DEFB 78,84,69,82,32,84,79,32
50440 DEFB 67,79,78,84,73,78,85,69
50448 DEFB 34,59,202,72,36,13
50454 DEFB 27,233,11,0,236,53,48,49 Line 7145: GO TO 501.
50462 DEFB 14,0,0,245,1,0,13
50469 DEFB 29,76,31,0,241,67,83,61 Line 7500: LET CS=CS+VAL "50": LET TP=O: LET GF=O: LET L1=L.
50477 DEFB 67,83,43,176,34,53,48,34
50485 DEFB 58,241,84,80,61,79,58,241
50493 DEFB 71,70,61,79,58,241,76,49
50501 DEFB 61,76,13
50504 DEFB 29,86,36,0,241,76,61,186 Line 7510: LET L=INT (RND*5)+U: IF L=L1 THEN GO TO 7510.
50512 DEFB 40,165,42,53,14,0,0,5
50520 DEFB 0,0,41,43,85,58,250,76
50528 DEFB 61,76,49,203,236,55,53,49
50536 DEFB 48,14,0,0,86,29,0,13
50544 DEFB 29,91,20,0,250,86,40,76 Line 7515: IF V(L)<R THEN GO TO 7510.
50552 DEFB 41,60,82,203,236,55,53,49
50560 DEFB 48,14,0,0,86,29,0,13
50568 DEFB 29,96,64,0,250,76,61,77 Line 7520: IF L=MB AND V(U)+V(R)+V(INT PI)+V(4)+V(5)>6 THEN GO TO 7510.
50576 DEFB 66,198,86,40,85,41,43,86
50584 DEFB 40,82,41,43,86,40,186,167
50592 DEFB 41,43,86,40,52,14,0,0
50600 DEFB 4,0,0,41,43,86,40,53
50608 DEFB 14,0,0,5,0,0,41,62
50616 DEFB 54,14,0,0,6,0,0,203
50624 DEFB 236,55,53,49,48,14,0,0
50632 DEFB 86,29,0,13
50636 DEFB 29,101,7,0,241,84,78,61 Line 7525: LET TN=FL.
50644 DEFB 70,76,13
50647 DEFB 29,106,36,0,250,74,66,61 Line 7530: IF JB=O AND RND*5>4 THEN GO TO 7540.
50655 DEFB 79,198,165,42,53,14,0,0
50663 DEFB 5,0,0,62,52,14,0,0
50671 DEFB 4,0,0,203,236,55,53,52
50679 DEFB 48,14,0,0,116,29,0,13
50687 DEFB 29,108,34,0,241,73,83,61 Line 7532: LET IS=0: LET LM=LM+INT (RND*2)+U.
50695 DEFB 48,14,0,0,0,0,0,58
50703 DEFB 241,76,77,61,76,77,43,186
50711 DEFB 40,165,42,50,14,0,0,2
50719 DEFB 0,0,41,43,85,13
50725 DEFB 29,111,2,0,254,13 Line 7535: RETURN.
50731 DEFB 29,116,67,0,235,78,61,85 Line 7540: FOR N=U TO 5: IF V(N)=U THEN LET JB=N: LET R(N)=R(N)+50: LET V(N)=R: GO TO 7650.
50739 DEFB 204,53,14,0,0,5,0,0
50747 DEFB 58,250,86,40,78,41,61,85
50755 DEFB 203,241,74,66,61,78,58,241
50763 DEFB 82,40,78,41,61,82,40,78
50771 DEFB 41,43,53,48,14,0,0,50
50779 DEFB 0,0,58,241,86,40,78,41
50787 DEFB 61,82,58,236,55,54,53,48
50795 DEFB 14,0,0,226,29,0,13
50802 DEFB 29,121,3,0,243,78,13 Line 7545: NEXT N.
50809 DEFB 29,226,2,0,254,13 Line 7650: RETURN.
50815 DEFB 29,242,84,0,241,90,61,51 Line 7666: LET Z=3: BORDER U: PAPER U: CLS : PRINT TAB 6;"YOU ARE IN THE STORE": PRINT : FOR N=U TO 16: IF N>9 THEN LET Z=R.
50823 DEFB 14,0,0,3,0,0,58,231
50831 DEFB 85,58,218,85,58,251,58,245
50839 DEFB 173,54,14,0,0,6,0,0
50847 DEFB 59,34,89,79,85,32,65,82
50855 DEFB 69,32,73,78,32,84,72,69
50863 DEFB 32,83,84,79,82,69,34,58
50871 DEFB 245,58,235,78,61,85,204,49
50879 DEFB 54,14,0,0,16,0,0,58
50887 DEFB 250,78,62,57,14,0,0,9
50895 DEFB 0,0,203,241,90,61,82,13
50903 DEFB 29,243,41,0,215,46,49,14 Line 7667: BEEP .1,N: PRINT TAB Z;N;") ";K$(N);"$";K(N): NEXT N.
50911 DEFB 125,76,204,204,204,44,78,58
50919 DEFB 245,173,90,59,78,59,34,41
50927 DEFB 32,34,59,75,36,40,78,41
50935 DEFB 59,34,36,34,59,75,40,78
50943 DEFB 41,58,243,78,13
50948 DEFB 29,244,42,0,245,172,49,57 Line 7668: PRINT AT 19,9;"YOU HAVE $";MU;" ": PRINT.
50956 DEFB 14,0,0,19,0,0,44,57
50964 DEFB 14,0,0,9,0,0,59,34
50972 DEFB 89,79,85,32,72,65,86,69
50980 DEFB 32,36,34,59,77,85,59,34
50988 DEFB 32,32,34,58,245,13
50994 DEFB 29,245,45,0,245,218,50,14 Line 7669: PRINT PAPER 2;" WHICH ITEMS DO YOU REQUIRE? ".
51002 DEFB 0,0,2,0,0,59,34,32
51010 DEFB 32,87,72,73,67,72,32,73
51018 DEFB 84,69,77,83,32,68,79,32
51026 DEFB 89,79,85,32,82,69,81,85
51034 DEFB 73,82,69,63,32,32,32,34
51042 DEFB 13
51043 DEFB 29,246,89,0,238,34,32,32 Line 7670: INPUT " ENTER NUMBER (0 TO LEAVE) "; LINE E$: LET E$=E$+" ": IF CODE E$(U)>57 OR CODE E$(U)<48 THEN GO TO VAL "7670".
51051 DEFB 69,78,84,69,82,32,78,85
51059 DEFB 77,66,69,82,32,40,48,32
51067 DEFB 84,79,32,76,69,65,86,69
51075 DEFB 41,32,34,59,202,69,36,58
51083 DEFB 241,69,36,61,69,36,43,34
51091 DEFB 32,34,58,250,175,69,36,40
51099 DEFB 85,41,62,53,55,14,0,0
51107 DEFB 57,0,0,197,175,69,36,40
51115 DEFB 85,41,60,52,56,14,0,0
51123 DEFB 48,0,0,203,236,176,34,55
51131 DEFB 54,55,48,34,13
51136 DEFB 29,248,20,0,241,90,61,176 Line 7672: LET Z=VAL E$: IF Z=O THEN GO TO VAL "500".
51144 DEFB 69,36,58,250,90,61,79,203
51152 DEFB 236,176,34,53,48,48,34,13
51160 DEFB 29,251,21,0,250,90,62,49 Line 7675: IF Z>16 THEN GO TO VAL "7670".
51168 DEFB 54,14,0,0,16,0,0,203
51176 DEFB 236,176,34,55,54,55,48,34
51184 DEFB 13
51185 DEFB 30,0,52,0,215,46,50,14 Line 7680: BEEP .2,Z: BEEP .1,Z*-U: PRINT PAPER 1;AT 21,U;S$.
51193 DEFB 126,76,204,204,204,44,90,58
51201 DEFB 215,46,49,14,125,76,204,204
51209 DEFB 204,44,90,42,45,85,58,245
51217 DEFB 218,49,14,0,0,1,0,0
51225 DEFB 59,172,50,49,14,0,0,21
51233 DEFB 0,0,44,85,59,83,36,13
51241 DEFB 30,1,27,0,250,90,60,53 Line 7681: IF Z<5 AND I(Z)=U THEN GO TO VAL "7685".
51249 DEFB 14,0,0,5,0,0,198,73
51257 DEFB 40,90,41,61,85,203,236,176
51265 DEFB 34,55,54,56,53,34,13
51272 DEFB 30,2,27,0,250,90,61,55 Line 7682: IF Z=7 AND I(Z)=U THEN GO TO VAL "7685".
51280 DEFB 14,0,0,7,0,0,198,73
51288 DEFB 40,90,41,61,85,203,236,176
51296 DEFB 34,55,54,56,53,34,13
51303 DEFB 30,3,27,0,250,90,61,57 Line 7683: IF Z=9 AND I(Z)=U THEN GO TO VAL "7685".
51311 DEFB 14,0,0,9,0,0,198,73
51319 DEFB 40,90,41,61,85,203,236,176
51327 DEFB 34,55,54,56,53,34,13
51334 DEFB 30,4,9,0,236,176,34,55 Line 7684: GO TO VAL "7686".
51342 DEFB 54,56,54,34,13
51347 DEFB 30,5,129,0,245,172,50,49 Line 7685: PRINT AT 21,O;" YOU ALREADY HAVE ONE ": FOR N=-10 TO 30: BEEP .05,N: BEEP .05,N+R: NEXT N: PRINT AT 21,U;S$: GO TO 7668.
51355 DEFB 14,0,0,21,0,0,44,79
51363 DEFB 59,34,32,32,32,32,32,89
51371 DEFB 79,85,32,65,76,82,69,65
51379 DEFB 68,89,32,72,65,86,69,32
51387 DEFB 79,78,69,32,32,32,32,32
51395 DEFB 32,32,34,58,235,78,61,45
51403 DEFB 49,48,14,0,0,10,0,0
51411 DEFB 204,51,48,14,0,0,30,0
51419 DEFB 0,58,215,46,48,53,14,124
51427 DEFB 76,204,204,204,44,78,58,215
51435 DEFB 46,48,53,14,124,76,204,204
51443 DEFB 204,44,78,43,82,58,243,78
51451 DEFB 58,245,172,50,49,14,0,0
51459 DEFB 21,0,0,44,85,59,83,36
51467 DEFB 58,236,55,54,54,56,14,0
51475 DEFB 0,244,29,0,13
51480 DEFB 30,6,57,0,245,218,53,14 Line 7686: PRINT PAPER 5;AT 21,O;" HOW MANY WOULD YOU LIKE? ".
51488 DEFB 0,0,5,0,0,59,172,50
51496 DEFB 49,14,0,0,21,0,0,44
51504 DEFB 79,59,34,32,32,32,32,72
51512 DEFB 79,87,32,77,65,78,89,32
51520 DEFB 87,79,85,76,68,32,89,79
51528 DEFB 85,32,76,73,75,69,63,32
51536 DEFB 32,32,32,34,13
51541 DEFB 30,7,87,0,238,34,32,32 Line 7687: INPUT " ENTER QUANTITY REQUIRED "; LINE E$: LET E$=E$+" ": IF CODE E$(U)<47 OR CODE E$(U)>57 THEN GO TO VAL "7687".
51549 DEFB 69,78,84,69,82,32,81,85
51557 DEFB 65,78,84,73,84,89,32,82
51565 DEFB 69,81,85,73,82,69,68,32
51573 DEFB 34,59,202,69,36,58,241,69
51581 DEFB 36,61,69,36,43,34,32,34
51589 DEFB 58,250,175,69,36,40,85,41
51597 DEFB 60,52,55,14,0,0,47,0
51605 DEFB 0,197,175,69,36,40,85,41
51613 DEFB 62,53,55,14,0,0,57,0
51621 DEFB 0,203,236,176,34,55,54,56
51629 DEFB 55,34,13
51632 DEFB 30,10,21,0,241,81,61,176 Line 7690: LET Q=VAL E$: IF Q<=O THEN GO TO VAL "7668".
51640 DEFB 69,36,58,250,81,199,79,203
51648 DEFB 236,176,34,55,54,54,56,34
51656 DEFB 13
51657 DEFB 30,11,24,0,250,90,60,53 Line 7691: IF Z<5 AND Q>U THEN GO TO VAL "7695".
51665 DEFB 14,0,0,5,0,0,198,81
51673 DEFB 62,85,203,236,176,34,55,54
51681 DEFB 57,53,34,13
51685 DEFB 30,12,24,0,250,90,61,55 Line 7692: IF Z=7 AND Q>U THEN GO TO VAL "7695".
51693 DEFB 14,0,0,7,0,0,198,81
51701 DEFB 62,85,203,236,176,34,55,54
51709 DEFB 57,53,34,13
51713 DEFB 30,13,24,0,250,90,61,57 Line 7693: IF Z=9 AND Q>U THEN GO TO VAL "7695".
51721 DEFB 14,0,0,9,0,0,198,81
51729 DEFB 62,85,203,236,176,34,55,54
51737 DEFB 57,53,34,13
51741 DEFB 30,14,9,0,236,176,34,55 Line 7694: GO TO VAL "7696".
51749 DEFB 54,57,54,34,13
51754 DEFB 30,15,129,0,245,172,50,49 Line 7695: PRINT AT 21,O;" YOU CAN ONLY HAVE ONE ": FOR N=-10 TO 30: BEEP .05,N: BEEP .05,N+R: NEXT N: PRINT AT 21,U;S$: GO TO 7668.
51762 DEFB 14,0,0,21,0,0,44,79
51770 DEFB 59,34,32,32,32,32,32,89
51778 DEFB 79,85,32,67,65,78,32,79
51786 DEFB 78,76,89,32,72,65,86,69
51794 DEFB 32,79,78,69,32,32,32,32
51802 DEFB 32,32,34,58,235,78,61,45
51810 DEFB 49,48,14,0,0,10,0,0
51818 DEFB 204,51,48,14,0,0,30,0
51826 DEFB 0,58,215,46,48,53,14,124
51834 DEFB 76,204,204,204,44,78,58,215
51842 DEFB 46,48,53,14,124,76,204,204
51850 DEFB 204,44,78,43,82,58,243,78
51858 DEFB 58,245,172,50,49,14,0,0
51866 DEFB 21,0,0,44,85,59,83,36
51874 DEFB 58,236,55,54,54,56,14,0
51882 DEFB 0,244,29,0,13
51887 DEFB 30,16,84,0,250,77,85,60 Line 7696: IF MU<Q*K(Z) THEN PRINT FLASH U;AT 21,U;" YOU CAN'T AFFORD IT! ": GO SUB 9231: GO TO 7668.
51895 DEFB 81,42,75,40,90,41,203,245
51903 DEFB 219,85,59,172,50,49,14,0
51911 DEFB 0,21,0,0,44,85,59,34
51919 DEFB 32,32,32,32,32,32,89,79
51927 DEFB 85,32,67,65,78,39,84,32
51935 DEFB 65,70,70,79,82,68,32,73
51943 DEFB 84,33,32,32,32,32,34,58
51951 DEFB 237,57,50,51,49,14,0,0
51959 DEFB 15,36,0,58,236,55,54,54
51967 DEFB 56,14,0,0,244,29,0,13
51975 DEFB 30,20,76,0,250,90,61,56 Line 7700: IF Z=8 OR Z=6 OR Z=5 THEN LET I(Z)=I(Z)+Q*50: LET MU=MU-Q*K(Z): GO TO VAL "7710".
51983 DEFB 14,0,0,8,0,0,197,90
51991 DEFB 61,54,14,0,0,6,0,0
51999 DEFB 197,90,61,53,14,0,0,5
52007 DEFB 0,0,203,241,73,40,90,41
52015 DEFB 61,73,40,90,41,43,81,42
52023 DEFB 53,48,14,0,0,50,0,0
52031 DEFB 58,241,77,85,61,77,85,45
52039 DEFB 81,42,75,40,90,41,58,236
52047 DEFB 176,34,55,55,49,48,34,13
52055 DEFB 30,25,27,0,241,77,85,61 Line 7705: LET MU=MU-Q*K(Z): LET I(Z)=I(Z)+Q.
52063 DEFB 77,85,45,81,42,75,40,90
52071 DEFB 41,58,241,73,40,90,41,61
52079 DEFB 73,40,90,41,43,81,13
52086 DEFB 30,30,47,0,215,46,51,14 Line 7710: BEEP .3,20: BEEP .3,30: GO TO VAL "7668".
52094 DEFB 127,25,153,153,153,44,50,48
52102 DEFB 14,0,0,20,0,0,58,215
52110 DEFB 46,51,14,127,25,153,153,153
52118 DEFB 44,51,48,14,0,0,30,0
52126 DEFB 0,58,236,176,34,55,54,54
52134 DEFB 56,34,13
52137 DEFB 30,130,147,0,218,79,58,231 Line 7810: PAPER O: BORDER O: CLS : PRINT PAPER 2;"STATUS OF ";N$: PRINT : PRINT "YOU HAVE $";MU: PRINT "YOUR COMBAT STRENGTH IS ";CS: PRINT : PRINT "YOU HAVE THE FOLLOWING:": FOR N=U TO 16: IF I(N)>O THEN PRINT K$(N);I(N).
52145 DEFB 79,58,251,58,245,218,50,14
52153 DEFB 0,0,2,0,0,59,34,83
52161 DEFB 84,65,84,85,83,32,79,70
52169 DEFB 32,34,59,78,36,58,245,58
52177 DEFB 245,34,89,79,85,32,72,65
52185 DEFB 86,69,32,36,34,59,77,85
52193 DEFB 58,245,34,89,79,85,82,32
52201 DEFB 67,79,77,66,65,84,32,83
52209 DEFB 84,82,69,78,71,84,72,32
52217 DEFB 73,83,32,34,59,67,83,58
52225 DEFB 245,58,245,34,89,79,85,32
52233 DEFB 72,65,86,69,32,84,72,69
52241 DEFB 32,70,79,76,76,79,87,73
52249 DEFB 78,71,58,34,58,235,78,61
52257 DEFB 85,204,49,54,14,0,0,16
52265 DEFB 0,0,58,250,73,40,78,41
52273 DEFB 62,79,203,245,75,36,40,78
52281 DEFB 41,59,73,40,78,41,13
52288 DEFB 30,140,80,0,243,78,58,215 Line 7820: NEXT N: BEEP .5,6: BEEP .4,-6: INPUT "PRESS ENTER TO CONTINUE "; LINE H$: GO TO VAL "500".
52296 DEFB 46,53,14,127,127,255,255,255
52304 DEFB 44,54,14,0,0,6,0,0
52312 DEFB 58,215,46,52,14,127,76,204
52320 DEFB 204,204,44,45,54,14,0,0
52328 DEFB 6,0,0,58,238,34,80,82
52336 DEFB 69,83,83,32,69,78,84,69
52344 DEFB 82,32,84,79,32,67,79,78
52352 DEFB 84,73,78,85,69,32,34,59
52360 DEFB 202,72,36,58,236,176,34,53
52368 DEFB 48,48,34,13
52372 DEFB 33,52,133,0,251,58,245,172 Line 8500: CLS : PRINT AT 6,O;"YOU WENT TO THE GREAT RANCH IN": PRINT : PRINT "THE SKY BECAUSE :": PRINT : PRINT M$: FOR N=O TO -30 STEP -U: BEEP .2,N: NEXT N: GO SUB 9500: GO TO 9850.
52380 DEFB 54,14,0,0,6,0,0,44
52388 DEFB 79,59,34,89,79,85,32,87
52396 DEFB 69,78,84,32,84,79,32,84
52404 DEFB 72,69,32,71,82,69,65,84
52412 DEFB 32,82,65,78,67,72,32,73
52420 DEFB 78,34,58,245,58,245,34,84
52428 DEFB 72,69,32,83,75,89,32,66
52436 DEFB 69,67,65,85,83,69,32,58
52444 DEFB 34,58,245,58,245,77,36,58
52452 DEFB 235,78,61,79,204,45,51,48
52460 DEFB 14,0,0,30,0,0,205,45
52468 DEFB 85,58,215,46,50,14,126,76
52476 DEFB 204,204,204,44,78,58,243,78
52484 DEFB 58,237,57,53,48,48,14,0
52492 DEFB 0,28,37,0,58,236,57,56
52500 DEFB 53,48,14,0,0,122,38,0
52508 DEFB 13
52509 DEFB 34,196,8,0,231,79,58,218 Line 8900: BORDER O: PAPER O: CLS.
52517 DEFB 79,58,251,13
52521 DEFB 34,201,203,0,245,172,49,14 Line 8905: PRINT AT 1,6;"THE STORY SO FAR....",,," YOU ARE WALKING HOME ONE NIGHT WHEN YOU HEAR A GUNSHOT."," YOU FIND A DYING MAN LYING IN"," THE ROAD.HE MUTTERS THE WORDS; ""THE WILD BUNCH...THE MAN WITH".
52529 DEFB 0,0,1,0,0,44,54,14
52537 DEFB 0,0,6,0,0,59,34,84
52545 DEFB 72,69,32,83,84,79,82,89
52553 DEFB 32,83,79,32,70,65,82,46
52561 DEFB 46,46,46,34,44,44,44,34
52569 DEFB 32,89,79,85,32,65,82,69
52577 DEFB 32,87,65,76,75,73,78,71
52585 DEFB 32,72,79,77,69,32,79,78
52593 DEFB 69,32,78,73,71,72,84,32
52601 DEFB 32,87,72,69,78,32,89,79
52609 DEFB 85,32,72,69,65,82,32,65
52617 DEFB 32,71,85,78,83,72,79,84
52625 DEFB 46,34,44,34,32,89,79,85
52633 DEFB 32,70,73,78,68,32,65,32
52641 DEFB 68,89,73,78,71,32,77,65
52649 DEFB 78,32,76,89,73,78,71,32
52657 DEFB 73,78,34,44,34,32,84,72
52665 DEFB 69,32,82,79,65,68,46,72
52673 DEFB 69,32,77,85,84,84,69,82
52681 DEFB 83,32,84,72,69,32,87,79
52689 DEFB 82,68,83,59,32,32,34,34
52697 DEFB 84,72,69,32,87,73,76,68
52705 DEFB 32,66,85,78,67,72,46,46
52713 DEFB 46,84,72,69,32,77,65,78
52721 DEFB 32,87,73,84,72,34,13
52728 DEFB 34,206,17,0,245,34,32,34 Line 8910: PRINT " ";D$(MB);"""".
52736 DEFB 59,68,36,40,77,66,41,59
52744 DEFB 34,34,34,34,13
52749 DEFB 34,211,65,1,245,172,49,48 Line 8915: PRINT AT 10,R;"THE MAN COUGHS AND DIES."," YOU PICK UP A COLT 45 THAT MUST BELONG TO THE MURDERER."," AT THAT MOMENT THE SHERIFF"," RIDES UP.HE SEES YOU WITH THE BODY AND THE GUN IN YOUR HAND. HE SHOUTS;""DON'T MOVE OR I'LL FILL YOU FULL OF LEAD!"""," YOU RUN OFF INTO THE NIGHT WITH BULLETS FLYING PAST YOUR HEAD.".
52757 DEFB 14,0,0,10,0,0,44,82
52765 DEFB 59,34,84,72,69,32,77,65
52773 DEFB 78,32,67,79,85,71,72,83
52781 DEFB 32,65,78,68,32,68,73,69
52789 DEFB 83,46,34,44,34,32,89,79
52797 DEFB 85,32,80,73,67,75,32,85
52805 DEFB 80,32,65,32,67,79,76,84
52813 DEFB 32,52,53,32,84,72,65,84
52821 DEFB 32,77,85,83,84,32,66,69
52829 DEFB 76,79,78,71,32,84,79,32
52837 DEFB 84,72,69,32,77,85,82,68
52845 DEFB 69,82,69,82,46,34,44,34
52853 DEFB 32,32,65,84,32,84,72,65
52861 DEFB 84,32,77,79,77,69,78,84
52869 DEFB 32,84,72,69,32,83,72,69
52877 DEFB 82,73,70,70,34,44,34,32
52885 DEFB 82,73,68,69,83,32,85,80
52893 DEFB 46,72,69,32,83,69,69,83
52901 DEFB 32,89,79,85,32,87,73,84
52909 DEFB 72,32,84,72,69,32,32,32
52917 DEFB 66,79,68,89,32,65,78,68
52925 DEFB 32,84,72,69,32,71,85,78
52933 DEFB 32,73,78,32,89,79,85,82
52941 DEFB 32,72,65,78,68,46,32,32
52949 DEFB 72,69,32,83,72,79,85,84
52957 DEFB 83,59,34,34,68,79,78,39
52965 DEFB 84,32,77,79,86,69,32,79
52973 DEFB 82,32,73,39,76,76,32,32
52981 DEFB 32,70,73,76,76,32,89,79
52989 DEFB 85,32,70,85,76,76,32,79
52997 DEFB 70,32,76,69,65,68,33,34
53005 DEFB 34,34,44,34,32,89,79,85
53013 DEFB 32,82,85,78,32,79,70,70
53021 DEFB 32,73,78,84,79,32,84,72
53029 DEFB 69,32,78,73,71,72,84,32
53037 DEFB 87,73,84,72,32,66,85,76
53045 DEFB 76,69,84,83,32,70,76,89
53053 DEFB 73,78,71,32,80,65,83,84
53061 DEFB 32,89,79,85,82,32,72,69
53069 DEFB 65,68,46,34,13
53074 DEFB 34,216,60,0,245,172,50,49 Line 8920: PRINT AT 21,12; PAPER 6;"ANY KEY": GO SUB 8925: GO TO VAL "8950".
53082 DEFB 14,0,0,21,0,0,44,49
53090 DEFB 50,14,0,0,12,0,0,59
53098 DEFB 218,54,14,0,0,6,0,0
53106 DEFB 59,34,65,78,89,32,75,69
53114 DEFB 89,34,58,237,56,57,50,53
53122 DEFB 14,0,0,221,34,0,58,236
53130 DEFB 176,34,56,57,53,48,34,13
53138 DEFB 34,221,5,0,241,89,61,85 Line 8925: LET Y=U.
53146 DEFB 13
53147 DEFB 34,224,16,0,235,76,61,85 Line 8928: FOR L=U TO R: RESTORE VAL "9020".
53155 DEFB 204,82,58,229,176,34,57,48
53163 DEFB 50,48,34,13
53167 DEFB 34,226,42,0,235,78,61,89 Line 8930: FOR N=Y TO 26: IF L=R AND N=24 THEN RESTORE 9025.
53175 DEFB 204,50,54,14,0,0,26,0
53183 DEFB 0,58,250,76,61,82,198,78
53191 DEFB 61,50,52,14,0,0,24,0
53199 DEFB 0,203,229,57,48,50,53,14
53207 DEFB 0,0,65,35,0,13
53213 DEFB 34,228,29,0,227,122,58,227 Line 8932: READ z: READ x: BEEP z/2.5,x: IF INKEY$<>"" THEN RETURN.
53221 DEFB 120,58,215,122,47,50,46,53
53229 DEFB 14,130,32,0,0,0,44,120
53237 DEFB 58,250,166,201,34,34,203,254
53245 DEFB 13
53246 DEFB 34,231,6,0,243,78,58,243 Line 8935: NEXT N: NEXT L.
53254 DEFB 76,13
53256 DEFB 34,236,19,0,242,51,48,14 Line 8940: PAUSE 30: GO TO VAL "8925".
53264 DEFB 0,0,30,0,0,58,236,176
53272 DEFB 34,56,57,50,53,34,13
53279 DEFB 34,246,208,0,251,58,245,172 Line 8950: CLS : PRINT AT 7,6;"YOU ARE A WANTED MAN",,," YOUR ONLY CHANCE TO PROVE YOUR INNOCENCE IS TO FIND THE REAL KILLER A MEMBER OF THE DREADED": PRINT : PRINT TAB 10;"""WILD BUNCH!""": PRINT : PRINT : PRINT TAB 12; PAPER 6;"ANY KEY".
53287 DEFB 55,14,0,0,7,0,0,44
53295 DEFB 54,14,0,0,6,0,0,59
53303 DEFB 34,89,79,85,32,65,82,69
53311 DEFB 32,65,32,87,65,78,84,69
53319 DEFB 68,32,77,65,78,34,44,44
53327 DEFB 44,34,32,89,79,85,82,32
53335 DEFB 79,78,76,89,32,67,72,65
53343 DEFB 78,67,69,32,84,79,32,80
53351 DEFB 82,79,86,69,32,89,79,85
53359 DEFB 82,32,32,73,78,78,79,67
53367 DEFB 69,78,67,69,32,73,83,32
53375 DEFB 84,79,32,70,73,78,68,32
53383 DEFB 84,72,69,32,82,69,65,76
53391 DEFB 32,32,32,75,73,76,76,69
53399 DEFB 82,32,65,32,77,69,77,66
53407 DEFB 69,82,32,79,70,32,84,72
53415 DEFB 69,32,68,82,69,65,68,69
53423 DEFB 68,34,58,245,58,245,173,49
53431 DEFB 48,14,0,0,10,0,0,59
53439 DEFB 34,34,34,87,73,76,68,32
53447 DEFB 66,85,78,67,72,33,34,34
53455 DEFB 34,58,245,58,245,58,245,173
53463 DEFB 49,50,14,0,0,12,0,0
53471 DEFB 59,218,54,14,0,0,6,0
53479 DEFB 0,59,34,65,78,89,32,75
53487 DEFB 69,89,34,13
53491 DEFB 35,0,16,0,241,89,61,78 Line 8960: LET Y=N+U: GO SUB VAL "8930".
53499 DEFB 43,85,58,237,176,34,56,57
53507 DEFB 51,48,34,13
53511 DEFB 35,5,8,0,237,176,34,51 Line 8965: GO SUB VAL "300".
53519 DEFB 48,48,34,13
53523 DEFB 35,10,100,0,245,172,49,56 Line 8970: PRINT AT 18,U;"YOU HAVE $50.YOU MAY CATCH THE STAGE TO ANY OF THE ABOVE TOWNS TO START YOUR SEARCH.".
53531 DEFB 14,0,0,18,0,0,44,85
53539 DEFB 59,34,89,79,85,32,72,65
53547 DEFB 86,69,32,36,53,48,46,89
53555 DEFB 79,85,32,77,65,89,32,67
53563 DEFB 65,84,67,72,32,84,72,69
53571 DEFB 32,83,84,65,71,69,32,84
53579 DEFB 79,32,65,78,89,32,79,70
53587 DEFB 32,84,72,69,32,65,66,79
53595 DEFB 86,69,32,84,79,87,78,83
53603 DEFB 32,84,79,32,83,84,65,82
53611 DEFB 84,32,89,79,85,82,32,83
53619 DEFB 69,65,82,67,72,46,34,13
53627 DEFB 35,15,98,0,238,34,32,32 Line 8975: INPUT " ENTER TOWN NUMBER "; LINE E$: LET E$=E$+" ": IF CODE E$(1)>53 OR CODE E$(1)<49 THEN GO TO 8975.
53635 DEFB 32,32,69,78,84,69,82,32
53643 DEFB 84,79,87,78,32,78,85,77
53651 DEFB 66,69,82,32,34,59,202,69
53659 DEFB 36,58,241,69,36,61,69,36
53667 DEFB 43,34,32,34,58,250,175,69
53675 DEFB 36,40,49,14,0,0,1,0
53683 DEFB 0,41,62,53,51,14,0,0
53691 DEFB 53,0,0,197,175,69,36,40
53699 DEFB 49,14,0,0,1,0,0,41
53707 DEFB 60,52,57,14,0,0,49,0
53715 DEFB 0,203,236,56,57,55,53,14
53723 DEFB 0,0,15,35,0,13
53729 DEFB 35,16,29,0,241,84,78,61 Line 8976: LET TN=VAL E$: IF TN>5 THEN GO TO VAL "8975".
53737 DEFB 176,69,36,58,250,84,78,62
53745 DEFB 53,14,0,0,5,0,0,203
53753 DEFB 236,176,34,56,57,55,53,34
53761 DEFB 13
53762 DEFB 35,17,35,0,241,85,77,61 Line 8977: LET UM=INT (RND*5)+U: IF UM=TN THEN GO TO VAL "8977".
53770 DEFB 186,40,165,42,53,14,0,0
53778 DEFB 5,0,0,41,43,85,58,250
53786 DEFB 85,77,61,84,78,203,236,176
53794 DEFB 34,56,57,55,55,34,13
53801 DEFB 35,20,28,0,241,70,76,61 Line 8980: LET FL=TN: LET MU=50: GO TO VAL "480".
53809 DEFB 84,78,58,241,77,85,61,53
53817 DEFB 48,14,0,0,50,0,0,58
53825 DEFB 236,176,34,52,56,48,34,13
53833 DEFB 35,41,23,0,228,34,80,65 Line 9001: DATA "PATCH ON RIGHT EYE.".
53841 DEFB 84,67,72,32,79,78,32,82
53849 DEFB 73,71,72,84,32,69,89,69
53857 DEFB 46,34,13
53860 DEFB 35,42,23,0,228,34,83,67 Line 9002: DATA "SCAR ON LEFT CHEEK.".
53868 DEFB 65,82,32,79,78,32,76,69
53876 DEFB 70,84,32,67,72,69,69,75
53884 DEFB 46,34,13
53887 DEFB 35,43,23,0,228,34,78,79 Line 9003: DATA "NO LEFT EAR........".
53895 DEFB 32,76,69,70,84,32,69,65
53903 DEFB 82,46,46,46,46,46,46,46
53911 DEFB 46,34,13
53914 DEFB 35,44,23,0,228,34,80,65 Line 9004: DATA "PATCH ON LEFT EYE..".
53922 DEFB 84,67,72,32,79,78,32,76
53930 DEFB 69,70,84,32,69,89,69,46
53938 DEFB 46,34,13
53941 DEFB 35,45,23,0,228,34,83,67 Line 9005: DATA "SCAR ON RIGHT CHEEK".
53949 DEFB 65,82,32,79,78,32,82,73
53957 DEFB 71,72,84,32,67,72,69,69
53965 DEFB 75,34,13
53968 DEFB 35,46,23,0,228,34,65,32 Line 9006: DATA "A LEFT EARING......".
53976 DEFB 76,69,70,84,32,69,65,82
53984 DEFB 73,78,71,46,46,46,46,46
53992 DEFB 46,34,13
53995 DEFB 35,47,23,0,228,34,65,32 Line 9007: DATA "A LIMP IN LEFT LEG.".
54003 DEFB 76,73,77,80,32,73,78,32
54011 DEFB 76,69,70,84,32,76,69,71
54019 DEFB 46,34,13
54022 DEFB 35,48,23,0,228,34,78,79 Line 9008: DATA "NO EYEBROWS........".
54030 DEFB 32,69,89,69,66,82,79,87
54038 DEFB 83,46,46,46,46,46,46,46
54046 DEFB 46,34,13
54049 DEFB 35,49,23,0,228,34,78,79 Line 9009: DATA "NO RIGHT EAR.......".
54057 DEFB 32,82,73,71,72,84,32,69
54065 DEFB 65,82,46,46,46,46,46,46
54073 DEFB 46,34,13
54076 DEFB 35,50,23,0,228,34,65,32 Line 9010: DATA "A LIMP IN RIGHT LEG".
54084 DEFB 76,73,77,80,32,73,78,32
54092 DEFB 82,73,71,72,84,32,76,69
54100 DEFB 71,34,13
54103 DEFB 35,51,23,0,228,34,65,32 Line 9011: DATA "A MOUSTACHE........".
54111 DEFB 77,79,85,83,84,65,67,72
54119 DEFB 69,46,46,46,46,46,46,46
54127 DEFB 46,34,13
54130 DEFB 35,52,23,0,228,34,65,32 Line 9012: DATA "A RIGHT EARING.....".
54138 DEFB 82,73,71,72,84,32,69,65
54146 DEFB 82,73,78,71,46,46,46,46
54154 DEFB 46,34,13
54157 DEFB 35,55,78,0,228,34,71,69 Line 9015: DATA "GEORGE PARKER","HARRY LONGBOUGH","HARVEY LOGAN","ELZA LAY","BEN KILPATRICK".
54165 DEFB 79,82,71,69,32,80,65,82
54173 DEFB 75,69,82,34,44,34,72,65
54181 DEFB 82,82,89,32,76,79,78,71
54189 DEFB 66,79,85,71,72,34,44,34
54197 DEFB 72,65,82,86,69,89,32,76
54205 DEFB 79,71,65,78,34,44,34,69
54213 DEFB 76,90,65,32,76,65,89,34
54221 DEFB 44,34,66,69,78,32,75,73
54229 DEFB 76,80,65,84,82,73,67,75
54237 DEFB 34,13
54239 DEFB 35,60,99,1,228,85,44,49 Line 9020: DATA U,15,1.5,15,.5,13,.75,12,U,13,U,15,U,13,U,12,.5,10,U,8,U,7,1.5,3,.1,-60,.1,-60 ,.1,-60,.5,3,U,8,.5,8,U,8,U,10,U,12,U,13,U,12,U,10,U,8,R,10.
54247 DEFB 53,14,0,0,15,0,0,44
54255 DEFB 49,46,53,14,129,64,0,0
54263 DEFB 0,44,49,53,14,0,0,15
54271 DEFB 0,0,44,46,53,14,127,127
54279 DEFB 255,255,255,44,49,51,14,0
54287 DEFB 0,13,0,0,44,46,55,53
54295 DEFB 14,128,64,0,0,0,44,49
54303 DEFB 50,14,0,0,12,0,0,44
54311 DEFB 85,44,49,51,14,0,0,13
54319 DEFB 0,0,44,85,44,49,53,14
54327 DEFB 0,0,15,0,0,44,85,44
54335 DEFB 49,51,14,0,0,13,0,0
54343 DEFB 44,85,44,49,50,14,0,0
54351 DEFB 12,0,0,44,46,53,14,127
54359 DEFB 127,255,255,255,44,49,48,14
54367 DEFB 0,0,10,0,0,44,85,44
54375 DEFB 56,14,0,0,8,0,0,44
54383 DEFB 85,44,55,14,0,0,7,0
54391 DEFB 0,44,49,46,53,14,129,64
54399 DEFB 0,0,0,44,51,14,0,0
54407 DEFB 3,0,0,44,46,49,14,125
54415 DEFB 76,204,204,204,44,45,54,48
54423 DEFB 14,0,0,60,0,0,44,46
54431 DEFB 49,14,125,76,204,204,204,44
54439 DEFB 45,54,48,14,0,0,60,0
54447 DEFB 0,44,46,49,14,125,76,204
54455 DEFB 204,204,44,45,54,48,14,0
54463 DEFB 0,60,0,0,44,46,53,14
54471 DEFB 127,127,255,255,255,44,51,14
54479 DEFB 0,0,3,0,0,44,85,44
54487 DEFB 56,14,0,0,8,0,0,44
54495 DEFB 46,53,14,127,127,255,255,255
54503 DEFB 44,56,14,0,0,8,0,0
54511 DEFB 44,85,44,56,14,0,0,8
54519 DEFB 0,0,44,85,44,49,48,14
54527 DEFB 0,0,10,0,0,44,85,44
54535 DEFB 49,50,14,0,0,12,0,0
54543 DEFB 44,85,44,49,51,14,0,0
54551 DEFB 13,0,0,44,85,44,49,50
54559 DEFB 14,0,0,12,0,0,44,85
54567 DEFB 44,49,48,14,0,0,10,0
54575 DEFB 0,44,85,44,56,14,0,0
54583 DEFB 8,0,0,44,82,44,49,48
54591 DEFB 14,0,0,10,0,0,13
54598 DEFB 35,65,32,0,228,85,44,56 Line 9025: DATA U,8,U,10,R,8.
54606 DEFB 14,0,0,8,0,0,44,85
54614 DEFB 44,49,48,14,0,0,10,0
54622 DEFB 0,44,82,44,56,14,0,0
54630 DEFB 8,0,0,13
54634 DEFB 35,75,57,1,228,49,46,53 Line 9035: DATA 1.5,7,.75,14,U,10,1.5,12,U,10,U,12,1.5,14,1.5,19,1.5,17,U,19,.1,-60,.1,-60,.1, -60,1.25,7,.75,14,U,10,1.5,12,U,9,U,5,R,7.
54642 DEFB 14,129,64,0,0,0,44,55
54650 DEFB 14,0,0,7,0,0,44,46
54658 DEFB 55,53,14,128,64,0,0,0
54666 DEFB 44,49,52,14,0,0,14,0
54674 DEFB 0,44,85,44,49,48,14,0
54682 DEFB 0,10,0,0,44,49,46,53
54690 DEFB 14,129,64,0,0,0,44,49
54698 DEFB 50,14,0,0,12,0,0,44
54706 DEFB 85,44,49,48,14,0,0,10
54714 DEFB 0,0,44,85,44,49,50,14
54722 DEFB 0,0,12,0,0,44,49,46
54730 DEFB 53,14,129,64,0,0,0,44
54738 DEFB 49,52,14,0,0,14,0,0
54746 DEFB 44,49,46,53,14,129,64,0
54754 DEFB 0,0,44,49,57,14,0,0
54762 DEFB 19,0,0,44,49,46,53,14
54770 DEFB 129,64,0,0,0,44,49,55
54778 DEFB 14,0,0,17,0,0,44,85
54786 DEFB 44,49,57,14,0,0,19,0
54794 DEFB 0,44,46,49,14,125,76,204
54802 DEFB 204,204,44,45,54,48,14,0
54810 DEFB 0,60,0,0,44,46,49,14
54818 DEFB 125,76,204,204,204,44,45,54
54826 DEFB 48,14,0,0,60,0,0,44
54834 DEFB 46,49,14,125,76,204,204,204
54842 DEFB 44,45,54,48,14,0,0,60
54850 DEFB 0,0,44,49,46,50,53,14
54858 DEFB 129,32,0,0,0,44,55,14
54866 DEFB 0,0,7,0,0,44,46,55
54874 DEFB 53,14,128,64,0,0,0,44
54882 DEFB 49,52,14,0,0,14,0,0
54890 DEFB 44,85,44,49,48,14,0,0
54898 DEFB 10,0,0,44,49,46,53,14
54906 DEFB 129,64,0,0,0,44,49,50
54914 DEFB 14,0,0,12,0,0,44,85
54922 DEFB 44,57,14,0,0,9,0,0
54930 DEFB 44,85,44,53,14,0,0,5
54938 DEFB 0,0,44,82,44,55,14,0
54946 DEFB 0,7,0,0,13
54951 DEFB 35,85,71,0,228,34,68,82 Line 9045: DATA "DRY GULCH","DODGE CITY","NUGGET CITY","BULLETVILLE","DEADMANS CREEK".
54959 DEFB 89,32,71,85,76,67,72,34
54967 DEFB 44,34,68,79,68,71,69,32
54975 DEFB 67,73,84,89,34,44,34,78
54983 DEFB 85,71,71,69,84,32,67,73
54991 DEFB 84,89,34,44,34,66,85,76
54999 DEFB 76,69,84,86,73,76,76,69
55007 DEFB 34,44,34,68,69,65,68,77
55015 DEFB 65,78,83,32,67,82,69,69
55023 DEFB 75,34,13
55026 DEFB 35,90,83,0,228,51,14,0 Line 9050: DATA 3,12,1,10,1,9,1,7,2,9.
55034 DEFB 0,3,0,0,44,49,50,14
55042 DEFB 0,0,12,0,0,44,49,14
55050 DEFB 0,0,1,0,0,44,49,48
55058 DEFB 14,0,0,10,0,0,44,49
55066 DEFB 14,0,0,1,0,0,44,57
55074 DEFB 14,0,0,9,0,0,44,49
55082 DEFB 14,0,0,1,0,0,44,55
55090 DEFB 14,0,0,7,0,0,44,50
55098 DEFB 14,0,0,2,0,0,44,57
55106 DEFB 14,0,0,9,0,0,13
55113 DEFB 35,100,14,0,228,34,19,1 Line 9060: DATA "8%".
55121 DEFB 17,7,16,0,56,37,19,0
55129 DEFB 34,13
55131 DEFB 35,101,12,0,228,34,19,1 Line 9061: DATA "9&".
55139 DEFB 17,7,16,2,57,38,34,13
55147 DEFB 35,102,12,0,228,34,19,1 Line 9062: DATA "K&".
55155 DEFB 17,7,16,2,75,38,34,13
55163 DEFB 35,103,23,0,228,34,17,7 Line 9063: DATA "7@ 7&".
55171 DEFB 19,1,16,2,55,64,17,4
55179 DEFB 19,0,32,19,1,17,7,55
55187 DEFB 38,34,13
55190 DEFB 35,104,23,0,228,34,17,7 Line 9064: DATA "8& 8@".
55198 DEFB 19,1,16,2,56,38,17,4
55206 DEFB 19,0,32,17,7,19,1,56
55214 DEFB 64,34,13
55217 DEFB 35,105,25,0,228,34,17,7 Line 9065: DATA "A@ A&".
55225 DEFB 19,1,16,2,65,64,17,4
55233 DEFB 19,0,32,16,2,17,7,19
55241 DEFB 1,65,38,34,13
55246 DEFB 35,106,49,0,228,34,17,7 Line 9066: DATA "K# K@ 9@ 9%".
55254 DEFB 16,0,19,1,75,35,19,0
55262 DEFB 17,4,32,17,7,19,1,16
55270 DEFB 2,75,64,17,4,19,0,32
55278 DEFB 19,1,17,7,57,64,19,0
55286 DEFB 17,4,32,19,1,17,7,16
55294 DEFB 0,57,37,34,13
55299 DEFB 35,107,47,0,228,34,17,7 Line 9067: DATA "10# 10@ 10&".
55307 DEFB 16,0,19,0,19,1,19,1
55315 DEFB 49,48,35,19,0,17,4,32
55323 DEFB 19,1,17,7,16,2,49,48
55331 DEFB 64,17,4,19,0,32,19,1
55339 DEFB 17,7,49,48,38,19,0,16
55347 DEFB 0,34,13
55350 DEFB 35,108,38,0,228,34,17,7 Line 9068: DATA "Q@ Q& Q#".
55358 DEFB 16,2,19,1,81,64,17,4
55366 DEFB 19,0,32,19,1,17,7,81
55374 DEFB 38,19,0,17,4,32,19,1
55382 DEFB 17,7,16,0,81,35,19,0
55390 DEFB 34,13
55392 DEFB 35,109,62,0,228,34,17,7 Line 9069: DATA "4@ 5@ 6& 7% 8#".
55400 DEFB 19,1,16,2,52,64,19,0
55408 DEFB 17,4,32,17,7,19,1,53
55416 DEFB 64,19,0,17,4,32,17,7
55424 DEFB 19,0,19,1,54,38,17,4
55432 DEFB 19,0,32,17,7,19,1,16
55440 DEFB 0,55,37,19,0,17,4,32
55448 DEFB 19,1,17,7,56,35,19,0
55456 DEFB 34,13
55458 DEFB 35,110,58,0,228,34,17,7 Line 9070: DATA "5# 6# 7# 9# A#".
55466 DEFB 16,0,19,1,53,35,19,0
55474 DEFB 17,4,32,17,7,19,1,54
55482 DEFB 35,19,0,17,4,32,17,7
55490 DEFB 19,1,55,35,17,4,19,0
55498 DEFB 32,19,1,17,7,57,35,19
55506 DEFB 0,17,4,32,17,7,19,1
55514 DEFB 65,35,19,0,34,13
55520 DEFB 35,111,62,0,228,34,19,1 Line 9071: DATA "4% 4# 4& 5& 5%".
55528 DEFB 17,7,16,0,52,37,19,0
55536 DEFB 17,4,32,17,7,19,1,52
55544 DEFB 35,17,4,19,0,32,19,1
55552 DEFB 17,7,16,2,52,38,17,4
55560 DEFB 19,0,32,19,1,17,7,53
55568 DEFB 38,17,4,19,0,32,19,1
55576 DEFB 17,7,16,0,53,37,19,0
55584 DEFB 34,13
55586 DEFB 35,112,62,0,228,34,17,7 Line 9072: DATA "J# J& J@ 6@ 6#".
55594 DEFB 16,0,19,1,74,35,19,0
55602 DEFB 17,4,32,17,7,19,1,16
55610 DEFB 2,74,38,19,0,17,4,32
55618 DEFB 17,7,19,1,74,64,17,4
55626 DEFB 19,0,32,19,1,17,7,54
55634 DEFB 64,17,4,19,0,32,19,1
55642 DEFB 17,7,16,0,54,35,19,0
55650 DEFB 34,13
55652 DEFB 35,113,51,0,228,34,16,0 Line 9073: DATA "2# 2% 2& 2@".
55660 DEFB 17,7,19,1,50,35,17,4
55668 DEFB 19,0,32,19,1,17,7,50
55676 DEFB 37,19,0,17,4,32,19,1
55684 DEFB 17,7,16,2,50,38,19,0
55692 DEFB 17,4,32,19,1,17,7,50
55700 DEFB 64,19,0,16,0,34,13
55707 DEFB 35,114,51,0,228,34,17,7 Line 9074: DATA "3% 3& 3@ 3#".
55715 DEFB 16,0,19,1,51,37,19,0
55723 DEFB 17,4,32,19,1,16,2,17
55731 DEFB 7,51,38,19,0,17,4,32
55739 DEFB 19,1,17,7,51,64,19,0
55747 DEFB 17,4,32,19,1,17,7,16
55755 DEFB 0,51,35,19,0,34,13
55762 DEFB 35,115,67,0,228,34,17,7 Line 9075: DATA "10% J% Q% K% A%".
55770 DEFB 18,1,16,0,19,0,18,0
55778 DEFB 19,1,49,48,37,19,0,17
55786 DEFB 4,32,19,1,17,7,74,37
55794 DEFB 19,0,17,4,32,19,1,17
55802 DEFB 7,81,37,19,0,17,4,32
55810 DEFB 19,1,17,7,75,37,19,0
55818 DEFB 17,4,32,19,1,17,7,65
55826 DEFB 37,34,19,0,19,1,13
55833 DEFB 35,120,95,0,228,85,44,57 Line 9080: DATA U,9,U,7,R,9,R,R,U,4,U,5,U,9,U,9,U,7,R,4.
55841 DEFB 14,0,0,9,0,0,44,85
55849 DEFB 44,55,14,0,0,7,0,0
55857 DEFB 44,82,44,57,14,0,0,9
55865 DEFB 0,0,44,82,44,82,44,85
55873 DEFB 44,52,14,0,0,4,0,0
55881 DEFB 44,85,44,53,14,0,0,5
55889 DEFB 0,0,44,85,44,57,14,0
55897 DEFB 0,9,0,0,44,85,44,57
55905 DEFB 14,0,0,9,0,0,44,85
55913 DEFB 44,55,14,0,0,7,0,0
55921 DEFB 44,82,44,52,14,0,0,4
55929 DEFB 0,0,13
55932 DEFB 35,125,83,0,228,85,44,49 Line 9085: DATA U,11,U,11,U,9,U,8,U,8,U,7,U,8,R,8.
55940 DEFB 49,14,0,0,11,0,0,44
55948 DEFB 85,44,49,49,14,0,0,11
55956 DEFB 0,0,44,85,44,57,14,0
55964 DEFB 0,9,0,0,44,85,44,56
55972 DEFB 14,0,0,8,0,0,44,85
55980 DEFB 44,56,14,0,0,8,0,0
55988 DEFB 44,85,44,55,14,0,0,7
55996 DEFB 0,0,44,85,44,56,14,0
56004 DEFB 0,8,0,0,44,82,44,56
56012 DEFB 14,0,0,8,0,0,13
56019 DEFB 35,130,103,0,228,85,44,55 Line 9090: DATA U,7,U,8,U,8,U,7,U,8,U,11,U,8,U,11,R,9,R,6.
56027 DEFB 14,0,0,7,0,0,44,85
56035 DEFB 44,56,14,0,0,8,0,0
56043 DEFB 44,85,44,56,14,0,0,8
56051 DEFB 0,0,44,85,44,55,14,0
56059 DEFB 0,7,0,0,44,85,44,56
56067 DEFB 14,0,0,8,0,0,44,85
56075 DEFB 44,49,49,14,0,0,11,0
56083 DEFB 0,44,85,44,56,14,0,0
56091 DEFB 8,0,0,44,85,44,49,49
56099 DEFB 14,0,0,11,0,0,44,82
56107 DEFB 44,57,14,0,0,9,0,0
56115 DEFB 44,82,44,54,14,0,0,6
56123 DEFB 0,0,13
56126 DEFB 35,135,51,0,228,50,48,48 Line 9095: DATA 200,100,100,250,125.
56134 DEFB 14,0,0,200,0,0,44,49
56142 DEFB 48,48,14,0,0,100,0,0
56150 DEFB 44,49,48,48,14,0,0,100
56158 DEFB 0,0,44,50,53,48,14,0
56166 DEFB 0,250,0,0,44,49,50,53
56174 DEFB 14,0,0,125,0,0,13
56181 DEFB 35,140,63,0,228,82,44,82 Line 9100: DATA R,R,R,R,U,R,R,R,R,5,U,4,R,4,U,R,R,R,U,U,R,R.
56189 DEFB 44,82,44,82,44,85,44,82
56197 DEFB 44,82,44,82,44,82,44,53
56205 DEFB 14,0,0,5,0,0,44,85
56213 DEFB 44,52,14,0,0,4,0,0
56221 DEFB 44,82,44,52,14,0,0,4
56229 DEFB 0,0,44,85,44,82,44,82
56237 DEFB 44,82,44,85,44,85,44,82
56245 DEFB 44,82,13
56248 DEFB 35,150,169,0,228,79,44,53 Line 9110: DATA O,5,3,-21,-10,5,O,2,5,-6,3,R,O,-15,-7,-21,5,-15,O,R,-10,-6,-7,R,O.
56256 DEFB 14,0,0,5,0,0,44,51
56264 DEFB 14,0,0,3,0,0,44,45
56272 DEFB 50,49,14,0,0,21,0,0
56280 DEFB 44,45,49,48,14,0,0,10
56288 DEFB 0,0,44,53,14,0,0,5
56296 DEFB 0,0,44,79,44,50,14,0
56304 DEFB 0,2,0,0,44,53,14,0
56312 DEFB 0,5,0,0,44,45,54,14
56320 DEFB 0,0,6,0,0,44,51,14
56328 DEFB 0,0,3,0,0,44,82,44
56336 DEFB 79,44,45,49,53,14,0,0
56344 DEFB 15,0,0,44,45,55,14,0
56352 DEFB 0,7,0,0,44,45,50,49
56360 DEFB 14,0,0,21,0,0,44,53
56368 DEFB 14,0,0,5,0,0,44,45
56376 DEFB 49,53,14,0,0,15,0,0
56384 DEFB 44,79,44,82,44,45,49,48
56392 DEFB 14,0,0,10,0,0,44,45
56400 DEFB 54,14,0,0,6,0,0,44
56408 DEFB 45,55,14,0,0,7,0,0
56416 DEFB 44,82,44,79,13
56421 DEFB 35,160,79,0,228,82,44,51 Line 9120: DATA R,3,U,4,3,R,U,R,3,R,5,4,R,4,5.
56429 DEFB 14,0,0,3,0,0,44,85
56437 DEFB 44,52,14,0,0,4,0,0
56445 DEFB 44,51,14,0,0,3,0,0
56453 DEFB 44,82,44,85,44,82,44,51
56461 DEFB 14,0,0,3,0,0,44,82
56469 DEFB 44,53,14,0,0,5,0,0
56477 DEFB 44,52,14,0,0,4,0,0
56485 DEFB 44,82,44,52,14,0,0,4
56493 DEFB 0,0,44,53,14,0,0,5
56501 DEFB 0,0,13
56504 DEFB 35,180,113,1,228,34,72,79 Line 9140: DATA "HORSE---------------","SADDLE--------------",".44 COLT------------",".45 COLT------------","COLT .44 BULLETS----","COLT .45 BULLETS----","WINCHESTER RIFLE----","WINCHESTER BULLETS--","KNIFE---------------","FOOD FOR 1 DAY------","HORSE FOOD FOR 1 DAY","CANTEEN OF WATER----","GREAT COAT----------","WHISKEY-------------","BLANKET-------------","SNAKEBITE MEDICINE--".
56512 DEFB 82,83,69,45,45,45,45,45
56520 DEFB 45,45,45,45,45,45,45,45
56528 DEFB 45,45,34,44,34,83,65,68
56536 DEFB 68,76,69,45,45,45,45,45
56544 DEFB 45,45,45,45,45,45,45,45
56552 DEFB 45,34,44,34,46,52,52,32
56560 DEFB 67,79,76,84,45,45,45,45
56568 DEFB 45,45,45,45,45,45,45,45
56576 DEFB 34,44,34,46,52,53,32,67
56584 DEFB 79,76,84,45,45,45,45,45
56592 DEFB 45,45,45,45,45,45,45,34
56600 DEFB 44,34,67,79,76,84,32,46
56608 DEFB 52,52,32,66,85,76,76,69
56616 DEFB 84,83,45,45,45,45,34,44
56624 DEFB 34,67,79,76,84,32,46,52
56632 DEFB 53,32,66,85,76,76,69,84
56640 DEFB 83,45,45,45,45,34,44,34
56648 DEFB 87,73,78,67,72,69,83,84
56656 DEFB 69,82,32,82,73,70,76,69
56664 DEFB 45,45,45,45,34,44,34,87
56672 DEFB 73,78,67,72,69,83,84,69
56680 DEFB 82,32,66,85,76,76,69,84
56688 DEFB 83,45,45,34,44,34,75,78
56696 DEFB 73,70,69,45,45,45,45,45
56704 DEFB 45,45,45,45,45,45,45,45
56712 DEFB 45,45,34,44,34,70,79,79
56720 DEFB 68,32,70,79,82,32,49,32
56728 DEFB 68,65,89,45,45,45,45,45
56736 DEFB 45,34,44,34,72,79,82,83
56744 DEFB 69,32,70,79,79,68,32,70
56752 DEFB 79,82,32,49,32,68,65,89
56760 DEFB 34,44,34,67,65,78,84,69
56768 DEFB 69,78,32,79,70,32,87,65
56776 DEFB 84,69,82,45,45,45,45,34
56784 DEFB 44,34,71,82,69,65,84,32
56792 DEFB 67,79,65,84,45,45,45,45
56800 DEFB 45,45,45,45,45,45,34,44
56808 DEFB 34,87,72,73,83,75,69,89
56816 DEFB 45,45,45,45,45,45,45,45
56824 DEFB 45,45,45,45,45,34,44,34
56832 DEFB 66,76,65,78,75,69,84,45
56840 DEFB 45,45,45,45,45,45,45,45
56848 DEFB 45,45,45,45,34,44,34,83
56856 DEFB 78,65,75,69,66,73,84,69
56864 DEFB 32,77,69,68,73,67,73,78
56872 DEFB 69,45,45,34,13
56877 DEFB 35,185,126,0,228,53,53,14 Line 9145: DATA 55,28,35,35,5,10,40,15,10,R,3,3,15,R,8,4.
56885 DEFB 0,0,55,0,0,44,50,56
56893 DEFB 14,0,0,28,0,0,44,51
56901 DEFB 53,14,0,0,35,0,0,44
56909 DEFB 51,53,14,0,0,35,0,0
56917 DEFB 44,53,14,0,0,5,0,0
56925 DEFB 44,49,48,14,0,0,10,0
56933 DEFB 0,44,52,48,14,0,0,40
56941 DEFB 0,0,44,49,53,14,0,0
56949 DEFB 15,0,0,44,49,48,14,0
56957 DEFB 0,10,0,0,44,82,44,51
56965 DEFB 14,0,0,3,0,0,44,51
56973 DEFB 14,0,0,3,0,0,44,49
56981 DEFB 53,14,0,0,15,0,0,44
56989 DEFB 82,44,56,14,0,0,8,0
56997 DEFB 0,44,52,14,0,0,4,0
57005 DEFB 0,13
57007 DEFB 35,191,18,0,228,34,84,72 Line 9151: DATA "THE BLACKSMITH".
57015 DEFB 69,32,66,76,65,67,75,83
57023 DEFB 77,73,84,72,34,13
57029 DEFB 35,192,18,0,228,34,84,72 Line 9152: DATA "THE TOWN MAYOR".
57037 DEFB 69,32,84,79,87,78,32,77
57045 DEFB 65,89,79,82,34,13
57051 DEFB 35,193,14,0,228,34,84,72 Line 9153: DATA "THE DOCTOR".
57059 DEFB 69,32,68,79,67,84,79,82
57067 DEFB 34,13
57069 DEFB 35,194,13,0,228,34,77,89 Line 9154: DATA "MY DEPUTY".
57077 DEFB 32,68,69,80,85,84,89,34
57085 DEFB 13
57086 DEFB 35,240,36,0,228,34,77,69 Line 9200: DATA "MEAN","TOUGH","BIG","CRUEL","MAD".
57094 DEFB 65,78,34,44,34,84,79,85
57102 DEFB 71,72,34,44,34,66,73,71
57110 DEFB 34,44,34,67,82,85,69,76
57118 DEFB 34,44,34,77,65,68,34,13
57126 DEFB 35,245,46,0,228,34,78,65 Line 9205: DATA "NASTY","UGLY","VICIOUS","ANGRY","DESPERATE".
57134 DEFB 83,84,89,34,44,34,85,71
57142 DEFB 76,89,34,44,34,86,73,67
57150 DEFB 73,79,85,83,34,44,34,65
57158 DEFB 78,71,82,89,34,44,34,68
57166 DEFB 69,83,80,69,82,65,84,69
57174 DEFB 34,13
57176 DEFB 35,250,108,0,228,34,74,85 Line 9210: DATA "JUMPS OUT ON YOU","SPRINGS OUT","WANDERS UP TO YOU","ATTACKS YOU","CHARGES TOWARD YOU","SNEAKS UP TO YOU".
57184 DEFB 77,80,83,32,79,85,84,32
57192 DEFB 79,78,32,89,79,85,34,44
57200 DEFB 34,83,80,82,73,78,71,83
57208 DEFB 32,79,85,84,34,44,34,87
57216 DEFB 65,78,68,69,82,83,32,85
57224 DEFB 80,32,84,79,32,89,79,85
57232 DEFB 34,44,34,65,84,84,65,67
57240 DEFB 75,83,32,89,79,85,34,44
57248 DEFB 34,67,72,65,82,71,69,83
57256 DEFB 32,84,79,87,65,82,68,32
57264 DEFB 89,79,85,34,44,34,83,78
57272 DEFB 69,65,75,83,32,85,80,32
57280 DEFB 84,79,32,89,79,85,34,13
57288 DEFB 35,255,84,0,228,34,82,69 Line 9215: DATA "RED INDIAN","BANDIT","GUNSLINGER","BOUNTY HUNTER","TRAPPER","DESPERADO","VULTURE".
57296 DEFB 68,32,73,78,68,73,65,78
57304 DEFB 34,44,34,66,65,78,68,73
57312 DEFB 84,34,44,34,71,85,78,83
57320 DEFB 76,73,78,71,69,82,34,44
57328 DEFB 34,66,79,85,78,84,89,32
57336 DEFB 72,85,78,84,69,82,34,44
57344 DEFB 34,84,82,65,80,80,69,82
57352 DEFB 34,44,34,68,69,83,80,69
57360 DEFB 82,65,68,79,34,44,34,86
57368 DEFB 85,76,84,85,82,69,34,13
57376 DEFB 36,9,171,0,228,82,44,53 Line 9225: DATA R,5,R,10,U,10,R,10,R,14,R,12,U,10,R,12,U,14,U,12,R,10,U,10,R,14,R,17,3,19.
57384 DEFB 14,0,0,5,0,0,44,82
57392 DEFB 44,49,48,14,0,0,10,0
57400 DEFB 0,44,85,44,49,48,14,0
57408 DEFB 0,10,0,0,44,82,44,49
57416 DEFB 48,14,0,0,10,0,0,44
57424 DEFB 82,44,49,52,14,0,0,14
57432 DEFB 0,0,44,82,44,49,50,14
57440 DEFB 0,0,12,0,0,44,85,44
57448 DEFB 49,48,14,0,0,10,0,0
57456 DEFB 44,82,44,49,50,14,0,0
57464 DEFB 12,0,0,44,85,44,49,52
57472 DEFB 14,0,0,14,0,0,44,85
57480 DEFB 44,49,50,14,0,0,12,0
57488 DEFB 0,44,82,44,49,48,14,0
57496 DEFB 0,10,0,0,44,85,44,49
57504 DEFB 48,14,0,0,10,0,0,44
57512 DEFB 82,44,49,52,14,0,0,14
57520 DEFB 0,0,44,82,44,49,55,14
57528 DEFB 0,0,17,0,0,44,51,14
57536 DEFB 0,0,3,0,0,44,49,57
57544 DEFB 14,0,0,19,0,0,13
57551 DEFB 36,10,58,0,229,176,34,57 Line 9226: RESTORE VAL "9225": FOR W=U TO 15: READ X: READ E: BEEP X/5,E: NEXT W: PAUSE 100: RETURN.
57559 DEFB 50,50,53,34,58,235,87,61
57567 DEFB 85,204,49,53,14,0,0,15
57575 DEFB 0,0,58,227,88,58,227,69
57583 DEFB 58,215,88,47,53,14,0,0
57591 DEFB 5,0,0,44,69,58,243,87
57599 DEFB 58,242,49,48,48,14,0,0
57607 DEFB 100,0,0,58,254,13
57613 DEFB 36,14,142,0,228,85,44,49 Line 9230: DATA U,13,1.25,20,.75,18,R,20,U,18,.5,13,U,16,.5,13,U,16,R,15.
57621 DEFB 51,14,0,0,13,0,0,44
57629 DEFB 49,46,50,53,14,129,32,0
57637 DEFB 0,0,44,50,48,14,0,0
57645 DEFB 20,0,0,44,46,55,53,14
57653 DEFB 128,64,0,0,0,44,49,56
57661 DEFB 14,0,0,18,0,0,44,82
57669 DEFB 44,50,48,14,0,0,20,0
57677 DEFB 0,44,85,44,49,56,14,0
57685 DEFB 0,18,0,0,44,46,53,14
57693 DEFB 127,127,255,255,255,44,49,51
57701 DEFB 14,0,0,13,0,0,44,85
57709 DEFB 44,49,54,14,0,0,16,0
57717 DEFB 0,44,46,53,14,127,127,255
57725 DEFB 255,255,44,49,51,14,0,0
57733 DEFB 13,0,0,44,85,44,49,54
57741 DEFB 14,0,0,16,0,0,44,82
57749 DEFB 44,49,53,14,0,0,15,0
57757 DEFB 0,13
57759 DEFB 36,15,47,0,229,176,34,57 Line 9231: RESTORE VAL "9230": FOR W=U TO 10: READ X: READ E: BEEP X/3,E: NEXT W: RETURN.
57767 DEFB 50,51,48,34,58,235,87,61
57775 DEFB 85,204,49,48,14,0,0,10
57783 DEFB 0,0,58,227,88,58,227,69
57791 DEFB 58,215,88,47,51,14,0,0
57799 DEFB 3,0,0,44,69,58,243,87
57807 DEFB 58,254,13
57810 DEFB 37,33,74,0,215,46,53,14 Line 9505: BEEP .5,PI: INPUT "PRESS ENTER FOR SCORE "; LINE H$: IF MU>50 THEN LET SC=SC+MU-50.
57818 DEFB 127,127,255,255,255,44,167,58
57826 DEFB 238,34,80,82,69,83,83,32
57834 DEFB 69,78,84,69,82,32,70,79
57842 DEFB 82,32,83,67,79,82,69,32
57850 DEFB 34,59,202,72,36,58,250,77
57858 DEFB 85,62,53,48,14,0,0,50
57866 DEFB 0,0,203,241,83,67,61,83
57874 DEFB 67,43,77,85,45,53,48,14
57882 DEFB 0,0,50,0,0,13
57888 DEFB 37,48,21,0,250,83,67,62 Line 9520: IF SC>HC THEN LET HC=SC: LET Q$=N$.
57896 DEFB 72,67,203,241,72,67,61,83
57904 DEFB 67,58,241,81,36,61,78,36
57912 DEFB 13
57913 DEFB 37,49,2,0,254,13 Line 9521: RETURN.
57919 DEFB 37,53,156,0,217,57,14,0 Line 9525: INK 9: PRINT AT 17,5;"YOU HAVE SCORED ";SC: PRINT : PRINT TAB 4;"BEST SCORE SO FAR IS ";HC: PRINT : PRINT TAB 4;"BY ";Q$: INPUT "PRESS ENTER FOR ANOTHER GAME"; LINE H$: GO TO 15.
57927 DEFB 0,9,0,0,58,245,172,49
57935 DEFB 55,14,0,0,17,0,0,44
57943 DEFB 53,14,0,0,5,0,0,59
57951 DEFB 34,89,79,85,32,72,65,86
57959 DEFB 69,32,83,67,79,82,69,68
57967 DEFB 32,34,59,83,67,58,245,58
57975 DEFB 245,173,52,14,0,0,4,0
57983 DEFB 0,59,34,66,69,83,84,32
57991 DEFB 83,67,79,82,69,32,83,79
57999 DEFB 32,70,65,82,32,73,83,32
58007 DEFB 34,59,72,67,58,245,58,245
58015 DEFB 173,52,14,0,0,4,0,0
58023 DEFB 59,34,66,89,32,34,59,81
58031 DEFB 36,58,238,34,80,82,69,83
58039 DEFB 83,32,69,78,84,69,82,32
58047 DEFB 70,79,82,32,65,78,79,84
58055 DEFB 72,69,82,32,71,65,77,69
58063 DEFB 34,59,202,72,36,58,236,49
58071 DEFB 53,14,0,0,15,0,0,13
58079 DEFB 37,128,64,0,235,78,61,85 Line 9600: FOR N=U TO 6: FOR X=O TO 7: BORDER X: PAPER N: CLS : BEEP .01,N*X+10: NEXT X: NEXT N.
58087 DEFB 204,54,14,0,0,6,0,0
58095 DEFB 58,235,88,61,79,204,55,14
58103 DEFB 0,0,7,0,0,58,231,88
58111 DEFB 58,218,78,58,251,58,215,46
58119 DEFB 48,49,14,122,35,215,10,61
58127 DEFB 44,78,42,88,43,49,48,14
58135 DEFB 0,0,10,0,0,58,243,88
58143 DEFB 58,243,78,13
58147 DEFB 37,133,249,0,245,219,85,59 Line 9605: PRINT FLASH U;AT 4,4;"****CONGRATULATIONS****": PRINT : PRINT : PRINT " THE KILLER WAS ";B$(A): PRINT : PRINT " HE CONFESSED,WHEN THE SHERIFF": PRINT : PRINT " LOCKED HIM UP...": PRINT : PRINT " YOU'RE A HERO,YOU HAVE SAVED": PRINT : PRINT " THE WEST FROM THE WILD BUNCH!": LET SC=SC+5000: LET F$="HERO!": GO TO 9720.
58155 DEFB 172,52,14,0,0,4,0,0
58163 DEFB 44,52,14,0,0,4,0,0
58171 DEFB 59,34,42,42,42,42,67,79
58179 DEFB 78,71,82,65,84,85,76,65
58187 DEFB 84,73,79,78,83,42,42,42
58195 DEFB 42,34,58,245,58,245,58,245
58203 DEFB 34,32,84,72,69,32,75,73
58211 DEFB 76,76,69,82,32,87,65,83
58219 DEFB 32,34,59,66,36,40,65,41
58227 DEFB 58,245,58,245,34,32,72,69
58235 DEFB 32,67,79,78,70,69,83,83
58243 DEFB 69,68,44,87,72,69,78,32
58251 DEFB 84,72,69,32,83,72,69,82
58259 DEFB 73,70,70,34,58,245,58,245
58267 DEFB 34,32,76,79,67,75,69,68
58275 DEFB 32,72,73,77,32,85,80,46
58283 DEFB 46,46,34,58,245,58,245,34
58291 DEFB 32,89,79,85,39,82,69,32
58299 DEFB 65,32,72,69,82,79,44,89
58307 DEFB 79,85,32,72,65,86,69,32
58315 DEFB 83,65,86,69,68,34,58,245
58323 DEFB 58,245,34,32,84,72,69,32
58331 DEFB 87,69,83,84,32,70,82,79
58339 DEFB 77,32,84,72,69,32,87,73
58347 DEFB 76,68,32,66,85,78,67,72
58355 DEFB 33,34,58,241,83,67,61,83
58363 DEFB 67,43,53,48,48,48,14,0
58371 DEFB 0,136,19,0,58,241,70,36
58379 DEFB 61,34,72,69,82,79,33,34
58387 DEFB 58,236,57,55,50,48,14,0
58395 DEFB 0,248,37,0,13
58400 DEFB 37,228,65,0,235,78,61,85 Line 9700: FOR N=U TO 6: FOR X=7 TO 0 STEP -U: BORDER N: PAPER X: CLS : BEEP .01,N*-U: NEXT X: NEXT N.
58408 DEFB 204,54,14,0,0,6,0,0
58416 DEFB 58,235,88,61,55,14,0,0
58424 DEFB 7,0,0,204,48,14,0,0
58432 DEFB 0,0,0,205,45,85,58,231
58440 DEFB 78,58,218,88,58,251,58,215
58448 DEFB 46,48,49,14,122,35,215,10
58456 DEFB 61,44,78,42,45,85,58,243
58464 DEFB 88,58,243,78,13
58469 DEFB 37,238,151,0,245,172,53,14 Line 9710: PRINT AT 5,U;"UNFORTUNATELY YOU HAVE JUST": PRINT : PRINT " KILLED THE ONLY MAN WHO COULD": PRINT : PRINT " PROVE YOUR INNOCENCE. DEAD MEN": PRINT : PRINT " DON'T CONFESS....": LET F$="IDIOT".
58477 DEFB 0,0,5,0,0,44,85,59
58485 DEFB 34,85,78,70,79,82,84,85
58493 DEFB 78,65,84,69,76,89,32,89
58501 DEFB 79,85,32,72,65,86,69,32
58509 DEFB 74,85,83,84,34,58,245,58
58517 DEFB 245,34,32,75,73,76,76,69
58525 DEFB 68,32,84,72,69,32,79,78
58533 DEFB 76,89,32,77,65,78,32,87
58541 DEFB 72,79,32,67,79,85,76,68
58549 DEFB 34,58,245,58,245,34,32,80
58557 DEFB 82,79,86,69,32,89,79,85
58565 DEFB 82,32,73,78,78,79,67,69
58573 DEFB 78,67,69,46,32,68,69,65
58581 DEFB 68,32,77,69,78,34,58,245
58589 DEFB 58,245,34,32,68,79,78,39
58597 DEFB 84,32,67,79,78,70,69,83
58605 DEFB 83,46,46,46,46,34,58,241
58613 DEFB 70,36,61,34,73,68,73,79
58621 DEFB 84,34,13
58624 DEFB 37,248,18,0,237,176,34,57 Line 9720: GO SUB VAL "9500": GO TO VAL "9800".
58632 DEFB 53,48,48,34,58,236,176,34
58640 DEFB 57,56,48,48,34,13
58646 DEFB 38,72,16,1,218,82,58,231 Line 9800: PAPER R: BORDER R: CLS : LET X=62298: LET T=8: GO SUB 9900: DRAW -17,29: PLOT 139,137: DRAW -16,28: PLOT 73,137: DRAW 17,-30: PLOT 107,78: DRAW 16,-30: PRINT AT 6,14;"TOP";AT 8,13;"GRADE";AT 10,13;F$: GO TO 9525.
58654 DEFB 82,58,251,58,241,88,61,54
58662 DEFB 50,50,57,56,14,0,0,90
58670 DEFB 243,0,58,241,84,61,56,14
58678 DEFB 0,0,8,0,0,58,237,57
58686 DEFB 57,48,48,14,0,0,172,38
58694 DEFB 0,58,252,45,49,55,14,0
58702 DEFB 0,17,0,0,44,50,57,14
58710 DEFB 0,0,29,0,0,58,246,49
58718 DEFB 51,57,14,0,0,139,0,0
58726 DEFB 44,49,51,55,14,0,0,137
58734 DEFB 0,0,58,252,45,49,54,14
58742 DEFB 0,0,16,0,0,44,50,56
58750 DEFB 14,0,0,28,0,0,58,246
58758 DEFB 55,51,14,0,0,73,0,0
58766 DEFB 44,49,51,55,14,0,0,137
58774 DEFB 0,0,58,252,49,55,14,0
58782 DEFB 0,17,0,0,44,45,51,48
58790 DEFB 14,0,0,30,0,0,58,246
58798 DEFB 49,48,55,14,0,0,107,0
58806 DEFB 0,44,55,56,14,0,0,78
58814 DEFB 0,0,58,252,49,54,14,0
58822 DEFB 0,16,0,0,44,45,51,48
58830 DEFB 14,0,0,30,0,0,58,245
58838 DEFB 172,54,14,0,0,6,0,0
58846 DEFB 44,49,52,14,0,0,14,0
58854 DEFB 0,59,34,84,79,80,34,59
58862 DEFB 172,56,14,0,0,8,0,0
58870 DEFB 44,49,51,14,0,0,13,0
58878 DEFB 0,59,34,71,82,65,68,69
58886 DEFB 34,59,172,49,48,14,0,0
58894 DEFB 10,0,0,44,49,51,14,0
58902 DEFB 0,13,0,0,59,70,36,58
58910 DEFB 236,57,53,50,53,14,0,0
58918 DEFB 53,37,0,13
58922 DEFB 38,122,149,0,231,82,58,218 Line 9850: BORDER R: PAPER R: INK O: CLS : LET S$="": FOR N=U TO 13: PRINT AT N,13;S$: NEXT N: FOR N=4 TO 6: PRINT AT N,10;S$;S$;S$: NEXT N: INK 9: PRINT PAPER O;AT 5,12;"R.I.P": GO TO 9525.
58930 DEFB 82,58,217,79,58,251,58,241
58938 DEFB 83,36,61,34,143,143,143,34
58946 DEFB 58,235,78,61,85,204,49,51
58954 DEFB 14,0,0,13,0,0,58,245
58962 DEFB 172,78,44,49,51,14,0,0
58970 DEFB 13,0,0,59,83,36,58,243
58978 DEFB 78,58,235,78,61,52,14,0
58986 DEFB 0,4,0,0,204,54,14,0
58994 DEFB 0,6,0,0,58,245,172,78
59002 DEFB 44,49,48,14,0,0,10,0
59010 DEFB 0,59,83,36,59,83,36,59
59018 DEFB 83,36,58,243,78,58,217,57
59026 DEFB 14,0,0,9,0,0,58,245
59034 DEFB 218,79,59,172,53,14,0,0
59042 DEFB 5,0,0,44,49,50,14,0
59050 DEFB 0,12,0,0,59,34,82,46
59058 DEFB 73,46,80,34,58,236,57,53
59066 DEFB 50,53,14,0,0,53,37,0
59074 DEFB 13
59075 DEFB 38,142,241,0,218,82,58,231 Line 9870: PAPER R: BORDER R: INK 0: CLS : LET X=62331: LET T=29: PRINT AT R,9;"";AT 14,9;"": FOR N=INT PI TO 13: PRINT PAPER 5;AT N,9;" ": NEXT N: GO SUB 9900: LET X=62240: FOR N=1 TO 28: PLOT PEEK X,PEEK (X+1): LET X=X+2: NEXT N.
59083 DEFB 82,58,217,48,14,0,0,0
59091 DEFB 0,0,58,251,58,241,88,61
59099 DEFB 54,50,51,51,49,14,0,0
59107 DEFB 123,243,0,58,241,84,61,50
59115 DEFB 57,14,0,0,29,0,0,58
59123 DEFB 245,172,82,44,57,14,0,0
59131 DEFB 9,0,0,59,34,143,143,143
59139 DEFB 143,143,143,143,143,143,143,143
59147 DEFB 143,143,34,59,172,49,52,14
59155 DEFB 0,0,14,0,0,44,57,14
59163 DEFB 0,0,9,0,0,59,34,143
59171 DEFB 143,143,143,143,143,143,143,143
59179 DEFB 143,143,143,143,34,58,235,78
59187 DEFB 61,186,167,204,49,51,14,0
59195 DEFB 0,13,0,0,58,245,218,53
59203 DEFB 14,0,0,5,0,0,59,172
59211 DEFB 78,44,57,14,0,0,9,0
59219 DEFB 0,59,34,143,32,32,138,32
59227 DEFB 32,138,32,32,138,32,32,143
59235 DEFB 34,58,243,78,58,237,57,57
59243 DEFB 48,48,14,0,0,172,38,0
59251 DEFB 58,241,88,61,54,50,50,52
59259 DEFB 48,14,0,0,32,243,0,58
59267 DEFB 235,78,61,49,14,0,0,1
59275 DEFB 0,0,204,50,56,14,0,0
59283 DEFB 28,0,0,58,246,190,88,44
59291 DEFB 190,40,88,43,49,14,0,0
59299 DEFB 1,0,0,41,58,241,88,61
59307 DEFB 88,43,50,14,0,0,2,0
59315 DEFB 0,58,243,78,13
59320 DEFB 38,143,28,1,246,49,48,56 Line 9871: PLOT 108,95: DRAW 28,O,PI: PLOT 126,73: DRAW -3,R: PLOT 116,86: DRAW 12,O,-PI: PLOT 127,110: DRAW 5,3,-PI/R: PLOT 117,110: DRAW -5,3,PI/R: PLOT 147,72: DRAW 6,-8,-PI/R: PLOT 97,72: DRAW -6,-8,PI/R: GO TO 9525.
59328 DEFB 14,0,0,108,0,0,44,57
59336 DEFB 53,14,0,0,95,0,0,58
59344 DEFB 252,50,56,14,0,0,28,0
59352 DEFB 0,44,79,44,167,58,246,49
59360 DEFB 50,54,14,0,0,126,0,0
59368 DEFB 44,55,51,14,0,0,73,0
59376 DEFB 0,58,252,45,51,14,0,0
59384 DEFB 3,0,0,44,82,58,246,49
59392 DEFB 49,54,14,0,0,116,0,0
59400 DEFB 44,56,54,14,0,0,86,0
59408 DEFB 0,58,252,49,50,14,0,0
59416 DEFB 12,0,0,44,79,44,45,167
59424 DEFB 58,246,49,50,55,14,0,0
59432 DEFB 127,0,0,44,49,49,48,14
59440 DEFB 0,0,110,0,0,58,252,53
59448 DEFB 14,0,0,5,0,0,44,51
59456 DEFB 14,0,0,3,0,0,44,45
59464 DEFB 167,47,82,58,246,49,49,55
59472 DEFB 14,0,0,117,0,0,44,49
59480 DEFB 49,48,14,0,0,110,0,0
59488 DEFB 58,252,45,53,14,0,0,5
59496 DEFB 0,0,44,51,14,0,0,3
59504 DEFB 0,0,44,167,47,82,58,246
59512 DEFB 49,52,55,14,0,0,147,0
59520 DEFB 0,44,55,50,14,0,0,72
59528 DEFB 0,0,58,252,54,14,0,0
59536 DEFB 6,0,0,44,45,56,14,0
59544 DEFB 0,8,0,0,44,45,167,47
59552 DEFB 82,58,246,57,55,14,0,0
59560 DEFB 97,0,0,44,55,50,14,0
59568 DEFB 0,72,0,0,58,252,45,54
59576 DEFB 14,0,0,6,0,0,44,45
59584 DEFB 56,14,0,0,8,0,0,44
59592 DEFB 167,47,82,58,236,57,53,50
59600 DEFB 53,14,0,0,53,37,0,13
59608 DEFB 38,172,48,0,235,78,61,85 Line 9900: FOR N=U TO T: PLOT PEEK X,PEEK (X+U): LET X=X+R: DRAW PEEK X,PEEK (X+U): LET X=X+R: NEXT N: RETURN.
59616 DEFB 204,84,58,246,190,88,44,190
59624 DEFB 40,88,43,85,41,58,241,88
59632 DEFB 61,88,43,82,58,252,190,88
59640 DEFB 44,190,40,88,43,85,41,58
59648 DEFB 241,88,61,88,43,82,58,243
59656 DEFB 78,58,254,13
59660 DEFB 39,15,31,0,217,57,14,0 Line 9999: INK 9: BEEP .5,O: PAUSE O: GO TO VAL "15".
59668 DEFB 0,9,0,0,58,215,46,53
59676 DEFB 14,127,127,255,255,255,44,79
59684 DEFB 58,242,79,58,236,176,34,49
59692 DEFB 53,34,13
Prev: 23297 Up: Map Next: 59695