Listing of file='XMAS' on disk='vmedia/2282_graphics_crt_demos.wvd.zip'
# Sector 234, program filename = 'XMAS'
0001 REM %HOLIDAY GREETING PROGRAM - 12/20/78 - by R.L. Droz
0002 COM P$3
0003 DIM S1$64,L(7,2)
0005 PRINT HEX(0D03),,"CHIRSTMAS GREETING PROGRAM."
: PRINT
0006 LINPUT "GRAPHICS CRT IS AT WHICH ADDRESS?" -P$
0007 MAT SEARCH "13151604", = STR(P$,2,2) TO L$
: IF STR(L$,,2)=HEX(0000) THEN 5
0008 SELECT PLOT <P$>
0015 SELECT D
0043 PLOT <,,HEX(0603E5)>
: ERRORGOTO 5
0045 GOSUB '60(1000,"MERRY CHRISTMAS")
0050 GOSUB '60(Y9,"from the 2200 Group")
0062 SELECT P9
: PRINT "2200 Christmas Greeting program running ..."
0063 PRINT "To stop program, $RELEASE TERMINAL TO";#PART
: PRINT
: PRINT
: PRINT
0064 SELECT P
: $RELEASE TERMINAL
: $PSTAT="GREETING"
0065 REM % DRAW TREE
: M=3
0066 PLOT <,,R>,<400,0,U>,<0,10*M,D>,<-20*M,0,D>,<25*M,50*M,D>,<25*M,-50*M,D>
,<-20*M,0,D>,<0,-10*M,D>
0067 REM % BLINK LIGHTS
0068 RESTORE
: FOR I=1 TO 7
: READ L
: L(I,1)=M*L+400
: READ L
: L(I,2)=M*L
: NEXT I
0069 DATA 5,10, -20,10, -10,30, 20,30, 5,30, 30,10, 5,60
0070 PLOT <1,,C>,<10,,S>
0080 L=MOD(7*RND(1),7)
: PLOT <,,R>,<L(L+1,1),L(L+1,2),"*">
0085 IF RND(1)>.5 THEN PLOT <,,HEX(E1)>
: ELSE PLOT <,,HEX(E2)>
0090 FOR I=1 TO 10
: $BREAK 255
: NEXT I
: GOTO 80
0099 REM % CENTER WORDS
0100 DEFFN'60(Y9,S1$)
: C=MIN(INT(80/LEN(S1$)),4)
: S=MAX(10*C,800/LEN(S1$))
0110 $TRAN (S1$, " ] ") R
: PLOT <,,R>,<C,,C>,<S,,S>,<S/2,MIN(512-S,Y9),S1$>
0120 Y9=MIN(Y9,512)-2.5*S
: RETURN
1000 DEFFN'31
: COM CLEAR P$
: LOAD DC T "!"