Short program to demonstrate the OVER command.
Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
Gallery
Source Code
10 PRINT "EXPERIMENTS WITH "" OVER """'' 20 INPUT "Enter any 2 characters (or space to stop) ";q$ 30 IF q$=CHR$ 32 THEN STOP 40 IF LEN q$<>2 THEN GO TO 20 50 PRINT q$(1);CHR$ 8; OVER 1;q$(2);" = ";q$(1);" OVER ";q$(2) 60 GO TO 20 9998 SAVE "OVERS 1" LINE 0