32 lines
594 B
Markdown
32 lines
594 B
Markdown
|
# 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
|