100 REM PET 2001 - SEASON GREETINGS
110 REM NORBERT LANDSTEINER, 2017
120 REM <WWW.MASSWERK.AT>
130 PRINT CHR$(147)
140 FOR I=32768TO33767:READA:POKEI,A:NEXT
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(0)*4):IFP>4THENP=P-5
220 PRINT CHR$(19):PRINT TAB(19);
230 FORI=0TO4:PRINTF$(P,I);R$;:NEXT
240 T=35+INT(RND(0)*12):FORI=0TOT:NEXT
250 GOTO 210
300 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
301 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
302 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,117,32,32,32,32,32,32,32,32
303 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
304 DATA 32,32,32,32,32,32,32,103,234,32,32,32,32,32,32,32,32,32,32,32,32,32
305 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,223
306 DATA 32,32,106,251,116,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
307 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,160,160,223,118,32
308 DATA 117,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
309 DATA 32,32,32,32,32,32,32,32,32,32,32,32,160,160,160,123,124,32,32,233,32
310 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
311 DATA 32,32,32,32,32,32,32,32,160,160,160,160,223,233,160,160,32,32,32,32
312 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
313 DATA 32,32,32,32,32,160,160,160,160,231,229,160,160,32,32,32,32,32,32,32
314 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
315 DATA 32,32,160,160,160,160,160,209,160,160,32,32,32,32,32,32,32,32,32,32
316 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,160
317 DATA 160,160,160,231,229,160,160,32,32,32,32,32,32,32,32,32,32,32,32,32,32
318 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,160,160,160,160
319 DATA 209,209,160,160,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
320 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,160,160,160,160,160,160,160
321 DATA 160,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
322 DATA 32,32,32,32,32,32,32,32,32,32,160,160,160,160,160,160,160,160,32,32
323 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
324 DATA 32,32,32,28,93,47,32,160,160,160,160,160,160,160,160,32,32,32,32,32
325 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,28,77,78
326 DATA 64,160,32,67,160,160,160,160,160,160,160,160,93,78,32,77,78,32,78,32
327 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,64,64,160,32,102,93
328 DATA 77,93,160,160,160,160,160,160,160,160,102,67,93,160,64,160,77,78,78
329 DATA 78,100,32,32,32,32,32,32,32,32,32,32,32,32,28,93,102,93,28,93,102,28
330 DATA 102,160,160,160,160,160,160,160,160,102,93,102,102,78,93,102,160,67
331 DATA 77,32,32,32,32,32,32,32,32,32,32,32,32,64,78,160,64,102,64,160,102
332 DATA 102,64,160,160,160,160,160,160,160,160,77,93,47,32,102,64,160,78,77
333 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,47,78,93,77,102,160,77,102,77
334 DATA 160,160,77,160,78,160,160,160,160,93,102,77,160,47,102,78,77,32,32,32
335 DATA 32,32,32,32,32,32,32,32,32,32,32,47,32,77,102,160,102,47,102,47,102
336 DATA 64,102,160,102,78,160,160,93,102,160,102,102,67,93,102,32,47,100,32
337 DATA 32,32,32,32,32,32,32,32,32,32,32,32,64,64,160,93,160,64,32,32,102,93
338 DATA 78,160,77,160,77,102,102,93,102,77,64,77,77,32,160,77,32,32,32,32,32
339 DATA 32,32,32,32,32,32,32,32,32,32,78,78,102,64,32,64,102,77,78,93,102,64
340 DATA 102,160,102,64,78,78,102,160,102,32,47,93,28,32,32,32,32,32,32,32,32
341 DATA 32,32,32,32,32,32,32,32,32,32,32,32,78,93,77,32,32,93,78,93,93,77,32
342 DATA 32,78,93,32,77,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
343 DATA 32,32,32,32,19,5,1,19,15,14,39,19,32,93,32,7,18,5,5,20,9,14,7,19,32
344 DATA 50,48,49,55,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
345 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
346 DATA 32,32