1: SCREEN 12 2: OPEN FILE$ FOR RANDOM AS #1 3: 10 kbd$ = INKEY$ 4: IF kbd$ = CHR$(0) + "H" THEN DRAW "U1": U = U + 1: D = D - 1: WRITE 5: IF kbd$ = CHR$(0) + "P" THEN DRAW "D1": D = D + 1: U = U - 1 6: IF kbd$ = CHR$(0) + "K" THEN DRAW "L1": L = L + 1: R = R - 1 7: IF kbd$ = CHR$(0) + "M" THEN DRAW "R1": R = R + 1: L = L - 1 8: LOCATE 1, 1: IF U > 0 THEN PRINT U: LOCATE 2, 1: PRINT " " 9: LOCATE 2, 1: IF D > 0 THEN PRINT D: LOCATE 1, 1: PRINT " " 10: LOCATE 3, 1: IF L > 0 THEN PRINT L: LOCATE 4, 1: PRINT " " 11: LOCATE 4, 1: IF R > 0 THEN PRINT R: LOCATE 3, 1: PRINT " " 12: GOTO 10 13: |