c XSIMON $XMASWRD$XMASNAP$WORDSRH$TURKEY $TICTAC $SNOWVAD$SNOWPUD$SKITTLS$SKITTLE$SKISLOP$SANTAL $SANTA $PICKTRE$OWL $MOVER $MAZE $HALFWRD$FORESTR$DODGE-D$CRZYSAN$CRLQUIZ$CHIMES $CAROL $CARD $BLIND-B$ANAGRMS$  #oT#M#G#>#5# )#\0#L ####)#̩# ̜#̋#W̅# x#gq#h# \# Q#@#8#\ +## #  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0  23,247,28,8,127,8,62,8,28,8 !23,248,0,4,20,85,255,85,20,4 #23,249,16,56,16,56,56,56,56,56 *FX9,60 *FX10,10 :10 I%=120:245:  I%=1140:248,245,247,246: I%=120:247: 28,1,28,18,1 17,137,12 ,129:::7:BIG(1,1,"THE MICRO USER"):' 128:3:I%=118:249: &31,0,23:128:I%=118:249::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:128:6: ;''''':BIG(4,7,"ANAGRAMS"):'" ~~~~~~~~":A=(1500) +:5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 '" A mixed-up word"''"will appear on"''"the screen. Type"''"in the correct"''"word, and press"''"Return."''" PRESS ANY KEY";:A= `:'''" All the words"''"have a connection"''"with Christmas.":9:'''" PRESS ANY KEY":A= +N%:A%=(-):W$(N%):C%=1N%:W$(C%): %T$=W$((N%)):M$="":B$=T$:C%=(T$) G:R%=(C%):M$=M$+B$,R%,1):B$=B$,R%-1)+B$,(B$)-R%):C%=C%-1:C%=0 T$=M$T\@ WSPACE=(16-(M$))/2::1:BIG(SPACE,4,M$):3:0,8)"What is the word?":2:3,11)M1$ qM1$=T$:2:5,10)"CORRECT" :1:5,5)"WRONG":3:''"The correct answer"''" to "M$:5:'" is ";:11:T$ !d$=(1000):T\@ "18,CHRISTMAS,SANTA,HOLLY,ANGEL,SLEIGH,TINSEL,CRACKERS,PUDDING,TURKEY,SNOW,FAIRY,DECORATIONS,PRESENTS,GIFTS,PARTIES,TRIFLE,FAMILY,CARDS #-BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) $-START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 0YBIG(2,5,"BLIND-MAN'S"):'" ~~~~~ ~~~~~":BIG(5,10,"BUFF"):'" ~~~~":A=(1500) 1928,1,28,18,1::5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 2'" You can see six"''"objects in a room"''"fixed in position."'':" You are then"''"blind-folded and"''"turned around so"''"that you lose"''"your sense of"''"direction."'''" PRESS ANY KEY":A= 3:'" You have to find"'"the cracker to win"'"but you cannot"''"identify anything"''"until you bump"''"into it.":'" If you remember"''"where the objects"'"were in relation"'"to each other, it"'"will help you to" 41'"find the cracker."'''" PRESS ANY KEY":A= 5+:5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 6}''"Press":''" > to turn":" clockwise":''" < to turn":" anticlockwise":''" Z to move":" forward"' 7 '''" PRESS ANY KEY":A= 8;23,240,8,28,8,62,8,62,8,127,23,241,8,127,8,127,8,8,8,8 9J23,242,0,0,0,0,128,128,128,128,23,243,128,128,255,255,129,129,129,129 :;23,244,28,28,62,62,127,85,8,8,23,245,8,8,8,8,8,8,8,127 ;H23,246,0,0,0,0,255,255,129,129,23,247,129,129,255,213,255,36,66,129 <>23,250,0,0,189,235,235,189,0,0,23,251,0,0,0,189,189,0,0,0 =B23,252,24,60,24,24,63,60,63,60,23,253,60,60,36,36,36,36,36,54 >E23,254,24,60,24,24,252,60,252,60,23,255,60,60,36,36,36,36,36,108 ?E23,248,63,255,144,144,144,144,128,128,23,249,255,253,9,9,9,9,8,8 @B23,238,24,60,24,24,60,60,60,60,23,239,60,60,36,36,36,36,36,36 d"24,64;96;1215;991;29,608;576; nX(8),O(8,4),Y(8),P(8) x"5::I=08:J=14:O(I,J):: w254,8,10,255,240,8,10,241,242,8,10,243,244,8,10,245,246,8,10,247,248,8,9,249,250,8,251,8,252,8,10,253,238,8,10,239 I=17:X(I),Y(I): <-340,150,-240,250,110,160,300,60,250,-250,-150,-250,0,0 I=08:O(I,0): 6,2,5,3,5,1,1,6,6 I=08:P(I)=I: 3J=110:I=(6):K=(6):X=P(I):P(I)=P(K):P(K)=X:  I=17:Plot::*FX15,1 X=(1000) I=17:Plot: A2=(360)*/180 J=16 I=(J 2)*7:Plot R=(X(J)*X(J)+Y(J)*Y(J)) #A1=(Y(J)/X(J)):X(J)<0A1=A1+ #A=A1+A2:X(J)=R*(A):Y(J)=R*(A) I=(J 2)*7:Plot " ,9J=720:I=(J 2)*7:Plot:A=(10):I=(J 2)*7:Plot: 6!Plot:ROT1=I:ROT=6:=0:FLAG=0 @ J(-98)Move T(-103)ROT=(ROT+7)7 ^(-104)ROT=(ROT+1)7 h>9000FLAG=6 rSFLAG :4:4,5)"Well done!"2,7)"You took just"3,9); 100" seconds.":tZA |I=16:Plot: =0:>500 ":4:1,5)"Time has run out." .4,14)"PRESS SPACE"2,16)"FOR ANOTHER GO"  (-99)  Dx@  Move ?I=ROT1:Plot:ROT+1TRB,DNB,DXB,DbB,DlB,DvB,t@B,tJB DFLAG=0:I=16:R=(X(P(I))-X(7))^2+(Y(P(I))-Y(7))^2:R<4200FLAG=I  +FLAG>0I=FLAG:Plot:T=:>T+25:Plot FLAG<>6FLAG=0  I=8:Y(7)=Y(7)+8 Y(7)>400Y(7)=Y(7)-8 &Y(7)<-350Y(7)=Y(7)+8 0X(7)<-550X(7)=X(7)+8 :X(7)>450X(7)=X(7)-8 DPlot:ROT1=I: N%I=7:Y(7)=Y(7)+8:X(7)=X(7)+8:T\B XI=7:X(7)=X(7)+8:T\B b%I=7:Y(7)=Y(7)-8:X(7)=X(7)+8:T\B lI=8:Y(7)=Y(7)-8:T\B v%I=0:X(7)=X(7)-8:Y(7)=Y(7)-8:T\B I=0:X(7)=X(7)-8:T\B %I=0:X(7)=X(7)-8:Y(7)=Y(7)+8:T\B  Plot +X(0)=X(7):X(8)=X(7):Y(0)=Y(7):Y(8)=Y(7) X(P(I)),Y(P(I))  3,O(I,0) O(I,1),O(I,2):I=63,4 O(I,3),O(I,4)   -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231:: ! *************************** ! *** A CHRISTMAS CARD *** # *** by Linda Stonebanks *** (# *** C The Micro User *** 2! *************************** <*KEY0MODE0|MVDU14|ML.|M P#23;11,0;0;0;0;: DELETE CURSOR Z#23,224,24,24,24,24,24,24,24,24 d!23,225,8,28,62,62,62,62,28,8 n23,226,0,0,0,24,24,0,0,0 x!23,227,0,24,36,66,66,36,24,0 '23,228,&66,&81,&81,0,0,&81,&81,&66 " 14:20::" at line ";,: ,1,6,0,0,0,3,16,16,125,-5,-15,-15,126,60 22:octave$="cCdDefFgGaAb": CAPS=# (C=c sharp) hsize=5 70 15 vsize=hsize :tree(640,512):delay(50) hsize hsize=15 95 15 vsize=5 65 15 :tree(640,512):delay(50) vsize hsize  hsize=13:vsize=13  X=160 1200 320 " Y=100 900 200 ,music:tree(X,Y) 6Y @X Jdelay(150): Thsize=50:vsize=55 ^tree(640,550) htrunk(-1,1,-4,-3) r balls |  29,0,0:colour1=0:colour2=1  X=0 1279 16  music  Y=0 64 8 30,colour1:69,X,Y:69,X+8,Y+4: BOTTOM LINE 369,X,Y+955:69,X+8,Y+959: TOP LINE "0,colour2:69,X+8,Y:69,X,Y+4 69,X+8,Y+955:69,X,Y+959  Wcolour1=colour1+1:colour1=8colour1=0:colour2=colour2+1:colour2=8colour2=colour1    29,0,0:colour1=0:colour2=1  Y=72 953 8 & music 0 X=0 128 16 :,0,colour1:69,X,Y:69,X+8,Y+4: LEFT D069,X+1143,Y:69,X+1151,Y+4: RIGHT N"0,colour2:69,X+8,Y:69,X,Y+4 X69,X+1151,Y:69,X+1143,Y+4 b lWcolour1=colour1+1:colour1=8colour1=0:colour2=colour2+1:colour2=8colour2=colour1 v 05:29,0;0;:0,6:160,160:"Merry Christmas" 29,635;550;:0,7:candles   tree(Xcentre,Ycentre) 29,Xcentre;Ycentre; 1black=0:red=1:green=2:yellow=3:blue=4:white=7 !triangle(green,-4,3,0,7,4,3) !triangle(green,-5,0,0,4,5,0) #triangle(green,-6,-3,0,1,6,-3) %box(white,-1,-3,1,-3,-1,-4,1,-4) +box(red,-2.5,-4,-1.5,-6,2.5,-4,1.5,-6)     ,triangle(colour,X1,Y1,X2,Y2,X3,Y3)  0,colour:music *C X1*hsize,Y1*vsize: X2*hsize,Y2*vsize:85,X3*hsize,Y3*vsize: 4 >)box(colour,X1,Y1,X2,Y2,X3,Y3,X4,Y4) H 0,colour RX X1*hsize,Y1*vsize:X2*hsize,Y2*vsize:85,X3*hsize,Y3*vsize:85,X4*hsize,Y4*vsize: \ fballs:5 p'vposn=-3*vsize 7*vsize vsize/3 z'hposn=-6*hsize 6*hsize hsize/3 g (100)>95 hposn,vposn)=green hposn-24,vposn+16:0,(15):225:0,white:69,hposn+16,vposn+8 :music::   candles piece(white,0,224) piece(yellow,1,226) piece(red,1,227) piece(yellow,1,228) delay(20) piece(yellow,1,226) piece(red,1,227) piece(yellow,1,228)  tvC   trunk(X1,X2,Y1,Y2) $Z0,1:X1*hsize,Y1*vsize:X1*hsize,Y2*vsize:85,X2*hsize,Y1*vsize:85,X2*hsize,Y2*vsize .0,2 8!X=X1*hsize X2*hsize+8 16 BX,Y1*vsize:X,Y2*vsize+4 L V ` jpiece(colour,offset,char) toffset=offset*32 ~z3,colour:-4*hsize-24,3.5*vsize+offset:char:4*hsize-24,3.5*vsize+offset:char:-5*hsize-24,.5*vsize+offset:char s5*hsize-24,.5*vsize+offset:char:-6*hsize-24,-2.5*vsize+offset:char:6*hsize-24,-2.5*vsize+offset:char:    music  (-6)=0 %note$:note$="END" dvD:tzD - note$,1)="O"octave=(note$,1)):tzD "t=(note$,1)):note$=note$,1) *freq=octave$,note$)*4+1+48*(octave-2) 1,1,freq,t*4:tpD  * THE FIRST NOWELL * :O3,e1,d1,c3,d1,e1,f1,g4,a1,b1,O4,c2,O3,b2,a2,g4,a1,b1 @O4,c2,O3,b2,a2,g2,a2,b2,O4,c2,O3,g2,f2,e4,e1,d1,c3,d1,e1,f1  =g4,a1,b1,O4,c2,O3,b2,a2,g4,a1,b1,O4,c2,O3,b2,a2,g2,a2,b2 IO4,c2,O3,g2,f2,e4,e1,d1,c3,d1,e1,f1,g4,O4,c1,O3,b1,a4,a2,g6,O4,c2,O3 %b2,a2,g2,a2,b2,O4,c2,O3,g2,f2,e8 ( *O COME ALL YE FAITHFUL * 21g2,g4,d2,g2,a4,d4,b2,a2,b2,O4,c2,O3,b4,a2,g2 T:   **XMAS PROGRAM**  *For Electron/Micro User*  *By R.A.Waddilove* ( *Happy Christmas* 2 ThE <store_data F assemble P 5 Z letters d=0: >500 n 5,31);"Press Space"; x *FX21,0 =32  6 o''"Function Keys :-"''"f1 - LIST current program."''"f2 - delete current program."''"f3 - end the carols." q''"Programs can be typed in and run while the carols continue to play. To LOAD or SAVE a program press f3."    store_data *FX13,4 *FX16,0 ?&70=244 I%=244 1 -1  J%:I%?&A00=J%  *KEY1 "LISTO7|M|NLIST|M" *KEY2 "NEW|M" *KEY3 "*FX13,4|M" "&*KEY10 "?&220=0:?&221=9:*FX14,4|M" , 6 @ pitch,length,... J T **Silent Night** ^ 80,15, 88,5, 80,10, 68,30, 80,15, 88,5, 80,10, 68,30, 108,30, 96,30, 100,30, 80,30, 88,30, 100,15, 96,5, 88,10, 80,15, 88,5,80,10, 68,30 h r **We Three Kings** | 96,18, 88,9, 80,18, 68,9, 76,9, 80,9, 76,9, 68,27, 96,18, 88,9, 80,18, 68,9, 76,9, 80,9, 76,9, 68,27, 80,18, 0,0, 80,9, 88,18, 0,0, 88,9, 96,18, 0,0, 96,9, 108,9, 100,9, 96,9, 88,9, 96,9, 88,9, 80,18, 76,9,68,40   **Jingle Bells**  96,5, 0,0, 96,5, 0,0, 96,10, 0,0, 96,5, 0,0, 96,5, 0,0, 96,10, 0,0, 96,5, 108,5, 80,7, 88,3, 96,20, 100,5, 0,0, 100,5, 0,0, 100,7, 0,0, 100,5, 96,5, 0,0, 96,5, 0,0, 96,3, 0,0, 96,3, 108,5, 0,0, 108,5, 100,5, 88,5, 80,40   **Away In A Manger**  52,10, 72,10, 0,0, 72,10, 80,5, 88,5, 72,10, 0,0, 72,10, 88,5, 92,5, 100,10, 0,0, 100,10, 108,10, 92,20, 80,5, 88,5, 92,10, 0,0, 92,10, 100,10, 88,10, 0,0, 88,10, 72,5, 88,5, 80,10, 60,10, 68,10,72,40   assemble pointer=&70  sound=&71  !sound=1 sound!2=-15 osword=&FFF1 osbyte=&FFF4 ?&220=&00:?&221=&09  pass=0 2 2 & P%=&900 0[ OPT pass :PHP:PHA \save registers D TXA:PHA N TYA:PHA X LDA #&80 b LDX #&FA l LDY #&FF v'JSR osbyte \space in sound buffer?  CPX #10 BMI end \if not enough LDY pointer LDA &A00,Y \get pitch STA sound+4 DEY LDA &A00,Y \get length STA sound+6  LDA #7 LDX #sound 256 LDY #sound 256 JSR osword \play note DEC pointer DEC pointer  BNE end LDA #244:STA pointer  .end *"PLA:TAY \restore registers 4 PLA:TAX > PLA:PLP HRTS R] \ f *FX14,4 p z  letters  23,1,0;0;0;0;  19,3,0;0;  0,2 a$="Merry"  I%=1 5 )print(a$,I%,1),2,/2,128,I%*64+330)  a$="Christmas" b$="Everybody"  I%=1 9 'print(a$,I%,1),2,0,I%*128-80,900) +print(b$,I%,1),2,-/2,1144,900-I%*64)   0,1 a$="MICRO USER " $b$="ELECTRON USER" . I%=1 13 8$theta=(I%*(360/14)-(90+360/14)) Bx%=639+200*(theta) Ly%=452+200*(theta) V$print(a$,I%,1),2,-theta,x%,y%) `x%=639+110*(theta) jy%=452+110*(theta) t$print(b$,I%,1),1,-theta,x%,y%) ~  19,3,4;0;  8,7);"From"   & print(letter$,size,angle,X%,Y%)  I%,J%  0,31);letter$; cos=size*(angle) sin=2*size*(angle)  I%=0 64 4  J%=0 32 8 I%,J%) 69,X%+I%*cos-J%*sin,Y%+(I%*sin/4)+J%*cos      ( ** error ** 2 6: 19,0,4;0;14 <:" at line ";  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 01BIG(5,8,"CHIMES"):'" ~~~~~~":A=(1500) d MUSIC n x init  1 7  0,4); >"Enter your options, pressing Return after each:-"''' "Octave 1-5 "O% O%>0 O%<6  N%=1O%:B%:  0,11); "Length 1-50 "L% L%>0 L%<51 J:0,13);"Chords Y/N ";:""G$:G$="Y" G$="N":G=(G$):G=89X%=0X%=1   0,15); "/"Sound type 1=BELL, 2=SWELL, 3=TREMOLO "E% ,E%>0 E%<4 69 E%=2 0,17);:"Swell Speed 1-10 "W%:W%>0 W%<11 @< E%=3 0,17);:"Tremlo Speed 1-255 "T%:T%>0 T%<256 Jenv T::Y%=6302:N%=0242:(N%3)+1:7+N%,Y%)(224):: ^C15,0)"USE KEYS"13,2)" W E R Y I"12,4)"A S D F G J L" h r (-66) S%=B%+0 | (-34) S%=B%+4  (-82) S%=B%+8  (-35) S%=B%+12  (-51) S%=B%+16  (-52) S%=B%+20  (-68) S%=B%+24  (-84) S%=B%+28  (-69) S%=B%+32  (-70) S%=B%+36  (-38) S%=B%+40  (-87) S%=B%+44 符(0)play 0  play C%=C%+1:C%=4C%=1 F X%=1&10+C%,E%,S%,L% &11,E%,S%,L%:&12,E%,S%,L%:&13,E%,S%,L% 19,C%,(6);0; & 0 env :'1,0,0,0,0,0,0,0,127,0,0,-1,126,126 D&2,0,0,0,0,0,0,0,W%,0,0,-1,126,126 N,3,0,1,-1,1,T%,T%,T%,127,0,0,-1,126,126 X b init l&23,224,24,24,24,24,60,126,126,255 v+C%=1:N%=0:D%=0:E%=0:S%=0:T%=0:B%=0:L%=0  5,53,101,149,197  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh`  HEAD 1,3,1,-1,0,2,2,0,126,-63,-3,-1,100,100:2,134,126,0,0,206,0,0,127,-15,-1,-1,126,100:3,128,-18,0,0,9,0,0,127,-63,-11,-9,126,126:A$(5):S$=40," ") '1:19,2,6;0;23;8202;0;0;0;:INS: 129:(80):BIG(12,0,"CAROL QUIZ")::128:F%=05:3:3,F%*2+6);F%+1;:2:A$(F%):6);A$(F%)::3:10,10,34,65,34:" Player 1"10"Player 2 ";:34,76,34 (C%=((6))-1:L%=180+C%*30:NN%:N%=10 (N%=N%+1:N%=NN%DZ@ 2X%=0:L%:NN% 0),P%,D%*3:&202,-(Q%<>0),Q%,E%*3:&201,-(Q%<>0),Q%,E%*3:K%=(-87):J%=(-66):K%J%VER:T^@ FX%=N%:*FX15,1 P9P%=(500):K%=(P%=76):J%=(P%=65):K%J%VER:T^@Th@ ZhOhDear:0,22);"TIME HAS ELAPSED!!"'"It was ";A$(C%)'"Press the Space Bar to try again !":=32: dVER*FX15 nA0,21)100,22);"Type in your answer, player ";:K%"2""1" xFA$=:"123456",A$)>0:A$-1=C%"RIGHT !!":WOW "WRONG":OhDear .F=01000::0,22);"Start Again!";S$'S$: -OhDear:T%=13:&200+T%,2,100+T%,40:: 7WOW:F%=025010:T%=13:&200+T%,3,F%+T%,1::: Good King Wencleslas,Come All Ye Faithful,Hark the Herald Angels Sing,While Shepherds Watched...,Away In A Manger,Once in Royal David's City # *** Good King Wencleslas *** 26,129,2,0,2,129,2,0,2,129,2,0,2,137,2,0,2,129,2,0,2,129,2,0,2,109,4,0,4,117,2,53,2,109,2,53,2,117,2,61,2,125,2,13,2,129,4,33,4,129,4,33,4,129,2,0,2,129,2,0,2,129,2,0,2,137,2,0,2,129,2,0,2,129,2,0,2,109,4,0,4,117,2,53,2,109,2,53,2 0117,2,61,2,125,2,13,2,129,4,33,4,129,4,33,4 # *** Come all Ye Faithful *** 29,129,2,13,2,129,4,33,4,109,2,41,2,129,2,49,2,137,2,13,2,0,1,29,1,0,1,21,1,109,4,29,2,145,2,33,2,137,2,41,2,145,2,49,2,149,2,53,2,145,2,61,2,0,1,41,1,0,1,29,1,137,2,13,2,129,2,69,2,129,4,69,4,125,2,61,2,117,2,41,2,125,2,61,2 Q129,2,69,2,137,2,77,2,145,2,81,2,125,4,89,4,117,3,41,3,109,1,41,1,109,2,61,2 % *** Hark the Herald Angels *** 16,109,2,33,2,129,2,41,2,129,3,49,3,125,1,41,1,129,2,33,2,145,2,13,2,145,2,61,2,137,2,29,2,157,2,33,2,157,2,41,2,157,3,49,3,149,1,53,1,145,2,61,2,137,2,13,2,145,4,33,4  ) *** While Shepherds Watched... *** 15,129,2,61,2,145,3,81,3,145,1,61,1,137,2,53,2,129,2,49,2,149,2,69,2,149,2,69,2,145,2,61,2,137,2,53,2,145,2,81,2,157,2,81,2,157,2,89,2,153,2,89,2,157,4,61,4  " *** Away In A Manger *** ,30,109,2,13,2,129,2,33,2,129,2,0,2,137,1,41,1,145,1,0,1,129,2,49,2,129,2,0,2,145,1,53,1,149,1,0,1,157,2,61,2,157,2,0,2,165,1,53,1,0,1,49,1,149,2,53,1,0,2,0,2,137,1,49,1,145,1,53,1,149,2,61,2,149,2,0,2 6o157,2,13,2,145,2,33,2,145,2,0,2,129,1,49,1,145,1,53,1,137,2,61,2,117,1,53,1,0,1,49,1,125,2,41,2,129,4,33,4 @) *** Once in Royal David's City *** J40,109,2,61,2,125,2,53,2,129,3,49,3,129,1,49,1,129,1,49,1,125,1,41,1,129,1,49,1,137,1,53,1,137,2,53,2,129,2,49,2,129,2,13,2,145,2,33,2,157,3,49,3,145,1,61,1,145,1,61,1,137,1,53,1,129,1,49,1,125,1,41,1,129,4,49,4 T165,1,5,1,0,1,13,1,165,1,21,1,0,1,29,1,157,3,33,3,129,1,33,1,149,2,41,2,149,2,13,2,145,4,33,4,165,1,5,1,0,1,13,1,165,1,21,1,0,1,29,1,157,3,33,3,145,1,61,1,145,1,61,1,137,1,53,1,129,1,49,1,125,1,41,1,129,8,49,8 ^((6))-1:0  HEAD %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0  23,247,28,8,127,8,62,8,28,8  !23,248,0,4,20,85,255,85,20,4 #23,249,16,56,16,56,56,56,56,56  *FX9,60 ( *FX10,10 2 :10 <I%=120:245: F I%=1140:248,245,247,246: PI%=120:247: Z28,1,28,18,1 d17,137,12 n,129:::7:BIG(1,1,"THE MICRO USER"):' x128:3:I%=118:249: &31,0,23:128:I%=118:249::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:128:7: PBIG(5,6,"CAROL"):'" ~~~~~":BIG(5,10,"QUIZ"):'" ~~~~":A=(1500)   -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231:: p INS uBIG(12,0,"CAROL QUIZ") z'''"Part of a Christmas carol will play."'''"As soon as you know what the carol is"''"press your key, followed by the number"''"of the carol." <''"You will have several chances to guess"''"each one." \'''"Left player use 'A' Right player use'L'"'''''" PRESS ANY KEY TO START":a=:  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 ! 23,247,28,8,127,8,62,8,28,8 "!23,248,0,4,20,85,255,85,20,4 ##23,249,16,56,16,56,56,56,56,56 $ *FX9,60 % *FX10,10 & :10 'I%=120:245: ( I%=1140:248,245,247,246: )I%=120:247: *28,1,28,18,1 +17,137,12 ,,129:::7:BIG(1,1,"THE MICRO USER"):' -128:3:I%=118:249: .&31,0,23:128:I%=118:249::129 /(0:BIG(-1,25,"CHRISTMAS CRACKERS"): 0=28,1,23,18,6:128:7::BIG(2,8,"CRAZY SANTA"):A=(1500) 1 err 3 4 init 5 *FX12,0 6 *FX15,1 7@6:'" CRAZY SANTA"'" ~~~~~~~~~~~"'' 8u" Santa is in a rush! He can't stop"'"to deliver the presents, so he tries to"'"drop them down the chimneys." 9H'" See how many he can deliver before"'"landing."''"CONTROLS:-"' ;M" A = Slow"''" S = Fast"''" Return = Drop Sack" =K'"Skill level: 1 to 6 ... 1 is easiest!"''" Enter your choice." >:S%=-48:S%>0 S%<7 ? init @ A2 B23,0,8202;0;0;0; C screen DV%=-64:X%=0:Y%=991:Z%= E5 F Gfly H P(V%,W%)<>0 Z%= I (-74) G% drop J G% sack KZ% Y%<64 L Z% dead M MAN%=0 N24:0,5);"FINAL SCORE:";SC%''"PRESS SPACE":5 OG= P Q fly R#X%=X%+C%:X%>1216 Y%=Y%-32:X%=0 Splane(X%,Y%) TK%=(0): K%=-1 U!K%=65 C%=C%-1: C%<=10 C%=10 V!K%=83 C%=C%+1: C%>=64 C%=64 W Xplane(X%,Y%) Y3,1 ZV%,W%:224 [X%,Y%:224 \V%=X%:W%=Y% ] ^ drop _&11,1,200,60 `A%=X%:B%=Y%-64:G%= a b sack cX3,3:B%=B%-32: P2(A%,B%)=3 &11,0,0,0:&10,-15,4,3:D%,E%:225:G%=:hole:D%=-64: d/B%<32 &11,0,0,0:D%,E%:225:G%=:D%=-64: eA%,B%:225 fD%,E%:225 gD%=A%:E%=B% h i hole j 4:SC%=SC%+20:11,0);SC%:5 k l dead mDMAN%=MAN%-1:N=160:19,0,(7);0;:&11,-15,(255),1::19,0,0;0; n o screen p X%,Y%:2 qX%=0 18 rY%=31 31-(S%*(3)) -1 sX%,Y%);:226; t%: (S%+1)=23:X%,Y%);:227:2 u v5,0);"SCORE:";SC% w xݤP(X%,Y%) y=X%+32,Y%) zݤP2(X%,Y%) {=X%+32,Y%+36) | init } *FX12,1 ~ *FX11,1 A%=0:B%=0:X%=0:Y%=991 MAN%=3:SC%=0 "C%=32:D%=0:E%=0:V%=-64:W%=1023 Z%=:G%= )23,224,6,143,198,228,244,244,252,255 %23,225,231,126,60,60,60,60,24,24 '23,226,222,222,0,125,125,0,222,222 )23,227,126,126,60,24,126,255,255,255 plane(X%,Y%) )1,128,-1,0,0,200,0,0,127,0,0,0,126,0  err =17 *FX12,0 *FX12,3 22,7 :"IN LINE "  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:6: 0NBIG(5,5,"DODGE"):'" ~~~~~":BIG(6,9,"DAD"):'" ~~~":A=(1500) d SCORE=0:DrA n 2 x 23;8202;0;0;0; ' 1,6,-3,0,3,3,0,5,0,-4,0,-5,100,70 , 23,228,255,255,255,255,255,255,255,255 $ 23,224,24,24,60,24,24,24,36,36 ( 23,227,24,24,60,60,126,126,255,255 & 23,225,24,24,126,153,24,24,60,66  3 F M=3293:L=2174:31,L,M:228,228,228,31,L,M+1,228,228,228:: H L=018:31,L,1,228,31,L,30,228::L=129:31,0,L,228,31,18,L,228: 3 X=1:Y=2:X1=17:Y1=29:NO=0:I=1:SCORE=0:F1=0:F2=0 $ 6:31,X,Y,224:1:31,X1,Y1,225 / L%=1300::NO=117,2,31,F1,F2,227:dz@ 7 (50)=44F1=(10)+5:F2=14:17,5,31,F1,F2,227:NO=1 G F1=X F2=Y NO=1 SCORE=SCORE+100:1,1,234,10:NO=0:31,X,Y,224 : 17,6,31,0,0:"Score="SCORE;:(-98)XX=-1:YY=0:TvA  (-67)XX=1:YY=0:TvA  (-73)XX=0:YY=-1:TvA " (-105)XX=0:YY=1:TvA , TfB 6H (X+XX)=X1 (Y+YY)=Y1 31,X,Y,32:X=X+XX:Y=Y+YY:31,X,Y,229:D^A @. T1=X+XX:T2=Y+YY:CHECK(T1,T2):RES=1TfB J 1,-15,20,1 T2 31,X,Y,32:X=X+XX:Y=Y+YY:6:31,X,Y,224:TfB ^ 31,5,15:"CAUGHT YOU" h5 L%=11005:1,1,L%,1:2,-15,L%,1::L%=15000: r 1:23;8202;0;0;0; | 15)"Dodge Dad"  ''10)"Last score ="SCORE . ''"It's Christmas Eve and a bad little " . '"boy called Tommy Tucker has crept out" - '"of his bedroom to open his presents " - '"before Christmas Day. This has made " , '"Tommy's dad very cross. The idea of" . '"the game is to help Tommy collect up " - '"the presents which Santa has dropped" / '"from his invisible sleigh. Be careful!" / '"Dad is very angry and will send him to"  '"bed if he is caught." # '" Z-LEFT X-RIGHT"  '" /-DOWN :-UP" . '" PRESS ANY KEY TO START GAME":*FX15  A$=:Dn@  && (2)=1 I DNB,DXB,DbB,DlB 0 Y=Y1 DNB : X=X1 DbB D (2)=1DbB N= T1=X1-1:T2=Y1:X1>X CHECK(T1,T2):RES=0DAD:I=1:DvB X6 T1=X1+1:T2=Y1:CHECK(T1,T2):RES=0DAD:I=2:DvB b< Y1>Y T1=X1:T2=Y1-1:CHECK(T1,T2):RES=0DAD:I=3:DvB l6 T1=X1:T2=Y1+1:CHECK(T1,T2):RES=0DAD:I=4:DvB v X=X1 Y=Y1 D^A df@  CHECK(D,E) , ?(&3000+(32*D)+(&280*E))=0RES=0RES=1   DAD . 31,X1,Y1,32:X1=T1:Y1=T2:1:31,X1,Y1,225   -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh`  BST=100 *23,224,&8,&1C,&1C,&89,&FF,&BD,&BD,&A5 !+23,225,&40,&E0,&E0,&81,&FE,&E4,&E8,&90 "'23,226,&2,&7,&7,&82,&7F,&27,&17,&9 #+23,228,&E0,&A0,&80,&C0,&C0,&60,&3F,&1F $'23,229,&0,&0,&0,&0,&FF,&FF,&FF,&FF %%23,234,&7,&5,&1,&3,&7,&C,&F8,&F0 &%23,235,&10,&8,&7,&7,&FF,&7,&2,&2 ''23,232,&0,&1,&FF,&FF,&FD,&FC,&8,&8 ()23,233,&20,&40,&80,&C0,&C0,&C0,&0,&0 )%23,245,16,56,16,124,16,254,16,56 *%23,246,32,40,170,255,170,40,32,0 + 23,247,28,8,127,8,62,8,28,8 ,!23,248,0,4,20,85,255,85,20,4 -#23,249,16,56,16,56,56,56,56,56 . *FX9,60 / *FX10,10 0 :10 1I%=120:245: 2 I%=1140:248,245,247,246: 3I%=120:247: 428,1,28,18,1 517,137,12 6,129:::7:BIG(1,1,"THE MICRO USER"):' 7128:3:I%=118:249: 8&31,0,23:128:I%=118:249::129 9'0:BIG(-1,25,"CHRISTMAS CRACKERS") :28,1,23,18,6:141:0: ;6BIG(2,8,"FOREST RUN"):'" ~~~~~~~~~~":A=(1500) <131:1::''" INSTRUCTIONS"'" ~~~~~~~~~~~~"''" Guide Santa to"''"his sleigh without"'"hitting the trees."''''" PRESS ANY KEY":A= =132:7::''" CONTROLS"'" ~~~~~~~~"''" Z....LEFT"''" X....RIGHT"''''" PRESS A NUMBER"''" FROM 0 TO 9"''" (0 IS HARDEST)" >LE=-48:LE<0 LE>9 T~@ ?28,1,28,18,1:135::=0 @N=500:P=(10)+3:S=P:C=10 A22:X%=116:Y%=326:(X%*Y%)7=3X%,Y%)245 B, C614:PO=(10)+3: PO,26);:228,229,234,235,232,233 D *FX11,1 E I=026 F *FX15,1 G2 (P*I)7=3 :DO@ J *FX15,1 KJ=1LE*50 L, M *FX12,0 NP=PO+1DS@ O *FX12,0 P;129:0::''''''" YOU CRASHED!!"'''''" PRESS SPACE" QA=:<>32DQ@ R Tt@ S}T=/100:130:0::''''''" YOU SUCCEEDED"'''" TIME=";T" SECS":T32DU@ V Tt@ -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231:: START=+&31  2:23;8202;0;0;0; UtH t psqr pq sst ppڢh`~~~~~~~~~~ %23,225,16,56,16,124,16,254,16,56 %23,226,32,40,170,255,170,40,32,0  23,227,28,8,127,8,62,8,28,8 !23,228,0,4,20,85,255,85,20,4 #23,229,16,56,16,56,56,56,56,56 *FX9,60 *FX10,10 N:W$(N):I=1N:W$(I): :10 I%=120:225:  I%=1140:228,225,227,226: I%=120:227: 28,1,28,18,1 17,137,12 ,129:::7:BIG(1,1,"THE MICRO USER"):' 128:3:I%=118:229: &31,0,23:128:I%=118:229::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:141:0: 7''''':BIG(4,8,"HALVES"):'" ~~~~~~":A=(1500) 131:1::'"INSTRUCTIONS"'"~~~~~~~~~~~~"''"Half a word will"''"appear on the"''"screen."''"Type in the word."''"You have 3 tries."'''" PRESS ANY KEY":A=:G%=0 W$=W$((N)) 28,1,23,18,6:128:(7): S=(15-(W$))/2 7I%=1(W$):A%=(W$,I%,1)):START:31,I%+S,8,230: I%=0:R$=""::I%=I%+1:A%=:A%=13T_@A%=127I%=I%-2:31,I%+S+1,9,32,31,I%+S%+1,9:R$=R$,((R$)-1))START:31,I%+S,9,231:R$=R$+(A%) I%=(W$)A%=13 GW$=R$130::15:BIG(4,6,"CORRECT") 129::15:BIG(5,6,"WRONG") !QW$<>R$ G%<2 G%=G%+1:''" TRY AGAIN"''" PRESS A KEY":A=(1000):T[@ ":W$<>R$ G%=2 ''"THE CORRECT ANSWERWAS...."W$:G%=0 #$11:'''" PRESS SPACE":*FX15,1 $ =32 TY@ Td@ % &. BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) '-START:31,J%+X,Y,230,31,J%+X,Y+1,231:: (18,CHRISTMAS,SANTA,HOLLY,ANGEL,SLEIGH,TINSEL,CRACKERS,PUDDING,TURKEY,SNOW,FAIRY,DECORATIONS,PRESENTS,GIFTS,PARTIES,TRIFLE,FAMILY,CARDS  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0  23,247,28,8,127,8,62,8,28,8 !23,248,0,4,20,85,255,85,20,4 #23,249,16,56,16,56,56,56,56,56 *FX9,60 *FX10,10 :10 I%=120:245:  I%=1140:248,245,247,246: I%=120:247: 28,1,28,18,1 17,137,12 ,129:::7:BIG(1,1,"THE MICRO USER"):' 128:3:I%=118:249: &31,0,23:128:I%=118:249::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:128:7: 4BIG(4,8,"MAZE PUD"):'" ~~~~~~~~":A=(1500) 1 23,0,8202;0;0;0;  :2 instruct  init  screen =0  !% (-104)X%+48,Y%-16)=0X%=X%+32 "% (-103)X%-16,Y%-16)=0X%=X%-32 #$ (-98)X%+16,Y%-48)=0Y%=Y%-32 $$ (-66)X%+16,Y%+16)=0Y%=Y%+32 % X%>=1120X%=32 &$ X%+48,Y%-16)=3 X%+32,Y%:225 '$ X%-16,Y%-16)=3 X%-32,Y%:225 ($ X%+16,Y%-48)=3 X%,Y%-32:225 )$ X%+16,Y%+16)=3 X%,Y%+32:225 *' X%-16,Y%+16)=3 X%-32,Y%+32:225 +' X%-16,Y%-48)=3 X%-32,Y%-32:225 ,' X%+48,Y%+16)=3 X%+32,Y%+32:225 -' X%+48,Y%-48)=3 X%+32,Y%-32:225 . move / Y%=128 0 4,20 12 2 *FX15,1 3="YOU TOOK ";( 6000)60;" MINS ";( 100) 60;" SECS" 4"'"Press SPACE for a new game" 5A=:A<>32Tu@ 60 7 move 8X%,Y%:224 9A%,B%:224 :A%=X%:B%=Y% ; < screen = 4::' > ?3:19,3,0;0; @N%=025:A$:A$: A 3,1:5 B Cinstruct D15,0)"MAZE PUD" E'''"Our poor little Christmas pudding is"''"lost (ahh). Your job is to get him"''"through the maze in as little time as"''"possible. To start with all of the maze"''"is hidden, but more will appear as you"''"travel further." FP15,18)"A = UP"15,20)"Z = DOWN"15,22)"< = LEFT"15,24)"> = RIGHT" G(10,29)"PRESS SPACE TO PLAY":32= H init IX%=32:Y%=992:B%=-32:A%=-32 J&23,224,24,60,90,255,219,66,126,36 K+23,225,255,255,255,255,255,255,255,255 L M+"***** ******************************" N+"**** ** **** ** **" O+"**** ***** *** *** ** ** *" P+"* * **** ****** ** **" Q+"**** **** ** *** ****** **" R+"* **** * ****** **** *** **" S+"* **** ** * **** *** ** ****" T,"* ********** ** ******* ***** **" U+"* * ***** *** * **** *" V+"* ** **** **** ** **** ******" W+"* ** **** ***** ** ** *** ** ***" X+"* **** * *** *** **" Y,"******* ******* *** ********** ***" Z+"** *** ****** ********* ******" [+"***** **** ***** *** **** *" \+"** *** ***** ** ***" ]+"***** *** *** *** ****** ******* ***" ^+"**** ****** * ***" _+"* ************* ***** ******* *" `+"* ** **** *** ** ************* * *" a+"**** *** ****** ** * *" b+"***** ********** *** **** * *" c+"** *** ** ** * ** *** *" d+"** *********** *** ***** ***** *****" e+"* **** ** ** **" f+"********* **************************" g h-BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) i-START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 !%23,246,32,40,170,255,170,40,32,0 " 23,247,28,8,127,8,62,8,28,8 #!23,248,0,4,20,85,255,85,20,4 $#23,249,16,56,16,56,56,56,56,56 % *FX9,60 & *FX10,10 ' :10 (I%=120:245: ) I%=1140:248,245,247,246: *I%=120:247: +28,1,28,18,1 ,17,137,12 -,129:::7:BIG(1,1,"THE MICRO USER"):' .128:3:I%=118:249: /&31,0,23:128:I%=118:249::129 0'0:BIG(-1,25,"CHRISTMAS CRACKERS") 128,1,23,18,6:128:1: 2$BIG(4,8,"MOVER"):A=(1500):7: 3'"INSTRUCTIONS"'"~~~~~~~~~~~~"''"GUIDE THE OBJECT"''"AROUND THE SCREEN"''"WITHOUT HITTING "''"THE SIDES OR YOUR"''"TAIL.":11:'''" PRESS SPACE":A= 4135:4::'" CONTROLS"'" ~~~~~~~~"''" Z..LEFT"''" X..RIGHT"''" /..DOWN"''" *..UP"'''" PRESS 0-9"''"(0=FAST : 9=SLOW)" 5SP=-48:SP<0SP>9Tu@ 6 I=+9200 7=0:128::A1=16:J=16 8 9:A=(0):0,1);(/100)" SECONDS":K=0:A=-1 A=A1 A1=A :A=88J=16 ;A=90J=-16 <A=58J=-640 =A=47J=640 > I=I+J ?$I="BCDEFSSSSSSSSD" @X=120*SP A B!(I+J)<>0 C(:1:'''"YOU LASTED "''/100" SECS" D03,12)"PRESS SPACE":A=:<>32DD@ Tq@ -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  Angle look-up table  T(72,2)  I% = 0 72  T(I%,1)=((I%*5))  T(I%,2)=((I%*5))  I% # 1 ( Program to draw B.B.C.owl -' 0=Black,1=Green,2=Yellow,3=White 2 19,1,2,0,0,0 7 Draw background < 0,1 A 1200,0 F 1200,1050 K 85,0,1050 P 0,0 U 85, 1200,0 Z 0,3 _ 0,650 d 1200,650 i 85,1200,1050 n 0,1050 s 85,0,650 x } Routine to draw ellipse @ Maj & min are axes of ellipse ,inc is slope of major axis & xc,yc give centre,col is colour  maj%,min%,inc%  xc%,yc%,col 0,col  xc%,yc% 1 xc%+maj%*T(inc%/5,1),yc%+maj%*T(inc%/5,2)  A% = 0 360 15  xc%,yc%  x = maj%*T(A%/5,1)  y = min%*T(A%/5,2) + xt = x*T(inc%/5,1)-y*T(inc%/5,2)+xc% + yt = x*T(inc%/5,2)+y*T(inc%/5,1)+yc%  85,xt,yt  A%  inc% < 0 131  0  J =1 6  K = 1 4  4+J+2*K,12+2*J)"*"  K  J  Right wing  100,20,70,225,600,0  100,30,100,220,475,0  100,30,120,260,350,0   100,30,140,360,235,0  100,30,140,480,125,0  Ears  100,30,30,600,850,0  100,30,90,675,810,0 " 80,25,60,640,825,3 ' 100,30,150,360,850,0 , 100,30,90,285,810,0 1 80,25,120,320,825,3 6 Body ; 350,250,120,500,450,3 @ 150,200,90,480,750,0 E Legs J 25,25,0,390,200,0 O 80,10,70,357,130,2 T 25,25,0,560,200,0 Y 75,10,70,550,130,2 ^ Feet c 100,15,0,500,60,0 h 75,10,0,500,50,1 m 100,15,0,300,60,0 r 75,10,0,300,50,1 w Wings | 100,25,90,740,160,0  80,20,90,740,160,2  Layer 2  100,25,90,755,230,3  80,20,90,755,230,0  100,30,90,715,230,3  80,25,90,715,230,0  Layer 3  100,30,90,765,280,2  80,25,90,765,280,0  100,30,90,720,280,2  80,25,90,720,280,0  100,30,100,690,280,2  80,25,100,690,280,0  Layer 4  100,30,90,765,330,3  80,25,90,765,330,2  100,30,90,720,330,3  80,25,90,720,330,2  100,30,100,690,330,3  80,25,100,690,330,2  100,30,110,660,330,3  80,25,110,660,330,2  Layer 5  100,30,100,750,380,0  80,25,100,750,380,3  100,30,100,710,380,0  80,25,100,710,380,3  100,30,105,680,380,0   80,25,105,680,380,3  100,30,110,650,380,0  80,25,110,650,380,3  100,30,115,620,380,0 ! 80,25,115,620,380,3 & 100,30,120,590,380,0 + 80,25,120,590,380,3 0 Layer 6 5 100,30,100,750,430,2 : 80,20,100,750,430,0 ? 100,30,100,710,430,2 D 80,20,100,710,430,0 I 100,30,105,670,430,2 N 80,20,105,670,430,0 S 100,30,110,630,430,2 X 80,20,110,630,430,0 ] 100,30,115,590,430,2 b 80,20,115,590,430,0 g 100,30,115,550,430,2 l 80,20,115,550,430,0 q Layer 7 v 120,30,110,710,550,0 { 90,20,110,710,550,3  120,30,115,670,535,0  90,20,115,670,535,3  120,30,115,635,510,0  90,20,115,635,510,3  120,30,110,590,510,0  90,20,110,590,510,3  120,30,100,540,510,0  90,20,100,540,510,3  Head detail  120,100,0,380,700,0  120,100,0,580,700,0  130,90,40,430,730,3  130,90,140,530,730,3  90,80,50,430,730,0  90,80,130,530,730,0  50,50,0,420,740,3  50,50,0,530,740,3  Eyes  40,40,0,420,740,0  25,25,0,420,740,2  25,5,90,420,740,0  40,40,0,530,740,0  25,25,0,530,740,2  25,5,90,530,740,0  Beak  50,20,90,475,660,2  35,20,90,475,670,0  25,20,90,475,670,2   BBC sign  75,50,0,850,800,0  75,50,0,800,800,3  75,50,0,850,700,0   75,50,0,800,700,3 % 7,100,0,820,750,0 * 75,50,0,920,500,0 / 75,50,0,870,500,1 4 75,50,0,920,400,0 9 75,50,0,870,400,1 > 7,100,0,890,450,0 C 100,70,90,1000,175,0 H 80,60,90,1020,175,1 M 1,1,-1,1,1,1,  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0  23,247,28,8,127,8,62,8,28,8 !23,248,0,4,20,85,255,85,20,4 #23,249,16,56,16,56,56,56,56,56 *FX9,60 *FX10,10 :10 I%=120:245:  I%=1140:248,245,247,246: I%=120:247: 28,1,28,18,1 17,137,12 ,129:::7:BIG(1,1,"THE MICRO USER"):' 128:3:I%=118:249: &31,0,23:128:I%=118:249::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:128:5: tBIG(4,4,"COLLECT"):'" ~~~~~~~":BIG(6,8,"THE"):'" ~~~":BIG(5,12,"TREES"):'" ~~~~~":A=(1500)  X%(3),Y%(3):SCORE=0 # 23,225,0,0,255,72,72,72,254,0 & 23,226,24,24,126,153,24,24,60,66 ( 23,227,24,24,60,60,126,126,255,255 , 23,228,255,255,255,255,255,255,255,255 & 6:''7);"- Collect the trees -" & '" Last score = ";SCORE . '"You have had a message from Santa to " . "collect as many Christmas trees as you" !) "can for Christmas because all his" "# "gnomes have gone on strike." #+ "But beware, some of his gnomes have" $* "cast a magic spell on the sledges." %, "You have to guide yourself up to the" &+ "top of the screen where you will be" ' "given a Christmas tree." (, "Then you must go down to the base of" )' "the screen to deliver the tree." * '14)"GOOD LUCK !" +- '"CONTROLS Z - LEFT X - RIGHT" , 15)" : - UP / - DOWN" -( '" PRESS ANY KEY TO START GAME" . *FX15 / A$= 07 SCORE=0:2:23;8202;0;0;0;:X%=10:Y%=29:FLAG%=0:I=1 1Q 3:L%=019:31,L%,1,228,31,L%,30,228::L%=130:31,0,L%,228,31,19,L%,228: 2' L%=130:31,(17)+1,(27)+2,228: 3: L=13:X%(L)=(5)+7:Y%(L)=L*2*4:31,X%(L),Y%(L),225: 4 Score:17,5,31,X%,Y%,226 5 (-98)T%=-1:U%=0:Tz@ 6 (-67)T%=1:U%=0:Tz@ 7 (-73)T%=0:U%=-1:Tz@ 8 (-105)T%=0:U%=1:Tz@ 9 D@@ : CHECK(X%+T%,Y%+U%) ; RES=1D@@ z Y%=2 FLAG%=0 L%=115:17,2,31,X%,Y%,227:Q%=1100::17,5,31,X%,Y%,226:1,-15,L%+50,1:2,-15,L%+60,1::FLAG%=1 ? Y%=29 FLAG%=1 L%=115:17,2,31,X%,Y%,227,17,5,31,X%,Y%,226:1,-15,L%+200,1:2,-15,L%+100,1::FLAG%=0:SCORE=SCORE+100:Score @ M%=(3) A' (2)=1 I DE@,DH@,DJ@,DM@ B Y%=Y%(M%) DE@ C X%=X%(M%) DJ@ D (2)=1 DJ@ E X%(M%) L%=130:Գ(4),0-L%15,(100)+100,1::L%=110000::T]@ P Score Q& 17,6,31,4,0:"Score = ";SCORE;: R CHECK(X,Y) S. ?(&3000+(32*X)+(&280*Y))=0RES=0 RES=1 T U BASH V L%=13 W1 X%=X%(L%) Y%=Y%(L%) RES=1:L%=5 RES=0 X Y Z CR [ 31,X%(M%),Y%(M%),32: \ CS ] 17,3,31,X%(M%),Y%(M%),225 ^ _ `-BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) a-START:31,J%+X,Y,230,31,J%+X,Y+1,231::  (c) MICRO USER 1983 23,240,1,0,0,0,1,1,60,114,23,241,72,200,80,112,208,240,115,4,23,242,0,0,15,17,33,194,4,2,23,243,0,0,128,0,0,0,0,0,23,244,241,112,62,3,0,0,0,0,23,245,248,0,31,255,63,15,7,3,23,246,2,4,248,192,192,128,192,248 23,224,64,172,84,16,16,255,16,16,23,225,0,0,0,239,239,0,239,239,23,226,0,3,30,126,31,0,0,0,23,227,126,255,66,66,255,255,90,0,23,228,0,192,120,126,248,0,0,0,23,229,0,0,1,3,6,14,25,54,23,230,112,224,128,196,238,52,8,168 (23,231,35,3,3,3,3,15,123,195,23,232,88,160,0,0,0,192,60,6,23,233,42,19,10,12,62,246,255,15,23,234,128,0,0,0,0,0,0,252,23,235,7,7,7,15,19,34,4,8,23,236,255,255,254,54,27,9,18,36,23,237,0,56,37,61,37,37,56,0 2A23,238,0,198,41,41,41,41,198,0,23,239,0,68,124,84,84,68,68,0 <23,247,60,60,60,24,126,189,189,60,23,248,0,119,68,70,84,119,0,0,23,249,0,119,37,37,37,39,0,0,23,250,0,119,68,102,68,68,0,0 FCHO%(4):HI%(4,1):HI$(4):N%=04:HI$(N%)="BBC":HI%(N%,1)=100: P tNC ZINSTRUCTIONS du1,1,-1,-1,-1,100,100,100,0,0,0,-1,V1%,0:2,1,0,0,0,10,10,10,-1,-1,-1,-1,V1%,0:3,1,0,0,0,1,1,1,-1,-1,-1,-3,V1%,0 n1:5,23;8202;0;0;0; x?SC%=0:DEL%=0:TP%=0:CO%=:BAPRES%=20:MILOC%=0:PLRG%=10:MH%=2 INIT EN%=03:19,N%,0,0,0,0::SCREEN:TP%>0TP%=TP%-1:DEL%=DEL%-1:DEL MIA%MI SMO:MIA%MI TM:MI:PR%PRMO DELAY(3) &CO%TRBQ%=0df@PRES%=0TXA *LIG%<>0LIG%=LIG%-1:LIG%=0WINDOW(-1) (-74)T=:=T+30:(-74) tV@ &PLSET:MIA%=0:RP%=1200:RP2%=500: A4::DEL%/TP%<0.6TDA6,10);"A successful delivery run !" l''5);"Bonus points 100 x ";PRDES%;" = ";100*PRDES%:SC%=SC%+100*PRDES%:BAPRES%=BAPRES%-1-1*(BAPRES%=14) #TUNE(1):DELAY(200)::5:tB@ `7,10);"Hard luck chum - you waste"''7);"almost as many presents as"''13);"you deliver !" TUNE(2):DELAY(100):TRB A4:8,10);"Idiot - you've run out of"''14);"presents":TNA "SMO:0,0:X%,Y%:226,227,228:X%=X%+16*((-98))-16*((-67))-16*(X%<0)+16*(X%>994):Y%=Y%-16*((-73))+16*((-105))+16*(Y%>800)-16*(Y%<400):X%,Y%:0,2:226,227,228:(-99)PR%=0PRDR , 67PRDR:PR%=-1:PRX%=X%+36:PRY%=Y%-32:&11,1,255,25: @PRMO:PRX%,PRY%:18,0,0,224,8,225:PRY%=PRY%-16:PRX%,PRY%:18,0,1,224,8,18,0,3,225:PO%=PRX%,PRY%-36):PO2%=PRX%+32,PRY%-36):PO%<>0PO2%<>0DJA JPRX%,PRY%:18,0,0,224,8,225:PR%=0:PREZ:PRY%>300DEL%=DEL%-1:DEL: PO%=1PO2%=1HO%((PRX%/210))<4HO%((PRX%/210))<>03,2,100,1:DEL:SCORE(100):PRNO(PRX%): T$WINDOW(PRX%):DEL%=DEL%-1:DEL: ^INIT:MH%=MH%+1:LIG%=0:LIG2%=0:MIA%=-1:PRES%=BAPRES%:X%=0:Y%=424:PR%=0:YS%=10:XS%=30:MISET:PRDES%=0:N%=04:HO%(N%)=(3):PRDES%=PRDES%+HO%(N%)::Q%=PRDES%:MILOC%=MILOC%-1-10*(MILOC%=-1):PLRG%=PLRG%-1-1*(PLRG%=5) hMILOC%=0MILOC%=1 r |yMISET:MIA%=-1:MI%=1170+XS%:MI2%=254+YS%:MI3%=1170:MI4%=254:MIS%=XS%:MIS2%=YS%:MILOC2%=(MILOC%):MILOC2%=1MI4%=MI2%  DELAY(X):=0:=X: HOUSE(X,Y):X,Y:0,2:X,Y+100:85,X+200,Y:85,X+200,Y+100:0,3:X+100,Y+150:85,X,Y+100:CH=(2)-2:CH=-25*(CH)-125*(CH=0):1,1:X+CH,Y+100:X+CH,Y+150:85,X+CH+50,Y+100:85,X+CH+50,Y+150 VX+50,Y+50:0,0:X+50,Y+82:85,X+82,Y+50:85,X+82,Y+82:0,0:X,Y+32:;HO%(X/210): )SCREEN:N%=0840210:HOUSE(N%,0): `0,1:N%=2002084:1120,N%:1280,N%::1152,264:229,230,233,234,10,8,8,8,8,231,232,235,236 •TM:1:4:"Presents : ";PRES%:'"Score : ";SC%:17,1);"%age delivered : 100":0,896:1280,896:512,1008:512,944:1248,944:1248,1008:512,1008 /5,19,1,7,0,0,0,19,3,1,0,0,0,19,2,6,0,0,0: aTM:MIA% 1170,254:0,0:1,XS%,YS%:YS%=(10)+3:XS%=-(40-YS%):0,1:1170,254:1,XS%,YS%: $MI:MIA%DbBMILOC2%=1dZB Y0,0:MI%,MI2%:MI3%,MI4%:MI%=MI%+MIS%:MI3%=MI3%+MIS%:MI2%=MI2%+MIS2%:MI4%=MI4%+MIS2% MI%,MI2%:0,1:PMX%=MI%-4,MI2%+4):PMX%=0MI3%,MI4%: PMX%=-1(PLRG%)=1PLSET: PMX%=-10,3,6,1:MISET: PMX%<>2DXB 0,0:X%,Y%:226,227,228:M%=05:&10,2,4,1:N%=13:0,N%:X%+N%*4,Y%+N%*4:237,238,239:0,0:X%+N%*4,Y%+N%*4:237,238,239:: h4:10,10);"Failure !! The end of"''10);"Christmas as we know it":CO%=:TUNE(2):DELAY(100):21: -6,22,7,23;8202;0;0;0;:SC%>HI%(4,0)TzB :N%=01:129,157,135,141:10,N%);"** ** Top 5 ** **"::'8);"Name Score %age":N%=04:8,N%*2+5);N%+1;")";HI$(N%);18,N%*2+5);HI%(N%,0);25,N%*2+5);HI%(N%,1): &'''''" Press to play again"''" or to see instructions":0,5);((7)+128):(-99):V%<>0TUNE(0) 0 Dn@ :xN%=-1:N%=N%+1:SC%>HI%(N%,0):N%=4DDBM%=3N%-1:HI$(M%+1)=HI$(M%):HI%(M%+1,0)=HI%(M%,0):HI%(M%+1,1)=HI%(M%,1): DtM%=01:6,10+M%);:129,157,134,141:"You are in the top 5 ";156::''"Please enter your name : - ";:*FX15,0 NM31,32:A$:HI$(N%)=A$,7):HI%(N%,0)=SC%:HI%(N%,1)=((DEL%/TP%)*100):T\B XFPRX%,PRY%:18,0,0,224,8,225:PR%=0:MISET:PREZ:DEL%=DEL%-1:DEL: b0,0:RP%,RP2%:240,241,242,243,10,8,8,8,8,244,245,246:RP%=RP%-32:RP2%=RP2%+(9)-5+4*(RP2%>Y%)-4*(RP2%RP2%-32X%Y%):MI2%=MI2%-MH%*(MI2%Y%):dtA INSTRUCTIONS 22,7,23;8202;0;0;0;:N%=01:129,157,135,141:10,N%);"Santa's Saucer"::''" With the modern day population,Santa ishard pressed to deliver to the chimneys" z"of the world,so he has dispensed with the traditional reindeer,and hired a saucer to help with his deliveries." " The international reindeer union has formed a action group to prevent Santa doing his rounds.Some of them with homicidal tendencies have taken to shooting at Santa with an AA gun,and he"  D"needs help to pilot the ship while he makes up the parcels." g'"Move the ship using :"'20);"Z X"'21);"/ to dropa present , and to freeze."  9''"** ** Press SPACE BAR to continue ** **":(-99) *J:"Input sound level 1=loud"'18);"2=medium"'18);"3=off : ";:*FX15,0 4!A=:A>48A<52A:A=A-48TtC >3A=1V%=-15:V1%=126A=2V%=-10:V1%=80V%=0:V1%=0 HJ''"** ** Press SPACE BAR to start ** **":(-99):V%<>0TUNE(0): R/TUNE(I%):I%=0DzCI%=1DpCI%=2tDC \2L%:N%=1L%:A%,B%:A%=01,0,0,B%1,V%,A%,B% f:=0:=100: p&5,149,6,157,6,165,6,169,12,149,24 zb17,145,4,0,2,145,4,0,2,145,8,0,2,145,4,0,2,145,4,0,2,145,8,0,2,145,6,157,6,129,8,137,3,145,16 *7,53,8,37,8,25,8,65,8,57,4,53,4,57,16 "=17DP@7::" at line ";  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 0TBIG(4,5,"SLEIGH"):'" ~~~~~~":BIG(4,10,"LANDER"):'" ~~~~~~":A=(1500) 1928,1,28,18,1::5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 2'" It is Christmas"''"Eve. Santa has to"''"deliver presents"''"with his sleigh."'''" You are to help"''"him by landing it"''"safely onto the"''"roofs of six"''"houses."'''" PRESS ANY KEY":A= 3:''" Be sure to avoid"'"the chimneys and"''"aerials, and land"''"softly."'''" You have to land"'"with the sleigh"''"and reindeer both"''"resting entirely"''"on the roof." 4 ''" PRESS ANY KEY":A= 5+:5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 6M''" Press":''" > to move right":'" < to move left":'" Z to slow down" 7'''" PRESS ANY KEY":A= d* 6:chardef:P(6),H(6):I=16:P(I): nI=16:H(I)=0: x"K=1:X=880:Y=992:XS=-4:YS=0:=0 FLAG=0:P=P(K):2:ROOF:Draw #Run:FLAG tV@,tj@,tt@,tj@ ! X<500K=K+1:X=880K=K-1:X=4 6K=0K=7 6:"You have lost your way!":d\@tB@ e0,-15,6,10:I=120:19,0,1;0;19,5,3;0;:X=(9):20:X=(9)::6:FLAG=4dR@"You crashed!":d\@ H(K)=1FLAG=6H(K)=1 T=0:J=16:T=T+H(J): eT=66:15,4)"Well done."5,8)"You took "; 6000" minutes ";( 100)60" seconds.":d\@df@ "Your speed was too fast!" @5,12)"PRESS SPACE FOR ANOTHER GAME"::X=(-99):X=-1:Dn@ BT=:L=12:200,80:FLAG=6"ALREADY VISITED"" GOOD LANDING" :>T+200: +XS=0:YS=8::M=(-98):M=-1:FLAG=0:tL@  chardef %23,224,16,16,24,24,60,60,126,126 23,225,0,0,0,0,12,12,14,14 "23,226,0,0,0,0,0,0,24,24 ,"23,227,6,6,6,6,14,142,206,238 6 23,228,28,28,12,12,14,0,0,0 @23,229,239,143,7,7,7,7,3,3 J+23,230,255,255,254,254,254,254,254,254 T" 23,231,3,7,7,12,12,252,24,24 ^$23,232,127,63,31,31,63,63,63,63 h#23,233,0,0,0,0,142,143,142,142 r23,234,0,0,3,3,15,15,15,15 |%23,235,240,240,8,24,80,40,152,80 +23,236,240,240,208,192,232,246,230,238 23,237,1,1,3,3,5,5,9,9 23,238,2,2,6,6,10,10,18,18 "23,239,40,144,85,34,34,20,8,8 23,240,24,24,8,12,12,7,7,3 #23,241,127,127,127,127,0,0,0,0 !23,242,0,0,0,0,0,255,255,255 )23,243,192,192,192,192,0,255,255,255 &23,244,31,31,31,31,31,255,255,255 &23,245,84,84,42,42,84,255,255,255 &23,246,42,42,84,84,42,255,255,255 !23,247,0,21,21,14,4,14,21,21 %23,248,10,42,170,255,170,42,10,0 !23,249,3,7,14,14,30,28,28,28 !23,250,28,28,28,30,14,14,7,3  M% 102 & I=022 0 P%=M% : [OPTI DG .Plot LDX#89:.Loop LDA Data-1,X:JSR&FFEE:DEX:BNELoop:RTS:.Data:]: NI=Data+88 Data -1:?I: X b Draw lK?(Data+85)=X 256:?(Data+84)=X 256:?(Data+83)=Y 256:?(Data+82)=Y 256 vU?(Data+60)=(X+192)256:?(Data+59)=(X+192)256:?(Data+58)=Y 256:?(Data+57)=Y 256 U?(Data+35)=(X+192)256:?(Data+34)=(X+192)256:?(Data+33)=Y 256:?(Data+32)=Y 256  Plot  J5,25,4,0,0,0,0,18,3,6,239,18,3,3,8,10,224,8,10,229,230,8,8,10,237,238 K25,4,0,0,0,0,18,3,1,225,8,10,227,8,10,232,233,235,8,8,8,10,241,243,245 D25,4,0,0,0,0,18,3,6,226,8,10,228,18,3,5,8,8,10,231,8,10,240,242 D18,3,2,11,234,236,18,3,4,8,8,10,244,246,340,900,500,700,656,552  TEST Y1>=428T`C 5Y1<372ddBX1>(P+105)X1<(P-319)T`CFLAG=2: 5Y1<332dnBX1>(P+137)X1<(P-319)T`CFLAG=2: (X1>(P+137)X1<(P-383)dxBFLAG=2: 5(Y1>267Y1<276)(X1>267X1<717)YS>-10FLAG=3: Y1<276FLAG=4T`C  X1<268X1>716FLAG=2   X1<1X1>896FLAG=1 *Y1>1023Y1=1023 4 > Run H R(-98)YS=YS+4YS=YS-2 \(-103)XS=XS-4 f(-104)XS=XS+4 pX1=X+XS:Y1=Y+YS:TEST zDraw:X=X1:Y=Y1:Draw  FLAG   ROOF V5,18,0,5,25,4,100;0;25,4,300;140;25,85,1000;0;25,85,1100;140;18,0,1,25,85,1200;0; f18,0,1,25,4,P;100;25,4,P;200;25,85,P+80;100;25,85,P+50;220;25,85,P+130;220;18,1,1,25,85,P+130;20; k18,0,0,25,4,P;200;25,5,P+80;200;25,5,P+80;100;25,4,P+80;200;25,5,P+130;220;18,0,7,25,5,P+130;300;8,248 5I=120:XX=(1200):YY=(780)+240:25,4,XX;YY;46: 025,4,300;800;249,8,10,250,25,4,P+8;180;K+48   -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` *23,224,&8,&1C,&1C,&89,&FF,&BD,&BD,&A5 +23,225,&40,&E0,&E0,&81,&FE,&E4,&E8,&90 '23,226,&2,&7,&7,&82,&7F,&27,&17,&9 %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !23,248,0,4,20,85,255,85,20,4 #23,249,16,56,16,56,56,56,56,56 *FX9,60  *FX10,10 :10:BST=0 I%=120:245:  I%=1140:248,245,247,246: I%=120:247: 28,1,28,18,1 17,137,12 ,129:::7:BIG(1,1,"THE MICRO USER"):' 128:3:I%=118:249: &31,0,23:128:I%=118:249::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:141:0: 5BIG(3,8,"SKI SLOPE"):'" ~~~~~~~~~":A=(1500) 131:1::''" INSTRUCTIONS"'" ~~~~~~~~~~~~"''" Guide Santa down"''"the slope without"''"hitting the trees."'''" PRESS ANY KEY":A= 132:7::''" CONTROLS"'" ~~~~~~~~"''" Z....LEFT"''" X....RIGHT"''''" PRESS A NUMBER"''" FROM 0 TO 9"''" (0 IS HARDEST)" A=-48:A<0 A>9 T]@ 28,1,28,18,1:135: 28,1,28,18,1: #X1%=6:X2%=10+A/2:N=30*A:C=3:Y=0 !P=(X1%+X2%)/2:P,30) "rnd=(3)-2 #X1%=X1%+rnd:X2%=X2%+rnd $3X1%=0X1%=2:X2%=X2%+2X2%=17X2%=15:X1%=X1%-2 % Z=1N: & Y=Y+1 ''2:X1%,26);(245)(X2%-X1%)(245) (1:P,27);:(223+C): )*(-98)P=P-1:C=3(-67)P=P+1:C=2C=1 *PX2% Tl@ + Tb@ ,r0::'''''" YOU TRAVELLED"''" ";Y" METRES":Y>BST '" THIS IS THE BEST SO FAR"''" PRESS SPACE":BST=Y -A=:A<>32Tm@ TS@ .-BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) /-START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 0UBIG(5,6,"SANTA"):'" ~~~~~":BIG(4,10,"SKITTLE"):'" ~~~~~~~":A=(1500) 1-::5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 PU " Press the space"''" bar and try to"''" knock down the"''" Santa Skittles." i: ''"ENTER SPEED (0-9)"''" 0=FAST"'" 9=SLOW" j4 get=:get<48 get>57 Dj@ delay=(get-48)*50 n& 23,240,0,60,126,255,255,126,60,0 x$23,241,24,60,24,255,60,60,36,66  2 5:0,1 draw_santa 0,7 table%=0:tries=0  Y%=100:I%=0:S%=64   I%<>1 &7F 25,4,(S%*I%);Y%;240 I%=(I%+1) 20  DELAY " (-99) ,J%=0 6 @&7F,11,240 J J%=J%+1 T J%=28 ^ &7F,11 htries=tries+1 r I%>7 I%<13 table | table%=31 6 Btries<10''''"Well done you only took ";: ''''"You took "; (tries)" goes ! " %'"Press return for another game" A=:A<>13tdA 2  draw_santa !25,4,448;900;241,9,241,9,241 25,4,512;850;241,9,241 25,4,576;800;241,9   table Z%=2^(I%-8) table%=table% Z%   DELAY  D%=1 delay: &  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 0UBIG(5,6,"SANTA"):'" ~~~~~":BIG(4,10,"SKITTLE"):'" ~~~~~~~":A=(1500) 1-::5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 PU " Press the space"''" bar and try to"''" knock down the"''" Santa Skittles." i: ''"ENTER SPEED (0-9)"''" 0=FAST"'" 9=SLOW" j4 get=:get<48 get>57 Dj@ delay=(get-48)*50 n& 23,240,0,60,126,255,255,126,60,0 x$23,241,24,60,24,255,60,60,36,66  2 5:0,1 draw_santa 0,7 table%=0:tries=0  Y%=100:I%=0:S%=64   I%<>1 &7F 25,4,(S%*I%);Y%;240 I%=(I%+1) 20  DELAY " (-99) ,J%=0 6 @&7F,11,240 J J%=J%+1 T J%=28 ^ &7F,11 htries=tries+1 r I%>7 I%<13 table | table%=31 6 Btries<10''''"Well done you only took ";: ''''"You took "; (tries)" goes ! " %'"Press return for another game" A=:A<>13tdA 2  draw_santa !25,4,448;900;241,9,241,9,241 25,4,512;850;241,9,241 25,4,576;800;241,9   table Z%=2^(I%-8) table%=table% Z%   DELAY  D%=1 delay: &  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 04BIG(4,8,"SNOW PUD"):'" ~~~~~~~~":A=(1500) 1+:5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 d SNOWFROG n x1 instruct 23,0,8202;0;0;0; L%=3:S%=0   &0,0)L%,(224))16,0)"Score:";S% init  ' A%+16,B%-8)=1 &11,2,130,80:F%=1 snow ' A%+16,B%-8)=1 &11,2,130,80:F%=1 pud ) A%+16,B%-8)=1 &11,2,130,80:F%=1  (-66) M%=32  (-98) M%=-32  (-104) A%=A%+32 " (-103) A%=A%-32 , B%=B%+M% 6 B%>959B%=959 B%<31B%=31 @ A%<0A%=0 A%>1248 A%=1248 J$ B%=959 G%=0G%=1: &11,1,20,80 T7 B%=31 G%=1G%=0:&11,1,40,80:S%=S%+20:22,0);S% ^F% h L%=L%-1 r L%=0 |0  pud .5:C%,D%:224: A%,B%:224:C%=A%:D%=B%:4   snow X%=X%-1:Z%=Z%+1:X%<0X%=39 Z%>39Z%=0 HZ% 39,10)A$(Z%+10) 39,10)A$(Z%+20) 39,10)A$(Z%+30) 39,10)A$ HX% 39,15)B$(X%+10) 39,15)B$(X%+20) 39,15)B$(X%+30) 39,15)B$ HZ% 39,20)A$(Z%+10) 39,20)A$(Z%+20) 39,20)A$(Z%+30) 39,20)A$ HX% 39,25)B$(X%+10) 39,25)B$(X%+20) 39,25)B$(X%+30) 39,25)B$   init /1,0,20,-20,20,200,200,200,126,-1,0,0,126,0 12,128,90,-90,90,255,255,255,126,-1,0,0,126,0 "X%=39:Z%=1:G%=0:F%=0:M%=0:3,2 A$=" ****":B$="**** " &A%=640:B%=31:C%=-32:D%=-32 0&23,224,24,60,90,153,255,102,36,24 : Dinstruct N'15,0)"SNOW PUD"14,1)"~~~~~~~~~~" X''"Guide the Christmas pudding through"''"the blizzard and back again."''"Make sure the snowflakes don't catch "''"you."''"Points are scored by getting across"''"the blizzard and back again." bP15,18)"A = UP"15,20)"Z = DOWN"15,22)"< = LEFT"15,24)"> = RIGHT" g *FX15,1 l(10,30)"PRESS SPACE TO PLAY":32= v  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  SNOW'VADERS  MARTIN HOLLIS  (c) Copyright ( MICRO USER 2FLSH%=-1:JNGLE%=-1 <MACHCODE 500:ass:4 F23;8202;0;0;0;:snva P *SANTA Z)1,130,-3,0,6,84,10,72,0,0,0,-5,126,0 d&2,132,0,0,0,0,0,20,0,0,0,-4,126,0 n23,224,0,0,3,7,15,5,4,10 x'23,225,62,255,253,250,248,80,16,40 $23,226,29,45,94,174,175,79,7,15 +23,227,222,217,189,185,126,248,112,120 *SNOWMAN 23,228,7,15,9,13,15,12,7,30 *23,229,224,240,144,176,240,48,224,120 (23,230,62,127,126,126,127,126,62,31 +23,231,124,254,126,126,254,126,124,248 *REINDEER'S LEGS 23,236,31,63,95,139,4,2,2,2 #23,237,252,248,248,208,8,4,4,4 23,238,31,63,95,139,4,2,4,8 $23,239,252,248,248,208,8,4,8,16 "23,240,31,63,95,139,8,8,16,32 '23,241,252,248,248,208,16,16,32,64  *BULLETS '23,242,0,62,127,127,127,127,127,62 "!23,243,0,24,24,24,24,24,24,0 , *IGLOO 623,244,0,0,1,0,14,30,30,0 @$23,245,1,55,247,0,254,254,254,0 J'23,246,247,247,247,0,254,254,254,0 T'23,247,128,244,247,0,254,254,254,0 ^#23,248,0,0,128,0,240,248,248,0 h%23,249,55,55,119,0,126,126,254,0 r'23,250,244,244,246,0,254,254,255,0 |(23,251,246,245,243,7,247,239,239,15 '23,252,126,255,255,255,195,129,0,0 +23,253,119,183,215,224,239,247,247,240 '23,254,247,247,247,0,127,127,127,0 :instr:5 3V$(7),S$(7),C%(6),H%(1),REIN$(2),HI%(5),HI$(5) :A%=06:C%(A%): ,SA$=17+1+224+225+10+8+8+226+227 *TS$=17+3+4,228+229+32)+228+229 *BS$=17+3+4,230+231+32)+230+231 *TV$=17+2+4,232+233+32)+232+233 *BV$=17+2+4,234+235+32)+234+235 S$=4,32+32+9)+32+32 !SP$=32+32+8+8+10+32+32 REINH$=255+32+32+255 $REIN$(0)=236+237+32+236+237 $REIN$(1)=238+239+32+238+239 &$REIN$(2)=240+241+32+240+241 0:23;8202;0;0;0; :5!&80=0:DEAD%=0:LEVEL%=0:OHIT%=0:SCORE%=0:LIVES%=3 D!::DEAD%=-1 LIVES%=LIVES%-1 NA%=07:S$(A%)=S$: Xvdu(LEVEL%) bAA%=044:V$(A%)=TV$:V$(A%+1)=BV$:V$(A%+2)=TS$:V$(A%+3)=BS$: lLDOWN%=-1:LEFT%=20:X%=9 vLIVES%<0 dnB :igloo:X%,27);SA$ L%=0:M%=3:DIR%=1:SH%=4:WI%=14:DE%=10:DEP%=7:RX%=-1:RT%=0:RP%=LEVEL%*10+20+(20):DEAD%=0 OHIT%=OHIT%+(LEVEL%+1)2:OHIT%>3 OHIT%=OHIT%-3 !HIT%=OHIT%:DEAD%=0:v:d~K: RP%=RP%-1:RP%=0 RX%=0 RX%>-1 reindeer mb:mb:moveman IDOWN%=0:LDOWN%=0R NDIR%=-1:DOWN%=-1 LDOWN%=0L DOWN%=-1:NDIR%=1 R%=R:mb:b:mb:moveman 9DOWN% DIR%=NDIR%:LEVEL%>5R%=-1 M%=M%+1 L%=L%+DIR% $v:LDOWN%=DOWN%:mb:mb:moveman LEFT%=0DEAD%LIVES%<0 !&80=0:DEAD% splat DEAD%=0 LEVEL%=LEVEL%+1 LEVEL%=12LIVES%<0  LEVEL%=12LIVES%>0 :1:(5);"Well Done":3:''(6)"You have"''(4);"successfully"''(5);"beaten all"''(3);"the snowvaders"''':1:(2);"Now try again !!":LEVEL%=0:A=010000: &LIVES%<0:4:highscore:spc:5:0  vdu(N%) *TS%=232:N%<6 19,2,C%(N%);0;:N%+1 DzC,tvC,drC,TnD,DjD,tfD:S%=228:DzC: 4-N%-4 DzC,tvC,drC,TnD,DjD,tfD,dbD >4S%=228:N%-4 DzC,tvC,drC,TnD,DjD,tfD,dbD H19,2,C%(N%-5);0; R*TS$=17+2+4,228+229+32)+228+229 \*BS$=17+2+4,230+231+32)+230+231 f p *SNOWMAN z23,S%,7,15,9,13,15,12,7,30 +23,S%+1,224,240,144,176,240,48,224,120 )23,S%+2,62,127,126,126,127,126,62,31 ,23,S%+3,124,254,126,126,254,126,124,248   *TREE 23,S%,1,3,7,3,7,15,7,15 *23,S%+1,0,128,192,128,192,224,192,224 $23,S%+2,25,13,31,60,24,63,127,3 )23,S%+3,48,96,240,120,48,248,252,128   *TEDDY "23,S%,24,39,41,27,30,12,7,111 )23,S%+1,48,200,40,176,240,96,192,236 &23,S%+2,127,127,63,15,15,31,60,56 +23,S%+3,252,252,248,224,224,240,120,56  $ *ROBOT . 23,S%,32,23,12,5,7,2,15,122 8+23,S%+1,130,244,152,208,240,32,248,175 B(23,S%+2,127,106,111,74,31,40,48,120 L(23,S%+3,255,171,251,169,252,10,6,15 V `*STOCKING j23,S%,0,0,0,0,0,0,0,0 t)23,S%+1,124,108,84,108,84,108,84,108 ~"23,S%+2,0,0,1,62,85,106,85,63 (23,S%+3,84,172,84,172,84,172,84,248   *ESKIMO !23,S%,7,15,16,18,8,28,99,160 )23,S%+1,192,224,16,144,32,112,140,10 &23,S%+2,160,160,96,19,14,26,34,30 )23,S%+3,10,10,12,144,224,176,136,240   *SANTA 23,S%,0,0,3,7,15,5,4,10 (23,S%+1,62,255,253,248,248,80,16,40 &23,S%+2,29,61,126,238,239,79,7,14 +23,S%+3,222,217,189,185,126,248,112,56   7,2,3,4,5,6,1 "ݤR:?&71=0:RI:?&70=1 =-1 =0 ("ݤL:?&71=0:LE:?&70=1 =-1 =0 2FݤCHR(Q,R):31,Q,R:A%=135:Z%=(&FFF4):Z%=Z% &FFFF:Z%=Z% &100:=Z% < igloo F'23,255,28,62,255,255,255,255,255,0 P LAND Z3 d 3,23); n>244,245,246,247,248,32,32,32,32,244,245,246,247,248,13,10 xG32,32,32,249,246,246,246,250,32,32,32,32,249,246,246,246,250,13,10 A32,32,32,246,251,252,253,254,32,32,32,32,246,251,252,253,254 t0,29);20,255);32;"LEVEL";32;17;1;LEVEL%+1;17;3'32;"SCORE";32;17;1;SCORE%;13,30);LIVES%,SA$+11); !23,255,0,0,5,34,100,20,15,15  moveman:(-99) mfire  music 'MX%=0:(-98) MX%=-1 (-67) MX%=1 5MX%<>0X%+MX%>0X%+MX%<19 X%,27);SP$:X%=X%+MX% X%,27);SA$ (-82)*FX210,0 (-17)*FX210,1 ((-102) JNGLE%=-1 (-86) JNGLE%=0 %(-68) FLSH%=-1 (-84) FLSH%=0  mb: mb H%(1)=0 "1:CH%=CHR(H%(0),H%(1)-1) ,CH%<>32 D^F 6'H%(0),H%(1)-1);243:H%(1)=H%(1)-1 @H%(0),H%(1)+1);32 JH%(1)=0 H%(0),H%(1));" " T ^]H%(0),H%(1));" ":CH%>131CH%<140CH%>147CH%<159CH%>139CH%<146 H%(1)=0:&11,0,0,0: hWCH%>147CH%<159 H%(1)=H%(1)-1:H%(0),H%(1));" ":H%(1)=0:&11,0,0,0:&10,-15,4,3: rnCH%>139CH%<146 scoreup(80*SCTI):&10,2,6,10:H%(1)=0:RX%=-1:RT%=0:RP%=LEVEL%*10+20+(20):0,0);(40): |EHIT%=HIT%-1:HIT%>0 H%(1)=0:&12,2,4,10:&11,0,0,0: HIT%=OHIT% yAR%=H%(1)-M%:AR%=AR%3*2+AR%3-1:CR%=H%(0)-L%+2:CR%=CR%2*2:AR%=AR%2*2:CH1$=V$(AR%),CR%+1,1):CH2$=V$(AR%),CR%+2,1) BCH1$=229CH1$=233 CR%=CR%-1 CH2$=228CH2$=232 CR%=CR%+1 1V$(AR%)=V$(AR%),CR%)+32+32+V$(AR%),CR%+3) 7V$(AR%+1)=V$(AR%+1),CR%)+32+32+V$(AR%+1),CR%+3)  CR%=CR%-2 /S$(AR%)=S$(AR%),CR%)+9+9+S$(AR%),CR%+3) 5S$(AR%+1)=S$(AR%+1),CR%)+9+9+S$(AR%+1),CR%+3) 7LEFT%=LEFT%-1:&10,2,6,10:&11,0,0,0:FLSH%=0 d`F 3A=010:19,0,1,0,0,0:B=010::19,0,0,0,0,0:  scoreup(10*(4-AR%2)*SCTI) \H%(0)-1,H%(1)-2);32+32+32;H%(0)-1,H%(1)-1);32+32+32;H%(0)-1,H%(1));32+32+32  H%(1)=0:  mfire H%(1)>0 H%(1)=26:RX%=19 RX%=0 H%(0)=X%:&11,1,252,34: &v 0[L%=-1 L%=L%+1:LO%=07:V$(LO%)=V$(LO%),2)+V$(LO%),4):S$(LO%)=S$(LO%),2)::WI%=WI%-1 : LO%=07 D3V$(LO%),3)=ĩ(V$(LO%))-2,32) V$(LO%)="": N^V$(DEP%)="" V$(DEP%)=11:V$(DEP%-1)=11:S$(DEP%)=11:S$(DEP%-1)=11:DEP%=DEP%-2:DE%=DE%-3 XL%,M%);V$(0) bL%,M%+1);V$(1) lL%,M%+2);S$(1) vL%,M%+3);V$(2) L%,M%+4);V$(3) L%,M%+5);S$(3) mb L%,M%+6);V$(4) L%,M%+7);V$(5) L%,M%+8);S$(5) L%,M%+9);V$(6) L%,M%+10);V$(7);  movebs  b L%,M%);S$(0) L%,M%+1);S$(1) L%,M%+3);S$(2)  L%,M%+4);S$(3) mb  L%,M%+6);S$(4) *L%,M%+7);S$(5) 4L%,M%+9);S$(6) >L%,M%+10);S$(7); H movebs R \!movebs:?&81=0?&83=0 DzH f*MBLLTS:?&70=("D") DEAD%=-1 DEAD%=0 p z,B%=0::B%=B%+1:A%=(WI%):A%+L%<19B%>10 B%=10A%+L%>18L%<2 *B%=(2):?&81=0 Q%=&80 ?&83=0 Q%=&82 !?Q%=A%+L%:?(Q%+1)=M%+DE%+B%: scoreup(U%) &SCORE%=SCORE%+U%:7,31);SCORE%;: reindeer 4RPR%=(RT%-2):RT%=(RT%+1)4:1:RPR%=1 RX%=RX%+1 ?RX%=19 RX%=-1:RP%=20*LEVEL%+10+(20):RT%=0:0,0);(40);: CUT%=RX%-14:CUT%<1 drH XRX%+1,0);32;REINH$,(REINH$)-CUT%);RX%,1);32;REIN$(RPR%),(REIN$(RPR%))-CUT%)  3RX%+1,0);32;REINH$;RX%,1);32;REIN$(RPR%): music:play(0): play(S%) CLR:?&D00=0JNGLE%=0 +D$:D$="*"S%=0 d~K:TZI D$="*" $6D%=("&"+D$):S%=0 3,-10,D%256,D%256:3,0,0,0: .2,-15,D%256-96,D%256*2 83,-15,D%256-48,D%256*2 B2,0,0,0:3,0,0,0: L ݤSCTI VLEVEL%=10LEVEL%=11 T%=6 `LEVEL%<10 T%=5 jLEVEL%<8 T%=4 tLEVEL%<6 T%=3 ~LEVEL%<4 T%=2 LEVEL%<2 T%=1 =T% splat:*FX15 TRL:XS%=X%*64-8:0,3 PX%=XS%XS%+1288:D%=0 Y%=92+6492-4 4PX%,Y%)=1D%=0 69,PX%,Y%+4:69,PX%,Y%+8:D%=-1 play(1)::::play(1) "XP%=XS%+(16)*8:YP%=92+(16)*4 XP%,YP%)=1 69,XP%,YP% D$="*"JNGLE%=0: 'ass:A%=022:P%=MACHCODE:[OPT A% !.REACHR:LDA #31:JSR &FFEE:TXA $JSR &FFEE:TYA:JSR &FFEE:LDA #135 JSR &FFF4:TXA:RTS .SET:LDX #1:STX &70:RTS (.RI:LDA #0:STA &70:LDA &71 2#STA &72:LDA #27:ADC &71:STA &71 <".LOOP1:DEC &71:LDX #19:LDY &71 F.JSR REACHR:CMP #229-96:BEQ SET:CMP #233-96 P%BEQ SET:LDA &71:CMP &72:BNE LOOP1 ZRTS d.LE:LDA #0:STA &70:LDA &71 n#STA &72:LDA #27:ADC &71:STA &71 x!.LOOP2:DEC &71:LDX #0:LDY &71 .JSR REACHR:CMP #230-96:BEQ SET:CMP #234-96 %BEQ SET:LDA &71:CMP &72:BNE LOOP2 RTS $.MBLLTS:LDY #0:.LOOP3:LDA #&81,Y (BEQ RTN3:LDA #31:JSR &FFEE:LDA &80,Y #TAX:JSR &FFEE:LDA &81,Y:STY &71 #TAY:JSR &FFEE:LDA #32:JSR &FFEE #INY:JSR REACHR:LDY &71:CMP #148 'BCS MIGLOO:.RTN:CMP #128:BCS MSANTA #.RTN2:LDA &81,Y:CMP #28:BCS NDU CLC:ADC #1:STA &81,Y:LDA #31 +JSR &FFEE:LDA &80,Y:JSR &FFEE:LDA &81,Y &JSR &FFEE:LDA #17:JSR &FFEE:LDA #3 &JSR &FFEE:LDA #146:JSR &FFEE:.RTN3  INY:INY:CPY #4:BCC LOOP3:RTS $.MIGLOO:CMP #159:BCS RTN:LDA #31 "EJSR &FFEE:LDA &80,Y:JSR &FFEE:LDX &81,Y:INX:TXA:JSR &FFEE:LDA #32 ,&JSR &FFEE:JSR NDU:JMP RTN3:.MSANTA 6%CMP #132:BCS RTN2:LDA #68:STA &70 @ JSR NDU:JMP RTN3:.NDU:LDA #0 J!STA &81,Y:JMP RTN3:.CO:LDA #0 T#STA &73:LDA &70:STA &71:ADC #15 ^"STA &70:.LOOP4:LDX &71:LDY &72 h(JSR REACHR:CMP #134:BEQ ADD:CMP #138 r!BEQ ADD:.RTN4:INC &71:LDA &71 |CMP &70:BNE LOOP4:RTS .ADD:INC &73:JMP RTN4:.PCK #LDA &70:STA &71:ADC #10:STA &70 !LDA #0:STA &73:.LOOP5:LDX &71 (LDY &72:JSR REACHR:CMP #134:JSR ADDC #CMP #138:JSR ADDC:.RTN5:INC &71 !LDA &71:CMP &70:BNE LOOP4:RTS !.ADDC:INC &73:LDA &73:CMP &74 &BNE RTN5:LDA &71:LDX &75:STA &80,X (LDA &72:STA &81,X:INC &81,X:JMP RTN5 .CLR:SEI:LDA #128:LDX #248 JSR &FFF4:STX &D00:CLI:RTS ]:: 565,589,581,579,F65,265,265,565,589,581,579,146D,56D,58D,589,581,1475,595,595,58D,581,1489,565,589,581,579,1465,56D,58D,589,581,F6D,56D,56D,58D,589,581,595,595,595,595,595,595,58D,581,A79,A95,589,589,A89,589,589,A89,589,595,779 I281,1489,58D,58D,58D,58D,58D,589,589,289,289,589,581,581,589,A81,A95 l589,589,A89,589,589,A89,589,595,779,281,1489,58D,58D,78D,28D,58D,589,589,289,289,595,595,58D,581,1479,* !instr:DpM:E$:titles(E$) &t16,7);"KEYS"''(7);"Z";(9);"-";(9);"Left"''(7);"X";(9);"-";(9);"Right"''(7);"SPACE";(5);"-";(9);"Fire" 0q'''(7);"S";(9);"-";(9);"Sound on"''(7);"Q";(9);"-";(9);"Sound off"''(7);"F";(9);"-";(9);"Flash on"' :n(7);"G";(9);"-";(9);"Flash off"''(7);"M";(9);"-";(9);"Music on"''(7);"N";(9);"-";(9);"Music off" D spc: Ntitles(D$):A%=1D$ X$DB$=D$,A%,1):DB$="M" 242 32 b:5:0,1:144,988 l242,10,10,242,4: v,spc:9,30);"Press SPACE to continue"; d~K::music:(-99):*FX15 : snva '23,242,0,62,127,127,127,127,127,62 tDM::D$ A%=1D$:DB$=D$,A%,1) VDB$="7" 242,242,8,8,10,242,242,11 DB$>"@"DB$<"Z" ė(DB$)-64,9); DB$="@" :DB$="*" 12,27);"By Martin Hollis" spc: display::DpM E$:titles(E$): E$:titles(E$): .A%=15:''A%;")";32;HI%(A%),,HI$(A%):: highscore SCORE%<=HI%(5) display: B%=6::B%=B%-1 *!HI%(B%)>=SCORE%B%=0:B%=B%+1 47A%=5B%+1-1:HI%(A%)=HI%(A%-1):HI$(A%)=HI$(A%-1): >HI%(B%)=SCORE%:display H]0,28);"Please enter your name then press RETURN";20,11+B%*3);(90);19,11+B%*3);:*FX15 R"";HI$(B%) \(HI$(B%))>10 DHM f p"MMM,M,M,MMM,M,,,M,M,M,,M,,MM,,MM,MM,,MMMM,,,M,M,M,M,M,M,M,M,M,M,M,M,M,M,,M,M,M,,MMM,MMM,M,M,M,M,M,M,M,MMM,M,M,MM,MM,,MMM,,M,M,M,M,M,M,M,M,MMM,M,M,M,M,M,,M,M,,,MMMM,M,M,MMM,MMMMM,,M,,M,M,MM,,MM,M,M,MMM" z"M,M,M,MMM,M,M,,,,MMM,MMM,MMM,MM,,MMM,MMMM,M,M,M,,,M,M,,,,M,,,M,M,M,M,M,M,M,,,M,,MMM,M,M,M,MMM,MM,MMM,M,,,M,M,MM,,MM,,MMMM,M,M,M,M,M,M,,,,,,M,M,M,M,M,M,M,M,,,,,MM,M,M,MMM,M,M,,,,MMM,MMM,MMM,M,M,MMM,MMM" e@@F7M7@D7B7A7C7A7B7A7B7B7@@D7E77A7A7B7A7B7B7@F7@H7A7A77A7B7A7B7B7@@D7B7A7C7A7B7A7B7B7@F7M7E7B7@@ H@7B7C7C77D77A77E7@G7B7E7K7A7B77B7H7E7D7@G7B7E7K7A7@7B7C7C7E77B77E7@ 7G7B7E7R7A77I7E7D7A7@G7B7E7N7B7B7C7B7A77D77A7B7C7@*  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 08BIG(2,8,"TIC-TAC-TOE"):'" ~~~~~~~~~~~":A=(1500) d TIC-TAC-TOE n1 x23,0,8202;0;0;0; init 19,1,2;0;  :ins: set   board pieces D%=0  ? try("X") 3:"You win":W%=1: try("O")3:"I win":L%=1 player  pieces  N%=19  Z$(N%)="." D%=D%+1 " ," D%=0 3:0,18)"IT'S A DRAW" 6 computer @ pieces J D%=0 W% L% T'5,30)"PRESS SPACE FOR A NEW GAME" ^ 32= h0 r pieces | tpD N%=19: X%,Y%  Z$(N%)="." 7: X%,Y%);N% - Z$(N%)="O" 1:X%,Y%-1);:224,8,10,225 & Z$(N%)="X" 2:X%,Y%);:226,227    board X%=446 836128  X%,320: X%,702   Y%=318 Y%+386 128  446,Y%: 830,Y%    player  W% L% & 013:13,30)"SQUARE NUMBER ";:127,127,127 : X%=-48 D X%>0 X%<=9 N Z$(X%)<>"."7 XZ$(X%)="." bZ$(X%)="X" l vcomputer W% L% D%=0    X,Y,Z block=test(X,Y,Z,"X") win=test(X,Y,Z,"O")  X=0 win block  block x:  win x: Z$(5)="."Z$(5)="O":  :P%=(9)  tfD N%=1 P%: X%: Z$(X%)="." X%=0  Z$(X%)="O"   x *Z$(X)="." Z$(X)="O": 4Z$(Y)="." Z$(Y)="O": >Z$(Z)="." Z$(Z)="O": H set R'N%=19:Z$(N%)="."::D%=0:W%=0:L%=0 \ f ins p14,0)"TIC-TAC-TOE" z'''"This is a simple (and beatable) game of"''"Os and Xs. The computer plays with"''"Christmas trees and you play with"''"reindeer."'''"To play, enter the number of the square"''"you want."' J'"If you try a square that has been taken"''"the computer will beep." (10,29)"PRESS SPACE TO PLAY":32=   init  Z$(9) !23,224,8,28,8,62,8,127,8,255 "23,225,8,255,8,8,127,62,62,28 $23,226,0,0,128,127,31,40,68,130 &23,227,124,30,12,248,248,24,36,66 +23,228,255,255,255,255,255,255,255,255   ݤtry(l$)  t(1,2,3)=  t(4,5,6)=  t(7,8,9)=  t(1,4,7)= $ t(2,5,8)= . t(3,6,9)= 8 t(1,5,9)= B t(3,5,7)= L= Vݤt(x,y,z) `%=(Z$(x)=l$ Z$(y)=l$ Z$(z)=l$) j test(X,Y,Z,L$) t+ (Z$(X)="." Z$(Y)=L$ Z$(Z)=L$) = ~+ (Z$(X)=L$ Z$(Y)="." Z$(Z)=L$) = + (Z$(X)=L$ Z$(Y)=L$ Z$(Z)=".") = = ; 1,2,3,4,5,6,7,8,9,1,4,7,2,5,8,3,6,9,1,5,9,3,5,7,0,0,0  5,1,3,7,9,2,4,6,8 ; 15,12,19,12,23,12,15,16,19,16,23,16,15,20,19,20,23,20  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 0:BIG(2,8,"TURKEY SHOOT"):'" ~~~~~~~~~~~~":A=(1500) d TURKEY SHOOT n1 x :2:128:ins init move E%=30+(10):T%=500  E%=E%-1 + (-66) X%,Y%+4)<>-1 Y%=Y%+32:move - (-98) X%,Y%-36)<>-1 Y%=Y%-32:move 3 (-103) X%-32,Y%)<>-1 X%=X%-32:nc%=1:move 3 (-104) X%+64,Y%)<>-1 X%=X%+32:nc%=0:move  (-99) E%>-60shoot bird GA%=A%+24:A%>1280 B%<20A%=(8)*32:B%=0:T%=500:E%=(10)+30:H%=H%+1  B%=B%+E%  H%=5  4:13,6)"FINAL SCORE:";SC% "=0:>=40 , *FX15,1 644,8)" PRESS RETURN FOR ANOTHER GAME":5:13= @0 J0move:X%,Y%:226:V%,W%:226:V%=X%:W%=Y%: T8bird:A%,B%:224,225:C%,D%:224,225:C%=A%:D%=B%: ^ shoot h&11,2,30,100:T%=T%-5 r*0,0:X%+16,Y%-16:1280,0:X%+16,Y%-16 |EX%+20,Y%-8)<>0&13,3,150,100:&12,1,160,100:E%=-64:score:bird *0,0:X%+16,Y%-16:1280,0:X%+16,Y%-16   score #SC%=SC%+20+T%:4:23,2);SC%:5   ins 4:13,0)"TURKEY SHOOT" d'''"The Christmas turkeys have escaped. If"''"you want your dinner you'll have to"''"shoot it!" g15,12)"A = UP"15,14)"Z = DOWN"15,16)"< = LEFT"15,18)"> = RIGHT"11,20)"SPACE = FIRE" *10,29)"PRESS SPACE TO PLAY":32=:  init 3,2 (1,2,-1,0,0,200,0,0,127,-1,0,0,126,0 +2,1,-3,3,-3,10,10,10,127,-1,0,0,126,0 03,0,-50,50,-50,120,120,120,127,-1,0,0,126,0 23,226,8,8,8,127,8,8,8,0 &%23,224,8,12,30,63,115,99,225,195 0)23,225,16,48,120,252,206,198,135,131 :#V%=-64:W%=-64:X%=32:Y%=31:SC%=0 D"C%=-64:D%=-64:A%=32:B%=31:H%=0 N 4:1:17,2)"Score:";SC%:5 X  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh`  S$(14,2) %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0  23,247,28,8,127,8,62,8,28,8 !23,248,0,4,20,85,255,85,20,4 #23,249,16,56,16,56,56,56,56,56 *FX9,60 *FX10,10 :10 I%=120:245:  I%=1140:248,245,247,246: I%=120:247: 28,1,28,18,1 17,137,12 ,129:::7:BIG(1,1,"THE MICRO USER"):' 128:3:I%=118:249: &31,0,23:128:I%=118:249::129 '0:BIG(-1,25,"CHRISTMAS CRACKERS") 28,1,23,18,6:141:3: yBIG(3,4,"CHRISTMAS"):'" ~~~~~~~~~":BIG(5,8,"WORD"):'" ~~~~":BIG(4,12,"SEARCH"):'" ~~~~~~":A=(1500) 131:1::''" INSTRUCTIONS"'" ~~~~~~~~~~~~"''"Find the words"'"hidden among theletters."''"All the words havea connection with"'"Christmas."''''" PRESS ANY KEY";:A= :'" INSTRUCTIONS"'" ~~~~~~~~~~~~"''"There are 14 wordshidden."''"Press RETURN aftertyping each one."''"When you have"'"typed them all"'"press SPACE to "'"get the time you took."''" PRESS ANY KEY";:A= $:I%=114:J%=12:S$(I%,J%):, ;:130:0::':I=113:" ";:J=116:((26)+64);::: 6I%=114:X%=(S$(I%,2),2,2)):Y%=(S$(I%,2),2))+1 9S$(I%,2),1)="A"ACROSS(S$(I%,1)) DOWN(S$(I%,1))  !=0:CT%=0::CT%=CT%+1 "*28,1,22,18,22::9:"WORD?";:4:""W$ #(N%=0:I%=114:W$=S$(I%,1)N%=I%: $1N%=0:12:" NOT THERE";:A=(1000):Tb@ %+X%=(S$(N%,2),2,2)):Y%=(S$(N%,2),2)) &J7:28,1,22,18,7:S$(N%,2),1)="A"ACROSS(S$(N%,1)) DOWN(S$(N%,1)) 'S$(N%,1)="":CT%=14 (28,1,22,18,22::" WELL DONE";:A=(3000):28,1,22,18,7:134:1::4,4)"WELL DONE"'''"YOU TOOK ";/100''" SECS"'''" PRESS SPACE":A=:TX@ )cREINDEER,D0805,SANTA,D0901,CHRISTMAS,A0202,SLEIGH,D1405,GIFT,D1109,TINSEL,D0501,CRACKERS,D0202 *bPUDDING,A0509,DECORATIONS,A0405,FAIRY,D1608,TRIFLE,A0112,TURKEY,A1112,HOLLY,D1204,ANGEL,A1201 +DOWN(A$) ,Z%=0(A$)-1 -X%,Y%+Z%)A$,Z%+1,1) . / 0ACROSS(A$) 1X%,Y%)A$ 2 3-BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) 4-START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 !%23,246,32,40,170,255,170,40,32,0 " 23,247,28,8,127,8,62,8,28,8 #!23,248,0,4,20,85,255,85,20,4 $#23,249,16,56,16,56,56,56,56,56 % *FX9,60 & *FX10,10 ' :10 (I%=120:245: ) I%=1140:248,245,247,246: *I%=120:247: +28,1,28,18,1 ,17,137,12 -,129:::7:BIG(1,1,"THE MICRO USER"):' .128:3:I%=118:249: /&31,0,23:128:I%=118:249::129 0'0:BIG(-1,25,"CHRISTMAS CRACKERS") 128,1,23,18,6:128:7: 2QBIG(5,6,"SNAP"):'" ~~~~":''" A GAME FOR TWO PLAYERS":A=(1500) 3-132:7::'"INSTRUCTIONS"'"~~~~~~~~~~~~" 43:" Two words will appear on the screen for a shorttime. If they are the same press your key."'''" LEFT use TAB"''"RIGHT use DELETE"' 58:" PRESS SPACE":A= 6+N%:A%=(-):W$(N%):C%=1N%:W$(C%): 7 SL=0:SR=0 8R131:9::A$=W$((N%)):B$=W$((N%)):''"LEFT SCORE....";SL'"RIGHT SCORE...";SR 9/0:(17-(A$))/2,8)A$:(17-(B$))/2,11)B$ : *FX15,1 ;A=(400):A<>9A<>127Tx@ <A$=B$SAME= SAME= =SAME= D@@ >A=9 SR=SR+1SL=SL+1 ? Tx@ @A=9 SL=SL+1SR=SR+1 A Tx@ B18,CHRISTMAS,SANTA,HOLLY,ANGEL,SLEIGH,TINSEL,CRACKERS,PUDDING,TURKEY,SNOW,FAIRY,DECORATIONS,PRESENTS,GIFTS,PARTIES,TRIFLE,FAMILY,CARDS -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 !%23,246,32,40,170,255,170,40,32,0 " 23,247,28,8,127,8,62,8,28,8 #!23,248,0,4,20,85,255,85,20,4 $#23,249,16,56,16,56,56,56,56,56 % *FX9,60 & *FX10,10 ' :10 (I%=120:245: ) I%=1140:248,245,247,246: *I%=120:247: +28,1,28,18,1 ,17,137,12 -,129:::7:BIG(1,1,"THE MICRO USER"):' .128:3:I%=118:249: /&31,0,23:128:I%=118:249::129 0'0:BIG(-1,25,"CHRISTMAS CRACKERS") 128,1,23,18,6:128:7: 2gBIG(3,5,"CHRISTMAS"):'" ~~~~~~~~~":BIG(0,11,"KEYBOARD TESTER"):'" ~~~~~~~~~~~~~~~":A=(1500) 3-132:7::'"INSTRUCTIONS"'"~~~~~~~~~~~~" 43:" As a word appears"'"on the screen,type"'"it as fast as you"''"can."''" Only correct"''"letters will be"''"accepted."''" PRESS ANY KEY";:A= 5:'''" As you type the"''"last letter, your"''"time per letter"''"will appear on"''"the screen."''''" PRESS ANY KEY":A= 60N%:A%=(-):W$(N%):C%=1N%:W$(C%)::B=10 7O128:2::W$=W$((N%)):tab=(17-(W$))/2:'"TYPE:-"'''(tab)W$'''(tab);:=0 8C%=1(W$) 9!A=:A=(W$,C%,1)) A Ty@ : :T=/100 ;UT>99:'''"YOU TOOK TOO LONG!"''" YOU ARE"'" DISQUALIFIED":A$=(1500):Tw@ <135:1::''"YOU TOOK ";(T*10)/10" SECS":T=((T/(W$))*10+.5)/10:;T" SECS A LETTER":4:''"PREVIOUS BEST--- ";B" SECS A LETTER" =:T&13:''" PRESS ANY KEY":A=:Tw@ ?18,CHRISTMAS,SANTA,HOLLY,ANGEL,SLEIGH,TINSEL,CRACKERS,PUDDING,TURKEY,SNOW,FAIRY,DECORATIONS,PRESENTS,GIFTS,PARTIES,TRIFLE,FAMILY,CARDS -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::  2:23;8202;0;0;0; START=+&31 KtH t psqr pq sst ppڢh` %23,245,16,56,16,124,16,254,16,56 %23,246,32,40,170,255,170,40,32,0 23,247,28,8,127,8,62,8,28,8 !!23,248,0,4,20,85,255,85,20,4 "#23,249,16,56,16,56,56,56,56,56 # *FX9,60 $ *FX10,10 % :10 &I%=120:245: ' I%=1140:248,245,247,246: (I%=120:247: )28,1,28,18,1 *17,137,12 +,129:::7:BIG(1,1,"THE MICRO USER"):' ,128:3:I%=118:249: -&31,0,23:128:I%=118:249::129 .'0:BIG(-1,25,"CHRISTMAS CRACKERS") /28,1,23,18,6:128:7: 0.BIG(4,8,"SIMON"):'" ~~~~~":A=(1500) 1+:5:'"INSTRUCTIONS"'"~~~~~~~~~~~~":7 2" A sequence of"''"lights will flash"''"on the tree. Type"''"in the sequence"''"using the letters"''"indicated."'''" PRESS ANY KEY":A= 3j:'''" Each time you"''"correctly type the"'"sequence it will"''"replay with one"''"more added."'' 7'" PRESS ANY KEY":A= d N%(4),W%(200):R%=0 n 2:23;8202;0;0;0;:S%=150 x, 23,225,255,255,255,255,255,255,255,255 8 2:L=110:P=01:31,10-(L),L*2+P:L*2,225):: % 17,5:L=2226:31,9,L,225,225:  L%=14:X%,Y%,G%  0,G%:M%=160:X%,Y%  5,(M%)*S%+X%,(M%)*S%+Y%  : ! 7:L=14:X,Y,Z:31,X,Y,Z: & L=14:N%(L):19,N%(L),0,0,0,0: ! 31,2,28:"S=Start R=replay"  31,8,30:"E=end" ? (-35) 7: (-52)R%=1 DhA (-82)dp@ df@  GT%=0:M%=1:R%=1 k L%=13000::GT%=GT%+1:DELAY%=(200-GT%)*10:X%=(4):W%(GT%)=X%:Y%=1GT%:X%=W%(Y%):FLASH:U%=1500::  =0  *FX15  (-66) E%=1:DJA " (-82) E%=2:DJA , (-98) E%=3:DJA 6 (-67) E%=4:DJA @ <400TNA J" W%(M%)=E%X%=E%:FLASH:D^A T6 L%=150200:1,-15,L%,1:2,-15,(200-L%),1::df@ ^& M%=M%+1:M%>GT%M%=1:dz@ TDA h3 T%=1GT%:X%=W%(T%):DELAY%=3000:FLASH::df@ r FLASH |P 19,N%(X%),N%(X%),0,0,0:1,-15,X%*30+50,4:L%=1DELAY%::19,N%(X%),0,0,0,0  . 150,500,6,400,800,4,880,800,1,1120,500,3 % 2,16,90,6,6,65,13,6,83,17,16,88  4,1,6,3  -BIG(X,Y,A$):J%=1(A$):A%=(A$,J%,1)) -START:31,J%+X,Y,230,31,J%+X,Y+1,231::