100 DL=PEEK(560)+256*PEEK(561)›110 MEMTOP=PEEK(742)›120 SCREEN1=PEEK(89):SCREEN2=MEMTOP-5›140 POKE 89,SCREEN2:POKE 106,SCREEN2+4:? CHR$(125)›150 FOR X=1 TO 22:? "********* THIS IS SCREEN 2 *********":NEXT X›160 POKE 89,SCREEN1:POKE 106,SCREEN1+4:? CHR$(125)›170 FOR X=1 TO 22:? "-------- SCREEN 1 GOES HERE --------":NEXT X›190 OPEN #1,4,0,"K:":GET #1,X:CLOSE #1:X=X-48:IF X<1 THEN 190›200 ON X GOTO 220,230›210 GOTO 190›220 POKE DL+5,SCREEN1:GOTO 190›230 POKE DL+5,SCREEN2:GOTO 190›