Home » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » PD/3D_Demo/!HoloDemo/!RunImage

PD/3D_Demo/!HoloDemo/!RunImage

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 » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s
Filename: PD/3D_Demo/!HoloDemo/!RunImage
Read OK: ✔
File size: 26A4 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > !RunImage
   20REM Bugger off nosey
   30
   40ON ERROR OSCLI"Set s$ "+REPORT$+" @ "+STR$ERL:END
   50SYS "Hourglass_On"
   60PROCset_up:PROCwindows:PROCmenu:PROCicon
   70SYS "Hourglass_Off"
   80REPEAT:SYS &42 TO RTtime%:RTtime%+=25
   90SYS &400E1,0,q%,RTtime% TO RTr%
  100CASE RTr% OF
  110WHEN 0 : REM PROCchange_icon
  120WHEN 2 : SYS&400C5,,q%
  130WHEN 3 : SYS&400C6,,q%
  140WHEN 6 : IF q%!12=-2 AND q%!16=RTicon% PROCcheck_icon
  150WHEN 9 : IF q%!0=1 PROCend
  160WHEN 17,18 : IF q%!16=0 PROCend
  170ENDCASE
  180UNTIL 0
  190
  200DEFPROCmenu
  210P%=RTmn%:[OPT 0
  220DCB "HoloDemo":DCD 0
  230DCD &00070207:DCD 6*16
  240DCD 44:DCD 0
  250.info
  260DCD 2:DCD win_info%:DCD &07000031
  270DCB "Info":DCD 0:DCD 0
  280DCD 128:DCD -1:DCD &07000031
  290DCB "Quit":DCD 0:DCD 0
  300]:ENDPROC
  310
  320DEFPROCwindows
  330SYS &400D9,,"<HoloDemo$Dir>.Templates"
  340SYS &400DB,,q%,RTicons%,RTicons%+1024,-1,"info",0
  350RTflg%=q%!(88+9*32+16):RTflg%=RTflg%AND NOT (15<<12)
  360q%!(88+9*32+16)=RTflg%
  370RTflg%=q%!(88+10*32+16):RTflg%=RTflg%AND NOT (15<<12)
  380q%!(88+10*32+16)=RTflg%
  390SYS &400C1,,q% TO win_info%
  400SYS &400DA
  410ENDPROC
  420
  430DEFPROCicon
  440P%=q%:[OPT 0
  450DCD -1
  460DCD 0:DCD 0:DCD 80:DCD 80
  470DCD &0000301A:
  480DCB "!HoloDemo":ALIGN
  490]:SYS &400C2,,q% TO RTicon%
  500ENDPROC
  510
  520DEFPROCset_up
  530SYS &400C0,200,&4B534154,"3D HoloDemo"
  540RTcocolen%=50928+16:ycurs%=500:xcurs%=400
  550DIM Cw%(96),Cad%(96)
  560DIM q% 4096,RTmn% 256,RTicons% 1024,RTcoco% RTcocolen%
  570OSCLI"Load <HoloDemo$Dir>.Froggy "+STR$~RTcoco%
  580ssize%=200
  590DIM s% 1024*ssize%,scl% 16,scrtext% 8192,addr% 63*4,code% 256+5000*16,L%-1
  600DIM sintab% 720*6:stab%=sintab%+180*4
  610FOR sin%=-179 TO 719
  620stab%!(sin%<<2)=SINRAD(sin%) * 128
  630NEXT
  640scl%!0=5
  650scl%!4=5
  660scl%!8=6
  670scl%!12=6
  680!s%=1024*ssize%
  690IF FNcrc("<HoloDemo$Dir>.SpriteFile")<>&A4E7087 VDU7:END
  700IF FNcrc("<HoloDemo$Dir>.ScrText")<>&6BB4B41 VDU7:END
  710SYS &2E,&10A,s%,"<HoloDemo$Dir>.SpriteFile"
  720SYS &2E,&11B,s%,"screen","screen2"
  730SYS &2E,&12F,s%,"screen2"
  740FOR Za%=32 TO 95
  750SYS &2E,&118,s%,STR$Za% TO ,,g%
  760addr%!((Za%-32)<<2)=g%
  770NEXT
  780SYS 8,16,"<HoloDemo$Dir>.ScrText",scrtext%,0 TO ,,,,scrlen%
  790FOR Za%=scrtext% TO scrtext%+scrlen%-1
  800?Za%=(?Za%-32)*4
  810NEXT
  820PROCass
  830PROCmake_stars
  840PROCinitspr
  850REM within
  860arm3_version%=0
  870exa%=2-arm3_version%
  880x0%=-135:x1%=-80
  890a%=400:b%=400:ci%=-24:c%=0:sp_inc%=1
  900sc%=1:Aa%=0:Ab%=3:Ac%=6:sp%=32:onk%=1:sinadv%=0
  910yy%=100:vel%=0:d%=b%:e%=ci%:scrolly%=0:scroff%=0:scrmax%=scrlen%-11
  920ENDPROC
  930
  940DEFPROCend
  950wimp_mode%=MODE:scr%=1
  960*HoloCache Off
  970SYS &400E3,15
  980ON ERROR SYS&400E3,wimp_mode%:END
  990IF MODE<>15 END
 1000MODE12:FORc%=0TO7:COLOURc%,c%*36,c%*36,c%*36:NEXT
 1010COLOUR11,255,40,10
 1020SYS6,112,2:CLS
 1030SYS6,112,1:CLS
 1040VDU28,0,31,79,12:OFF
 1050ycurs%=560:RESTORE
 1060REPEAT
 1070CLS
 1080READ z$:IF z$<>"0" THEN
 1090ycurs%=560
 1100SYS6,112,1:CLS
 1110PROCsen(z$):SYS6,112,2:CLS
 1120ycurs%+=96:PROCsen(z$):SYS6,112,1
 1130READ a$
 1140WHILE a$<>"0"
 1150PROCsen(a$):SYS6,112,2
 1160ycurs%+=96:PROCsen(a$):SYS6,112,1
 1170READ a$
 1180ENDWHILE:FORang%=1TO10:WAIT:NEXT
 1190FORang%=0TO712STEP8
 1200WAIT:SYS6,113,scr%:scr%=scr%EOR3:SYS6,112,scr%
 1210GCOL0,0:RECTANGLEFILL 640-213,700,426,400
 1220x%=1024*COSRADang%
 1230scl%!0=1024*COSRADang%:scl%!4=1:scl%!8=1024:scl%!12=1
 1240IF x%<0 THEN
 1250scl%!0=ABSx%
 1260SYS&2E,&134,s%,"screen2",640+x%*213/1024,700,0,scl%
 1270ELSE
 1280SYS&2E,&134,s%,"screen",640-x%*213/1024,700,0,scl%
 1290ENDIF
 1300IF INKEY(-10) SYS&400E3,wimp_mode%:END
 1310NEXT
 1320ENDIF:SYS6,113,1:SYS6,112,1
 1330FORang%=0TO30:WAIT:VDU23,7,0,3,0|:NEXT
 1340UNTIL z$="0"
 1350SYS&400E3,wimp_mode%
 1360END
 1370
 1380DEFPROCcheck_icon
 1390IF q%!8=2 SYS &400D4,,RTmn%,q%!0-64,44*2+24+96
 1400IF q%!8=4 THEN
 1410wimp_mode%=MODE
 1420*HoloCache Off
 1430PROCgo
 1440*HoloCache On
 1450SYS&400E3,wimp_mode%
 1460ENDIF
 1470ENDPROC
 1480
 1490DEFPROCgo
 1500MODE 12:IF MODE<>12 ENDPROC
 1510MODE 8:OFF
 1520SYS6,112,1:SYS6,113,2
 1530q%!100=148:q%!104=149:q%!108=-1
 1540SYS &31,q%+100,q%+100:screen0%=q%!100:screen1%=q%!104
 1550SYS6,112,1:SYS6,113,1
 1560*Volume 127
 1570SYS &1E,11,RTcoco%,RTcocolen%
 1580*FX200,0
 1590r1%=100:g1%=0:b1%=0
 1600r2%=0:g2%=0:b2%=128
 1610COLOUR 1,r1%,g1%,b1%
 1620COLOUR 2,r2%,g2%,b2%
 1630COLOUR 3,r1% OR r2%,r1% OR g2%,r1% OR b2%
 1640TIME=0:sc%=1
 1650REPEAT
 1660IF INKEY(-10) SYS "XOS_CLI","RMKill Coco.":ENDPROC
 1670ORIGIN 360,256
 1680a%+=c%
 1690b%+=c%
 1700d%+=e%
 1710IF e%<>c% AND ABS(b%-d%)<(TIME-1000)/100 THEN
 1720IF e%<0 c%=-ABSc% ELSE c%=ABSc%
 1730TIME=0:e%=c%:b%=d%
 1740ENDIF
 1750time%=RND(6)
 1760IF TIME>(2+time%)*100 AND TIME<900 e%=c%*RND(3):TIME=1000
 1770IF TIME>(2+time%)*100 AND e%=c% e%=c%*.5
 1780IF a%>=400 c%=-24:onk%=-1:IF yy%<300 vel%=105
 1790IF a%<=-400 c%=24:onk%=1:IF yy%<300 vel%=105
 1800IF d%<=-400 e%=ABSe%
 1810IF d%>=400 e%=-(ABSe%)
 1820IF sp%>=100*4 sp_inc%=-1
 1830IF sp%<=-160*4 sp_inc%=1
 1840stab%+=4:sinadv%+=1:IF sinadv%>=360 sinadv%=0:stab%-=360*4
 1850WAIT:SYS6,113,sc%:sc%=sc%EOR3:SYS6,112,sc%
 1860CLS
 1870scrolly%-=32:IF scrolly%<=-128 scrolly%=0:scroff%+=1
 1880IF scroff%>=scrmax% scroff%=0
 1890FORcZ%=0TO10:sin%=stab%!(((cZ%<<7)+scrolly%)*9>>3)
 1900SYS &2E,&222,s%,addr%!(scrtext%?(scroff%+cZ%)),cZ%*128-360+scrolly%,250+sin%,1:NEXT
 1910SYS &2E,&222,s%,sqr%(Ac%),-x0%-a%,300,1
 1920SYS &2E,&222,s%,sqrb%(Ac%),-x0%-a%+(sp%>>2),300,1
 1930SYS &2E,&222,s%,pyr0%,-x0%-a%,300+100,1
 1940SYS &2E,&222,s%,pyr1%,-x0%-a%+(sp%>>2),300+100,1
 1950SYS &2E,&222,s%,rot%(Ab%),-x1%+d%+96,-100+yy%,1
 1960SYS &2E,&222,s%,rotb%(Ab%),-x1%+d%+0,-100+yy%,1
 1970SYS &2E,&222,s%,sqr%(Aa%),-x1%+b%+96,-100+yy%,1
 1980SYS &2E,&222,s%,sqrb%(Aa%),-x1%+b%,-100+yy%,1
 1990COLOUR 1,r1%,g1%,b1%
 2000COLOUR 2,r2%,g2%,b2%
 2010COLOUR 3,r1% OR r2%,r1% OR g2%,r1% OR b2%
 2020Aa%=(Aa%+onk%+9)MOD9
 2030Ab%=(Ab%+1+5)MOD5
 2040Ac%=(Ac%+1+9)MOD9
 2050sp%+=sp_inc%
 2060vel%-=18
 2070yy%+=vel%
 2080IF yy%<0 vel%=ABSvel%:yy%+=vel%>>2
 2090IF yy%<-100 vel%=ABSvel%:yy%+=vel%
 2100C%=screen1%:CALL call:SWAP screen0%,screen1%
 2110UNTIL 0
 2120
 2130DEFPROCinitspr
 2140LOCAL a%
 2150DIM sqr%(8),sqrb%(8),rot%(8),rotb%(8)
 2160FOR a%=0 TO 8
 2170sqr%(a%)=FNget("sqr"+STR$a%)
 2180sqrb%(a%)=FNget("sqrb"+STR$a%)
 2190IF a%<5 THEN
 2200rot%(a%)=FNget("rot"+STR$a%)
 2210rotb%(a%)=FNget("rotb"+STR$a%)
 2220pyr0%=FNget("pyr0")
 2230pyr1%=FNget("pyrB0")
 2240ENDIF
 2250NEXT
 2260FOR a%=32 TO ASC"Z"
 2270IF a%=32 OR a%=46 OR a%=50 OR a%>64 THEN
 2280Cad%(a%)=FNget("char"+STR$a%)
 2290OSCLI"Set A$"+STR$a%+" "+STR$Cad%(a%)
 2300SYS&2E,&228,s%,Cad%(a%) TO ,,,Cw%(a%)
 2310Cw%(a%)=Cw%(a%)*2
 2320ENDIF
 2330NEXT
 2340ENDPROC
 2350
 2360DEFFNget(s$)
 2370LOCAL a%
 2380SYS &2E,&118,s%,s$ TO ,,a%
 2390=a%
 2400
 2410DEFPROCtidy
 2420ENDPROC
 2430
 2440DEFPROCass
 2450LOCAL col%,xpos%,ypos%,spd%,ad%,rol%,old%
 2460FOR opt%=8 TO 10 STEP 2
 2470P%=code%
 2480col%=3:xpos%=4:ypos%=5:spd%=6:ad%=7:rol%=8:old%=9
 2490[OPT opt%
 2500.stars
 2510DCD 0
 2520.call
 2530; R2 = screen addr
 2540ADR R0,star_data
 2550LDR R1,stars
 2560.lp
 2570LDMIA R0!,{col%,xpos%,ypos%,spd%}
 2580ADD ad%,ypos%,xpos%,LSR#3
 2590AND rol%,xpos%,#6
 2600;MOV rol%,rol%,LSL#1
 2610LDRB old%,[R2,ad%]
 2620MOV R12,#3
 2630BIC old%,old%,R12,LSL rol%
 2640ORR old%,old%,col%,LSL rol%
 2650STRB old%,[R2,ad%]
 2660SUBS xpos%,xpos%,spd%
 2670ADDLT xpos%,xpos%,#640*2
 2680STR xpos%,[R0,#-12]
 2690SUBS R1,R1,#1
 2700BGT lp
 2710MOVS PC,R14
 2720.event
 2730TEQ R0,#4
 2740LDR R12,ev_flg
 2750ADD R12,R12,#1
 2760STR R12,ev_flg
 2770MOVS PC,R14
 2780.ev_flg
 2790DCD 0
 2800.star_data
 2810]:NEXT
 2820ENDPROC
 2830
 2840DEFPROCs(x%,y%,col%,spd%)
 2850LOCAL n%:n%=!stars
 2860IF spd%<1 spd%=1
 2870x%=(x%+1280)MOD1280
 2880n%=n%*16:n%+=star_data
 2890n%!0=col%:n%!4=x%:n%!8=y%*160:n%!12=spd%
 2900!stars=!stars+1
 2910ENDPROC
 2920
 2930DEFPROCs2(x%,y%,col%,spd%)
 2940PROCs(x%,y%,col%,spd%)
 2950PROCs(x%+1,y%,col%,spd%)
 2960ENDPROC
 2970
 2980DEFPROCs3(x%,y%,col%,spd%)
 2990PROCs(x%,y%,col%,spd%)
 3000PROCs(x%+1,y%,col%,spd%)
 3010PROCs(x%-1,y%,col%,spd%)
 3020PROCs(x%,y%+1,col%,spd%)
 3030PROCs(x%,y%-1,col%,spd%)
 3040ENDPROC
 3050
 3060DEFPROCmake_stars
 3070FOR Ds%=0 TO 499
 3080STx%=RND(1280)-1:STy%=RND(254):STs%=RND(3*8*2)
 3090STx2%=(STx%-(STs%-16)*2+1280)MOD1280
 3100CASE RND(6) OF
 3110WHEN 1,2,3 : PROCs3(STx%,STy%,1,STs%/3):PROCs3(STx2%,STy%,2,STs%/3)
 3120WHEN 4,5 : PROCs2(STx%,STy%,1,STs%/3):PROCs2(STx2%,STy%,2,STs%/3)
 3130WHEN 6 : PROCs(STx%,STy%,1,STs%/3):PROCs(STx2%,STy%,2,STs%/3)
 3140ENDCASE
 3150NEXT
 3160ENDPROC
 3170
 3180GCOL0,1
 3190ORIGIN 640,0
 3200LINE 320,200,500-24,120
 3210DRAW -500-24,120:DRAW -320,200:DRAW 320,200
 3220GCOL1,2
 3230LINE 320,200,500+24,120
 3240DRAW -500+24,120:DRAW -320,200:DRAW 320,200
 3250
 3260DEFFNcrc(s$)
 3270LOCAL val%,bit%,a%,len%
 3280FOR opt%=0 TO 2 STEP 2
 3290P%=code%:[OPT opt%
 3300; R0 = start
 3310; R1 = length
 3320MOV R2,#0:MOV R3,#0
 3330.lp
 3340LDRB R4,[R0],#1
 3350EOR R2,R2,R4,LSL R3
 3360SUBS R3,R3,#23:ADDLT R3,R3,#24
 3370SUBS R1,R1,#1
 3380BGT lp
 3390STR R2,data_store
 3400MOVS PC,R14
 3410.data_store
 3420DCD 0
 3430]:NEXT
 3440SYS 8,16,s$,s%,0 TO ,,,,B%
 3450A%=s%:CALL code%
 3460=!data_store
 3470
 3480DEFPROCc(a%)
 3490SYS&2E,&222,s%,Cad%(a%),xcurs%,ycurs%,0
 3500xcurs%+=Cw%(a%)
 3510ENDPROC
 3520
 3530DEFPROCsen(s$)
 3540LOCAL a%,b%,d$:b%=0:FORa%=1TOLENs$
 3550b%+=Cw%(ASC(MID$(s$,a%,1))):NEXT
 3560xcurs%=(1280-b%)/2
 3570FORa%=1TOLENs$:b%=(ASC(MID$(s$,a%,1)))
 3580SYS&2E,&222,s%,Cad%(b%),xcurs%,ycurs%,0
 3590xcurs%+=Cw%(b%):NEXT
 3600ycurs%-=96:ENDPROC
 3610
 3620DATA CAST," ","S. VEROID","S. QUEER","P. RIMMID",0
 3630DATA GUEST STARS," ","V. NUS","ANDY ROMEDA","U. R. ANUS",0
 3640DATA ANIMALS PROVIDED BY," ","SNOWBALL THE CAT",0
 3650DATA CATERING STAFF," ","MR. AND MRS. MASON","MR. AND MRS. SANDERS",0
 3660DATA BASED ON THE NOVEL BY," ","HIGH RISC",0
 3670DATA COPYRIGHT SUITS BY," ","HIGH RISC",0
 3680DATA EVENING SUITS BY," ","MARKS AND SPENCER","FOSTERS","BURTONS",0
 3690DATA FIRST ASSISTANT DIRECTOR," ","TRAFFIC LIGHT",0
 3700DATA PRODUCTION COORDINATOR," ","FOOD",0
 3710DATA STILLS BY," ","PAINT","DRAW","FONT MANAGER",0
 3720DATA GRIP," ","PLASTIC FEET","RUBBER MAT","SELLOTAPE",0
 3730DATA CAMERA TEAM," ","VIDC","MEMC",0
 3740DATA SENIOR CAMERAMAN," ","EUCLID",0
 3750DATA SOUND TEAM," ","VIDC","ARM","MEMC",0
 3760DATA SOUND SUPERVISOR," ","COCONIZER",0
 3770DATA LIGHTING DIRECTORS," ","C.R. TUBE","D. BULB",0
 3780DATA VISION MIXER," ","ARABELLA",0
 3790DATA CASTING," ","PLASTER",0
 3800DATA SET ASSEMBLY BY," ","BASIC",0
 3810DATA SCRIPT BY," ","PAUL MASON","VINCENT SANDERS",0
 3820DATA DUBBING MIXERS," ","BASIC EDITOR","EDIT",0
 3830DATA VIDEOTAPE EDITORS," ","EUCLID","DRAW","PAINT",0
 3840DATA ON LINE EDITORS," ","BASIC","BASIC EDITOR",0
 3850DATA SCRIPT EDITORS," ","EDIT","PENDOWN","FIRST WORD PLUS",0
 3860DATA MAGAZINE EDITORS," ","STEVE TURNBULL","JULIAN MARSHALL","PAM TURNBULL","MIKE COOK",0
 3870DATA PEOPLE WE KNOW," ","SHARON STONE","KIM BASINGER"," ","... HONEST ...",0
 3880DATA PEOPLE WE WANT TO KNOW," ","AS BEFORE AND ..."," ","A LEVEL MODERATORS","MILLIONAIRES",0
 3890DATA LINE PRODUCERS," ","MOVE","DRAW","LINE",0
 3900DATA EXECUTIVE PRODUCER," ","CHAP WITH THE BRIEFCASE",0
 3910DATA DESIGNERS," ","GEORGIO ARMANI","JAEGER",0
 3920DATA PRODUCED BY," ","HARD WORK","SHADOW IN THE DARC",0
 3930DATA DIRECTED BY," ","COMPLETE CHANCE",0
 3940DATA " ",0
 3950DATA OUR THANKS GO TO," ","US","OUR PARENTS","FATE","DESTINY",0
 3960DATA A NOVEL PRODUCTION," ","FOR"," "," ",2,0
 3970DATA COPYRIGHT,"SHADOW IN THE DARC"," ","MCMXIIV CASTLEMAINE XXXX",0
 3980DATA 0


� > !RunImage
� Bugger off nosey

( � � �"Set s$ "+�$+" @ "+Þ:�
2ș "Hourglass_On"
< �set_up:�windows:�menu:�icon
Fș "Hourglass_Off"
P"�:ș &42 � RTtime%:RTtime%+=25
Z!ș &400E1,0,q%,RTtime% � RTr%
d
Ȏ RTr% �
n� 0 : � PROCchange_icon
x� 2 : ș&400C5,,q%
�� 3 : ș&400C6,,q%
�0� 6 : � q%!12=-2 � q%!16=RTicon% �check_icon
�� 9 : � q%!0=1 �end
�� 17,18 : � q%!16=0 �end
��
�� 0
�
�
��menu
�P%=RTmn%:[OPT 0
�DCB "HoloDemo":DCD 0
�DCD &00070207:DCD 6*16
�DCD 44:DCD 0
�	.info
%DCD 2:DCD win_info%:DCD &07000031
DCB "Info":DCD 0:DCD 0
 DCD 128:DCD -1:DCD &07000031
"DCB "Quit":DCD 0:DCD 0
,]:�
6
@
��windows
J)ș &400D9,,"<HoloDemo$Dir>.Templates"
T4ș &400DB,,q%,RTicons%,RTicons%+1024,-1,"info",0
^4RTflg%=q%!(88+9*32+16):RTflg%=RTflg%� � (15<<12)
hq%!(88+9*32+16)=RTflg%
r5RTflg%=q%!(88+10*32+16):RTflg%=RTflg%� � (15<<12)
|q%!(88+10*32+16)=RTflg%
�ș &400C1,,q% � win_info%
�
ș &400DA
��
�
�
��icon
�P%=q%:[OPT 0
�
DCD -1
�DCD 0:DCD 0:DCD 80:DCD 80
�DCD &0000301A:
�DCB "!HoloDemo":ALIGN
�]:ș &400C2,,q% � RTicon%
��
�
��set_up
)ș &400C0,200,&4B534154,"3D HoloDemo"
-RTcocolen%=50928+16:ycurs%=500:xcurs%=400
&� Cw%(96),Cad%(96)
08� q% 4096,RTmn% 256,RTicons% 1024,RTcoco% RTcocolen%
:,�"Load <HoloDemo$Dir>.Froggy "+�~RTcoco%
Dssize%=200
NL� s% 1024*ssize%,scl% 16,scrtext% 8192,addr% 63*4,code% 256+5000*16,L%-1
X'� sintab% 720*6:stab%=sintab%+180*4
b� sin%=-179 � 719
l"stab%!(sin%<<2)=��(sin%) * 128
v�
�scl%!0=5
�scl%!4=5
�scl%!8=6
�
scl%!12=6
�!s%=1024*ssize%
�6� �crc("<HoloDemo$Dir>.SpriteFile")<>&A4E7087 �7:�
�3� �crc("<HoloDemo$Dir>.ScrText")<>&6BB4B41 �7:�
�.ș &2E,&10A,s%,"<HoloDemo$Dir>.SpriteFile"
�%ș &2E,&11B,s%,"screen","screen2"
�ș &2E,&12F,s%,"screen2"
�� Za%=32 � 95
�ș &2E,&118,s%,�Za% � ,,g%
�addr%!((Za%-32)<<2)=g%
�
=ș 8,16,"<HoloDemo$Dir>.ScrText",scrtext%,0 � ,,,,scrlen%
'� Za%=scrtext% � scrtext%+scrlen%-1
 ?Za%=(?Za%-32)*4
