Sidescroll

Source Code

    5 INK 7: PAPER 0: BORDER 0
   10 LET A$="THIS IS AN EXAMPLE PROGRAM TO SHOW HOW FAST THE TIMEX SINCLAIR 2068 CAN ACTUALLY SCROLL A STRING ACROSS THE SCREEN. IT IS SO FAST THAT YOUR BRAIN GETS MUDDLED UP UNTIL YOUR EYES BEGIN TO HURT.             IF YOU LOOK AT THE PROGRAM TO DO THIS YOU WILL FIND THAT YOU CAN HAVE ANY STRING OF CHARACTERS IN A$ AS LONG AS THERE ARE MORE THAN 32!. HAPPY PROGRAMMING!!!!!!!!!!!!                                        "
   20 LET X=1: LET Z=LEN A$
   30 PRINT AT 10,0;A$(X TO X+31);" ";
   40 LET X=X+1: IF (X+31)=Z THEN STOP 
   45 PAUSE 10
   50 GO TO 30
 9997 STOP 
 9998 SAVE "SIDESCROLL" LINE 1