Brick-Yard Bill

   11 FOR n=0 TO 7: READ z: POKE USR "a"+n,z: NEXT n
   12 DATA 0,119,119,119,0,238,238,238
   13 FOR n=0 TO 7: READ z: POKE USR "b"+n,z: NEXT n
   14 DATA 24,24,60,90,153,36,36,102
   15 GO SUB 6000
   16 LET hi=0: LET fr=0
   17 LET h=20
   18 LET score=0
   20 LET x=10: LET y=15
   30 LET a$="\a"
   32 PRINT BRIGHT 1; PAPER 7; INK 2;AT 0,0;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
   33 FOR n=1 TO 20
   34 PRINT BRIGHT 1; PAPER 7; INK 2;AT n,0;"\a";AT n,31;"\a"
   35 NEXT n
   36 PRINT BRIGHT 1; PAPER 7; INK 2;AT 21,0;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
   38 PRINT #1; PAPER 1; INK 7;AT 0,1;"SCORE=";AT 0,15;"HI SCORE="
   40 FOR b=1 TO h
   45 LET c=INT (RND*20)+1
   46 IF c=10 THEN GO TO 45
   47 LET d=INT (RND*30)+1
   48 IF ATTR (c,d)>100 THEN GO TO 45
   49 BEEP .01,d
   50 PRINT PAPER 7; INK 2; BRIGHT 1;AT c,d;a$: NEXT b
   55 FOR n=-20 TO 20: BEEP .01,ABS n+15: NEXT n
   60 PRINT AT x,y;"\b"
   80 PAUSE 0
  100 IF INKEY$="5" THEN GO TO 1000
  200 IF INKEY$="6" THEN GO TO 2000
  300 IF INKEY$="7" THEN GO TO 3000
  400 IF INKEY$="8" THEN GO TO 4000
  450 PRINT AT x,y;"\b"
  455 IF ATTR (x+1,y)>32 AND ATTR (x-1,y)>32 AND ATTR (x,y+1)>32 AND ATTR (x,y-1)>32 THEN GO TO 5000
  500 GO TO 100
 1000 REM ++++++++LEFT++++++++
 1010 IF ATTR (x,y-1)>32 THEN GO TO 100
 1020 PRINT PAPER 7; INK 2; BRIGHT 1;AT x,y;"\a"
 1025 PRINT #1; PAPER 1; INK 7;AT 0,7;INT ((score*100)/(599-h))+fr
 1030 LET y=y-1
 1035 IF y<=0 THEN LET y=0
 1024 PRINT AT x,y;"\b"
 1050 BEEP .01,21-x
 1055 LET score=score+1
 1060 IF INKEY$="6" THEN GO TO 2000
 1070 IF INKEY$="7" THEN GO TO 3000
 1090 GO TO 1000
 2000 REM ++++++++DOWN++++++++
 2010 IF ATTR (x+1,y)>32 THEN GO TO 100
 2020 PRINT PAPER 7; INK 2; BRIGHT 1;AT x,y;"\a"
 2025 PRINT #1; PAPER 1; INK 7;AT 0,7;INT ((score*100)/(599-h))+fr
 2030 LET x=x+1
 2035 IF x>=21 THEN LET x=21
 2040 PRINT AT x,y;"\b"
 2050 BEEP .00,21-x
 2055 LET score=score+1
 2060 IF INKEY$="5" THEN GO TO 1000
 2080 IF INKEY$="8" THEN GO TO 4000
 2090 GO TO 2000
 3000 REM +++++++++UP+++++++++
 3010 IF ATTR (x-1,y)>32 THEN GO TO 100
 3020 PRINT PAPER 7; INK 2; BRIGHT 1;AT x,y;"\a"
 3025 PRINT #1; PAPER 1; INK 7;AT 0,7;INT ((score*100)/(599-h))+fr
 3030 LET x=x-1
 3035 IF x<=0 THEN LET x=0
 3040 PRINT AT x,y;"\b"
 3050 BEEP .01,21-x
 3055 LET score=score+1
 3060 IF INKEY$="5" THEN GO TO 1000
 3080 IF INKEY$="8" THEN GO TO 4000
 3090 GO TO 3000
 4000 REM +++++++RIGHT++++++++
 4010 IF ATTR (x,y+1)>32 THEN GO TO 100
 4020 PRINT PAPER 7; INK 2; BRIGHT 1;AT x,y;"\a"
 4025 PRINT #1; PAPER 1; INK 7;AT 0,7;INT ((score*100)/(599-h))+fr
 4030 LET y=y+1
 4035 IF y>=31 THEN LET y=31
 4040 PRINT AT x,y;"\b"
 4050 BEEP .01,21-x
 4055 LET score=score+1
 4070 IF INKEY$="6" THEN GO TO 2000
 4080 IF INKEY$="7" THEN GO TO 3000
 4090 GO TO 4000
 5000 REM +++++++SCORE++++++++
 5025 LET pc=INT ((score*100)/(599-h))
 5030 LET fr=fr+pc
 5035 IF fr>hi THEN LET hi=fr
 5050 PRINT #1; PAPER 1; INK 7;AT 0,1;"SCORE=";INT pc;" ";AT 0,15;"HI SCORE=";hi;" "
 5053 IF pc>=80 THEN GO TO 5060
 5054 LET fr=0: LET pc=0: LET h=20
 5055 PRINT PAPER 6; INK 0; FLASH 1;AT 2,1;" PRESS ANY KEY TO PLAY AGAIN. "
 5059 GO TO 5069
 5060 LET pc=0: LET h=h+10
 5063 PRINT FLASH 1; PAPER 6; INK 0;AT 2,3;" Press key for next round "
 5069 PAUSE 0
 5070 FOR n=1 TO 20
 5080 PRINT PAPER 4;AT n,1;"                              ": BEEP .01,n                      
 5090 NEXT n
 5093 PRINT #1; PAPER 1; INK 7;AT 0,7;fr;"  "
 5095 GO TO 18
 5160 PRINT PAPER 4; INK 0;AT 6,2;"AT THE END OF EACH GAME YOU     WILL BE GIVEN THE APPROX.       PRECENTAGE OF THE YARD WHICH    IS COVERED WITH BRICKS."
 5170 PRINT PAPER 4; INK 0; BRIGHT 1;AT 15,4;"PRESS ANY KEY TO START."
 6000 REM +++++++INSTR++++++++
 6010 BORDER 6: PAPER 4: CLS 
 6015 DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
 6020 FOR n=1 TO 9
 6030 PRINT PAPER 7; INK 2; BRIGHT 1;AT n,1;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
 6040 NEXT n
 6050 PRINT PAPER 7; INK 2; BRIGHT 1;AT 10,1;"\a                            \a "
 6060 FOR n=11 TO 20
 6070 PRINT PAPER 7; INK 2; BRIGHT 1;AT n,1;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
 6080 NEXT n
 6090 LET a$="                        BRICK-YARD BILL            HELP BILL STACK THE BRICKS BUT BE CAREFUL NOT TO GET TRAPPED                        \b\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
 6095 FOR n=0 TO 135
 6100 LET a$=a$(2 TO )+a$(1)
 6110 BEEP .05,CODE a$(28)/4
 6120 PRINT PAPER 7; INK 2; BRIGHT 1;AT 10,2;A$(1 TO 28)
 6130 NEXT n
 6134 PRINT BRIGHT 1; PAPER 1; INK 7;AT 10,5;"press key to continue"
 6135 PAUSE 0
 6140 PAPER 4: CLS 
 6150 PRINT PAPER 4; INK 0;AT 2,2;"USE THE CURSOR KEYS TO STEER    BILL AROUND THE BRICK-YARD."
 6175 DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
 6180 PAUSE 0
 6190 FOR n=0 TO 40 STEP 5
 6200 BEEP .03,n
 6210 NEXT n
 6220 CLS 
 7000 RETURN 
 9998 SAVE "Bricks" LINE 0: BEEP .4,15
 9999 VERIFY ""