Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape30b_acorn_eu_1991_december.wav » LISTIII

LISTIII

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape30b_acorn_eu_1991_december.wav
Filename: LISTIII
Read OK:
File size: 2BD6 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Santa's Slip - Up!
   20REM Listing III
   30REM by Oliver Bishop
   40REM (c) The Micro User
   50:
   60*LOAD code 1D00
   70*KEY10PAGE=&2200|MOLD|M
   80left=&1F04:right=&1E7F:down=&1F4C:up=&1F22
   90ON ERROR IF ERR<>17 MODE 6:PROCerr ELSE sc%=0:GOTO 300
  100DIE=FALSE:DEAD=FALSE:bonus=1100:P=5:DIR=TRUE:HOUSE=FALSE:sc%=0:EE=0:screen=0:lives=3:R=TRUE:pl=0:FALL=FALSE:DD=0:START=FALSE:smash=TRUE
  110PROCinit:PROCinit2:MODE6:PROCinsts:GOTO280
  120:
  130DEF PROCinit:IF DIE=TRUE THEN ENDPROC
  140ENVELOPE1,2,1,1,1,-5,1,1,126,0,0,-126,126,126
  150ENVELOPE2,2,1,2,1,2,1,2,126,0,0,-126,126,126
  160ENVELOPE3,1,2,-2,1,1,1,1,126,0,0,-126,126,126  
  170VDU23,224,128,69,170,85,170,85,162,1,23,225,28,22,62,28,8,30,63,127,23,226,123,123,62,28,24,0,24,56,23,227,56,104,124,56,16,120,252,254,23,228,222,222,124,56,24,0,24,28,23,229,223,223,223,0,223,223,223,223  
  180VDU 23,230,60,102,251,253,253,255,126,60,23,231,0,28,28,31,31,31,127,255,23,232,60,126,255,255,255,255,255,255,23,233,0,0,128,224,240,252,254,255,23,234,255,255,129,129,129,129,255,255  
  190VDU 23,235,255,129,129,129,255,255,255,255,23,236,255,129,129,129,161,129,129,129,23,237,189,255,126,255,219,255,102,60,23,238,255,231,255,231,255,231,126,60,23,241,123,115,38,60,24,130,230,199
  200VDU 23,242,60,110,94,94,126,126,203,16,23,243,0,0,0,0,85,170,255,255,23,244,85,170,85,170,85,170,85,170,23,245,128,69,170,85,170,69,2,0,23,246,129,255,129,129,129,255,129,129   
  210VDU 23,247,255,255,255,255,0,0,0,0,23,248,222,206,100,60,24,193,231,131
  220left$=CHR$(225)+CHR$(8)+CHR$(10)+CHR$(226):plat$=STRING$(4,CHR$224):righ$=CHR$(227)+CHR$(8)+CHR$(10)+CHR$(228):lift$=CHR$(224)+CHR$(224)
  230man$=righ$:snowman$=CHR$(237)+CHR$(8)+CHR$(10)+CHR$(238):ladder$=CHR$(246):blan$=" "+CHR$(8)+CHR$(10)+" "
  240roof$=CHR$(231)+CHR$(232)+CHR$(233):wind$=CHR$(234)+CHR$(234)+CHR$(234):door$=CHR$(235)+CHR$(236)+CHR$(235)
  250house$=wind$+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)+door$
  260ENDPROC
  270:
  280MODE 5
  290GOTO310
  300MODE6:VDU 23;8202;0;0;0;:PROCtable:MODE5
  310VDU 23;8202;0;0;0;
  320COLOUR3:PRINTTAB(17,20);house$
  330COLOUR1:PRINTTAB(17,19);roof$
  340?&70=&7178 MOD256:?&71=&7178 DIV 256:CALL&1D00  
  350 VDU5:GCOL0,3:MOVE 320,700:PRINT "Get Ready!":GCOL 0,1:MOVE320,696:PRINT "Get Ready!":VDU4:PROCtune:EE=0 
  360COLOUR7:PROCdraw:GOTO630  
  370DEF PROCdraw:bonus=1100:IF DEAD THEN ENDPROC
  380CLS:EE=0:HOUSE=FALSE:COLOUR7 
  390IF screen>5 THEN PROClights
  400*FX9,7
  410*FX10,20
  420:
  430scr=screen MOD 6:IF screen>11 THEN plat$=" "+STRING$(2,CHR$224) ELSE plat$=STRING$(4,CHR$224)  
  440VDU 23,245,128,69,170,85,170,69,2,0
  450VDU 19,3,7,0,0,0
  460PROCcls
  470PRINTTAB(4,29);"Score":PROCupdate
  480REM  Note the next line number
  490 IF scr=0 THEN RESTORE 3790:PSTA=1:PSTO=-2:PLEV=0:ST=9:STO=17:LL=7:S=10:mx%=2:my%=1:FF=16:GG=26:hx%=17:hy%=25:PROCscreen
  500 IF scr=1 THEN RESTORE 3890:PSTA=5:PSTO=13:PLEV=8:ST=9:STO=13:LL=17:S=10:mx%=12:my%=1:FF=16:GG=26:hx%=17:hy%=25:PROCscreen
  510 IF scr=2 THEN RESTORE 3990:PSTA=5:PSTO=9:PLEV=13:ST=14:STO=18:LL=12:S=15:mx%=5:my%=6:FF=16:GG=26:hx%=17:hy%=25:PROCscreen
  520 IF scr=3 THEN RESTORE 4090:PSTA=3:PSTO=10:PLEV=13:ST=2:STO=17:LL=27:S=3:mx%=16:my%=21:FF=16:GG=1:hx%=17:hy%=0:PROCscreen
  530 IF scr=4 THEN RESTORE 4190:PSTA=7:PSTO=16:PLEV=18:ST=15:STO=18:LL=22:S=16:mx%=9:my%=26:FF=4:GG=21:hx%=1:hy%=20:PROCscreen
  540IF scr=5 THENPROCuncls:PROCwin:GOTO 380
  550PROCuncls
  560add=&5800+&10*mx%+&140*my%:?&70=add MOD256:?&71=add DIV 256
  570:
  580:
  590COLOUR2:FOR D=0 TO lives-1:PRINTTAB(D,29);righ$:NEXT:COLOUR1:FOR A=27 TO 0 STEP -1:PRINTTAB(0,A);ladder$:NEXT
  600CALL&1D00
  610ENDPROC
  620:
  630DEAD=FALSE:REPEAT 
  640START=TRUE:bonus=bonus-5
  650IFDEAD=TRUE THEN GOTO 790
  660IFlives<1 THEN DEAD=TRUE :GOTO 790
  670IF mx%=0 PROCups 
  680IF my%>27 THEN PROCdie
  690IF DIE=TRUE THEN DIE=FALSE:PROCdie
  700IF INKEY(-74)THENPROCjump
  710IF INKEY(-98)ANDmx%>0THENPROCl:PROCblank:mx%=mx%-1:GOTO 820 
  720IF INKEY(-67)AND mx%<19 THENPROCr:PROCblank:mx%=mx%+1:GOTO 820  
  730IF FALL=TRUE THEN FALL=FALSE:PRINTTAB(mx%+1,my%);" ":PROCdie      
  740IF INKEY(-56) THEN REPEAT UNTIL INKEY(-52) 
  750IF DIE=TRUE THEN DIE=FALSE:PROCdie
  760IF screen>5 AND screen<11 THEN PROClights  
  770IF screen>17 THEN PROClights 
  780IF DEAD = FALSE THEN PROCmove:PROCtest  
  790UNTIL DEAD:IF DEAD THEN GOTO 300
  800:
  810:
  820an=an+1:IF an=3 THEN an=1
  830SOUND0,3,12,2
  840IF DEAD=TRUE THEN GOTO 790
  850IF mx%>19 THEN mx%=19
  860COLOUR1
  870IF HOUSE=TRUE AND mx%=FF AND my%=GG THEN HOUSE=FALSE:screen=screen+1:PROCgetready:GOTO 360  
  880PROCtest:GOTO790
  890:
  900:
  910DEF PROCblank:PROCmove:IF POINT(mx%*64,1023-((my%+2)*32)+12)=3 THEN DIE=TRUE
  920ENDPROC
  930DEFPROCgettest
  940ENDPROC
  950:
  960DEFPROCtest:PROCplat:IF POINT(mx%*64,1023-(my%+2)*32)=0 THENPROCfall
  970IF POINT(mx%*64,1023-((my%+2)*32)+8)=2 THENPROCget  
  980IF POINT(mx%*64,1023-((my%+2)*32)+12)=3 THENPROCdie:ENDPROC 
  990ENDPROC
 1000:
 1010DEFPROCfall:Z=FALSE:DD=0:COLOUR1:REPEAT:DD=DD+1:SOUND&0011,3,200-my%*4,2:my%=my%+1:CALLdown
 1020IF POINT((mx%*64)+8,1023-(my%+2)*32)=2 THEN PRINTTAB(mx%,my%+2);" ":PROCget   
 1030UNTIL POINT(mx%*64,1023-(my%+2)*32)<>0 OR my%>26 
 1040IF Z=TRUE THEN SOUND&0010,-15,7,10:Z=FALSE  
 1050IF DD>6 THEN PROCdie
 1060IF mx%>=27 THEN PROCdie
 1070ENDPROC
 1080:
 1090DEFPROCjump:IF my%<1 THEN ENDPROC
 1100COLOUR2:IF INKEY(-98) AND mx%>3 THENPROCleft:ENDPROC
 1110 IF INKEY(-67) AND mx%<16 THEN PROCright:ENDPROC      
 1120PROCup:ENDPROC
 1130:
 1140DEFPROCleft:PROCblank:mx%=mx%-1:my%=my%-1:PROCl:CALL up:PROCwait:PROCblank:mx%=mx%-1:PROCl:PROCwait:PROCblank:mx%=mx%-1:PROCl:PROCwait:PROCblank 
 1150mx%=mx%-1:my%=my%+1:PROCl:CALL down:PROCwait:ENDPROC 
 1160:
 1170DEFPROCwait:IF mx%=0 THEN PROCups
 1180PROCplat:PROCtesty:PROCt:IF smash=TRUE THEN my%=my%-1:mx%=mx%-1:smash=FALSE 
 1190IF smash2=TRUE THEN my%=my%-1:mx%=mx%-1:smash2=FALSE 
 1200PROCt:ENDPROC
 1210:
 1220DEFPROCright:PROCblank:mx%=mx%+1:my%=my%-1:PROCr:CALL up:PROCwait:PROCblank:mx%=mx%+1:PROCr:PROCwait:PROCblank:mx%=mx%+1:PROCr:PROCwait:PROCblank 
 1230mx%=mx%+1:my%=my%+1:PROCr:CALL down:PROCwait:ENDPROC  
 1240:
 1250DEFPROCl:CALL left:FORd=0 TO 50:NEXT:CALLleft:ENDPROC
 1260DEFPROCr:CALL right:FORd=0 TO 50:NEXT:CALLright:ENDPROC
 1270DEFPROCup:CALLup:CALLup:CALL down:CALL down:ENDPROC
 1280:
 1290DEFPROCt:FOR A=1 TO 2:NEXT:ENDPROC
 1300:
 1310DEFPROCwait1:PROCplat:ENDPROC
 1320:
 1330DEFPROCdie:FOR A=my% TO 28:CALL down:NEXT
 1340A=3:SOUND1,2,48,A:SOUND1,2,40,A:SOUND1,2,32,A:SOUND1,2,24,A:SOUND1,2,20,A:SOUND1,2,12,A:SOUND1,2,4,A*3:SOUND1,2,52,A   
 1350*FX 15,1
 1360DIE=FALSE:PROCgover:PROCdraw:ENDPROC
 1370:
 1380DEFPROCmove:IFR=TRUE AND S>STO THEN R=FALSE
 1390REMIF DEAD=TRUE THEN ENDPROC    
 1400IFR=FALSE AND S<ST THEN R=TRUE
 1410PRINTTAB(S,LL);" ":IF R=TRUE THEN S=S+1
 1420IF R=FALSE THEN S=S-1
 1430COLOUR3:PRINTTAB(S,LL);CHR$(230):COLOUR2:ENDPROC
 1440:
 1450DEF PROCgetready:GCOL 0,0:FOR A=0 TO 640 STEP 8:SOUND&0011,3,200-A/5,10:MOVE A,0:DRAW A,1023:MOVE 1279-A,0:DRAW 1279-A,1023:NEXT A
 1460COLOUR3:IF bonus<5 THEN ENDPROC
 1470PRINTTAB(5,5);"Time Bonus";TAB(8,7);bonus     
 1480sc%=sc%+bonus:bonus=1100:FORA=0 TO 2000:NEXT:COLOUR128:CLS:ENDPROC
 1490:
 1500DEFPROCgover:bonus=1100:lives=lives-1:IF lives=0 THEN GOTO 1510 ELSE PROCstartagain:ENDPROC
 1510FOR T=0 TO 1000:NEXT 
 1520DATA R,E,V,O," ",E,M,A,G
 1530RESTORE 1520:FOR A=1 TO 9:READ A$:FOR T=1 TO 13-A:SOUND&0011,-15,T+50,2:PRINTTAB(T,15);A$:FOR S=0 TO 40:NEXT:PRINTTAB(T,15);" ":NEXT:PRINTTAB(T,15);A$:NEXT
 1540FOR T=0 TO 3000:NEXT:DEAD=TRUE:ENDPROC
 1550:
 1560DEFPROCups:IF my%=1 ENDPROC ELSE COLOUR1:FORA=my% TO 2 STEP-1:SOUND1,1,50-A,1:CALL up:NEXT:my%=1:ENDPROC 
 1570:
 1580DEFPROCd(A,B,C,D)
 1590COLOUR7
 1600IF B<>28 THEN PROCdl(A,B,C,D) ELSE PRINTTAB(A,B);STRING$(19,CHR$D)
 1610ENDPROC
 1620:
 1630DEFPROCplat
 1640IF PLEV=0 ENDPROC
 1650pl=pl+1:IF pl=2 THEN pl=0 ELSE ENDPROC   
 1660 PRINTTAB(P,PLEV);"    "  
 1670COLOUR 7
 1680IF DIR=TRUE THEN P=P+1
 1690IF DIR=FALSE THEN P=P-1
 1700PRINTTAB(P,PLEV);plat$ 
 1710IF P=PSTO THEN DIR=FALSE  
 1720IF P=PSTA THEN DIR=TRUE
 1730COLOUR2
 1740ENDPROC
 1750:
 1760DEF PROCstartagain
 1770FORS=0 TO 4000:NEXT
 1780ENDPROC
 1790:
 1800DEF PROCinsts
 1810 IF sc%>=score%(8) THEN PROCentername   
 1820DEAD=FALSE
 1830CLS
 1840PRINTTAB(0,1);STRING$(20,CHR$(242)+" ")
 1850PRINTTAB(10,3);"Santa's Slip - Up!"
 1860PRINTTAB(0,5);STRING$(20,CHR$(242)+" ")
 1870PRINTTAB(10,20);"PRESS SPACE TO START"
 1880PRINTTAB(1,15);"Z = Left   X = Right    Return = Jump"
 1890PRINTTAB(1,8);"S = Sound  Q = Quiet"
 1900PRINTTAB(1,11);"P = Pause  R = Resume"   
 1910VDU23,1,0;0;0;0; 
 1920A$=GET$:IF A$=" "THENENDPROC
 1930IF A$="S" THEN *FX210,0
 1940IF A$="Q" THEN *FX210,1
 1950GOTO1920
 1960ENDPROC
 1970:
 1980DEFPROCtesty:smash=FALSE:smash2=FALSE
 1990ENDPROC
 2000IF POINT((mx%-1)*64,1023-(my%+1)*32)=3 THEN FALL=TRUE:smash2=TRUE
 2010IF POINT((mx%+1)*64,1023-(my%+1)*32)=3 THEN FALL=TRUE:smash=TRUE
 2020IF FALL=TRUE PROCdie:FALL=FALSE
 2030ENDPROC
 2040:
 2050DEFPROCget
 2060SOUND&0011,-15,25,1
 2070sc%=sc%+10
 2080PROCupdate
 2090EE=EE+1:IF EE=11 THEN EE=1:HOUSE=TRUE
 2100PRINTTAB(mx%,my%);" "
 2110PRINTTAB(mx%,my%+1);" " 
 2120CALL&1D00
 2130COLOUR1
 2140IF HOUSE=TRUE THEN PRINTTAB(0,30);" Your sack is full!" 
 2150IF HOUSE=TRUE THEN PRINTTAB(0,29);SPC3
 2160ENDPROC
 2170:
 2180DEF PROCwin
 2190COLOUR3:COLOUR129
 2200PRINTTAB(1,4)SPC17
 2210PRINTTAB(1,5);" CONGRATULATIONS "
 2220PRINTTAB(1,8)SPC17
 2230PRINTTAB(1,6)SPC17 
 2240IF lives<3 THEN PRINTTAB(1,7)"  EXTRA MAN AND  " ELSE PRINTTAB(1,7)SPC17
 2250PRINTTAB(4,11)SPC11    
 2260PRINTTAB(4,12);" B O N U S " 
 2270PRINTTAB(4,13)SPC11 
 2280PRINTTAB(7,16)SPC5
 2290PRINTTAB(7,17);" 500 "
 2300PRINTTAB(7,18)SPC5
 2310COLOUR 128
 2320PRINTTAB(1,2);STRING$(9,snowman$+CHR$11+CHR$32)  
 2330PRINTTAB(2,10);snowman$
 2340PRINTTAB(16,10);snowman$ 
 2350PRINTTAB(5,17);snowman$ 
 2360PRINTTAB(13,17);snowman$ 
 2370FOR A=0 TO 100 STEP 4
 2380SOUND1,2,A,2
 2390SOUND1,2,1,1
 2400NEXT
 2410screen=screen+1
 2420sc%=sc%+500 
 2430IF lives<3 THEN lives=lives+1
 2440CLS
 2450ENDPROC
 2460:
 2470DEF PROCtune 
 2480RESTORE 2570
 2490A=7  
 2500FOR T=1 TO 17
 2510READ C,D
 2520IF C=999 THEN SOUND1,0,0,A/2:GOTO 2560
 2530SOUND1,3,C,D 
 2540SOUND1,0,0,0.5
 2550CALLright
 2560NEXT T
 2570DATA52,A,72,A,72,A,72,A,80,A,88,A/2,80,A/2,88,A/2,92,A/2,100,A,88,A,92,A,88,A/2,72,A/2,80,A,80,A,72,A*2 
 2580GCOL 0,0
 2590 
 2600FOR Z=0 TO 3000:NEXT 
 2610ENDPROC
 2620:
 2630DEF PROCtable
 2640IF sc%>score%(8) THEN PROCentername
 2650CLS
 2660PRINT'STRING$(20,CHR$(242)+" ")
 2670PRINT "  Santa's Slip - Up!";SPC6;"Hi - Scores":PRINT'STRING$(20,CHR$(242)+" ")
 2680FOR I%=1 TO 8
 2690PRINT;TAB(5);I%;".  ";TAB(10);name$(I%);TAB(30);score%(I%) 
 2700PRINT
 2710NEXT
 2720*FX15,1
 2730PRINTTAB(9)"Press <SPACE> to play!"
 2740REPEATUNTILGET=32
 2750DEAD=FALSE:HOUSE=FALSE:lives=3
 2760screen=0:sc%=0 
 2770ENDPROC
 2780:
 2790DEF PROCinit2
 2800RESTORE3080
 2810DIM score%(8),name$(8)
 2820FOR I%=1 TO 8 
 2830score%(I%)=5000 - I%*500  
 2840READ A$:name$(I%)=A$
 2850NEXT I%
 2860ENDPROC
 2870:
 2880DEF PROCentername
 2890COLOUR128:CLS
 2900COLOUR 3
 2910PRINTTAB(0,3);STRING$(20,CHR$(242)+" ") 
 2920PRINTTAB(5,5);"**Congratulations**"
 2930PRINTTAB(0,7);STRING$(20,CHR$(242)+" ")
 2940PRINT
 2950PRINT '"You are in the high score table!"''"What is your name?"''''"?";
 2960*FX 15,1
 2970COLOUR1:string$="":VDU 23,1,1;0;0;0;
 2980REPEAT:K%=INKEY(0)
 2990IF K%>31 AND K%<127 AND POS<18 string$=string$+CHR$K%:VDUK% 
 3000IF K%=127 AND LEN string$ string$=LEFT$(string$,LEN(string$)-1):IF POS>1 VDU K%
 3010UNTIL K%=13
 3020score%(8)=sc%:name$(8)=string$
 3030FOR I%=8 TO 2 STEP -1
 3040IF score%(I%)>score%(I%-1) sc%=score%(I%):score%(I%)=score%(I%-1):score%(I%-1)=sc%:string$=name$(I%):name$(I%)=name$(I%-1):name$(I%-1)=string$ 
 3050NEXT I%
 3060ENDPROC
 3070:
 3080DATA "Written By:","Oliver Bishop","Original Screens by","Stuart Williams","Julian Bishop","Philip Jefferies","Rashid Qureshi","Jonathan Price" 
 3090:
 3100DEFPROClights
 3110SOUND0,3,12,1
 3120A=RND(2)
 3130IF A=1 THEN VDU 19,3,15,0,0,0
 3140IF A=2 THEN VDU 19,3,7,0,0,0
 3150ENDPROC
 3160:
 3170DEFPROCupdate:COLOUR1
 3180PRINTTAB(10,29);sc% 
 3190ENDPROC
 3200:
 3210DEFPROCerr
 3220COLOUR128:COLOUR7
 3230CLS
 3240PRINT''''':REPORT 
 3250PRINT''"At line"   
 3260PRINT';ERL
 3270PRINT''':END
 3280:
 3290DEF PROCscreen
 3300GCOL0,1:FORA=0 TO 60:PLOT69,RND(1279),RND(923)+100:NEXT 
 3310P=PSTA+1
 3320REPEAT
 3330READ A,B,C
 3340IF A=-1 THEN GOTO 3360
 3350PROCd(A,B,C,224)
 3360UNTIL A=-1
 3370REPEAT
 3380READ A,B
 3390IF A=-1 THEN GOTO 3410
 3400PRINTTAB(A,B);CHR$(230)
 3410UNTIL A=-1
 3420REPEAT
 3430READ A,B 
 3440IF A=-1 THEN GOTO 3460
 3450PRINTTAB(A,B);snowman$
 3460UNTIL A=-1
 3470COLOUR 129:COLOUR 2
 3480REPEAT
 3490READ A,B
 3500IF A=-1 THEN GOTO 3520
 3510PRINTTAB(A,B);CHR$(229)
 3520UNTIL A=-1
 3530COLOUR 128:COLOUR1
 3540FORA=0 TO 28:PRINTTAB(0,A);CHR$246:NEXT:PRINTTAB(hx%,hy%);roof$:COLOUR3:PRINTTAB(hx%,hy%+1);house$
 3550:
 3560ENDPROC
 3570DEFPROCdl(A,B,C,D)
 3580GCOL0,3:A=A*64  
 3590B=B*32:B=1023-B 
 3600VDU5:MOVE A,B:PRINTSTRING$(C,CHR$D)
 3610MOVE A,B:GCOL0,1:PRINTSTRING$(C,CHR$243):VDU4
 3620ENDPROC
 3630DEFPROCcls
 3640FORA=1 TO3
 3650VDU19,A,0,0,0,0
 3660NEXT
 3670ENDPROC
 3680DEFPROCuncls
 3690VDU19,1,1,0,0,0 
 3700VDU19,2,3,0,0,0
 3710VDU19,3,7,0,0,0 
 3720ENDPROC
 3730:
 3740:
 3750REM All these colons are necessary
 3760REM to space out the data.
 3770REM Screen 1
 3780REM Note the next line number
 3790DATA 1,3,10, 8,8,12, 1,13,7, 10,18,10, 1,23,10, 1,28,19, 12,13,4, -1,-1,-1
 3800DATA -1,-1
 3810DATA 19,6, 19,16, -1,-1
 3820DATA 5,2, 9,2, 2,12, 5,12, 12,17, 16,17, 2,22, 5,22, 9,22, 2,27, 6,27, 10,27, 13,27, 13,12, -1,-1
 3830:
 3840:
 3850:
 3860:
 3870:
 3880REM Screen 2
 3890DATA 1,3,6, 11,3,4, 1,8,4, 17,8,3, 4,13,6, 1,28,19, 8,18,7, 1,18,4, 15,13,5, 18,18,2, 4,23,7, 15,23,5, -1,-1,-1
 3900DATA 19,12, 6,27, 8,27, -1,-1
 3910DATA 7,26, 19,21, 10,21, -1,-1
 3920DATA 3,2, 2,7, 2,17, 6,12, 17,12, 3,27, 12,27, 7,22, 17,22, 14,2, 18,7, -1,-1 
 3930:
 3940:
 3950:
 3960:
 3970:
 3980REM Screen 3
 3990DATA 1,3,2, 1,8,6, 6,3,5, 14,3,6, 11,8,3, 17,8,3, 1,13,4, 13,13,7, 1,28,19, 3,18,5, 12,18,8, 8,23,4, -1,-1,-1
 4000DATA 9,27, -1,-1
 4010DATA 1,6, 19,1, 19,6, 19,16, -1,-1
 4020DATA 3,7, 15,2, 9,2, 12,7, 2,12, 14,17, 17,17, 5,17, 9,22, 2,27, 6,27, 12,27, 15,27, -1,-1
 4030:
 4040:
 4050:
 4060:
 4070:
 4080REM Screen 4
 4090DATA 1,3,7, 11,3,9, 1,28,19, 14,23,6, 1,23,4, 8,23,3, 14,18,6, 14,13,6, 13,8,7, 1,13,2, 5,18,3, 11,18,1, 4,8,6, -1,-1,-1
 4100DATA 5,7, -1,-1
 4110DATA 19,6, 19,11, 19,26, -1,-1
 4120DATA 3,2, 6,2, 13,2, 7,7, 15,7, 16,12, 16,17, 3,22, 18,22, 9,22, 6,17, -1,-1
 4130:
 4140:
 4150:
 4160:
 4170:
 4180REM Screen 5
 4190DATA 1,28,19, 1,23,7, 1,18,6, 1,23,6, 1,13,6, 1,8,4, 1,3,1, 14,23,6, 6,3,5, 15,3,5, 10,8,6, 14,13,6, -1,-1,-1
 4200DATA 2,12, 11,27, -1,-1
 4210DATA 19,11, 19,1, 19,26, -1,-1
 4220DATA 14,27, 3,27, 6,27, 6,22, 2,27, 2,17, 5,17, 5,12, 3,7, 8,2, 16,2, 11,7, 15,12, -1,-1

� Santa's Slip - Up!
� Listing III
� by Oliver Bishop
(� (c) The Micro User
2:
<*LOAD code 1D00
F*KEY10PAGE=&2200|MOLD|M
P.left=&1F04:right=&1E7F:down=&1F4C:up=&1F22
Z'� � � �<>17 � 6:�err � sc%=0:� �TlA
dnDIE=�:DEAD=�:bonus=1100:P=5:DIR=�:HOUSE=�:sc%=0:EE=0:screen=0:lives=3:R=�:pl=0:FALL=�:DD=0:START=�:smash=�
n �init:�init2:�6:�insts:�TXA
x:
�� �init:� DIE=� � �
�*�1,2,1,1,1,-5,1,1,126,0,0,-126,126,126
�)�2,2,1,2,1,2,1,2,126,0,0,-126,126,126
�,�3,1,2,-2,1,1,1,1,126,0,0,-126,126,126  
���23,224,128,69,170,85,170,85,162,1,23,225,28,22,62,28,8,30,63,127,23,226,123,123,62,28,24,0,24,56,23,227,56,104,124,56,16,120,252,254,23,228,222,222,124,56,24,0,24,28,23,229,223,223,223,0,223,223,223,223  
��� 23,230,60,102,251,253,253,255,126,60,23,231,0,28,28,31,31,31,127,255,23,232,60,126,255,255,255,255,255,255,23,233,0,0,128,224,240,252,254,255,23,234,255,255,129,129,129,129,255,255  
��� 23,235,255,129,129,129,255,255,255,255,23,236,255,129,129,129,161,129,129,129,23,237,189,255,126,255,219,255,102,60,23,238,255,231,255,231,255,231,126,60,23,241,123,115,38,60,24,130,230,199
ȳ� 23,242,60,110,94,94,126,126,203,16,23,243,0,0,0,0,85,170,255,255,23,244,85,170,85,170,85,170,85,170,23,245,128,69,170,85,170,69,2,0,23,246,129,255,129,129,129,255,129,129   
�I� 23,247,255,255,255,255,0,0,0,0,23,248,222,206,100,60,24,193,231,131
�dleft$=�(225)+�(8)+�(10)+�(226):plat$=�4,�224):righ$=�(227)+�(8)+�(10)+�(228):lift$=�(224)+�(224)
�Xman$=righ$:snowman$=�(237)+�(8)+�(10)+�(238):ladder$=�(246):blan$=" "+�(8)+�(10)+" "
�Troof$=�(231)+�(232)+�(233):wind$=�(234)+�(234)+�(234):door$=�(235)+�(236)+�(235)
�+house$=wind$+�(8)+�(8)+�(8)+�(10)+door$
�
:
� 5
"	�TvA
,!�6:� 23;8202;0;0;0;:�table:�5
6� 23;8202;0;0;0;
@�3:�17,20);house$
J�1:�17,19);roof$
T-?&70=&7178 �256:?&71=&7178 � 256:�&1D00  
^R �5:�0,3:� 320,700:� "Get Ready!":� 0,1:�320,696:� "Get Ready!":�4:�tune:EE=0 
h�7:�draw:�DvB  
r!� �draw:bonus=1100:� DEAD � �
|�:EE=0:HOUSE=�:�7 
�� screen>5 � �lights
�
*FX9,7
�*FX10,20
�:
�Fscr=screen � 6:� screen>11 � plat$=" "+�2,�224) � plat$=�4,�224)  
�%� 23,245,128,69,170,85,170,69,2,0
�� 19,3,7,0,0,0
��cls
��4,29);"Score":�update
� �  Note the next line number
�o � scr=0 � � �dNN:PSTA=1:PSTO=-2:PLEV=0:ST=9:STO=17:LL=7:S=10:mx%=2:my%=1:FF=16:GG=26:hx%=17:hy%=25:�screen
�q � scr=1 � � �TrO:PSTA=5:PSTO=13:PLEV=8:ST=9:STO=13:LL=17:S=10:mx%=12:my%=1:FF=16:GG=26:hx%=17:hy%=25:�screen
�q � scr=2 � � �tVO:PSTA=5:PSTO=9:PLEV=13:ST=14:STO=18:LL=12:S=15:mx%=5:my%=6:FF=16:GG=26:hx%=17:hy%=25:�screen
p � scr=3 � � �dzO:PSTA=3:PSTO=10:PLEV=13:ST=2:STO=17:LL=27:S=3:mx%=16:my%=21:FF=16:GG=1:hx%=17:hy%=0:�screen
q � scr=4 � � �D^P:PSTA=7:PSTO=16:PLEV=18:ST=15:STO=18:LL=22:S=16:mx%=9:my%=26:FF=4:GG=21:hx%=1:hy%=20:�screen
� scr=5 ��uncls:�win:� �D|A
&
�uncls
0;add=&5800+&10*mx%+&140*my%:?&70=add �256:?&71=add � 256
::
D:
NJ�2:� D=0 � lives-1:�D,29);righ$:�:�1:� A=27 � 0 � -1:�0,A);ladder$:�
X
�&1D00
b�
l:
v
DEAD=�:� 
�START=�:bonus=bonus-5
��DEAD=� � � �TVC
��lives<1 � DEAD=� :� �TVC
�� mx%=0 �ups 
�� my%>27 � �die
�� DIE=� � DIE=�:�die
�� �(-74)��jump
�.� �(-98)�mx%>0��l:�blank:mx%=mx%-1:� �TtC 
�2� �(-67)� mx%<19 ��r:�blank:mx%=mx%+1:� �TtC  
�1� FALL=� � FALL=�:�mx%+1,my%);" ":�die      
�� �(-56) � � � �(-52) 
�� DIE=� � DIE=�:�die
�&� screen>5 � screen<11 � �lights  
� screen>17 � �lights 
� DEAD = � � �move:�test  
� DEAD:� DEAD � � �TlA
 :
*:
4an=an+1:� an=3 � an=1
>
�0,3,12,2
H� DEAD=� � � �TVC
R� mx%>19 � mx%=19
\�1
fL� HOUSE=� � mx%=FF � my%=GG � HOUSE=�:screen=screen+1:�getready:� �DhA  
p�test:�TVC
z:
�:
�<� �blank:�move:� �mx%*64,1023-((my%+2)*32)+12)=3 � DIE=�
��
�
��gettest
��
�:
�4��test:�plat:� �mx%*64,1023-(my%+2)*32)=0 ��fall
�,� �mx%*64,1023-((my%+2)*32)+8)=2 ��get  
�.� �mx%*64,1023-((my%+2)*32)+12)=3 ��die:� 
��
�:
�E��fall:Z=�:DD=0:�1:�:DD=DD+1:�&0011,3,200-my%*4,2:my%=my%+1:�down
�?� �(mx%*64)+8,1023-(my%+2)*32)=2 � �mx%,my%+2);" ":�get   
+� �mx%*64,1023-(my%+2)*32)<>0 � my%>26 
!� Z=� � �&0010,-15,7,10:Z=�  
� DD>6 � �die
$� mx%>=27 � �die
.�
8:
B��jump:� my%<1 � �
L �2:� �(-98) � mx%>3 ��left:�
V' � �(-67) � mx%<16 � �right:�      
`	�up:�
j:
to��left:�blank:mx%=mx%-1:my%=my%-1:�l:� up:�wait:�blank:mx%=mx%-1:�l:�wait:�blank:mx%=mx%-1:�l:�wait:�blank 
~*mx%=mx%-1:my%=my%+1:�l:� down:�wait:� 
�:
���wait:� mx%=0 � �ups
�<�plat:�testy:�t:� smash=� � my%=my%-1:mx%=mx%-1:smash=� 
�.� smash2=� � my%=my%-1:mx%=mx%-1:smash2=� 
��t:�
�:
�p��right:�blank:mx%=mx%+1:my%=my%-1:�r:� up:�wait:�blank:mx%=mx%+1:�r:�wait:�blank:mx%=mx%+1:�r:�wait:�blank 
�+mx%=mx%+1:my%=my%+1:�r:� down:�wait:�  
�:
�"��l:� left:�d=0 � 50:�:�left:�
�$��r:� right:�d=0 � 50:�:�right:�
� ��up:�up:�up:� down:� down:�
:

��t:� A=1 � 2:�:�
:
��wait1:�plat:�
(:
2��die:� A=my% � 28:� down:�
<[A=3:�1,2,48,A:�1,2,40,A:�1,2,32,A:�1,2,24,A:�1,2,20,A:�1,2,12,A:�1,2,4,A*3:�1,2,52,A   
F*FX 15,1
PDIE=�:�gover:�draw:�
Z:
d��move:�R=� � S>STO � R=�
n"�IF DEAD=TRUE THEN ENDPROC    
x�R=� � S<ST � R=�
��S,LL);" ":� R=� � S=S+1
�� R=� � S=S-1
��3:�S,LL);�(230):�2:�
�:
�e� �getready:� 0,0:� A=0 � 640 � 8:�&0011,3,200-A/5,10:� A,0:� A,1023:� 1279-A,0:� 1279-A,1023:� A
��3:� bonus<5 � �
�(�5,5);"Time Bonus";�8,7);bonus     
�3sc%=sc%+bonus:bonus=1100:�A=0 � 2000:�:�128:�:�
�:
�G��gover:bonus=1100:lives=lives-1:� lives=0 � � �dfE � �startagain:�
�� T=0 � 1000:� 
�� R,E,V,O," ",E,M,A,G
�k� �dpE:� A=1 � 9:� A$:� T=1 � 13-A:�&0011,-15,T+50,2:�T,15);A$:� S=0 � 40:�:�T,15);" ":�:�T,15);A$:�
� T=0 � 3000:�:DEAD=�:�
:
C��ups:� my%=1 � � �1:�A=my% � 2 �-1:�1,1,50-A,1:� up:�:my%=1:� 
":
,��d(A,B,C,D)
6�7
@+� B<>28 � �dl(A,B,C,D) � �A,B);�19,�D)
J�
T:
^
��plat
h� PLEV=0 �
r pl=pl+1:� pl=2 � pl=0 � �   
| �P,PLEV);"    "  
�� 7
�� DIR=� � P=P+1
�� DIR=� � P=P-1
��P,PLEV);plat$ 
�� P=PSTO � DIR=�  
�� P=PSTA � DIR=�
��2
��
�:
�� �startagain
��S=0 � 4000:�
��
�:
� �insts
% � sc%>=score%(8) � �entername   

DEAD=�
&�
0�0,1);�20,�(242)+" ")
: �10,3);"Santa's Slip - Up!"
D�0,5);�20,�(242)+" ")
N#�10,20);"PRESS SPACE TO START"
X3�1,15);"Z = Left   X = Right    Return = Jump"
b!�1,8);"S = Sound  Q = Quiet"
l&�1,11);"P = Pause  R = Resume"   
v�23,1,0;0;0;0; 
�A$=�:� A$=" "��
�� A$="S" � *FX210,0
�� A$="Q" � *FX210,1
�	�t@G
��
�:
���testy:smash=�:smash2=�
��
�6� �(mx%-1)*64,1023-(my%+1)*32)=3 � FALL=�:smash2=�
�5� �(mx%+1)*64,1023-(my%+1)*32)=3 � FALL=�:smash=�
�� FALL=� �die:FALL=�
��
�:
	��get
�&0011,-15,25,1
sc%=sc%+10
 �update
*"EE=EE+1:� EE=11 � EE=1:HOUSE=�
4�mx%,my%);" "
>�mx%,my%+1);" " 
H
�&1D00
R�1
\.� HOUSE=� � �0,30);" Your sack is full!" 
f� HOUSE=� � �0,29);�3
p�
z:
�
� �win
��3:�129
�
�1,4)�17
��1,5);" CONGRATULATIONS "
�
�1,8)�17
��1,6)�17 
�5� lives<3 � �1,7)"  EXTRA MAN AND  " � �1,7)�17
��4,11)�11    
��4,12);" B O N U S " 
��4,13)�11 
�
�7,16)�5
��7,17);" 500 "
�
�7,18)�5
		� 128
	!�1,2);�9,snowman$+�11+�32)  
	�2,10);snowman$
	$�16,10);snowman$ 
	.�5,17);snowman$ 
	8�13,17);snowman$ 
	B� A=0 � 100 � 4
	L�1,2,A,2
	V�1,2,1,1
	`�
	jscreen=screen+1
	tsc%=sc%+500 
	~� lives<3 � lives=lives+1
	��
	��
	�:
	�� �tune 
	�
� �TJJ
	�	A=7  
	�� T=1 � 17
	�	� C,D
	�� C=999 � �1,0,0,A/2:� �T@J
	�
�1,3,C,D 
	��1,0,0,0.5
	�
�right
� T

i�52,A,72,A,72,A,72,A,80,A,88,A/2,80,A/2,88,A/2,92,A/2,100,A,88,A,92,A,88,A/2,72,A/2,80,A,80,A,72,A*2 
	� 0,0
 
(� Z=0 � 3000:� 
2�
<:
F� �table
P � sc%>score%(8) � �entername
Z�
d�'�20,�(242)+" ")
n?� "  Santa's Slip - Up!";�6;"Hi - Scores":�'�20,�(242)+" ")
x� I%=1 � 8
�2�;�5);I%;".  ";�10);name$(I%);�30);score%(I%) 
��
��
�*FX15,1
� �9)"Press <SPACE> to play!"
�
���=32
�DEAD=�:HOUSE=�:lives=3
�screen=0:sc%=0 
��
�:
�� �init2
�	��THL
�� score%(8),name$(8)
� I%=1 � 8 
score%(I%)=5000 - I%*500  
� A$:name$(I%)=A$
"� I%
,�
6:
@� �entername
J
�128:�
T� 3
^�0,3);�20,�(242)+" ") 
h �5,5);"**Congratulations**"
r�0,7);�20,�(242)+" ")
|�
�G� '"You are in the high score table!"''"What is your name?"''''"?";
�*FX 15,1
�!�1:string$="":� 23,1,1;0;0;0;
�
�:K%=�(0)
�4� K%>31 � K%<127 � �<18 string$=string$+�K%:�K% 
�B� K%=127 � � string$ string$=�string$,�(string$)-1):� �>1 � K%
�� K%=13
�"score%(8)=sc%:name$(8)=string$
�� I%=8 � 2 � -1
�� score%(I%)>score%(I%-1) sc%=score%(I%):score%(I%)=score%(I%-1):score%(I%-1)=sc%:string$=name$(I%):name$(I%)=name$(I%-1):name$(I%-1)=string$ 
�� I%
��
�:
�� "Written By:","Oliver Bishop","Original Screens by","Stuart Williams","Julian Bishop","Philip Jefferies","Rashid Qureshi","Jonathan Price" 
:
��lights
&
�0,3,12,1
0
A=�(2)
:� A=1 � � 19,3,15,0,0,0
D� A=2 � � 19,3,7,0,0,0
N�
X:
b��update:�1
l�10,29);sc% 
v�
�:
�	��err
��128:�7
��
�
�''''':� 
��''"At line"   
��';�
�
�''':�
�:
�
� �screen
�,�0,1:�A=0 � 60:�69,�(1279),�(923)+100:� 
�P=PSTA+1
��

