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: SS$ = "C:\ROT.SNG" 16: OPEN SS$ FOR OUTPUT AS #2 17: INPUT "Enter filename (including drive, path, & extension if necessary):", file$ 18: SCREEN scrn% 19: CLS 20: OPEN file$ FOR BINARY AS #1 21: GET #1, 1, d% 22: u = 1 23: DO 24: IF j = 2 THEN u = u + .05: j = 0 25: j = j + 1 26: GET #1, , d% 27: d% = d% / 100 28: IF u > 320 THEN SLEEP: CLS : u = 1 29: IF d% < 0 THEN d% = d% * -1: d% = 67 - d% 30: IF d% > 0 THEN d% = 67 + d% 31: PSET (u, d% / 10), 2 32: LOCATE 19, 1: PRINT d% + 1000 33: PRINT #2, d% + 1000 34: b = b + 1 35: IF b > 256 THEN b = 1 36: LOOP UNTIL EOF(1) 37: PRINT #2, "324" 38: CLOSE #2 39: |