0 ' Greetings (c) Mortimer Mighty 100
1 'NEC 8201 adaptation 11-30-87
2 'For GEnie's Laptops Roundtable
3 GOTO5
4 FORH=1TO600:NEXT:RETURN
5 CLEAR256,-4096:X=6:FORI=0TOX*6-1:READA:POKEI-4096,A:NEXT
6 POKE-321,0:POKE-320,240
7 DATA160,86,61,86,160,0,76,42,29,42,72,0,4,2,63,2,4,0,16,32,126,32,16,0,255,255,255,0,0,0,0,0,0,255,255,255
8 CLEAR500:SCREEN,0:DEFINTA-Z
9 CLS:FORI=1TO10:J=INT(RND(1)*39+1):K=INT(RND(1)*8+1):LOCATEJ,K:PRINTCHR$(42);:SOUND100*J,J/2:NEXT
10 FORI=39TO0STEP-1:LOCATEI,2:PRINT"H ";:NEXT:GOSUB4
11 FORI=39TO1STEP-1:LOCATEI,2:PRINT"a ";:NEXT:GOSUB4
12 FORI=39TO2STEP-1:LOCATEI,2:PRINT"p ";:NEXT:GOSUB4
13 FORI=39TO3STEP-1:LOCATEI,2:PRINT"p ";:NEXT:GOSUB4
14 FORI=39TO4STEP-1:LOCATEI,2:PRINT"y ";:NEXT:GOSUB4
15 FORI=39TO6STEP-1:LOCATEI,2:PRINT"H ";:NEXT:GOSUB4
16 FORI=39TO7STEP-1:LOCATEI,2:PRINT"o ";:NEXT:GOSUB4
17 FORI=39TO8STEP-1:LOCATEI,2:PRINT"l ";:NEXT:GOSUB4
18 FORI=39TO9STEP-1:LOCATEI,2:PRINT"i ";:NEXT:GOSUB4
19 FORI=39TO10STEP-1:LOCATEI,2:PRINT"d ";:NEXT:GOSUB4
20 FORI=39TO11STEP-1:LOCATEI,2:PRINT"a ";:NEXT:GOSUB4
21 FORI=39TO12STEP-1:LOCATEI,2:PRINT"y ";:NEXT:GOSUB4
22 FORI=39TO13STEP-1:LOCATEI,2:PRINT"s ";:NEXT:GOSUB4
23 FORI=39TO15STEP-1:LOCATEI,2:PRINT"!! ";:NEXT:FORI=1TO5000:NEXT:CLS
24 FORJ=1TO50:K$=CHR$(135+JMOD2):E$=CHR$(133+JMOD2):S$=CHR$(40+JMOD2):B$=CHR$(123+JMOD3):M$=CHR$(131+JMOD2)
25 LOCATE10,2:PRINTS$;:LOCATE9,3:PRINTS$S$S$;:LOCATE10,4:PRINTS$;
26 LOCATE20,0:PRINTE$
27 LOCATE30,2:PRINTS$;:LOCATE29,3:PRINTS$S$S$;:LOCATE30,4:PRINTS$;
28 LOCATE19,1:PRINTE$K$E$
29 LOCATE6,5:PRINTB$;:LOCATE33,5:PRINTB$;
30 LOCATE18,2:PRINTE$K$K$K$E$
31 LOCATE17,3:PRINTE$K$K$K$K$K$E$
32 LOCATE4,7:PRINTM$" "M$" "M$;:LOCATE31,7:PRINTM$" "M$" "M$;
33 LOCATE16,4:PRINTE$K$K$K$K$K$K$K$E$
34 LOCATE15,5:PRINTE$K$K$K$K$K$K$K$K$K$E$
35 LOCATE14,6:PRINTE$K$K$K$K$K$K$K$K$K$K$K$E$
36 LOCATE13,7:PRINTE$K$K$K$K$K$K$K$K$K$K$K$K$K$E$;
37 NEXT
38 CLS:LOCATE11,2:PRINT"Season's Greetings";:LOCATE12,6:PRINT"from "CHR$(27)"p Mortimer "CHR$(27)"q";
39 FORJ=15TO5STEP-1:M$=CHR$(131+JMOD2):LOCATE10,4:PRINTM$;:LOCATE29,4:PRINTM$;:SOUNDJ*150,J:NEXT
40 MENU
                                                             