� A,B,C

� A=-1 � � �T`M

�d(A,B,C,224)

 
� A=-1

*�

4	� A,B

>� A=-1 � � �DRM

H�A,B);�(230)

R
� A=-1

\�

f
� A,B 

p� A=-1 � � �tDM

z�A,B);snowman$

�
� A=-1

�
� 129:� 2

��

�	� A,B

�� A=-1 � � �d@M

��A,B);�(229)

�
� A=-1

�� 128:�1

�C�A=0 � 28:�0,A);�246:�:�hx%,hy%);roof$:�3:�hx%,hy%+1);house$

�:

��

���dl(A,B,C,D)

��0,3:A=A*64  
B=B*32:B=1023-B 
�5:� A,B:��C,�D)
� A,B:�0,1:��C,�243):�4
$�
.	��cls
8�A=1 �3
B�19,A,0,0,0,0
L�
V�
`��uncls
j�19,1,1,0,0,0 
t�19,2,3,0,0,0
~�19,3,7,0,0,0 
��
�:
�:
�$� All these colons are necessary
�� to space out the data.
�� Screen 1
�� Note the next line number
�K� 1,3,10, 8,8,12, 1,13,7, 10,18,10, 1,23,10, 1,28,19, 12,13,4, -1,-1,-1
�� -1,-1
�� 19,6, 19,16, -1,-1
�b� 5,2, 9,2, 2,12, 5,12, 12,17, 16,17, 2,22, 5,22, 9,22, 2,27, 6,27, 10,27, 13,27, 13,12, -1,-1
�:
:

