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$="MENU  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,77
165 POKE 63919+B*11+5,69
170 POKE 63919+B*11+6,78
175 POKE 63919+B*11+7,85
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$="0MENU   "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,77
260 POKE 63919+B*11+4,69
265 POKE 63919+B*11+5,78
270 POKE 63919+B*11+6,85
275 POKE 63919+B*11+7,32
280 POKE 63919+B*11+8,32
285 POKE 63919+B*11+9,66
290 POKE 63919+B*11+10,65
295 END