1 REM A Christmas Party with your Model 100 2 REM Version 2.0 11-24-84 3 REM by Rob Elliott 4 DIMS$(8):CLS:GOSUB118 :PRINT@83,"Merry Christmas" 5 PRINT@123,"from your Model 100":RESTORE107 6 READA,B:IFA=0ANDB=0THEN7 ELSESOUNDA,B:GOTO6 7 S$(0)=" Jingle Bells " 8 S$(1)=" Silent Night " 9 S$(2)=" Joy To The World " 10 S$(3)=" Deck The Halls " 11 S$(4)=" Adestes Fideles " 12 S$(5)=" The First Noel " 13 S$(6)=" Hark! The Herald Angels Sing " 14 S$(7)=" O Little Town Of Bethleham " 15 CLS 16 FORI=0TO7:IFI=PTHENCALL17001 17 PRINT@I*40,S$(I);:IFI=PTHENCALL17006 18 NEXTI 19 PRINT@30,"[ESC]":PRINT@73,"to quit" 20 PRINT@150,"[";CHR$(152);CHR$(153);CHR$(154);CHR$(155);"]" 21 PRINT@190,"[ENTER]":PRINT@231,"to select"; 22 A$=INKEY$:IFA$=""THEN22elseIFA$=CHR$(13)THEN29 23 IFA$=CHR$(27)THENCLS:PRINT@130,"Merry Christmas!":MENU 24 IFA$=CHR$(30)THENP=P-1:A=1:IFP=-1THENP=7 25 IFA$=CHR$(29)THENP=P-1:A=1:IFP=-1THENP=7 26 IFA$=CHR$(31)THENP=P+1:A=1:IFP=8THENP=0 27 IFA$=CHR$(28)THENP=P+1:A=1:IFP=8THENP=0 28 IFA=1THEN16ELSEGOTO22 29 onp+1goto30,32,34,36,38,40,42,44 30 CLS:GOSUB127:PRINT@83,"Jingle Bells":RESTORE47 31 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO31 32 CLS:GOSUB130:PRINT@83,"Silent Night":RESTORE60 33 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO33 34 CLS:GOSUB118:PRINT@82,"Joy To The World":RESTORE66 35 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO35 36 CLS:GOSUB144:PRINT@82,"Deck The Halls":RESTORE74 37 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO37 38 CLS:GOSUB134:PRINT@82,"Adestes Fideles":RESTORE82 39 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO39 40 CLS:GOSUB153:PRINT@82,"The First Noel":RESTORE89 41 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO41 42 CLS:GOSUB137:PRINT@82,"Hark!":PRINT@122,"The Herald Angels Sing":restore98 43 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO43 44 CLS:GOSUB159:PRINT@81,"O Little Town Of Bethleham":RESTORE111 45 READA,B:IFA=0ANDB=0THEN15ELSESOUNDA,B:GOTO45 47 DATA4184,10,4184,10,2484,10,2793,10,3134,10,4184,20,0,5,4184,5,4184,5 48 DATA4184,10,2484,10,2793,10,3134,10,3718,15,0,15,3718,10,3718,10,2348,10 49 DATA2484,10,2793,10,3321,20,0,10,2793,10,2092,10,2092,10,2348,10,2793,10 50 DATA2484,20,0,10,4184,10,4184,10,2484,10,2793,10,3134,10,4184,20,0,10 51 DATA4184,10,4184,10,2484,10,2793,10,3134,10,3718,20,0,10,3718,10,3718,10 52 DATA2348,10,2484,10,2793,10,2092,10,2092,10,2092,10,2092,10,1864,10,2092,10 53 DATA2348,10,2793,10,3134,20,0,20,2484,10,2484,10,2484,20,2484,10,2484,10 54 DATA2484,20,2484,10,2092,10,3134,15,2793,5,2484,40,2348,10,2348,10,2348,15 55 DATA2348,5,2348,10,2484,10,2484,10,2484,5,2484,5,2484,10,2793,10,2793,10 56 DATA2484,10,2793,20,2092,19,0,1,2484,10,2484,10,2484,20,2484,10,2484,10 57 DATA2484,20,2484,10,2092,10,3134,15,2793,5,2484,40,2348,10,2348,10,2348,15 58 DATA2348,5,2348,10,2484,10,2484,10,2484,5,2484,5,2092,10,2092,10,2348,10 59 DATA2793,10,3134,15,0,0 60 DATA3134,30,2793,10,3134,20,3718,60,3134,30,2793,10,3134,20,3718,60,2092,40 61 DATA2092,20,2484,60,2348,40,2348,20,3134,60,2793,40,2793,20,2348,30,2484,10 62 DATA2793,20,3134,30,2793,10,3134,20,3718,60,2793,40,2793,20,2348,30,2484,10 63 DATA2793,20,3134,30,2793,10,3134,20,3718,60,2092,40,2092,20,1758,30,2092,10 64 DATA2484,20,2348,60,1864,60,2348,20,3134,20,3718,20,3134,30,3516,10,4184,20 65 DATA4697,80,0,0 66 DATA1758,30,1864,22.5,2092,7.5,2348,45,2636,15,2793,30,3134,30,3516,45 67 DATA2348,15,2092,45,2092,15,1864,45,1864,15,1758,90,0,15,1758,7.5,1758,15 68 DATA1864,15,2092,15,2348,15,2348,22.5,2636,7.5,2793,15,1758,15,1758,15 69 DATA1864,15,2092,15,2348,15,2348,22.5,2793,7.5,2793,13.5,0,1.5,2793,15 70 DATA2793,15,2793,15,2793,15,2793,7.5,2636,7.5,2348,45,2636,7.5,2793,7.5 71 DATA3134,15,3134,15,3134,15,3134,7.5,2793,7.5,2636,45,2793,7.5,3134,7.5 72 DATA3516,15,1758,30,2092,15,2348,22.5,2636,7.5,2793,15,2636,15,2793,30 73 DATA3134,30,3516,45,0,0 74 DATA2092,30,2348,10,2484,20,2793,20,3134,20,2793,20,2484,20,3134,20,2793,10 75 DATA2484,10,2348,10,2793,10,2484,30,2793,10,3134,20,3321,20,3134,40,2092,30 76 DATA2348,10,2484,20,2793,20,3134,20,2793,20,2484,20,3134,20,2793,10,2484,10 77 DATA2348,10,2793,10,2484,30,2793,10,3134,20,3321,20,3134,40,2793,30,2484,10 78 DATA2348,20,2793,20,2484,30,2348,10,2092,20,2793,20,2484,10,2216,10,2092,20 79 DATA1864,10,1660,10,1567,20,1660,20,1864,20,2092,40,2092,30,2348,10,2484,20 80 DATA2793,20,3134,20,2793,20,2484,20,3134,20,1864,10,1864,10,1864,10,1864,10 81 DATA2092,30,2348,10,2484,20,2793,20,3134,40,0,0 82 DATA2636,20,2636,40,3516,20,2636,20,2348,40,3516,40,2092,20,2348,20,2092,20 83 DATA1975,20,2092,40,2348,20,2636,20,2636,40,2793,20,3134,20,2793,20,2636,20 84 DATA2348,20,2092,20,2793,40,3134,30,3516,10,3516,80,1758,40,1975,20,2092,20 85 DATA1975,40,2092,40,2348,20,2092,20,2636,20,2348,20,2793,30,3134,10,3516,20 86 DATA2636,20,2636,20,2793,20,2636,20,2348,20,2636,40,3516,20,2092,20,2092,20 87 DATA2348,20,2092,20,1975,20,2092,40,2348,20,2092,20,1975,20,2092,20,2348,20 88 DATA2636,20,2793,40,2636,20,1975,20,2092,40,2348,30,2636,10,2636,60,0,0 89 DATA2793,10,3134,10,3516,30,3134,10,2793,10,2636,10,2348,40,2092,10,1864,10 90 DATA1758,20,1864,20,2092,20,2348,40,2092,10,1864,10,1758,20,1864,20,2092,20 91 DATA2348,20,2092,20,1864,20,1758,20,2348,20,2636,20,2793,40,2793,10,3134,10 92 DATA3516,30,3134,10,2793,10,2636,10,2348,40,2092,10,1864,10,1758,20,1864,20 93 DATA2092,20,2348,40,2092,10,1864,10,1758,20,1864,20,2092,20,2348,20,2092,20 94 DATA1864,20,1758,20,2348,20,2636,20,2793,40,2793,10,3134,10,3516,30,3134,10 95 DATA2793,10,2636,10,2348,40,1758,10,1864,10,2092,40,2092,20,2348,60,1758,20 96 DATA1864,20,2092,20,2348,20,2092,20,1864,20,1758,20,2348,20,2636,20,2793,40 97 DATA0,0 98 DATA3134,20,2348,20,2348,30,2484,10,2348,20,1864,20,1864,20,2092,20,1567,20 99 DATA1567,20,1567,30,1758,10,1864,20,2092,20,1864,40,3134,20,2348,20,2348,30 100 DATA2484,10,2348,20,1864,20,1864,20,2092,20,1567,20,2092,20,2092,30,2484,10 101 DATA2484,20,2793,20,3134,40,1567,20,1567,20,1567,20,2348,20,1758,20,1864,20 102 DATA1864,20,2092,20,1567,20,1567,20,1567,20,2348,20,1758,20,1864,20,1864,20 103 DATA2092,20,1396,20,1396,20,1396,30,1567,10,1758,20,1864,20,1758,40,2092,20 104 DATA1864,10,1758,10,1567,30,2348,10,2348,20,2092,20,1864,40,1396,20,1396,20 105 DATA1396,30,1567,10,1758,20,1864,20,1758,40,2092,20,1864,10,1758,10,1567,30 106 DATA2348,10,2348,20,2092,20,2348,40,0,0 107 DATA3134,14,2348,14,2348,7,2092,7,2348,7,2484,7,2793,14,2793,14,2793,14 108 DATA2092,14,2092,7,1864,7,2092,7,2348,7,2484,14,3134,14,3134,14,1864,14 109 DATA1864,7,1758,7,1864,7,2092,7,2348,14,2793,14,3134,7,3134,7,2793,14 110 DATA2092,14,2484,14,2348,28,0,0 111 DATA3718,24,3718,24,3718,24,3950,24,3718,24,3134,24,3516,24,5586,24,4184,24 112 DATA4697,24,4968,12,4697,12,4184,24,6269,24,3718,72,3718,24,3718,24,3718,24 113 DATA2793,24,3134,24,3134,24,3516,24,5586,24,4184,24,4697,24,4968,12,4697,12 114 DATA3718,24,4184,24,4697,72,3718,24,3718,24,3718,24,4184,24,4697,24,4968,48 115 DATA4968,24,4968,24,5586,24,4968,24,4697,24,4184,24,3718,72,3718,24,3718,24 116 DATA3718,24,3950,24,3718,24,3134,24,3516,24,5586,24,2793,24,3134,24,4697,24 117 DATA3718,36,4184,12,4697,72,0,0 118 PRINT@29,CHR$(252)+CHR$(254); 119 PRINT@68,CHR$(252)+CHR$(239)+CHR$(239)+CHR$(254) 120 PRINT@107,CHR$(252)+STRING$(4,CHR$(239))+CHR$(254) 121 PRINT@146,CHR$(252)+STRING$(6,CHR$(239))+CHR$(254) 122 PRINT@185,CHR$(252)+STRING$(8,CHR$(239))+CHR$(254) 123 PRINT@224,CHR$(252)+STRING$(10,CHR$(239))+CHR$(254) 124 PRINT@263,CHR$(252)+STRING$(12,CHR$(239))+CHR$(254) 125 PRINT@309,CHR$(239)+CHR$(239);:RETURN 127 LINE(174,9)-(162,16):LINE-(162,40):LINE-(155,48):LINE-(193,48) 128 LINE(174,9)-(186,16):LINE-(186,40):LINE-(193,48):LINE(170,48)-(170,54) 129 LINE-(178,54):LINE-(178,48):RETURN 130 LINE(170,24)-(170,48):LINE-(182,48):LINE-(182,23):LINE(170,48)-(166,52) 131 LINE-(186,52):LINE-(182,48):LINE(170,24)-(172,26):LINE-(176,23) 132 LINE-(178,24):LINE-(182,22):LINE(176,23)-(173,18):LINE-(177,14) 133 LINE(176,23)-(179,19):LINE-(176,13):RETURN 134 LINE(174,8)-(168,20):LINE-(152,20):LINE-(164,30):LINE-(160,42) 135 LINE(174,8)-(180,20):LINE-(196,20):LINE-(184,30) 136 LINE-(188,42):LINE-(174,34):LINE-(160,42):RETURN 137 LINE(174,16)-(158,42):LINE-(190,42):LINE-(174,16):LINE-(170,12) 138 LINE(174,16)-(178,12):LINE-(178,8):LINE(177,5)-(171,5):PSET(172,9) 139 LINE(170,12)-(170,8):LINE(171,7)-(177,7):LINE(173,12)-(175,12) 140 LINE(165,32)-(145,20):LINE(183,32)-(203,20):LINE(145,20)-(145,15) 141 LINE(173,12)-(175,12):LINE(203,20)-(203,15):LINE(145,15)-(165,15) 142 LINE-(172,20):LINE(203,15)-(184,15)::LINE(184,15)-(177,20) 143 PSET(176,9):PSET(174,10):PSET(172,11):PSET(176,11):RETURN 144 LINE(174,16)-(174,20):LINE-(170,24):LINE-(174,24):LINE-(170,30) 145 LINE-(171,30):LINE-(174,30):LINE-(178,34):LINE-(177,30):LINE-(180,30) 146 LINE-(178,25):LINE-(181,25):LINE-(174,16) 147 LINE(174,16)-(172,14):LINE-(174,12):LINE-(176,14):LINE-(174,16) 148 LINE(176,14)-(185,7):LINE-(185,10):LINE-(190,8):LINE-(190,11) 149 LINE-(192,9):LINE-(194,9):LINE-(190,13):LINE-(190,17):LINE-(184,13) 150 LINE-(184,18):LINE-(180,14):LINE-(176,14):LINE(176,12)-(178,10) 151 LINE-(176,8):LINE-(174,10):LINE-(176,12):LINE(174,10)-(172,8) 152 LINE-(170,10):LINE-(172,12):LINE-(174,10):RETURN 153 LINE(162,16)-(162,48):LINE-(176,54):LINE-(190,48):LINE-(190,16) 154 LINE-(176,22):LINE-(162,16):LINE(176,22)-(176,54):LINE(164,26)-(164,20) 155 LINE-(167,27):LINE-(167,21):LINE(169,28)-(172,29):LINE-(172,23) 156 LINE-(169,22):LINE-(169,28):LINE(180,23)-(180,28):LINE-(183,27) 157 LINE(180,23)-(183,22):LINE(180,25)-(183,24):LINE(185,21)-(185,26) 158 LINE-(188,24):RETURN 159 LINE(160,48)-(160,40):LINE(168,40)-(158,40):LINE-(163,35):LINE-(168,40) 160 LINE(166,40)-(166,48):LINE-(160,48):LINE(162,47)-(162,45) 161 LINE-(164,45):LINE-(164,47):LINE(170,48)-(170,32):LINE-(178,32) 162 LINE-(178,48):LINE-(170,48):LINE(173,48)-(173,45):LINE-(175,45) 163 LINE-(175,48):PSET(172,31):PSET(174,31):PSET(172,35):PSET(176,35) 164 LINE(182,48)-(182,38):LINE-(180,38):LINE-(184,34):LINE-(190,34) 165 LINE-(194,38):LINE-(192,38):LINE-(192,48):LINE-(182,48) 166 LINE(186,48)-(186,45):LINE(188,48)-(188,45):LINE-(186,45) 167 LINE(192,38)-(182,38):LINE(130,48)-(165,28):LINE-(170,29):LINE-(190,24) 168 LINE-(200,27):LINE-(220,20):LINE(195,48)-(195,42):LINE-(201,42) 169 LINE-(201,48):LINE-(195,48):LINE(197,48)-(197,45):LINE-(199,45) 170 LINE-(199,48):LINE(194,41)-(198,38):LINE-(202,41):RETURN