On Your Mark

Gallery

Source Code

    5 REM *On your Mark!* \* Fred Blechman 1983
    7 BORDER 7: CLS 
   10 FOR X=0 TO 7: READ N: POKE USR "\m"+X,N: NEXT X
   20 DATA BIN 00001100,BIN 00001100,BIN 11111000,BIN 10011111,BIN 00011000,BIN 00011110,BIN 01110010,BIN 01000011
   30 FOR X=0 TO 7: READ N: POKE USR "\a"+X,N: NEXT X
   40 DATA BIN 00001100,BIN 00001100,BIN 01111000,BIN 01011110,BIN 01011010,BIN 00011000,BIN 00100100,BIN 00100100
  100 FOR X=2 TO 16 STEP 2
  110 PRINT AT X,0;X/2;"_\a";"_____________________________"
  120 NEXT X
  125 FOR Y=31 TO 159: PLOT 248,Y: NEXT Y
  130 PRINT AT 0,0;"    ";: INPUT "Who do you bet on?? ";BET: PRINT "....You bet on ";BET;"....."
  135 GO TO 200
  200 RANDOMIZE : LET A=3: LET B=3: LET C=3: LET D=3: LET E=3: LET F=3: LET G=3: LET H=3: LET I=3
  210 LET R=INT (RND*8+1)
  215 BEEP .05,R: BORDER R-1
  220 GO TO R*1000
 1000 PRINT AT 2,A-1;"_\m";
 1020 LET A=A+1: IF A=32 THEN GO TO 9500
 1030 GO TO 210
 2000 PRINT AT 4,B-1;"_\m";
 2020 LET B=B+1: IF B=32 THEN GO TO 9050
 2030 GO TO 210
 3000 PRINT AT 6,C-1;"_\m";
 3020 LET C=C+1: IF C=32 THEN GO TO 9050
 3030 GO TO 210
 4000 PRINT AT 8,D-1;"_\m";
 4020 LET D=D+1: IF D=32 THEN GO TO 9050
 4030 GO TO 210
 5000 PRINT AT 10,E-1;"_\m";
 5020 LET E=E+1: IF E=32 THEN GO TO 9050
 5030 GO TO 210
 6000 PRINT AT 12,F-1;"_\m";
 6020 LET F=F+1: IF F=32 THEN GO TO 9050
 6030 GO TO 210
 7000 PRINT AT 14,G-1;"_\m";
 7020 LET G=G+1: IF G=32 THEN GO TO 9500
 7030 GO TO 210
 8000 PRINT AT 16,H-1;"_\m";
 8020 LET H=H+1: IF H=32 THEN GO TO 9500
 8030 GO TO 210
 9500 IF R<>BET THEN PRINT AT 18,0; INK 2; FLASH 1;".....Sorry the winner is ";R;" !!!"; FLASH 0
 9505 IF R=BET THEN PRINT AT 18,0; INK 1; FLASH 1;".....Good guess YOU WIN!!!"; FLASH 0
 9510 BORDER 7: INPUT "TRY AGAIN? ";A$
 9520 IF A$="Y" OR A$="y" THEN RUN 
 9530 STOP 
 9997 STOP 
 9998 SAVE "ON YOUR MA" LINE 1