:
:
:
(� Screen 2
2p� 1,3,6, 11,3,4, 1,8,4, 17,8,3, 4,13,6, 1,28,19, 8,18,7, 1,18,4, 15,13,5, 18,18,2, 4,23,7, 15,23,5, -1,-1,-1
<� 19,12, 6,27, 8,27, -1,-1
F� 7,26, 19,21, 10,21, -1,-1
PO� 3,2, 2,7, 2,17, 6,12, 17,12, 3,27, 12,27, 7,22, 17,22, 14,2, 18,7, -1,-1 
Z:
d:
n:
x:
�:
�� Screen 3
�n� 1,3,2, 1,8,6, 6,3,5, 14,3,6, 11,8,3, 17,8,3, 1,13,4, 13,13,7, 1,28,19, 3,18,5, 12,18,8, 8,23,4, -1,-1,-1
�� 9,27, -1,-1
�#� 1,6, 19,1, 19,6, 19,16, -1,-1
�[� 3,7, 15,2, 9,2, 12,7, 2,12, 14,17, 17,17, 5,17, 9,22, 2,27, 6,27, 12,27, 15,27, -1,-1
�:
�:
�:
�:
�:
�� Screen 4
�y� 1,3,7, 11,3,9, 1,28,19, 14,23,6, 1,23,4, 8,23,3, 14,18,6, 14,13,6, 13,8,7, 1,13,2, 5,18,3, 11,18,1, 4,8,6, -1,-1,-1
� 5,7, -1,-1
� 19,6, 19,11, 19,26, -1,-1
M� 3,2, 6,2, 13,2, 7,7, 15,7, 16,12, 16,17, 3,22, 18,22, 9,22, 6,17, -1,-1
":
,:
6:
@:
J:
T� Screen 5
^n� 1,28,19, 1,23,7, 1,18,6, 1,23,6, 1,13,6, 1,8,4, 1,3,1, 14,23,6, 6,3,5, 15,3,5, 10,8,6, 14,13,6, -1,-1,-1
h� 2,12, 11,27, -1,-1
r� 19,11, 19,1, 19,26, -1,-1
|Y� 14,27, 3,27, 6,27, 6,22, 2,27, 2,17, 5,17, 5,12, 3,7, 8,2, 16,2, 11,7, 15,12, -1,-1
�
00000000  0d 00 0a 18 f4 20 53 61  6e 74 61 27 73 20 53 6c  |..... Santa's Sl|
00000010  69 70 20 2d 20 55 70 21  0d 00 14 11 f4 20 4c 69  |ip - Up!..... Li|
00000020  73 74 69 6e 67 20 49 49  49 0d 00 1e 16 f4 20 62  |sting III..... b|
00000030  79 20 4f 6c 69 76 65 72  20 42 69 73 68 6f 70 0d  |y Oliver Bishop.|
00000040  00 28 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.(.. (c) The Mic|
00000050  72 6f 20 55 73 65 72 0d  00 32 05 3a 0d 00 3c 13  |ro User..2.:..<.|
00000060  2a 4c 4f 41 44 20 63 6f  64 65 20 31 44 30 30 0d  |*LOAD code 1D00.|
00000070  00 46 1b 2a 4b 45 59 31  30 50 41 47 45 3d 26 32  |.F.*KEY10PAGE=&2|
00000080  32 30 30 7c 4d 4f 4c 44  7c 4d 0d 00 50 2e 6c 65  |200|MOLD|M..P.le|
00000090  66 74 3d 26 31 46 30 34  3a 72 69 67 68 74 3d 26  |ft=&1F04:right=&|
000000a0  31 45 37 46 3a 64 6f 77  6e 3d 26 31 46 34 43 3a  |1E7F:down=&1F4C:|
000000b0  75 70 3d 26 31 46 32 32  0d 00 5a 27 ee 20 85 20  |up=&1F22..Z'. . |
000000c0  e7 20 9f 3c 3e 31 37 20  eb 20 36 3a f2 65 72 72  |. .<>17 . 6:.err|
000000d0  20 8b 20 73 63 25 3d 30  3a e5 20 8d 54 6c 41 0d  | . sc%=0:. .TlA.|
000000e0  00 64 6e 44 49 45 3d a3  3a 44 45 41 44 3d a3 3a  |.dnDIE=.:DEAD=.:|
000000f0  62 6f 6e 75 73 3d 31 31  30 30 3a 50 3d 35 3a 44  |bonus=1100:P=5:D|
00000100  49 52 3d b9 3a 48 4f 55  53 45 3d a3 3a 73 63 25  |IR=.:HOUSE=.:sc%|
00000110  3d 30 3a 45 45 3d 30 3a  73 63 72 65 65 6e 3d 30  |=0:EE=0:screen=0|
00000120  3a 6c 69 76 65 73 3d 33  3a 52 3d b9 3a 70 6c 3d  |:lives=3:R=.:pl=|
00000130  30 3a 46 41 4c 4c 3d a3  3a 44 44 3d 30 3a 53 54  |0:FALL=.:DD=0:ST|
00000140  41 52 54 3d a3 3a 73 6d  61 73 68 3d b9 0d 00 6e  |ART=.:smash=...n|
00000150  20 f2 69 6e 69 74 3a f2  69 6e 69 74 32 3a eb 36  | .init:.init2:.6|
00000160  3a f2 69 6e 73 74 73 3a  e5 8d 54 58 41 0d 00 78  |:.insts:..TXA..x|
00000170  05 3a 0d 00 82 17 dd 20  f2 69 6e 69 74 3a e7 20  |.:..... .init:. |
00000180  44 49 45 3d b9 20 8c 20  e1 0d 00 8c 2a e2 31 2c  |DIE=. . ....*.1,|
00000190  32 2c 31 2c 31 2c 31 2c  2d 35 2c 31 2c 31 2c 31  |2,1,1,1,-5,1,1,1|
000001a0  32 36 2c 30 2c 30 2c 2d  31 32 36 2c 31 32 36 2c  |26,0,0,-126,126,|
000001b0  31 32 36 0d 00 96 29 e2  32 2c 32 2c 31 2c 32 2c  |126...).2,2,1,2,|
000001c0  31 2c 32 2c 31 2c 32 2c  31 32 36 2c 30 2c 30 2c  |1,2,1,2,126,0,0,|
000001d0  2d 31 32 36 2c 31 32 36  2c 31 32 36 0d 00 a0 2c  |-126,126,126...,|
000001e0  e2 33 2c 31 2c 32 2c 2d  32 2c 31 2c 31 2c 31 2c  |.3,1,2,-2,1,1,1,|
000001f0  31 2c 31 32 36 2c 30 2c  30 2c 2d 31 32 36 2c 31  |1,126,0,0,-126,1|
00000200  32 36 2c 31 32 36 20 20  0d 00 aa d1 ef 32 33 2c  |26,126  .....23,|
00000210  32 32 34 2c 31 32 38 2c  36 39 2c 31 37 30 2c 38  |224,128,69,170,8|
00000220  35 2c 31 37 30 2c 38 35  2c 31 36 32 2c 31 2c 32  |5,170,85,162,1,2|
00000230  33 2c 32 32 35 2c 32 38  2c 32 32 2c 36 32 2c 32  |3,225,28,22,62,2|
00000240  38 2c 38 2c 33 30 2c 36  33 2c 31 32 37 2c 32 33  |8,8,30,63,127,23|
00000250  2c 32 32 36 2c 31 32 33  2c 31 32 33 2c 36 32 2c  |,226,123,123,62,|
00000260  32 38 2c 32 34 2c 30 2c  32 34 2c 35 36 2c 32 33  |28,24,0,24,56,23|
00000270  2c 32 32 37 2c 35 36 2c  31 30 34 2c 31 32 34 2c  |,227,56,104,124,|
00000280  35 36 2c 31 36 2c 31 32  30 2c 32 35 32 2c 32 35  |56,16,120,252,25|
00000290  34 2c 32 33 2c 32 32 38  2c 32 32 32 2c 32 32 32  |4,23,228,222,222|
000002a0  2c 31 32 34 2c 35 36 2c  32 34 2c 30 2c 32 34 2c  |,124,56,24,0,24,|
000002b0  32 38 2c 32 33 2c 32 32  39 2c 32 32 33 2c 32 32  |28,23,229,223,22|
000002c0  33 2c 32 32 33 2c 30 2c  32 32 33 2c 32 32 33 2c  |3,223,0,223,223,|
000002d0  32 32 33 2c 32 32 33 20  20 0d 00 b4 bc ef 20 32  |223,223  ..... 2|
000002e0  33 2c 32 33 30 2c 36 30  2c 31 30 32 2c 32 35 31  |3,230,60,102,251|
000002f0  2c 32 35 33 2c 32 35 33  2c 32 35 35 2c 31 32 36  |,253,253,255,126|
00000300  2c 36 30 2c 32 33 2c 32  33 31 2c 30 2c 32 38 2c  |,60,23,231,0,28,|
00000310  32 38 2c 33 31 2c 33 31  2c 33 31 2c 31 32 37 2c  |28,31,31,31,127,|
00000320  32 35 35 2c 32 33 2c 32  33 32 2c 36 30 2c 31 32  |255,23,232,60,12|
00000330  36 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |6,255,255,255,25|
00000340  35 2c 32 35 35 2c 32 35  35 2c 32 33 2c 32 33 33  |5,255,255,23,233|
00000350  2c 30 2c 30 2c 31 32 38  2c 32 32 34 2c 32 34 30  |,0,0,128,224,240|
00000360  2c 32 35 32 2c 32 35 34  2c 32 35 35 2c 32 33 2c  |,252,254,255,23,|
00000370  32 33 34 2c 32 35 35 2c  32 35 35 2c 31 32 39 2c  |234,255,255,129,|
00000380  31 32 39 2c 31 32 39 2c  31 32 39 2c 32 35 35 2c  |129,129,129,255,|
00000390  32 35 35 20 20 0d 00 be  c3 ef 20 32 33 2c 32 33  |255  ..... 23,23|
000003a0  35 2c 32 35 35 2c 31 32  39 2c 31 32 39 2c 31 32  |5,255,129,129,12|
000003b0  39 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |9,255,255,255,25|
000003c0  35 2c 32 33 2c 32 33 36  2c 32 35 35 2c 31 32 39  |5,23,236,255,129|
000003d0  2c 31 32 39 2c 31 32 39  2c 31 36 31 2c 31 32 39  |,129,129,161,129|
000003e0  2c 31 32 39 2c 31 32 39  2c 32 33 2c 32 33 37 2c  |,129,129,23,237,|
000003f0  31 38 39 2c 32 35 35 2c  31 32 36 2c 32 35 35 2c  |189,255,126,255,|
00000400  32 31 39 2c 32 35 35 2c  31 30 32 2c 36 30 2c 32  |219,255,102,60,2|
00000410  33 2c 32 33 38 2c 32 35  35 2c 32 33 31 2c 32 35  |3,238,255,231,25|
00000420  35 2c 32 33 31 2c 32 35  35 2c 32 33 31 2c 31 32  |5,231,255,231,12|
00000430  36 2c 36 30 2c 32 33 2c  32 34 31 2c 31 32 33 2c  |6,60,23,241,123,|
00000440  31 31 35 2c 33 38 2c 36  30 2c 32 34 2c 31 33 30  |115,38,60,24,130|
00000450  2c 32 33 30 2c 31 39 39  0d 00 c8 b3 ef 20 32 33  |,230,199..... 23|
00000460  2c 32 34 32 2c 36 30 2c  31 31 30 2c 39 34 2c 39  |,242,60,110,94,9|
00000470  34 2c 31 32 36 2c 31 32  36 2c 32 30 33 2c 31 36  |4,126,126,203,16|
00000480  2c 32 33 2c 32 34 33 2c  30 2c 30 2c 30 2c 30 2c  |,23,243,0,0,0,0,|
00000490  38 35 2c 31 37 30 2c 32  35 35 2c 32 35 35 2c 32  |85,170,255,255,2|
000004a0  33 2c 32 34 34 2c 38 35  2c 31 37 30 2c 38 35 2c  |3,244,85,170,85,|
000004b0  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
000004c0  30 2c 32 33 2c 32 34 35  2c 31 32 38 2c 36 39 2c  |0,23,245,128,69,|
000004d0  31 37 30 2c 38 35 2c 31  37 30 2c 36 39 2c 32 2c  |170,85,170,69,2,|
000004e0  30 2c 32 33 2c 32 34 36  2c 31 32 39 2c 32 35 35  |0,23,246,129,255|
000004f0  2c 31 32 39 2c 31 32 39  2c 31 32 39 2c 32 35 35  |,129,129,129,255|
00000500  2c 31 32 39 2c 31 32 39  20 20 20 0d 00 d2 49 ef  |,129,129   ...I.|
00000510  20 32 33 2c 32 34 37 2c  32 35 35 2c 32 35 35 2c  | 23,247,255,255,|
00000520  32 35 35 2c 32 35 35 2c  30 2c 30 2c 30 2c 30 2c  |255,255,0,0,0,0,|
00000530  32 33 2c 32 34 38 2c 32  32 32 2c 32 30 36 2c 31  |23,248,222,206,1|
00000540  30 30 2c 36 30 2c 32 34  2c 31 39 33 2c 32 33 31  |00,60,24,193,231|
00000550  2c 31 33 31 0d 00 dc 64  6c 65 66 74 24 3d bd 28  |,131...dleft$=.(|
00000560  32 32 35 29 2b bd 28 38  29 2b bd 28 31 30 29 2b  |225)+.(8)+.(10)+|
00000570  bd 28 32 32 36 29 3a 70  6c 61 74 24 3d c4 34 2c  |.(226):plat$=.4,|
00000580  bd 32 32 34 29 3a 72 69  67 68 24 3d bd 28 32 32  |.224):righ$=.(22|
00000590  37 29 2b bd 28 38 29 2b  bd 28 31 30 29 2b bd 28  |7)+.(8)+.(10)+.(|
000005a0  32 32 38 29 3a 6c 69 66  74 24 3d bd 28 32 32 34  |228):lift$=.(224|
000005b0  29 2b bd 28 32 32 34 29  0d 00 e6 58 6d 61 6e 24  |)+.(224)...Xman$|
000005c0  3d 72 69 67 68 24 3a 73  6e 6f 77 6d 61 6e 24 3d  |=righ$:snowman$=|
000005d0  bd 28 32 33 37 29 2b bd  28 38 29 2b bd 28 31 30  |.(237)+.(8)+.(10|
000005e0  29 2b bd 28 32 33 38 29  3a 6c 61 64 64 65 72 24  |)+.(238):ladder$|
000005f0  3d bd 28 32 34 36 29 3a  62 6c 61 6e 24 3d 22 20  |=.(246):blan$=" |
00000600  22 2b bd 28 38 29 2b bd  28 31 30 29 2b 22 20 22  |"+.(8)+.(10)+" "|
00000610  0d 00 f0 54 72 6f 6f 66  24 3d bd 28 32 33 31 29  |...Troof$=.(231)|
00000620  2b bd 28 32 33 32 29 2b  bd 28 32 33 33 29 3a 77  |+.(232)+.(233):w|
00000630  69 6e 64 24 3d bd 28 32  33 34 29 2b bd 28 32 33  |ind$=.(234)+.(23|
00000640  34 29 2b bd 28 32 33 34  29 3a 64 6f 6f 72 24 3d  |4)+.(234):door$=|
00000650  bd 28 32 33 35 29 2b bd  28 32 33 36 29 2b bd 28  |.(235)+.(236)+.(|
00000660  32 33 35 29 0d 00 fa 2b  68 6f 75 73 65 24 3d 77  |235)...+house$=w|
00000670  69 6e 64 24 2b bd 28 38  29 2b bd 28 38 29 2b bd  |ind$+.(8)+.(8)+.|
00000680  28 38 29 2b bd 28 31 30  29 2b 64 6f 6f 72 24 0d  |(8)+.(10)+door$.|
00000690  01 04 05 e1 0d 01 0e 05  3a 0d 01 18 07 eb 20 35  |........:..... 5|
000006a0  0d 01 22 09 e5 8d 54 76  41 0d 01 2c 21 eb 36 3a  |.."...TvA..,!.6:|
000006b0  ef 20 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |. 23;8202;0;0;0;|
000006c0  3a f2 74 61 62 6c 65 3a  eb 35 0d 01 36 14 ef 20  |:.table:.5..6.. |
000006d0  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 01  |23;8202;0;0;0;..|
000006e0  40 16 fb 33 3a f1 8a 31  37 2c 32 30 29 3b 68 6f  |@..3:..17,20);ho|
000006f0  75 73 65 24 0d 01 4a 15  fb 31 3a f1 8a 31 37 2c  |use$..J..1:..17,|
00000700  31 39 29 3b 72 6f 6f 66  24 0d 01 54 2d 3f 26 37  |19);roof$..T-?&7|
00000710  30 3d 26 37 31 37 38 20  83 32 35 36 3a 3f 26 37  |0=&7178 .256:?&7|
00000720  31 3d 26 37 31 37 38 20  81 20 32 35 36 3a d6 26  |1=&7178 . 256:.&|
00000730  31 44 30 30 20 20 0d 01  5e 52 20 ef 35 3a e6 30  |1D00  ..^R .5:.0|
00000740  2c 33 3a ec 20 33 32 30  2c 37 30 30 3a f1 20 22  |,3:. 320,700:. "|
00000750  47 65 74 20 52 65 61 64  79 21 22 3a e6 20 30 2c  |Get Ready!":. 0,|
00000760  31 3a ec 33 32 30 2c 36  39 36 3a f1 20 22 47 65  |1:.320,696:. "Ge|
00000770  74 20 52 65 61 64 79 21  22 3a ef 34 3a f2 74 75  |t Ready!":.4:.tu|
00000780  6e 65 3a 45 45 3d 30 20  0d 01 68 14 fb 37 3a f2  |ne:EE=0 ..h..7:.|
00000790  64 72 61 77 3a e5 8d 44  76 42 20 20 0d 01 72 21  |draw:..DvB  ..r!|
000007a0  dd 20 f2 64 72 61 77 3a  62 6f 6e 75 73 3d 31 31  |. .draw:bonus=11|
000007b0  30 30 3a e7 20 44 45 41  44 20 8c 20 e1 0d 01 7c  |00:. DEAD . ...||
000007c0  16 db 3a 45 45 3d 30 3a  48 4f 55 53 45 3d a3 3a  |..:EE=0:HOUSE=.:|
000007d0  fb 37 20 0d 01 86 18 e7  20 73 63 72 65 65 6e 3e  |.7 ..... screen>|
000007e0  35 20 8c 20 f2 6c 69 67  68 74 73 0d 01 90 0a 2a  |5 . .lights....*|
000007f0  46 58 39 2c 37 0d 01 9a  0c 2a 46 58 31 30 2c 32  |FX9,7....*FX10,2|
00000800  30 0d 01 a4 05 3a 0d 01  ae 46 73 63 72 3d 73 63  |0....:...Fscr=sc|
00000810  72 65 65 6e 20 83 20 36  3a e7 20 73 63 72 65 65  |reen . 6:. scree|
00000820  6e 3e 31 31 20 8c 20 70  6c 61 74 24 3d 22 20 22  |n>11 . plat$=" "|
00000830  2b c4 32 2c bd 32 32 34  29 20 8b 20 70 6c 61 74  |+.2,.224) . plat|
00000840  24 3d c4 34 2c bd 32 32  34 29 20 20 0d 01 b8 25  |$=.4,.224)  ...%|
00000850  ef 20 32 33 2c 32 34 35  2c 31 32 38 2c 36 39 2c  |. 23,245,128,69,|
00000860  31 37 30 2c 38 35 2c 31  37 30 2c 36 39 2c 32 2c  |170,85,170,69,2,|
00000870  30 0d 01 c2 12 ef 20 31  39 2c 33 2c 37 2c 30 2c  |0..... 19,3,7,0,|
00000880  30 2c 30 0d 01 cc 08 f2  63 6c 73 0d 01 d6 1b f1  |0,0.....cls.....|
00000890  8a 34 2c 32 39 29 3b 22  53 63 6f 72 65 22 3a f2  |.4,29);"Score":.|
000008a0  75 70 64 61 74 65 0d 01  e0 20 f4 20 20 4e 6f 74  |update... .  Not|
000008b0  65 20 74 68 65 20 6e 65  78 74 20 6c 69 6e 65 20  |e the next line |
000008c0  6e 75 6d 62 65 72 0d 01  ea 6f 20 e7 20 73 63 72  |number...o . scr|
000008d0  3d 30 20 8c 20 f7 20 8d  64 4e 4e 3a 50 53 54 41  |=0 . . .dNN:PSTA|
000008e0  3d 31 3a 50 53 54 4f 3d  2d 32 3a 50 4c 45 56 3d  |=1:PSTO=-2:PLEV=|
000008f0  30 3a 53 54 3d 39 3a 53  54 4f 3d 31 37 3a 4c 4c  |0:ST=9:STO=17:LL|
00000900  3d 37 3a 53 3d 31 30 3a  6d 78 25 3d 32 3a 6d 79  |=7:S=10:mx%=2:my|
00000910  25 3d 31 3a 46 46 3d 31  36 3a 47 47 3d 32 36 3a  |%=1:FF=16:GG=26:|
00000920  68 78 25 3d 31 37 3a 68  79 25 3d 32 35 3a f2 73  |hx%=17:hy%=25:.s|
00000930  63 72 65 65 6e 0d 01 f4  71 20 e7 20 73 63 72 3d  |creen...q . scr=|
00000940  31 20 8c 20 f7 20 8d 54  72 4f 3a 50 53 54 41 3d  |1 . . .TrO:PSTA=|
00000950  35 3a 50 53 54 4f 3d 31  33 3a 50 4c 45 56 3d 38  |5:PSTO=13:PLEV=8|
00000960  3a 53 54 3d 39 3a 53 54  4f 3d 31 33 3a 4c 4c 3d  |:ST=9:STO=13:LL=|
00000970  31 37 3a 53 3d 31 30 3a  6d 78 25 3d 31 32 3a 6d  |17:S=10:mx%=12:m|
00000980  79 25 3d 31 3a 46 46 3d  31 36 3a 47 47 3d 32 36  |y%=1:FF=16:GG=26|
00000990  3a 68 78 25 3d 31 37 3a  68 79 25 3d 32 35 3a f2  |:hx%=17:hy%=25:.|
000009a0  73 63 72 65 65 6e 0d 01  fe 71 20 e7 20 73 63 72  |screen...q . scr|
000009b0  3d 32 20 8c 20 f7 20 8d  74 56 4f 3a 50 53 54 41  |=2 . . .tVO:PSTA|
000009c0  3d 35 3a 50 53 54 4f 3d  39 3a 50 4c 45 56 3d 31  |=5:PSTO=9:PLEV=1|
000009d0  33 3a 53 54 3d 31 34 3a  53 54 4f 3d 31 38 3a 4c  |3:ST=14:STO=18:L|
000009e0  4c 3d 31 32 3a 53 3d 31  35 3a 6d 78 25 3d 35 3a  |L=12:S=15:mx%=5:|
000009f0  6d 79 25 3d 36 3a 46 46  3d 31 36 3a 47 47 3d 32  |my%=6:FF=16:GG=2|
00000a00  36 3a 68 78 25 3d 31 37  3a 68 79 25 3d 32 35 3a  |6:hx%=17:hy%=25:|
00000a10  f2 73 63 72 65 65 6e 0d  02 08 70 20 e7 20 73 63  |.screen...p . sc|
00000a20  72 3d 33 20 8c 20 f7 20  8d 64 7a 4f 3a 50 53 54  |r=3 . . .dzO:PST|
00000a30  41 3d 33 3a 50 53 54 4f  3d 31 30 3a 50 4c 45 56  |A=3:PSTO=10:PLEV|
00000a40  3d 31 33 3a 53 54 3d 32  3a 53 54 4f 3d 31 37 3a  |=13:ST=2:STO=17:|
00000a50  4c 4c 3d 32 37 3a 53 3d  33 3a 6d 78 25 3d 31 36  |LL=27:S=3:mx%=16|
00000a60  3a 6d 79 25 3d 32 31 3a  46 46 3d 31 36 3a 47 47  |:my%=21:FF=16:GG|
00000a70  3d 31 3a 68 78 25 3d 31  37 3a 68 79 25 3d 30 3a  |=1:hx%=17:hy%=0:|
00000a80  f2 73 63 72 65 65 6e 0d  02 12 71 20 e7 20 73 63  |.screen...q . sc|
00000a90  72 3d 34 20 8c 20 f7 20  8d 44 5e 50 3a 50 53 54  |r=4 . . .D^P:PST|
00000aa0  41 3d 37 3a 50 53 54 4f  3d 31 36 3a 50 4c 45 56  |A=7:PSTO=16:PLEV|
00000ab0  3d 31 38 3a 53 54 3d 31  35 3a 53 54 4f 3d 31 38  |=18:ST=15:STO=18|
00000ac0  3a 4c 4c 3d 32 32 3a 53  3d 31 36 3a 6d 78 25 3d  |:LL=22:S=16:mx%=|
00000ad0  39 3a 6d 79 25 3d 32 36  3a 46 46 3d 34 3a 47 47  |9:my%=26:FF=4:GG|
00000ae0  3d 32 31 3a 68 78 25 3d  31 3a 68 79 25 3d 32 30  |=21:hx%=1:hy%=20|
00000af0  3a f2 73 63 72 65 65 6e  0d 02 1c 1f e7 20 73 63  |:.screen..... sc|
00000b00  72 3d 35 20 8c f2 75 6e  63 6c 73 3a f2 77 69 6e  |r=5 ..uncls:.win|
00000b10  3a e5 20 8d 44 7c 41 0d  02 26 0a f2 75 6e 63 6c  |:. .D|A..&..uncl|
00000b20  73 0d 02 30 3b 61 64 64  3d 26 35 38 30 30 2b 26  |s..0;add=&5800+&|
00000b30  31 30 2a 6d 78 25 2b 26  31 34 30 2a 6d 79 25 3a  |10*mx%+&140*my%:|
00000b40  3f 26 37 30 3d 61 64 64  20 83 32 35 36 3a 3f 26  |?&70=add .256:?&|
00000b50  37 31 3d 61 64 64 20 81  20 32 35 36 0d 02 3a 05  |71=add . 256..:.|
00000b60  3a 0d 02 44 05 3a 0d 02  4e 4a fb 32 3a e3 20 44  |:..D.:..NJ.2:. D|
00000b70  3d 30 20 b8 20 6c 69 76  65 73 2d 31 3a f1 8a 44  |=0 . lives-1:..D|
00000b80  2c 32 39 29 3b 72 69 67  68 24 3a ed 3a fb 31 3a  |,29);righ$:.:.1:|
00000b90  e3 20 41 3d 32 37 20 b8  20 30 20 88 20 2d 31 3a  |. A=27 . 0 . -1:|
00000ba0  f1 8a 30 2c 41 29 3b 6c  61 64 64 65 72 24 3a ed  |..0,A);ladder$:.|
00000bb0  0d 02 58 0a d6 26 31 44  30 30 0d 02 62 05 e1 0d  |..X..&1D00..b...|
00000bc0  02 6c 05 3a 0d 02 76 0d  44 45 41 44 3d a3 3a f5  |.l.:..v.DEAD=.:.|
00000bd0  20 0d 02 80 19 53 54 41  52 54 3d b9 3a 62 6f 6e  | ....START=.:bon|
00000be0  75 73 3d 62 6f 6e 75 73  2d 35 0d 02 8a 14 e7 44  |us=bonus-5.....D|
00000bf0  45 41 44 3d b9 20 8c 20  e5 20 8d 54 56 43 0d 02  |EAD=. . . .TVC..|
00000c00  94 1d e7 6c 69 76 65 73  3c 31 20 8c 20 44 45 41  |...lives<1 . DEA|
00000c10  44 3d b9 20 3a e5 20 8d  54 56 43 0d 02 9e 11 e7  |D=. :. .TVC.....|
00000c20  20 6d 78 25 3d 30 20 f2  75 70 73 20 0d 02 a8 13  | mx%=0 .ups ....|
00000c30  e7 20 6d 79 25 3e 32 37  20 8c 20 f2 64 69 65 0d  |. my%>27 . .die.|
00000c40  02 b2 18 e7 20 44 49 45  3d b9 20 8c 20 44 49 45  |.... DIE=. . DIE|
00000c50  3d a3 3a f2 64 69 65 0d  02 bc 12 e7 20 a6 28 2d  |=.:.die..... .(-|
00000c60  37 34 29 8c f2 6a 75 6d  70 0d 02 c6 2e e7 20 a6  |74)..jump..... .|
00000c70  28 2d 39 38 29 80 6d 78  25 3e 30 8c f2 6c 3a f2  |(-98).mx%>0..l:.|
00000c80  62 6c 61 6e 6b 3a 6d 78  25 3d 6d 78 25 2d 31 3a  |blank:mx%=mx%-1:|
00000c90  e5 20 8d 54 74 43 20 0d  02 d0 32 e7 20 a6 28 2d  |. .TtC ...2. .(-|
00000ca0  36 37 29 80 20 6d 78 25  3c 31 39 20 8c f2 72 3a  |67). mx%<19 ..r:|
00000cb0  f2 62 6c 61 6e 6b 3a 6d  78 25 3d 6d 78 25 2b 31  |.blank:mx%=mx%+1|
00000cc0  3a e5 20 8d 54 74 43 20  20 0d 02 da 31 e7 20 46  |:. .TtC  ...1. F|
00000cd0  41 4c 4c 3d b9 20 8c 20  46 41 4c 4c 3d a3 3a f1  |ALL=. . FALL=.:.|
00000ce0  8a 6d 78 25 2b 31 2c 6d  79 25 29 3b 22 20 22 3a  |.mx%+1,my%);" ":|
00000cf0  f2 64 69 65 20 20 20 20  20 20 0d 02 e4 1a e7 20  |.die      ..... |
00000d00  a6 28 2d 35 36 29 20 8c  20 f5 20 fd 20 a6 28 2d  |.(-56) . . . .(-|
00000d10  35 32 29 20 0d 02 ee 18  e7 20 44 49 45 3d b9 20  |52) ..... DIE=. |
00000d20  8c 20 44 49 45 3d a3 3a  f2 64 69 65 0d 02 f8 26  |. DIE=.:.die...&|
00000d30  e7 20 73 63 72 65 65 6e  3e 35 20 80 20 73 63 72  |. screen>5 . scr|
00000d40  65 65 6e 3c 31 31 20 8c  20 f2 6c 69 67 68 74 73  |een<11 . .lights|
00000d50  20 20 0d 03 02 1a e7 20  73 63 72 65 65 6e 3e 31  |  ..... screen>1|
00000d60  37 20 8c 20 f2 6c 69 67  68 74 73 20 0d 03 0c 1e  |7 . .lights ....|
00000d70  e7 20 44 45 41 44 20 3d  20 a3 20 8c 20 f2 6d 6f  |. DEAD = . . .mo|
00000d80  76 65 3a f2 74 65 73 74  20 20 0d 03 16 1a fd 20  |ve:.test  ..... |
00000d90  44 45 41 44 3a e7 20 44  45 41 44 20 8c 20 e5 20  |DEAD:. DEAD . . |
00000da0  8d 54 6c 41 0d 03 20 05  3a 0d 03 2a 05 3a 0d 03  |.TlA.. .:..*.:..|
00000db0  34 19 61 6e 3d 61 6e 2b  31 3a e7 20 61 6e 3d 33  |4.an=an+1:. an=3|
00000dc0  20 8c 20 61 6e 3d 31 0d  03 3e 0d d4 30 2c 33 2c  | . an=1..>..0,3,|
00000dd0  31 32 2c 32 0d 03 48 15  e7 20 44 45 41 44 3d b9  |12,2..H.. DEAD=.|
00000de0  20 8c 20 e5 20 8d 54 56  43 0d 03 52 15 e7 20 6d  | . . .TVC..R.. m|
00000df0  78 25 3e 31 39 20 8c 20  6d 78 25 3d 31 39 0d 03  |x%>19 . mx%=19..|
00000e00  5c 06 fb 31 0d 03 66 4c  e7 20 48 4f 55 53 45 3d  |\..1..fL. HOUSE=|
00000e10  b9 20 80 20 6d 78 25 3d  46 46 20 80 20 6d 79 25  |. . mx%=FF . my%|
00000e20  3d 47 47 20 8c 20 48 4f  55 53 45 3d a3 3a 73 63  |=GG . HOUSE=.:sc|
00000e30  72 65 65 6e 3d 73 63 72  65 65 6e 2b 31 3a f2 67  |reen=screen+1:.g|
00000e40  65 74 72 65 61 64 79 3a  e5 20 8d 44 68 41 20 20  |etready:. .DhA  |
00000e50  0d 03 70 0f f2 74 65 73  74 3a e5 8d 54 56 43 0d  |..p..test:..TVC.|
00000e60  03 7a 05 3a 0d 03 84 05  3a 0d 03 8e 3c dd 20 f2  |.z.:....:...<. .|
00000e70  62 6c 61 6e 6b 3a f2 6d  6f 76 65 3a e7 20 b0 6d  |blank:.move:. .m|
00000e80  78 25 2a 36 34 2c 31 30  32 33 2d 28 28 6d 79 25  |x%*64,1023-((my%|
00000e90  2b 32 29 2a 33 32 29 2b  31 32 29 3d 33 20 8c 20  |+2)*32)+12)=3 . |
00000ea0  44 49 45 3d b9 0d 03 98  05 e1 0d 03 a2 0d dd f2  |DIE=............|
00000eb0  67 65 74 74 65 73 74 0d  03 ac 05 e1 0d 03 b6 05  |gettest.........|
00000ec0  3a 0d 03 c0 34 dd f2 74  65 73 74 3a f2 70 6c 61  |:...4..test:.pla|
00000ed0  74 3a e7 20 b0 6d 78 25  2a 36 34 2c 31 30 32 33  |t:. .mx%*64,1023|
00000ee0  2d 28 6d 79 25 2b 32 29  2a 33 32 29 3d 30 20 8c  |-(my%+2)*32)=0 .|
00000ef0  f2 66 61 6c 6c 0d 03 ca  2c e7 20 b0 6d 78 25 2a  |.fall...,. .mx%*|
00000f00  36 34 2c 31 30 32 33 2d  28 28 6d 79 25 2b 32 29  |64,1023-((my%+2)|
00000f10  2a 33 32 29 2b 38 29 3d  32 20 8c f2 67 65 74 20  |*32)+8)=2 ..get |
00000f20  20 0d 03 d4 2e e7 20 b0  6d 78 25 2a 36 34 2c 31  | ..... .mx%*64,1|
00000f30  30 32 33 2d 28 28 6d 79  25 2b 32 29 2a 33 32 29  |023-((my%+2)*32)|
00000f40  2b 31 32 29 3d 33 20 8c  f2 64 69 65 3a e1 20 0d  |+12)=3 ..die:. .|
00000f50  03 de 05 e1 0d 03 e8 05  3a 0d 03 f2 45 dd f2 66  |........:...E..f|
00000f60  61 6c 6c 3a 5a 3d a3 3a  44 44 3d 30 3a fb 31 3a  |all:Z=.:DD=0:.1:|
00000f70  f5 3a 44 44 3d 44 44 2b  31 3a d4 26 30 30 31 31  |.:DD=DD+1:.&0011|
00000f80  2c 33 2c 32 30 30 2d 6d  79 25 2a 34 2c 32 3a 6d  |,3,200-my%*4,2:m|
00000f90  79 25 3d 6d 79 25 2b 31  3a d6 64 6f 77 6e 0d 03  |y%=my%+1:.down..|
00000fa0  fc 3f e7 20 b0 28 6d 78  25 2a 36 34 29 2b 38 2c  |.?. .(mx%*64)+8,|
00000fb0  31 30 32 33 2d 28 6d 79  25 2b 32 29 2a 33 32 29  |1023-(my%+2)*32)|
00000fc0  3d 32 20 8c 20 f1 8a 6d  78 25 2c 6d 79 25 2b 32  |=2 . ..mx%,my%+2|
00000fd0  29 3b 22 20 22 3a f2 67  65 74 20 20 20 0d 04 06  |);" ":.get   ...|
00000fe0  2b fd 20 b0 6d 78 25 2a  36 34 2c 31 30 32 33 2d  |+. .mx%*64,1023-|
00000ff0  28 6d 79 25 2b 32 29 2a  33 32 29 3c 3e 30 20 84  |(my%+2)*32)<>0 .|
00001000  20 6d 79 25 3e 32 36 20  0d 04 10 21 e7 20 5a 3d  | my%>26 ...!. Z=|
00001010  b9 20 8c 20 d4 26 30 30  31 30 2c 2d 31 35 2c 37  |. . .&0010,-15,7|
00001020  2c 31 30 3a 5a 3d a3 20  20 0d 04 1a 11 e7 20 44  |,10:Z=.  ..... D|
00001030  44 3e 36 20 8c 20 f2 64  69 65 0d 04 24 14 e7 20  |D>6 . .die..$.. |
00001040  6d 78 25 3e 3d 32 37 20  8c 20 f2 64 69 65 0d 04  |mx%>=27 . .die..|
00001050  2e 05 e1 0d 04 38 05 3a  0d 04 42 16 dd f2 6a 75  |.....8.:..B...ju|
00001060  6d 70 3a e7 20 6d 79 25  3c 31 20 8c 20 e1 0d 04  |mp:. my%<1 . ...|
00001070  4c 20 fb 32 3a e7 20 a6  28 2d 39 38 29 20 80 20  |L .2:. .(-98) . |
00001080  6d 78 25 3e 33 20 8c f2  6c 65 66 74 3a e1 0d 04  |mx%>3 ..left:...|
00001090  56 27 20 e7 20 a6 28 2d  36 37 29 20 80 20 6d 78  |V' . .(-67) . mx|
000010a0  25 3c 31 36 20 8c 20 f2  72 69 67 68 74 3a e1 20  |%<16 . .right:. |
000010b0  20 20 20 20 20 0d 04 60  09 f2 75 70 3a e1 0d 04  |     ..`..up:...|
000010c0  6a 05 3a 0d 04 74 6f dd  f2 6c 65 66 74 3a f2 62  |j.:..to..left:.b|
000010d0  6c 61 6e 6b 3a 6d 78 25  3d 6d 78 25 2d 31 3a 6d  |lank:mx%=mx%-1:m|
000010e0  79 25 3d 6d 79 25 2d 31  3a f2 6c 3a d6 20 75 70  |y%=my%-1:.l:. up|
000010f0  3a f2 77 61 69 74 3a f2  62 6c 61 6e 6b 3a 6d 78  |:.wait:.blank:mx|
00001100  25 3d 6d 78 25 2d 31 3a  f2 6c 3a f2 77 61 69 74  |%=mx%-1:.l:.wait|
00001110  3a f2 62 6c 61 6e 6b 3a  6d 78 25 3d 6d 78 25 2d  |:.blank:mx%=mx%-|
00001120  31 3a f2 6c 3a f2 77 61  69 74 3a f2 62 6c 61 6e  |1:.l:.wait:.blan|
00001130  6b 20 0d 04 7e 2a 6d 78  25 3d 6d 78 25 2d 31 3a  |k ..~*mx%=mx%-1:|
00001140  6d 79 25 3d 6d 79 25 2b  31 3a f2 6c 3a d6 20 64  |my%=my%+1:.l:. d|
00001150  6f 77 6e 3a f2 77 61 69  74 3a e1 20 0d 04 88 05  |own:.wait:. ....|
00001160  3a 0d 04 92 19 dd f2 77  61 69 74 3a e7 20 6d 78  |:......wait:. mx|
00001170  25 3d 30 20 8c 20 f2 75  70 73 0d 04 9c 3c f2 70  |%=0 . .ups...<.p|
00001180  6c 61 74 3a f2 74 65 73  74 79 3a f2 74 3a e7 20  |lat:.testy:.t:. |
00001190  73 6d 61 73 68 3d b9 20  8c 20 6d 79 25 3d 6d 79  |smash=. . my%=my|
000011a0  25 2d 31 3a 6d 78 25 3d  6d 78 25 2d 31 3a 73 6d  |%-1:mx%=mx%-1:sm|
000011b0  61 73 68 3d a3 20 0d 04  a6 2e e7 20 73 6d 61 73  |ash=. ..... smas|
000011c0  68 32 3d b9 20 8c 20 6d  79 25 3d 6d 79 25 2d 31  |h2=. . my%=my%-1|
000011d0  3a 6d 78 25 3d 6d 78 25  2d 31 3a 73 6d 61 73 68  |:mx%=mx%-1:smash|
000011e0  32 3d a3 20 0d 04 b0 08  f2 74 3a e1 0d 04 ba 05  |2=. .....t:.....|
000011f0  3a 0d 04 c4 70 dd f2 72  69 67 68 74 3a f2 62 6c  |:...p..right:.bl|
00001200  61 6e 6b 3a 6d 78 25 3d  6d 78 25 2b 31 3a 6d 79  |ank:mx%=mx%+1:my|
00001210  25 3d 6d 79 25 2d 31 3a  f2 72 3a d6 20 75 70 3a  |%=my%-1:.r:. up:|
00001220  f2 77 61 69 74 3a f2 62  6c 61 6e 6b 3a 6d 78 25  |.wait:.blank:mx%|
00001230  3d 6d 78 25 2b 31 3a f2  72 3a f2 77 61 69 74 3a  |=mx%+1:.r:.wait:|
00001240  f2 62 6c 61 6e 6b 3a 6d  78 25 3d 6d 78 25 2b 31  |.blank:mx%=mx%+1|
00001250  3a f2 72 3a f2 77 61 69  74 3a f2 62 6c 61 6e 6b  |:.r:.wait:.blank|
00001260  20 0d 04 ce 2b 6d 78 25  3d 6d 78 25 2b 31 3a 6d  | ...+mx%=mx%+1:m|
00001270  79 25 3d 6d 79 25 2b 31  3a f2 72 3a d6 20 64 6f  |y%=my%+1:.r:. do|
00001280  77 6e 3a f2 77 61 69 74  3a e1 20 20 0d 04 d8 05  |wn:.wait:.  ....|
00001290  3a 0d 04 e2 22 dd f2 6c  3a d6 20 6c 65 66 74 3a  |:..."..l:. left:|
000012a0  e3 64 3d 30 20 b8 20 35  30 3a ed 3a d6 6c 65 66  |.d=0 . 50:.:.lef|
000012b0  74 3a e1 0d 04 ec 24 dd  f2 72 3a d6 20 72 69 67  |t:....$..r:. rig|
000012c0  68 74 3a e3 64 3d 30 20  b8 20 35 30 3a ed 3a d6  |ht:.d=0 . 50:.:.|
000012d0  72 69 67 68 74 3a e1 0d  04 f6 20 dd f2 75 70 3a  |right:.... ..up:|
000012e0  d6 75 70 3a d6 75 70 3a  d6 20 64 6f 77 6e 3a d6  |.up:.up:. down:.|
000012f0  20 64 6f 77 6e 3a e1 0d  05 00 05 3a 0d 05 0a 15  | down:.....:....|
00001300  dd f2 74 3a e3 20 41 3d  31 20 b8 20 32 3a ed 3a  |..t:. A=1 . 2:.:|
00001310  e1 0d 05 14 05 3a 0d 05  1e 13 dd f2 77 61 69 74  |.....:......wait|
00001320  31 3a f2 70 6c 61 74 3a  e1 0d 05 28 05 3a 0d 05  |1:.plat:...(.:..|
00001330  32 1f dd f2 64 69 65 3a  e3 20 41 3d 6d 79 25 20  |2...die:. A=my% |
00001340  b8 20 32 38 3a d6 20 64  6f 77 6e 3a ed 0d 05 3c  |. 28:. down:...<|
00001350  5b 41 3d 33 3a d4 31 2c  32 2c 34 38 2c 41 3a d4  |[A=3:.1,2,48,A:.|
00001360  31 2c 32 2c 34 30 2c 41  3a d4 31 2c 32 2c 33 32  |1,2,40,A:.1,2,32|
00001370  2c 41 3a d4 31 2c 32 2c  32 34 2c 41 3a d4 31 2c  |,A:.1,2,24,A:.1,|
00001380  32 2c 32 30 2c 41 3a d4  31 2c 32 2c 31 32 2c 41  |2,20,A:.1,2,12,A|
00001390  3a d4 31 2c 32 2c 34 2c  41 2a 33 3a d4 31 2c 32  |:.1,2,4,A*3:.1,2|
000013a0  2c 35 32 2c 41 20 20 20  0d 05 46 0c 2a 46 58 20  |,52,A   ..F.*FX |
000013b0  31 35 2c 31 0d 05 50 18  44 49 45 3d a3 3a f2 67  |15,1..P.DIE=.:.g|
000013c0  6f 76 65 72 3a f2 64 72  61 77 3a e1 0d 05 5a 05  |over:.draw:...Z.|
000013d0  3a 0d 05 64 1d dd f2 6d  6f 76 65 3a e7 52 3d b9  |:..d...move:.R=.|
000013e0  20 80 20 53 3e 53 54 4f  20 8c 20 52 3d a3 0d 05  | . S>STO . R=...|
000013f0  6e 22 f4 49 46 20 44 45  41 44 3d 54 52 55 45 20  |n".IF DEAD=TRUE |
00001400  54 48 45 4e 20 45 4e 44  50 52 4f 43 20 20 20 20  |THEN ENDPROC    |
00001410  0d 05 78 15 e7 52 3d a3  20 80 20 53 3c 53 54 20  |..x..R=. . S<ST |
00001420  8c 20 52 3d b9 0d 05 82  1d f1 8a 53 2c 4c 4c 29  |. R=.......S,LL)|
00001430  3b 22 20 22 3a e7 20 52  3d b9 20 8c 20 53 3d 53  |;" ":. R=. . S=S|
00001440  2b 31 0d 05 8c 11 e7 20  52 3d a3 20 8c 20 53 3d  |+1..... R=. . S=|
00001450  53 2d 31 0d 05 96 1a fb  33 3a f1 8a 53 2c 4c 4c  |S-1.....3:..S,LL|
00001460  29 3b bd 28 32 33 30 29  3a fb 32 3a e1 0d 05 a0  |);.(230):.2:....|
00001470  05 3a 0d 05 aa 65 dd 20  f2 67 65 74 72 65 61 64  |.:...e. .getread|
00001480  79 3a e6 20 30 2c 30 3a  e3 20 41 3d 30 20 b8 20  |y:. 0,0:. A=0 . |
00001490  36 34 30 20 88 20 38 3a  d4 26 30 30 31 31 2c 33  |640 . 8:.&0011,3|
000014a0  2c 32 30 30 2d 41 2f 35  2c 31 30 3a ec 20 41 2c  |,200-A/5,10:. A,|
000014b0  30 3a df 20 41 2c 31 30  32 33 3a ec 20 31 32 37  |0:. A,1023:. 127|
000014c0  39 2d 41 2c 30 3a df 20  31 32 37 39 2d 41 2c 31  |9-A,0:. 1279-A,1|
000014d0  30 32 33 3a ed 20 41 0d  05 b4 14 fb 33 3a e7 20  |023:. A.....3:. |
000014e0  62 6f 6e 75 73 3c 35 20  8c 20 e1 0d 05 be 28 f1  |bonus<5 . ....(.|
000014f0  8a 35 2c 35 29 3b 22 54  69 6d 65 20 42 6f 6e 75  |.5,5);"Time Bonu|
00001500  73 22 3b 8a 38 2c 37 29  3b 62 6f 6e 75 73 20 20  |s";.8,7);bonus  |
00001510  20 20 20 0d 05 c8 33 73  63 25 3d 73 63 25 2b 62  |   ...3sc%=sc%+b|
00001520  6f 6e 75 73 3a 62 6f 6e  75 73 3d 31 31 30 30 3a  |onus:bonus=1100:|
00001530  e3 41 3d 30 20 b8 20 32  30 30 30 3a ed 3a fb 31  |.A=0 . 2000:.:.1|
00001540  32 38 3a db 3a e1 0d 05  d2 05 3a 0d 05 dc 47 dd  |28:.:.....:...G.|
00001550  f2 67 6f 76 65 72 3a 62  6f 6e 75 73 3d 31 31 30  |.gover:bonus=110|
00001560  30 3a 6c 69 76 65 73 3d  6c 69 76 65 73 2d 31 3a  |0:lives=lives-1:|
00001570  e7 20 6c 69 76 65 73 3d  30 20 8c 20 e5 20 8d 64  |. lives=0 . . .d|
00001580  66 45 20 8b 20 f2 73 74  61 72 74 61 67 61 69 6e  |fE . .startagain|
00001590  3a e1 0d 05 e6 13 e3 20  54 3d 30 20 b8 20 31 30  |:...... T=0 . 10|
000015a0  30 30 3a ed 20 0d 05 f0  19 dc 20 52 2c 45 2c 56  |00:. ..... R,E,V|
000015b0  2c 4f 2c 22 20 22 2c 45  2c 4d 2c 41 2c 47 0d 05  |,O," ",E,M,A,G..|
000015c0  fa 6b f7 20 8d 64 70 45  3a e3 20 41 3d 31 20 b8  |.k. .dpE:. A=1 .|
000015d0  20 39 3a f3 20 41 24 3a  e3 20 54 3d 31 20 b8 20  | 9:. A$:. T=1 . |
000015e0  31 33 2d 41 3a d4 26 30  30 31 31 2c 2d 31 35 2c  |13-A:.&0011,-15,|
000015f0  54 2b 35 30 2c 32 3a f1  8a 54 2c 31 35 29 3b 41  |T+50,2:..T,15);A|
00001600  24 3a e3 20 53 3d 30 20  b8 20 34 30 3a ed 3a f1  |$:. S=0 . 40:.:.|
00001610  8a 54 2c 31 35 29 3b 22  20 22 3a ed 3a f1 8a 54  |.T,15);" ":.:..T|
00001620  2c 31 35 29 3b 41 24 3a  ed 0d 06 04 1b e3 20 54  |,15);A$:...... T|
00001630  3d 30 20 b8 20 33 30 30  30 3a ed 3a 44 45 41 44  |=0 . 3000:.:DEAD|
00001640  3d b9 3a e1 0d 06 0e 05  3a 0d 06 18 43 dd f2 75  |=.:.....:...C..u|
00001650  70 73 3a e7 20 6d 79 25  3d 31 20 e1 20 8b 20 fb  |ps:. my%=1 . . .|
00001660  31 3a e3 41 3d 6d 79 25  20 b8 20 32 20 88 2d 31  |1:.A=my% . 2 .-1|
00001670  3a d4 31 2c 31 2c 35 30  2d 41 2c 31 3a d6 20 75  |:.1,1,50-A,1:. u|
00001680  70 3a ed 3a 6d 79 25 3d  31 3a e1 20 0d 06 22 05  |p:.:my%=1:. ..".|
00001690  3a 0d 06 2c 10 dd f2 64  28 41 2c 42 2c 43 2c 44  |:..,...d(A,B,C,D|
000016a0  29 0d 06 36 06 fb 37 0d  06 40 2b e7 20 42 3c 3e  |)..6..7..@+. B<>|
000016b0  32 38 20 8c 20 f2 64 6c  28 41 2c 42 2c 43 2c 44  |28 . .dl(A,B,C,D|
000016c0  29 20 8b 20 f1 8a 41 2c  42 29 3b c4 31 39 2c bd  |) . ..A,B);.19,.|
000016d0  44 29 0d 06 4a 05 e1 0d  06 54 05 3a 0d 06 5e 0a  |D)..J....T.:..^.|
000016e0  dd f2 70 6c 61 74 0d 06  68 0e e7 20 50 4c 45 56  |..plat..h.. PLEV|
000016f0  3d 30 20 e1 0d 06 72 20  70 6c 3d 70 6c 2b 31 3a  |=0 ...r pl=pl+1:|
00001700  e7 20 70 6c 3d 32 20 8c  20 70 6c 3d 30 20 8b 20  |. pl=2 . pl=0 . |
00001710  e1 20 20 20 0d 06 7c 17  20 f1 8a 50 2c 50 4c 45  |.   ..|. ..P,PLE|
00001720  56 29 3b 22 20 20 20 20  22 20 20 0d 06 86 07 fb  |V);"    "  .....|
00001730  20 37 0d 06 90 13 e7 20  44 49 52 3d b9 20 8c 20  | 7..... DIR=. . |
00001740  50 3d 50 2b 31 0d 06 9a  13 e7 20 44 49 52 3d a3  |P=P+1..... DIR=.|
00001750  20 8c 20 50 3d 50 2d 31  0d 06 a4 14 f1 8a 50 2c  | . P=P-1......P,|
00001760  50 4c 45 56 29 3b 70 6c  61 74 24 20 0d 06 ae 16  |PLEV);plat$ ....|
00001770  e7 20 50 3d 50 53 54 4f  20 8c 20 44 49 52 3d a3  |. P=PSTO . DIR=.|
00001780  20 20 0d 06 b8 14 e7 20  50 3d 50 53 54 41 20 8c  |  ..... P=PSTA .|
00001790  20 44 49 52 3d b9 0d 06  c2 06 fb 32 0d 06 cc 05  | DIR=......2....|
000017a0  e1 0d 06 d6 05 3a 0d 06  e0 11 dd 20 f2 73 74 61  |.....:..... .sta|
000017b0  72 74 61 67 61 69 6e 0d  06 ea 11 e3 53 3d 30 20  |rtagain.....S=0 |
000017c0  b8 20 34 30 30 30 3a ed  0d 06 f4 05 e1 0d 06 fe  |. 4000:.........|
000017d0  05 3a 0d 07 08 0c dd 20  f2 69 6e 73 74 73 0d 07  |.:..... .insts..|
000017e0  12 25 20 e7 20 73 63 25  3e 3d 73 63 6f 72 65 25  |.% . sc%>=score%|
000017f0  28 38 29 20 8c 20 f2 65  6e 74 65 72 6e 61 6d 65  |(8) . .entername|
00001800  20 20 20 0d 07 1c 0a 44  45 41 44 3d a3 0d 07 26  |   ....DEAD=...&|
00001810  05 db 0d 07 30 1a f1 8a  30 2c 31 29 3b c4 32 30  |....0...0,1);.20|
00001820  2c bd 28 32 34 32 29 2b  22 20 22 29 0d 07 3a 20  |,.(242)+" ")..: |
00001830  f1 8a 31 30 2c 33 29 3b  22 53 61 6e 74 61 27 73  |..10,3);"Santa's|
00001840  20 53 6c 69 70 20 2d 20  55 70 21 22 0d 07 44 1a  | Slip - Up!"..D.|
00001850  f1 8a 30 2c 35 29 3b c4  32 30 2c bd 28 32 34 32  |..0,5);.20,.(242|
00001860  29 2b 22 20 22 29 0d 07  4e 23 f1 8a 31 30 2c 32  |)+" ")..N#..10,2|
00001870  30 29 3b 22 50 52 45 53  53 20 53 50 41 43 45 20  |0);"PRESS SPACE |
00001880  54 4f 20 53 54 41 52 54  22 0d 07 58 33 f1 8a 31  |TO START"..X3..1|
00001890  2c 31 35 29 3b 22 5a 20  3d 20 4c 65 66 74 20 20  |,15);"Z = Left  |
000018a0  20 58 20 3d 20 52 69 67  68 74 20 20 20 20 52 65  | X = Right    Re|
000018b0  74 75 72 6e 20 3d 20 4a  75 6d 70 22 0d 07 62 21  |turn = Jump"..b!|
000018c0  f1 8a 31 2c 38 29 3b 22  53 20 3d 20 53 6f 75 6e  |..1,8);"S = Soun|
000018d0  64 20 20 51 20 3d 20 51  75 69 65 74 22 0d 07 6c  |d  Q = Quiet"..l|
000018e0  26 f1 8a 31 2c 31 31 29  3b 22 50 20 3d 20 50 61  |&..1,11);"P = Pa|
000018f0  75 73 65 20 20 52 20 3d  20 52 65 73 75 6d 65 22  |use  R = Resume"|
00001900  20 20 20 0d 07 76 13 ef  32 33 2c 31 2c 30 3b 30  |   ..v..23,1,0;0|
00001910  3b 30 3b 30 3b 20 0d 07  80 13 41 24 3d be 3a e7  |;0;0; ....A$=.:.|
00001920  20 41 24 3d 22 20 22 8c  e1 0d 07 8a 17 e7 20 41  | A$=" "....... A|
00001930  24 3d 22 53 22 20 8c 20  2a 46 58 32 31 30 2c 30  |$="S" . *FX210,0|
00001940  0d 07 94 17 e7 20 41 24  3d 22 51 22 20 8c 20 2a  |..... A$="Q" . *|
00001950  46 58 32 31 30 2c 31 0d  07 9e 09 e5 8d 74 40 47  |FX210,1......t@G|
00001960  0d 07 a8 05 e1 0d 07 b2  05 3a 0d 07 bc 1c dd f2  |.........:......|
00001970  74 65 73 74 79 3a 73 6d  61 73 68 3d a3 3a 73 6d  |testy:smash=.:sm|
00001980  61 73 68 32 3d a3 0d 07  c6 05 e1 0d 07 d0 36 e7  |ash2=.........6.|
00001990  20 b0 28 6d 78 25 2d 31  29 2a 36 34 2c 31 30 32  | .(mx%-1)*64,102|
000019a0  33 2d 28 6d 79 25 2b 31  29 2a 33 32 29 3d 33 20  |3-(my%+1)*32)=3 |
000019b0  8c 20 46 41 4c 4c 3d b9  3a 73 6d 61 73 68 32 3d  |. FALL=.:smash2=|
000019c0  b9 0d 07 da 35 e7 20 b0  28 6d 78 25 2b 31 29 2a  |....5. .(mx%+1)*|
000019d0  36 34 2c 31 30 32 33 2d  28 6d 79 25 2b 31 29 2a  |64,1023-(my%+1)*|
000019e0  33 32 29 3d 33 20 8c 20  46 41 4c 4c 3d b9 3a 73  |32)=3 . FALL=.:s|
000019f0  6d 61 73 68 3d b9 0d 07  e4 18 e7 20 46 41 4c 4c  |mash=...... FALL|
00001a00  3d b9 20 f2 64 69 65 3a  46 41 4c 4c 3d a3 0d 07  |=. .die:FALL=...|
00001a10  ee 05 e1 0d 07 f8 05 3a  0d 08 02 09 dd f2 67 65  |.......:......ge|
00001a20  74 0d 08 0c 13 d4 26 30  30 31 31 2c 2d 31 35 2c  |t.....&0011,-15,|
00001a30  32 35 2c 31 0d 08 16 0e  73 63 25 3d 73 63 25 2b  |25,1....sc%=sc%+|
00001a40  31 30 0d 08 20 0b f2 75  70 64 61 74 65 0d 08 2a  |10.. ..update..*|
00001a50  22 45 45 3d 45 45 2b 31  3a e7 20 45 45 3d 31 31  |"EE=EE+1:. EE=11|
00001a60  20 8c 20 45 45 3d 31 3a  48 4f 55 53 45 3d b9 0d  | . EE=1:HOUSE=..|
00001a70  08 34 12 f1 8a 6d 78 25  2c 6d 79 25 29 3b 22 20  |.4...mx%,my%);" |
00001a80  22 0d 08 3e 15 f1 8a 6d  78 25 2c 6d 79 25 2b 31  |"..>...mx%,my%+1|
00001a90  29 3b 22 20 22 20 0d 08  48 0a d6 26 31 44 30 30  |);" " ..H..&1D00|
00001aa0  0d 08 52 06 fb 31 0d 08  5c 2e e7 20 48 4f 55 53  |..R..1..\.. HOUS|
00001ab0  45 3d b9 20 8c 20 f1 8a  30 2c 33 30 29 3b 22 20  |E=. . ..0,30);" |
00001ac0  59 6f 75 72 20 73 61 63  6b 20 69 73 20 66 75 6c  |Your sack is ful|
00001ad0  6c 21 22 20 0d 08 66 1a  e7 20 48 4f 55 53 45 3d  |l!" ..f.. HOUSE=|
00001ae0  b9 20 8c 20 f1 8a 30 2c  32 39 29 3b 89 33 0d 08  |. . ..0,29);.3..|
00001af0  70 05 e1 0d 08 7a 05 3a  0d 08 84 0a dd 20 f2 77  |p....z.:..... .w|
00001b00  69 6e 0d 08 8e 0b fb 33  3a fb 31 32 39 0d 08 98  |in.....3:.129...|
00001b10  0d f1 8a 31 2c 34 29 89  31 37 0d 08 a2 1e f1 8a  |...1,4).17......|
00001b20  31 2c 35 29 3b 22 20 43  4f 4e 47 52 41 54 55 4c  |1,5);" CONGRATUL|
00001b30  41 54 49 4f 4e 53 20 22  0d 08 ac 0d f1 8a 31 2c  |ATIONS "......1,|
00001b40  38 29 89 31 37 0d 08 b6  0e f1 8a 31 2c 36 29 89  |8).17......1,6).|
00001b50  31 37 20 0d 08 c0 35 e7  20 6c 69 76 65 73 3c 33  |17 ...5. lives<3|
00001b60  20 8c 20 f1 8a 31 2c 37  29 22 20 20 45 58 54 52  | . ..1,7)"  EXTR|
00001b70  41 20 4d 41 4e 20 41 4e  44 20 20 22 20 8b 20 f1  |A MAN AND  " . .|
00001b80  8a 31 2c 37 29 89 31 37  0d 08 ca 12 f1 8a 34 2c  |.1,7).17......4,|
00001b90  31 31 29 89 31 31 20 20  20 20 0d 08 d4 1a f1 8a  |11).11    ......|
00001ba0  34 2c 31 32 29 3b 22 20  42 20 4f 20 4e 20 55 20  |4,12);" B O N U |
00001bb0  53 20 22 20 0d 08 de 0f  f1 8a 34 2c 31 33 29 89  |S " ......4,13).|
00001bc0  31 31 20 0d 08 e8 0d f1  8a 37 2c 31 36 29 89 35  |11 ......7,16).5|
00001bd0  0d 08 f2 13 f1 8a 37 2c  31 37 29 3b 22 20 35 30  |......7,17);" 50|
00001be0  30 20 22 0d 08 fc 0d f1  8a 37 2c 31 38 29 89 35  |0 "......7,18).5|
00001bf0  0d 09 06 09 fb 20 31 32  38 0d 09 10 21 f1 8a 31  |..... 128...!..1|
00001c00  2c 32 29 3b c4 39 2c 73  6e 6f 77 6d 61 6e 24 2b  |,2);.9,snowman$+|
00001c10  bd 31 31 2b bd 33 32 29  20 20 0d 09 1a 14 f1 8a  |.11+.32)  ......|
00001c20  32 2c 31 30 29 3b 73 6e  6f 77 6d 61 6e 24 0d 09  |2,10);snowman$..|
00001c30  24 16 f1 8a 31 36 2c 31  30 29 3b 73 6e 6f 77 6d  |$...16,10);snowm|
00001c40  61 6e 24 20 0d 09 2e 15  f1 8a 35 2c 31 37 29 3b  |an$ ......5,17);|
00001c50  73 6e 6f 77 6d 61 6e 24  20 0d 09 38 16 f1 8a 31  |snowman$ ..8...1|
00001c60  33 2c 31 37 29 3b 73 6e  6f 77 6d 61 6e 24 20 0d  |3,17);snowman$ .|
00001c70  09 42 13 e3 20 41 3d 30  20 b8 20 31 30 30 20 88  |.B.. A=0 . 100 .|
00001c80  20 34 0d 09 4c 0c d4 31  2c 32 2c 41 2c 32 0d 09  | 4..L..1,2,A,2..|
00001c90  56 0c d4 31 2c 32 2c 31  2c 31 0d 09 60 05 ed 0d  |V..1,2,1,1..`...|
00001ca0  09 6a 13 73 63 72 65 65  6e 3d 73 63 72 65 65 6e  |.j.screen=screen|
00001cb0  2b 31 0d 09 74 10 73 63  25 3d 73 63 25 2b 35 30  |+1..t.sc%=sc%+50|
00001cc0  30 20 0d 09 7e 1d e7 20  6c 69 76 65 73 3c 33 20  |0 ..~.. lives<3 |
00001cd0  8c 20 6c 69 76 65 73 3d  6c 69 76 65 73 2b 31 0d  |. lives=lives+1.|
00001ce0  09 88 05 db 0d 09 92 05  e1 0d 09 9c 05 3a 0d 09  |.............:..|
00001cf0  a6 0c dd 20 f2 74 75 6e  65 20 0d 09 b0 0a f7 20  |... .tune ..... |
00001d00  8d 54 4a 4a 0d 09 ba 09  41 3d 37 20 20 0d 09 c4  |.TJJ....A=7  ...|
00001d10  0e e3 20 54 3d 31 20 b8  20 31 37 0d 09 ce 09 f3  |.. T=1 . 17.....|
00001d20  20 43 2c 44 0d 09 d8 1f  e7 20 43 3d 39 39 39 20  | C,D..... C=999 |
00001d30  8c 20 d4 31 2c 30 2c 30  2c 41 2f 32 3a e5 20 8d  |. .1,0,0,A/2:. .|
00001d40  54 40 4a 0d 09 e2 0d d4  31 2c 33 2c 43 2c 44 20  |T@J.....1,3,C,D |
00001d50  0d 09 ec 0e d4 31 2c 30  2c 30 2c 30 2e 35 0d 09  |.....1,0,0,0.5..|
00001d60  f6 0a d6 72 69 67 68 74  0d 0a 00 07 ed 20 54 0d  |...right..... T.|
00001d70  0a 0a 69 dc 35 32 2c 41  2c 37 32 2c 41 2c 37 32  |..i.52,A,72,A,72|
00001d80  2c 41 2c 37 32 2c 41 2c  38 30 2c 41 2c 38 38 2c  |,A,72,A,80,A,88,|
00001d90  41 2f 32 2c 38 30 2c 41  2f 32 2c 38 38 2c 41 2f  |A/2,80,A/2,88,A/|
00001da0  32 2c 39 32 2c 41 2f 32  2c 31 30 30 2c 41 2c 38  |2,92,A/2,100,A,8|
00001db0  38 2c 41 2c 39 32 2c 41  2c 38 38 2c 41 2f 32 2c  |8,A,92,A,88,A/2,|
00001dc0  37 32 2c 41 2f 32 2c 38  30 2c 41 2c 38 30 2c 41  |72,A/2,80,A,80,A|
00001dd0  2c 37 32 2c 41 2a 32 20  0d 0a 14 09 e6 20 30 2c  |,72,A*2 ..... 0,|
00001de0  30 0d 0a 1e 05 20 0d 0a  28 13 e3 20 5a 3d 30 20  |0.... ..(.. Z=0 |
00001df0  b8 20 33 30 30 30 3a ed  20 0d 0a 32 05 e1 0d 0a  |. 3000:. ..2....|
00001e00  3c 05 3a 0d 0a 46 0c dd  20 f2 74 61 62 6c 65 0d  |<.:..F.. .table.|
00001e10  0a 50 20 e7 20 73 63 25  3e 73 63 6f 72 65 25 28  |.P . sc%>score%(|
00001e20  38 29 20 8c 20 f2 65 6e  74 65 72 6e 61 6d 65 0d  |8) . .entername.|
00001e30  0a 5a 05 db 0d 0a 64 15  f1 27 c4 32 30 2c bd 28  |.Z....d..'.20,.(|
00001e40  32 34 32 29 2b 22 20 22  29 0d 0a 6e 3f f1 20 22  |242)+" ")..n?. "|
00001e50  20 20 53 61 6e 74 61 27  73 20 53 6c 69 70 20 2d  |  Santa's Slip -|
00001e60  20 55 70 21 22 3b 89 36  3b 22 48 69 20 2d 20 53  | Up!";.6;"Hi - S|
00001e70  63 6f 72 65 73 22 3a f1  27 c4 32 30 2c bd 28 32  |cores":.'.20,.(2|
00001e80  34 32 29 2b 22 20 22 29  0d 0a 78 0e e3 20 49 25  |42)+" ")..x.. I%|
00001e90  3d 31 20 b8 20 38 0d 0a  82 32 f1 3b 8a 35 29 3b  |=1 . 8...2.;.5);|
00001ea0  49 25 3b 22 2e 20 20 22  3b 8a 31 30 29 3b 6e 61  |I%;".  ";.10);na|
00001eb0  6d 65 24 28 49 25 29 3b  8a 33 30 29 3b 73 63 6f  |me$(I%);.30);sco|
00001ec0  72 65 25 28 49 25 29 20  0d 0a 8c 05 f1 0d 0a 96  |re%(I%) ........|
00001ed0  05 ed 0d 0a a0 0b 2a 46  58 31 35 2c 31 0d 0a aa  |......*FX15,1...|
00001ee0  20 f1 8a 39 29 22 50 72  65 73 73 20 3c 53 50 41  | ..9)"Press <SPA|
00001ef0  43 45 3e 20 74 6f 20 70  6c 61 79 21 22 0d 0a b4  |CE> to play!"...|
00001f00  0a f5 fd a5 3d 33 32 0d  0a be 1a 44 45 41 44 3d  |....=32....DEAD=|
00001f10  a3 3a 48 4f 55 53 45 3d  a3 3a 6c 69 76 65 73 3d  |.:HOUSE=.:lives=|
00001f20  33 0d 0a c8 13 73 63 72  65 65 6e 3d 30 3a 73 63  |3....screen=0:sc|
00001f30  25 3d 30 20 0d 0a d2 05  e1 0d 0a dc 05 3a 0d 0a  |%=0 .........:..|
00001f40  e6 0c dd 20 f2 69 6e 69  74 32 0d 0a f0 09 f7 8d  |... .init2......|
00001f50  54 48 4c 0d 0a fa 18 de  20 73 63 6f 72 65 25 28  |THL..... score%(|
00001f60  38 29 2c 6e 61 6d 65 24  28 38 29 0d 0b 04 0f e3  |8),name$(8).....|
00001f70  20 49 25 3d 31 20 b8 20  38 20 0d 0b 0e 1e 73 63  | I%=1 . 8 ....sc|
00001f80  6f 72 65 25 28 49 25 29  3d 35 30 30 30 20 2d 20  |ore%(I%)=5000 - |
00001f90  49 25 2a 35 30 30 20 20  0d 0b 18 15 f3 20 41 24  |I%*500  ..... A$|
00001fa0  3a 6e 61 6d 65 24 28 49  25 29 3d 41 24 0d 0b 22  |:name$(I%)=A$.."|
00001fb0  08 ed 20 49 25 0d 0b 2c  05 e1 0d 0b 36 05 3a 0d  |.. I%..,....6.:.|
00001fc0  0b 40 10 dd 20 f2 65 6e  74 65 72 6e 61 6d 65 0d  |.@.. .entername.|
00001fd0  0b 4a 0a fb 31 32 38 3a  db 0d 0b 54 07 fb 20 33  |.J..128:...T.. 3|
00001fe0  0d 0b 5e 1b f1 8a 30 2c  33 29 3b c4 32 30 2c bd  |..^...0,3);.20,.|
00001ff0  28 32 34 32 29 2b 22 20  22 29 20 0d 0b 68 20 f1  |(242)+" ") ..h .|
00002000  8a 35 2c 35 29 3b 22 2a  2a 43 6f 6e 67 72 61 74  |.5,5);"**Congrat|
00002010  75 6c 61 74 69 6f 6e 73  2a 2a 22 0d 0b 72 1a f1  |ulations**"..r..|
00002020  8a 30 2c 37 29 3b c4 32  30 2c bd 28 32 34 32 29  |.0,7);.20,.(242)|
00002030  2b 22 20 22 29 0d 0b 7c  05 f1 0d 0b 86 47 f1 20  |+" ")..|.....G. |
00002040  27 22 59 6f 75 20 61 72  65 20 69 6e 20 74 68 65  |'"You are in the|
00002050  20 68 69 67 68 20 73 63  6f 72 65 20 74 61 62 6c  | high score tabl|
00002060  65 21 22 27 27 22 57 68  61 74 20 69 73 20 79 6f  |e!"''"What is yo|
00002070  75 72 20 6e 61 6d 65 3f  22 27 27 27 27 22 3f 22  |ur name?"''''"?"|
00002080  3b 0d 0b 90 0c 2a 46 58  20 31 35 2c 31 0d 0b 9a  |;....*FX 15,1...|
00002090  21 fb 31 3a 73 74 72 69  6e 67 24 3d 22 22 3a ef  |!.1:string$="":.|
000020a0  20 32 33 2c 31 2c 31 3b  30 3b 30 3b 30 3b 0d 0b  | 23,1,1;0;0;0;..|
000020b0  a4 0d f5 3a 4b 25 3d a6  28 30 29 0d 0b ae 34 e7  |...:K%=.(0)...4.|
000020c0  20 4b 25 3e 33 31 20 80  20 4b 25 3c 31 32 37 20  | K%>31 . K%<127 |
000020d0  80 20 b1 3c 31 38 20 73  74 72 69 6e 67 24 3d 73  |. .<18 string$=s|
000020e0  74 72 69 6e 67 24 2b bd  4b 25 3a ef 4b 25 20 0d  |tring$+.K%:.K% .|
000020f0  0b b8 42 e7 20 4b 25 3d  31 32 37 20 80 20 a9 20  |..B. K%=127 . . |
00002100  73 74 72 69 6e 67 24 20  73 74 72 69 6e 67 24 3d  |string$ string$=|
00002110  c0 73 74 72 69 6e 67 24  2c a9 28 73 74 72 69 6e  |.string$,.(strin|
00002120  67 24 29 2d 31 29 3a e7  20 b1 3e 31 20 ef 20 4b  |g$)-1):. .>1 . K|
00002130  25 0d 0b c2 0b fd 20 4b  25 3d 31 33 0d 0b cc 22  |%..... K%=13..."|
00002140  73 63 6f 72 65 25 28 38  29 3d 73 63 25 3a 6e 61  |score%(8)=sc%:na|
00002150  6d 65 24 28 38 29 3d 73  74 72 69 6e 67 24 0d 0b  |me$(8)=string$..|
00002160  d6 13 e3 20 49 25 3d 38  20 b8 20 32 20 88 20 2d  |... I%=8 . 2 . -|
00002170  31 0d 0b e0 92 e7 20 73  63 6f 72 65 25 28 49 25  |1..... score%(I%|
00002180  29 3e 73 63 6f 72 65 25  28 49 25 2d 31 29 20 73  |)>score%(I%-1) s|
00002190  63 25 3d 73 63 6f 72 65  25 28 49 25 29 3a 73 63  |c%=score%(I%):sc|
000021a0  6f 72 65 25 28 49 25 29  3d 73 63 6f 72 65 25 28  |ore%(I%)=score%(|
000021b0  49 25 2d 31 29 3a 73 63  6f 72 65 25 28 49 25 2d  |I%-1):score%(I%-|
000021c0  31 29 3d 73 63 25 3a 73  74 72 69 6e 67 24 3d 6e  |1)=sc%:string$=n|
000021d0  61 6d 65 24 28 49 25 29  3a 6e 61 6d 65 24 28 49  |ame$(I%):name$(I|
000021e0  25 29 3d 6e 61 6d 65 24  28 49 25 2d 31 29 3a 6e  |%)=name$(I%-1):n|
000021f0  61 6d 65 24 28 49 25 2d  31 29 3d 73 74 72 69 6e  |ame$(I%-1)=strin|
00002200  67 24 20 0d 0b ea 08 ed  20 49 25 0d 0b f4 05 e1  |g$ ..... I%.....|
00002210  0d 0b fe 05 3a 0d 0c 08  91 dc 20 22 57 72 69 74  |....:..... "Writ|
00002220  74 65 6e 20 42 79 3a 22  2c 22 4f 6c 69 76 65 72  |ten By:","Oliver|
00002230  20 42 69 73 68 6f 70 22  2c 22 4f 72 69 67 69 6e  | Bishop","Origin|
00002240  61 6c 20 53 63 72 65 65  6e 73 20 62 79 22 2c 22  |al Screens by","|
00002250  53 74 75 61 72 74 20 57  69 6c 6c 69 61 6d 73 22  |Stuart Williams"|
00002260  2c 22 4a 75 6c 69 61 6e  20 42 69 73 68 6f 70 22  |,"Julian Bishop"|
00002270  2c 22 50 68 69 6c 69 70  20 4a 65 66 66 65 72 69  |,"Philip Jefferi|
00002280  65 73 22 2c 22 52 61 73  68 69 64 20 51 75 72 65  |es","Rashid Qure|
00002290  73 68 69 22 2c 22 4a 6f  6e 61 74 68 61 6e 20 50  |shi","Jonathan P|
000022a0  72 69 63 65 22 20 0d 0c  12 05 3a 0d 0c 1c 0c dd  |rice" ....:.....|
000022b0  f2 6c 69 67 68 74 73 0d  0c 26 0d d4 30 2c 33 2c  |.lights..&..0,3,|
000022c0  31 32 2c 31 0d 0c 30 0a  41 3d b3 28 32 29 0d 0c  |12,1..0.A=.(2)..|
000022d0  3a 1b e7 20 41 3d 31 20  8c 20 ef 20 31 39 2c 33  |:.. A=1 . . 19,3|
000022e0  2c 31 35 2c 30 2c 30 2c  30 0d 0c 44 1a e7 20 41  |,15,0,0,0..D.. A|
000022f0  3d 32 20 8c 20 ef 20 31  39 2c 33 2c 37 2c 30 2c  |=2 . . 19,3,7,0,|
00002300  30 2c 30 0d 0c 4e 05 e1  0d 0c 58 05 3a 0d 0c 62  |0,0..N....X.:..b|
00002310  0f dd f2 75 70 64 61 74  65 3a fb 31 0d 0c 6c 11  |...update:.1..l.|
00002320  f1 8a 31 30 2c 32 39 29  3b 73 63 25 20 0d 0c 76  |..10,29);sc% ..v|
00002330  05 e1 0d 0c 80 05 3a 0d  0c 8a 09 dd f2 65 72 72  |......:......err|
00002340  0d 0c 94 0b fb 31 32 38  3a fb 37 0d 0c 9e 05 db  |.....128:.7.....|
00002350  0d 0c a8 0d f1 27 27 27  27 27 3a f6 20 0d 0c b2  |.....''''':. ...|
00002360  13 f1 27 27 22 41 74 20  6c 69 6e 65 22 20 20 20  |..''"At line"   |
00002370  0d 0c bc 08 f1 27 3b 9e  0d 0c c6 0a f1 27 27 27  |.....';......'''|
00002380  3a e0 0d 0c d0 05 3a 0d  0c da 0d dd 20 f2 73 63  |:.....:..... .sc|
00002390  72 65 65 6e 0d 0c e4 2c  e6 30 2c 31 3a e3 41 3d  |reen...,.0,1:.A=|
000023a0  30 20 b8 20 36 30 3a f0  36 39 2c b3 28 31 32 37  |0 . 60:.69,.(127|
000023b0  39 29 2c b3 28 39 32 33  29 2b 31 30 30 3a ed 20  |9),.(923)+100:. |
000023c0  0d 0c ee 0c 50 3d 50 53  54 41 2b 31 0d 0c f8 05  |....P=PSTA+1....|
000023d0  f5 0d 0d 02 0b f3 20 41  2c 42 2c 43 0d 0d 0c 13  |...... A,B,C....|
000023e0  e7 20 41 3d 2d 31 20 8c  20 e5 20 8d 54 60 4d 0d  |. A=-1 . . .T`M.|
000023f0  0d 16 11 f2 64 28 41 2c  42 2c 43 2c 32 32 34 29  |....d(A,B,C,224)|
00002400  0d 0d 20 0a fd 20 41 3d  2d 31 0d 0d 2a 05 f5 0d  |.. .. A=-1..*...|
00002410  0d 34 09 f3 20 41 2c 42  0d 0d 3e 13 e7 20 41 3d  |.4.. A,B..>.. A=|
00002420  2d 31 20 8c 20 e5 20 8d  44 52 4d 0d 0d 48 11 f1  |-1 . . .DRM..H..|
00002430  8a 41 2c 42 29 3b bd 28  32 33 30 29 0d 0d 52 0a  |.A,B);.(230)..R.|
00002440  fd 20 41 3d 2d 31 0d 0d  5c 05 f5 0d 0d 66 0a f3  |. A=-1..\....f..|
00002450  20 41 2c 42 20 0d 0d 70  13 e7 20 41 3d 2d 31 20  | A,B ..p.. A=-1 |
00002460  8c 20 e5 20 8d 74 44 4d  0d 0d 7a 13 f1 8a 41 2c  |. . .tDM..z...A,|
00002470  42 29 3b 73 6e 6f 77 6d  61 6e 24 0d 0d 84 0a fd  |B);snowman$.....|
00002480  20 41 3d 2d 31 0d 0d 8e  0d fb 20 31 32 39 3a fb  | A=-1..... 129:.|
00002490  20 32 0d 0d 98 05 f5 0d  0d a2 09 f3 20 41 2c 42  | 2.......... A,B|
000024a0  0d 0d ac 13 e7 20 41 3d  2d 31 20 8c 20 e5 20 8d  |..... A=-1 . . .|
000024b0  64 40 4d 0d 0d b6 11 f1  8a 41 2c 42 29 3b bd 28  |d@M......A,B);.(|
000024c0  32 32 39 29 0d 0d c0 0a  fd 20 41 3d 2d 31 0d 0d  |229)..... A=-1..|
000024d0  ca 0c fb 20 31 32 38 3a  fb 31 0d 0d d4 43 e3 41  |... 128:.1...C.A|
000024e0  3d 30 20 b8 20 32 38 3a  f1 8a 30 2c 41 29 3b bd  |=0 . 28:..0,A);.|
000024f0  32 34 36 3a ed 3a f1 8a  68 78 25 2c 68 79 25 29  |246:.:..hx%,hy%)|
00002500  3b 72 6f 6f 66 24 3a fb  33 3a f1 8a 68 78 25 2c  |;roof$:.3:..hx%,|
00002510  68 79 25 2b 31 29 3b 68  6f 75 73 65 24 0d 0d de  |hy%+1);house$...|
00002520  05 3a 0d 0d e8 05 e1 0d  0d f2 11 dd f2 64 6c 28  |.:...........dl(|
00002530  41 2c 42 2c 43 2c 44 29  0d 0d fc 11 e6 30 2c 33  |A,B,C,D).....0,3|
00002540  3a 41 3d 41 2a 36 34 20  20 0d 0e 06 14 42 3d 42  |:A=A*64  ....B=B|
00002550  2a 33 32 3a 42 3d 31 30  32 33 2d 42 20 0d 0e 10  |*32:B=1023-B ...|
00002560  14 ef 35 3a ec 20 41 2c  42 3a f1 c4 43 2c bd 44  |..5:. A,B:..C,.D|
00002570  29 0d 0e 1a 1b ec 20 41  2c 42 3a e6 30 2c 31 3a  |)..... A,B:.0,1:|
00002580  f1 c4 43 2c bd 32 34 33  29 3a ef 34 0d 0e 24 05  |..C,.243):.4..$.|
00002590  e1 0d 0e 2e 09 dd f2 63  6c 73 0d 0e 38 0b e3 41  |.......cls..8..A|
000025a0  3d 31 20 b8 33 0d 0e 42  11 ef 31 39 2c 41 2c 30  |=1 .3..B..19,A,0|
000025b0  2c 30 2c 30 2c 30 0d 0e  4c 05 ed 0d 0e 56 05 e1  |,0,0,0..L....V..|
000025c0  0d 0e 60 0b dd f2 75 6e  63 6c 73 0d 0e 6a 12 ef  |..`...uncls..j..|
000025d0  31 39 2c 31 2c 31 2c 30  2c 30 2c 30 20 0d 0e 74  |19,1,1,0,0,0 ..t|
000025e0  11 ef 31 39 2c 32 2c 33  2c 30 2c 30 2c 30 0d 0e  |..19,2,3,0,0,0..|
000025f0  7e 12 ef 31 39 2c 33 2c  37 2c 30 2c 30 2c 30 20  |~..19,3,7,0,0,0 |
00002600  0d 0e 88 05 e1 0d 0e 92  05 3a 0d 0e 9c 05 3a 0d  |.........:....:.|
00002610  0e a6 24 f4 20 41 6c 6c  20 74 68 65 73 65 20 63  |..$. All these c|
00002620  6f 6c 6f 6e 73 20 61 72  65 20 6e 65 63 65 73 73  |olons are necess|
00002630  61 72 79 0d 0e b0 1c f4  20 74 6f 20 73 70 61 63  |ary..... to spac|
00002640  65 20 6f 75 74 20 74 68  65 20 64 61 74 61 2e 0d  |e out the data..|
00002650  0e ba 0e f4 20 53 63 72  65 65 6e 20 31 0d 0e c4  |.... Screen 1...|
00002660  1f f4 20 4e 6f 74 65 20  74 68 65 20 6e 65 78 74  |.. Note the next|
00002670  20 6c 69 6e 65 20 6e 75  6d 62 65 72 0d 0e ce 4b  | line number...K|
00002680  dc 20 31 2c 33 2c 31 30  2c 20 38 2c 38 2c 31 32  |. 1,3,10, 8,8,12|
00002690  2c 20 31 2c 31 33 2c 37  2c 20 31 30 2c 31 38 2c  |, 1,13,7, 10,18,|
000026a0  31 30 2c 20 31 2c 32 33  2c 31 30 2c 20 31 2c 32  |10, 1,23,10, 1,2|
000026b0  38 2c 31 39 2c 20 31 32  2c 31 33 2c 34 2c 20 2d  |8,19, 12,13,4, -|
000026c0  31 2c 2d 31 2c 2d 31 0d  0e d8 0b dc 20 2d 31 2c  |1,-1,-1..... -1,|
000026d0  2d 31 0d 0e e2 18 dc 20  31 39 2c 36 2c 20 31 39  |-1..... 19,6, 19|
000026e0  2c 31 36 2c 20 2d 31 2c  2d 31 0d 0e ec 62 dc 20  |,16, -1,-1...b. |
000026f0  35 2c 32 2c 20 39 2c 32  2c 20 32 2c 31 32 2c 20  |5,2, 9,2, 2,12, |
00002700  35 2c 31 32 2c 20 31 32  2c 31 37 2c 20 31 36 2c  |5,12, 12,17, 16,|
00002710  31 37 2c 20 32 2c 32 32  2c 20 35 2c 32 32 2c 20  |17, 2,22, 5,22, |
00002720  39 2c 32 32 2c 20 32 2c  32 37 2c 20 36 2c 32 37  |9,22, 2,27, 6,27|
00002730  2c 20 31 30 2c 32 37 2c  20 31 33 2c 32 37 2c 20  |, 10,27, 13,27, |
00002740  31 33 2c 31 32 2c 20 2d  31 2c 2d 31 0d 0e f6 05  |13,12, -1,-1....|
00002750  3a 0d 0f 00 05 3a 0d 0f  0a 05 3a 0d 0f 14 05 3a  |:....:....:....:|
00002760  0d 0f 1e 05 3a 0d 0f 28  0e f4 20 53 63 72 65 65  |....:..(.. Scree|
00002770  6e 20 32 0d 0f 32 70 dc  20 31 2c 33 2c 36 2c 20  |n 2..2p. 1,3,6, |
00002780  31 31 2c 33 2c 34 2c 20  31 2c 38 2c 34 2c 20 31  |11,3,4, 1,8,4, 1|
00002790  37 2c 38 2c 33 2c 20 34  2c 31 33 2c 36 2c 20 31  |7,8,3, 4,13,6, 1|
000027a0  2c 32 38 2c 31 39 2c 20  38 2c 31 38 2c 37 2c 20  |,28,19, 8,18,7, |
000027b0  31 2c 31 38 2c 34 2c 20  31 35 2c 31 33 2c 35 2c  |1,18,4, 15,13,5,|
000027c0  20 31 38 2c 31 38 2c 32  2c 20 34 2c 32 33 2c 37  | 18,18,2, 4,23,7|
000027d0  2c 20 31 35 2c 32 33 2c  35 2c 20 2d 31 2c 2d 31  |, 15,23,5, -1,-1|
000027e0  2c 2d 31 0d 0f 3c 1e dc  20 31 39 2c 31 32 2c 20  |,-1..<.. 19,12, |
000027f0  36 2c 32 37 2c 20 38 2c  32 37 2c 20 2d 31 2c 2d  |6,27, 8,27, -1,-|
00002800  31 0d 0f 46 1f dc 20 37  2c 32 36 2c 20 31 39 2c  |1..F.. 7,26, 19,|
00002810  32 31 2c 20 31 30 2c 32  31 2c 20 2d 31 2c 2d 31  |21, 10,21, -1,-1|
00002820  0d 0f 50 4f dc 20 33 2c  32 2c 20 32 2c 37 2c 20  |..PO. 3,2, 2,7, |
00002830  32 2c 31 37 2c 20 36 2c  31 32 2c 20 31 37 2c 31  |2,17, 6,12, 17,1|
00002840  32 2c 20 33 2c 32 37 2c  20 31 32 2c 32 37 2c 20  |2, 3,27, 12,27, |
00002850  37 2c 32 32 2c 20 31 37  2c 32 32 2c 20 31 34 2c  |7,22, 17,22, 14,|
00002860  32 2c 20 31 38 2c 37 2c  20 2d 31 2c 2d 31 20 0d  |2, 18,7, -1,-1 .|
00002870  0f 5a 05 3a 0d 0f 64 05  3a 0d 0f 6e 05 3a 0d 0f  |.Z.:..d.:..n.:..|
00002880  78 05 3a 0d 0f 82 05 3a  0d 0f 8c 0e f4 20 53 63  |x.:....:..... Sc|
00002890  72 65 65 6e 20 33 0d 0f  96 6e dc 20 31 2c 33 2c  |reen 3...n. 1,3,|
000028a0  32 2c 20 31 2c 38 2c 36  2c 20 36 2c 33 2c 35 2c  |2, 1,8,6, 6,3,5,|
000028b0  20 31 34 2c 33 2c 36 2c  20 31 31 2c 38 2c 33 2c  | 14,3,6, 11,8,3,|
000028c0  20 31 37 2c 38 2c 33 2c  20 31 2c 31 33 2c 34 2c  | 17,8,3, 1,13,4,|
000028d0  20 31 33 2c 31 33 2c 37  2c 20 31 2c 32 38 2c 31  | 13,13,7, 1,28,1|
000028e0  39 2c 20 33 2c 31 38 2c  35 2c 20 31 32 2c 31 38  |9, 3,18,5, 12,18|
000028f0  2c 38 2c 20 38 2c 32 33  2c 34 2c 20 2d 31 2c 2d  |,8, 8,23,4, -1,-|
00002900  31 2c 2d 31 0d 0f a0 11  dc 20 39 2c 32 37 2c 20  |1,-1..... 9,27, |
00002910  2d 31 2c 2d 31 0d 0f aa  23 dc 20 31 2c 36 2c 20  |-1,-1...#. 1,6, |
00002920  31 39 2c 31 2c 20 31 39  2c 36 2c 20 31 39 2c 31  |19,1, 19,6, 19,1|
00002930  36 2c 20 2d 31 2c 2d 31  0d 0f b4 5b dc 20 33 2c  |6, -1,-1...[. 3,|
00002940  37 2c 20 31 35 2c 32 2c  20 39 2c 32 2c 20 31 32  |7, 15,2, 9,2, 12|
00002950  2c 37 2c 20 32 2c 31 32  2c 20 31 34 2c 31 37 2c  |,7, 2,12, 14,17,|
00002960  20 31 37 2c 31 37 2c 20  35 2c 31 37 2c 20 39 2c  | 17,17, 5,17, 9,|
00002970  32 32 2c 20 32 2c 32 37  2c 20 36 2c 32 37 2c 20  |22, 2,27, 6,27, |
00002980  31 32 2c 32 37 2c 20 31  35 2c 32 37 2c 20 2d 31  |12,27, 15,27, -1|
00002990  2c 2d 31 0d 0f be 05 3a  0d 0f c8 05 3a 0d 0f d2  |,-1....:....:...|
000029a0  05 3a 0d 0f dc 05 3a 0d  0f e6 05 3a 0d 0f f0 0e  |.:....:....:....|
000029b0  f4 20 53 63 72 65 65 6e  20 34 0d 0f fa 79 dc 20  |. Screen 4...y. |
000029c0  31 2c 33 2c 37 2c 20 31  31 2c 33 2c 39 2c 20 31  |1,3,7, 11,3,9, 1|
000029d0  2c 32 38 2c 31 39 2c 20  31 34 2c 32 33 2c 36 2c  |,28,19, 14,23,6,|
000029e0  20 31 2c 32 33 2c 34 2c  20 38 2c 32 33 2c 33 2c  | 1,23,4, 8,23,3,|
000029f0  20 31 34 2c 31 38 2c 36  2c 20 31 34 2c 31 33 2c  | 14,18,6, 14,13,|
00002a00  36 2c 20 31 33 2c 38 2c  37 2c 20 31 2c 31 33 2c  |6, 13,8,7, 1,13,|
00002a10  32 2c 20 35 2c 31 38 2c  33 2c 20 31 31 2c 31 38  |2, 5,18,3, 11,18|
00002a20  2c 31 2c 20 34 2c 38 2c  36 2c 20 2d 31 2c 2d 31  |,1, 4,8,6, -1,-1|
00002a30  2c 2d 31 0d 10 04 10 dc  20 35 2c 37 2c 20 2d 31  |,-1..... 5,7, -1|
00002a40  2c 2d 31 0d 10 0e 1f dc  20 31 39 2c 36 2c 20 31  |,-1..... 19,6, 1|
00002a50  39 2c 31 31 2c 20 31 39  2c 32 36 2c 20 2d 31 2c  |9,11, 19,26, -1,|
00002a60  2d 31 0d 10 18 4d dc 20  33 2c 32 2c 20 36 2c 32  |-1...M. 3,2, 6,2|
00002a70  2c 20 31 33 2c 32 2c 20  37 2c 37 2c 20 31 35 2c  |, 13,2, 7,7, 15,|
00002a80  37 2c 20 31 36 2c 31 32  2c 20 31 36 2c 31 37 2c  |7, 16,12, 16,17,|
00002a90  20 33 2c 32 32 2c 20 31  38 2c 32 32 2c 20 39 2c  | 3,22, 18,22, 9,|
00002aa0  32 32 2c 20 36 2c 31 37  2c 20 2d 31 2c 2d 31 0d  |22, 6,17, -1,-1.|
00002ab0  10 22 05 3a 0d 10 2c 05  3a 0d 10 36 05 3a 0d 10  |.".:..,.:..6.:..|
00002ac0  40 05 3a 0d 10 4a 05 3a  0d 10 54 0e f4 20 53 63  |@.:..J.:..T.. Sc|
00002ad0  72 65 65 6e 20 35 0d 10  5e 6e dc 20 31 2c 32 38  |reen 5..^n. 1,28|
00002ae0  2c 31 39 2c 20 31 2c 32  33 2c 37 2c 20 31 2c 31  |,19, 1,23,7, 1,1|
00002af0  38 2c 36 2c 20 31 2c 32  33 2c 36 2c 20 31 2c 31  |8,6, 1,23,6, 1,1|
00002b00  33 2c 36 2c 20 31 2c 38  2c 34 2c 20 31 2c 33 2c  |3,6, 1,8,4, 1,3,|
00002b10  31 2c 20 31 34 2c 32 33  2c 36 2c 20 36 2c 33 2c  |1, 14,23,6, 6,3,|
00002b20  35 2c 20 31 35 2c 33 2c  35 2c 20 31 30 2c 38 2c  |5, 15,3,5, 10,8,|
00002b30  36 2c 20 31 34 2c 31 33  2c 36 2c 20 2d 31 2c 2d  |6, 14,13,6, -1,-|
00002b40  31 2c 2d 31 0d 10 68 18  dc 20 32 2c 31 32 2c 20  |1,-1..h.. 2,12, |
00002b50  31 31 2c 32 37 2c 20 2d  31 2c 2d 31 0d 10 72 1f  |11,27, -1,-1..r.|
00002b60  dc 20 31 39 2c 31 31 2c  20 31 39 2c 31 2c 20 31  |. 19,11, 19,1, 1|
00002b70  39 2c 32 36 2c 20 2d 31  2c 2d 31 0d 10 7c 59 dc  |9,26, -1,-1..|Y.|
00002b80  20 31 34 2c 32 37 2c 20  33 2c 32 37 2c 20 36 2c  | 14,27, 3,27, 6,|
00002b90  32 37 2c 20 36 2c 32 32  2c 20 32 2c 32 37 2c 20  |27, 6,22, 2,27, |
00002ba0  32 2c 31 37 2c 20 35 2c  31 37 2c 20 35 2c 31 32  |2,17, 5,17, 5,12|
00002bb0  2c 20 33 2c 37 2c 20 38  2c 32 2c 20 31 36 2c 32  |, 3,7, 8,2, 16,2|
00002bc0  2c 20 31 31 2c 37 2c 20  31 35 2c 31 32 2c 20 2d  |, 11,7, 15,12, -|
00002bd0  31 2c 2d 31 0d ff                                 |1,-1..|
00002bd6
LISTIII.m0
LISTIII.m1
LISTIII.m2
LISTIII.m4
LISTIII.m5