100 REM PET 2001 - SEASON'S GREETINGS
110 REM NORBERT LANDSTEINER, 2017-2024
120 REM <WWW.MASSWERK.AT>
130 Y=2024:REM YEAR
140 GOSUB300
150 R$=CHR$(157)+CHR$(157)+CHR$(157)+CHR$(17)
160 DIM F$(4,4)
170 F$(0,0)=" "+CHR$(181)+" "
171 F$(0,1)=CHR$(167)+CHR$(18)+CHR$(170)+CHR$(146)+" "
172 F$(0,2)=CHR$(170)+CHR$(18)+CHR$(187)+CHR$(146)+CHR$(180)
173 F$(0,3)=CHR$(182)+" "+CHR$(181)
174 F$(0,4)=CHR$(187)+CHR$(188)
175 F$(1,0)=" "+CHR$(18)+CHR$(161)+CHR$(146)+" "
176 F$(1,1)=" "+CHR$(18)+" "+CHR$(146)+" "
177 F$(1,2)=CHR$(170)+CHR$(18)+CHR$(187)+CHR$(146)+CHR$(181)
178 F$(1,3)=CHR$(182)+" "+CHR$(181)
179 F$(1,4)=CHR$(187)+CHR$(18)+CHR$(162)+CHR$(146)
180 F$(2,0)=" "+CHR$(170)+" "
181 F$(2,1)=" "+CHR$(18)+CHR$(180)+CHR$(146)+CHR$(165)
182 F$(2,2)=" "+CHR$(18)+CHR$(172)+CHR$(146)+CHR$(181)
183 F$(2,3)=CHR$(167)+CHR$(165)+CHR$(161)
184 F$(2,4)=CHR$(187)+CHR$(190)
185 F$(3,0)=" "+CHR$(200)+" "
186 F$(3,1)=" "+CHR$(18)+CHR$(180)+CHR$(146)+" "
187 F$(3,2)=CHR$(167)+CHR$(18)+CHR$(172)+CHR$(146)+CHR$(165)
188 F$(3,3)=CHR$(170)+" "+CHR$(180)
189 F$(3,4)=CHR$(187)+CHR$(18)+CHR$(162)+CHR$(146)
190 F$(4,0)=" "+CHR$(194)+" "
191 F$(4,1)=" "+CHR$(18)+CHR$(167)+CHR$(146)+" "
192 F$(4,2)=CHR$(170)+CHR$(18)+CHR$(187)+CHR$(146)+CHR$(165)
193 F$(4,3)=CHR$(182)+" "+CHR$(180)
194 F$(4,4)=CHR$(187)+CHR$(188)
200 P=0
210 P=P+1+INT(RND(1)*4):IFP>4THENP=P-5
220 PRINTCHR$(19):PRINTTAB(19);
230 FORI=0TO4:PRINTF$(P,I);R$;:NEXT
240 T=36+INT(RND(1)*12):FORI=0TOT:NEXT
250 GOTO 210
300 PRINTCHR$(147)
310 FORI=32768TO33767:READA
320 IFA=0THEN350
330 IFA<0THENI=I-A:NEXT
340 POKEI,A:NEXT
350 IFY<=0THEN370
360 Y$=STR$(Y):FORA=1TOLEN(Y$):POKEI,ASC(MID$(Y$,A,1)):I=I+1:NEXT
370 RETURN
400 DATA -59,117,-37,103,234,-34,223,32,32,106,251,116,-33,160,160,223,118,32
401 DATA 117,-33,160,160,160,123,124,32,32,233,-31,160,160,160,160,223,233,160
402 DATA 160,-31,160,160,160,160,231,229,160,160,-31,160,160,160,160,160,209
403 DATA 160,160,-31,160,160,160,160,231,229,160,160,-31,160,160,160,160,209
404 DATA 209,160,160,-31,160,160,160,160,160,160,160,160,-31,160,160,160,160
405 DATA 160,160,160,160,-27,28,93,47,32,160,160,160,160,160,160,160,160,-24,28
406 DATA 77,78,64,160,32,67,160,160,160,160,160,160,160,160,93,78,32,77,78,32
407 DATA 78,-16,64,64,160,32,102,93,77,93,160,160,160,160,160,160,160,160,102
408 DATA 67,93,160,64,160,77,78,78,78,100,-11,28,93,102,93,28,93,102,28,102,160
409 DATA 160,160,160,160,160,160,160,102,93,102,102,78,93,102,160,67,77,-11,64
410 DATA 78,160,64,102,64,160,102,102,64,160,160,160,160,160,160,160,160,77,93
411 DATA 47,32,102,64,160,78,77,-12,47,78,93,77,102,160,77,102,77,160,160,77
412 DATA 160,78,160,160,160,160,93,102,77,160,47,102,78,77,-13,47,32,77,102,160
413 DATA 102,47,102,47,102,64,102,160,102,78,160,160,93,102,160,102,102,67,93
414 DATA 102,32,47,100,-12,64,64,160,93,160,64,32,32,102,93,78,160,77,160,77
415 DATA 102,102,93,102,77,64,77,77,32,160,77,-14,78,78,102,64,32,64,102,77,78
416 DATA 93,102,64,102,160,102,64,78,78,102,160,102,32,47,93,28,-19,78,93,77,32
417 DATA 32,93,78,93,93,77,32,32,78,93,32,77,-21,19,5,1,19,15,14,39,19,32,93,32
418 DATA 7,18,5,5,20,9,14,7,19,0