5 A=PEEK(53280):B=PEEK(53281):C=PEEK(646)
10 CLS:COLOR 0,0,14:BLINE 2
20 BDATA 1,3,14,11,6,9,2,4,10,7,6,6
30 LOCATE 8,2
40 PRINT "*** UNIVERSAL-BASIC ***"
50 BORDER ON:BEEP
60 LOCATE 6,5:COLOR 0,0,15
70 PRINT "(C) 9999 BY M. TSCHEREPANOW"
80 LOCATE 9,5
90 FOR T=9868TO1993 STEP -125:PRINTT:LOCATE 9,5:NEXT
100 COLOR 0,0,1:LOCATE8,2:PRINT"*** UNIVERSAL-BASIC ***"
110 FOR I=1TO5:BDATA 1,3,14,11,6,9,2,4,10,7,10,10:PAUSE 3
120 BDATA 1,3,14,11,6,9,2,4,10,7,14,14:PAUSE 3:NEXT
130 LOCATE 8,2:PRINT"                       ":FOR T=2TO5:BLINE T:NEXT
140 LOCATE 6,5:PRINT"                           "
150 FOR T=6TO23:BLINE T:NEXT
160 FOR T=23TO1 STEP-1:BLINE T:NEXT
170 CLS:COLOR 0,0,C:LOCATE 8,1: PRINT "*** UNIVERSAL-BASIC ***":BEEP
180 LOCATE 0,3:BLINE 2:PAUSE 0:BLINE 3:PAUSE 0 :PRINT"READY.":BEEP:LOCATE 0,2
190 FOR I=4TO23:BLINE I:NEXT I
200 BORDER OFF:COLOR A,B,C