*�
4�ass
>�make_stars
H�initspr
R� within
\arm3_version%=0
fexa%=2-arm3_version%
px0%=-135:x1%=-80
z(a%=400:b%=400:ci%=-24:c%=0:sp_inc%=1
�3sc%=1:Aa%=0:Ab%=3:Ac%=6:sp%=32:onk%=1:sinadv%=0
�Gyy%=100:vel%=0:d%=b%:e%=ci%:scrolly%=0:scroff%=0:scrmax%=scrlen%-11
��
�
�	��end
�wimp_mode%=�:scr%=1
�*HoloCache Off
�ș &400E3,15
�� � ș&400E3,wimp_mode%:�
�
� �<>15 �
�'�12:�c%=0�7:�c%,c%*36,c%*36,c%*36:�
��11,255,40,10
�ș6,112,2:�
ș6,112,1:�
�28,0,31,79,12:�
ycurs%=560:�
$�
.�
8� z$:� z$<>"0" �
Bycurs%=560
Lș6,112,1:�
V�sen(z$):ș6,112,2:�
`!ycurs%+=96:�sen(z$):ș6,112,1
j� a$
tȕ a$<>"0"
~�sen(a$):ș6,112,2
�!ycurs%+=96:�sen(a$):ș6,112,1
�� a$
��:�ang%=1�10:Ȗ:�
��ang%=0�712�8
�,Ȗ:ș6,113,scr%:scr%=scr%�3:ș6,112,scr%
�!�0,0:ȓȐ 640-213,700,426,400
�x%=1024*��ang%
�5scl%!0=1024*��ang%:scl%!4=1:scl%!8=1024:scl%!12=1
�� x%<0 �
�scl%!0=�x%
�6ș&2E,&134,s%,"screen2",640+x%*213/1024,700,0,scl%
��
5ș&2E,&134,s%,"screen",640-x%*213/1024,700,0,scl%

�
"� �(-10) ș&400E3,wimp_mode%:�
�
(�:ș6,113,1:ș6,112,1
2 �ang%=0�30:Ȗ:�23,7,0,3,0|:�
<� z$="0"
Fș&400E3,wimp_mode%
P�
Z
d��check_icon
n0� q%!8=2 ș &400D4,,RTmn%,q%!0-64,44*2+24+96
x� q%!8=4 �
�wimp_mode%=�
�*HoloCache Off
��go
�*HoloCache On
�ș&400E3,wimp_mode%
��
��
�
���go
�� 12:� �<>12 �
�	� 8:�
�ș6,112,1:ș6,113,2
�#q%!100=148:q%!104=149:q%!108=-1
8ș &31,q%+100,q%+100:screen0%=q%!100:screen1%=q%!104
ș6,112,1:ș6,113,1
*Volume 127
" ș &1E,11,RTcoco%,RTcocolen%
,*FX200,0
6r1%=100:g1%=0:b1%=0
@r2%=0:g2%=0:b2%=128
J� 1,r1%,g1%,b1%
T� 2,r2%,g2%,b2%
^%� 3,r1% � r2%,r1% � g2%,r1% � b2%
h
�=0:sc%=1
r�
|*� �(-10) ș "XOS_CLI","RMKill Coco.":�
�ȑ 360,256
�
a%+=c%
�
b%+=c%
�
d%+=e%
�&� e%<>c% � �(b%-d%)<(�-1000)/100 �
�� e%<0 c%=-�c% � c%=�c%
��=0:e%=c%:b%=d%
��
�time%=�(6)
�/� �>(2+time%)*100 � �<900 e%=c%*�(3):�=1000
�&� �>(2+time%)*100 � e%=c% e%=c%*.5
�/� a%>=400 c%=-24:onk%=-1:� yy%<300 vel%=105
�.� a%<=-400 c%=24:onk%=1:� yy%<300 vel%=105
� d%<=-400 e%=�e%
� d%>=400 e%=-(�e%)
� sp%>=100*4 sp_inc%=-1
&� sp%<=-160*4 sp_inc%=1
0=stab%+=4:sinadv%+=1:� sinadv%>=360 sinadv%=0:stab%-=360*4
:(Ȗ:ș6,113,sc%:sc%=sc%�3:ș6,112,sc%
D�
N7scrolly%-=32:� scrolly%<=-128 scrolly%=0:scroff%+=1
X � scroff%>=scrmax% scroff%=0
b3�cZ%=0�10:sin%=stab%!(((cZ%<<7)+scrolly%)*9>>3)
lSș &2E,&222,s%,addr%!(scrtext%?(scroff%+cZ%)),cZ%*128-360+scrolly%,250+sin%,1:�
v*ș &2E,&222,s%,sqr%(Ac%),-x0%-a%,300,1
�4ș &2E,&222,s%,sqrb%(Ac%),-x0%-a%+(sp%>>2),300,1
�*ș &2E,&222,s%,pyr0%,-x0%-a%,300+100,1
�3ș &2E,&222,s%,pyr1%,-x0%-a%+(sp%>>2),300+100,1
�2ș &2E,&222,s%,rot%(Ab%),-x1%+d%+96,-100+yy%,1
�2ș &2E,&222,s%,rotb%(Ab%),-x1%+d%+0,-100+yy%,1
�2ș &2E,&222,s%,sqr%(Aa%),-x1%+b%+96,-100+yy%,1
�0ș &2E,&222,s%,sqrb%(Aa%),-x1%+b%,-100+yy%,1
�� 1,r1%,g1%,b1%
�� 2,r2%,g2%,b2%
�%� 3,r1% � r2%,r1% � g2%,r1% � b2%
�Aa%=(Aa%+onk%+9)�9
�Ab%=(Ab%+1+5)�5
�Ac%=(Ac%+1+9)�9
sp%+=sp_inc%
vel%-=18

yy%+=vel%
 #� yy%<0 vel%=�vel%:yy%+=vel%>>2
*#� yy%<-100 vel%=�vel%:yy%+=vel%
4+C%=screen1%:� call:Ȕ screen0%,screen1%
>� 0
H
R
��initspr
\� a%
f'� sqr%(8),sqrb%(8),rot%(8),rotb%(8)
p� a%=0 � 8
zsqr%(a%)=�get("sqr"+�a%)
�sqrb%(a%)=�get("sqrb"+�a%)
�� a%<5 �
�rot%(a%)=�get("rot"+�a%)
�rotb%(a%)=�get("rotb"+�a%)
�pyr0%=�get("pyr0")
�pyr1%=�get("pyrB0")
��
��
�� a%=32 � �"Z"
�%� a%=32 � a%=46 � a%=50 � a%>64 �
�Cad%(a%)=�get("char"+�a%)
��"Set A$"+�a%+" "+�Cad%(a%)
�'ș&2E,&228,s%,Cad%(a%) � ,,,Cw%(a%)
	Cw%(a%)=Cw%(a%)*2
	�
	�
	$�
	.
	8
ݤget(s$)
	B� a%
	Lș &2E,&118,s%,s$ � ,,a%
	V=a%
	`
	j
��tidy
	t�
	~
	�	��ass
	�)� col%,xpos%,ypos%,spd%,ad%,rol%,old%
	�� opt%=8 � 10 � 2
	�P%=code%
	�5col%=3:xpos%=4:ypos%=5:spd%=6:ad%=7:rol%=8:old%=9
	�
