10 POKE53281,2:POKE53280,2
15 PRINT"[158][147]"
20 PRINT"   [215]ARNING!"
30 PRINT:PRINT
40 PRINT"[217]OU ARE ABOUT TO EXIT THE [204][207][193][196][211][212][193][210]"
50 PRINT:PRINT"ENVIRONMENT."
60 PRINT:PRINT"[208]RESS 1 TO RUN [196][207][211][208][204][213][211]."
70 PRINT:PRINT"[208]RESS 2 TO RUN [196][207][211][208][204][213][211] [195]REATOR."
72 PRINT:PRINT"[208]RESS 3 TO RETURN TO [204]OADSTAR."
80 PRINT:PRINT"[215]HICH?"
90 GETK$:IFK$=""THENGOSUB60000:GOTO90
100 POKE53280,RND(1)*15
110 K=VAL(K$)
120 ONKGOTO62000,62500,63000:GOTO90
60000 IFC=0THENC=1:GOTO60005
60002 C=0
60005 IFC=0THENPRINT"   [215]ARNING!"
60010 IFC=1THENPRINT"   [215]ARNING!"
60020 RETURN
62000 REMCONNECT TO ACTUAL PGM
62002 PRINT"[147]LOAD"CHR$(34)"DOSPLUS LOADER"CHR$(34)",8":PRINT"RUN"
62004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END
62500 REMCONNECT TO CREATOR PGM
62502 PRINT"[147]LOAD"CHR$(34)"DOSPLUS CREATOR"CHR$(34)",8":PRINT"RUN"
62504 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END