100 BCOL11,12:MWINI:MODINI
101 A$="GAGA":FLASHA$
102 WINA0,2,2,4,4,1,0
103 WINB1,4,4,4,4,1,0
104 WINC2,10,10,4,4,1,0,"TEST "
105 WINA3,16,16,4,4,1,0,"TEST "
106 WINB4,13,3,4,4,1
107 WINC5,22,4,4,4,1
108 WINA6,32,10,4,4,1,"TEST "
109 WINB7,14,14,4,4,2,"TEST "
110 FORX=1TO4:WCLOSE:NEXTX
111 FLASH"[144]BATES JR. WAZ HEAR"
112 PRINT:TYPE30"IN 1987 AND 1988"
113 TYPE60"TYPING IS FUN"
114 SCOP:DIR:SCCL
115 SCR:PRINT"[147]":POKE53265,11:WINA2,7,7,26,11,1,0,"[155]THIS IS JUST A TEST. ON THE"
116 REM+" SECOND SCREEN THAT IS AVAILABLE... IF YOU PRESS SPACE YOU WILL GET"
117 REM+" INTO THE PAD[155]-MODE. PRESS SHIFT/CLRHOME AND WRITE WHAT YOU WANT TO."
118 REM+" HIT THE 'ARROW LEFT '-KEY TO EXIT...."
119 POKE53265,27:RWAIT:PAD
120 SCR:RWAIT:PRINT"[147]":WINA3,10,6,20,13,7,0,"PLEASE ENTER ANYTHING YOU WANT TO_"
121 DINPUT18,7,NA$,10,11
122 TYPE40"THIS IS WHAT YOU ENTERED: ":PRINT:PRINTNA$
123 WINA3,10,6,20,13,7,0,"THIS IS A DECISION_ "
124 PRINT"";:DEC:PRINT:FLASH"[144]YOU DECIDED ";:IFYESTHEN:TYPE100"YES"
125 IF NO THEN:TYPE200"NO"
126 WCLOSE:WCLOSE
127 MODDIR1,0,7
128 MODULEMO$:IF OK THENGOSUB30000
129 PRINT"[147]":SEC:WINA0,7,11,26,1,1,0:TYPE30"ANOTHER MODULE ?  ":DEC
130 IF YE THEN127
131 IF NO THEN:RESET:END