1: CLS 2: lors: 3: INPUT "Do you want [L]arge and blocky or [S]mall and detailed"; a$ 4: a$ = UCASE$(a$) 5: SELECT CASE a$ 6: CASE "L" 7: scrn% = 13 8: CASE "S" 9: scrn% = 12 10: CASE IS <> "L", "S" 11: BEEP 12: PRINT "Please pick `L` or `S`" 13: GOTO lors 14: END SELECT 15: INPUT "Enter filename (including drive, path, & extension if necessary):", file$ 16: SCREEN scrn% 17: CLS 18: OPEN file$ FOR BINARY AS #1 19: GET #1, 1, d% 20: u = 1 21: DO 22: IF j = 2 THEN u = u + .05: j = 0 23: j = j + 1 24: GET #1, , d% 25: d% = d% / 1000 26: IF u > 320 THEN SLEEP: CLS : u = 1 27: IF d% < 0 THEN d% = d% * -1: d% = 67 - d% 28: IF d% > 0 THEN d% = 67 + d% 29: PSET (u, d%), 2 30: b = b + 1 31: IF b > 256 THEN b = 1 32: LOOP UNTIL EOF(1) 33: |