8-Bit Software Online Conversion
:0.$.XFERstr - Listing
10REM 'XFERstr'-transfers strings set
20REM in BASIC, to WW+
30CLS
40A$="16th "
50B$="January "
60C$="1994"
70REM f1 holds 3 strings;
80OSCLI"KEY 1 "+A$+"|M"+B$+"|M"+C$+"|
M"
90REM f4 re-loads this prog from WW;
100*KEY4 *BASIC|M LO."XFERstr"|M LIST|
M
110REM f0 loads WW seg 0 & activates;
120*KEY0 *WORDWISE|M:SE.SEG.0|M:LO.TE.
"DEMOstr"|M|[9|[|!|@
130*FX3,2
140*FX138,0,128
150END