20 PRINT "Trance 1.0"
30 PRINT "by ARJ Software."
40 PRINT "Copyright 1995. All rights reserved."
50 PRINT
60 INPUT "Type trance level here:", tl
70 LET a = tl * 1000
80 INPUT "Hit ENTER key when ready, and look at the screen.", q$
90 CLS
100 PRINT "><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><"
110 PRINT "<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>"
120 LET a = a - 1
130 IF NOT a < 0 THEN GOTO 100
140 BEEP
150 INPUT "Are you spaced out? y/n  ", q$
160 IF q$ = "n" THEN CLS
170 IF q$ = "n" THEN GOTO 60
180 IF q$ = "y" THEN PRINT "Good."
190 IF q$ = "y" THEN END
200 CLS
210 GOTO 150