Author: pre-installed user

001 print "                         "
002 SM=1;print "    PULL TAPE JACK CORD  ";for A=0to 2000;next A
004 print "   USE JOY STK #1 & TRIG.";for Z=0to 2000;next Z
006 print "BIT MAPPING UTILITY BY L&M";for B=0to 1000;next B
008 print "             ERASE CLEARS
010 SM=1;CY=-40
020 X=-80;Y=-17
030 NT=0;X=X+JX(1);Y=Y+JY(1);print "X",#2,X,;print "  Y",#2,Y
035 if &(21)=16goto 60
040 if TR(1)box X,Y,1,1,3;NT=3;MU=1;goto 30
050 box X,Y,1,1,3;box X,Y,1,1,3;goto 30
060 clear ;goto 10