5 CLS
7 COLOR 15, 0, 1
10 PRINT "Trance 2.1"
20 PRINT "by ARJ Software"
30 PRINT "Copyright 1995. All rights reserved."
40 PRINT
50 PRINT
60 PRINT "Hit ENTER key when you are ready."
70 INPUT "Hit ESC key when you are spaced out."; a
80 CLS
91 LET clr = 1
92 DO
94 IF clr = 1 THEN COLOR 12, 0, 1
96 IF clr = 2 THEN COLOR 10, 0, 1
98 IF clr = 3 THEN COLOR 9, 0, 1
100 PRINT "-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -"
105 PRINT " -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  "
110 PRINT "  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - "
115 PRINT " -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  "
132 LET clr = clr + 1
135 IF clr = 4 THEN LET clr = 1
137 LOOP UNTIL INKEY$ = CHR$(27)
140 CLS
150 PRINT "Thank you for using Trance 2.1."
160 PRINT "Have a ridicolously spacy day!"