Merry Christmas Message

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Merry Christmas Message

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

People

No people associated with this content.

Scroll to Top