Experiment with OVER

Date: 198x
Type: Program
Platform(s): TS 2068

Short program to demonstrate the OVER command.

Appears on

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

People

No people associated with this content.

Scroll to Top