1: SCREEN 12 2: ROT = 0: wid = 1: mfc = 7: msg$ = "": clr = 2: mov = 0 3: SZ = 200 4: HT = 200 5: WZ = 0 6: mx = 50 7: mn = 0 8: DO UNTIL INKEY$ = CHR$(13) 9: QW = RND * 43 + 1 10: QW = WZ * mfc 11: IF clr = 0 AND cr < 15 AND dde = 0 THEN cr = cr + 1 ELSE dde = 1 12: IF clr = 0 AND cr > 1 AND dde = 1 THEN cr = cr - 1 ELSE dde = 0 13: IF clr > 0 THEN cr = clr 14: FOR AD = 0 TO wid 15: LINE (320 - SZ + QW, ROT + HT + AD)-(320 + SZ - QW, 240 + HT + AD), cr 16: NEXT AD 17: IF WZ < mx AND D = 0 THEN WZ = WZ + 1 ELSE D = 1 18: IF WZ > mn AND D = 1 THEN WZ = WZ - 1 ELSE D = 0 19: 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 20: LOOP 21: |