Merry Christmas Message

Developer(s): Ryan Gray
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 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1
Scroll to Top