RosettaCodeData/Task/Copy-a-string/BASIC/copy-a-string-7.basic
2017-09-25 22:28:19 +02:00

7 lines
144 B
Text

10 LET A$="BECAUSE I DO NOT HOPE TO TURN AGAIN"
20 LET B$=A$
30 LET A$=A$( TO 21)
40 PRINT B$
50 PRINT A$
60 LET B$=A$+B$(22 TO 29)
70 PRINT B$