[OPT opt%
	�
.stars
	�	DCD 0
	�	.call
	�; R2 = screen addr
	�ADR R0,star_data
	�LDR R1,stars
.lp

%LDMIA R0!,{col%,xpos%,ypos%,spd%}
ADD ad%,ypos%,xpos%,LSR#3
� rol%,xpos%,#6
(;MOV rol%,rol%,LSL#1
2LDRB old%,[R2,ad%]
<MOV R12,#3
FBIC old%,old%,R12,LSL rol%
P�R old%,old%,col%,LSL rol%
ZSTRB old%,[R2,ad%]
dSUBS xpos%,xpos%,spd%
nADDLT xpos%,xpos%,#640*2
xSTR xpos%,[R0,#-12]
�SUBS R1,R1,#1
�
BGT lp
�MOVS PC,R14
�
.event
�
TEQ R0,#4
�LDR R12,ev_flg
�ADD R12,R12,#1
�STR R12,ev_flg
�MOVS PC,R14
�.ev_flg
�	DCD 0
�.star_data
�]:�
�

��s(x%,y%,col%,spd%)
"� n%:n%=!stars
,� spd%<1 spd%=1
6x%=(x%+1280)�1280
@n%=n%*16:n%+=star_data
J,n%!0=col%:n%!4=x%:n%!8=y%*160:n%!12=spd%
T!stars=!stars+1
^�
h
r��s2(x%,y%,col%,spd%)
|�s(x%,y%,col%,spd%)
��s(x%+1,y%,col%,spd%)
��
�
���s3(x%,y%,col%,spd%)
��s(x%,y%,col%,spd%)
��s(x%+1,y%,col%,spd%)
��s(x%-1,y%,col%,spd%)
��s(x%,y%+1,col%,spd%)
��s(x%,y%-1,col%,spd%)
��
�
���make_stars
�� Ds%=0 � 499
,STx%=�(1280)-1:STy%=�(254):STs%=�(3*8*2)
&STx2%=(STx%-(STs%-16)*2+1280)�1280

Ȏ �(6) �
&>� 1,2,3 : �s3(STx%,STy%,1,STs%/3):�s3(STx2%,STy%,2,STs%/3)
0<� 4,5 : �s2(STx%,STy%,1,STs%/3):�s2(STx2%,STy%,2,STs%/3)
:8� 6 : �s(STx%,STy%,1,STs%/3):�s(STx2%,STy%,2,STs%/3)
D�
N�
X�
b
l�0,1
vȑ 640,0
�� 320,200,500-24,120
�&� -500-24,120:� -320,200:� 320,200
��1,2
�� 320,200,500+24,120
�&� -500+24,120:� -320,200:� 320,200
�
�
ݤcrc(s$)
�� val%,bit%,a%,len%
�� opt%=0 � 2 � 2
�P%=code%:[OPT opt%
�; R0 = start
�; R1 = length
�MOV R2,#0:MOV R3,#0

.lp

LDRB R4,[R0],#1

� R2,R2,R4,LSL R3

 "SUBS R3,R3,#23:ADDLT R3,R3,#24

*SUBS R1,R1,#1

4
BGT lp

>STR R2,data_store

HMOVS PC,R14

R.data_store

\	DCD 0

f]:�

pș 8,16,s$,s%,0 � ,,,,B%

zA%=s%:� code%

�=!data_store

�

���c(a%)

�*ș&2E,&222,s%,Cad%(a%),xcurs%,ycurs%,0

�xcurs%+=Cw%(a%)

��

�

�
��sen(s$)

�� a%,b%,d$:b%=0:�a%=1��s$

�b%+=Cw%(�(�s$,a%,1))):�

�xcurs%=(1280-b%)/2

��a%=1��s$:b%=(�(�s$,a%,1)))

�*ș&2E,&222,s%,Cad%(b%),xcurs%,ycurs%,0
xcurs%+=Cw%(b%):�
ycurs%-=96:�

