1 REM BASIC-DEMO ZUR [GET+PRINT]
2 REM                                     :
3 REM        GERMANO CARONNI
4 REM        GREUBSTELSTR.10
5 REM       CH-5430 WETTINGEN
6 REM                                     :
8 REM DEMO ZU TRACK40,(MUSS IM SPEICHER SEIN)
9 POKE53280,0:POKE53281,0:PRINT"[147]"
10 SYS50000
20 INPUT"[147]BLOCK (0-78)";B:IFB<0ORB>78THEN25
30 INPUT"TEXT";A$:B$=CHR$(0):FORI=1TO7
31 B$=B$+B$:NEXT:B$=B$+LEFT$(B$,127)
40 A$=A$+LEFT$(B$,255-LEN(A$))
50 [PRINTA$,B]
60 PRINT"[147]TEXT IST GESPEICHERT  --  TASTE"
70 WAIT198,1:POKE198,0
80 [GETB$,B]
90 PRINT"DER NEUE TEXT :":PRINTB$
100 PRINT"DER ALTE TEXT :":PRINTA$
110 PRINT"";A$=B$