1004 "B"CLEAR :CLS :WAIT 0:RANDOM :FOR I=14 TO 149 STEP 8
1005 B=RND 4-2
1010 GCURSOR (I,27-B*4):GPRINT "080C0E0F0F0E0C08"
1015 FOR J=(31-B*4) TO 35 STEP 4
1020 GCURSOR (I,J):GPRINT "0F09090F0F09090F":NEXT J:NEXT I
1030 FOR Y=7 TO 31 STEP 3:FOR X=0 TO 150 STEP 2
1035 IF POINT (X+10,Y) GOTO 1130
1040 GCURSOR (X,Y):GPRINT "000000BAFE7C38BA7C3810"
1045 IF INKEY$ IF C=0 LET C=1:W=W+1:P=X:Q=Y
1050 IF C GOSUB 1070
1055 NEXT X:NEXT Y:GOTO 1140
1070 Q=Q+3:IF POINT (P,Q)=1 OR Q>31 GOTO 1100
1075 GCURSOR (P,Q):GPRINT "70E070"
1080 X=X+1:RETURN 
1100 GCURSOR (P-2,Q+1):GPRINT "2148A24050845108":BEEP 1
1105 GCURSOR (P-2,Q+1):GPRINT "0000000000000000"
1110 C=0:RETURN 
1130 GCURSOR (X+2,Y):GPRINT "4910A518B84512844112":BEEP 1
1140 WAIT :CURSOR 95:PRINT " Poena:";150*Y+X-243;"   Bom:";W
1150 GOTO 1004