5100 "S"CLEAR :CLS :WAIT 0:DIM Q$(3)*18:Y=30
5110 RESTORE 5490:FOR I=0TO 3:READ Q$(I):NEXT I
5120 FOR I=1TO 6:Q=I*20:W=35-I*4:LINE (Q,W-3)-(149,W),BF
5125 GCURSOR (Q-2,W):GPRINT "C0E0"
5130 FOR J=0 TO 1:GCURSOR (Q+J*9,W-4):GPRINT Q$(RND 4-1):NEXT J
5140 NEXT I:LINE (0,31)-(20,31)
5145 LINE (0,15)-(100,0):LINE (0,16)-(100,1):CURSOR 90:PRINT " p=0"
5150 FOR X=-5 TO 149
5155 IF POINT (X+8,Y)END 
5160 IF INKEY$ ="Z"IF C=0 LET C=1:Q=X+6:W=Y-3
5165 IF C GOSUB 5200
5170 Y=(INKEY$ =",")-(INKEY$ =")")+Y
5175 GCURSOR (X,Y):GPRINT "006C7C7C3838381010"
5190 NEXT X:GOTO 5100
5200 Q=Q+3:IF POINT (Q,W) GOTO 5250
5210 PSET (Q+1,W):PRESET (Q-2,W)
5230 RETURN 
5250 E=31-INT (Q/20)*4:IF W>ELET C=0:RETURN 
5255 R=INT ((Q+1)/10)*10:GCURSOR (R,E):GPRINT "4910A518B8451284":BEEP 1
5260 GCURSOR (R-2,E):GPRINT "00000000000000000000"
5265 C=0:P=P+1:CURSOR 93:PRINT P
5270 RETURN 
5490 DATA "48C8C8DCFCFCDC48"
5492 DATA "0000E0FC7FFCE0"
5494 DATA "8C5E3E3E3E3E5E8C"
5496 DATA "101010907EF0D080"