INVISO.DO

10 INPUT"'MENU UTILTY' VISIBLE OR INVISIBLE";A$
20 IF A$="I" THEN 100 
30 IF A$="V" THEN 200 
40 GOTO 10
100 A$="":A=VARPTR(A$):POKE A,255:POKE A+1,175:POKE A+2,249
110 FOR B=0TO22
120 B$=MID$(A$,4+B*11,8)
130 IF B$="QUADV BA"THEN 150 ELSE NEXT B
140 BEEP:PRINT"ERROR IN MENU UTILTY NAME":END
150 POKE 63919+B*11,136
155 POKE 63919+B*11+3,48
160 POKE 63919+B*11+4,81
165 POKE 63919+B*11+5,85
170 POKE 63919+B*11+6,65
175 POKE 63919+B*11+7,68
180 POKE 63919+B*11+8,32
185 POKE 63919+B*11+9,32
190 POKE 63919+B*11+10,32
195 END
200 A$="":A=VARPTR(A$):POKE A,255:POKE A+1,175:POKE A+2,249
210 FOR B=0TO22
220 B$=MID$(A$,4+B*11,8)
230 IF B$="0QUAD   "THEN 250 ELSE NEXT B
240 BEEP:PRINT"ERROR IN DATA UTILTY NAME":END
250 POKE 63919+B*11,128
255 POKE 63919+B*11+3,81
260 POKE 63919+B*11+4,85
265 POKE 63919+B*11+5,65
270 POKE 63919+B*11+6,68
275 POKE 63919+B*11+7,86
280 POKE 63919+B*11+8,32
285 POKE 63919+B*11+9,66
290 POKE 63919+B*11+10,65
295 END