!RollDemo/!RunImage

Home » Archimedes archive » Archimedes World » AW-1997-01.adf » !RollDemo_RollOn » !RollDemo/!RunImage

!RollDemo/!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 » Archimedes World » AW-1997-01.adf » !RollDemo_RollOn
Filename:	!RollDemo/!RunImage
Read OK:	✔
File size:	3B4E bytes
Load address:	0000
Exec address:	0000

File contents

   10ONERROR PROCerror
   20SYS "Wimp_Initialise",200,&4B534154,"Roll On" TO ,task%
   30DIM b% 2000,ws% 5200,menub% 1000,iconb% 1000,icon% 20,leveldata% 11000
   40DIM heightdata% 165,d% 512,sinetable% 52,sinetable2% 376,draw% 1280
   50DIM area% 325000,code 215000,levname% 32,scale% 16,starfield% 400,pat% 512
   60DIM tempstr% 12,starsadr% 16000,colours% 4000,data% 4,scrolly% 5300
   70firstgame%=0:scptr%=0:maxl%=1:maxcnt%=0:maxp%=1:wsend%=ws%+5200:quit%=FALSE
   80PROCloadtemplates:!b%=bannerwh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_OpenWindow",,b%:PROCmenublock
   90X=OPENUP("<Roll$Dir>.Options"):maxp%=BGET#X
  100IF maxp%<>(42EORBGET#X)ORmaxp%<>(29EORBGET#X)THENPROCcerror
  110maxp%=4
  120cont=BGET#X:fx=BGET# X:vol%=BGET# X
  130reg$="":REPEAT:reg$+=CHR$(BGET#X EOR42):UNTIL EOF#X=TRUE
  140CLOSE# X:$volstr%=STR$vol%:PROCreseticons:$banreg%="Registered to: "+reg$:$inforeg%=reg$:FOR A=0 TO 64:scrolly%?A=32:NEXT
  150$levname%="<Roll$Dir>.Data.Scrolly":SYS "OS_Find",&40+%1111,levname%,0 TO handle%:SYS "OS_GBPB",4,handle%,scrolly%+62,5152 TO ,,,not
  160CLOSE#handle%:FOR A=62+5152 TO 62+5152+64:scrolly%?A=32:NEXT:scrolly%?A=13
  170P%=draw%:[:MOV R11,#&2000000:SUB R11,R11,#&14000:SUB R10,R11,#&14000:MOV R12,#1:.drlp:CMP R12,#10:MOVEQ R12,#0:ADD R12,R12,#1:MOVEQ R0,#19:SWIEQ "OS_Byte"
  180LDMIB R10!,{R0-R7}:MOV R9,R11:MOV R8,#&2000000:SUB R8,R8,#320:.microdrlp:STMIB R11,{R0-R7}:ADD R11,R11,#320:CMP R11,R8:BLT microdrlp:MOV R11,R9
  190ADD R11,R11,#32:MOV R8,#&2000000:SUB R8,R8,#&14000:SUB R8,R8,#32:CMP R10,R8:BLT drlp:MOV PC,R14:]:FOR A=1 TO 5:PROCpoll:NEXT:PROCinitgame
  200!b%=-1:b%!4=0:b%!8=0:b%!12=162:b%!16=68:b%!20=&311A:b%!24=icon%:b%!28=area%:b%!32=6:$(icon%)="!Roll1":SYS"Wimp_CreateIcon",,b% TO i%:TIME=0:ban=0:roll%=1
  210REPEAT
  220count=count+1
  230IF TIME>500 AND ban=0 THEN
  240!b%=bannerwh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_CloseWindow",,b%:ban=1:ballno%=1
  250ENDIF
  260IF !anim%=1 THEN
  270roll%=roll%+1:IF roll%=7 THEN roll%=1
  280!b%=-1:b%!4=i%:b%!12=0:b%!8=0:$(icon%)="!roll"+STR$roll%:SYS "Wimp_SetIconState",,b%:ballno%=ballno%+1:IF ballno%=11 THEN ballno%=1
  290ENDIF
  300IF !scroll%=1 THEN PROCscrolltext
  310PROCpoll:UNTIL quit%:PROCclose
  320DEFPROCpoll:SYS "Wimp_Poll",,b% TO r%
  330CASE r% OF
  340WHEN 2:SYS "Wimp_OpenWindow",,b%
  350WHEN 3:SYS "Wimp_CloseWindow",,b%
  360WHEN 6:PROCmouseclick
  370WHEN 9:PROCmenuclick
  380WHEN 17,18:PROCreceive
  390ENDCASE:ENDPROC
  400DEFPROCclose:SYS "Wimp_CloseDown",task%,&4B534154:ENDPROC
  410DEFPROCmouseclick
  420CASE b%!12 OF
  430WHEN -2:CASE b%!8 OF
  440WHEN 2:PROCshowmenu(mainmenu%,!b%-64,96+6*44)
  450WHEN 4:PROCrungame
  460ENDCASE
  470WHEN wh%:CASE b%!8 OF
  480WHEN 1,4:PROCcheckicons
  490ENDCASE
  500ENDCASE
  510ENDPROC
  520DEFPROCreceive
  530CASE b%!16 OF
  540WHEN 0:PROCcredits
  550ENDCASE
  560ENDPROC
  570DEFPROCrungame
  580SYS "Sound_InstallVoice",code+83744,0 TO a%,voice%:SYS "Sound_AttachVoice",1,voice% TO ,oldvoice%:mode%=MODE:d%!316=cont:SYS "Wimp_SetMode",15:MODE 13:OFF
  590IF firstgame%=0 THEN
  600PROCintro:state%=29:firstgame%=1
  610ELSE
  620state%=0
  630ENDIF
  640PROCgame:SYS "OS_Byte",200,0:SYS "Wimp_SetMode",mode%:SYS "Sound_RemoveVoice",0,voice%:!b%=bannerwh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_CloseWindow",,b%:ban=1:ballno%=1:ENDPROC
  650DEFPROCloadtemplates:SYS "Wimp_OpenTemplate",,"<Roll$Dir>.Templates"
  660SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Options",0 TO ,,ws%:SYS "Wimp_CreateWindow",,b% TO wh%:volstr%=!(b%+88+32*15+20)
  670SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Info",0 TO ,,ws%:SYS "Wimp_CreateWindow",,b% TO wh2%:inforeg%=!(b%+88+32*12+20):SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Banner",0 TO ,,ws%:SYS "Wimp_CreateWindow",,b% TO bannerwh%
  680banreg%=!(b%+88+32*3+20)
  690SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Colours",0 TO ,,ws%:SYS "Wimp_CreateWindow",,b% TO colwh%:SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Scrolly",0 TO ,,ws%:SYS "Wimp_CreateWindow",,b% TO scrollwh%:textstr%=!(b%+88+32*0+20):SYS "Wimp_CloseTemplate":ENDPROC
  700DEFPROCmenublock:start%=menub%:$(start%)="Roll On":start%?12=7:start%?13=2:start%?14=7:start%?15=0:start%!20=44:start%!24=0:start%!16=184
  710menub%+=28:!menub%=0:menub%!4=wh2%:menub%!8=&07000021:$(menub%+12)="Info"
  720menub%+=24:!menub%=0:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Options..."
  730menub%+=24:!menub%=0:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Colours..."
  740menub%+=24:!menub%=0:scroll%=menub%:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Scrolly..."
  750menub%+=24:!menub%=1:anim%=menub%:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Animation"
  760menub%+=24:!menub%=&80:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Quit":mainmenu%=start%:menub%+=24
  770ENDPROC
  780DEFPROCshowmenu(menu%,x%,y%):topmenu%=menu%:topx%=x%:topy%=y%:SYS"Wimp_CreateMenu",,menu%,x%,y%:ENDPROC
  790DEFPROCmenuclick
  800LOCAL c%
  810c%=b%+900
  820SYS "Wimp_GetPointerInfo",,c%
  830adj%=(c%!8 AND 1)
  840CASE topmenu% OF
  850WHEN mainmenu%:CASE !b% OF
  860WHEN 5:PROCcredits
  870WHEN 3:CASE !scroll% OF
  880WHEN 1:!scroll%=0:!b%=scrollwh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_CloseWindow",,b%
  890WHEN 0:!scroll%=1:!b%=scrollwh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_OpenWindow",,b%
  900ENDCASE
  910WHEN 4:CASE !anim% OF
  920WHEN 1:!anim%=0
  930WHEN 0:!anim%=1
  940ENDCASE
  950WHEN 2:PROCcheckcols:!b%=colwh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_OpenWindow",,b%
  960WHEN 1:PROCreseticons:!b%=wh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_OpenWindow",,b%
  970ENDCASE
  980ENDCASE
  990IF adj% PROCshowmenu(topmenu%,topx%,topy%)
 1000ENDPROC
 1010DEFPROCerror:LOCAL c%:c%=b%+900:c%!0=1:$(c%+4)=REPORT$+" (internal error code "+STR$ERL+")":SYS "Wimp_ReportError",c%,%1,"Roll On":END:ENDPROC
 1020DEFFNicon_state(window%,icon%):LOCAL c%:c%=b%+900:!c%=window%:c%!4=icon%:SYS "Wimp_GetIconState",,c%:=((c%!24) AND (1<<21))<>0
 1030DEFPROCcheckicons:c%=b%+900:isit=FNicon_state(wh%,19):IF isit=TRUE THEN ncont=2
 1040isit=FNicon_state(wh%,20):IF isit=TRUE THEN ncont=1
 1050isit=FNicon_state(wh%,13):IF isit=TRUE THEN nfx=1 ELSE nfx=0
 1060isit=FNicon_state(wh%,16)
 1070IF isit=TRUE THEN
 1080$volstr%=STR$(EVAL($volstr%)+1)
 1090IF EVAL($volstr%)>15 THEN $volstr%="15"
 1100c%!0=wh%:c%!4=15:c%!12=0:c%!8=0:SYS "Wimp_SetIconState",,c%
 1110ENDIF
 1120isit=FNicon_state(wh%,17)
 1130IF isit=TRUE THEN
 1140$volstr%=STR$(EVAL($volstr%)-1)
 1150IF EVAL($volstr%)<0 THEN $volstr%="0"
 1160c%!0=wh%:c%!4=15:c%!12=0:c%!8=0:SYS "Wimp_SetIconState",,c%
 1170ENDIF
 1180isit=FNicon_state(wh%,5)
 1190IF isit=TRUE THEN
 1200!b%=wh%:c%=b%+900:SYS "Wimp_GetPointerInfo",,c%:adj%=(c%!8 AND 1)
 1210IF adj%=FALSE THEN
 1220SYS "Wimp_GetWindowState",,b%
 1230SYS "Wimp_CloseWindow",,b%
 1240ENDIF
 1250PROCreseticons
 1260ENDIF
 1270isit=FNicon_state(wh%,4):IF isit=TRUE THEN PROCsave
 1280isit=FNicon_state(wh%,3):IF isit=TRUE THEN PROCok
 1290ENDPROC
 1300DEFPROCok:c%=b%+900:SYS "Wimp_GetPointerInfo",,c%:adj%=(c%!8 AND 1):cont=ncont:fx=nfx:vol%=EVAL($volstr%)
 1310IF vol%>15 THEN vol%=15
 1320IF adj%=FALSE THEN !b%=wh%:SYS "Wimp_GetWindowState",,b%:SYS "Wimp_CloseWindow",,b%
 1330PROCreseticons:ENDPROC
 1340DEFPROCsave:PROCok:X=OPENUP("<Roll$Dir>.Options"):PTR#X=0:BPUT# X,maxp%:BPUT# X,42EORmaxp%:BPUT# X,29EORmaxp%:BPUT# X,cont:BPUT# X,fx:BPUT# X,vol%:CLOSE# X:ENDPROC
 1350DEFPROCreseticons
 1360IF cont=2 THEN
 1370iconb%!0=wh%:iconb%!4=19:iconb%!12=%1000000000000000000000:iconb%!8= %1000000000000000000000:SYS "Wimp_SetIconState",,iconb%
 1380iconb%!4=20:iconb%!12=%1000000000000000000000:iconb%!8= %0000000000000000000000:SYS "Wimp_SetIconState",,iconb%
 1390ENDIF
 1400IF cont=1 THEN
 1410iconb%!0=wh%:iconb%!4=20:iconb%!12=%1000000000000000000000:iconb%!8= %1000000000000000000000:SYS "Wimp_SetIconState",,iconb%
 1420iconb%!4=19:iconb%!12=%1000000000000000000000:iconb%!8= %0000000000000000000000:SYS "Wimp_SetIconState",,iconb%
 1430ENDIF
 1440IF fx=1 THEN
 1450iconb%!0=wh%:iconb%!4=13:iconb%!12=%1000000000000000000000:iconb%!8= %1000000000000000000000:SYS "Wimp_SetIconState",,iconb%
 1460ELSE
 1470iconb%!0=wh%:iconb%!4=13:iconb%!12=%1000000000000000000000:iconb%!8= %0000000000000000000000:SYS "Wimp_SetIconState",,iconb%
 1480ENDIF
 1490$volstr%=STR$vol%:iconb%!0=wh%:iconb%!4=15:iconb%!12=0:iconb%!8=0:SYS "Wimp_SetIconState",,iconb%
 1500ENDPROC
 1510DEFPROCcheckcols
 1520SYS "OS_ReadModeVariable",-1,3 TO ,,cols%
 1530IF cols%<62 THEN
 1540b%!0=1:$(b%+4)="You will need to change to a 256 colour screen mode e.g. 15,21,28 e.t.c. in order to see all the colours properly.":SYS "Wimp_ReportError",b%,%1,"Roll On"
 1550ENDIF
 1560ENDPROC
 1570DEFPROCcredits:SYS &2E,25+256,area%,"timeup":SYS &2E,25+256,area%,"levcomp":SYS &2E,25+256,area%,"dash":SYS &2E,25+256,area%,"getready":SYS &2002E,25+256,area%,"temp":SYS &2E,25+256,area%,"menu1":SYS &2E,25+256,area%,"menu2"
 1580SYS &2E,25+256,area%,"menu3":SYS &2E,25+256,area%,"paused":SYS &2E,25+256,area%,"use2change":FOR M=1 TO 10:SYS &2E,25+256,area%,"m"+STR$M:NEXT:FOR M=1 TO 10:SYS &2E,25+256,area%,"B"+STR$M:NEXT
 1590X=OPENIN("<Roll$Dir>.Data.Credits"):SYS &2E,15+256,area%,"message",0,320,396,13:t=BGET#X:x=16:y=1304:SYS &2E,60+256,area%,"message",0:SYS &2E,34+256,area%,"topbit",228,1404
 1600REPEAT
 1610IF t<>32 THEN SYS &2E,34+256,area%,CHR$t,x,y
 1620x+=104
 1630IF x>1250 THEN x=16:y-=108
 1640t=BGET#X:UNTIL t=10:SYS &2E,60,0,0,0:mode%=MODE:SYS "Wimp_SetMode",13:MODE 13:OFF:VDU 24,0;80;1279;1023;
 1650FOR A=-1584 TO 1024 STEP 4:WAIT:SYS &2E,34+256,area%,"message",0,A:CALL code+28852:NEXT A
 1660SYS "Wimp_SetMode",mode%:quit%=TRUE:X=OPENUP("<Roll$Dir>.Options"):BPUT#X,maxp%:BPUT#X,42EORmaxp%:BPUT#X,29EORmaxp%:CLOSE#X:END
 1670ENDPROC
 1680DEFPROCscrolltext
 1690LOCAL c%:c%=b%+900:scptr%+=1:IF scptr%=5152+62 THEN scptr%=0
 1700FOR A=0 TO 60:textstr%?A=?(scrolly%+scptr%+A):NEXT:textstr%?A=0
 1710c%!0=scrollwh%:c%!4=0:c%!12=0:c%!8=0:SYS "Wimp_SetIconState",,c%
 1720ENDPROC
 1730DEFPROCcerror
 1740b%!0=1:$(b%+4)="Checksum error: Option file tampered with. (levels completed reset)":SYS "Wimp_ReportError",b%,%1,"Roll On":maxp%=1:PTR#X=0:BPUT#X,1:BPUT#X,43:BPUT#X,28:ENDPROC
 1750DEFPROCinitgame
 1760VOICES 4:whatsamp=code+83848:scrnpoint=10:scrnoffset=0:$tempstr%="Temp"
 1770OSCLI "Load <Roll$Dir>.Data.Graphix "+STR$~area%
 1780SYS &2E,24+256,area%,"dash" TO ,,d%!36:SYS &2E,24+256,area%,"b1" TO ,,d%!40:SYS &2E,24+256,area%,"b2" TO ,,d%!88:SYS &2E,24+256,area%,"b3" TO ,,d%!92:SYS &2E,24+256,area%,"b4" TO ,,d%!96:SYS &2E,24+256,area%,"b5" TO ,,d%!276
 1790SYS &2E,24+256,area%,"b6" TO ,,d%!280:SYS &2E,24+256,area%,"b7" TO ,,d%!388:SYS &2E,24+256,area%,"b8" TO ,,d%!392:SYS &2E,24+256,area%,"b9" TO ,,d%!396:SYS &2E,24+256,area%,"b10" TO ,,d%!400
 1800SYS &2E,24+256,area%,"topbit" TO ,,d%!48:SYS &2E,24+256,area%,"t0" TO ,,d%!140:SYS &2E,24+256,area%,"t1" TO ,,d%!144:SYS &2E,24+256,area%,"t2" TO ,,d%!148:SYS &2E,24+256,area%,"t3" TO ,,d%!152:SYS &2E,24+256,area%,"t4" TO ,,d%!156
 1810SYS &2E,24+256,area%,"t5" TO ,,d%!160:SYS &2E,24+256,area%,"t6" TO ,,d%!164:SYS &2E,24+256,area%,"t7" TO ,,d%!168:SYS &2E,24+256,area%,"t8" TO ,,d%!172:SYS &2E,24+256,area%,"t9" TO ,,d%!176:SYS &2E,24+256,area%,"timeup" TO ,,d%!212
 1820SYS &2E,24+256,area%,"levcomp" TO ,,d%!216:SYS &2E,24+256,area%,"menu1" TO ,,d%!228:SYS &2E,24+256,area%,"menu2" TO ,,d%!236:SYS &2E,24+256,area%,"menu3" TO ,,d%!240:SYS &2E,24+256,area%,"getready" TO ,,d%!320
 1830SYS &2E,24+256,area%,"use2change" TO ,,d%!380:SYS &2E,24+256,area%,"no" TO ,,d%!444:SYS &2E,24+256,area%,"m1" TO ,,d%!408:SYS &2E,24+256,area%,"m2" TO ,,d%!412:SYS &2E,24+256,area%,"m3" TO ,,d%!416
 1840SYS &2E,24+256,area%,"m4" TO ,,d%!420:SYS &2E,24+256,area%,"m5" TO ,,d%!424:SYS &2E,24+256,area%,"m6" TO ,,d%!428:SYS &2E,24+256,area%,"m7" TO ,,d%!432:SYS &2E,24+256,area%,"m8" TO ,,d%!436:SYS &2E,24+256,area%,"m9" TO ,,d%!440
 1850SYS &2E,24+256,area%,"m10" TO ,,d%!404:SYS &2E,24+256,area%,"paused" TO ,,d%!368
 1860X=OPENIN("<Roll$Dir>.Data.Stars"):FOR A=0 TO 396 STEP 4:INPUT#X,astar%:starfield%!A=astar%:NEXT A:CLOSE# X
 1870$levname%="<Roll$Dir>.Data.Heights":SYS "OS_Find",&40+%1111,levname%,0 TO handle%:SYS "OS_GBPB",4,handle%,heightdata%,160 TO ,,,not:CLOSE#handle%
 1880$levname%="<Roll$Dir>.Data.SineTable":SYS "OS_Find",&40+%1111,levname%,0 TO handle%:SYS "OS_GBPB",4,handle%,sinetable%,51 TO ,,,not:CLOSE#handle%
 1890$levname%="<Roll$Dir>.Data.MoreStars":SYS "OS_Find",&40+%1111,levname%,0 TO handle%:SYS "OS_GBPB",4,handle%,starsadr%,16000:SYS "OS_GBPB",4,handle%,colours%,4000:CLOSE#handle%
 1900p%=1:scale%!0=12:scale%!4=12:scale%!8=1:scale%!12=1:N=1
 1910OSCLI "Load <Roll$Dir>.Code "+STR$~code
 1920!(code+83844)=data%:code!83796=code+84176:code!83800=code+123828:code!83804=code+175014:code!83808=code+184196:code!83812=code+187685:code!83816=code+201121:ONERROR PROCerror
 1930VDU 23;8202;0;0;0;
 1940state%=0:lcnt%=0:sincnt%=0:FOR A=(PI/2) TO PI STEP PI/100:sinetable2%!sincnt%=240+(SINA*612):sincnt%+=4:NEXT A
 1950FOR sin=0 TO 314 STEP 314/41:sinetable2%!sincnt%=240+((SIN(sin/100))*220):sincnt%+=4:NEXT sin:sinetable2%!sincnt%=244:sinetable2%!(sincnt%+4)=244
 1960d%!360=starsadr%:d%!364=colours%
 1970ENDPROC
 1980DEFPROCintro:TIME=0:REPEAT:UNTIL TIME>10:MODE 15:MODE 13:OFF:VDU 23;8202;0;0;0;:PROCrolljezsoft:TIME=0:REPEAT:UNTIL TIME>20:ORIGIN 0,0:SYS "OS_Byte",112,N:SYS "OS_Byte",113,N:!whatsamp=2:SOUND 1,-15,1,1
 1990TIME=0:GCOL 0 TINT 0
 2000SYS "OS_Byte",112,N+1
 2010CLG:SYS &2E,34+256,area%,"Presents",162,426
 2020REPEAT:col%=?data%:WAIT:VDU 19,0,24,col%,col%,col%
 2030IF col%<128 THEN SYS "OS_Byte",113,N+1 ELSE SYS "OS_Byte",113,NOTN+1
 2040UNTIL TIME>700:CLG:SYS "OS_Byte",112,NOTN+1:CLG:SYS "OS_Byte",113,NOTN+1:ENDPROC
 2050DEFPROCgame:CLG:OFF:SYS &2E,34+256,area%,"TopBit",228,426:A%=d%:CALL code+13884:GCOL 0 TINT 0:FOR Y=426 TO 852 STEP 4:WAIT:SYS &2E,34+256,area%,"topbit",228,Y:LINE 0,Y-4,1280,Y-4:NEXT Y
 2060SYS "OS_Byte",112,2:SYS "OS_Byte",113,-1:CLG:SYS &2E,34+256,area%,"dash",0,0:SYS &2E,34+256,area%,"topbit",228,852:SYS "OS_Byte",112,-1:SYS "OS_Byte",113,2:CLG:SYS &2E,34+256,area%,"dash",0,0:SYS &2E,34+256,area%,"topbit",228,852
 2070SYS "OS_Byte",200,1:REPEAT:OFF:VDU 23;8202;0;0;0;
 2080IF state%=1 THEN p%+=1
 2090IF p%=5 THEN
 2100SYS "OS_Byte",112,2:SYS "OS_Byte",113,2:OFF:PROCx
 2110p%=4:ENDPROC
 2120ENDIF
 2130IF state%=5 THEN p%=((d%!372)*10)+(d%!376)
 2140levycnt%=0:lely%=p%:lcnt%=0:IF p%>9 THEN
 2150REPEAT:lcnt%+=1:lely%-=10:UNTIL lely%<0:lely%+=10:lcnt%-=1
 2160ENDIF
 2170IF state%=1 OR state%=5 OR state%=29 THEN
 2180$levname%="<Roll$Dir>.Levels.Level-"+STR$(p%):SYS "OS_Find",&40+%1111,levname%,0 TO handle%:levc%=42-(BGET#handle%):IF levc%<>p% THEN END
 2190INPUT#handle%,message$:len%=(BGET# handle%)*2:jumps%=BGET# handle%:rjumps%=jumps%:levc%=42EORBGET#handle%:IF levc%<>p% THEN END
 2200tmins%=BGET# handle%:ttensecs%=BGET# handle%:tsecs%=BGET# handle%:levc%=BGET#handle%:IF levc%<>p% THEN END
 2210FOR A=0 TO (len%*5*4)-16 STEP 4:ldata%=BGET#handle%:leveldata%?A=ldata%:leveldata%?(A+1)=ldata%:leveldata%?(A+2)=ldata%:leveldata%?(A+3)=ldata%:NEXT
 2220CLOSE# handle%
 2230ENDIF
 2240OFF:VDU 5:SYS "OS_Byte",112,2:SYS &2E,34+256,area%,"dash",0,0:SYS &2E,34+256,area%,"t"+STR$lcnt%,364,132:SYS &2E,34+256,area%,"t"+STR$lely%,412,132:GCOL 63 TINT 96:MOVE 640-(LEN(message$)*16),96:GCOL 48:PRINT message$
 2250SYS "OS_Byte",112,-1:SYS &2E,34+256,area%,"dash",0,0:SYS &2E,34+256,area%,"t"+STR$lcnt%,364,132:SYS &2E,34+256,area%,"t"+STR$lely%,412,132:GCOL 63 TINT 96:MOVE 640-(LEN(message$)*16),96:GCOL 48:PRINT message$:VDU 4
 2260jumps%=rjumps%:FOR A=0 TO len%-1:pat%?A=0:NEXT A:pcnt%=0:FOR A=0 TO len%-6 STEP (len%-6)/190:pat%?A=1:pcnt%+=1:NEXT A:jmpcnt%=0
 2270IF jumps%>9 THEN
 2280REPEAT:jmpcnt%+=1:jumps%-=10:UNTIL jumps%<0:jmpcnt%-=1:jumps%+=10
 2290ENDIF
 2300d%!224=len%-7:d%!24=leveldata%:d%!32=area%:d%!8=heightdata%:d%!44=566:d%!52=&1FFB460-&14000:d%!56=8:d%!60=sinetable%:d%!64=0:d%!452=sinetable2%:d%!448=0:d%!68=0:d%!72=0:d%!76=0:d%!80=0:d%!84=&D1D1D1D1:d%!100=5:d%!128=0
 2310d%!136=&01010101:d%!196=tmins%:d%!192=ttensecs%:d%!188=tsecs%:d%!180=6:d%!184=0:d%!200=jumps%:d%!204=jmpcnt%:d%!208=0:d%!220=0:d%!232=0:d%!244=scale%:d%!248=0:d%!252=0:d%!256=starfield%:d%!264=pat%:d%!268=0:d%!272=&1FEBA83
 2320d%!284=0:d%!324=1:d%!328=1:d%!356=tempstr%:d%!360=starsadr%:d%!364=colours%:d%!372=lcnt%:d%!376=lely%:d%!384=0
 2330IF vol%=0 OR fx=0 THEN d%!456=0 ELSE d%!456=(&FFFF-vol%)+1
 2340d%!460=whatsamp:IF p%>maxp% THEN maxp%=p%
 2350maxl%=maxp%:maxcnt%=0
 2360IF maxl%>9 THEN
 2370REPEAT:maxcnt%+=1:maxl%-=10:UNTIL maxl%<0:maxcnt%-=1:maxl%+=10
 2380ENDIF
 2390d%!464=maxcnt%:d%!468=maxl%
 2400IF state%=0 OR state%=29 OR state%=50 THEN d%!232=1
 2410VDU 18,12,63:OFF:A%=d%:state%=USR code:IF state%=2 THEN ENDPROC
 2420UNTIL 0
 2430ENDPROC
 2440DEFPROCrolljezsoft
 2450SYS "OS_Byte",113,2
 2460CLG
 2470SYS &2E,34+256,area%,"JezLogo",104,58
 2480SYS &2E,25+256,area%,"JezLogo"
 2490CALL draw%
 2500FOR A=1 TO 30000:NEXT A
 2510ENDPROC
 2520DEFPROCx
 2530SYS "OS_Byte",113,2
 2540CLG
 2550OSCLI "Load <Roll$Dir>.Data.EndScreen &1FD8000"
 2560CALL draw%
 2570OSCLI "FX 21,0"
 2580key=GET
 2590ENDPROC
 2600DEFPROCcreatetemp:SYS &2E,15+256,area%,"temp",0,320,136,13:SYS &2E,60+256,area%,"temp",0:x=16:y=436:t=BGET#handle3%:IF t<>10 AND t<>32 THEN t=tEOR42
 2610REPEAT:IF t<>32 THEN SYS &2E,34+256,area%,CHR$t,x,y
 2620x+=104:IF x>1250 THEN x=16:y-=108
 2630t=BGET#handle3%:IF t<>10 AND t<>32 THEN t=t EOR 42
 2640UNTIL t=10:SYS &2E,60,0,0,0:VDU 24,0;240;1279;844;:ENDPROC
 2650DEFPROCori(x%,y%):ORIGIN x%+276-92,y%+508-152:ENDPROC



� �error
9ș "Wimp_Initialise",200,&4B534154,"Roll On" � ,task%
H� b% 2000,ws% 5200,menub% 1000,iconb% 1000,icon% 20,leveldata% 11000
(E� heightdata% 165,d% 512,sinetable% 52,sinetable2% 376,draw% 1280
2L� area% 325000,code 215000,levname% 32,scale% 16,starfield% 400,pat% 512
<E� tempstr% 12,starsadr% 16000,colours% 4000,data% 4,scrolly% 5300
FKfirstgame%=0:scptr%=0:maxl%=1:maxcnt%=0:maxp%=1:wsend%=ws%+5200:quit%=�
Pa�loadtemplates:!b%=bannerwh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%:�menublock
Z'X=�("<Roll$Dir>.Options"):maxp%=�#X
d-� maxp%<>(42��#X)�maxp%<>(29��#X)��cerror
nmaxp%=4
xcont=�#X:fx=�# X:vol%=�# X
�&reg$="":�:reg$+=�(�#X �42):� �#X=�
�m�# X:$volstr%=�vol%:�reseticons:$banreg%="Registered to: "+reg$:$inforeg%=reg$:� A=0 � 64:scrolly%?A=32:�
��$levname%="<Roll$Dir>.Data.Scrolly":ș "OS_Find",&40+%1111,levname%,0 � handle%:ș "OS_GBPB",4,handle%,scrolly%+62,5152 � ,,,not
�D�#handle%:� A=62+5152 � 62+5152+64:scrolly%?A=32:�:scrolly%?A=13
��P%=draw%:[:MOV R11,#&2000000:SUB R11,R11,#&14000:SUB R10,R11,#&14000:MOV R12,#1:.drlp:CMP R12,#10:�Q R12,#0:ADD R12,R12,#1:�Q R0,#19:SWIEQ "OS_Byte"
��LDMIB R10!,{R0-R7}:MOV R9,R11:MOV R8,#&2000000:SUB R8,R8,#320:.microdrlp:STMIB R11,{R0-R7}:ADD R11,R11,#320:CMP R11,R8:BLT microdrlp:MOV R11,R9
��ADD R11,R11,#32:MOV R8,#&2000000:SUB R8,R8,#&14000:SUB R8,R8,#32:CMP R10,R8:BLT drlp:MOV PC,R14:]:� A=1 � 5:�poll:�:�initgame
Ș!b%=-1:b%!4=0:b%!8=0:b%!12=162:b%!16=68:b%!20=&311A:b%!24=icon%:b%!28=area%:b%!32=6:$(icon%)="!Roll1":ș"Wimp_CreateIcon",,b% � i%:�=0:ban=0:roll%=1
��
�count=count+1
�� �>500 � ban=0 �
�X!b%=bannerwh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%:ban=1:ballno%=1
��
� !anim%=1 �
%roll%=roll%+1:� roll%=7 � roll%=1
!b%=-1:b%!4=i%:b%!12=0:b%!8=0:$(icon%)="!roll"+�roll%:ș "Wimp_SetIconState",,b%:ballno%=ballno%+1:� ballno%=11 � ballno%=1
"�
,� !scroll%=1 � �scrolltext
6�poll:� quit%:�close
@"��poll:ș "Wimp_Poll",,b% � r%
JȎ r% �
T � 2:ș "Wimp_OpenWindow",,b%
^!� 3:ș "Wimp_CloseWindow",,b%
h� 6:�mouseclick
r� 9:�menuclick
|� 17,18:�receive
��:�
�1��close:ș "Wimp_CloseDown",task%,&4B534154:�
���mouseclick
�Ȏ b%!12 �
�� -2:Ȏ b%!8 �
�+� 2:�showmenu(mainmenu%,!b%-64,96+6*44)
�� 4:�rungame
��
�� wh%:Ȏ b%!8 �
�� 1,4:�checkicons
��
��
��

��receive
Ȏ b%!16 �
� 0:�credits
&�
0�
:
��rungame
D�ș "Sound_InstallVoice",code+83744,0 � a%,voice%:ș "Sound_AttachVoice",1,voice% � ,oldvoice%:mode%=�:d%!316=cont:ș "Wimp_SetMode",15:� 13:�
N� firstgame%=0 �
X!�intro:state%=29:firstgame%=1
b�
lstate%=0
v�
���game:ș "OS_Byte",200,0:ș "Wimp_SetMode",mode%:ș "Sound_RemoveVoice",0,voice%:!b%=bannerwh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%:ban=1:ballno%=1:�
�B��loadtemplates:ș "Wimp_OpenTemplate",,"<Roll$Dir>.Templates"
�{ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Options",0 � ,,ws%:ș "Wimp_CreateWindow",,b% � wh%:volstr%=!(b%+88+32*15+20)
��ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Info",0 � ,,ws%:ș "Wimp_CreateWindow",,b% � wh2%:inforeg%=!(b%+88+32*12+20):ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Banner",0 � ,,ws%:ș "Wimp_CreateWindow",,b% � bannerwh%
�banreg%=!(b%+88+32*3+20)
��ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Colours",0 � ,,ws%:ș "Wimp_CreateWindow",,b% � colwh%:ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Scrolly",0 � ,,ws%:ș "Wimp_CreateWindow",,b% � scrollwh%:textstr%=!(b%+88+32*0+20):ș "Wimp_CloseTemplate":�
����menublock:start%=menub%:$(start%)="Roll On":start%?12=7:start%?13=2:start%?14=7:start%?15=0:start%!20=44:start%!24=0:start%!16=184
�Mmenub%+=28:!menub%=0:menub%!4=wh2%:menub%!8=&07000021:$(menub%+12)="Info"
�Qmenub%+=24:!menub%=0:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Options..."
�Qmenub%+=24:!menub%=0:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Colours..."
�`menub%+=24:!menub%=0:scroll%=menub%:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Scrolly..."
�]menub%+=24:!menub%=1:anim%=menub%:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Animation"
�imenub%+=24:!menub%=&80:menub%!4=-1:menub%!8=&07000021:$(menub%+12)="Quit":mainmenu%=start%:menub%+=24
�
_��showmenu(menu%,x%,y%):topmenu%=menu%:topx%=x%:topy%=y%:ș"Wimp_CreateMenu",,menu%,x%,y%:�
��menuclick
 � c%
*
c%=b%+900
4 ș "Wimp_GetPointerInfo",,c%
>adj%=(c%!8 � 1)
HȎ topmenu% �
R� mainmenu%:Ȏ !b% �
\� 5:�credits
f� 3:Ȏ !scroll% �
pW� 1:!scroll%=0:!b%=scrollwh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
zV� 0:!scroll%=1:!b%=scrollwh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
��
�� 4:Ȏ !anim% �
�� 1:!anim%=0
�� 0:!anim%=1
��
�S� 2:�checkcols:!b%=colwh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
�Q� 1:�reseticons:!b%=wh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
��
��
�*� adj% �showmenu(topmenu%,topx%,topy%)
��
�v��error:� c%:c%=b%+900:c%!0=1:$(c%+4)=�$+" (internal error code "+Þ+")":ș "Wimp_ReportError",c%,%1,"Roll On":�:�
�xݤicon_state(window%,icon%):� c%:c%=b%+900:!c%=window%:c%!4=icon%:ș "Wimp_GetIconState",,c%:=((c%!24) � (1<<21))<>0
F��checkicons:c%=b%+900:isit=�icon_state(wh%,19):� isit=� � ncont=2
/isit=�icon_state(wh%,20):� isit=� � ncont=1
5isit=�icon_state(wh%,13):� isit=� � nfx=1 � nfx=0
$isit=�icon_state(wh%,16)
.� isit=� �
8$volstr%=�(�($volstr%)+1)
B$� �($volstr%)>15 � $volstr%="15"
L>c%!0=wh%:c%!4=15:c%!12=0:c%!8=0:ș "Wimp_SetIconState",,c%
V�
`isit=�icon_state(wh%,17)
j� isit=� �
t$volstr%=�(�($volstr%)-1)
~"� �($volstr%)<0 � $volstr%="0"
�>c%!0=wh%:c%!4=15:c%!12=0:c%!8=0:ș "Wimp_SetIconState",,c%
��
�isit=�icon_state(wh%,5)
�� isit=� �
�B!b%=wh%:c%=b%+900:ș "Wimp_GetPointerInfo",,c%:adj%=(c%!8 � 1)
�� adj%=� �
� ș "Wimp_GetWindowState",,b%
�ș "Wimp_CloseWindow",,b%
��
��reseticons
��
�,isit=�icon_state(wh%,4):� isit=� � �save
*isit=�icon_state(wh%,3):� isit=� � �ok

�
b��ok:c%=b%+900:ș "Wimp_GetPointerInfo",,c%:adj%=(c%!8 � 1):cont=ncont:fx=nfx:vol%=�($volstr%)
� vol%>15 � vol%=15
(M� adj%=� � !b%=wh%:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
2�reseticons:�
<x��save:�ok:X=�("<Roll$Dir>.Options"):�#X=0:�# X,maxp%:�# X,42�maxp%:�# X,29�maxp%:�# X,cont:�# X,fx:�# X,vol%:�# X:�
F��reseticons
P� cont=2 �
Ziconb%!0=wh%:iconb%!4=19:iconb%!12=%1000000000000000000000:iconb%!8= %1000000000000000000000:ș "Wimp_SetIconState",,iconb%
driconb%!4=20:iconb%!12=%1000000000000000000000:iconb%!8= %0000000000000000000000:ș "Wimp_SetIconState",,iconb%
n�
x� cont=1 �
�iconb%!0=wh%:iconb%!4=20:iconb%!12=%1000000000000000000000:iconb%!8= %1000000000000000000000:ș "Wimp_SetIconState",,iconb%
�riconb%!4=19:iconb%!12=%1000000000000000000000:iconb%!8= %0000000000000000000000:ș "Wimp_SetIconState",,iconb%
��
�� fx=1 �
�iconb%!0=wh%:iconb%!4=13:iconb%!12=%1000000000000000000000:iconb%!8= %1000000000000000000000:ș "Wimp_SetIconState",,iconb%
��
�iconb%!0=wh%:iconb%!4=13:iconb%!12=%1000000000000000000000:iconb%!8= %0000000000000000000000:ș "Wimp_SetIconState",,iconb%
��
�a$volstr%=�vol%:iconb%!0=wh%:iconb%!4=15:iconb%!12=0:iconb%!8=0:ș "Wimp_SetIconState",,iconb%
��
���checkcols
�+ș "OS_ReadModeVariable",-1,3 � ,,cols%
�� cols%<62 �
�b%!0=1:$(b%+4)="You will need to change to a 256 colour screen mode e.g. 15,21,28 e.t.c. in order to see all the colours properly.":ș "Wimp_ReportError",b%,%1,"Roll On"
�
�
"���credits:ș &2E,25+256,area%,"timeup":ș &2E,25+256,area%,"levcomp":ș &2E,25+256,area%,"dash":ș &2E,25+256,area%,"getready":ș &2002E,25+256,area%,"temp":ș &2E,25+256,area%,"menu1":ș &2E,25+256,area%,"menu2"
,�ș &2E,25+256,area%,"menu3":ș &2E,25+256,area%,"paused":ș &2E,25+256,area%,"use2change":� M=1 � 10:ș &2E,25+256,area%,"m"+�M:�:� M=1 � 10:ș &2E,25+256,area%,"B"+�M:�
6�X=�("<Roll$Dir>.Data.Credits"):ș &2E,15+256,area%,"message",0,320,396,13:t=�#X:x=16:y=1304:ș &2E,60+256,area%,"message",0:ș &2E,34+256,area%,"topbit",228,1404
@�
J(� t<>32 � ș &2E,34+256,area%,�t,x,y
T
x+=104
^� x>1250 � x=16:y-=108
hYt=�#X:� t=10:ș &2E,60,0,0,0:mode%=�:ș "Wimp_SetMode",13:� 13:�:� 24,0;80;1279;1023;
rN� A=-1584 � 1024 � 4:Ȗ:ș &2E,34+256,area%,"message",0,A:� code+28852:� A
|gș "Wimp_SetMode",mode%:quit%=�:X=�("<Roll$Dir>.Options"):�#X,maxp%:�#X,42�maxp%:�#X,29�maxp%:�#X:�
��
���scrolltext
�8� c%:c%=b%+900:scptr%+=1:� scptr%=5152+62 � scptr%=0
�=� A=0 � 60:textstr%?A=?(scrolly%+scptr%+A):�:textstr%?A=0
�Cc%!0=scrollwh%:c%!4=0:c%!12=0:c%!8=0:ș "Wimp_SetIconState",,c%
��
���cerror
̢b%!0=1:$(b%+4)="Checksum error: Option file tampered with. (levels completed reset)":ș "Wimp_ReportError",b%,%1,"Roll On":maxp%=1:�#X=0:�#X,1:�#X,43:�#X,28:�
���initgame
�GȠ 4:whatsamp=code+83848:scrnpoint=10:scrnoffset=0:$tempstr%="Temp"
�-� "Load <Roll$Dir>.Data.Graphix "+�~area%
��ș &2E,24+256,area%,"dash" � ,,d%!36:ș &2E,24+256,area%,"b1" � ,,d%!40:ș &2E,24+256,area%,"b2" � ,,d%!88:ș &2E,24+256,area%,"b3" � ,,d%!92:ș &2E,24+256,area%,"b4" � ,,d%!96:ș &2E,24+256,area%,"b5" � ,,d%!276
��ș &2E,24+256,area%,"b6" � ,,d%!280:ș &2E,24+256,area%,"b7" � ,,d%!388:ș &2E,24+256,area%,"b8" � ,,d%!392:ș &2E,24+256,area%,"b9" � ,,d%!396:ș &2E,24+256,area%,"b10" � ,,d%!400
�ș &2E,24+256,area%,"topbit" � ,,d%!48:ș &2E,24+256,area%,"t0" � ,,d%!140:ș &2E,24+256,area%,"t1" � ,,d%!144:ș &2E,24+256,area%,"t2" � ,,d%!148:ș &2E,24+256,area%,"t3" � ,,d%!152:ș &2E,24+256,area%,"t4" � ,,d%!156
�ș &2E,24+256,area%,"t5" � ,,d%!160:ș &2E,24+256,area%,"t6" � ,,d%!164:ș &2E,24+256,area%,"t7" � ,,d%!168:ș &2E,24+256,area%,"t8" � ,,d%!172:ș &2E,24+256,area%,"t9" � ,,d%!176:ș &2E,24+256,area%,"timeup" � ,,d%!212
�ș &2E,24+256,area%,"levcomp" � ,,d%!216:ș &2E,24+256,area%,"menu1" � ,,d%!228:ș &2E,24+256,area%,"menu2" � ,,d%!236:ș &2E,24+256,area%,"menu3" � ,,d%!240:ș &2E,24+256,area%,"getready" � ,,d%!320
&�ș &2E,24+256,area%,"use2change" � ,,d%!380:ș &2E,24+256,area%,"no" � ,,d%!444:ș &2E,24+256,area%,"m1" � ,,d%!408:ș &2E,24+256,area%,"m2" � ,,d%!412:ș &2E,24+256,area%,"m3" � ,,d%!416
0�ș &2E,24+256,area%,"m4" � ,,d%!420:ș &2E,24+256,area%,"m5" � ,,d%!424:ș &2E,24+256,area%,"m6" � ,,d%!428:ș &2E,24+256,area%,"m7" � ,,d%!432:ș &2E,24+256,area%,"m8" � ,,d%!436:ș &2E,24+256,area%,"m9" � ,,d%!440
:Pș &2E,24+256,area%,"m10" � ,,d%!404:ș &2E,24+256,area%,"paused" � ,,d%!368
DXX=�("<Roll$Dir>.Data.Stars"):� A=0 � 396 � 4:�#X,astar%:starfield%!A=astar%:� A:�# X
N�$levname%="<Roll$Dir>.Data.Heights":ș "OS_Find",&40+%1111,levname%,0 � handle%:ș "OS_GBPB",4,handle%,heightdata%,160 � ,,,not:�#handle%
X�$levname%="<Roll$Dir>.Data.SineTable":ș "OS_Find",&40+%1111,levname%,0 � handle%:ș "OS_GBPB",4,handle%,sinetable%,51 � ,,,not:�#handle%
b�$levname%="<Roll$Dir>.Data.MoreStars":ș "OS_Find",&40+%1111,levname%,0 � handle%:ș "OS_GBPB",4,handle%,starsadr%,16000:ș "OS_GBPB",4,handle%,colours%,4000:�#handle%
l;p%=1:scale%!0=12:scale%!4=12:scale%!8=1:scale%!12=1:N=1
v$� "Load <Roll$Dir>.Code "+�~code
��!(code+83844)=data%:code!83796=code+84176:code!83800=code+123828:code!83804=code+175014:code!83808=code+184196:code!83812=code+187685:code!83816=code+201121:� �error
�� 23;8202;0;0;0;
�dstate%=0:lcnt%=0:sincnt%=0:� A=(�/2) � � � �/100:sinetable2%!sincnt%=240+(�A*612):sincnt%+=4:� A
��� sin=0 � 314 � 314/41:sinetable2%!sincnt%=240+((�(sin/100))*220):sincnt%+=4:� sin:sinetable2%!sincnt%=244:sinetable2%!(sincnt%+4)=244
�$d%!360=starsadr%:d%!364=colours%
��
����intro:�=0:�:� �>10:� 15:� 13:�:� 23;8202;0;0;0;:�rolljezsoft:�=0:�:� �>20:ȑ 0,0:ș "OS_Byte",112,N:ș "OS_Byte",113,N:!whatsamp=2:� 1,-15,1,1
��=0:� 0 Ȝ 0
�ș "OS_Byte",112,N+1
�,�:ș &2E,34+256,area%,"Presents",162,426
�-�:col%=?data%:Ȗ:� 19,0,24,col%,col%,col%
�=� col%<128 � ș "OS_Byte",113,N+1 � ș "OS_Byte",113,�N+1
�=� �>700:�:ș "OS_Byte",112,�N+1:�:ș "OS_Byte",113,�N+1:�
���game:�:�:ș &2E,34+256,area%,"TopBit",228,426:A%=d%:� code+13884:� 0 Ȝ 0:� Y=426 � 852 � 4:Ȗ:ș &2E,34+256,area%,"topbit",228,Y:� 0,Y-4,1280,Y-4:� Y
�ș "OS_Byte",112,2:ș "OS_Byte",113,-1:�:ș &2E,34+256,area%,"dash",0,0:ș &2E,34+256,area%,"topbit",228,852:ș "OS_Byte",112,-1:ș "OS_Byte",113,2:�:ș &2E,34+256,area%,"dash",0,0:ș &2E,34+256,area%,"topbit",228,852
+ș "OS_Byte",200,1:�:�:� 23;8202;0;0;0;
 � state%=1 � p%+=1
*� p%=5 �
4.ș "OS_Byte",112,2:ș "OS_Byte",113,2:�:�x
>
p%=4:�
H�
R*� state%=5 � p%=((d%!372)*10)+(d%!376)
\(levycnt%=0:lely%=p%:lcnt%=0:� p%>9 �
f5�:lcnt%+=1:lely%-=10:� lely%<0:lely%+=10:lcnt%-=1
p�
z'� state%=1 � state%=5 � state%=29 �
�$levname%="<Roll$Dir>.Levels.Level-"+�(p%):ș "OS_Find",&40+%1111,levname%,0 � handle%:levc%=42-(�#handle%):� levc%<>p% � �
�n�#handle%,message$:len%=(�# handle%)*2:jumps%=�# handle%:rjumps%=jumps%:levc%=42��#handle%:� levc%<>p% � �
�\tmins%=�# handle%:ttensecs%=�# handle%:tsecs%=�# handle%:levc%=�#handle%:� levc%<>p% � �
��� A=0 � (len%*5*4)-16 � 4:ldata%=�#handle%:leveldata%?A=ldata%:leveldata%?(A+1)=ldata%:leveldata%?(A+2)=ldata%:leveldata%?(A+3)=ldata%:�
��# handle%
��
���:� 5:ș "OS_Byte",112,2:ș &2E,34+256,area%,"dash",0,0:ș &2E,34+256,area%,"t"+�lcnt%,364,132:ș &2E,34+256,area%,"t"+�lely%,412,132:� 63 Ȝ 96:� 640-(�(message$)*16),96:� 48:� message$
ʽș "OS_Byte",112,-1:ș &2E,34+256,area%,"dash",0,0:ș &2E,34+256,area%,"t"+�lcnt%,364,132:ș &2E,34+256,area%,"t"+�lely%,412,132:� 63 Ȝ 96:� 640-(�(message$)*16),96:� 48:� message$:� 4
�tjumps%=rjumps%:� A=0 � len%-1:pat%?A=0:� A:pcnt%=0:� A=0 � len%-6 � (len%-6)/190:pat%?A=1:pcnt%+=1:� A:jmpcnt%=0
�� jumps%>9 �
�<�:jmpcnt%+=1:jumps%-=10:� jumps%<0:jmpcnt%-=1:jumps%+=10
��
��d%!224=len%-7:d%!24=leveldata%:d%!32=area%:d%!8=heightdata%:d%!44=566:d%!52=&1FFB460-&14000:d%!56=8:d%!60=sinetable%:d%!64=0:d%!452=sinetable2%:d%!448=0:d%!68=0:d%!72=0:d%!76=0:d%!80=0:d%!84=&D1D1D1D1:d%!100=5:d%!128=0
	�d%!136=&01010101:d%!196=tmins%:d%!192=ttensecs%:d%!188=tsecs%:d%!180=6:d%!184=0:d%!200=jumps%:d%!204=jmpcnt%:d%!208=0:d%!220=0:d%!232=0:d%!244=scale%:d%!248=0:d%!252=0:d%!256=starfield%:d%!264=pat%:d%!268=0:d%!272=&1FEBA83
	rd%!284=0:d%!324=1:d%!328=1:d%!356=tempstr%:d%!360=starsadr%:d%!364=colours%:d%!372=lcnt%:d%!376=lely%:d%!384=0
	6� vol%=0 � fx=0 � d%!456=0 � d%!456=(&FFFF-vol%)+1
	$)d%!460=whatsamp:� p%>maxp% � maxp%=p%
	.maxl%=maxp%:maxcnt%=0
	8� maxl%>9 �
	B9�:maxcnt%+=1:maxl%-=10:� maxl%<0:maxcnt%-=1:maxl%+=10
	L�
	Vd%!464=maxcnt%:d%!468=maxl%
	`1� state%=0 � state%=29 � state%=50 � d%!232=1
	j3� 18,12,63:�:A%=d%:state%=� code:� state%=2 � �
	t� 0
	~�
	���rolljezsoft
	�ș "OS_Byte",113,2
	��
	�(ș &2E,34+256,area%,"JezLogo",104,58
	�!ș &2E,25+256,area%,"JezLogo"
	�� draw%
	�� A=1 � 30000:� A
	��
	���x
	�ș "OS_Byte",113,2
	��
	�/� "Load <Roll$Dir>.Data.EndScreen &1FD8000"
� draw%

� "FX 21,0"
	key=�
�
(���createtemp:ș &2E,15+256,area%,"temp",0,320,136,13:ș &2E,60+256,area%,"temp",0:x=16:y=436:t=�#handle3%:� t<>10 � t<>32 � t=tEOR42
2*�:� t<>32 � ș &2E,34+256,area%,�t,x,y
<!x+=104:� x>1250 � x=16:y-=108
F+t=�#handle3%:� t<>10 � t<>32 � t=t � 42
P1� t=10:ș &2E,60,0,0,0:� 24,0;240;1279;844;:�
Z*��ori(x%,y%):ȑ x%+276-92,y%+508-152:�
�

00000000  0d 00 0a 0d ee 85 20 f2  65 72 72 6f 72 0d 00 14  |...... .error...|
00000010  39 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |9.. "Wimp_Initia|
00000020  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00000030  31 35 34 2c 22 52 6f 6c  6c 20 4f 6e 22 20 b8 20  |154,"Roll On" . |
00000040  2c 74 61 73 6b 25 0d 00  1e 48 de 20 62 25 20 32  |,task%...H. b% 2|
00000050  30 30 30 2c 77 73 25 20  35 32 30 30 2c 6d 65 6e  |000,ws% 5200,men|
00000060  75 62 25 20 31 30 30 30  2c 69 63 6f 6e 62 25 20  |ub% 1000,iconb% |
00000070  31 30 30 30 2c 69 63 6f  6e 25 20 32 30 2c 6c 65  |1000,icon% 20,le|
00000080  76 65 6c 64 61 74 61 25  20 31 31 30 30 30 0d 00  |veldata% 11000..|
00000090  28 45 de 20 68 65 69 67  68 74 64 61 74 61 25 20  |(E. heightdata% |
000000a0  31 36 35 2c 64 25 20 35  31 32 2c 73 69 6e 65 74  |165,d% 512,sinet|
000000b0  61 62 6c 65 25 20 35 32  2c 73 69 6e 65 74 61 62  |able% 52,sinetab|
000000c0  6c 65 32 25 20 33 37 36  2c 64 72 61 77 25 20 31  |le2% 376,draw% 1|
000000d0  32 38 30 0d 00 32 4c de  20 61 72 65 61 25 20 33  |280..2L. area% 3|
000000e0  32 35 30 30 30 2c 63 6f  64 65 20 32 31 35 30 30  |25000,code 21500|
000000f0  30 2c 6c 65 76 6e 61 6d  65 25 20 33 32 2c 73 63  |0,levname% 32,sc|
00000100  61 6c 65 25 20 31 36 2c  73 74 61 72 66 69 65 6c  |ale% 16,starfiel|
00000110  64 25 20 34 30 30 2c 70  61 74 25 20 35 31 32 0d  |d% 400,pat% 512.|
00000120  00 3c 45 de 20 74 65 6d  70 73 74 72 25 20 31 32  |.<E. tempstr% 12|
00000130  2c 73 74 61 72 73 61 64  72 25 20 31 36 30 30 30  |,starsadr% 16000|
00000140  2c 63 6f 6c 6f 75 72 73  25 20 34 30 30 30 2c 64  |,colours% 4000,d|
00000150  61 74 61 25 20 34 2c 73  63 72 6f 6c 6c 79 25 20  |ata% 4,scrolly% |
00000160  35 33 30 30 0d 00 46 4b  66 69 72 73 74 67 61 6d  |5300..FKfirstgam|
00000170  65 25 3d 30 3a 73 63 70  74 72 25 3d 30 3a 6d 61  |e%=0:scptr%=0:ma|
00000180  78 6c 25 3d 31 3a 6d 61  78 63 6e 74 25 3d 30 3a  |xl%=1:maxcnt%=0:|
00000190  6d 61 78 70 25 3d 31 3a  77 73 65 6e 64 25 3d 77  |maxp%=1:wsend%=w|
000001a0  73 25 2b 35 32 30 30 3a  71 75 69 74 25 3d a3 0d  |s%+5200:quit%=..|
000001b0  00 50 61 f2 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |.Pa.loadtemplate|
000001c0  73 3a 21 62 25 3d 62 61  6e 6e 65 72 77 68 25 3a  |s:!b%=bannerwh%:|
000001d0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000001e0  6f 77 53 74 61 74 65 22  2c 2c 62 25 3a c8 99 20  |owState",,b%:.. |
000001f0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000200  22 2c 2c 62 25 3a f2 6d  65 6e 75 62 6c 6f 63 6b  |",,b%:.menublock|
00000210  0d 00 5a 27 58 3d ad 28  22 3c 52 6f 6c 6c 24 44  |..Z'X=.("<Roll$D|
00000220  69 72 3e 2e 4f 70 74 69  6f 6e 73 22 29 3a 6d 61  |ir>.Options"):ma|
00000230  78 70 25 3d 9a 23 58 0d  00 64 2d e7 20 6d 61 78  |xp%=.#X..d-. max|
00000240  70 25 3c 3e 28 34 32 82  9a 23 58 29 84 6d 61 78  |p%<>(42..#X).max|
00000250  70 25 3c 3e 28 32 39 82  9a 23 58 29 8c f2 63 65  |p%<>(29..#X)..ce|
00000260  72 72 6f 72 0d 00 6e 0b  6d 61 78 70 25 3d 34 0d  |rror..n.maxp%=4.|
00000270  00 78 1e 63 6f 6e 74 3d  9a 23 58 3a 66 78 3d 9a  |.x.cont=.#X:fx=.|
00000280  23 20 58 3a 76 6f 6c 25  3d 9a 23 20 58 0d 00 82  |# X:vol%=.# X...|
00000290  26 72 65 67 24 3d 22 22  3a f5 3a 72 65 67 24 2b  |&reg$="":.:reg$+|
000002a0  3d bd 28 9a 23 58 20 82  34 32 29 3a fd 20 c5 23  |=.(.#X .42):. .#|
000002b0  58 3d b9 0d 00 8c 6d d9  23 20 58 3a 24 76 6f 6c  |X=....m.# X:$vol|
000002c0  73 74 72 25 3d c3 76 6f  6c 25 3a f2 72 65 73 65  |str%=.vol%:.rese|
000002d0  74 69 63 6f 6e 73 3a 24  62 61 6e 72 65 67 25 3d  |ticons:$banreg%=|
000002e0  22 52 65 67 69 73 74 65  72 65 64 20 74 6f 3a 20  |"Registered to: |
000002f0  22 2b 72 65 67 24 3a 24  69 6e 66 6f 72 65 67 25  |"+reg$:$inforeg%|
00000300  3d 72 65 67 24 3a e3 20  41 3d 30 20 b8 20 36 34  |=reg$:. A=0 . 64|
00000310  3a 73 63 72 6f 6c 6c 79  25 3f 41 3d 33 32 3a ed  |:scrolly%?A=32:.|
00000320  0d 00 96 84 24 6c 65 76  6e 61 6d 65 25 3d 22 3c  |....$levname%="<|
00000330  52 6f 6c 6c 24 44 69 72  3e 2e 44 61 74 61 2e 53  |Roll$Dir>.Data.S|
00000340  63 72 6f 6c 6c 79 22 3a  c8 99 20 22 4f 53 5f 46  |crolly":.. "OS_F|
00000350  69 6e 64 22 2c 26 34 30  2b 25 31 31 31 31 2c 6c  |ind",&40+%1111,l|
00000360  65 76 6e 61 6d 65 25 2c  30 20 b8 20 68 61 6e 64  |evname%,0 . hand|
00000370  6c 65 25 3a c8 99 20 22  4f 53 5f 47 42 50 42 22  |le%:.. "OS_GBPB"|
00000380  2c 34 2c 68 61 6e 64 6c  65 25 2c 73 63 72 6f 6c  |,4,handle%,scrol|
00000390  6c 79 25 2b 36 32 2c 35  31 35 32 20 b8 20 2c 2c  |ly%+62,5152 . ,,|
000003a0  2c 6e 6f 74 0d 00 a0 44  d9 23 68 61 6e 64 6c 65  |,not...D.#handle|
000003b0  25 3a e3 20 41 3d 36 32  2b 35 31 35 32 20 b8 20  |%:. A=62+5152 . |
000003c0  36 32 2b 35 31 35 32 2b  36 34 3a 73 63 72 6f 6c  |62+5152+64:scrol|
000003d0  6c 79 25 3f 41 3d 33 32  3a ed 3a 73 63 72 6f 6c  |ly%?A=32:.:scrol|
000003e0  6c 79 25 3f 41 3d 31 33  0d 00 aa 98 50 25 3d 64  |ly%?A=13....P%=d|
000003f0  72 61 77 25 3a 5b 3a 4d  4f 56 20 52 31 31 2c 23  |raw%:[:MOV R11,#|
00000400  26 32 30 30 30 30 30 30  3a 53 55 42 20 52 31 31  |&2000000:SUB R11|
00000410  2c 52 31 31 2c 23 26 31  34 30 30 30 3a 53 55 42  |,R11,#&14000:SUB|
00000420  20 52 31 30 2c 52 31 31  2c 23 26 31 34 30 30 30  | R10,R11,#&14000|
00000430  3a 4d 4f 56 20 52 31 32  2c 23 31 3a 2e 64 72 6c  |:MOV R12,#1:.drl|
00000440  70 3a 43 4d 50 20 52 31  32 2c 23 31 30 3a ec 51  |p:CMP R12,#10:.Q|
00000450  20 52 31 32 2c 23 30 3a  41 44 44 20 52 31 32 2c  | R12,#0:ADD R12,|
00000460  52 31 32 2c 23 31 3a ec  51 20 52 30 2c 23 31 39  |R12,#1:.Q R0,#19|
00000470  3a 53 57 49 45 51 20 22  4f 53 5f 42 79 74 65 22  |:SWIEQ "OS_Byte"|
00000480  0d 00 b4 93 4c 44 4d 49  42 20 52 31 30 21 2c 7b  |....LDMIB R10!,{|
00000490  52 30 2d 52 37 7d 3a 4d  4f 56 20 52 39 2c 52 31  |R0-R7}:MOV R9,R1|
000004a0  31 3a 4d 4f 56 20 52 38  2c 23 26 32 30 30 30 30  |1:MOV R8,#&20000|
000004b0  30 30 3a 53 55 42 20 52  38 2c 52 38 2c 23 33 32  |00:SUB R8,R8,#32|
000004c0  30 3a 2e 6d 69 63 72 6f  64 72 6c 70 3a 53 54 4d  |0:.microdrlp:STM|
000004d0  49 42 20 52 31 31 2c 7b  52 30 2d 52 37 7d 3a 41  |IB R11,{R0-R7}:A|
000004e0  44 44 20 52 31 31 2c 52  31 31 2c 23 33 32 30 3a  |DD R11,R11,#320:|
000004f0  43 4d 50 20 52 31 31 2c  52 38 3a 42 4c 54 20 6d  |CMP R11,R8:BLT m|
00000500  69 63 72 6f 64 72 6c 70  3a 4d 4f 56 20 52 31 31  |icrodrlp:MOV R11|
00000510  2c 52 39 0d 00 be 81 41  44 44 20 52 31 31 2c 52  |,R9....ADD R11,R|
00000520  31 31 2c 23 33 32 3a 4d  4f 56 20 52 38 2c 23 26  |11,#32:MOV R8,#&|
00000530  32 30 30 30 30 30 30 3a  53 55 42 20 52 38 2c 52  |2000000:SUB R8,R|
00000540  38 2c 23 26 31 34 30 30  30 3a 53 55 42 20 52 38  |8,#&14000:SUB R8|
00000550  2c 52 38 2c 23 33 32 3a  43 4d 50 20 52 31 30 2c  |,R8,#32:CMP R10,|
00000560  52 38 3a 42 4c 54 20 64  72 6c 70 3a 4d 4f 56 20  |R8:BLT drlp:MOV |
00000570  50 43 2c 52 31 34 3a 5d  3a e3 20 41 3d 31 20 b8  |PC,R14:]:. A=1 .|
00000580  20 35 3a f2 70 6f 6c 6c  3a ed 3a f2 69 6e 69 74  | 5:.poll:.:.init|
00000590  67 61 6d 65 0d 00 c8 98  21 62 25 3d 2d 31 3a 62  |game....!b%=-1:b|
000005a0  25 21 34 3d 30 3a 62 25  21 38 3d 30 3a 62 25 21  |%!4=0:b%!8=0:b%!|
000005b0  31 32 3d 31 36 32 3a 62  25 21 31 36 3d 36 38 3a  |12=162:b%!16=68:|
000005c0  62 25 21 32 30 3d 26 33  31 31 41 3a 62 25 21 32  |b%!20=&311A:b%!2|
000005d0  34 3d 69 63 6f 6e 25 3a  62 25 21 32 38 3d 61 72  |4=icon%:b%!28=ar|
000005e0  65 61 25 3a 62 25 21 33  32 3d 36 3a 24 28 69 63  |ea%:b%!32=6:$(ic|
000005f0  6f 6e 25 29 3d 22 21 52  6f 6c 6c 31 22 3a c8 99  |on%)="!Roll1":..|
00000600  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00000610  22 2c 2c 62 25 20 b8 20  69 25 3a d1 3d 30 3a 62  |",,b% . i%:.=0:b|
00000620  61 6e 3d 30 3a 72 6f 6c  6c 25 3d 31 0d 00 d2 05  |an=0:roll%=1....|
00000630  f5 0d 00 dc 11 63 6f 75  6e 74 3d 63 6f 75 6e 74  |.....count=count|
00000640  2b 31 0d 00 e6 15 e7 20  91 3e 35 30 30 20 80 20  |+1..... .>500 . |
00000650  62 61 6e 3d 30 20 8c 0d  00 f0 58 21 62 25 3d 62  |ban=0 ....X!b%=b|
00000660  61 6e 6e 65 72 77 68 25  3a c8 99 20 22 57 69 6d  |annerwh%:.. "Wim|
00000670  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000680  22 2c 2c 62 25 3a c8 99  20 22 57 69 6d 70 5f 43  |",,b%:.. "Wimp_C|
00000690  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 25 3a  |loseWindow",,b%:|
000006a0  62 61 6e 3d 31 3a 62 61  6c 6c 6e 6f 25 3d 31 0d  |ban=1:ballno%=1.|
000006b0  00 fa 05 cd 0d 01 04 10  e7 20 21 61 6e 69 6d 25  |......... !anim%|
000006c0  3d 31 20 8c 0d 01 0e 25  72 6f 6c 6c 25 3d 72 6f  |=1 ....%roll%=ro|
000006d0  6c 6c 25 2b 31 3a e7 20  72 6f 6c 6c 25 3d 37 20  |ll%+1:. roll%=7 |
000006e0  8c 20 72 6f 6c 6c 25 3d  31 0d 01 18 7f 21 62 25  |. roll%=1....!b%|
000006f0  3d 2d 31 3a 62 25 21 34  3d 69 25 3a 62 25 21 31  |=-1:b%!4=i%:b%!1|
00000700  32 3d 30 3a 62 25 21 38  3d 30 3a 24 28 69 63 6f  |2=0:b%!8=0:$(ico|
00000710  6e 25 29 3d 22 21 72 6f  6c 6c 22 2b c3 72 6f 6c  |n%)="!roll"+.rol|
00000720  6c 25 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |l%:.. "Wimp_SetI|
00000730  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 62 61  |conState",,b%:ba|
00000740  6c 6c 6e 6f 25 3d 62 61  6c 6c 6e 6f 25 2b 31 3a  |llno%=ballno%+1:|
00000750  e7 20 62 61 6c 6c 6e 6f  25 3d 31 31 20 8c 20 62  |. ballno%=11 . b|
00000760  61 6c 6c 6e 6f 25 3d 31  0d 01 22 05 cd 0d 01 2c  |allno%=1.."....,|
00000770  1e e7 20 21 73 63 72 6f  6c 6c 25 3d 31 20 8c 20  |.. !scroll%=1 . |
00000780  f2 73 63 72 6f 6c 6c 74  65 78 74 0d 01 36 18 f2  |.scrolltext..6..|
00000790  70 6f 6c 6c 3a fd 20 71  75 69 74 25 3a f2 63 6c  |poll:. quit%:.cl|
000007a0  6f 73 65 0d 01 40 22 dd  f2 70 6f 6c 6c 3a c8 99  |ose..@"..poll:..|
000007b0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 62 25  | "Wimp_Poll",,b%|
000007c0  20 b8 20 72 25 0d 01 4a  0b c8 8e 20 72 25 20 ca  | . r%..J... r% .|
000007d0  0d 01 54 20 c9 20 32 3a  c8 99 20 22 57 69 6d 70  |..T . 2:.. "Wimp|
000007e0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 25  |_OpenWindow",,b%|
000007f0  0d 01 5e 21 c9 20 33 3a  c8 99 20 22 57 69 6d 70  |..^!. 3:.. "Wimp|
00000800  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00000810  25 0d 01 68 13 c9 20 36  3a f2 6d 6f 75 73 65 63  |%..h.. 6:.mousec|
00000820  6c 69 63 6b 0d 01 72 12  c9 20 39 3a f2 6d 65 6e  |lick..r.. 9:.men|
00000830  75 63 6c 69 63 6b 0d 01  7c 14 c9 20 31 37 2c 31  |uclick..|.. 17,1|
00000840  38 3a f2 72 65 63 65 69  76 65 0d 01 86 07 cb 3a  |8:.receive.....:|
00000850  e1 0d 01 90 31 dd f2 63  6c 6f 73 65 3a c8 99 20  |....1..close:.. |
00000860  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000870  2c 74 61 73 6b 25 2c 26  34 42 35 33 34 31 35 34  |,task%,&4B534154|
00000880  3a e1 0d 01 9a 10 dd f2  6d 6f 75 73 65 63 6c 69  |:.......mousecli|
00000890  63 6b 0d 01 a4 0e c8 8e  20 62 25 21 31 32 20 ca  |ck...... b%!12 .|
000008a0  0d 01 ae 12 c9 20 2d 32  3a c8 8e 20 62 25 21 38  |..... -2:.. b%!8|
000008b0  20 ca 0d 01 b8 2b c9 20  32 3a f2 73 68 6f 77 6d  | ....+. 2:.showm|
000008c0  65 6e 75 28 6d 61 69 6e  6d 65 6e 75 25 2c 21 62  |enu(mainmenu%,!b|
000008d0  25 2d 36 34 2c 39 36 2b  36 2a 34 34 29 0d 01 c2  |%-64,96+6*44)...|
000008e0  10 c9 20 34 3a f2 72 75  6e 67 61 6d 65 0d 01 cc  |.. 4:.rungame...|
000008f0  05 cb 0d 01 d6 13 c9 20  77 68 25 3a c8 8e 20 62  |....... wh%:.. b|
00000900  25 21 38 20 ca 0d 01 e0  15 c9 20 31 2c 34 3a f2  |%!8 ...... 1,4:.|
00000910  63 68 65 63 6b 69 63 6f  6e 73 0d 01 ea 05 cb 0d  |checkicons......|
00000920  01 f4 05 cb 0d 01 fe 05  e1 0d 02 08 0d dd f2 72  |...............r|
00000930  65 63 65 69 76 65 0d 02  12 0e c8 8e 20 62 25 21  |eceive...... b%!|
00000940  31 36 20 ca 0d 02 1c 10  c9 20 30 3a f2 63 72 65  |16 ...... 0:.cre|
00000950  64 69 74 73 0d 02 26 05  cb 0d 02 30 05 e1 0d 02  |dits..&....0....|
00000960  3a 0d dd f2 72 75 6e 67  61 6d 65 0d 02 44 91 c8  |:...rungame..D..|
00000970  99 20 22 53 6f 75 6e 64  5f 49 6e 73 74 61 6c 6c  |. "Sound_Install|
00000980  56 6f 69 63 65 22 2c 63  6f 64 65 2b 38 33 37 34  |Voice",code+8374|
00000990  34 2c 30 20 b8 20 61 25  2c 76 6f 69 63 65 25 3a  |4,0 . a%,voice%:|
000009a0  c8 99 20 22 53 6f 75 6e  64 5f 41 74 74 61 63 68  |.. "Sound_Attach|
000009b0  56 6f 69 63 65 22 2c 31  2c 76 6f 69 63 65 25 20  |Voice",1,voice% |
000009c0  b8 20 2c 6f 6c 64 76 6f  69 63 65 25 3a 6d 6f 64  |. ,oldvoice%:mod|
000009d0  65 25 3d eb 3a 64 25 21  33 31 36 3d 63 6f 6e 74  |e%=.:d%!316=cont|
000009e0  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 4d 6f 64  |:.. "Wimp_SetMod|
000009f0  65 22 2c 31 35 3a eb 20  31 33 3a 87 0d 02 4e 14  |e",15:. 13:...N.|
00000a00  e7 20 66 69 72 73 74 67  61 6d 65 25 3d 30 20 8c  |. firstgame%=0 .|
00000a10  0d 02 58 21 f2 69 6e 74  72 6f 3a 73 74 61 74 65  |..X!.intro:state|
00000a20  25 3d 32 39 3a 66 69 72  73 74 67 61 6d 65 25 3d  |%=29:firstgame%=|
00000a30  31 0d 02 62 05 cc 0d 02  6c 0c 73 74 61 74 65 25  |1..b....l.state%|
00000a40  3d 30 0d 02 76 05 cd 0d  02 80 ab f2 67 61 6d 65  |=0..v.......game|
00000a50  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 32 30  |:.. "OS_Byte",20|
00000a60  30 2c 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |0,0:.. "Wimp_Set|
00000a70  4d 6f 64 65 22 2c 6d 6f  64 65 25 3a c8 99 20 22  |Mode",mode%:.. "|
00000a80  53 6f 75 6e 64 5f 52 65  6d 6f 76 65 56 6f 69 63  |Sound_RemoveVoic|
00000a90  65 22 2c 30 2c 76 6f 69  63 65 25 3a 21 62 25 3d  |e",0,voice%:!b%=|
00000aa0  62 61 6e 6e 65 72 77 68  25 3a c8 99 20 22 57 69  |bannerwh%:.. "Wi|
00000ab0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000ac0  65 22 2c 2c 62 25 3a c8  99 20 22 57 69 6d 70 5f  |e",,b%:.. "Wimp_|
00000ad0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |CloseWindow",,b%|
00000ae0  3a 62 61 6e 3d 31 3a 62  61 6c 6c 6e 6f 25 3d 31  |:ban=1:ballno%=1|
00000af0  3a e1 0d 02 8a 42 dd f2  6c 6f 61 64 74 65 6d 70  |:....B..loadtemp|
00000b00  6c 61 74 65 73 3a c8 99  20 22 57 69 6d 70 5f 4f  |lates:.. "Wimp_O|
00000b10  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00000b20  52 6f 6c 6c 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |Roll$Dir>.Templa|
00000b30  74 65 73 22 0d 02 94 7b  c8 99 20 22 57 69 6d 70  |tes"...{.. "Wimp|
00000b40  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000b50  62 25 2c 77 73 25 2c 77  73 65 6e 64 25 2c 2d 31  |b%,ws%,wsend%,-1|
00000b60  2c 22 4f 70 74 69 6f 6e  73 22 2c 30 20 b8 20 2c  |,"Options",0 . ,|
00000b70  2c 77 73 25 3a c8 99 20  22 57 69 6d 70 5f 43 72  |,ws%:.. "Wimp_Cr|
00000b80  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 25 20  |eateWindow",,b% |
00000b90  b8 20 77 68 25 3a 76 6f  6c 73 74 72 25 3d 21 28  |. wh%:volstr%=!(|
00000ba0  62 25 2b 38 38 2b 33 32  2a 31 35 2b 32 30 29 0d  |b%+88+32*15+20).|
00000bb0  02 9e dd c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..... "Wimp_Load|
00000bc0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 25 2c 77 73  |Template",,b%,ws|
00000bd0  25 2c 77 73 65 6e 64 25  2c 2d 31 2c 22 49 6e 66  |%,wsend%,-1,"Inf|
00000be0  6f 22 2c 30 20 b8 20 2c  2c 77 73 25 3a c8 99 20  |o",0 . ,,ws%:.. |
00000bf0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000c00  6f 77 22 2c 2c 62 25 20  b8 20 77 68 32 25 3a 69  |ow",,b% . wh2%:i|
00000c10  6e 66 6f 72 65 67 25 3d  21 28 62 25 2b 38 38 2b  |nforeg%=!(b%+88+|
00000c20  33 32 2a 31 32 2b 32 30  29 3a c8 99 20 22 57 69  |32*12+20):.. "Wi|
00000c30  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000c40  2c 2c 62 25 2c 77 73 25  2c 77 73 65 6e 64 25 2c  |,,b%,ws%,wsend%,|
00000c50  2d 31 2c 22 42 61 6e 6e  65 72 22 2c 30 20 b8 20  |-1,"Banner",0 . |
00000c60  2c 2c 77 73 25 3a c8 99  20 22 57 69 6d 70 5f 43  |,,ws%:.. "Wimp_C|
00000c70  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |reateWindow",,b%|
00000c80  20 b8 20 62 61 6e 6e 65  72 77 68 25 0d 02 a8 1c  | . bannerwh%....|
00000c90  62 61 6e 72 65 67 25 3d  21 28 62 25 2b 38 38 2b  |banreg%=!(b%+88+|
00000ca0  33 32 2a 33 2b 32 30 29  0d 02 b2 fc c8 99 20 22  |32*3+20)...... "|
00000cb0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000cc0  65 22 2c 2c 62 25 2c 77  73 25 2c 77 73 65 6e 64  |e",,b%,ws%,wsend|
00000cd0  25 2c 2d 31 2c 22 43 6f  6c 6f 75 72 73 22 2c 30  |%,-1,"Colours",0|
00000ce0  20 b8 20 2c 2c 77 73 25  3a c8 99 20 22 57 69 6d  | . ,,ws%:.. "Wim|
00000cf0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000d00  2c 62 25 20 b8 20 63 6f  6c 77 68 25 3a c8 99 20  |,b% . colwh%:.. |
00000d10  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000d20  74 65 22 2c 2c 62 25 2c  77 73 25 2c 77 73 65 6e  |te",,b%,ws%,wsen|
00000d30  64 25 2c 2d 31 2c 22 53  63 72 6f 6c 6c 79 22 2c  |d%,-1,"Scrolly",|
00000d40  30 20 b8 20 2c 2c 77 73  25 3a c8 99 20 22 57 69  |0 . ,,ws%:.. "Wi|
00000d50  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000d60  2c 2c 62 25 20 b8 20 73  63 72 6f 6c 6c 77 68 25  |,,b% . scrollwh%|
00000d70  3a 74 65 78 74 73 74 72  25 3d 21 28 62 25 2b 38  |:textstr%=!(b%+8|
00000d80  38 2b 33 32 2a 30 2b 32  30 29 3a c8 99 20 22 57  |8+32*0+20):.. "W|
00000d90  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00000da0  65 22 3a e1 0d 02 bc 88  dd f2 6d 65 6e 75 62 6c  |e":.......menubl|
00000db0  6f 63 6b 3a 73 74 61 72  74 25 3d 6d 65 6e 75 62  |ock:start%=menub|
00000dc0  25 3a 24 28 73 74 61 72  74 25 29 3d 22 52 6f 6c  |%:$(start%)="Rol|
00000dd0  6c 20 4f 6e 22 3a 73 74  61 72 74 25 3f 31 32 3d  |l On":start%?12=|
00000de0  37 3a 73 74 61 72 74 25  3f 31 33 3d 32 3a 73 74  |7:start%?13=2:st|
00000df0  61 72 74 25 3f 31 34 3d  37 3a 73 74 61 72 74 25  |art%?14=7:start%|
00000e00  3f 31 35 3d 30 3a 73 74  61 72 74 25 21 32 30 3d  |?15=0:start%!20=|
00000e10  34 34 3a 73 74 61 72 74  25 21 32 34 3d 30 3a 73  |44:start%!24=0:s|
00000e20  74 61 72 74 25 21 31 36  3d 31 38 34 0d 02 c6 4d  |tart%!16=184...M|
00000e30  6d 65 6e 75 62 25 2b 3d  32 38 3a 21 6d 65 6e 75  |menub%+=28:!menu|
00000e40  62 25 3d 30 3a 6d 65 6e  75 62 25 21 34 3d 77 68  |b%=0:menub%!4=wh|
00000e50  32 25 3a 6d 65 6e 75 62  25 21 38 3d 26 30 37 30  |2%:menub%!8=&070|
00000e60  30 30 30 32 31 3a 24 28  6d 65 6e 75 62 25 2b 31  |00021:$(menub%+1|
00000e70  32 29 3d 22 49 6e 66 6f  22 0d 02 d0 51 6d 65 6e  |2)="Info"...Qmen|
00000e80  75 62 25 2b 3d 32 34 3a  21 6d 65 6e 75 62 25 3d  |ub%+=24:!menub%=|
00000e90  30 3a 6d 65 6e 75 62 25  21 34 3d 2d 31 3a 6d 65  |0:menub%!4=-1:me|
00000ea0  6e 75 62 25 21 38 3d 26  30 37 30 30 30 30 32 31  |nub%!8=&07000021|
00000eb0  3a 24 28 6d 65 6e 75 62  25 2b 31 32 29 3d 22 4f  |:$(menub%+12)="O|
00000ec0  70 74 69 6f 6e 73 2e 2e  2e 22 0d 02 da 51 6d 65  |ptions..."...Qme|
00000ed0  6e 75 62 25 2b 3d 32 34  3a 21 6d 65 6e 75 62 25  |nub%+=24:!menub%|
00000ee0  3d 30 3a 6d 65 6e 75 62  25 21 34 3d 2d 31 3a 6d  |=0:menub%!4=-1:m|
00000ef0  65 6e 75 62 25 21 38 3d  26 30 37 30 30 30 30 32  |enub%!8=&0700002|
00000f00  31 3a 24 28 6d 65 6e 75  62 25 2b 31 32 29 3d 22  |1:$(menub%+12)="|
00000f10  43 6f 6c 6f 75 72 73 2e  2e 2e 22 0d 02 e4 60 6d  |Colours..."...`m|
00000f20  65 6e 75 62 25 2b 3d 32  34 3a 21 6d 65 6e 75 62  |enub%+=24:!menub|
00000f30  25 3d 30 3a 73 63 72 6f  6c 6c 25 3d 6d 65 6e 75  |%=0:scroll%=menu|
00000f40  62 25 3a 6d 65 6e 75 62  25 21 34 3d 2d 31 3a 6d  |b%:menub%!4=-1:m|
00000f50  65 6e 75 62 25 21 38 3d  26 30 37 30 30 30 30 32  |enub%!8=&0700002|
00000f60  31 3a 24 28 6d 65 6e 75  62 25 2b 31 32 29 3d 22  |1:$(menub%+12)="|
00000f70  53 63 72 6f 6c 6c 79 2e  2e 2e 22 0d 02 ee 5d 6d  |Scrolly..."...]m|
00000f80  65 6e 75 62 25 2b 3d 32  34 3a 21 6d 65 6e 75 62  |enub%+=24:!menub|
00000f90  25 3d 31 3a 61 6e 69 6d  25 3d 6d 65 6e 75 62 25  |%=1:anim%=menub%|
00000fa0  3a 6d 65 6e 75 62 25 21  34 3d 2d 31 3a 6d 65 6e  |:menub%!4=-1:men|
00000fb0  75 62 25 21 38 3d 26 30  37 30 30 30 30 32 31 3a  |ub%!8=&07000021:|
00000fc0  24 28 6d 65 6e 75 62 25  2b 31 32 29 3d 22 41 6e  |$(menub%+12)="An|
00000fd0  69 6d 61 74 69 6f 6e 22  0d 02 f8 69 6d 65 6e 75  |imation"...imenu|
00000fe0  62 25 2b 3d 32 34 3a 21  6d 65 6e 75 62 25 3d 26  |b%+=24:!menub%=&|
00000ff0  38 30 3a 6d 65 6e 75 62  25 21 34 3d 2d 31 3a 6d  |80:menub%!4=-1:m|
00001000  65 6e 75 62 25 21 38 3d  26 30 37 30 30 30 30 32  |enub%!8=&0700002|
00001010  31 3a 24 28 6d 65 6e 75  62 25 2b 31 32 29 3d 22  |1:$(menub%+12)="|
00001020  51 75 69 74 22 3a 6d 61  69 6e 6d 65 6e 75 25 3d  |Quit":mainmenu%=|
00001030  73 74 61 72 74 25 3a 6d  65 6e 75 62 25 2b 3d 32  |start%:menub%+=2|
00001040  34 0d 03 02 05 e1 0d 03  0c 5f dd f2 73 68 6f 77  |4........_..show|
00001050  6d 65 6e 75 28 6d 65 6e  75 25 2c 78 25 2c 79 25  |menu(menu%,x%,y%|
00001060  29 3a 74 6f 70 6d 65 6e  75 25 3d 6d 65 6e 75 25  |):topmenu%=menu%|
00001070  3a 74 6f 70 78 25 3d 78  25 3a 74 6f 70 79 25 3d  |:topx%=x%:topy%=|
00001080  79 25 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |y%:.."Wimp_Creat|
00001090  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 78 25  |eMenu",,menu%,x%|
000010a0  2c 79 25 3a e1 0d 03 16  0f dd f2 6d 65 6e 75 63  |,y%:.......menuc|
000010b0  6c 69 63 6b 0d 03 20 08  ea 20 63 25 0d 03 2a 0d  |lick.. .. c%..*.|
000010c0  63 25 3d 62 25 2b 39 30  30 0d 03 34 20 c8 99 20  |c%=b%+900..4 .. |
000010d0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000010e0  49 6e 66 6f 22 2c 2c 63  25 0d 03 3e 13 61 64 6a  |Info",,c%..>.adj|
000010f0  25 3d 28 63 25 21 38 20  80 20 31 29 0d 03 48 11  |%=(c%!8 . 1)..H.|
00001100  c8 8e 20 74 6f 70 6d 65  6e 75 25 20 ca 0d 03 52  |.. topmenu% ...R|
00001110  18 c9 20 6d 61 69 6e 6d  65 6e 75 25 3a c8 8e 20  |.. mainmenu%:.. |
00001120  21 62 25 20 ca 0d 03 5c  10 c9 20 35 3a f2 63 72  |!b% ...\.. 5:.cr|
00001130  65 64 69 74 73 0d 03 66  15 c9 20 33 3a c8 8e 20  |edits..f.. 3:.. |
00001140  21 73 63 72 6f 6c 6c 25  20 ca 0d 03 70 57 c9 20  |!scroll% ...pW. |
00001150  31 3a 21 73 63 72 6f 6c  6c 25 3d 30 3a 21 62 25  |1:!scroll%=0:!b%|
00001160  3d 73 63 72 6f 6c 6c 77  68 25 3a c8 99 20 22 57  |=scrollwh%:.. "W|
00001170  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00001180  74 65 22 2c 2c 62 25 3a  c8 99 20 22 57 69 6d 70  |te",,b%:.. "Wimp|
00001190  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
000011a0  25 0d 03 7a 56 c9 20 30  3a 21 73 63 72 6f 6c 6c  |%..zV. 0:!scroll|
000011b0  25 3d 31 3a 21 62 25 3d  73 63 72 6f 6c 6c 77 68  |%=1:!b%=scrollwh|
000011c0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
000011d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 3a c8  |ndowState",,b%:.|
000011e0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
000011f0  6f 77 22 2c 2c 62 25 0d  03 84 05 cb 0d 03 8e 13  |ow",,b%.........|
00001200  c9 20 34 3a c8 8e 20 21  61 6e 69 6d 25 20 ca 0d  |. 4:.. !anim% ..|
00001210  03 98 10 c9 20 31 3a 21  61 6e 69 6d 25 3d 30 0d  |.... 1:!anim%=0.|
00001220  03 a2 10 c9 20 30 3a 21  61 6e 69 6d 25 3d 31 0d  |.... 0:!anim%=1.|
00001230  03 ac 05 cb 0d 03 b6 53  c9 20 32 3a f2 63 68 65  |.......S. 2:.che|
00001240  63 6b 63 6f 6c 73 3a 21  62 25 3d 63 6f 6c 77 68  |ckcols:!b%=colwh|
00001250  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
00001260  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 3a c8  |ndowState",,b%:.|
00001270  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00001280  6f 77 22 2c 2c 62 25 0d  03 c0 51 c9 20 31 3a f2  |ow",,b%...Q. 1:.|
00001290  72 65 73 65 74 69 63 6f  6e 73 3a 21 62 25 3d 77  |reseticons:!b%=w|
000012a0  68 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |h%:.. "Wimp_GetW|
000012b0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 25 3a  |indowState",,b%:|
000012c0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000012d0  64 6f 77 22 2c 2c 62 25  0d 03 ca 05 cb 0d 03 d4  |dow",,b%........|
000012e0  05 cb 0d 03 de 2a e7 20  61 64 6a 25 20 f2 73 68  |.....*. adj% .sh|
000012f0  6f 77 6d 65 6e 75 28 74  6f 70 6d 65 6e 75 25 2c  |owmenu(topmenu%,|
00001300  74 6f 70 78 25 2c 74 6f  70 79 25 29 0d 03 e8 05  |topx%,topy%)....|
00001310  e1 0d 03 f2 76 dd f2 65  72 72 6f 72 3a ea 20 63  |....v..error:. c|
00001320  25 3a 63 25 3d 62 25 2b  39 30 30 3a 63 25 21 30  |%:c%=b%+900:c%!0|
00001330  3d 31 3a 24 28 63 25 2b  34 29 3d f6 24 2b 22 20  |=1:$(c%+4)=.$+" |
00001340  28 69 6e 74 65 72 6e 61  6c 20 65 72 72 6f 72 20  |(internal error |
00001350  63 6f 64 65 20 22 2b c3  9e 2b 22 29 22 3a c8 99  |code "+..+")":..|
00001360  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00001370  6f 72 22 2c 63 25 2c 25  31 2c 22 52 6f 6c 6c 20  |or",c%,%1,"Roll |
00001380  4f 6e 22 3a e0 3a e1 0d  03 fc 78 dd a4 69 63 6f  |On":.:....x..ico|
00001390  6e 5f 73 74 61 74 65 28  77 69 6e 64 6f 77 25 2c  |n_state(window%,|
000013a0  69 63 6f 6e 25 29 3a ea  20 63 25 3a 63 25 3d 62  |icon%):. c%:c%=b|
000013b0  25 2b 39 30 30 3a 21 63  25 3d 77 69 6e 64 6f 77  |%+900:!c%=window|
000013c0  25 3a 63 25 21 34 3d 69  63 6f 6e 25 3a c8 99 20  |%:c%!4=icon%:.. |
000013d0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000013e0  74 65 22 2c 2c 63 25 3a  3d 28 28 63 25 21 32 34  |te",,c%:=((c%!24|
000013f0  29 20 80 20 28 31 3c 3c  32 31 29 29 3c 3e 30 0d  |) . (1<<21))<>0.|
00001400  04 06 46 dd f2 63 68 65  63 6b 69 63 6f 6e 73 3a  |..F..checkicons:|
00001410  63 25 3d 62 25 2b 39 30  30 3a 69 73 69 74 3d a4  |c%=b%+900:isit=.|
00001420  69 63 6f 6e 5f 73 74 61  74 65 28 77 68 25 2c 31  |icon_state(wh%,1|
00001430  39 29 3a e7 20 69 73 69  74 3d b9 20 8c 20 6e 63  |9):. isit=. . nc|
00001440  6f 6e 74 3d 32 0d 04 10  2f 69 73 69 74 3d a4 69  |ont=2.../isit=.i|
00001450  63 6f 6e 5f 73 74 61 74  65 28 77 68 25 2c 32 30  |con_state(wh%,20|
00001460  29 3a e7 20 69 73 69 74  3d b9 20 8c 20 6e 63 6f  |):. isit=. . nco|
00001470  6e 74 3d 31 0d 04 1a 35  69 73 69 74 3d a4 69 63  |nt=1...5isit=.ic|
00001480  6f 6e 5f 73 74 61 74 65  28 77 68 25 2c 31 33 29  |on_state(wh%,13)|
00001490  3a e7 20 69 73 69 74 3d  b9 20 8c 20 6e 66 78 3d  |:. isit=. . nfx=|
000014a0  31 20 8b 20 6e 66 78 3d  30 0d 04 24 1c 69 73 69  |1 . nfx=0..$.isi|
000014b0  74 3d a4 69 63 6f 6e 5f  73 74 61 74 65 28 77 68  |t=.icon_state(wh|
000014c0  25 2c 31 36 29 0d 04 2e  0e e7 20 69 73 69 74 3d  |%,16)..... isit=|
000014d0  b9 20 8c 0d 04 38 1d 24  76 6f 6c 73 74 72 25 3d  |. ...8.$volstr%=|
000014e0  c3 28 a0 28 24 76 6f 6c  73 74 72 25 29 2b 31 29  |.(.($volstr%)+1)|
000014f0  0d 04 42 24 e7 20 a0 28  24 76 6f 6c 73 74 72 25  |..B$. .($volstr%|
00001500  29 3e 31 35 20 8c 20 24  76 6f 6c 73 74 72 25 3d  |)>15 . $volstr%=|
00001510  22 31 35 22 0d 04 4c 3e  63 25 21 30 3d 77 68 25  |"15"..L>c%!0=wh%|
00001520  3a 63 25 21 34 3d 31 35  3a 63 25 21 31 32 3d 30  |:c%!4=15:c%!12=0|
00001530  3a 63 25 21 38 3d 30 3a  c8 99 20 22 57 69 6d 70  |:c%!8=0:.. "Wimp|
00001540  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001550  63 25 0d 04 56 05 cd 0d  04 60 1c 69 73 69 74 3d  |c%..V....`.isit=|
00001560  a4 69 63 6f 6e 5f 73 74  61 74 65 28 77 68 25 2c  |.icon_state(wh%,|
00001570  31 37 29 0d 04 6a 0e e7  20 69 73 69 74 3d b9 20  |17)..j.. isit=. |
00001580  8c 0d 04 74 1d 24 76 6f  6c 73 74 72 25 3d c3 28  |...t.$volstr%=.(|
00001590  a0 28 24 76 6f 6c 73 74  72 25 29 2d 31 29 0d 04  |.($volstr%)-1)..|
000015a0  7e 22 e7 20 a0 28 24 76  6f 6c 73 74 72 25 29 3c  |~". .($volstr%)<|
000015b0  30 20 8c 20 24 76 6f 6c  73 74 72 25 3d 22 30 22  |0 . $volstr%="0"|
000015c0  0d 04 88 3e 63 25 21 30  3d 77 68 25 3a 63 25 21  |...>c%!0=wh%:c%!|
000015d0  34 3d 31 35 3a 63 25 21  31 32 3d 30 3a 63 25 21  |4=15:c%!12=0:c%!|
000015e0  38 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |8=0:.. "Wimp_Set|
000015f0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 63 25 0d 04  |IconState",,c%..|
00001600  92 05 cd 0d 04 9c 1b 69  73 69 74 3d a4 69 63 6f  |.......isit=.ico|
00001610  6e 5f 73 74 61 74 65 28  77 68 25 2c 35 29 0d 04  |n_state(wh%,5)..|
00001620  a6 0e e7 20 69 73 69 74  3d b9 20 8c 0d 04 b0 42  |... isit=. ....B|
00001630  21 62 25 3d 77 68 25 3a  63 25 3d 62 25 2b 39 30  |!b%=wh%:c%=b%+90|
00001640  30 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |0:.. "Wimp_GetPo|
00001650  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 63 25 3a 61  |interInfo",,c%:a|
00001660  64 6a 25 3d 28 63 25 21  38 20 80 20 31 29 0d 04  |dj%=(c%!8 . 1)..|
00001670  ba 0e e7 20 61 64 6a 25  3d a3 20 8c 0d 04 c4 20  |... adj%=. .... |
00001680  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00001690  6f 77 53 74 61 74 65 22  2c 2c 62 25 0d 04 ce 1d  |owState",,b%....|
000016a0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
000016b0  6e 64 6f 77 22 2c 2c 62  25 0d 04 d8 05 cd 0d 04  |ndow",,b%.......|
000016c0  e2 0f f2 72 65 73 65 74  69 63 6f 6e 73 0d 04 ec  |...reseticons...|
000016d0  05 cd 0d 04 f6 2c 69 73  69 74 3d a4 69 63 6f 6e  |.....,isit=.icon|
000016e0  5f 73 74 61 74 65 28 77  68 25 2c 34 29 3a e7 20  |_state(wh%,4):. |
000016f0  69 73 69 74 3d b9 20 8c  20 f2 73 61 76 65 0d 05  |isit=. . .save..|
00001700  00 2a 69 73 69 74 3d a4  69 63 6f 6e 5f 73 74 61  |.*isit=.icon_sta|
00001710  74 65 28 77 68 25 2c 33  29 3a e7 20 69 73 69 74  |te(wh%,3):. isit|
00001720  3d b9 20 8c 20 f2 6f 6b  0d 05 0a 05 e1 0d 05 14  |=. . .ok........|
00001730  62 dd f2 6f 6b 3a 63 25  3d 62 25 2b 39 30 30 3a  |b..ok:c%=b%+900:|
00001740  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00001750  74 65 72 49 6e 66 6f 22  2c 2c 63 25 3a 61 64 6a  |terInfo",,c%:adj|
00001760  25 3d 28 63 25 21 38 20  80 20 31 29 3a 63 6f 6e  |%=(c%!8 . 1):con|
00001770  74 3d 6e 63 6f 6e 74 3a  66 78 3d 6e 66 78 3a 76  |t=ncont:fx=nfx:v|
00001780  6f 6c 25 3d a0 28 24 76  6f 6c 73 74 72 25 29 0d  |ol%=.($volstr%).|
00001790  05 1e 17 e7 20 76 6f 6c  25 3e 31 35 20 8c 20 76  |.... vol%>15 . v|
000017a0  6f 6c 25 3d 31 35 0d 05  28 4d e7 20 61 64 6a 25  |ol%=15..(M. adj%|
000017b0  3d a3 20 8c 20 21 62 25  3d 77 68 25 3a c8 99 20  |=. . !b%=wh%:.. |
000017c0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000017d0  74 61 74 65 22 2c 2c 62  25 3a c8 99 20 22 57 69  |tate",,b%:.. "Wi|
000017e0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000017f0  2c 62 25 0d 05 32 11 f2  72 65 73 65 74 69 63 6f  |,b%..2..resetico|
00001800  6e 73 3a e1 0d 05 3c 78  dd f2 73 61 76 65 3a f2  |ns:...<x..save:.|
00001810  6f 6b 3a 58 3d ad 28 22  3c 52 6f 6c 6c 24 44 69  |ok:X=.("<Roll$Di|
00001820  72 3e 2e 4f 70 74 69 6f  6e 73 22 29 3a cf 23 58  |r>.Options"):.#X|
00001830  3d 30 3a d5 23 20 58 2c  6d 61 78 70 25 3a d5 23  |=0:.# X,maxp%:.#|
00001840  20 58 2c 34 32 82 6d 61  78 70 25 3a d5 23 20 58  | X,42.maxp%:.# X|
00001850  2c 32 39 82 6d 61 78 70  25 3a d5 23 20 58 2c 63  |,29.maxp%:.# X,c|
00001860  6f 6e 74 3a d5 23 20 58  2c 66 78 3a d5 23 20 58  |ont:.# X,fx:.# X|
00001870  2c 76 6f 6c 25 3a d9 23  20 58 3a e1 0d 05 46 10  |,vol%:.# X:...F.|
00001880  dd f2 72 65 73 65 74 69  63 6f 6e 73 0d 05 50 0e  |..reseticons..P.|
00001890  e7 20 63 6f 6e 74 3d 32  20 8c 0d 05 5a 7f 69 63  |. cont=2 ...Z.ic|
000018a0  6f 6e 62 25 21 30 3d 77  68 25 3a 69 63 6f 6e 62  |onb%!0=wh%:iconb|
000018b0  25 21 34 3d 31 39 3a 69  63 6f 6e 62 25 21 31 32  |%!4=19:iconb%!12|
000018c0  3d 25 31 30 30 30 30 30  30 30 30 30 30 30 30 30  |=%10000000000000|
000018d0  30 30 30 30 30 30 30 30  3a 69 63 6f 6e 62 25 21  |00000000:iconb%!|
000018e0  38 3d 20 25 31 30 30 30  30 30 30 30 30 30 30 30  |8= %100000000000|
000018f0  30 30 30 30 30 30 30 30  30 30 3a c8 99 20 22 57  |0000000000:.. "W|
00001900  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001910  22 2c 2c 69 63 6f 6e 62  25 0d 05 64 72 69 63 6f  |",,iconb%..drico|
00001920  6e 62 25 21 34 3d 32 30  3a 69 63 6f 6e 62 25 21  |nb%!4=20:iconb%!|
00001930  31 32 3d 25 31 30 30 30  30 30 30 30 30 30 30 30  |12=%100000000000|
00001940  30 30 30 30 30 30 30 30  30 30 3a 69 63 6f 6e 62  |0000000000:iconb|
00001950  25 21 38 3d 20 25 30 30  30 30 30 30 30 30 30 30  |%!8= %0000000000|
00001960  30 30 30 30 30 30 30 30  30 30 30 30 3a c8 99 20  |000000000000:.. |
00001970  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001980  74 65 22 2c 2c 69 63 6f  6e 62 25 0d 05 6e 05 cd  |te",,iconb%..n..|
00001990  0d 05 78 0e e7 20 63 6f  6e 74 3d 31 20 8c 0d 05  |..x.. cont=1 ...|
000019a0  82 7f 69 63 6f 6e 62 25  21 30 3d 77 68 25 3a 69  |..iconb%!0=wh%:i|
000019b0  63 6f 6e 62 25 21 34 3d  32 30 3a 69 63 6f 6e 62  |conb%!4=20:iconb|
000019c0  25 21 31 32 3d 25 31 30  30 30 30 30 30 30 30 30  |%!12=%1000000000|
000019d0  30 30 30 30 30 30 30 30  30 30 30 30 3a 69 63 6f  |000000000000:ico|
000019e0  6e 62 25 21 38 3d 20 25  31 30 30 30 30 30 30 30  |nb%!8= %10000000|
000019f0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 3a c8  |00000000000000:.|
00001a00  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00001a10  74 61 74 65 22 2c 2c 69  63 6f 6e 62 25 0d 05 8c  |tate",,iconb%...|
00001a20  72 69 63 6f 6e 62 25 21  34 3d 31 39 3a 69 63 6f  |riconb%!4=19:ico|
00001a30  6e 62 25 21 31 32 3d 25  31 30 30 30 30 30 30 30  |nb%!12=%10000000|
00001a40  30 30 30 30 30 30 30 30  30 30 30 30 30 30 3a 69  |00000000000000:i|
00001a50  63 6f 6e 62 25 21 38 3d  20 25 30 30 30 30 30 30  |conb%!8= %000000|
00001a60  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00001a70  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00001a80  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 62 25 0d  |nState",,iconb%.|
00001a90  05 96 05 cd 0d 05 a0 0c  e7 20 66 78 3d 31 20 8c  |......... fx=1 .|
00001aa0  0d 05 aa 7f 69 63 6f 6e  62 25 21 30 3d 77 68 25  |....iconb%!0=wh%|
00001ab0  3a 69 63 6f 6e 62 25 21  34 3d 31 33 3a 69 63 6f  |:iconb%!4=13:ico|
00001ac0  6e 62 25 21 31 32 3d 25  31 30 30 30 30 30 30 30  |nb%!12=%10000000|
00001ad0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 3a 69  |00000000000000:i|
00001ae0  63 6f 6e 62 25 21 38 3d  20 25 31 30 30 30 30 30  |conb%!8= %100000|
00001af0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00001b00  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00001b10  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 62 25 0d  |nState",,iconb%.|
00001b20  05 b4 05 cc 0d 05 be 7f  69 63 6f 6e 62 25 21 30  |........iconb%!0|
00001b30  3d 77 68 25 3a 69 63 6f  6e 62 25 21 34 3d 31 33  |=wh%:iconb%!4=13|
00001b40  3a 69 63 6f 6e 62 25 21  31 32 3d 25 31 30 30 30  |:iconb%!12=%1000|
00001b50  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00001b60  30 30 3a 69 63 6f 6e 62  25 21 38 3d 20 25 30 30  |00:iconb%!8= %00|
00001b70  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00001b80  30 30 30 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |0000:.. "Wimp_Se|
00001b90  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 69 63 6f  |tIconState",,ico|
00001ba0  6e 62 25 0d 05 c8 05 cd  0d 05 d2 61 24 76 6f 6c  |nb%........a$vol|
00001bb0  73 74 72 25 3d c3 76 6f  6c 25 3a 69 63 6f 6e 62  |str%=.vol%:iconb|
00001bc0  25 21 30 3d 77 68 25 3a  69 63 6f 6e 62 25 21 34  |%!0=wh%:iconb%!4|
00001bd0  3d 31 35 3a 69 63 6f 6e  62 25 21 31 32 3d 30 3a  |=15:iconb%!12=0:|
00001be0  69 63 6f 6e 62 25 21 38  3d 30 3a c8 99 20 22 57  |iconb%!8=0:.. "W|
00001bf0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001c00  22 2c 2c 69 63 6f 6e 62  25 0d 05 dc 05 e1 0d 05  |",,iconb%.......|
00001c10  e6 0f dd f2 63 68 65 63  6b 63 6f 6c 73 0d 05 f0  |....checkcols...|
00001c20  2b c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |+.. "OS_ReadMode|
00001c30  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 33 20 b8  |Variable",-1,3 .|
00001c40  20 2c 2c 63 6f 6c 73 25  0d 05 fa 10 e7 20 63 6f  | ,,cols%..... co|
00001c50  6c 73 25 3c 36 32 20 8c  0d 06 04 ad 62 25 21 30  |ls%<62 .....b%!0|
00001c60  3d 31 3a 24 28 62 25 2b  34 29 3d 22 59 6f 75 20  |=1:$(b%+4)="You |
00001c70  77 69 6c 6c 20 6e 65 65  64 20 74 6f 20 63 68 61  |will need to cha|
00001c80  6e 67 65 20 74 6f 20 61  20 32 35 36 20 63 6f 6c  |nge to a 256 col|
00001c90  6f 75 72 20 73 63 72 65  65 6e 20 6d 6f 64 65 20  |our screen mode |
00001ca0  65 2e 67 2e 20 31 35 2c  32 31 2c 32 38 20 65 2e  |e.g. 15,21,28 e.|
00001cb0  74 2e 63 2e 20 69 6e 20  6f 72 64 65 72 20 74 6f  |t.c. in order to|
00001cc0  20 73 65 65 20 61 6c 6c  20 74 68 65 20 63 6f 6c  | see all the col|
00001cd0  6f 75 72 73 20 70 72 6f  70 65 72 6c 79 2e 22 3a  |ours properly.":|
00001ce0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00001cf0  72 72 6f 72 22 2c 62 25  2c 25 31 2c 22 52 6f 6c  |rror",b%,%1,"Rol|
00001d00  6c 20 4f 6e 22 0d 06 0e  05 cd 0d 06 18 05 e1 0d  |l On"...........|
00001d10  06 22 d8 dd f2 63 72 65  64 69 74 73 3a c8 99 20  |."...credits:.. |
00001d20  26 32 45 2c 32 35 2b 32  35 36 2c 61 72 65 61 25  |&2E,25+256,area%|
00001d30  2c 22 74 69 6d 65 75 70  22 3a c8 99 20 26 32 45  |,"timeup":.. &2E|
00001d40  2c 32 35 2b 32 35 36 2c  61 72 65 61 25 2c 22 6c  |,25+256,area%,"l|
00001d50  65 76 63 6f 6d 70 22 3a  c8 99 20 26 32 45 2c 32  |evcomp":.. &2E,2|
00001d60  35 2b 32 35 36 2c 61 72  65 61 25 2c 22 64 61 73  |5+256,area%,"das|
00001d70  68 22 3a c8 99 20 26 32  45 2c 32 35 2b 32 35 36  |h":.. &2E,25+256|
00001d80  2c 61 72 65 61 25 2c 22  67 65 74 72 65 61 64 79  |,area%,"getready|
00001d90  22 3a c8 99 20 26 32 30  30 32 45 2c 32 35 2b 32  |":.. &2002E,25+2|
00001da0  35 36 2c 61 72 65 61 25  2c 22 74 65 6d 70 22 3a  |56,area%,"temp":|
00001db0  c8 99 20 26 32 45 2c 32  35 2b 32 35 36 2c 61 72  |.. &2E,25+256,ar|
00001dc0  65 61 25 2c 22 6d 65 6e  75 31 22 3a c8 99 20 26  |ea%,"menu1":.. &|
00001dd0  32 45 2c 32 35 2b 32 35  36 2c 61 72 65 61 25 2c  |2E,25+256,area%,|
00001de0  22 6d 65 6e 75 32 22 0d  06 2c ad c8 99 20 26 32  |"menu2"..,... &2|
00001df0  45 2c 32 35 2b 32 35 36  2c 61 72 65 61 25 2c 22  |E,25+256,area%,"|
00001e00  6d 65 6e 75 33 22 3a c8  99 20 26 32 45 2c 32 35  |menu3":.. &2E,25|
00001e10  2b 32 35 36 2c 61 72 65  61 25 2c 22 70 61 75 73  |+256,area%,"paus|
00001e20  65 64 22 3a c8 99 20 26  32 45 2c 32 35 2b 32 35  |ed":.. &2E,25+25|
00001e30  36 2c 61 72 65 61 25 2c  22 75 73 65 32 63 68 61  |6,area%,"use2cha|
00001e40  6e 67 65 22 3a e3 20 4d  3d 31 20 b8 20 31 30 3a  |nge":. M=1 . 10:|
00001e50  c8 99 20 26 32 45 2c 32  35 2b 32 35 36 2c 61 72  |.. &2E,25+256,ar|
00001e60  65 61 25 2c 22 6d 22 2b  c3 4d 3a ed 3a e3 20 4d  |ea%,"m"+.M:.:. M|
00001e70  3d 31 20 b8 20 31 30 3a  c8 99 20 26 32 45 2c 32  |=1 . 10:.. &2E,2|
00001e80  35 2b 32 35 36 2c 61 72  65 61 25 2c 22 42 22 2b  |5+256,area%,"B"+|
00001e90  c3 4d 3a ed 0d 06 36 a5  58 3d 8e 28 22 3c 52 6f  |.M:...6.X=.("<Ro|
00001ea0  6c 6c 24 44 69 72 3e 2e  44 61 74 61 2e 43 72 65  |ll$Dir>.Data.Cre|
00001eb0  64 69 74 73 22 29 3a c8  99 20 26 32 45 2c 31 35  |dits"):.. &2E,15|
00001ec0  2b 32 35 36 2c 61 72 65  61 25 2c 22 6d 65 73 73  |+256,area%,"mess|
00001ed0  61 67 65 22 2c 30 2c 33  32 30 2c 33 39 36 2c 31  |age",0,320,396,1|
00001ee0  33 3a 74 3d 9a 23 58 3a  78 3d 31 36 3a 79 3d 31  |3:t=.#X:x=16:y=1|
00001ef0  33 30 34 3a c8 99 20 26  32 45 2c 36 30 2b 32 35  |304:.. &2E,60+25|
00001f00  36 2c 61 72 65 61 25 2c  22 6d 65 73 73 61 67 65  |6,area%,"message|
00001f10  22 2c 30 3a c8 99 20 26  32 45 2c 33 34 2b 32 35  |",0:.. &2E,34+25|
00001f20  36 2c 61 72 65 61 25 2c  22 74 6f 70 62 69 74 22  |6,area%,"topbit"|
00001f30  2c 32 32 38 2c 31 34 30  34 0d 06 40 05 f5 0d 06  |,228,1404..@....|
00001f40  4a 28 e7 20 74 3c 3e 33  32 20 8c 20 c8 99 20 26  |J(. t<>32 . .. &|
00001f50  32 45 2c 33 34 2b 32 35  36 2c 61 72 65 61 25 2c  |2E,34+256,area%,|
00001f60  bd 74 2c 78 2c 79 0d 06  54 0a 78 2b 3d 31 30 34  |.t,x,y..T.x+=104|
00001f70  0d 06 5e 1a e7 20 78 3e  31 32 35 30 20 8c 20 78  |..^.. x>1250 . x|
00001f80  3d 31 36 3a 79 2d 3d 31  30 38 0d 06 68 59 74 3d  |=16:y-=108..hYt=|
00001f90  9a 23 58 3a fd 20 74 3d  31 30 3a c8 99 20 26 32  |.#X:. t=10:.. &2|
00001fa0  45 2c 36 30 2c 30 2c 30  2c 30 3a 6d 6f 64 65 25  |E,60,0,0,0:mode%|
00001fb0  3d eb 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 4d  |=.:.. "Wimp_SetM|
00001fc0  6f 64 65 22 2c 31 33 3a  eb 20 31 33 3a 87 3a ef  |ode",13:. 13:.:.|
00001fd0  20 32 34 2c 30 3b 38 30  3b 31 32 37 39 3b 31 30  | 24,0;80;1279;10|
00001fe0  32 33 3b 0d 06 72 4e e3  20 41 3d 2d 31 35 38 34  |23;..rN. A=-1584|
00001ff0  20 b8 20 31 30 32 34 20  88 20 34 3a c8 96 3a c8  | . 1024 . 4:..:.|
00002000  99 20 26 32 45 2c 33 34  2b 32 35 36 2c 61 72 65  |. &2E,34+256,are|
00002010  61 25 2c 22 6d 65 73 73  61 67 65 22 2c 30 2c 41  |a%,"message",0,A|
00002020  3a d6 20 63 6f 64 65 2b  32 38 38 35 32 3a ed 20  |:. code+28852:. |
00002030  41 0d 06 7c 67 c8 99 20  22 57 69 6d 70 5f 53 65  |A..|g.. "Wimp_Se|
00002040  74 4d 6f 64 65 22 2c 6d  6f 64 65 25 3a 71 75 69  |tMode",mode%:qui|
00002050  74 25 3d b9 3a 58 3d ad  28 22 3c 52 6f 6c 6c 24  |t%=.:X=.("<Roll$|
00002060  44 69 72 3e 2e 4f 70 74  69 6f 6e 73 22 29 3a d5  |Dir>.Options"):.|
00002070  23 58 2c 6d 61 78 70 25  3a d5 23 58 2c 34 32 82  |#X,maxp%:.#X,42.|
00002080  6d 61 78 70 25 3a d5 23  58 2c 32 39 82 6d 61 78  |maxp%:.#X,29.max|
00002090  70 25 3a d9 23 58 3a e0  0d 06 86 05 e1 0d 06 90  |p%:.#X:.........|
000020a0  10 dd f2 73 63 72 6f 6c  6c 74 65 78 74 0d 06 9a  |...scrolltext...|
000020b0  38 ea 20 63 25 3a 63 25  3d 62 25 2b 39 30 30 3a  |8. c%:c%=b%+900:|
000020c0  73 63 70 74 72 25 2b 3d  31 3a e7 20 73 63 70 74  |scptr%+=1:. scpt|
000020d0  72 25 3d 35 31 35 32 2b  36 32 20 8c 20 73 63 70  |r%=5152+62 . scp|
000020e0  74 72 25 3d 30 0d 06 a4  3d e3 20 41 3d 30 20 b8  |tr%=0...=. A=0 .|
000020f0  20 36 30 3a 74 65 78 74  73 74 72 25 3f 41 3d 3f  | 60:textstr%?A=?|
00002100  28 73 63 72 6f 6c 6c 79  25 2b 73 63 70 74 72 25  |(scrolly%+scptr%|
00002110  2b 41 29 3a ed 3a 74 65  78 74 73 74 72 25 3f 41  |+A):.:textstr%?A|
00002120  3d 30 0d 06 ae 43 63 25  21 30 3d 73 63 72 6f 6c  |=0...Cc%!0=scrol|
00002130  6c 77 68 25 3a 63 25 21  34 3d 30 3a 63 25 21 31  |lwh%:c%!4=0:c%!1|
00002140  32 3d 30 3a 63 25 21 38  3d 30 3a c8 99 20 22 57  |2=0:c%!8=0:.. "W|
00002150  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002160  22 2c 2c 63 25 0d 06 b8  05 e1 0d 06 c2 0c dd f2  |",,c%...........|
00002170  63 65 72 72 6f 72 0d 06  cc a2 62 25 21 30 3d 31  |cerror....b%!0=1|
00002180  3a 24 28 62 25 2b 34 29  3d 22 43 68 65 63 6b 73  |:$(b%+4)="Checks|
00002190  75 6d 20 65 72 72 6f 72  3a 20 4f 70 74 69 6f 6e  |um error: Option|
000021a0  20 66 69 6c 65 20 74 61  6d 70 65 72 65 64 20 77  | file tampered w|
000021b0  69 74 68 2e 20 28 6c 65  76 65 6c 73 20 63 6f 6d  |ith. (levels com|
000021c0  70 6c 65 74 65 64 20 72  65 73 65 74 29 22 3a c8  |pleted reset)":.|
000021d0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
000021e0  72 6f 72 22 2c 62 25 2c  25 31 2c 22 52 6f 6c 6c  |ror",b%,%1,"Roll|
000021f0  20 4f 6e 22 3a 6d 61 78  70 25 3d 31 3a cf 23 58  | On":maxp%=1:.#X|
00002200  3d 30 3a d5 23 58 2c 31  3a d5 23 58 2c 34 33 3a  |=0:.#X,1:.#X,43:|
00002210  d5 23 58 2c 32 38 3a e1  0d 06 d6 0e dd f2 69 6e  |.#X,28:.......in|
00002220  69 74 67 61 6d 65 0d 06  e0 47 c8 a0 20 34 3a 77  |itgame...G.. 4:w|
00002230  68 61 74 73 61 6d 70 3d  63 6f 64 65 2b 38 33 38  |hatsamp=code+838|
00002240  34 38 3a 73 63 72 6e 70  6f 69 6e 74 3d 31 30 3a  |48:scrnpoint=10:|
00002250  73 63 72 6e 6f 66 66 73  65 74 3d 30 3a 24 74 65  |scrnoffset=0:$te|
00002260  6d 70 73 74 72 25 3d 22  54 65 6d 70 22 0d 06 ea  |mpstr%="Temp"...|
00002270  2d ff 20 22 4c 6f 61 64  20 3c 52 6f 6c 6c 24 44  |-. "Load <Roll$D|
00002280  69 72 3e 2e 44 61 74 61  2e 47 72 61 70 68 69 78  |ir>.Data.Graphix|
00002290  20 22 2b c3 7e 61 72 65  61 25 0d 06 f4 d8 c8 99  | "+.~area%......|
000022a0  20 26 32 45 2c 32 34 2b  32 35 36 2c 61 72 65 61  | &2E,24+256,area|
000022b0  25 2c 22 64 61 73 68 22  20 b8 20 2c 2c 64 25 21  |%,"dash" . ,,d%!|
000022c0  33 36 3a c8 99 20 26 32  45 2c 32 34 2b 32 35 36  |36:.. &2E,24+256|
000022d0  2c 61 72 65 61 25 2c 22  62 31 22 20 b8 20 2c 2c  |,area%,"b1" . ,,|
000022e0  64 25 21 34 30 3a c8 99  20 26 32 45 2c 32 34 2b  |d%!40:.. &2E,24+|
000022f0  32 35 36 2c 61 72 65 61  25 2c 22 62 32 22 20 b8  |256,area%,"b2" .|
00002300  20 2c 2c 64 25 21 38 38  3a c8 99 20 26 32 45 2c  | ,,d%!88:.. &2E,|
00002310  32 34 2b 32 35 36 2c 61  72 65 61 25 2c 22 62 33  |24+256,area%,"b3|
00002320  22 20 b8 20 2c 2c 64 25  21 39 32 3a c8 99 20 26  |" . ,,d%!92:.. &|
00002330  32 45 2c 32 34 2b 32 35  36 2c 61 72 65 61 25 2c  |2E,24+256,area%,|
00002340  22 62 34 22 20 b8 20 2c  2c 64 25 21 39 36 3a c8  |"b4" . ,,d%!96:.|
00002350  99 20 26 32 45 2c 32 34  2b 32 35 36 2c 61 72 65  |. &2E,24+256,are|
00002360  61 25 2c 22 62 35 22 20  b8 20 2c 2c 64 25 21 32  |a%,"b5" . ,,d%!2|
00002370  37 36 0d 06 fe b8 c8 99  20 26 32 45 2c 32 34 2b  |76...... &2E,24+|
00002380  32 35 36 2c 61 72 65 61  25 2c 22 62 36 22 20 b8  |256,area%,"b6" .|
00002390  20 2c 2c 64 25 21 32 38  30 3a c8 99 20 26 32 45  | ,,d%!280:.. &2E|
000023a0  2c 32 34 2b 32 35 36 2c  61 72 65 61 25 2c 22 62  |,24+256,area%,"b|
000023b0  37 22 20 b8 20 2c 2c 64  25 21 33 38 38 3a c8 99  |7" . ,,d%!388:..|
000023c0  20 26 32 45 2c 32 34 2b  32 35 36 2c 61 72 65 61  | &2E,24+256,area|
000023d0  25 2c 22 62 38 22 20 b8  20 2c 2c 64 25 21 33 39  |%,"b8" . ,,d%!39|
000023e0  32 3a c8 99 20 26 32 45  2c 32 34 2b 32 35 36 2c  |2:.. &2E,24+256,|
000023f0  61 72 65 61 25 2c 22 62  39 22 20 b8 20 2c 2c 64  |area%,"b9" . ,,d|
00002400  25 21 33 39 36 3a c8 99  20 26 32 45 2c 32 34 2b  |%!396:.. &2E,24+|
00002410  32 35 36 2c 61 72 65 61  25 2c 22 62 31 30 22 20  |256,area%,"b10" |
00002420  b8 20 2c 2c 64 25 21 34  30 30 0d 07 08 de c8 99  |. ,,d%!400......|
00002430  20 26 32 45 2c 32 34 2b  32 35 36 2c 61 72 65 61  | &2E,24+256,area|
00002440  25 2c 22 74 6f 70 62 69  74 22 20 b8 20 2c 2c 64  |%,"topbit" . ,,d|
00002450  25 21 34 38 3a c8 99 20  26 32 45 2c 32 34 2b 32  |%!48:.. &2E,24+2|
00002460  35 36 2c 61 72 65 61 25  2c 22 74 30 22 20 b8 20  |56,area%,"t0" . |
00002470  2c 2c 64 25 21 31 34 30  3a c8 99 20 26 32 45 2c  |,,d%!140:.. &2E,|
00002480  32 34 2b 32 35 36 2c 61  72 65 61 25 2c 22 74 31  |24+256,area%,"t1|
00002490  22 20 b8 20 2c 2c 64 25  21 31 34 34 3a c8 99 20  |" . ,,d%!144:.. |
000024a0  26 32 45 2c 32 34 2b 32  35 36 2c 61 72 65 61 25  |&2E,24+256,area%|
000024b0  2c 22 74 32 22 20 b8 20  2c 2c 64 25 21 31 34 38  |,"t2" . ,,d%!148|
000024c0  3a c8 99 20 26 32 45 2c  32 34 2b 32 35 36 2c 61  |:.. &2E,24+256,a|
000024d0  72 65 61 25 2c 22 74 33  22 20 b8 20 2c 2c 64 25  |rea%,"t3" . ,,d%|
000024e0  21 31 35 32 3a c8 99 20  26 32 45 2c 32 34 2b 32  |!152:.. &2E,24+2|
000024f0  35 36 2c 61 72 65 61 25  2c 22 74 34 22 20 b8 20  |56,area%,"t4" . |
00002500  2c 2c 64 25 21 31 35 36  0d 07 12 df c8 99 20 26  |,,d%!156...... &|
00002510  32 45 2c 32 34 2b 32 35  36 2c 61 72 65 61 25 2c  |2E,24+256,area%,|
00002520  22 74 35 22 20 b8 20 2c  2c 64 25 21 31 36 30 3a  |"t5" . ,,d%!160:|
00002530  c8 99 20 26 32 45 2c 32  34 2b 32 35 36 2c 61 72  |.. &2E,24+256,ar|
00002540  65 61 25 2c 22 74 36 22  20 b8 20 2c 2c 64 25 21  |ea%,"t6" . ,,d%!|
00002550  31 36 34 3a c8 99 20 26  32 45 2c 32 34 2b 32 35  |164:.. &2E,24+25|
00002560  36 2c 61 72 65 61 25 2c  22 74 37 22 20 b8 20 2c  |6,area%,"t7" . ,|
00002570  2c 64 25 21 31 36 38 3a  c8 99 20 26 32 45 2c 32  |,d%!168:.. &2E,2|
00002580  34 2b 32 35 36 2c 61 72  65 61 25 2c 22 74 38 22  |4+256,area%,"t8"|
00002590  20 b8 20 2c 2c 64 25 21  31 37 32 3a c8 99 20 26  | . ,,d%!172:.. &|
000025a0  32 45 2c 32 34 2b 32 35  36 2c 61 72 65 61 25 2c  |2E,24+256,area%,|
000025b0  22 74 39 22 20 b8 20 2c  2c 64 25 21 31 37 36 3a  |"t9" . ,,d%!176:|
000025c0  c8 99 20 26 32 45 2c 32  34 2b 32 35 36 2c 61 72  |.. &2E,24+256,ar|
000025d0  65 61 25 2c 22 74 69 6d  65 75 70 22 20 b8 20 2c  |ea%,"timeup" . ,|
000025e0  2c 64 25 21 32 31 32 0d  07 1c cb c8 99 20 26 32  |,d%!212...... &2|
000025f0  45 2c 32 34 2b 32 35 36  2c 61 72 65 61 25 2c 22  |E,24+256,area%,"|
00002600  6c 65 76 63 6f 6d 70 22  20 b8 20 2c 2c 64 25 21  |levcomp" . ,,d%!|
00002610  32 31 36 3a c8 99 20 26  32 45 2c 32 34 2b 32 35  |216:.. &2E,24+25|
00002620  36 2c 61 72 65 61 25 2c  22 6d 65 6e 75 31 22 20  |6,area%,"menu1" |
00002630  b8 20 2c 2c 64 25 21 32  32 38 3a c8 99 20 26 32  |. ,,d%!228:.. &2|
00002640  45 2c 32 34 2b 32 35 36  2c 61 72 65 61 25 2c 22  |E,24+256,area%,"|
00002650  6d 65 6e 75 32 22 20 b8  20 2c 2c 64 25 21 32 33  |menu2" . ,,d%!23|
00002660  36 3a c8 99 20 26 32 45  2c 32 34 2b 32 35 36 2c  |6:.. &2E,24+256,|
00002670  61 72 65 61 25 2c 22 6d  65 6e 75 33 22 20 b8 20  |area%,"menu3" . |
00002680  2c 2c 64 25 21 32 34 30  3a c8 99 20 26 32 45 2c  |,,d%!240:.. &2E,|
00002690  32 34 2b 32 35 36 2c 61  72 65 61 25 2c 22 67 65  |24+256,area%,"ge|
000026a0  74 72 65 61 64 79 22 20  b8 20 2c 2c 64 25 21 33  |tready" . ,,d%!3|
000026b0  32 30 0d 07 26 bf c8 99  20 26 32 45 2c 32 34 2b  |20..&... &2E,24+|
000026c0  32 35 36 2c 61 72 65 61  25 2c 22 75 73 65 32 63  |256,area%,"use2c|
000026d0  68 61 6e 67 65 22 20 b8  20 2c 2c 64 25 21 33 38  |hange" . ,,d%!38|
000026e0  30 3a c8 99 20 26 32 45  2c 32 34 2b 32 35 36 2c  |0:.. &2E,24+256,|
000026f0  61 72 65 61 25 2c 22 6e  6f 22 20 b8 20 2c 2c 64  |area%,"no" . ,,d|
00002700  25 21 34 34 34 3a c8 99  20 26 32 45 2c 32 34 2b  |%!444:.. &2E,24+|
00002710  32 35 36 2c 61 72 65 61  25 2c 22 6d 31 22 20 b8  |256,area%,"m1" .|
00002720  20 2c 2c 64 25 21 34 30  38 3a c8 99 20 26 32 45  | ,,d%!408:.. &2E|
00002730  2c 32 34 2b 32 35 36 2c  61 72 65 61 25 2c 22 6d  |,24+256,area%,"m|
00002740  32 22 20 b8 20 2c 2c 64  25 21 34 31 32 3a c8 99  |2" . ,,d%!412:..|
00002750  20 26 32 45 2c 32 34 2b  32 35 36 2c 61 72 65 61  | &2E,24+256,area|
00002760  25 2c 22 6d 33 22 20 b8  20 2c 2c 64 25 21 34 31  |%,"m3" . ,,d%!41|
00002770  36 0d 07 30 db c8 99 20  26 32 45 2c 32 34 2b 32  |6..0... &2E,24+2|
00002780  35 36 2c 61 72 65 61 25  2c 22 6d 34 22 20 b8 20  |56,area%,"m4" . |
00002790  2c 2c 64 25 21 34 32 30  3a c8 99 20 26 32 45 2c  |,,d%!420:.. &2E,|
000027a0  32 34 2b 32 35 36 2c 61  72 65 61 25 2c 22 6d 35  |24+256,area%,"m5|
000027b0  22 20 b8 20 2c 2c 64 25  21 34 32 34 3a c8 99 20  |" . ,,d%!424:.. |
000027c0  26 32 45 2c 32 34 2b 32  35 36 2c 61 72 65 61 25  |&2E,24+256,area%|
000027d0  2c 22 6d 36 22 20 b8 20  2c 2c 64 25 21 34 32 38  |,"m6" . ,,d%!428|
000027e0  3a c8 99 20 26 32 45 2c  32 34 2b 32 35 36 2c 61  |:.. &2E,24+256,a|
000027f0  72 65 61 25 2c 22 6d 37  22 20 b8 20 2c 2c 64 25  |rea%,"m7" . ,,d%|
00002800  21 34 33 32 3a c8 99 20  26 32 45 2c 32 34 2b 32  |!432:.. &2E,24+2|
00002810  35 36 2c 61 72 65 61 25  2c 22 6d 38 22 20 b8 20  |56,area%,"m8" . |
00002820  2c 2c 64 25 21 34 33 36  3a c8 99 20 26 32 45 2c  |,,d%!436:.. &2E,|
00002830  32 34 2b 32 35 36 2c 61  72 65 61 25 2c 22 6d 39  |24+256,area%,"m9|
00002840  22 20 b8 20 2c 2c 64 25  21 34 34 30 0d 07 3a 50  |" . ,,d%!440..:P|
00002850  c8 99 20 26 32 45 2c 32  34 2b 32 35 36 2c 61 72  |.. &2E,24+256,ar|
00002860  65 61 25 2c 22 6d 31 30  22 20 b8 20 2c 2c 64 25  |ea%,"m10" . ,,d%|
00002870  21 34 30 34 3a c8 99 20  26 32 45 2c 32 34 2b 32  |!404:.. &2E,24+2|
00002880  35 36 2c 61 72 65 61 25  2c 22 70 61 75 73 65 64  |56,area%,"paused|
00002890  22 20 b8 20 2c 2c 64 25  21 33 36 38 0d 07 44 58  |" . ,,d%!368..DX|
000028a0  58 3d 8e 28 22 3c 52 6f  6c 6c 24 44 69 72 3e 2e  |X=.("<Roll$Dir>.|
000028b0  44 61 74 61 2e 53 74 61  72 73 22 29 3a e3 20 41  |Data.Stars"):. A|
000028c0  3d 30 20 b8 20 33 39 36  20 88 20 34 3a e8 23 58  |=0 . 396 . 4:.#X|
000028d0  2c 61 73 74 61 72 25 3a  73 74 61 72 66 69 65 6c  |,astar%:starfiel|
000028e0  64 25 21 41 3d 61 73 74  61 72 25 3a ed 20 41 3a  |d%!A=astar%:. A:|
000028f0  d9 23 20 58 0d 07 4e 8d  24 6c 65 76 6e 61 6d 65  |.# X..N.$levname|
00002900  25 3d 22 3c 52 6f 6c 6c  24 44 69 72 3e 2e 44 61  |%="<Roll$Dir>.Da|
00002910  74 61 2e 48 65 69 67 68  74 73 22 3a c8 99 20 22  |ta.Heights":.. "|
00002920  4f 53 5f 46 69 6e 64 22  2c 26 34 30 2b 25 31 31  |OS_Find",&40+%11|
00002930  31 31 2c 6c 65 76 6e 61  6d 65 25 2c 30 20 b8 20  |11,levname%,0 . |
00002940  68 61 6e 64 6c 65 25 3a  c8 99 20 22 4f 53 5f 47  |handle%:.. "OS_G|
00002950  42 50 42 22 2c 34 2c 68  61 6e 64 6c 65 25 2c 68  |BPB",4,handle%,h|
00002960  65 69 67 68 74 64 61 74  61 25 2c 31 36 30 20 b8  |eightdata%,160 .|
00002970  20 2c 2c 2c 6e 6f 74 3a  d9 23 68 61 6e 64 6c 65  | ,,,not:.#handle|
00002980  25 0d 07 58 8d 24 6c 65  76 6e 61 6d 65 25 3d 22  |%..X.$levname%="|
00002990  3c 52 6f 6c 6c 24 44 69  72 3e 2e 44 61 74 61 2e  |<Roll$Dir>.Data.|
000029a0  53 69 6e 65 54 61 62 6c  65 22 3a c8 99 20 22 4f  |SineTable":.. "O|
000029b0  53 5f 46 69 6e 64 22 2c  26 34 30 2b 25 31 31 31  |S_Find",&40+%111|
000029c0  31 2c 6c 65 76 6e 61 6d  65 25 2c 30 20 b8 20 68  |1,levname%,0 . h|
000029d0  61 6e 64 6c 65 25 3a c8  99 20 22 4f 53 5f 47 42  |andle%:.. "OS_GB|
000029e0  50 42 22 2c 34 2c 68 61  6e 64 6c 65 25 2c 73 69  |PB",4,handle%,si|
000029f0  6e 65 74 61 62 6c 65 25  2c 35 31 20 b8 20 2c 2c  |netable%,51 . ,,|
00002a00  2c 6e 6f 74 3a d9 23 68  61 6e 64 6c 65 25 0d 07  |,not:.#handle%..|
00002a10  62 ab 24 6c 65 76 6e 61  6d 65 25 3d 22 3c 52 6f  |b.$levname%="<Ro|
00002a20  6c 6c 24 44 69 72 3e 2e  44 61 74 61 2e 4d 6f 72  |ll$Dir>.Data.Mor|
00002a30  65 53 74 61 72 73 22 3a  c8 99 20 22 4f 53 5f 46  |eStars":.. "OS_F|
00002a40  69 6e 64 22 2c 26 34 30  2b 25 31 31 31 31 2c 6c  |ind",&40+%1111,l|
00002a50  65 76 6e 61 6d 65 25 2c  30 20 b8 20 68 61 6e 64  |evname%,0 . hand|
00002a60  6c 65 25 3a c8 99 20 22  4f 53 5f 47 42 50 42 22  |le%:.. "OS_GBPB"|
00002a70  2c 34 2c 68 61 6e 64 6c  65 25 2c 73 74 61 72 73  |,4,handle%,stars|
00002a80  61 64 72 25 2c 31 36 30  30 30 3a c8 99 20 22 4f  |adr%,16000:.. "O|
00002a90  53 5f 47 42 50 42 22 2c  34 2c 68 61 6e 64 6c 65  |S_GBPB",4,handle|
00002aa0  25 2c 63 6f 6c 6f 75 72  73 25 2c 34 30 30 30 3a  |%,colours%,4000:|
00002ab0  d9 23 68 61 6e 64 6c 65  25 0d 07 6c 3b 70 25 3d  |.#handle%..l;p%=|
00002ac0  31 3a 73 63 61 6c 65 25  21 30 3d 31 32 3a 73 63  |1:scale%!0=12:sc|
00002ad0  61 6c 65 25 21 34 3d 31  32 3a 73 63 61 6c 65 25  |ale%!4=12:scale%|
00002ae0  21 38 3d 31 3a 73 63 61  6c 65 25 21 31 32 3d 31  |!8=1:scale%!12=1|
00002af0  3a 4e 3d 31 0d 07 76 24  ff 20 22 4c 6f 61 64 20  |:N=1..v$. "Load |
00002b00  3c 52 6f 6c 6c 24 44 69  72 3e 2e 43 6f 64 65 20  |<Roll$Dir>.Code |
00002b10  22 2b c3 7e 63 6f 64 65  0d 07 80 aa 21 28 63 6f  |"+.~code....!(co|
00002b20  64 65 2b 38 33 38 34 34  29 3d 64 61 74 61 25 3a  |de+83844)=data%:|
00002b30  63 6f 64 65 21 38 33 37  39 36 3d 63 6f 64 65 2b  |code!83796=code+|
00002b40  38 34 31 37 36 3a 63 6f  64 65 21 38 33 38 30 30  |84176:code!83800|
00002b50  3d 63 6f 64 65 2b 31 32  33 38 32 38 3a 63 6f 64  |=code+123828:cod|
00002b60  65 21 38 33 38 30 34 3d  63 6f 64 65 2b 31 37 35  |e!83804=code+175|
00002b70  30 31 34 3a 63 6f 64 65  21 38 33 38 30 38 3d 63  |014:code!83808=c|
00002b80  6f 64 65 2b 31 38 34 31  39 36 3a 63 6f 64 65 21  |ode+184196:code!|
00002b90  38 33 38 31 32 3d 63 6f  64 65 2b 31 38 37 36 38  |83812=code+18768|
00002ba0  35 3a 63 6f 64 65 21 38  33 38 31 36 3d 63 6f 64  |5:code!83816=cod|
00002bb0  65 2b 32 30 31 31 32 31  3a ee 85 20 f2 65 72 72  |e+201121:.. .err|
00002bc0  6f 72 0d 07 8a 14 ef 20  32 33 3b 38 32 30 32 3b  |or..... 23;8202;|
00002bd0  30 3b 30 3b 30 3b 0d 07  94 64 73 74 61 74 65 25  |0;0;0;...dstate%|
00002be0  3d 30 3a 6c 63 6e 74 25  3d 30 3a 73 69 6e 63 6e  |=0:lcnt%=0:sincn|
00002bf0  74 25 3d 30 3a e3 20 41  3d 28 af 2f 32 29 20 b8  |t%=0:. A=(./2) .|
00002c00  20 af 20 88 20 af 2f 31  30 30 3a 73 69 6e 65 74  | . . ./100:sinet|
00002c10  61 62 6c 65 32 25 21 73  69 6e 63 6e 74 25 3d 32  |able2%!sincnt%=2|
00002c20  34 30 2b 28 b5 41 2a 36  31 32 29 3a 73 69 6e 63  |40+(.A*612):sinc|
00002c30  6e 74 25 2b 3d 34 3a ed  20 41 0d 07 9e 8a e3 20  |nt%+=4:. A..... |
00002c40  73 69 6e 3d 30 20 b8 20  33 31 34 20 88 20 33 31  |sin=0 . 314 . 31|
00002c50  34 2f 34 31 3a 73 69 6e  65 74 61 62 6c 65 32 25  |4/41:sinetable2%|
00002c60  21 73 69 6e 63 6e 74 25  3d 32 34 30 2b 28 28 b5  |!sincnt%=240+((.|
00002c70  28 73 69 6e 2f 31 30 30  29 29 2a 32 32 30 29 3a  |(sin/100))*220):|
00002c80  73 69 6e 63 6e 74 25 2b  3d 34 3a ed 20 73 69 6e  |sincnt%+=4:. sin|
00002c90  3a 73 69 6e 65 74 61 62  6c 65 32 25 21 73 69 6e  |:sinetable2%!sin|
00002ca0  63 6e 74 25 3d 32 34 34  3a 73 69 6e 65 74 61 62  |cnt%=244:sinetab|
00002cb0  6c 65 32 25 21 28 73 69  6e 63 6e 74 25 2b 34 29  |le2%!(sincnt%+4)|
00002cc0  3d 32 34 34 0d 07 a8 24  64 25 21 33 36 30 3d 73  |=244...$d%!360=s|
00002cd0  74 61 72 73 61 64 72 25  3a 64 25 21 33 36 34 3d  |tarsadr%:d%!364=|
00002ce0  63 6f 6c 6f 75 72 73 25  0d 07 b2 05 e1 0d 07 bc  |colours%........|
00002cf0  94 dd f2 69 6e 74 72 6f  3a d1 3d 30 3a f5 3a fd  |...intro:.=0:.:.|
00002d00  20 91 3e 31 30 3a eb 20  31 35 3a eb 20 31 33 3a  | .>10:. 15:. 13:|
00002d10  87 3a ef 20 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.:. 23;8202;0;0;|
00002d20  30 3b 3a f2 72 6f 6c 6c  6a 65 7a 73 6f 66 74 3a  |0;:.rolljezsoft:|
00002d30  d1 3d 30 3a f5 3a fd 20  91 3e 32 30 3a c8 91 20  |.=0:.:. .>20:.. |
00002d40  30 2c 30 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  |0,0:.. "OS_Byte"|
00002d50  2c 31 31 32 2c 4e 3a c8  99 20 22 4f 53 5f 42 79  |,112,N:.. "OS_By|
00002d60  74 65 22 2c 31 31 33 2c  4e 3a 21 77 68 61 74 73  |te",113,N:!whats|
00002d70  61 6d 70 3d 32 3a d4 20  31 2c 2d 31 35 2c 31 2c  |amp=2:. 1,-15,1,|
00002d80  31 0d 07 c6 10 d1 3d 30  3a e6 20 30 20 c8 9c 20  |1.....=0:. 0 .. |
00002d90  30 0d 07 d0 18 c8 99 20  22 4f 53 5f 42 79 74 65  |0...... "OS_Byte|
00002da0  22 2c 31 31 32 2c 4e 2b  31 0d 07 da 2c da 3a c8  |",112,N+1...,.:.|
00002db0  99 20 26 32 45 2c 33 34  2b 32 35 36 2c 61 72 65  |. &2E,34+256,are|
00002dc0  61 25 2c 22 50 72 65 73  65 6e 74 73 22 2c 31 36  |a%,"Presents",16|
00002dd0  32 2c 34 32 36 0d 07 e4  2d f5 3a 63 6f 6c 25 3d  |2,426...-.:col%=|
00002de0  3f 64 61 74 61 25 3a c8  96 3a ef 20 31 39 2c 30  |?data%:..:. 19,0|
00002df0  2c 32 34 2c 63 6f 6c 25  2c 63 6f 6c 25 2c 63 6f  |,24,col%,col%,co|
00002e00  6c 25 0d 07 ee 3d e7 20  63 6f 6c 25 3c 31 32 38  |l%...=. col%<128|
00002e10  20 8c 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  | . .. "OS_Byte",|
00002e20  31 31 33 2c 4e 2b 31 20  8b 20 c8 99 20 22 4f 53  |113,N+1 . .. "OS|
00002e30  5f 42 79 74 65 22 2c 31  31 33 2c ac 4e 2b 31 0d  |_Byte",113,.N+1.|
00002e40  07 f8 3d fd 20 91 3e 37  30 30 3a da 3a c8 99 20  |..=. .>700:.:.. |
00002e50  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c ac 4e  |"OS_Byte",112,.N|
00002e60  2b 31 3a da 3a c8 99 20  22 4f 53 5f 42 79 74 65  |+1:.:.. "OS_Byte|
00002e70  22 2c 31 31 33 2c ac 4e  2b 31 3a e1 0d 08 02 9c  |",113,.N+1:.....|
00002e80  dd f2 67 61 6d 65 3a da  3a 87 3a c8 99 20 26 32  |..game:.:.:.. &2|
00002e90  45 2c 33 34 2b 32 35 36  2c 61 72 65 61 25 2c 22  |E,34+256,area%,"|
00002ea0  54 6f 70 42 69 74 22 2c  32 32 38 2c 34 32 36 3a  |TopBit",228,426:|
00002eb0  41 25 3d 64 25 3a d6 20  63 6f 64 65 2b 31 33 38  |A%=d%:. code+138|
00002ec0  38 34 3a e6 20 30 20 c8  9c 20 30 3a e3 20 59 3d  |84:. 0 .. 0:. Y=|
00002ed0  34 32 36 20 b8 20 38 35  32 20 88 20 34 3a c8 96  |426 . 852 . 4:..|
00002ee0  3a c8 99 20 26 32 45 2c  33 34 2b 32 35 36 2c 61  |:.. &2E,34+256,a|
00002ef0  72 65 61 25 2c 22 74 6f  70 62 69 74 22 2c 32 32  |rea%,"topbit",22|
00002f00  38 2c 59 3a 86 20 30 2c  59 2d 34 2c 31 32 38 30  |8,Y:. 0,Y-4,1280|
00002f10  2c 59 2d 34 3a ed 20 59  0d 08 0c dd c8 99 20 22  |,Y-4:. Y...... "|
00002f20  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 32 3a c8  |OS_Byte",112,2:.|
00002f30  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00002f40  2d 31 3a da 3a c8 99 20  26 32 45 2c 33 34 2b 32  |-1:.:.. &2E,34+2|
00002f50  35 36 2c 61 72 65 61 25  2c 22 64 61 73 68 22 2c  |56,area%,"dash",|
00002f60  30 2c 30 3a c8 99 20 26  32 45 2c 33 34 2b 32 35  |0,0:.. &2E,34+25|
00002f70  36 2c 61 72 65 61 25 2c  22 74 6f 70 62 69 74 22  |6,area%,"topbit"|
00002f80  2c 32 32 38 2c 38 35 32  3a c8 99 20 22 4f 53 5f  |,228,852:.. "OS_|
00002f90  42 79 74 65 22 2c 31 31  32 2c 2d 31 3a c8 99 20  |Byte",112,-1:.. |
00002fa0  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 32 3a  |"OS_Byte",113,2:|
00002fb0  da 3a c8 99 20 26 32 45  2c 33 34 2b 32 35 36 2c  |.:.. &2E,34+256,|
00002fc0  61 72 65 61 25 2c 22 64  61 73 68 22 2c 30 2c 30  |area%,"dash",0,0|
00002fd0  3a c8 99 20 26 32 45 2c  33 34 2b 32 35 36 2c 61  |:.. &2E,34+256,a|
00002fe0  72 65 61 25 2c 22 74 6f  70 62 69 74 22 2c 32 32  |rea%,"topbit",22|
00002ff0  38 2c 38 35 32 0d 08 16  2b c8 99 20 22 4f 53 5f  |8,852...+.. "OS_|
00003000  42 79 74 65 22 2c 32 30  30 2c 31 3a f5 3a 87 3a  |Byte",200,1:.:.:|
00003010  ef 20 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |. 23;8202;0;0;0;|
00003020  0d 08 20 16 e7 20 73 74  61 74 65 25 3d 31 20 8c  |.. .. state%=1 .|
00003030  20 70 25 2b 3d 31 0d 08  2a 0c e7 20 70 25 3d 35  | p%+=1..*.. p%=5|
00003040  20 8c 0d 08 34 2e c8 99  20 22 4f 53 5f 42 79 74  | ...4... "OS_Byt|
00003050  65 22 2c 31 31 32 2c 32  3a c8 99 20 22 4f 53 5f  |e",112,2:.. "OS_|
00003060  42 79 74 65 22 2c 31 31  33 2c 32 3a 87 3a f2 78  |Byte",113,2:.:.x|
00003070  0d 08 3e 0a 70 25 3d 34  3a e1 0d 08 48 05 cd 0d  |..>.p%=4:...H...|
00003080  08 52 2a e7 20 73 74 61  74 65 25 3d 35 20 8c 20  |.R*. state%=5 . |
00003090  70 25 3d 28 28 64 25 21  33 37 32 29 2a 31 30 29  |p%=((d%!372)*10)|
000030a0  2b 28 64 25 21 33 37 36  29 0d 08 5c 28 6c 65 76  |+(d%!376)..\(lev|
000030b0  79 63 6e 74 25 3d 30 3a  6c 65 6c 79 25 3d 70 25  |ycnt%=0:lely%=p%|
000030c0  3a 6c 63 6e 74 25 3d 30  3a e7 20 70 25 3e 39 20  |:lcnt%=0:. p%>9 |
000030d0  8c 0d 08 66 35 f5 3a 6c  63 6e 74 25 2b 3d 31 3a  |...f5.:lcnt%+=1:|
000030e0  6c 65 6c 79 25 2d 3d 31  30 3a fd 20 6c 65 6c 79  |lely%-=10:. lely|
000030f0  25 3c 30 3a 6c 65 6c 79  25 2b 3d 31 30 3a 6c 63  |%<0:lely%+=10:lc|
00003100  6e 74 25 2d 3d 31 0d 08  70 05 cd 0d 08 7a 27 e7  |nt%-=1..p....z'.|
00003110  20 73 74 61 74 65 25 3d  31 20 84 20 73 74 61 74  | state%=1 . stat|
00003120  65 25 3d 35 20 84 20 73  74 61 74 65 25 3d 32 39  |e%=5 . state%=29|
00003130  20 8c 0d 08 84 7f 24 6c  65 76 6e 61 6d 65 25 3d  | .....$levname%=|
00003140  22 3c 52 6f 6c 6c 24 44  69 72 3e 2e 4c 65 76 65  |"<Roll$Dir>.Leve|
00003150  6c 73 2e 4c 65 76 65 6c  2d 22 2b c3 28 70 25 29  |ls.Level-"+.(p%)|
00003160  3a c8 99 20 22 4f 53 5f  46 69 6e 64 22 2c 26 34  |:.. "OS_Find",&4|
00003170  30 2b 25 31 31 31 31 2c  6c 65 76 6e 61 6d 65 25  |0+%1111,levname%|
00003180  2c 30 20 b8 20 68 61 6e  64 6c 65 25 3a 6c 65 76  |,0 . handle%:lev|
00003190  63 25 3d 34 32 2d 28 9a  23 68 61 6e 64 6c 65 25  |c%=42-(.#handle%|
000031a0  29 3a e7 20 6c 65 76 63  25 3c 3e 70 25 20 8c 20  |):. levc%<>p% . |
000031b0  e0 0d 08 8e 6e e8 23 68  61 6e 64 6c 65 25 2c 6d  |....n.#handle%,m|
000031c0  65 73 73 61 67 65 24 3a  6c 65 6e 25 3d 28 9a 23  |essage$:len%=(.#|
000031d0  20 68 61 6e 64 6c 65 25  29 2a 32 3a 6a 75 6d 70  | handle%)*2:jump|
000031e0  73 25 3d 9a 23 20 68 61  6e 64 6c 65 25 3a 72 6a  |s%=.# handle%:rj|
000031f0  75 6d 70 73 25 3d 6a 75  6d 70 73 25 3a 6c 65 76  |umps%=jumps%:lev|
00003200  63 25 3d 34 32 82 9a 23  68 61 6e 64 6c 65 25 3a  |c%=42..#handle%:|
00003210  e7 20 6c 65 76 63 25 3c  3e 70 25 20 8c 20 e0 0d  |. levc%<>p% . ..|
00003220  08 98 5c 74 6d 69 6e 73  25 3d 9a 23 20 68 61 6e  |..\tmins%=.# han|
00003230  64 6c 65 25 3a 74 74 65  6e 73 65 63 73 25 3d 9a  |dle%:ttensecs%=.|
00003240  23 20 68 61 6e 64 6c 65  25 3a 74 73 65 63 73 25  |# handle%:tsecs%|
00003250  3d 9a 23 20 68 61 6e 64  6c 65 25 3a 6c 65 76 63  |=.# handle%:levc|
00003260  25 3d 9a 23 68 61 6e 64  6c 65 25 3a e7 20 6c 65  |%=.#handle%:. le|
00003270  76 63 25 3c 3e 70 25 20  8c 20 e0 0d 08 a2 8c e3  |vc%<>p% . ......|
00003280  20 41 3d 30 20 b8 20 28  6c 65 6e 25 2a 35 2a 34  | A=0 . (len%*5*4|
00003290  29 2d 31 36 20 88 20 34  3a 6c 64 61 74 61 25 3d  |)-16 . 4:ldata%=|
000032a0  9a 23 68 61 6e 64 6c 65  25 3a 6c 65 76 65 6c 64  |.#handle%:leveld|
000032b0  61 74 61 25 3f 41 3d 6c  64 61 74 61 25 3a 6c 65  |ata%?A=ldata%:le|
000032c0  76 65 6c 64 61 74 61 25  3f 28 41 2b 31 29 3d 6c  |veldata%?(A+1)=l|
000032d0  64 61 74 61 25 3a 6c 65  76 65 6c 64 61 74 61 25  |data%:leveldata%|
000032e0  3f 28 41 2b 32 29 3d 6c  64 61 74 61 25 3a 6c 65  |?(A+2)=ldata%:le|
000032f0  76 65 6c 64 61 74 61 25  3f 28 41 2b 33 29 3d 6c  |veldata%?(A+3)=l|
00003300  64 61 74 61 25 3a ed 0d  08 ac 0e d9 23 20 68 61  |data%:......# ha|
00003310  6e 64 6c 65 25 0d 08 b6  05 cd 0d 08 c0 be 87 3a  |ndle%..........:|
00003320  ef 20 35 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  |. 5:.. "OS_Byte"|
00003330  2c 31 31 32 2c 32 3a c8  99 20 26 32 45 2c 33 34  |,112,2:.. &2E,34|
00003340  2b 32 35 36 2c 61 72 65  61 25 2c 22 64 61 73 68  |+256,area%,"dash|
00003350  22 2c 30 2c 30 3a c8 99  20 26 32 45 2c 33 34 2b  |",0,0:.. &2E,34+|
00003360  32 35 36 2c 61 72 65 61  25 2c 22 74 22 2b c3 6c  |256,area%,"t"+.l|
00003370  63 6e 74 25 2c 33 36 34  2c 31 33 32 3a c8 99 20  |cnt%,364,132:.. |
00003380  26 32 45 2c 33 34 2b 32  35 36 2c 61 72 65 61 25  |&2E,34+256,area%|
00003390  2c 22 74 22 2b c3 6c 65  6c 79 25 2c 34 31 32 2c  |,"t"+.lely%,412,|
000033a0  31 33 32 3a e6 20 36 33  20 c8 9c 20 39 36 3a ec  |132:. 63 .. 96:.|
000033b0  20 36 34 30 2d 28 a9 28  6d 65 73 73 61 67 65 24  | 640-(.(message$|
000033c0  29 2a 31 36 29 2c 39 36  3a e6 20 34 38 3a f1 20  |)*16),96:. 48:. |
000033d0  6d 65 73 73 61 67 65 24  0d 08 ca bd c8 99 20 22  |message$...... "|
000033e0  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 2d 31 3a  |OS_Byte",112,-1:|
000033f0  c8 99 20 26 32 45 2c 33  34 2b 32 35 36 2c 61 72  |.. &2E,34+256,ar|
00003400  65 61 25 2c 22 64 61 73  68 22 2c 30 2c 30 3a c8  |ea%,"dash",0,0:.|
00003410  99 20 26 32 45 2c 33 34  2b 32 35 36 2c 61 72 65  |. &2E,34+256,are|
00003420  61 25 2c 22 74 22 2b c3  6c 63 6e 74 25 2c 33 36  |a%,"t"+.lcnt%,36|
00003430  34 2c 31 33 32 3a c8 99  20 26 32 45 2c 33 34 2b  |4,132:.. &2E,34+|
00003440  32 35 36 2c 61 72 65 61  25 2c 22 74 22 2b c3 6c  |256,area%,"t"+.l|
00003450  65 6c 79 25 2c 34 31 32  2c 31 33 32 3a e6 20 36  |ely%,412,132:. 6|
00003460  33 20 c8 9c 20 39 36 3a  ec 20 36 34 30 2d 28 a9  |3 .. 96:. 640-(.|
00003470  28 6d 65 73 73 61 67 65  24 29 2a 31 36 29 2c 39  |(message$)*16),9|
00003480  36 3a e6 20 34 38 3a f1  20 6d 65 73 73 61 67 65  |6:. 48:. message|
00003490  24 3a ef 20 34 0d 08 d4  74 6a 75 6d 70 73 25 3d  |$:. 4...tjumps%=|
000034a0  72 6a 75 6d 70 73 25 3a  e3 20 41 3d 30 20 b8 20  |rjumps%:. A=0 . |
000034b0  6c 65 6e 25 2d 31 3a 70  61 74 25 3f 41 3d 30 3a  |len%-1:pat%?A=0:|
000034c0  ed 20 41 3a 70 63 6e 74  25 3d 30 3a e3 20 41 3d  |. A:pcnt%=0:. A=|
000034d0  30 20 b8 20 6c 65 6e 25  2d 36 20 88 20 28 6c 65  |0 . len%-6 . (le|
000034e0  6e 25 2d 36 29 2f 31 39  30 3a 70 61 74 25 3f 41  |n%-6)/190:pat%?A|
000034f0  3d 31 3a 70 63 6e 74 25  2b 3d 31 3a ed 20 41 3a  |=1:pcnt%+=1:. A:|
00003500  6a 6d 70 63 6e 74 25 3d  30 0d 08 de 10 e7 20 6a  |jmpcnt%=0..... j|
00003510  75 6d 70 73 25 3e 39 20  8c 0d 08 e8 3c f5 3a 6a  |umps%>9 ....<.:j|
00003520  6d 70 63 6e 74 25 2b 3d  31 3a 6a 75 6d 70 73 25  |mpcnt%+=1:jumps%|
00003530  2d 3d 31 30 3a fd 20 6a  75 6d 70 73 25 3c 30 3a  |-=10:. jumps%<0:|
00003540  6a 6d 70 63 6e 74 25 2d  3d 31 3a 6a 75 6d 70 73  |jmpcnt%-=1:jumps|
00003550  25 2b 3d 31 30 0d 08 f2  05 cd 0d 08 fc de 64 25  |%+=10.........d%|
00003560  21 32 32 34 3d 6c 65 6e  25 2d 37 3a 64 25 21 32  |!224=len%-7:d%!2|
00003570  34 3d 6c 65 76 65 6c 64  61 74 61 25 3a 64 25 21  |4=leveldata%:d%!|
00003580  33 32 3d 61 72 65 61 25  3a 64 25 21 38 3d 68 65  |32=area%:d%!8=he|
00003590  69 67 68 74 64 61 74 61  25 3a 64 25 21 34 34 3d  |ightdata%:d%!44=|
000035a0  35 36 36 3a 64 25 21 35  32 3d 26 31 46 46 42 34  |566:d%!52=&1FFB4|
000035b0  36 30 2d 26 31 34 30 30  30 3a 64 25 21 35 36 3d  |60-&14000:d%!56=|
000035c0  38 3a 64 25 21 36 30 3d  73 69 6e 65 74 61 62 6c  |8:d%!60=sinetabl|
000035d0  65 25 3a 64 25 21 36 34  3d 30 3a 64 25 21 34 35  |e%:d%!64=0:d%!45|
000035e0  32 3d 73 69 6e 65 74 61  62 6c 65 32 25 3a 64 25  |2=sinetable2%:d%|
000035f0  21 34 34 38 3d 30 3a 64  25 21 36 38 3d 30 3a 64  |!448=0:d%!68=0:d|
00003600  25 21 37 32 3d 30 3a 64  25 21 37 36 3d 30 3a 64  |%!72=0:d%!76=0:d|
00003610  25 21 38 30 3d 30 3a 64  25 21 38 34 3d 26 44 31  |%!80=0:d%!84=&D1|
00003620  44 31 44 31 44 31 3a 64  25 21 31 30 30 3d 35 3a  |D1D1D1:d%!100=5:|
00003630  64 25 21 31 32 38 3d 30  0d 09 06 e2 64 25 21 31  |d%!128=0....d%!1|
00003640  33 36 3d 26 30 31 30 31  30 31 30 31 3a 64 25 21  |36=&01010101:d%!|
00003650  31 39 36 3d 74 6d 69 6e  73 25 3a 64 25 21 31 39  |196=tmins%:d%!19|
00003660  32 3d 74 74 65 6e 73 65  63 73 25 3a 64 25 21 31  |2=ttensecs%:d%!1|
00003670  38 38 3d 74 73 65 63 73  25 3a 64 25 21 31 38 30  |88=tsecs%:d%!180|
00003680  3d 36 3a 64 25 21 31 38  34 3d 30 3a 64 25 21 32  |=6:d%!184=0:d%!2|
00003690  30 30 3d 6a 75 6d 70 73  25 3a 64 25 21 32 30 34  |00=jumps%:d%!204|
000036a0  3d 6a 6d 70 63 6e 74 25  3a 64 25 21 32 30 38 3d  |=jmpcnt%:d%!208=|
000036b0  30 3a 64 25 21 32 32 30  3d 30 3a 64 25 21 32 33  |0:d%!220=0:d%!23|
000036c0  32 3d 30 3a 64 25 21 32  34 34 3d 73 63 61 6c 65  |2=0:d%!244=scale|
000036d0  25 3a 64 25 21 32 34 38  3d 30 3a 64 25 21 32 35  |%:d%!248=0:d%!25|
000036e0  32 3d 30 3a 64 25 21 32  35 36 3d 73 74 61 72 66  |2=0:d%!256=starf|
000036f0  69 65 6c 64 25 3a 64 25  21 32 36 34 3d 70 61 74  |ield%:d%!264=pat|
00003700  25 3a 64 25 21 32 36 38  3d 30 3a 64 25 21 32 37  |%:d%!268=0:d%!27|
00003710  32 3d 26 31 46 45 42 41  38 33 0d 09 10 72 64 25  |2=&1FEBA83...rd%|
00003720  21 32 38 34 3d 30 3a 64  25 21 33 32 34 3d 31 3a  |!284=0:d%!324=1:|
00003730  64 25 21 33 32 38 3d 31  3a 64 25 21 33 35 36 3d  |d%!328=1:d%!356=|
00003740  74 65 6d 70 73 74 72 25  3a 64 25 21 33 36 30 3d  |tempstr%:d%!360=|
00003750  73 74 61 72 73 61 64 72  25 3a 64 25 21 33 36 34  |starsadr%:d%!364|
00003760  3d 63 6f 6c 6f 75 72 73  25 3a 64 25 21 33 37 32  |=colours%:d%!372|
00003770  3d 6c 63 6e 74 25 3a 64  25 21 33 37 36 3d 6c 65  |=lcnt%:d%!376=le|
00003780  6c 79 25 3a 64 25 21 33  38 34 3d 30 0d 09 1a 36  |ly%:d%!384=0...6|
00003790  e7 20 76 6f 6c 25 3d 30  20 84 20 66 78 3d 30 20  |. vol%=0 . fx=0 |
000037a0  8c 20 64 25 21 34 35 36  3d 30 20 8b 20 64 25 21  |. d%!456=0 . d%!|
000037b0  34 35 36 3d 28 26 46 46  46 46 2d 76 6f 6c 25 29  |456=(&FFFF-vol%)|
000037c0  2b 31 0d 09 24 29 64 25  21 34 36 30 3d 77 68 61  |+1..$)d%!460=wha|
000037d0  74 73 61 6d 70 3a e7 20  70 25 3e 6d 61 78 70 25  |tsamp:. p%>maxp%|
000037e0  20 8c 20 6d 61 78 70 25  3d 70 25 0d 09 2e 19 6d  | . maxp%=p%....m|
000037f0  61 78 6c 25 3d 6d 61 78  70 25 3a 6d 61 78 63 6e  |axl%=maxp%:maxcn|
00003800  74 25 3d 30 0d 09 38 0f  e7 20 6d 61 78 6c 25 3e  |t%=0..8.. maxl%>|
00003810  39 20 8c 0d 09 42 39 f5  3a 6d 61 78 63 6e 74 25  |9 ...B9.:maxcnt%|
00003820  2b 3d 31 3a 6d 61 78 6c  25 2d 3d 31 30 3a fd 20  |+=1:maxl%-=10:. |
00003830  6d 61 78 6c 25 3c 30 3a  6d 61 78 63 6e 74 25 2d  |maxl%<0:maxcnt%-|
00003840  3d 31 3a 6d 61 78 6c 25  2b 3d 31 30 0d 09 4c 05  |=1:maxl%+=10..L.|
00003850  cd 0d 09 56 1f 64 25 21  34 36 34 3d 6d 61 78 63  |...V.d%!464=maxc|
00003860  6e 74 25 3a 64 25 21 34  36 38 3d 6d 61 78 6c 25  |nt%:d%!468=maxl%|
00003870  0d 09 60 31 e7 20 73 74  61 74 65 25 3d 30 20 84  |..`1. state%=0 .|
00003880  20 73 74 61 74 65 25 3d  32 39 20 84 20 73 74 61  | state%=29 . sta|
00003890  74 65 25 3d 35 30 20 8c  20 64 25 21 32 33 32 3d  |te%=50 . d%!232=|
000038a0  31 0d 09 6a 33 ef 20 31  38 2c 31 32 2c 36 33 3a  |1..j3. 18,12,63:|
000038b0  87 3a 41 25 3d 64 25 3a  73 74 61 74 65 25 3d ba  |.:A%=d%:state%=.|
000038c0  20 63 6f 64 65 3a e7 20  73 74 61 74 65 25 3d 32  | code:. state%=2|
000038d0  20 8c 20 e1 0d 09 74 07  fd 20 30 0d 09 7e 05 e1  | . ...t.. 0..~..|
000038e0  0d 09 88 11 dd f2 72 6f  6c 6c 6a 65 7a 73 6f 66  |......rolljezsof|
000038f0  74 0d 09 92 16 c8 99 20  22 4f 53 5f 42 79 74 65  |t...... "OS_Byte|
00003900  22 2c 31 31 33 2c 32 0d  09 9c 05 da 0d 09 a6 28  |",113,2........(|
00003910  c8 99 20 26 32 45 2c 33  34 2b 32 35 36 2c 61 72  |.. &2E,34+256,ar|
00003920  65 61 25 2c 22 4a 65 7a  4c 6f 67 6f 22 2c 31 30  |ea%,"JezLogo",10|
00003930  34 2c 35 38 0d 09 b0 21  c8 99 20 26 32 45 2c 32  |4,58...!.. &2E,2|
00003940  35 2b 32 35 36 2c 61 72  65 61 25 2c 22 4a 65 7a  |5+256,area%,"Jez|
00003950  4c 6f 67 6f 22 0d 09 ba  0b d6 20 64 72 61 77 25  |Logo"..... draw%|
00003960  0d 09 c4 15 e3 20 41 3d  31 20 b8 20 33 30 30 30  |..... A=1 . 3000|
00003970  30 3a ed 20 41 0d 09 ce  05 e1 0d 09 d8 07 dd f2  |0:. A...........|
00003980  78 0d 09 e2 16 c8 99 20  22 4f 53 5f 42 79 74 65  |x...... "OS_Byte|
00003990  22 2c 31 31 33 2c 32 0d  09 ec 05 da 0d 09 f6 2f  |",113,2......../|
000039a0  ff 20 22 4c 6f 61 64 20  3c 52 6f 6c 6c 24 44 69  |. "Load <Roll$Di|
000039b0  72 3e 2e 44 61 74 61 2e  45 6e 64 53 63 72 65 65  |r>.Data.EndScree|
000039c0  6e 20 26 31 46 44 38 30  30 30 22 0d 0a 00 0b d6  |n &1FD8000".....|
000039d0  20 64 72 61 77 25 0d 0a  0a 0f ff 20 22 46 58 20  | draw%..... "FX |
000039e0  32 31 2c 30 22 0d 0a 14  09 6b 65 79 3d a5 0d 0a  |21,0"....key=...|
000039f0  1e 05 e1 0d 0a 28 88 dd  f2 63 72 65 61 74 65 74  |.....(...createt|
00003a00  65 6d 70 3a c8 99 20 26  32 45 2c 31 35 2b 32 35  |emp:.. &2E,15+25|
00003a10  36 2c 61 72 65 61 25 2c  22 74 65 6d 70 22 2c 30  |6,area%,"temp",0|
00003a20  2c 33 32 30 2c 31 33 36  2c 31 33 3a c8 99 20 26  |,320,136,13:.. &|
00003a30  32 45 2c 36 30 2b 32 35  36 2c 61 72 65 61 25 2c  |2E,60+256,area%,|
00003a40  22 74 65 6d 70 22 2c 30  3a 78 3d 31 36 3a 79 3d  |"temp",0:x=16:y=|
00003a50  34 33 36 3a 74 3d 9a 23  68 61 6e 64 6c 65 33 25  |436:t=.#handle3%|
00003a60  3a e7 20 74 3c 3e 31 30  20 80 20 74 3c 3e 33 32  |:. t<>10 . t<>32|
00003a70  20 8c 20 74 3d 74 45 4f  52 34 32 0d 0a 32 2a f5  | . t=tEOR42..2*.|
00003a80  3a e7 20 74 3c 3e 33 32  20 8c 20 c8 99 20 26 32  |:. t<>32 . .. &2|
00003a90  45 2c 33 34 2b 32 35 36  2c 61 72 65 61 25 2c bd  |E,34+256,area%,.|
00003aa0  74 2c 78 2c 79 0d 0a 3c  21 78 2b 3d 31 30 34 3a  |t,x,y..<!x+=104:|
00003ab0  e7 20 78 3e 31 32 35 30  20 8c 20 78 3d 31 36 3a  |. x>1250 . x=16:|
00003ac0  79 2d 3d 31 30 38 0d 0a  46 2b 74 3d 9a 23 68 61  |y-=108..F+t=.#ha|
00003ad0  6e 64 6c 65 33 25 3a e7  20 74 3c 3e 31 30 20 80  |ndle3%:. t<>10 .|
00003ae0  20 74 3c 3e 33 32 20 8c  20 74 3d 74 20 82 20 34  | t<>32 . t=t . 4|
00003af0  32 0d 0a 50 31 fd 20 74  3d 31 30 3a c8 99 20 26  |2..P1. t=10:.. &|
00003b00  32 45 2c 36 30 2c 30 2c  30 2c 30 3a ef 20 32 34  |2E,60,0,0,0:. 24|
00003b10  2c 30 3b 32 34 30 3b 31  32 37 39 3b 38 34 34 3b  |,0;240;1279;844;|
00003b20  3a e1 0d 0a 5a 2a dd f2  6f 72 69 28 78 25 2c 79  |:...Z*..ori(x%,y|
00003b30  25 29 3a c8 91 20 78 25  2b 32 37 36 2d 39 32 2c  |%):.. x%+276-92,|
00003b40  79 25 2b 35 30 38 2d 31  35 32 3a e1 0d ff        |y%+508-152:...|
00003b4e

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