Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
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