RosettaCodeData/Task/Copy-a-string/Sinclair-ZX81-BASIC/copy-a-string.basic

8 lines
144 B
Plaintext

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$