copy-paste-apple-ii

This is a simple copy paste code for the apple ii

Version 1.0

10 PRINT "COPY PASTE" 20 PRINT "WRITE A WORD" 30 INPUT A$ 35 PRINT "PRESS P KEY ON KEYBOARD" 40 INPUT B$ 50 IF B$ ="P" THEN PRINT A$ 60 GOTO 40

Version 2.0

10 PRINT "COPY PASTE" 11 PRINT " " 20 PRINT "WRITE A WORD" 21 PRINT " " 30 INPUT AG$ 31 PRINT " " 35 PRINT "TO PASTE PRESS P KEY ON KEYBOARD THEN RETURN " 36 PRINT " " 40 INPUT BG$ 50 IF BG$ ="P" THEN PRINT AG$ 51 PRINT " " 60 PRINT "DO YOU WANT TO REPEAT PASTE" 70 INPUT CG$ 90 IF CG$ = "P" THEN PRINT AG$ 100 IF CG$ <> "P" THEN GOTO 10 110 GOTO 10