100 PROGRAM "INTRO"
  110 FOR J=1TO3
  120   PING 
  130   WAIT DELAY1
  140 NEXT J
  150 SET STATUSOFF
  160 TEXT 
  170 CLOSE #0
  180 SET VIDEOX24
  190 CLOSE #102
  200 OPEN #102:"video:"
  210 OPEN #0:"editor:"
  220 DISPLAY #102:FROM0TO25AT1
  230 SET #102:PALETTE75,76
  240 LET C1=10
  250 LET C2=11
  260 LET C3=12
  270 CALL DRAW_BARS
  280 CALL ENT
  290 CALL BARS
  300 CALL SIXTY
  310 CALL UNDERLINE
  320 CALL BLURB
  330 CALL SHOW_BLURB
  340 SET STATUSON
  350 RUN "modes"
  360 END 
  370 SET VIDEOX40
  380 DEF ENT
  390   SET VIDEOY2
  400   SET VIDEOCOLOUR3
  410   SET VIDEOMODE1
  420   OPEN #10:"video:"
  430   SET #C1:INK0
  440   PLOT #C1:0,71;
  450   SET #C1:INK255
  460   PRINT #C1:"ENTERPRISE";
  470   FOR J=23TO1STEP-1
  480     DISPLAY #C1:FROM1TO2ATJ
  490     FOR I=0TO10
  500     NEXT I
  510   NEXT J
  520   FOR J=24TO3STEP-1
  530     DISPLAY #102:FROM0TO0ATJ
  540     FOR I=0TO10
  550     NEXT I
  560   NEXT J
  570 END DEF 
  580 DEF DRAW_BARS
  590   SET VIDEOCOLOUR2
  600   SET VIDEOMODE1
  610   SET VIDEOX40
  620   SET VIDEOY2
  630   OPEN #C2:"video:"
  640   SET #C2:PALETTE0,9,217,219,146,52,104,255
  650   FOR J=12TO1092STEP216
  660     SET #C2:INKJ/216+1
  670     FOR I=44TO71STEP4
  680       PLOT #C2:J,I;J+178,I,
  690     NEXT I
  700   NEXT J
  710   SET #C2:INK7
  720   FOR J=12TO20STEP4
  730     PLOT #C2:0,J;1279,J,
  740   NEXT J
  750 END DEF 
  760 DEF BARS
  770   FOR J=23TO3STEP-1
  780     DISPLAY #C2:FROM1TO1ATJ
  790     FOR I=0TO10
  800     NEXT I
  810   NEXT J
  820   FOR J=23TO4STEP-1
  830     DISPLAY #102:FROM0TO0ATJ
  840     FOR I=0TO10
  850     NEXT I
  860   NEXT J
  870 END DEF 
  880 DEF SIXTY
  890   SET VIDEOCOLOUR2
  900   SET VIDEOMODE1
  910   SET VIDEOX40
  920   SET VIDEOY2
  930   OPEN #C3:"video:"
  940   SET #C3:INK0
  950   PLOT #C3:0,71;
  960   SET #C3:INK1
  970   SET #C3:COLOUR1,255
  980   PRINT #C3:" C O M P U T E R S  ";
  990   FOR J=23TO4STEP-1
 1000     DISPLAY #C3:FROM1TO2ATJ
 1010     FOR I=0TO20
 1020     NEXT I
 1030   NEXT J
 1040   FOR J=24TO6STEP-1
 1050     DISPLAY #102:FROM0TO0ATJ
 1060     FOR I=0TO10
 1070     NEXT I
 1080   NEXT J
 1090 END DEF 
 1100 DEF UNDERLINE
 1110   FOR J=24TO6STEP-1
 1120     DISPLAY #C2:FROM2TO2ATJ
 1130     FOR I=0TO20
 1140     NEXT I
 1150   NEXT J
 1160   FOR J=24TO7STEP-1
 1170     DISPLAY #102:FROM0TO0ATJ
 1180     FOR I=0TO20
 1190     NEXT I
 1200   NEXT J
 1210 END DEF 
 1220 DEF BLURB
 1230   LET C$=CHR$(241)
 1235   PRINT 
 1240   PRINT "SIDE 1";C$
 1250   PRINT 
 1260   PRINT "Graphics Modes";C$
 1270   PRINT "15 Squares";C$
 1280   PRINT "Drawing Pad";C$
 1290   PRINT "Fractals";C$
 1300   PRINT "Animan";C$
 1310   PRINT 
 1315   PRINT 
 1320   PRINT "SIDE 2";C$
 1330   PRINT 
 1340   PRINT "Character generator";C$
 1350   PRINT "& Bomber Game";C$
 1360   PRINT "Stereo Music";C$
 1390 END DEF 
 1400 DEF SHOW_BLURB
 1410   FOR J=1TO16
 1420     DISPLAY #102:FROM1TOJAT24-J
 1430     FOR I=0TO100
 1440     NEXT I
 1450   NEXT J
 1455   WAIT 3
 1460 END DEF