Source Code
1 LET A$="*%M%E%R%R%Y*%C%H%R%I%S%T%M%A%S"
2 LET A=0
3 LET B=0
4 PRINT AT A,B;A$
5 LET B=B+1
6 IF B=32 THEN GOTO 9
7 IF A=21 AND B=16 THEN GOTO 30
8 GOTO 4
9 LET B=0
10 LET A=A+1
11 GOTO 4
12 SAVE "1009%2"
13 LET A$="*%M%E%R%R%Y*%C%H%R%I%S%T%M%A%S"
14 FOR A=0 TO 21
15 PRINT AT A,0;"********************************"
16 NEXT A
17 FOR A=16 TO 1 STEP -1
18 LET B$=A$(A TO 16)
19 PRINT AT 0,0;B$
20 NEXT A
21 GOTO 1
30 LET V=16
31 FOR C=16 TO 31
32 PRINT AT 21,C;A$(1 TO V)
33 LET V=V-1
34 NEXT C
35 GOTO 17
