Source Code
10 LET E=2
20 LET F=3
30 LET M=E-E
40 RAND
50 LET D=RND*E
60 IF D>=F-E THEN PRINT AT 12,8;"TRY YOUR LUCK"
70 IF D<F-E THEN PRINT AT 12,8;" *YOU LOST* "
80 LET D=20
90 PRINT AT 13,9;"NOW AT $";M
100 PRINT AT 14,8;"PLAY $1 TO $5"
110 INPUT B
120 IF B<F-E OR B>E+F THEN GOTO 110
130 PRINT AT 9,22;"% "
140 PRINT AT 3,22;"\ :"
150 PRINT AT 4,22;"\ :"
160 PRINT AT 5,22;"% "
170 PRINT AT 6,22;"% "
180 PRINT AT 8,22;"% "
190 PRINT AT 7,21;"% % "
200 PRINT AT 3,10;"% % % %$%$%$% % % "
210 PRINT AT 4,10;"% % % % % % % % % "
220 PRINT AT 5,9;"% % % % % % % % % % % "
230 PRINT AT 6,8;"% % % % % % % % % % % % % "
240 PRINT AT 7,8;"% % % % % % % % % % % % % "
250 PRINT AT 8,8;"% % % % % % % % % % % % % "
260 PRINT AT 9,8;"% \''\''\''% \''\''\''% \''\''\''% "
270 PRINT AT 10,8;"% % % % "
280 PRINT AT 11,8;"% \..\..\..% \..\..\..% \..\..\..% "
290 PRINT AT 12,8;" "
300 PRINT AT 13,8;" "
310 PRINT AT 14,8;" "
320 PRINT AT 10,10;
330 GOSUB 500
340 LET X=A
350 PRINT TAB 14;
360 GOSUB 500
370 LET Y=A
380 PRINT TAB 18;
390 GOSUB 500
400 LET Z=A
410 LET M=M-B
420 IF X<>F THEN IF X<=Y OR X<=Z THEN GOTO 40
430 GOSUB 550
440 LET C=E
450 IF Y=F THEN LET C=E+F
460 IF X=Y AND X=Z THEN LET C=D
470 LET M=M+C*B
480 PRINT C*B
490 GOTO 80
500 LET A=INT (RND*(E*F))
510 FOR Z=E-E TO 65
520 NEXT Z
530 PRINT CHR$ (128+A*E);
540 RETURN
550 PRINT AT 6,11;" "
560 PRINT AT 6,11;"YOU WIN"
570 LET P=0
580 GOSUB 670
590 PRINT AT 6,11;"%Y%O%U% %W%I%N"
600 GOSUB 670
610 PRINT AT 6,11;"YOU WIN"
620 PRINT AT 7,13;" "
630 PRINT AT 7,13;"$";
640 LET P=P+1
650 IF P=6 THEN RETURN
660 GOTO 590
670 LET T=0
680 LET T=T+1
690 IF T=3 THEN RETURN
700 GOTO 680
710 CLEAR
720 SAVE "1027%8"
730 RUN
