1: INPUT "Rotation (140)"; ROT: ROT = 240 - ROT 2: INPUT "Width(1-16) (1)"; wid 3: INPUT "Step Value (10)"; mfc 4: INPUT "Message"; msg$ 5: INPUT "Color (2)"; clr 6: INPUT "Moving (Y/n)"; mv$ 7: IF RTRIM$(LTRIM$(UCASE$(LEFT$(mv$, 1)))) = "Y" OR RTRIM$(LTRIM$(UCASE$(LEFT$(mv$, 1)))) = "" THEN mov = 0 8: IF RTRIM$(LTRIM$(LCASE$(LEFT$(mv$, 1)))) = "n" THEN mov = 1 9: IF LEN(msg$) > 80 THEN msg$ = MID$(msg$, 1, 80) 10: SCREEN 12 11: SZ = 200 12: HT = 200 13: WZ = 0 14: mx = 50 15: mn = 0 16: DO UNTIL INKEY$ = CHR$(13) 17: QW = RND * 43 + 1 18: QW = WZ * mfc 19: IF clr = 0 AND cr < 15 AND dde = 0 THEN cr = cr + 1 ELSE dde = 1 20: IF clr = 0 AND cr > 1 AND dde = 1 THEN cr = cr - 1 ELSE dde = 0 21: IF clr > 0 THEN cr = clr 22: FOR AD = 1 TO wid 23: LINE (320 - SZ + QW, ROT + HT + AD)-(320 + SZ - QW, 240 + HT + AD), cr 24: NEXT AD 25: IF WZ < mx AND D = 0 THEN WZ = WZ + 1 ELSE D = 1 26: IF WZ > mn AND D = 1 THEN WZ = WZ - 1 ELSE D = 0 27: IF mov = 0 THEN LOCATE 30, 1: PRINT msg$ ELSE LOCATE 30, 1: PRINT msg$; : LINE (320 - SZ + QW, ROT + HT + AD)-(320 + SZ - QW, 240 + HT + AD), 0 28: 'IF mov = 0 THEN LOCATE 30, 1: PRINT msg$ ELSE LOCATE 30, 1: PRINT msg$; : FOR AD = 1 TO wid: LINE (320 - SZ + QW, ROT + HT + AD)-(320 + SZ - QW, 240 + HT + AD), 0: NEXT AD 29: LOOP 30: |