Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Sep 13th, 2013  |  syntax: None  |  size: 0.43 KB  |  views: 33  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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