Christmas Program

Publication

Timex Sinclair User

Pub Details

Timex Sinclair User n7Volume: 1 Issue: 7

Date

December 1983

Pages

11
See all articles from Timex Sinclair User n7

THIS PROGRAM may or may not help your programming skills. This program may or may not teach you a new programming technique. This program may or may not intrigue you for hours and hours. What will this program do for you? Run it and see! We know this program will do a great deal for us. It will provide a Christmas link between us here and you out there!

Santa Claus on a chimney with a sack of Timex Sinclair computers
Santa Claus on a chimney with a sack of Timex Sinclair computers
 10 DIM S$(160)
 20 LET S$=" *    *      *    *     *     *     *   *     *      *    *  *    *     *    *     *    *     *  *  *    *    *    *  *     *        *      *     *   *   *    *"
 30 LET Z$="โ–’โ–’๐Ÿฎโ–’๐Ÿฎโ–’โ–’๐Ÿฎโ–’โ–’โ–’โ–’๐Ÿฎโ–’โ–’โ–’๐Ÿฎโ–’โ–’โ–’โ–’โ–’๐Ÿฎโ–’โ–’๐Ÿฎโ–’โ–’โ–’โ–’โ–’โ–’"
 40 PRINT AT 5,8;"D5IIP  38I9JKD1J"
 50 PRINT AT 7,14;"1E4"
 60 PRINT AT 9,9;"81GGP E5N P51I"
 70 PRINT AT 11,8;"6IFD 5M5IPFE5 1K"
 80 PRINT AT 14,3;"โ–โ–€โ–š";AT 15,3;"โ–  โ–š";AT 16,3;"โ–   โ–š";AT 17,3;"โ–โ–™   โ–š"
 90 PRINT AT 20,3;"โ–œโ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–„โ–›"
100 PRINT AT 13,3;"โ–";AT 12,3;"โ–œ"
110 PRINT AT 11,2;"โ–œโ–Ÿ";AT 10,1;"โ–œโ––โ–"
120 PRINT AT 9,1;"โ–Œ โ–";AT 8,1;"โ–Ÿโ–€โ–™"
130 PRINT AT 12,27;"[inverse *]";AT 7,2;"[inverse *]"
140 PRINT AT 21,0;Z$
150 PRINT AT 19,28;"โ–—โ–Ÿโ–˜";AT 18,4;"โ–โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–™"
160 PRINT AT 17,22;"โ–ž     โ–Œ";AT 16,23;"โ–ž    โ–Ÿ"
170 PRINT AT 15,24;"โ–ž    โ–Œ";AT 14,25;"โ–ž  โ–";AT 13,26;"โ–žโ–€โ–š"
180 PRINT AT 18,11;"โ–›";AT 19,10;"โ–ž";AT 20,9;"โ–Ÿ"
190 LET A=165+PEEK 16396+256*PEEK 16397
200 FOR L=1 TO 4
210 FOR I=1 TO 33
220 IF PEEK (I+A)>28 AND PEEK (I+A)<56 THEN POKE (I+A),9+PEEK (I+A)
230 NEXT I
240 LET A=A+66
250 NEXT L
260 POKE A+14,57
270 POKE A+15,27
280 POKE A+16,56
290 POKE A+17,27
300 POKE A+18,58
310 POKE A+19,27
320 LET R=135+INT (RND*4)
330 PRINT AT 0,0;S$(1 TO 160)
340 PRINT AT 6,8;"โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€";AT 14,13;"      "
350 PRINT AT 12,27;"*";AT 7,2;"*"
360 LET Z$=Z$(2 TO 32)+CHR$ R
370 PRINT AT 6,8;"                ";AT 10,9;"โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€โ–€"
380 PRINT AT 21,0;Z$
390 PRINT AT 12,27;"[inverse *]";AT 7,2;"[inverse *]"
400 LET S$=S$(129 TO 160)+S$(1 TO 128)
410 PRINT AT 10,9;"              ";AT 14,13;"โ–€โ–€โ–€โ–€โ–€โ–€"
420 GOTO 320

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.

Tags

1983 TS 1000 Type-in program Holiday

People