0 REM One-Line (when compressed) version	of INVISI.100 by larry gensch
1 REM Merge lines 7,8,9 and remove 0,1
7 F$="":T=256:FORX=1TO27:A=11*X-1705:Q=A+3:B=PEEK(A):IFB=0THENNEXTELSEZ=VARPTR(F$):POKEZ,8:POKEZ+1,QMODT+T:POKEZ+2,Q/T+T
8 :PRINTF$,MID$("IV",1-((BAND8)=0),1)":";:E$=INPUT$(1):PRINTE$:IFE$="V"THENPOKEA,BAND247:NEXTELSEIFE$="I"THENPOKEA,BOR8:
9 NEXTELSENEXT