mirror of
https://github.com/Toolkitman/copy-paste-apple-ii.git
synced 2024-06-09 21:29:32 +00:00
Create README.md
This commit is contained in:
commit
89d5dbb71f
31
README.md
Normal file
31
README.md
Normal file
|
@ -0,0 +1,31 @@
|
|||
# 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
|
Loading…
Reference in New Issue
Block a user