10 CLEAR200,&H3FFF:CLS0:PRINT"rvs";:POKE &HE6C6,33:LOADM"IBM.FNT"
20 POKE &HFFA2,&H34:POKE &HFFA3,&H35
30 LOADM"GRAFX"
40 POKE &HFFA2,&H3A:POKE  &HFFA3,&H3B:CLEAR 200,&H7FFF
50 LOADM"ST":OPEN"I",#1,"TITLEPGE/MGE":EXEC&HF00:CLOSE
60 PALETTE0,0:PALETTE1,7:PALETTE2,56:PALETTE3,63:PALETTE4,1:PALETTE5,9:PALETTE6,36:PALETTE7,54:PALETTE8,48:PALETTE9,27:PALETTE10,63:PALETTE11,53:PALETTE12,0:PALETTE13,18:PALETTE14,0:PALETTE15,18
70 HSCREEN2:FORX=1TO2500:NEXTX
80 HSCREEN0:CLS0
90 OPEN"I",#1,"RUNMODE/MGE":EXEC&HF00:CLOSE
100 FORX=0 TO 15:Z=PEEK(&HE00+X):POKE &H0500+X,Z:NEXTX
110 CLEAR1000
120 POKE&HFFD9,0:FOR X=0 TO 79
130 NEXT X
140 FORX=0TO4:READB:POKE&HF80B+X,B:POKE&HF84B+X,B:POKE&HF898+X,B:NEXTX:DATA &HE6,&H01,&H12,&HCA,&H00
150 IF PEEK(&H0E00)<>&H0E THEN POKE&HFFD8,0:LOADM"AT6060"
160 POKE&HFFD9,0
170 DEFUSR0=256*PEEK(&H0E00)+PEEK(&H0E01)
180 DEFUSR1=256*PEEK(&H0E02)+PEEK(&H0E03)
190 DEFUSR2=256*PEEK(&H0E04)+PEEK(&H0E05)
200 DEFUSR3=256*PEEK(&H0E06)+PEEK(&H0E07)
210 DEFUSR4=256*PEEK(&H0E08)+PEEK(&H0E09)
220 DEFUSR5=256*PEEK(&H0E0A)+PEEK(&H0E0B)
230 DEFUSR6=256*PEEK(&H0E0C)+PEEK(&H0E0D)
240 FORX=0 TO 7:READ Y:PALETTEX,Y:PALETTEX+8,Y:NEXTX
250 DATA 0,7,56,63,1,9,36,54
260 WIDTH80:CLS1
270 A=USR4(0):A=USR5(0)
280 POKE &H400,0:POKE&H401,3:POKE &H403,2:POKE &H404,32:POKE &H405,3:POKE &H406,32:POKE &H407,4
290 FORX=2 TO 79
300 POKE &H402,X
310 PALETTE0,0
320 A=USR6(0)
330 NEXT X
340 FORX=2 TO 16
350 POKE&H403,X
360 PALETTE 0,0
370 A=USR6(0)
380 NEXTX
390 FORX=4 TO 0 STEP -1:POKE &H405,X:A=USR6(0):FORG=1TO50:NEXTG::NEXTX:POKE &H405,4:A=USR6(0)
400 CB$= " File          Edit             Run              Special"+STRING$(80,32)
410 DB$=STRING$(80,32)+"Step #    Command     Output      Input     Delay" 
420 ATTR3,0:FORX=80 TO 1 STEP -1:LOCATE0,0:PRINTMID$(CB$,X,80);:NEXTX
430 LOCATE 0,3:ATTR 7,6:FORX=1 TO 81:LOCATE 0,3:PRINTMID$(DB$,X,79);:NEXTX
440 LOCATE0,1:ATTR 1,1
450 FORX=0 TO 79
460 FORZ=3TO1STEP-1:ATTRZ,Z
470 LOCATE X,1:LOCATE 79-X,2
480 LOCATE X,20:LOCATE 79-X,21:LOCATE X,22
490 LOCATE 0,11
500 NEXTZ
510 NEXTX
520 ATTR3,0
530 A=USR1(0)
540 LOCATE 24,6:ATTR 3,4:PRINT"AT-6060 Pneumatic Robot Contoller";:
550 LOCATE 28,7:PRINT"Level II, Version 2.00.00";
560 LOCATE 22,8:PRINT"(C) 1988 Radical Vision Systems, Inc";
570 LOCATE 28,10:PRINT"Programmed by Mike Pepe";
580 FORX=1TO2000:NEXTX:POKE&HFFD8,0
590 POKE &H400,32:POKE &H401,10:POKE &H402,9:POKE &H403,2:POKE &H404,32:POKE &H405,2:POKE &H406,32:POKE &H407,0:A=USR6(0):LOCATE 33,11:ATTR3,0:PRINT"Loading";
600 A=USR4(0):POKE&HE000,0
610 LOAD"NEW",R