$3� CAST," ","S. VEROID","S. QUEER","P. RIMMID",0
.;� GUEST STARS," ","V. NUS","ANDY ROMEDA","U. R. ANUS",0
82� ANIMALS PROVIDED BY," ","SNOWBALL THE CAT",0
BF� CATERING STAFF," ","MR. AND MRS. MASON","MR. AND MRS. SANDERS",0
L-� BASED ON THE NOVEL BY," ","HIGH RISC",0
V*� COPYRIGHT SUITS BY," ","HIGH RISC",0
`D� EVENING SUITS BY," ","MARKS AND SPENCER","FOSTERS","BURTONS",0
j4� FIRST ASSISTANT DIRECTOR," ","TRAFFIC LIGHT",0
t)� PRODUCTION COORDINATOR," ","FOOD",0
~3� STILLS BY," ","PAINT","DRAW","FONT MANAGER",0
�8� GRIP," ","PLASTIC FEET","RUBBER MAT","SELLOTAPE",0
�%� CAMERA TEAM," ","VIDC","MEMC",0
�%� SENIOR CAMERAMAN," ","EUCLID",0
�*� SOUND TEAM," ","VIDC","ARM","MEMC",0
�(� SOUND SUPERVISOR," ","COCONIZER",0
�4� LIGHTING DIRECTORS," ","C.R. TUBE","D. BULB",0
�#� VISION MIXER," ","ARABELLA",0
�� CASTING," ","PLASTER",0
�#� SET ASSEMBLY BY," ","BASIC",0
�4� SCRIPT BY," ","PAUL MASON","VINCENT SANDERS",0
�0� DUBBING MIXERS," ","BASIC EDITOR","EDIT",0
�5� VIDEOTAPE EDITORS," ","EUCLID","DRAW","PAINT",0
2� ON LINE EDITORS," ","BASIC","BASIC EDITOR",0

=� SCRIPT EDITORS," ","EDIT","PENDOWN","FIRST WORD PLUS",0
Z� MAGAZINE EDITORS," ","STEVE TURNBULL","JULIAN MARSHALL","PAM TURNBULL","MIKE COOK",0
M� PEOPLE WE KNOW," ","SHARON STONE","KIM BASINGER"," ","... HONEST ...",0
(^� PEOPLE WE WANT TO KNOW," ","AS BEFORE AND ..."," ","A LEVEL MODERATORS","MILLIONAIRES",0
2/� LINE PRODUCERS," ","MOVE","DRAW","LINE",0
<8� EXECUTIVE PRODUCER," ","CHAP WITH THE BRIEFCASE",0
F/� DESIGNERS," ","GEORGIO ARMANI","JAEGER",0
P8� PRODUCED BY," ","HARD WORK","SHADOW IN THE DARC",0
Z)� DIRECTED BY," ","COMPLETE CHANCE",0
d� " ",0
n@� OUR THANKS GO TO," ","US","OUR PARENTS","FATE","DESTINY",0
x.� A NOVEL PRODUCTION," ","FOR"," "," ",2,0
�E� COPYRIGHT,"SHADOW IN THE DARC"," ","MCMXIIV CASTLEMAINE XXXX",0
�� 0
�
00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 16 f4 20 42  75 67 67 65 72 20 6f 66  |e..... Bugger of|
00000020  66 20 6e 6f 73 65 79 0d  00 1e 04 0d 00 28 20 ee  |f nosey......( .|
00000030  20 85 20 ff 22 53 65 74  20 73 24 20 22 2b f6 24  | . ."Set s$ "+.$|
00000040  2b 22 20 40 20 22 2b c3  9e 3a e0 0d 00 32 15 c8  |+" @ "+..:...2..|
00000050  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00000060  0d 00 3c 20 f2 73 65 74  5f 75 70 3a f2 77 69 6e  |..< .set_up:.win|
00000070  64 6f 77 73 3a f2 6d 65  6e 75 3a f2 69 63 6f 6e  |dows:.menu:.icon|
00000080  0d 00 46 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..F... "Hourglas|
00000090  73 5f 4f 66 66 22 0d 00  50 22 f5 3a c8 99 20 26  |s_Off"..P".:.. &|
000000a0  34 32 20 b8 20 52 54 74  69 6d 65 25 3a 52 54 74  |42 . RTtime%:RTt|
000000b0  69 6d 65 25 2b 3d 32 35  0d 00 5a 21 c8 99 20 26  |ime%+=25..Z!.. &|
000000c0  34 30 30 45 31 2c 30 2c  71 25 2c 52 54 74 69 6d  |400E1,0,q%,RTtim|
000000d0  65 25 20 b8 20 52 54 72  25 0d 00 64 0d c8 8e 20  |e% . RTr%..d... |
000000e0  52 54 72 25 20 ca 0d 00  6e 1b c9 20 30 20 3a 20  |RTr% ...n.. 0 : |
000000f0  f4 20 50 52 4f 43 63 68  61 6e 67 65 5f 69 63 6f  |. PROCchange_ico|
00000100  6e 0d 00 78 16 c9 20 32  20 3a 20 c8 99 26 34 30  |n..x.. 2 : ..&40|
00000110  30 43 35 2c 2c 71 25 0d  00 82 16 c9 20 33 20 3a  |0C5,,q%..... 3 :|
00000120  20 c8 99 26 34 30 30 43  36 2c 2c 71 25 0d 00 8c  | ..&400C6,,q%...|
00000130  30 c9 20 36 20 3a 20 e7  20 71 25 21 31 32 3d 2d  |0. 6 : . q%!12=-|
00000140  32 20 80 20 71 25 21 31  36 3d 52 54 69 63 6f 6e  |2 . q%!16=RTicon|
00000150  25 20 f2 63 68 65 63 6b  5f 69 63 6f 6e 0d 00 96  |% .check_icon...|
00000160  17 c9 20 39 20 3a 20 e7  20 71 25 21 30 3d 31 20  |.. 9 : . q%!0=1 |
00000170  f2 65 6e 64 0d 00 a0 1c  c9 20 31 37 2c 31 38 20  |.end..... 17,18 |
00000180  3a 20 e7 20 71 25 21 31  36 3d 30 20 f2 65 6e 64  |: . q%!16=0 .end|
00000190  0d 00 aa 05 cb 0d 00 b4  07 fd 20 30 0d 00 be 04  |.......... 0....|
000001a0  0d 00 c8 0a dd f2 6d 65  6e 75 0d 00 d2 13 50 25  |......menu....P%|
000001b0  3d 52 54 6d 6e 25 3a 5b  4f 50 54 20 30 0d 00 dc  |=RTmn%:[OPT 0...|
000001c0  18 44 43 42 20 22 48 6f  6c 6f 44 65 6d 6f 22 3a  |.DCB "HoloDemo":|
000001d0  44 43 44 20 30 0d 00 e6  1a 44 43 44 20 26 30 30  |DCD 0....DCD &00|
000001e0  30 37 30 32 30 37 3a 44  43 44 20 36 2a 31 36 0d  |070207:DCD 6*16.|
000001f0  00 f0 10 44 43 44 20 34  34 3a 44 43 44 20 30 0d  |...DCD 44:DCD 0.|
00000200  00 fa 09 2e 69 6e 66 6f  0d 01 04 25 44 43 44 20  |....info...%DCD |
00000210  32 3a 44 43 44 20 77 69  6e 5f 69 6e 66 6f 25 3a  |2:DCD win_info%:|
00000220  44 43 44 20 26 30 37 30  30 30 30 33 31 0d 01 0e  |DCD &07000031...|
00000230  1a 44 43 42 20 22 49 6e  66 6f 22 3a 44 43 44 20  |.DCB "Info":DCD |
00000240  30 3a 44 43 44 20 30 0d  01 18 20 44 43 44 20 31  |0:DCD 0... DCD 1|
00000250  32 38 3a 44 43 44 20 2d  31 3a 44 43 44 20 26 30  |28:DCD -1:DCD &0|
00000260  37 30 30 30 30 33 31 0d  01 22 1a 44 43 42 20 22  |7000031..".DCB "|
00000270  51 75 69 74 22 3a 44 43  44 20 30 3a 44 43 44 20  |Quit":DCD 0:DCD |
00000280  30 0d 01 2c 07 5d 3a e1  0d 01 36 04 0d 01 40 0d  |0..,.]:...6...@.|
00000290  dd f2 77 69 6e 64 6f 77  73 0d 01 4a 29 c8 99 20  |..windows..J).. |
000002a0  26 34 30 30 44 39 2c 2c  22 3c 48 6f 6c 6f 44 65  |&400D9,,"<HoloDe|
000002b0  6d 6f 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |mo$Dir>.Template|
000002c0  73 22 0d 01 54 34 c8 99  20 26 34 30 30 44 42 2c  |s"..T4.. &400DB,|
000002d0  2c 71 25 2c 52 54 69 63  6f 6e 73 25 2c 52 54 69  |,q%,RTicons%,RTi|
000002e0  63 6f 6e 73 25 2b 31 30  32 34 2c 2d 31 2c 22 69  |cons%+1024,-1,"i|
000002f0  6e 66 6f 22 2c 30 0d 01  5e 34 52 54 66 6c 67 25  |nfo",0..^4RTflg%|
00000300  3d 71 25 21 28 38 38 2b  39 2a 33 32 2b 31 36 29  |=q%!(88+9*32+16)|
00000310  3a 52 54 66 6c 67 25 3d  52 54 66 6c 67 25 80 20  |:RTflg%=RTflg%. |
00000320  ac 20 28 31 35 3c 3c 31  32 29 0d 01 68 1a 71 25  |. (15<<12)..h.q%|
00000330  21 28 38 38 2b 39 2a 33  32 2b 31 36 29 3d 52 54  |!(88+9*32+16)=RT|
00000340  66 6c 67 25 0d 01 72 35  52 54 66 6c 67 25 3d 71  |flg%..r5RTflg%=q|
00000350  25 21 28 38 38 2b 31 30  2a 33 32 2b 31 36 29 3a  |%!(88+10*32+16):|
00000360  52 54 66 6c 67 25 3d 52  54 66 6c 67 25 80 20 ac  |RTflg%=RTflg%. .|
00000370  20 28 31 35 3c 3c 31 32  29 0d 01 7c 1b 71 25 21  | (15<<12)..|.q%!|
00000380  28 38 38 2b 31 30 2a 33  32 2b 31 36 29 3d 52 54  |(88+10*32+16)=RT|
00000390  66 6c 67 25 0d 01 86 1d  c8 99 20 26 34 30 30 43  |flg%...... &400C|
000003a0  31 2c 2c 71 25 20 b8 20  77 69 6e 5f 69 6e 66 6f  |1,,q% . win_info|
000003b0  25 0d 01 90 0d c8 99 20  26 34 30 30 44 41 0d 01  |%...... &400DA..|
000003c0  9a 05 e1 0d 01 a4 04 0d  01 ae 0a dd f2 69 63 6f  |.............ico|
000003d0  6e 0d 01 b8 10 50 25 3d  71 25 3a 5b 4f 50 54 20  |n....P%=q%:[OPT |
000003e0  30 0d 01 c2 0a 44 43 44  20 2d 31 0d 01 cc 1d 44  |0....DCD -1....D|
000003f0  43 44 20 30 3a 44 43 44  20 30 3a 44 43 44 20 38  |CD 0:DCD 0:DCD 8|
00000400  30 3a 44 43 44 20 38 30  0d 01 d6 12 44 43 44 20  |0:DCD 80....DCD |
00000410  26 30 30 30 30 33 30 31  41 3a 0d 01 e0 19 44 43  |&0000301A:....DC|
00000420  42 20 22 21 48 6f 6c 6f  44 65 6d 6f 22 3a 41 4c  |B "!HoloDemo":AL|
00000430  49 47 4e 0d 01 ea 1d 5d  3a c8 99 20 26 34 30 30  |IGN....]:.. &400|
00000440  43 32 2c 2c 71 25 20 b8  20 52 54 69 63 6f 6e 25  |C2,,q% . RTicon%|
00000450  0d 01 f4 05 e1 0d 01 fe  04 0d 02 08 0c dd f2 73  |...............s|
00000460  65 74 5f 75 70 0d 02 12  29 c8 99 20 26 34 30 30  |et_up...).. &400|
00000470  43 30 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |C0,200,&4B534154|
00000480  2c 22 33 44 20 48 6f 6c  6f 44 65 6d 6f 22 0d 02  |,"3D HoloDemo"..|
00000490  1c 2d 52 54 63 6f 63 6f  6c 65 6e 25 3d 35 30 39  |.-RTcocolen%=509|
000004a0  32 38 2b 31 36 3a 79 63  75 72 73 25 3d 35 30 30  |28+16:ycurs%=500|
000004b0  3a 78 63 75 72 73 25 3d  34 30 30 0d 02 26 16 de  |:xcurs%=400..&..|
000004c0  20 43 77 25 28 39 36 29  2c 43 61 64 25 28 39 36  | Cw%(96),Cad%(96|
000004d0  29 0d 02 30 38 de 20 71  25 20 34 30 39 36 2c 52  |)..08. q% 4096,R|
000004e0  54 6d 6e 25 20 32 35 36  2c 52 54 69 63 6f 6e 73  |Tmn% 256,RTicons|
000004f0  25 20 31 30 32 34 2c 52  54 63 6f 63 6f 25 20 52  |% 1024,RTcoco% R|
00000500  54 63 6f 63 6f 6c 65 6e  25 0d 02 3a 2c ff 22 4c  |Tcocolen%..:,."L|
00000510  6f 61 64 20 3c 48 6f 6c  6f 44 65 6d 6f 24 44 69  |oad <HoloDemo$Di|
00000520  72 3e 2e 46 72 6f 67 67  79 20 22 2b c3 7e 52 54  |r>.Froggy "+.~RT|
00000530  63 6f 63 6f 25 0d 02 44  0e 73 73 69 7a 65 25 3d  |coco%..D.ssize%=|
00000540  32 30 30 0d 02 4e 4c de  20 73 25 20 31 30 32 34  |200..NL. s% 1024|
00000550  2a 73 73 69 7a 65 25 2c  73 63 6c 25 20 31 36 2c  |*ssize%,scl% 16,|
00000560  73 63 72 74 65 78 74 25  20 38 31 39 32 2c 61 64  |scrtext% 8192,ad|
00000570  64 72 25 20 36 33 2a 34  2c 63 6f 64 65 25 20 32  |dr% 63*4,code% 2|
00000580  35 36 2b 35 30 30 30 2a  31 36 2c 4c 25 2d 31 0d  |56+5000*16,L%-1.|
00000590  02 58 27 de 20 73 69 6e  74 61 62 25 20 37 32 30  |.X'. sintab% 720|
000005a0  2a 36 3a 73 74 61 62 25  3d 73 69 6e 74 61 62 25  |*6:stab%=sintab%|
000005b0  2b 31 38 30 2a 34 0d 02  62 15 e3 20 73 69 6e 25  |+180*4..b.. sin%|
000005c0  3d 2d 31 37 39 20 b8 20  37 31 39 0d 02 6c 22 73  |=-179 . 719..l"s|
000005d0  74 61 62 25 21 28 73 69  6e 25 3c 3c 32 29 3d b5  |tab%!(sin%<<2)=.|
000005e0  b2 28 73 69 6e 25 29 20  2a 20 31 32 38 0d 02 76  |.(sin%) * 128..v|
000005f0  05 ed 0d 02 80 0c 73 63  6c 25 21 30 3d 35 0d 02  |......scl%!0=5..|
00000600  8a 0c 73 63 6c 25 21 34  3d 35 0d 02 94 0c 73 63  |..scl%!4=5....sc|
00000610  6c 25 21 38 3d 36 0d 02  9e 0d 73 63 6c 25 21 31  |l%!8=6....scl%!1|
00000620  32 3d 36 0d 02 a8 13 21  73 25 3d 31 30 32 34 2a  |2=6....!s%=1024*|
00000630  73 73 69 7a 65 25 0d 02  b2 36 e7 20 a4 63 72 63  |ssize%...6. .crc|
00000640  28 22 3c 48 6f 6c 6f 44  65 6d 6f 24 44 69 72 3e  |("<HoloDemo$Dir>|
00000650  2e 53 70 72 69 74 65 46  69 6c 65 22 29 3c 3e 26  |.SpriteFile")<>&|
00000660  41 34 45 37 30 38 37 20  ef 37 3a e0 0d 02 bc 33  |A4E7087 .7:....3|
00000670  e7 20 a4 63 72 63 28 22  3c 48 6f 6c 6f 44 65 6d  |. .crc("<HoloDem|
00000680  6f 24 44 69 72 3e 2e 53  63 72 54 65 78 74 22 29  |o$Dir>.ScrText")|
00000690  3c 3e 26 36 42 42 34 42  34 31 20 ef 37 3a e0 0d  |<>&6BB4B41 .7:..|
000006a0  02 c6 2e c8 99 20 26 32  45 2c 26 31 30 41 2c 73  |..... &2E,&10A,s|
000006b0  25 2c 22 3c 48 6f 6c 6f  44 65 6d 6f 24 44 69 72  |%,"<HoloDemo$Dir|
000006c0  3e 2e 53 70 72 69 74 65  46 69 6c 65 22 0d 02 d0  |>.SpriteFile"...|
000006d0  25 c8 99 20 26 32 45 2c  26 31 31 42 2c 73 25 2c  |%.. &2E,&11B,s%,|
000006e0  22 73 63 72 65 65 6e 22  2c 22 73 63 72 65 65 6e  |"screen","screen|
000006f0  32 22 0d 02 da 1c c8 99  20 26 32 45 2c 26 31 32  |2"...... &2E,&12|
00000700  46 2c 73 25 2c 22 73 63  72 65 65 6e 32 22 0d 02  |F,s%,"screen2"..|
00000710  e4 11 e3 20 5a 61 25 3d  33 32 20 b8 20 39 35 0d  |... Za%=32 . 95.|
00000720  02 ee 1e c8 99 20 26 32  45 2c 26 31 31 38 2c 73  |..... &2E,&118,s|
00000730  25 2c c3 5a 61 25 20 b8  20 2c 2c 67 25 0d 02 f8  |%,.Za% . ,,g%...|
00000740  1a 61 64 64 72 25 21 28  28 5a 61 25 2d 33 32 29  |.addr%!((Za%-32)|
00000750  3c 3c 32 29 3d 67 25 0d  03 02 05 ed 0d 03 0c 3d  |<<2)=g%........=|
00000760  c8 99 20 38 2c 31 36 2c  22 3c 48 6f 6c 6f 44 65  |.. 8,16,"<HoloDe|
00000770  6d 6f 24 44 69 72 3e 2e  53 63 72 54 65 78 74 22  |mo$Dir>.ScrText"|
00000780  2c 73 63 72 74 65 78 74  25 2c 30 20 b8 20 2c 2c  |,scrtext%,0 . ,,|
00000790  2c 2c 73 63 72 6c 65 6e  25 0d 03 16 27 e3 20 5a  |,,scrlen%...'. Z|
000007a0  61 25 3d 73 63 72 74 65  78 74 25 20 b8 20 73 63  |a%=scrtext% . sc|
000007b0  72 74 65 78 74 25 2b 73  63 72 6c 65 6e 25 2d 31  |rtext%+scrlen%-1|
000007c0  0d 03 20 14 3f 5a 61 25  3d 28 3f 5a 61 25 2d 33  |.. .?Za%=(?Za%-3|
000007d0  32 29 2a 34 0d 03 2a 05  ed 0d 03 34 08 f2 61 73  |2)*4..*....4..as|
000007e0  73 0d 03 3e 0f f2 6d 61  6b 65 5f 73 74 61 72 73  |s..>..make_stars|
000007f0  0d 03 48 0c f2 69 6e 69  74 73 70 72 0d 03 52 0c  |..H..initspr..R.|
00000800  f4 20 77 69 74 68 69 6e  0d 03 5c 13 61 72 6d 33  |. within..\.arm3|
00000810  5f 76 65 72 73 69 6f 6e  25 3d 30 0d 03 66 18 65  |_version%=0..f.e|
00000820  78 61 25 3d 32 2d 61 72  6d 33 5f 76 65 72 73 69  |xa%=2-arm3_versi|
00000830  6f 6e 25 0d 03 70 14 78  30 25 3d 2d 31 33 35 3a  |on%..p.x0%=-135:|
00000840  78 31 25 3d 2d 38 30 0d  03 7a 28 61 25 3d 34 30  |x1%=-80..z(a%=40|
00000850  30 3a 62 25 3d 34 30 30  3a 63 69 25 3d 2d 32 34  |0:b%=400:ci%=-24|
00000860  3a 63 25 3d 30 3a 73 70  5f 69 6e 63 25 3d 31 0d  |:c%=0:sp_inc%=1.|
00000870  03 84 33 73 63 25 3d 31  3a 41 61 25 3d 30 3a 41  |..3sc%=1:Aa%=0:A|
00000880  62 25 3d 33 3a 41 63 25  3d 36 3a 73 70 25 3d 33  |b%=3:Ac%=6:sp%=3|
00000890  32 3a 6f 6e 6b 25 3d 31  3a 73 69 6e 61 64 76 25  |2:onk%=1:sinadv%|
000008a0  3d 30 0d 03 8e 47 79 79  25 3d 31 30 30 3a 76 65  |=0...Gyy%=100:ve|
000008b0  6c 25 3d 30 3a 64 25 3d  62 25 3a 65 25 3d 63 69  |l%=0:d%=b%:e%=ci|
000008c0  25 3a 73 63 72 6f 6c 6c  79 25 3d 30 3a 73 63 72  |%:scrolly%=0:scr|
000008d0  6f 66 66 25 3d 30 3a 73  63 72 6d 61 78 25 3d 73  |off%=0:scrmax%=s|
000008e0  63 72 6c 65 6e 25 2d 31  31 0d 03 98 05 e1 0d 03  |crlen%-11.......|
000008f0  a2 04 0d 03 ac 09 dd f2  65 6e 64 0d 03 b6 17 77  |........end....w|
00000900  69 6d 70 5f 6d 6f 64 65  25 3d eb 3a 73 63 72 25  |imp_mode%=.:scr%|
00000910  3d 31 0d 03 c0 12 2a 48  6f 6c 6f 43 61 63 68 65  |=1....*HoloCache|
00000920  20 4f 66 66 0d 03 ca 10  c8 99 20 26 34 30 30 45  | Off...... &400E|
00000930  33 2c 31 35 0d 03 d4 1d  ee 20 85 20 c8 99 26 34  |3,15..... . ..&4|
00000940  30 30 45 33 2c 77 69 6d  70 5f 6d 6f 64 65 25 3a  |00E3,wimp_mode%:|
00000950  e0 0d 03 de 0d e7 20 eb  3c 3e 31 35 20 e0 0d 03  |...... .<>15 ...|
00000960  e8 27 eb 31 32 3a e3 63  25 3d 30 b8 37 3a fb 63  |.'.12:.c%=0.7:.c|
00000970  25 2c 63 25 2a 33 36 2c  63 25 2a 33 36 2c 63 25  |%,c%*36,c%*36,c%|
00000980  2a 33 36 3a ed 0d 03 f2  11 fb 31 31 2c 32 35 35  |*36:......11,255|
00000990  2c 34 30 2c 31 30 0d 03  fc 0f c8 99 36 2c 31 31  |,40,10......6,11|
000009a0  32 2c 32 3a db 0d 04 06  0f c8 99 36 2c 31 31 32  |2,2:.......6,112|
000009b0  2c 31 3a db 0d 04 10 14  ef 32 38 2c 30 2c 33 31  |,1:......28,0,31|
000009c0  2c 37 39 2c 31 32 3a 87  0d 04 1a 10 79 63 75 72  |,79,12:.....ycur|
000009d0  73 25 3d 35 36 30 3a f7  0d 04 24 05 f5 0d 04 2e  |s%=560:...$.....|
000009e0  05 db 0d 04 38 14 f3 20  7a 24 3a e7 20 7a 24 3c  |....8.. z$:. z$<|
000009f0  3e 22 30 22 20 8c 0d 04  42 0e 79 63 75 72 73 25  |>"0" ...B.ycurs%|
00000a00  3d 35 36 30 0d 04 4c 0f  c8 99 36 2c 31 31 32 2c  |=560..L...6,112,|
00000a10  31 3a db 0d 04 56 18 f2  73 65 6e 28 7a 24 29 3a  |1:...V..sen(z$):|
00000a20  c8 99 36 2c 31 31 32 2c  32 3a db 0d 04 60 21 79  |..6,112,2:...`!y|
00000a30  63 75 72 73 25 2b 3d 39  36 3a f2 73 65 6e 28 7a  |curs%+=96:.sen(z|
00000a40  24 29 3a c8 99 36 2c 31  31 32 2c 31 0d 04 6a 08  |$):..6,112,1..j.|
00000a50  f3 20 61 24 0d 04 74 0e  c8 95 20 61 24 3c 3e 22  |. a$..t... a$<>"|
00000a60  30 22 0d 04 7e 16 f2 73  65 6e 28 61 24 29 3a c8  |0"..~..sen(a$):.|
00000a70  99 36 2c 31 31 32 2c 32  0d 04 88 21 79 63 75 72  |.6,112,2...!ycur|
00000a80  73 25 2b 3d 39 36 3a f2  73 65 6e 28 61 24 29 3a  |s%+=96:.sen(a$):|
00000a90  c8 99 36 2c 31 31 32 2c  31 0d 04 92 08 f3 20 61  |..6,112,1..... a|
00000aa0  24 0d 04 9c 15 ce 3a e3  61 6e 67 25 3d 31 b8 31  |$.....:.ang%=1.1|
00000ab0  30 3a c8 96 3a ed 0d 04  a6 11 e3 61 6e 67 25 3d  |0:..:......ang%=|
00000ac0  30 b8 37 31 32 88 38 0d  04 b0 2c c8 96 3a c8 99  |0.712.8...,..:..|
00000ad0  36 2c 31 31 33 2c 73 63  72 25 3a 73 63 72 25 3d  |6,113,scr%:scr%=|
00000ae0  73 63 72 25 82 33 3a c8  99 36 2c 31 31 32 2c 73  |scr%.3:..6,112,s|
00000af0  63 72 25 0d 04 ba 21 e6  30 2c 30 3a c8 93 c8 90  |cr%...!.0,0:....|
00000b00  20 36 34 30 2d 32 31 33  2c 37 30 30 2c 34 32 36  | 640-213,700,426|
00000b10  2c 34 30 30 0d 04 c4 12  78 25 3d 31 30 32 34 2a  |,400....x%=1024*|
00000b20  9b b2 61 6e 67 25 0d 04  ce 35 73 63 6c 25 21 30  |..ang%...5scl%!0|
00000b30  3d 31 30 32 34 2a 9b b2  61 6e 67 25 3a 73 63 6c  |=1024*..ang%:scl|
00000b40  25 21 34 3d 31 3a 73 63  6c 25 21 38 3d 31 30 32  |%!4=1:scl%!8=102|
00000b50  34 3a 73 63 6c 25 21 31  32 3d 31 0d 04 d8 0c e7  |4:scl%!12=1.....|
00000b60  20 78 25 3c 30 20 8c 0d  04 e2 0e 73 63 6c 25 21  | x%<0 .....scl%!|
00000b70  30 3d 94 78 25 0d 04 ec  36 c8 99 26 32 45 2c 26  |0=.x%...6..&2E,&|
00000b80  31 33 34 2c 73 25 2c 22  73 63 72 65 65 6e 32 22  |134,s%,"screen2"|
00000b90  2c 36 34 30 2b 78 25 2a  32 31 33 2f 31 30 32 34  |,640+x%*213/1024|
00000ba0  2c 37 30 30 2c 30 2c 73  63 6c 25 0d 04 f6 05 cc  |,700,0,scl%.....|
00000bb0  0d 05 00 35 c8 99 26 32  45 2c 26 31 33 34 2c 73  |...5..&2E,&134,s|
00000bc0  25 2c 22 73 63 72 65 65  6e 22 2c 36 34 30 2d 78  |%,"screen",640-x|
00000bd0  25 2a 32 31 33 2f 31 30  32 34 2c 37 30 30 2c 30  |%*213/1024,700,0|
00000be0  2c 73 63 6c 25 0d 05 0a  05 cd 0d 05 14 22 e7 20  |,scl%........". |
00000bf0  a6 28 2d 31 30 29 20 c8  99 26 34 30 30 45 33 2c  |.(-10) ..&400E3,|
00000c00  77 69 6d 70 5f 6d 6f 64  65 25 3a e0 0d 05 1e 05  |wimp_mode%:.....|
00000c10  ed 0d 05 28 19 cd 3a c8  99 36 2c 31 31 33 2c 31  |...(..:..6,113,1|
00000c20  3a c8 99 36 2c 31 31 32  2c 31 0d 05 32 20 e3 61  |:..6,112,1..2 .a|
00000c30  6e 67 25 3d 30 b8 33 30  3a c8 96 3a ef 32 33 2c  |ng%=0.30:..:.23,|
00000c40  37 2c 30 2c 33 2c 30 7c  3a ed 0d 05 3c 0c fd 20  |7,0,3,0|:...<.. |
00000c50  7a 24 3d 22 30 22 0d 05  46 17 c8 99 26 34 30 30  |z$="0"..F...&400|
00000c60  45 33 2c 77 69 6d 70 5f  6d 6f 64 65 25 0d 05 50  |E3,wimp_mode%..P|
00000c70  05 e0 0d 05 5a 04 0d 05  64 10 dd f2 63 68 65 63  |....Z...d...chec|
00000c80  6b 5f 69 63 6f 6e 0d 05  6e 30 e7 20 71 25 21 38  |k_icon..n0. q%!8|
00000c90  3d 32 20 c8 99 20 26 34  30 30 44 34 2c 2c 52 54  |=2 .. &400D4,,RT|
00000ca0  6d 6e 25 2c 71 25 21 30  2d 36 34 2c 34 34 2a 32  |mn%,q%!0-64,44*2|
00000cb0  2b 32 34 2b 39 36 0d 05  78 0e e7 20 71 25 21 38  |+24+96..x.. q%!8|
00000cc0  3d 34 20 8c 0d 05 82 10  77 69 6d 70 5f 6d 6f 64  |=4 .....wimp_mod|
00000cd0  65 25 3d eb 0d 05 8c 12  2a 48 6f 6c 6f 43 61 63  |e%=.....*HoloCac|
00000ce0  68 65 20 4f 66 66 0d 05  96 07 f2 67 6f 0d 05 a0  |he Off.....go...|
00000cf0  11 2a 48 6f 6c 6f 43 61  63 68 65 20 4f 6e 0d 05  |.*HoloCache On..|
00000d00  aa 17 c8 99 26 34 30 30  45 33 2c 77 69 6d 70 5f  |....&400E3,wimp_|
00000d10  6d 6f 64 65 25 0d 05 b4  05 cd 0d 05 be 05 e1 0d  |mode%...........|
00000d20  05 c8 04 0d 05 d2 08 dd  f2 67 6f 0d 05 dc 12 eb  |.........go.....|
00000d30  20 31 32 3a e7 20 eb 3c  3e 31 32 20 e1 0d 05 e6  | 12:. .<>12 ....|
00000d40  09 eb 20 38 3a 87 0d 05  f0 17 c8 99 36 2c 31 31  |.. 8:.......6,11|
00000d50  32 2c 31 3a c8 99 36 2c  31 31 33 2c 32 0d 05 fa  |2,1:..6,113,2...|
00000d60  23 71 25 21 31 30 30 3d  31 34 38 3a 71 25 21 31  |#q%!100=148:q%!1|
00000d70  30 34 3d 31 34 39 3a 71  25 21 31 30 38 3d 2d 31  |04=149:q%!108=-1|
00000d80  0d 06 04 38 c8 99 20 26  33 31 2c 71 25 2b 31 30  |...8.. &31,q%+10|
00000d90  30 2c 71 25 2b 31 30 30  3a 73 63 72 65 65 6e 30  |0,q%+100:screen0|
00000da0  25 3d 71 25 21 31 30 30  3a 73 63 72 65 65 6e 31  |%=q%!100:screen1|
00000db0  25 3d 71 25 21 31 30 34  0d 06 0e 17 c8 99 36 2c  |%=q%!104......6,|
00000dc0  31 31 32 2c 31 3a c8 99  36 2c 31 31 33 2c 31 0d  |112,1:..6,113,1.|
00000dd0  06 18 0f 2a 56 6f 6c 75  6d 65 20 31 32 37 0d 06  |...*Volume 127..|
00000de0  22 20 c8 99 20 26 31 45  2c 31 31 2c 52 54 63 6f  |" .. &1E,11,RTco|
00000df0  63 6f 25 2c 52 54 63 6f  63 6f 6c 65 6e 25 0d 06  |co%,RTcocolen%..|
00000e00  2c 0c 2a 46 58 32 30 30  2c 30 0d 06 36 17 72 31  |,.*FX200,0..6.r1|
00000e10  25 3d 31 30 30 3a 67 31  25 3d 30 3a 62 31 25 3d  |%=100:g1%=0:b1%=|
00000e20  30 0d 06 40 17 72 32 25  3d 30 3a 67 32 25 3d 30  |0..@.r2%=0:g2%=0|
00000e30  3a 62 32 25 3d 31 32 38  0d 06 4a 13 fb 20 31 2c  |:b2%=128..J.. 1,|
00000e40  72 31 25 2c 67 31 25 2c  62 31 25 0d 06 54 13 fb  |r1%,g1%,b1%..T..|
00000e50  20 32 2c 72 32 25 2c 67  32 25 2c 62 32 25 0d 06  | 2,r2%,g2%,b2%..|
00000e60  5e 25 fb 20 33 2c 72 31  25 20 84 20 72 32 25 2c  |^%. 3,r1% . r2%,|
00000e70  72 31 25 20 84 20 67 32  25 2c 72 31 25 20 84 20  |r1% . g2%,r1% . |
00000e80  62 32 25 0d 06 68 0d d1  3d 30 3a 73 63 25 3d 31  |b2%..h..=0:sc%=1|
00000e90  0d 06 72 05 f5 0d 06 7c  2a e7 20 a6 28 2d 31 30  |..r....|*. .(-10|
00000ea0  29 20 c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |) .. "XOS_CLI","|
00000eb0  52 4d 4b 69 6c 6c 20 43  6f 63 6f 2e 22 3a e1 0d  |RMKill Coco.":..|
00000ec0  06 86 0e c8 91 20 33 36  30 2c 32 35 36 0d 06 90  |..... 360,256...|
00000ed0  0a 61 25 2b 3d 63 25 0d  06 9a 0a 62 25 2b 3d 63  |.a%+=c%....b%+=c|
00000ee0  25 0d 06 a4 0a 64 25 2b  3d 65 25 0d 06 ae 26 e7  |%....d%+=e%...&.|
00000ef0  20 65 25 3c 3e 63 25 20  80 20 94 28 62 25 2d 64  | e%<>c% . .(b%-d|
00000f00  25 29 3c 28 91 2d 31 30  30 30 29 2f 31 30 30 20  |%)<(.-1000)/100 |
00000f10  8c 0d 06 b8 1b e7 20 65  25 3c 30 20 63 25 3d 2d  |...... e%<0 c%=-|
00000f20  94 63 25 20 8b 20 63 25  3d 94 63 25 0d 06 c2 13  |.c% . c%=.c%....|
00000f30  d1 3d 30 3a 65 25 3d 63  25 3a 62 25 3d 64 25 0d  |.=0:e%=c%:b%=d%.|
00000f40  06 cc 05 cd 0d 06 d6 0e  74 69 6d 65 25 3d b3 28  |........time%=.(|
00000f50  36 29 0d 06 e0 2f e7 20  91 3e 28 32 2b 74 69 6d  |6).../. .>(2+tim|
00000f60  65 25 29 2a 31 30 30 20  80 20 91 3c 39 30 30 20  |e%)*100 . .<900 |
00000f70  65 25 3d 63 25 2a b3 28  33 29 3a d1 3d 31 30 30  |e%=c%*.(3):.=100|
00000f80  30 0d 06 ea 26 e7 20 91  3e 28 32 2b 74 69 6d 65  |0...&. .>(2+time|
00000f90  25 29 2a 31 30 30 20 80  20 65 25 3d 63 25 20 65  |%)*100 . e%=c% e|
00000fa0  25 3d 63 25 2a 2e 35 0d  06 f4 2f e7 20 61 25 3e  |%=c%*.5.../. a%>|
00000fb0  3d 34 30 30 20 63 25 3d  2d 32 34 3a 6f 6e 6b 25  |=400 c%=-24:onk%|
00000fc0  3d 2d 31 3a e7 20 79 79  25 3c 33 30 30 20 76 65  |=-1:. yy%<300 ve|
00000fd0  6c 25 3d 31 30 35 0d 06  fe 2e e7 20 61 25 3c 3d  |l%=105..... a%<=|
00000fe0  2d 34 30 30 20 63 25 3d  32 34 3a 6f 6e 6b 25 3d  |-400 c%=24:onk%=|
00000ff0  31 3a e7 20 79 79 25 3c  33 30 30 20 76 65 6c 25  |1:. yy%<300 vel%|
00001000  3d 31 30 35 0d 07 08 15  e7 20 64 25 3c 3d 2d 34  |=105..... d%<=-4|
00001010  30 30 20 65 25 3d 94 65  25 0d 07 12 17 e7 20 64  |00 e%=.e%..... d|
00001020  25 3e 3d 34 30 30 20 65  25 3d 2d 28 94 65 25 29  |%>=400 e%=-(.e%)|
00001030  0d 07 1c 1b e7 20 73 70  25 3e 3d 31 30 30 2a 34  |..... sp%>=100*4|
00001040  20 73 70 5f 69 6e 63 25  3d 2d 31 0d 07 26 1b e7  | sp_inc%=-1..&..|
00001050  20 73 70 25 3c 3d 2d 31  36 30 2a 34 20 73 70 5f  | sp%<=-160*4 sp_|
00001060  69 6e 63 25 3d 31 0d 07  30 3d 73 74 61 62 25 2b  |inc%=1..0=stab%+|
00001070  3d 34 3a 73 69 6e 61 64  76 25 2b 3d 31 3a e7 20  |=4:sinadv%+=1:. |
00001080  73 69 6e 61 64 76 25 3e  3d 33 36 30 20 73 69 6e  |sinadv%>=360 sin|
00001090  61 64 76 25 3d 30 3a 73  74 61 62 25 2d 3d 33 36  |adv%=0:stab%-=36|
000010a0  30 2a 34 0d 07 3a 28 c8  96 3a c8 99 36 2c 31 31  |0*4..:(..:..6,11|
000010b0  33 2c 73 63 25 3a 73 63  25 3d 73 63 25 82 33 3a  |3,sc%:sc%=sc%.3:|
000010c0  c8 99 36 2c 31 31 32 2c  73 63 25 0d 07 44 05 db  |..6,112,sc%..D..|
000010d0  0d 07 4e 37 73 63 72 6f  6c 6c 79 25 2d 3d 33 32  |..N7scrolly%-=32|
000010e0  3a e7 20 73 63 72 6f 6c  6c 79 25 3c 3d 2d 31 32  |:. scrolly%<=-12|
000010f0  38 20 73 63 72 6f 6c 6c  79 25 3d 30 3a 73 63 72  |8 scrolly%=0:scr|
00001100  6f 66 66 25 2b 3d 31 0d  07 58 20 e7 20 73 63 72  |off%+=1..X . scr|
00001110  6f 66 66 25 3e 3d 73 63  72 6d 61 78 25 20 73 63  |off%>=scrmax% sc|
00001120  72 6f 66 66 25 3d 30 0d  07 62 33 e3 63 5a 25 3d  |roff%=0..b3.cZ%=|
00001130  30 b8 31 30 3a 73 69 6e  25 3d 73 74 61 62 25 21  |0.10:sin%=stab%!|
00001140  28 28 28 63 5a 25 3c 3c  37 29 2b 73 63 72 6f 6c  |(((cZ%<<7)+scrol|
00001150  6c 79 25 29 2a 39 3e 3e  33 29 0d 07 6c 53 c8 99  |ly%)*9>>3)..lS..|
00001160  20 26 32 45 2c 26 32 32  32 2c 73 25 2c 61 64 64  | &2E,&222,s%,add|
00001170  72 25 21 28 73 63 72 74  65 78 74 25 3f 28 73 63  |r%!(scrtext%?(sc|
00001180  72 6f 66 66 25 2b 63 5a  25 29 29 2c 63 5a 25 2a  |roff%+cZ%)),cZ%*|
00001190  31 32 38 2d 33 36 30 2b  73 63 72 6f 6c 6c 79 25  |128-360+scrolly%|
000011a0  2c 32 35 30 2b 73 69 6e  25 2c 31 3a ed 0d 07 76  |,250+sin%,1:...v|
000011b0  2a c8 99 20 26 32 45 2c  26 32 32 32 2c 73 25 2c  |*.. &2E,&222,s%,|
000011c0  73 71 72 25 28 41 63 25  29 2c 2d 78 30 25 2d 61  |sqr%(Ac%),-x0%-a|
000011d0  25 2c 33 30 30 2c 31 0d  07 80 34 c8 99 20 26 32  |%,300,1...4.. &2|
000011e0  45 2c 26 32 32 32 2c 73  25 2c 73 71 72 62 25 28  |E,&222,s%,sqrb%(|
000011f0  41 63 25 29 2c 2d 78 30  25 2d 61 25 2b 28 73 70  |Ac%),-x0%-a%+(sp|
00001200  25 3e 3e 32 29 2c 33 30  30 2c 31 0d 07 8a 2a c8  |%>>2),300,1...*.|
00001210  99 20 26 32 45 2c 26 32  32 32 2c 73 25 2c 70 79  |. &2E,&222,s%,py|
00001220  72 30 25 2c 2d 78 30 25  2d 61 25 2c 33 30 30 2b  |r0%,-x0%-a%,300+|
00001230  31 30 30 2c 31 0d 07 94  33 c8 99 20 26 32 45 2c  |100,1...3.. &2E,|
00001240  26 32 32 32 2c 73 25 2c  70 79 72 31 25 2c 2d 78  |&222,s%,pyr1%,-x|
00001250  30 25 2d 61 25 2b 28 73  70 25 3e 3e 32 29 2c 33  |0%-a%+(sp%>>2),3|
00001260  30 30 2b 31 30 30 2c 31  0d 07 9e 32 c8 99 20 26  |00+100,1...2.. &|
00001270  32 45 2c 26 32 32 32 2c  73 25 2c 72 6f 74 25 28  |2E,&222,s%,rot%(|
00001280  41 62 25 29 2c 2d 78 31  25 2b 64 25 2b 39 36 2c  |Ab%),-x1%+d%+96,|
00001290  2d 31 30 30 2b 79 79 25  2c 31 0d 07 a8 32 c8 99  |-100+yy%,1...2..|
000012a0  20 26 32 45 2c 26 32 32  32 2c 73 25 2c 72 6f 74  | &2E,&222,s%,rot|
000012b0  62 25 28 41 62 25 29 2c  2d 78 31 25 2b 64 25 2b  |b%(Ab%),-x1%+d%+|
000012c0  30 2c 2d 31 30 30 2b 79  79 25 2c 31 0d 07 b2 32  |0,-100+yy%,1...2|
000012d0  c8 99 20 26 32 45 2c 26  32 32 32 2c 73 25 2c 73  |.. &2E,&222,s%,s|
000012e0  71 72 25 28 41 61 25 29  2c 2d 78 31 25 2b 62 25  |qr%(Aa%),-x1%+b%|
000012f0  2b 39 36 2c 2d 31 30 30  2b 79 79 25 2c 31 0d 07  |+96,-100+yy%,1..|
00001300  bc 30 c8 99 20 26 32 45  2c 26 32 32 32 2c 73 25  |.0.. &2E,&222,s%|
00001310  2c 73 71 72 62 25 28 41  61 25 29 2c 2d 78 31 25  |,sqrb%(Aa%),-x1%|
00001320  2b 62 25 2c 2d 31 30 30  2b 79 79 25 2c 31 0d 07  |+b%,-100+yy%,1..|
00001330  c6 13 fb 20 31 2c 72 31  25 2c 67 31 25 2c 62 31  |... 1,r1%,g1%,b1|
00001340  25 0d 07 d0 13 fb 20 32  2c 72 32 25 2c 67 32 25  |%..... 2,r2%,g2%|
00001350  2c 62 32 25 0d 07 da 25  fb 20 33 2c 72 31 25 20  |,b2%...%. 3,r1% |
00001360  84 20 72 32 25 2c 72 31  25 20 84 20 67 32 25 2c  |. r2%,r1% . g2%,|
00001370  72 31 25 20 84 20 62 32  25 0d 07 e4 16 41 61 25  |r1% . b2%....Aa%|
00001380  3d 28 41 61 25 2b 6f 6e  6b 25 2b 39 29 83 39 0d  |=(Aa%+onk%+9).9.|
00001390  07 ee 13 41 62 25 3d 28  41 62 25 2b 31 2b 35 29  |...Ab%=(Ab%+1+5)|
000013a0  83 35 0d 07 f8 13 41 63  25 3d 28 41 63 25 2b 31  |.5....Ac%=(Ac%+1|
000013b0  2b 39 29 83 39 0d 08 02  10 73 70 25 2b 3d 73 70  |+9).9....sp%+=sp|
000013c0  5f 69 6e 63 25 0d 08 0c  0c 76 65 6c 25 2d 3d 31  |_inc%....vel%-=1|
000013d0  38 0d 08 16 0d 79 79 25  2b 3d 76 65 6c 25 0d 08  |8....yy%+=vel%..|
000013e0  20 23 e7 20 79 79 25 3c  30 20 76 65 6c 25 3d 94  | #. yy%<0 vel%=.|
000013f0  76 65 6c 25 3a 79 79 25  2b 3d 76 65 6c 25 3e 3e  |vel%:yy%+=vel%>>|
00001400  32 0d 08 2a 23 e7 20 79  79 25 3c 2d 31 30 30 20  |2..*#. yy%<-100 |
00001410  76 65 6c 25 3d 94 76 65  6c 25 3a 79 79 25 2b 3d  |vel%=.vel%:yy%+=|
00001420  76 65 6c 25 0d 08 34 2b  43 25 3d 73 63 72 65 65  |vel%..4+C%=scree|
00001430  6e 31 25 3a d6 20 63 61  6c 6c 3a c8 94 20 73 63  |n1%:. call:.. sc|
00001440  72 65 65 6e 30 25 2c 73  63 72 65 65 6e 31 25 0d  |reen0%,screen1%.|
00001450  08 3e 07 fd 20 30 0d 08  48 04 0d 08 52 0d dd f2  |.>.. 0..H...R...|
00001460  69 6e 69 74 73 70 72 0d  08 5c 08 ea 20 61 25 0d  |initspr..\.. a%.|
00001470  08 66 27 de 20 73 71 72  25 28 38 29 2c 73 71 72  |.f'. sqr%(8),sqr|
00001480  62 25 28 38 29 2c 72 6f  74 25 28 38 29 2c 72 6f  |b%(8),rot%(8),ro|
00001490  74 62 25 28 38 29 0d 08  70 0e e3 20 61 25 3d 30  |tb%(8)..p.. a%=0|
000014a0  20 b8 20 38 0d 08 7a 1c  73 71 72 25 28 61 25 29  | . 8..z.sqr%(a%)|
000014b0  3d a4 67 65 74 28 22 73  71 72 22 2b c3 61 25 29  |=.get("sqr"+.a%)|
000014c0  0d 08 84 1e 73 71 72 62  25 28 61 25 29 3d a4 67  |....sqrb%(a%)=.g|
000014d0  65 74 28 22 73 71 72 62  22 2b c3 61 25 29 0d 08  |et("sqrb"+.a%)..|
000014e0  8e 0c e7 20 61 25 3c 35  20 8c 0d 08 98 1c 72 6f  |... a%<5 .....ro|
000014f0  74 25 28 61 25 29 3d a4  67 65 74 28 22 72 6f 74  |t%(a%)=.get("rot|
00001500  22 2b c3 61 25 29 0d 08  a2 1e 72 6f 74 62 25 28  |"+.a%)....rotb%(|
00001510  61 25 29 3d a4 67 65 74  28 22 72 6f 74 62 22 2b  |a%)=.get("rotb"+|
00001520  c3 61 25 29 0d 08 ac 16  70 79 72 30 25 3d a4 67  |.a%)....pyr0%=.g|
00001530  65 74 28 22 70 79 72 30  22 29 0d 08 b6 17 70 79  |et("pyr0")....py|
00001540  72 31 25 3d a4 67 65 74  28 22 70 79 72 42 30 22  |r1%=.get("pyrB0"|
00001550  29 0d 08 c0 05 cd 0d 08  ca 05 ed 0d 08 d4 12 e3  |)...............|
00001560  20 61 25 3d 33 32 20 b8  20 97 22 5a 22 0d 08 de  | a%=32 . ."Z"...|
00001570  25 e7 20 61 25 3d 33 32  20 84 20 61 25 3d 34 36  |%. a%=32 . a%=46|
00001580  20 84 20 61 25 3d 35 30  20 84 20 61 25 3e 36 34  | . a%=50 . a%>64|
00001590  20 8c 0d 08 e8 1d 43 61  64 25 28 61 25 29 3d a4  | .....Cad%(a%)=.|
000015a0  67 65 74 28 22 63 68 61  72 22 2b c3 61 25 29 0d  |get("char"+.a%).|
000015b0  08 f2 1f ff 22 53 65 74  20 41 24 22 2b c3 61 25  |...."Set A$"+.a%|
000015c0  2b 22 20 22 2b c3 43 61  64 25 28 61 25 29 0d 08  |+" "+.Cad%(a%)..|
000015d0  fc 27 c8 99 26 32 45 2c  26 32 32 38 2c 73 25 2c  |.'..&2E,&228,s%,|
000015e0  43 61 64 25 28 61 25 29  20 b8 20 2c 2c 2c 43 77  |Cad%(a%) . ,,,Cw|
000015f0  25 28 61 25 29 0d 09 06  15 43 77 25 28 61 25 29  |%(a%)....Cw%(a%)|
00001600  3d 43 77 25 28 61 25 29  2a 32 0d 09 10 05 cd 0d  |=Cw%(a%)*2......|
00001610  09 1a 05 ed 0d 09 24 05  e1 0d 09 2e 04 0d 09 38  |......$........8|
00001620  0d dd a4 67 65 74 28 73  24 29 0d 09 42 08 ea 20  |...get(s$)..B.. |
00001630  61 25 0d 09 4c 1c c8 99  20 26 32 45 2c 26 31 31  |a%..L... &2E,&11|
00001640  38 2c 73 25 2c 73 24 20  b8 20 2c 2c 61 25 0d 09  |8,s%,s$ . ,,a%..|
00001650  56 07 3d 61 25 0d 09 60  04 0d 09 6a 0a dd f2 74  |V.=a%..`...j...t|
00001660  69 64 79 0d 09 74 05 e1  0d 09 7e 04 0d 09 88 09  |idy..t....~.....|
00001670  dd f2 61 73 73 0d 09 92  29 ea 20 63 6f 6c 25 2c  |..ass...). col%,|
00001680  78 70 6f 73 25 2c 79 70  6f 73 25 2c 73 70 64 25  |xpos%,ypos%,spd%|
00001690  2c 61 64 25 2c 72 6f 6c  25 2c 6f 6c 64 25 0d 09  |,ad%,rol%,old%..|
000016a0  9c 15 e3 20 6f 70 74 25  3d 38 20 b8 20 31 30 20  |... opt%=8 . 10 |
000016b0  88 20 32 0d 09 a6 0c 50  25 3d 63 6f 64 65 25 0d  |. 2....P%=code%.|
000016c0  09 b0 35 63 6f 6c 25 3d  33 3a 78 70 6f 73 25 3d  |..5col%=3:xpos%=|
000016d0  34 3a 79 70 6f 73 25 3d  35 3a 73 70 64 25 3d 36  |4:ypos%=5:spd%=6|
000016e0  3a 61 64 25 3d 37 3a 72  6f 6c 25 3d 38 3a 6f 6c  |:ad%=7:rol%=8:ol|
000016f0  64 25 3d 39 0d 09 ba 0d  5b 4f 50 54 20 6f 70 74  |d%=9....[OPT opt|
00001700  25 0d 09 c4 0a 2e 73 74  61 72 73 0d 09 ce 09 44  |%.....stars....D|
00001710  43 44 20 30 0d 09 d8 09  2e 63 61 6c 6c 0d 09 e2  |CD 0.....call...|
00001720  16 3b 20 52 32 20 3d 20  73 63 72 65 65 6e 20 61  |.; R2 = screen a|
00001730  64 64 72 0d 09 ec 14 41  44 52 20 52 30 2c 73 74  |ddr....ADR R0,st|
00001740  61 72 5f 64 61 74 61 0d  09 f6 10 4c 44 52 20 52  |ar_data....LDR R|
00001750  31 2c 73 74 61 72 73 0d  0a 00 07 2e 6c 70 0d 0a  |1,stars.....lp..|
00001760  0a 25 4c 44 4d 49 41 20  52 30 21 2c 7b 63 6f 6c  |.%LDMIA R0!,{col|
00001770  25 2c 78 70 6f 73 25 2c  79 70 6f 73 25 2c 73 70  |%,xpos%,ypos%,sp|
00001780  64 25 7d 0d 0a 14 1d 41  44 44 20 61 64 25 2c 79  |d%}....ADD ad%,y|
00001790  70 6f 73 25 2c 78 70 6f  73 25 2c 4c 53 52 23 33  |pos%,xpos%,LSR#3|
000017a0  0d 0a 1e 13 80 20 72 6f  6c 25 2c 78 70 6f 73 25  |..... rol%,xpos%|
000017b0  2c 23 36 0d 0a 28 18 3b  4d 4f 56 20 72 6f 6c 25  |,#6..(.;MOV rol%|
000017c0  2c 72 6f 6c 25 2c 4c 53  4c 23 31 0d 0a 32 16 4c  |,rol%,LSL#1..2.L|
000017d0  44 52 42 20 6f 6c 64 25  2c 5b 52 32 2c 61 64 25  |DRB old%,[R2,ad%|
000017e0  5d 0d 0a 3c 0e 4d 4f 56  20 52 31 32 2c 23 33 0d  |]..<.MOV R12,#3.|
000017f0  0a 46 1e 42 49 43 20 6f  6c 64 25 2c 6f 6c 64 25  |.F.BIC old%,old%|
00001800  2c 52 31 32 2c 4c 53 4c  20 72 6f 6c 25 0d 0a 50  |,R12,LSL rol%..P|
00001810  1e 84 52 20 6f 6c 64 25  2c 6f 6c 64 25 2c 63 6f  |..R old%,old%,co|
00001820  6c 25 2c 4c 53 4c 20 72  6f 6c 25 0d 0a 5a 16 53  |l%,LSL rol%..Z.S|
00001830  54 52 42 20 6f 6c 64 25  2c 5b 52 32 2c 61 64 25  |TRB old%,[R2,ad%|
00001840  5d 0d 0a 64 19 53 55 42  53 20 78 70 6f 73 25 2c  |]..d.SUBS xpos%,|
00001850  78 70 6f 73 25 2c 73 70  64 25 0d 0a 6e 1c 41 44  |xpos%,spd%..n.AD|
00001860  44 4c 54 20 78 70 6f 73  25 2c 78 70 6f 73 25 2c  |DLT xpos%,xpos%,|
00001870  23 36 34 30 2a 32 0d 0a  78 17 53 54 52 20 78 70  |#640*2..x.STR xp|
00001880  6f 73 25 2c 5b 52 30 2c  23 2d 31 32 5d 0d 0a 82  |os%,[R0,#-12]...|
00001890  11 53 55 42 53 20 52 31  2c 52 31 2c 23 31 0d 0a  |.SUBS R1,R1,#1..|
000018a0  8c 0a 42 47 54 20 6c 70  0d 0a 96 0f 4d 4f 56 53  |..BGT lp....MOVS|
000018b0  20 50 43 2c 52 31 34 0d  0a a0 0a 2e 65 76 65 6e  | PC,R14.....even|
000018c0  74 0d 0a aa 0d 54 45 51  20 52 30 2c 23 34 0d 0a  |t....TEQ R0,#4..|
000018d0  b4 12 4c 44 52 20 52 31  32 2c 65 76 5f 66 6c 67  |..LDR R12,ev_flg|
000018e0  0d 0a be 12 41 44 44 20  52 31 32 2c 52 31 32 2c  |....ADD R12,R12,|
000018f0  23 31 0d 0a c8 12 53 54  52 20 52 31 32 2c 65 76  |#1....STR R12,ev|
00001900  5f 66 6c 67 0d 0a d2 0f  4d 4f 56 53 20 50 43 2c  |_flg....MOVS PC,|
00001910  52 31 34 0d 0a dc 0b 2e  65 76 5f 66 6c 67 0d 0a  |R14.....ev_flg..|
00001920  e6 09 44 43 44 20 30 0d  0a f0 0e 2e 73 74 61 72  |..DCD 0.....star|
00001930  5f 64 61 74 61 0d 0a fa  07 5d 3a ed 0d 0b 04 05  |_data....]:.....|
00001940  e1 0d 0b 0e 04 0d 0b 18  18 dd f2 73 28 78 25 2c  |...........s(x%,|
00001950  79 25 2c 63 6f 6c 25 2c  73 70 64 25 29 0d 0b 22  |y%,col%,spd%).."|
00001960  12 ea 20 6e 25 3a 6e 25  3d 21 73 74 61 72 73 0d  |.. n%:n%=!stars.|
00001970  0b 2c 13 e7 20 73 70 64  25 3c 31 20 73 70 64 25  |.,.. spd%<1 spd%|
00001980  3d 31 0d 0b 36 15 78 25  3d 28 78 25 2b 31 32 38  |=1..6.x%=(x%+128|
00001990  30 29 83 31 32 38 30 0d  0b 40 1a 6e 25 3d 6e 25  |0).1280..@.n%=n%|
000019a0  2a 31 36 3a 6e 25 2b 3d  73 74 61 72 5f 64 61 74  |*16:n%+=star_dat|
000019b0  61 0d 0b 4a 2c 6e 25 21  30 3d 63 6f 6c 25 3a 6e  |a..J,n%!0=col%:n|
000019c0  25 21 34 3d 78 25 3a 6e  25 21 38 3d 79 25 2a 31  |%!4=x%:n%!8=y%*1|
000019d0  36 30 3a 6e 25 21 31 32  3d 73 70 64 25 0d 0b 54  |60:n%!12=spd%..T|
000019e0  13 21 73 74 61 72 73 3d  21 73 74 61 72 73 2b 31  |.!stars=!stars+1|
000019f0  0d 0b 5e 05 e1 0d 0b 68  04 0d 0b 72 19 dd f2 73  |..^....h...r...s|
00001a00  32 28 78 25 2c 79 25 2c  63 6f 6c 25 2c 73 70 64  |2(x%,y%,col%,spd|
00001a10  25 29 0d 0b 7c 17 f2 73  28 78 25 2c 79 25 2c 63  |%)..|..s(x%,y%,c|
00001a20  6f 6c 25 2c 73 70 64 25  29 0d 0b 86 19 f2 73 28  |ol%,spd%).....s(|
00001a30  78 25 2b 31 2c 79 25 2c  63 6f 6c 25 2c 73 70 64  |x%+1,y%,col%,spd|
00001a40  25 29 0d 0b 90 05 e1 0d  0b 9a 04 0d 0b a4 19 dd  |%)..............|
00001a50  f2 73 33 28 78 25 2c 79  25 2c 63 6f 6c 25 2c 73  |.s3(x%,y%,col%,s|
00001a60  70 64 25 29 0d 0b ae 17  f2 73 28 78 25 2c 79 25  |pd%).....s(x%,y%|
00001a70  2c 63 6f 6c 25 2c 73 70  64 25 29 0d 0b b8 19 f2  |,col%,spd%).....|
00001a80  73 28 78 25 2b 31 2c 79  25 2c 63 6f 6c 25 2c 73  |s(x%+1,y%,col%,s|
00001a90  70 64 25 29 0d 0b c2 19  f2 73 28 78 25 2d 31 2c  |pd%).....s(x%-1,|
00001aa0  79 25 2c 63 6f 6c 25 2c  73 70 64 25 29 0d 0b cc  |y%,col%,spd%)...|
00001ab0  19 f2 73 28 78 25 2c 79  25 2b 31 2c 63 6f 6c 25  |..s(x%,y%+1,col%|
00001ac0  2c 73 70 64 25 29 0d 0b  d6 19 f2 73 28 78 25 2c  |,spd%).....s(x%,|
00001ad0  79 25 2d 31 2c 63 6f 6c  25 2c 73 70 64 25 29 0d  |y%-1,col%,spd%).|
00001ae0  0b e0 05 e1 0d 0b ea 04  0d 0b f4 10 dd f2 6d 61  |..............ma|
00001af0  6b 65 5f 73 74 61 72 73  0d 0b fe 11 e3 20 44 73  |ke_stars..... Ds|
00001b00  25 3d 30 20 b8 20 34 39  39 0d 0c 08 2c 53 54 78  |%=0 . 499...,STx|
00001b10  25 3d b3 28 31 32 38 30  29 2d 31 3a 53 54 79 25  |%=.(1280)-1:STy%|
00001b20  3d b3 28 32 35 34 29 3a  53 54 73 25 3d b3 28 33  |=.(254):STs%=.(3|
00001b30  2a 38 2a 32 29 0d 0c 12  26 53 54 78 32 25 3d 28  |*8*2)...&STx2%=(|
00001b40  53 54 78 25 2d 28 53 54  73 25 2d 31 36 29 2a 32  |STx%-(STs%-16)*2|
00001b50  2b 31 32 38 30 29 83 31  32 38 30 0d 0c 1c 0d c8  |+1280).1280.....|
00001b60  8e 20 b3 28 36 29 20 ca  0d 0c 26 3e c9 20 31 2c  |. .(6) ...&>. 1,|
00001b70  32 2c 33 20 3a 20 f2 73  33 28 53 54 78 25 2c 53  |2,3 : .s3(STx%,S|
00001b80  54 79 25 2c 31 2c 53 54  73 25 2f 33 29 3a f2 73  |Ty%,1,STs%/3):.s|
00001b90  33 28 53 54 78 32 25 2c  53 54 79 25 2c 32 2c 53  |3(STx2%,STy%,2,S|
00001ba0  54 73 25 2f 33 29 0d 0c  30 3c c9 20 34 2c 35 20  |Ts%/3)..0<. 4,5 |
00001bb0  3a 20 f2 73 32 28 53 54  78 25 2c 53 54 79 25 2c  |: .s2(STx%,STy%,|
00001bc0  31 2c 53 54 73 25 2f 33  29 3a f2 73 32 28 53 54  |1,STs%/3):.s2(ST|
00001bd0  78 32 25 2c 53 54 79 25  2c 32 2c 53 54 73 25 2f  |x2%,STy%,2,STs%/|
00001be0  33 29 0d 0c 3a 38 c9 20  36 20 3a 20 f2 73 28 53  |3)..:8. 6 : .s(S|
00001bf0  54 78 25 2c 53 54 79 25  2c 31 2c 53 54 73 25 2f  |Tx%,STy%,1,STs%/|
00001c00  33 29 3a f2 73 28 53 54  78 32 25 2c 53 54 79 25  |3):.s(STx2%,STy%|
00001c10  2c 32 2c 53 54 73 25 2f  33 29 0d 0c 44 05 cb 0d  |,2,STs%/3)..D...|
00001c20  0c 4e 05 ed 0d 0c 58 05  e1 0d 0c 62 04 0d 0c 6c  |.N....X....b...l|
00001c30  08 e6 30 2c 31 0d 0c 76  0c c8 91 20 36 34 30 2c  |..0,1..v... 640,|
00001c40  30 0d 0c 80 18 86 20 33  32 30 2c 32 30 30 2c 35  |0..... 320,200,5|
00001c50  30 30 2d 32 34 2c 31 32  30 0d 0c 8a 26 df 20 2d  |00-24,120...&. -|
00001c60  35 30 30 2d 32 34 2c 31  32 30 3a df 20 2d 33 32  |500-24,120:. -32|
00001c70  30 2c 32 30 30 3a df 20  33 32 30 2c 32 30 30 0d  |0,200:. 320,200.|
00001c80  0c 94 08 e6 31 2c 32 0d  0c 9e 18 86 20 33 32 30  |....1,2..... 320|
00001c90  2c 32 30 30 2c 35 30 30  2b 32 34 2c 31 32 30 0d  |,200,500+24,120.|
00001ca0  0c a8 26 df 20 2d 35 30  30 2b 32 34 2c 31 32 30  |..&. -500+24,120|
00001cb0  3a df 20 2d 33 32 30 2c  32 30 30 3a df 20 33 32  |:. -320,200:. 32|
00001cc0  30 2c 32 30 30 0d 0c b2  04 0d 0c bc 0d dd a4 63  |0,200..........c|
00001cd0  72 63 28 73 24 29 0d 0c  c6 17 ea 20 76 61 6c 25  |rc(s$)..... val%|
00001ce0  2c 62 69 74 25 2c 61 25  2c 6c 65 6e 25 0d 0c d0  |,bit%,a%,len%...|
00001cf0  14 e3 20 6f 70 74 25 3d  30 20 b8 20 32 20 88 20  |.. opt%=0 . 2 . |
00001d00  32 0d 0c da 16 50 25 3d  63 6f 64 65 25 3a 5b 4f  |2....P%=code%:[O|
00001d10  50 54 20 6f 70 74 25 0d  0c e4 10 3b 20 52 30 20  |PT opt%....; R0 |
00001d20  3d 20 73 74 61 72 74 0d  0c ee 11 3b 20 52 31 20  |= start....; R1 |
00001d30  3d 20 6c 65 6e 67 74 68  0d 0c f8 17 4d 4f 56 20  |= length....MOV |
00001d40  52 32 2c 23 30 3a 4d 4f  56 20 52 33 2c 23 30 0d  |R2,#0:MOV R3,#0.|
00001d50  0d 02 07 2e 6c 70 0d 0d  0c 13 4c 44 52 42 20 52  |....lp....LDRB R|
00001d60  34 2c 5b 52 30 5d 2c 23  31 0d 0d 16 15 82 20 52  |4,[R0],#1..... R|
00001d70  32 2c 52 32 2c 52 34 2c  4c 53 4c 20 52 33 0d 0d  |2,R2,R4,LSL R3..|
00001d80  20 22 53 55 42 53 20 52  33 2c 52 33 2c 23 32 33  | "SUBS R3,R3,#23|
00001d90  3a 41 44 44 4c 54 20 52  33 2c 52 33 2c 23 32 34  |:ADDLT R3,R3,#24|
00001da0  0d 0d 2a 11 53 55 42 53  20 52 31 2c 52 31 2c 23  |..*.SUBS R1,R1,#|
00001db0  31 0d 0d 34 0a 42 47 54  20 6c 70 0d 0d 3e 15 53  |1..4.BGT lp..>.S|
00001dc0  54 52 20 52 32 2c 64 61  74 61 5f 73 74 6f 72 65  |TR R2,data_store|
00001dd0  0d 0d 48 0f 4d 4f 56 53  20 50 43 2c 52 31 34 0d  |..H.MOVS PC,R14.|
00001de0  0d 52 0f 2e 64 61 74 61  5f 73 74 6f 72 65 0d 0d  |.R..data_store..|
00001df0  5c 09 44 43 44 20 30 0d  0d 66 07 5d 3a ed 0d 0d  |\.DCD 0..f.]:...|
00001e00  70 1c c8 99 20 38 2c 31  36 2c 73 24 2c 73 25 2c  |p... 8,16,s$,s%,|
00001e10  30 20 b8 20 2c 2c 2c 2c  42 25 0d 0d 7a 11 41 25  |0 . ,,,,B%..z.A%|
00001e20  3d 73 25 3a d6 20 63 6f  64 65 25 0d 0d 84 10 3d  |=s%:. code%....=|
00001e30  21 64 61 74 61 5f 73 74  6f 72 65 0d 0d 8e 04 0d  |!data_store.....|
00001e40  0d 98 0b dd f2 63 28 61  25 29 0d 0d a2 2a c8 99  |.....c(a%)...*..|
00001e50  26 32 45 2c 26 32 32 32  2c 73 25 2c 43 61 64 25  |&2E,&222,s%,Cad%|
00001e60  28 61 25 29 2c 78 63 75  72 73 25 2c 79 63 75 72  |(a%),xcurs%,ycur|
00001e70  73 25 2c 30 0d 0d ac 13  78 63 75 72 73 25 2b 3d  |s%,0....xcurs%+=|
00001e80  43 77 25 28 61 25 29 0d  0d b6 05 e1 0d 0d c0 04  |Cw%(a%).........|
00001e90  0d 0d ca 0d dd f2 73 65  6e 28 73 24 29 0d 0d d4  |......sen(s$)...|
00001ea0  1d ea 20 61 25 2c 62 25  2c 64 24 3a 62 25 3d 30  |.. a%,b%,d$:b%=0|
00001eb0  3a e3 61 25 3d 31 b8 a9  73 24 0d 0d de 1b 62 25  |:.a%=1..s$....b%|
00001ec0  2b 3d 43 77 25 28 97 28  c1 73 24 2c 61 25 2c 31  |+=Cw%(.(.s$,a%,1|
00001ed0  29 29 29 3a ed 0d 0d e8  16 78 63 75 72 73 25 3d  |))):.....xcurs%=|
00001ee0  28 31 32 38 30 2d 62 25  29 2f 32 0d 0d f2 1f e3  |(1280-b%)/2.....|
00001ef0  61 25 3d 31 b8 a9 73 24  3a 62 25 3d 28 97 28 c1  |a%=1..s$:b%=(.(.|
00001f00  73 24 2c 61 25 2c 31 29  29 29 0d 0d fc 2a c8 99  |s$,a%,1)))...*..|
00001f10  26 32 45 2c 26 32 32 32  2c 73 25 2c 43 61 64 25  |&2E,&222,s%,Cad%|
00001f20  28 62 25 29 2c 78 63 75  72 73 25 2c 79 63 75 72  |(b%),xcurs%,ycur|
00001f30  73 25 2c 30 0d 0e 06 15  78 63 75 72 73 25 2b 3d  |s%,0....xcurs%+=|
00001f40  43 77 25 28 62 25 29 3a  ed 0d 0e 10 10 79 63 75  |Cw%(b%):.....ycu|
00001f50  72 73 25 2d 3d 39 36 3a  e1 0d 0e 1a 04 0d 0e 24  |rs%-=96:.......$|
00001f60  33 dc 20 43 41 53 54 2c  22 20 22 2c 22 53 2e 20  |3. CAST," ","S. |
00001f70  56 45 52 4f 49 44 22 2c  22 53 2e 20 51 55 45 45  |VEROID","S. QUEE|
00001f80  52 22 2c 22 50 2e 20 52  49 4d 4d 49 44 22 2c 30  |R","P. RIMMID",0|
00001f90  0d 0e 2e 3b dc 20 47 55  45 53 54 20 53 54 41 52  |...;. GUEST STAR|
00001fa0  53 2c 22 20 22 2c 22 56  2e 20 4e 55 53 22 2c 22  |S," ","V. NUS","|
00001fb0  41 4e 44 59 20 52 4f 4d  45 44 41 22 2c 22 55 2e  |ANDY ROMEDA","U.|
00001fc0  20 52 2e 20 41 4e 55 53  22 2c 30 0d 0e 38 32 dc  | R. ANUS",0..82.|
00001fd0  20 41 4e 49 4d 41 4c 53  20 50 52 4f 56 49 44 45  | ANIMALS PROVIDE|
00001fe0  44 20 42 59 2c 22 20 22  2c 22 53 4e 4f 57 42 41  |D BY," ","SNOWBA|
00001ff0  4c 4c 20 54 48 45 20 43  41 54 22 2c 30 0d 0e 42  |LL THE CAT",0..B|
00002000  46 dc 20 43 41 54 45 52  49 4e 47 20 53 54 41 46  |F. CATERING STAF|
00002010  46 2c 22 20 22 2c 22 4d  52 2e 20 41 4e 44 20 4d  |F," ","MR. AND M|
00002020  52 53 2e 20 4d 41 53 4f  4e 22 2c 22 4d 52 2e 20  |RS. MASON","MR. |
00002030  41 4e 44 20 4d 52 53 2e  20 53 41 4e 44 45 52 53  |AND MRS. SANDERS|
00002040  22 2c 30 0d 0e 4c 2d dc  20 42 41 53 45 44 20 4f  |",0..L-. BASED O|
00002050  4e 20 54 48 45 20 4e 4f  56 45 4c 20 42 59 2c 22  |N THE NOVEL BY,"|
00002060  20 22 2c 22 48 49 47 48  20 52 49 53 43 22 2c 30  | ","HIGH RISC",0|
00002070  0d 0e 56 2a dc 20 43 4f  50 59 52 49 47 48 54 20  |..V*. COPYRIGHT |
00002080  53 55 49 54 53 20 42 59  2c 22 20 22 2c 22 48 49  |SUITS BY," ","HI|
00002090  47 48 20 52 49 53 43 22  2c 30 0d 0e 60 44 dc 20  |GH RISC",0..`D. |
000020a0  45 56 45 4e 49 4e 47 20  53 55 49 54 53 20 42 59  |EVENING SUITS BY|
000020b0  2c 22 20 22 2c 22 4d 41  52 4b 53 20 41 4e 44 20  |," ","MARKS AND |
000020c0  53 50 45 4e 43 45 52 22  2c 22 46 4f 53 54 45 52  |SPENCER","FOSTER|
000020d0  53 22 2c 22 42 55 52 54  4f 4e 53 22 2c 30 0d 0e  |S","BURTONS",0..|
000020e0  6a 34 dc 20 46 49 52 53  54 20 41 53 53 49 53 54  |j4. FIRST ASSIST|
000020f0  41 4e 54 20 44 49 52 45  43 54 4f 52 2c 22 20 22  |ANT DIRECTOR," "|
00002100  2c 22 54 52 41 46 46 49  43 20 4c 49 47 48 54 22  |,"TRAFFIC LIGHT"|
00002110  2c 30 0d 0e 74 29 dc 20  50 52 4f 44 55 43 54 49  |,0..t). PRODUCTI|
00002120  4f 4e 20 43 4f 4f 52 44  49 4e 41 54 4f 52 2c 22  |ON COORDINATOR,"|
00002130  20 22 2c 22 46 4f 4f 44  22 2c 30 0d 0e 7e 33 dc  | ","FOOD",0..~3.|
00002140  20 53 54 49 4c 4c 53 20  42 59 2c 22 20 22 2c 22  | STILLS BY," ","|
00002150  50 41 49 4e 54 22 2c 22  44 52 41 57 22 2c 22 46  |PAINT","DRAW","F|
00002160  4f 4e 54 20 4d 41 4e 41  47 45 52 22 2c 30 0d 0e  |ONT MANAGER",0..|
00002170  88 38 dc 20 47 52 49 50  2c 22 20 22 2c 22 50 4c  |.8. GRIP," ","PL|
00002180  41 53 54 49 43 20 46 45  45 54 22 2c 22 52 55 42  |ASTIC FEET","RUB|
00002190  42 45 52 20 4d 41 54 22  2c 22 53 45 4c 4c 4f 54  |BER MAT","SELLOT|
000021a0  41 50 45 22 2c 30 0d 0e  92 25 dc 20 43 41 4d 45  |APE",0...%. CAME|
000021b0  52 41 20 54 45 41 4d 2c  22 20 22 2c 22 56 49 44  |RA TEAM," ","VID|
000021c0  43 22 2c 22 4d 45 4d 43  22 2c 30 0d 0e 9c 25 dc  |C","MEMC",0...%.|
000021d0  20 53 45 4e 49 4f 52 20  43 41 4d 45 52 41 4d 41  | SENIOR CAMERAMA|
000021e0  4e 2c 22 20 22 2c 22 45  55 43 4c 49 44 22 2c 30  |N," ","EUCLID",0|
000021f0  0d 0e a6 2a dc 20 53 4f  55 4e 44 20 54 45 41 4d  |...*. SOUND TEAM|
00002200  2c 22 20 22 2c 22 56 49  44 43 22 2c 22 41 52 4d  |," ","VIDC","ARM|
00002210  22 2c 22 4d 45 4d 43 22  2c 30 0d 0e b0 28 dc 20  |","MEMC",0...(. |
00002220  53 4f 55 4e 44 20 53 55  50 45 52 56 49 53 4f 52  |SOUND SUPERVISOR|
00002230  2c 22 20 22 2c 22 43 4f  43 4f 4e 49 5a 45 52 22  |," ","COCONIZER"|
00002240  2c 30 0d 0e ba 34 dc 20  4c 49 47 48 54 49 4e 47  |,0...4. LIGHTING|
00002250  20 44 49 52 45 43 54 4f  52 53 2c 22 20 22 2c 22  | DIRECTORS," ","|
00002260  43 2e 52 2e 20 54 55 42  45 22 2c 22 44 2e 20 42  |C.R. TUBE","D. B|
00002270  55 4c 42 22 2c 30 0d 0e  c4 23 dc 20 56 49 53 49  |ULB",0...#. VISI|
00002280  4f 4e 20 4d 49 58 45 52  2c 22 20 22 2c 22 41 52  |ON MIXER," ","AR|
00002290  41 42 45 4c 4c 41 22 2c  30 0d 0e ce 1d dc 20 43  |ABELLA",0..... C|
000022a0  41 53 54 49 4e 47 2c 22  20 22 2c 22 50 4c 41 53  |ASTING," ","PLAS|
000022b0  54 45 52 22 2c 30 0d 0e  d8 23 dc 20 53 45 54 20  |TER",0...#. SET |
000022c0  41 53 53 45 4d 42 4c 59  20 42 59 2c 22 20 22 2c  |ASSEMBLY BY," ",|
000022d0  22 42 41 53 49 43 22 2c  30 0d 0e e2 34 dc 20 53  |"BASIC",0...4. S|
000022e0  43 52 49 50 54 20 42 59  2c 22 20 22 2c 22 50 41  |CRIPT BY," ","PA|
000022f0  55 4c 20 4d 41 53 4f 4e  22 2c 22 56 49 4e 43 45  |UL MASON","VINCE|
00002300  4e 54 20 53 41 4e 44 45  52 53 22 2c 30 0d 0e ec  |NT SANDERS",0...|
00002310  30 dc 20 44 55 42 42 49  4e 47 20 4d 49 58 45 52  |0. DUBBING MIXER|
00002320  53 2c 22 20 22 2c 22 42  41 53 49 43 20 45 44 49  |S," ","BASIC EDI|
00002330  54 4f 52 22 2c 22 45 44  49 54 22 2c 30 0d 0e f6  |TOR","EDIT",0...|
00002340  35 dc 20 56 49 44 45 4f  54 41 50 45 20 45 44 49  |5. VIDEOTAPE EDI|
00002350  54 4f 52 53 2c 22 20 22  2c 22 45 55 43 4c 49 44  |TORS," ","EUCLID|
00002360  22 2c 22 44 52 41 57 22  2c 22 50 41 49 4e 54 22  |","DRAW","PAINT"|
00002370  2c 30 0d 0f 00 32 dc 20  4f 4e 20 4c 49 4e 45 20  |,0...2. ON LINE |
00002380  45 44 49 54 4f 52 53 2c  22 20 22 2c 22 42 41 53  |EDITORS," ","BAS|
00002390  49 43 22 2c 22 42 41 53  49 43 20 45 44 49 54 4f  |IC","BASIC EDITO|
000023a0  52 22 2c 30 0d 0f 0a 3d  dc 20 53 43 52 49 50 54  |R",0...=. SCRIPT|
000023b0  20 45 44 49 54 4f 52 53  2c 22 20 22 2c 22 45 44  | EDITORS," ","ED|
000023c0  49 54 22 2c 22 50 45 4e  44 4f 57 4e 22 2c 22 46  |IT","PENDOWN","F|
000023d0  49 52 53 54 20 57 4f 52  44 20 50 4c 55 53 22 2c  |IRST WORD PLUS",|
000023e0  30 0d 0f 14 5a dc 20 4d  41 47 41 5a 49 4e 45 20  |0...Z. MAGAZINE |
000023f0  45 44 49 54 4f 52 53 2c  22 20 22 2c 22 53 54 45  |EDITORS," ","STE|
00002400  56 45 20 54 55 52 4e 42  55 4c 4c 22 2c 22 4a 55  |VE TURNBULL","JU|
00002410  4c 49 41 4e 20 4d 41 52  53 48 41 4c 4c 22 2c 22  |LIAN MARSHALL","|
00002420  50 41 4d 20 54 55 52 4e  42 55 4c 4c 22 2c 22 4d  |PAM TURNBULL","M|
00002430  49 4b 45 20 43 4f 4f 4b  22 2c 30 0d 0f 1e 4d dc  |IKE COOK",0...M.|
00002440  20 50 45 4f 50 4c 45 20  57 45 20 4b 4e 4f 57 2c  | PEOPLE WE KNOW,|
00002450  22 20 22 2c 22 53 48 41  52 4f 4e 20 53 54 4f 4e  |" ","SHARON STON|
00002460  45 22 2c 22 4b 49 4d 20  42 41 53 49 4e 47 45 52  |E","KIM BASINGER|
00002470  22 2c 22 20 22 2c 22 2e  2e 2e 20 48 4f 4e 45 53  |"," ","... HONES|
00002480  54 20 2e 2e 2e 22 2c 30  0d 0f 28 5e dc 20 50 45  |T ...",0..(^. PE|
00002490  4f 50 4c 45 20 57 45 20  57 41 4e 54 20 54 4f 20  |OPLE WE WANT TO |
000024a0  4b 4e 4f 57 2c 22 20 22  2c 22 41 53 20 42 45 46  |KNOW," ","AS BEF|
000024b0  4f 52 45 20 41 4e 44 20  2e 2e 2e 22 2c 22 20 22  |ORE AND ..."," "|
000024c0  2c 22 41 20 4c 45 56 45  4c 20 4d 4f 44 45 52 41  |,"A LEVEL MODERA|
000024d0  54 4f 52 53 22 2c 22 4d  49 4c 4c 49 4f 4e 41 49  |TORS","MILLIONAI|
000024e0  52 45 53 22 2c 30 0d 0f  32 2f dc 20 4c 49 4e 45  |RES",0..2/. LINE|
000024f0  20 50 52 4f 44 55 43 45  52 53 2c 22 20 22 2c 22  | PRODUCERS," ","|
00002500  4d 4f 56 45 22 2c 22 44  52 41 57 22 2c 22 4c 49  |MOVE","DRAW","LI|
00002510  4e 45 22 2c 30 0d 0f 3c  38 dc 20 45 58 45 43 55  |NE",0..<8. EXECU|
00002520  54 49 56 45 20 50 52 4f  44 55 43 45 52 2c 22 20  |TIVE PRODUCER," |
00002530  22 2c 22 43 48 41 50 20  57 49 54 48 20 54 48 45  |","CHAP WITH THE|
00002540  20 42 52 49 45 46 43 41  53 45 22 2c 30 0d 0f 46  | BRIEFCASE",0..F|
00002550  2f dc 20 44 45 53 49 47  4e 45 52 53 2c 22 20 22  |/. DESIGNERS," "|
00002560  2c 22 47 45 4f 52 47 49  4f 20 41 52 4d 41 4e 49  |,"GEORGIO ARMANI|
00002570  22 2c 22 4a 41 45 47 45  52 22 2c 30 0d 0f 50 38  |","JAEGER",0..P8|
00002580  dc 20 50 52 4f 44 55 43  45 44 20 42 59 2c 22 20  |. PRODUCED BY," |
00002590  22 2c 22 48 41 52 44 20  57 4f 52 4b 22 2c 22 53  |","HARD WORK","S|
000025a0  48 41 44 4f 57 20 49 4e  20 54 48 45 20 44 41 52  |HADOW IN THE DAR|
000025b0  43 22 2c 30 0d 0f 5a 29  dc 20 44 49 52 45 43 54  |C",0..Z). DIRECT|
000025c0  45 44 20 42 59 2c 22 20  22 2c 22 43 4f 4d 50 4c  |ED BY," ","COMPL|
000025d0  45 54 45 20 43 48 41 4e  43 45 22 2c 30 0d 0f 64  |ETE CHANCE",0..d|
000025e0  0b dc 20 22 20 22 2c 30  0d 0f 6e 40 dc 20 4f 55  |.. " ",0..n@. OU|
000025f0  52 20 54 48 41 4e 4b 53  20 47 4f 20 54 4f 2c 22  |R THANKS GO TO,"|
00002600  20 22 2c 22 55 53 22 2c  22 4f 55 52 20 50 41 52  | ","US","OUR PAR|
00002610  45 4e 54 53 22 2c 22 46  41 54 45 22 2c 22 44 45  |ENTS","FATE","DE|
00002620  53 54 49 4e 59 22 2c 30  0d 0f 78 2e dc 20 41 20  |STINY",0..x.. A |
00002630  4e 4f 56 45 4c 20 50 52  4f 44 55 43 54 49 4f 4e  |NOVEL PRODUCTION|
00002640  2c 22 20 22 2c 22 46 4f  52 22 2c 22 20 22 2c 22  |," ","FOR"," ","|
00002650  20 22 2c 32 2c 30 0d 0f  82 45 dc 20 43 4f 50 59  | ",2,0...E. COPY|
00002660  52 49 47 48 54 2c 22 53  48 41 44 4f 57 20 49 4e  |RIGHT,"SHADOW IN|
00002670  20 54 48 45 20 44 41 52  43 22 2c 22 20 22 2c 22  | THE DARC"," ","|
00002680  4d 43 4d 58 49 49 56 20  43 41 53 54 4c 45 4d 41  |MCMXIIV CASTLEMA|
00002690  49 4e 45 20 58 58 58 58  22 2c 30 0d 0f 8c 07 dc  |INE XXXX",0.....|
000026a0  20 30 0d ff                                       | 0..|
000026a4

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .