10 ' CHRISTMAS TREE
20 ' TODD KNOWLTON
30 ' TRS-80 MICROCOMPUTER NEW VOLUME 3 ISSUE 12, DECEMBER 1981
30 T=30:CLS:PRINTTAB(12)"*----*----*-- CHRISTMAS TREE --*----*----*"
40 PRINT:PRINTTAB(14);"PRESS ENTER WHEN LINEPRINTER IS READY"
50 INPUT A$
51 ' MODIFIED BY MCH 20201105 TO REMOVE PRINTER READY CHECK
52 ' IF PEEK(14312) <>63 THEN PRINT TAB(20); "LINE PRINTER NOT READY":GOTO 40
60 LPRINT CHR$(138)
70 LPRINT TAB(23) "CHRISTMAS TREE"
80 LPRINT" ":LPRINT" "
90 LPRINT TAB(T)"*":LPRINT TAB(T-1);"# #"
100 FOR T1= 2 TO 5:LPRINT TAB(T-T1);"#";TAB(T+T1)"#":NEXT T1
110 LPRINT TAB(T-6)"####    #####"
120 FOR T1=3 TO 11:LPRINT TAB(T-T1)"#";TAB(T+T1)"#":NEXT T1
130 LPRINT TAB(T-12)"######           ######"
140 FOR T1=7 TO 18:LPRINT TAB(T-T1)"#";TAB(T+T1)"#":NEXT T1
150 LPRINT TAB(T-19); STRING$(39,35)
160 FOR N=1 TO 5: LPRINT TAB(29)"HHH":NEXT N
200 INPUT"DO YOU WANT SNOW (Y/N)";SN$
210 IF SN$="Y" THEN 230
220 IF SN$="N" THEN END
230 CLS:PRINT"RETURN PRINTHEAD TO TOP OF TREE":FORX=1 TO 1000:NEXT
240 INPUT"PRESS ENTER WHEN READY";RE$
250 LPRINT TAB(20)"*":LPRINT TAB(39)"*";TAB(53)"*"
260 GOSUB 340:LPRINT TAB(25)"*";TAB(49)"*":LPRINT TAB(30)"*"
270 GOSUB 340:LPRINT TAB(31)"*";TAB(43)"*":LPRINT TAB(19)"*"
280 GOSUB 340:LPRINT TAB(25)"*";TAB(33)"*"
290 GOSUB 340:LPRINT TAB(14)"*";TAB(39)"*"
300 GOSUB 340:LPRINT TAB(17)"*";TAB(29)"*";TAB(44)"*"
310 GOSUB 340:LPRINT TAB(22)"*";TAB(33)"*";TAB(47)"*"
320 GOSUB 340:LPRINT TAB(25)"*";TAB(38)"*";TAB(41)"*"
330 GOSUB 340:LPRINT TAB(21)"*";TAB(31)"*";TAB(29)"*":GOTO 350
340 LPRINT" ":LPRINT" ":RETURN
350 LPRINT" ":LPRINT" "