1: DECLARE SUB GetScreenPoints (x!, y!) 2: CLS : SCREEN 12 3: 'DO UNTIL INKEY$ = CHR$(27) 4: GetScreenPoints x1, y1 5: GetScreenPoints x2, y2 6: LINE (x1, y1)-(x2, y2), 15 7: DEF SEG = &HA000 8: BSAVE "HAS.tmp", 0, 64000 9: CLS 10: SLEEP 11: DEF SEG = &HA000 12: BLOAD "Has.tmp", 0 13: 14: SUB GetScreenPoints (x, y) 15: x = 1: y = 1 16: DO UNTIL d$ = CHR$(13) OR d$ = CHR$(32) 17: f = POINT(x, y) 18: PSET (x, y), 15 19: 12 d$ = INKEY$ 20: IF d$ = "" THEN GOTO 12 21: PSET (x, y), f 22: IF d$ = CHR$(0) + "K" THEN y1 = y: x1 = x: x = x - 3 23: IF d$ = CHR$(0) + "H" THEN x1 = x: y1 = y: y = y - 3 24: IF d$ = CHR$(0) + "M" THEN y1 = y: x1 = x: x = x + 3 25: IF d$ = CHR$(0) + "P" THEN x1 = x: y1 = y: y = y + 3 26: 'LOCATE 3, 1: PRINT x, y, x1, y, f 27: LOOP 28: END SUB 29: |