Advertisement
Guest User

Untitled

a guest
Sep 13th, 2013
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. 10 PRINT CHR$(147): CLEARS SCREEN
  2. 20 X = 1: Y = 12: A$ = "SEXY!": TL = 5
  3. 1000 REM TEXT POSITIONING RIGHT
  4. 1010 IF X < 40 - TL THEN X = X + 1
  5. 1020 IF X = 40 - TL THEN GOTO 2000
  6. 1030 GOSUB 3000
  7. 1040 GOTO 1000
  8. 2000 REM TEXT POSITIONING LEFT
  9. 2010 IF X > 0 THEN X = X - 1
  10. 2020 IF X = 0 THEN GOTO 1000
  11. 2030 GOSUB 3000
  12. 2040 GOTO 2000
  13. 3000 REM TEXT PRINTING
  14. 3010 POKE 211,X: POKE 214,Y: SYS 58640: PRINT A$
  15. 3020 PRINT CHR$(147)
  16. 3030 RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement