0 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
1 REM --- THIS DEMO STORES MOST OF ---
2 REM --- THE SCREEN TO VARIABLES ---
3 REM --- A$,B$,C$ & D$ ---
4 POKE53280,14:POKE53281,6:POKE646,14
10 IFPEEK(49152)<>32THENLOAD"INPUT.ML",8,1
20 DIMVT$(25):VT$(0)="":FORI=1TO25:VT$(I)=VT$(I-1)+"":NEXT
30 PRINT"[147]"VT$(21)"PLEASE ENTER ANY DATA ON THIS SCREEN"
40 PRINT"AND PRESS <RETURN> WHEN DONE."
50 SYS49152,0,0,20,40,1,A$
60 REM --- SAVE TO A$,B$,C$ & D$ ---
70 POKE631,13:POKE198,1:SYS49152,0,0,5,40,0,A$
80 POKE631,13:POKE198,1:SYS49152,5,0,5,40,0,B$
90 POKE631,13:POKE198,1:SYS49152,10,0,5,40,0,C$
100 POKE631,13:POKE198,1:SYS49152,15,0,5,40,0,D$
110 PRINT"[147]PRESS ANY KEY TO SEE THE SCREEN..."
120 GETK$:IFK$=""THEN120
130 PRINT"[147]"A$;B$;C$;D$
140 PRINT