Home » Personal collection » Acorn hard disk » apps » Alps » !ALPS/Resources/Loader

!ALPS/Resources/Loader

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

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

Tape/disk: Home » Personal collection » Acorn hard disk » apps » Alps
Filename: !ALPS/Resources/Loader
Read OK: ✔
File size: 2B16 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM >$.!ALPS.Resources.Loader
   20REM (C) 1989 P. Hawthorne/Alpine Software
   30
   40REM ON ERROR errflag=FNerror:IF errflag=1 THEN END ELSE RUN
   50loadscreen$=""
   90load_buttons=TRUE
  110
  120name$=FNgetname:mode%=FNgetmode:PROCinit2
  130
  150MODE mode%
  160PROCgetmodeinfo
  170
  180*FX200,1
  190
  200
  210TIME=0:keypressed=FALSE
  220REM You can type REM<space> at the start of the next line to remove the beep! Also delete the four stars here: ****to keep the user code address unchanged
  230VDU 7
  240REPEAT
  250IF INKEY(-9) AND INKEY(-6) THEN keypressed=TRUE
  260UNTIL TIME>100
  270IF keypressed THEN PRINT"User code address= ";usercode%:STOP
  280
  290optionname$="<Alps$Data>.Options"
  300barfgcol=0:barbgcol=1
  310
  320DIM key$(12):REM Function key strings
  330DIM bary(3,2):REM rgb bar graph y coords
  340
  350area_size%=scrnsize
  360
  370DIM area% area_size%:REM Sprite area (for screens)
  380
  390FOR bar=1 TO 3
  400  READ bary(bar,1),bary(bar,2):REM read bottom and top coords
  410NEXT bar
  420
  430DATA 445,477,386,418,327,359
  440
  450
  460PROCload_pal
  470*PRINT <Alps$Data>.charset
  480
  490
  500REM PICCYload
  510
  520IF loadscreen$<>"" THEN
  530OSCLI "LOAD <Alps$Data>.Pictures."+loadscreen$+" "+STR$~(area%+4)
  540!area%=area_size%
  550SYS "OS_SpriteOp",546,area%,area%+16,0,0,8
  560TIME=0:REPEAT UNTIL TIME>500
  570ENDIF
  580
  590REM Load buttons?
  600IF load_buttons THEN
  610OSCLI("LOAD <Alps$Resources>buttons "+STR$~(area%+4))
  620!area%=area_size%
  630REM Read the scale factors and pixel translation table
  640SYS "Wimp_ReadPixTrans",&200,area%,area%+16,0,0,0,scale,pixtr
  650REM Now PutSpriteScaled
  660SYS "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
  670VDU 28,0,textrows%-5,textcols%,0
  680ELSE
  690VDU 28,0,textrows%,textcols%,0
  700ENDIF
  710
  720
  730*FX15,0
  740*POINTER
  750MOUSE ON
  760MOUSE TO 550,48
  770
  780in%=OPENIN(optionname$)
  790choice=FALSE
  800IF in%<>0 THEN choice=FNload(in%)
  810IF choice GOTO 1110
  820
  830REPEAT
  840GCOL131:COLOUR131:CLG:CLS:ON:COLOUR 11:PRINTTAB(33)"FUNCTION KEYS"'
  850  COLOUR 7:SYS "OS_PrettyPrint","You may enter up to twelve extra command strings to be operated by the F1..F12 red keys. These are in addition to the commands already allocated to the other 'buttons' (NB |M can be used as the <return> key)"
  860  PRINT
  870  *FX21,0
  880
  890  FOR key=1 TO 12
  900    PRINT"Enter string for key F";key:INPUT key$(key)
  910    OSCLI("KEY"+STR$key+" "+key$(key))
  920  NEXT key
  930
  940  OFF
  950  SYS "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
  960  COLOUR 8:PRINT''"OK? Click 'YES' or 'NO' or press Y or N"
  970  key=0
  980
  990  REPEAT:MOUSE X%,Y%,B%:A$=INKEY$(0)
 1000  IF A$="Y" OR A$="y" THEN key=7
 1010  IF A$="N" OR A$="n" THEN key=8
 1020    IF B%=4 PROCin(X%,Y%,key):REPEAT:MOUSEX%,Y%,B%:UNTIL B%=0
 1030  UNTIL key=7 OR key=8
 1040
 1050UNTIL key=7
 1060
 1070CLS
 1080PROCWriteOutFile:COLOUR6:PRINT''"These function keys have been saved for future use"
 1090
 1100A=INKEY(200)
 1110VDU 24,0;144;scrw;scrh;
 1120COLOUR 131:GCOL131:CLS:COLOUR 3
 1130
 1140
 1150PROCload_files(name$)
 1160*FX225,1
 1170PROCrun
 1180SYS "Wimp_CloseDown"
 1190END
 1200
 1210DEF PROCin(X%,Y%,RETURN com)
 1220com=0:row=99
 1230IF Y%>79 AND Y%<125 row=1
 1240IF Y%>0 AND Y%<51 row=0
 1250col=(X%-minx) DIV (width) + 1
 1260IF col<=rowlen THEN com=col+rowlen*row
 1270ENDPROC
 1280
 1290DEF FNload(in%)
 1300COLOUR7:COLOUR 131:PRINTTAB(2,0);" Load your saved function key settings? Click 'YES' OR 'NO' or press Y or N "
 1310key=0
 1320REPEAT
 1330  MOUSE X%,Y%,B%:A$=INKEY$(0)
 1340  IF A$="Y" OR A$="y" THEN key=7
 1350  IF A$="N" OR A$="n" THEN key=8
 1360  IF B%=4 PROCin(X%,Y%,key)
 1370UNTIL key=7 OR key=8
 1380IF key=7 PROCReadInFile(in%):=TRUE ELSE CLOSE#in%:=FALSE
 1390
 1400DEF PROCReadInFile(chan%)
 1410
 1420FOR K%=1 TO 12
 1430  INPUT#chan%,key$(K%)
 1440  OSCLI("KEY "+STR$(K%)+" "+key$(K%))
 1450NEXT
 1460
 1470CLOSE #chan%
 1480ENDPROC
 1490
 1500DEF PROCWriteOutFile
 1510
 1520chan%=OPENOUT optionname$
 1530
 1540FOR K%=1 TO 12
 1550  PRINT#chan%,key$(K%)
 1560NEXT
 1570
 1580CLOSE#chan%
 1590ENDPROC
 1600
 1610
 1620DEF FNerror
 1630GCOL 1:width=700
 1640reportwidth=(LEN(REPORT$)+LEN(STR$(ERL))+12)*16
 1650IF width<reportwidth THEN width=reportwidth
 1660RECTANGLE FILL 200,300,width,204
 1670MOUSE RECTANGLE 200,300,width,204
 1680GCOL 7:VDU 5:MOVE 216,450:PRINT"System reports an error:"
 1690MOVE 216,400:PRINT REPORT$;:IF ERL>0 THEN PRINT" at line ";ERL
 1700GCOL 3:RECTANGLE FILL 560,320,140,32:MOVE 568,348:GCOL 7:PRINT"CONTINUE"
 1710GCOL 3:RECTANGLE FILL 360,320,76,32:MOVE 368,348:GCOL 7:PRINT"QUIT"
 1720
 1730flag=0
 1740REPEAT
 1750  REPEAT
 1760    REPEAT
 1770      MOUSE X,Y,B
 1780    UNTIL B=4
 1790  UNTIL Y>320 AND Y<356
 1800
 1810IF X>560 AND X<700 THEN flag=2
 1820IF X>360 AND X<436 THEN flag=1
 1830
 1840UNTIL flag=1 OR flag=2
 1850
 1860GCOL 0
 1870RECTANGLE FILL 200,300,width,204
 1880VDU 4:OFF
 1890MOUSE RECTANGLE 0,0,1279,1023
 1900=flag
 1910
 1920
 1930DEF PROCinit2
 1940SYS "Wimp_CloseDown"
 1950minx=32
 1960width=80
 1970y%=72
 1980X%=minx:Y%=y%
 1990sprites=26:REM Number of 'buttons'
 2000rowlen=sprites DIV 2
 2010XL=448:XR=XL+255
 2020
 2030REM Manifest constants for the system
 2040maxrms=1000:maxobs=255:maxsw%=10:maxtokens=128
 2050maxlen=10:REM Maximum word length in vocabulary
 2060DIM scale 15,pixtr 15
 2070
 2080REM Room and object data block lengths (in bytes)
 2090r_len=74:o_len=16
 2100
 2110maxmsg=65535:maxobn=255:maxvbn=255:maxconst=65535
 2120maxadj=255:maxprep=50:maxconj=50:maxspec=10:maxnoise=10:maxpix=50
 2130
 2140noun_size=3000
 2150verb_size=3000
 2160adjc_size=1000
 2170prep_size=200 :REM Size of prepositions list
 2180conj_size=100 :REM size of conjunctions list
 2190spec_size=100 :REM size of 'specials' list (IT, THEM, ALL)
 2200noise_size=100:REM size of 'noise' list (THE,A,AN)
 2210aref_size=2000:REM size of adjective object reference table
 2220nref_size=2000:REM size of nouns object reference table
 2230pix_size=1000:REM size of pix filename list
 2240
 2250SYS "OS_File",5,"<ALPS$Data>.Program."+name$ TO ftype,,,,codesize
 2260SYS "OS_File",5,"<ALPS$Data>.Text."+name$ TO ftype,,,,maxtext%
 2270
 2280dict_size=1000
 2290
 2300DIM nouns noun_size,verbs verb_size,adjects adjc_size,preps prep_size,conjs conj_size,specs spec_size,noise noise_size,pixs pix_size
 2310
 2320DIM aref aref_size,nref nref_size,verb_type 2*(maxvbn+1)
 2330REM Set up data areas for rooms and objects and clear them
 2340
 2350DIM rdata% (maxrms+1)*r_len,odata% (maxobs+1)*o_len,controom% 12
 2360
 2370num_vars=60:REM Number of ALPS variables
 2380var_size=num_vars*2:REM 2 bytes per variable
 2390
 2400REM Set up the save buffers
 2410initareasize=7*(maxobs+1)+22*(maxrms+1)
 2420DIM initsave initareasize,ramsave initareasize+var_size+128
 2430
 2440REM Area for storing messages
 2450DIM text% maxtext%
 2460
 2470datavalid=TRUE
 2480
 2490REM Set up the dictionary
 2500DIM dict% dict_size
 2510
 2520REM Set up the program area
 2530
 2540DIM program% codesize
 2550
 2560REM Dimension the other arrays needed
 2570
 2580ucsize=500
 2590SYS "OS_File",5,"<Alps$Resources>ASIobjcode" TO ftype,,,,codesize
 2600SYS "OS_File",5,"<Alps$Resources>pbytes" TO ftype,,,,pbyte_size
 2610
 2620DIM pbytes pbyte_size,work% &1100,asicode% codesize+10
 2630
 2640DIM usercode% ucsize
 2650
 2660run=asicode%
 2670
 2680OSCLI("LOAD <Alps$Resources>ASIobjcode "+STR$~asicode%)
 2690ENDPROC
 2700
 2710
 2720DEF PROCrun
 2730LOCAL ERROR
 2740err_col=11:COLOUR130:COLOUR 7:GCOL130
 2750ON ERROR LOCAL:COLOUR err_col:IF ERR<>17 PRINT'"Interpreter reports a run-time error: "REPORT$:GOTO 3000 ELSE PRINT'REPORT$:GOTO 3000
 2760!work%=rdata%
 2770work%!4=verbs+3
 2780work%!8=nouns+3
 2790work%!12=program%+4
 2800work%!16=text%+7
 2810work%!20=dict%+3
 2820work%!24=odata%
 2830work%!28=adjects+3
 2840work%!32=preps+3
 2850work%!36=conjs+3
 2860work%!40=specs+3
 2870work%!44=noise+3
 2880work%!48=pixs+3
 2890REM  work%!52 is reserved
 2900work%!56=initsave
 2910work%!60=last_room
 2920work%!64=last_object+1
 2930CLS
 2940VDU 24,0;144;scrw;scrh;
 2960ON
 2970A%=verb_type:B%=nref:C%=aref:D%=ramsave
 2980E%=pbytes:F%=work%:G%=area%:H%=area_size%
 2990CALL run
 3000RESTORE ERROR
 3010ENDPROC
 3020
 3030DEF PROCload_pal
 3040LOCAL in%,col
 3050in%=OPENIN "<Alps$Data>.!Palette"
 3060FOR col=0 TO 19
 3070  IF col<16 col1=col:col2=16 ELSE IF col=16 col1=col:col2=24 ELSE col1=col-16:col2=25
 3080  r=BGET#in%:g=BGET#in%:b=BGET#in%
 3090  VDU 19,col1,col2,r,g,b
 3100NEXT col
 3110CLOSE#in%
 3120ENDPROC
 3130
 3140DEF PROCload_vocab(file$)
 3150IF file$="" THEN
 3160PROCerror(16,"")
 3170ELSE
 3180PROCload_nouns("<Alps$Data>.Nouns."+file$)
 3190PROCload_verbs("<Alps$Data>.Verbs."+file$)
 3200PROCload_adjects("<Alps$Data>.Adjectives."+file$)
 3210PROCload_preps("<Alps$Data>.Prepos."+file$)
 3220PROCload_conj("<Alps$Data>.Conjunc."+file$)
 3230PROCload_spec("<Alps$Data>.Specials."+file$)
 3240PROCload_noise("<Alps$Data>.Noise."+file$)
 3250PROCload_vtypes("<Alps$Data>.VerbType."+file$)
 3260PROCload_nrefs("<Alps$Data>.Nref."+file$)
 3270PROCload_arefs("<Alps$Data>.Aref."+file$)
 3280ENDIF
 3290ENDPROC
 3300
 3310DEF PROCload_nouns(file$)
 3320IF file$="" THEN
 3330PROCerror(16,"")
 3340ELSE
 3350OSCLI "LOAD "+file$+" "+STR$~nouns
 3360obn=?nouns
 3370nxtobj=nouns+(nouns?1+256*(nouns?2))
 3380ENDIF
 3390ENDPROC
 3400
 3410DEF PROCload_verbs(file$)
 3420IF file$="" THEN
 3430PROCerror(16,"")
 3440ELSE
 3450OSCLI "LOAD "+file$+" "+STR$~verbs
 3460vbn=?verbs
 3470nxtvrb=verbs+(verbs?1+256*(verbs?2))
 3480ENDIF
 3490ENDPROC
 3500
 3510DEF PROCload_adjects(file$)
 3520IF file$="" THEN
 3530PROCerror(16,"")
 3540ELSE
 3550OSCLI "LOAD "+file$+" "+STR$~adjects
 3560adn=?adjects
 3570nxtadj=adjects+(adjects?1+256*(adjects?2))
 3580ENDIF
 3590ENDPROC
 3600
 3610DEF PROCload_preps(file$)
 3620IF file$="" THEN
 3630PROCerror(16,"")
 3640ELSE
 3650OSCLI "LOAD "+file$+" "+STR$~preps
 3660prn=?preps
 3670nxtprp=preps+(preps?1+256*(preps?2))
 3680ENDIF
 3690ENDPROC
 3700
 3710DEF PROCload_conj(file$)
 3720IF file$="" THEN
 3730PROCerror(16,"")
 3740ELSE
 3750OSCLI "LOAD "+file$+" "+STR$~conjs
 3760cjn=?conjs
 3770nxtcjn=conjs+(conjs?1+256*(conjs?2))
 3780ENDIF
 3790ENDPROC
 3800
 3810DEF PROCload_spec(file$)
 3820IF file$="" THEN
 3830PROCerror(16,"")
 3840ELSE
 3850OSCLI "LOAD "+file$+" "+STR$~specs
 3860spn=?specs
 3870nxtspn=specs+(specs?1+256*(specs?2))
 3880ENDIF
 3890ENDPROC
 3900
 3910DEF PROCload_noise(file$)
 3920IF file$="" THEN
 3930PROCerror(16,"")
 3940ELSE
 3950OSCLI "LOAD "+file$+" "+STR$~noise
 3960nsn=?noise
 3970nxtnsn=noise+(noise?1+256*(noise?2))
 3980ENDIF
 3990ENDPROC
 4000
 4010DEF PROCload_vtypes(file$)
 4020IF file$="" THEN
 4030PROCerror(16,"")
 4040ELSE
 4050OSCLI "LOAD "+file$+" "+STR$~verb_type
 4060ENDIF
 4070ENDPROC
 4080
 4090DEF PROCload_arefs(file$)
 4100IF file$="" THEN
 4110PROCerror(16,"")
 4120ELSE
 4130OSCLI "LOAD "+file$+" "+STR$~aref
 4140ENDIF
 4150ENDPROC
 4160
 4170DEF PROCload_nrefs(file$)
 4180IF file$="" THEN
 4190PROCerror(16,"")
 4200ELSE
 4210OSCLI "LOAD "+file$+" "+STR$~nref
 4220ENDIF
 4230ENDPROC
 4240
 4250DEF PROCload_objs(file$)
 4260IF file$="" THEN
 4270PROCerror(16,"")
 4280ELSE
 4290OSCLI "LOAD "+file$+" "+STR$~odata%
 4300optr=odata%?14
 4310last_object=odata%?15
 4320ENDIF
 4330ENDPROC
 4340
 4350DEF PROCload_rooms(file$)
 4360IF file$="" THEN
 4370PROCerror(16,"")
 4380ELSE
 4390OSCLI "LOAD "+file$+" "+STR$~rdata%
 4400rptr=!rdata% AND &FFFF
 4410last_room=(!rdata% AND &FFFF0000)>>16
 4420ENDIF
 4430ENDPROC
 4440
 4450DEF PROCload_pix(file$)
 4460IF file$="" THEN
 4470PROCerror(16,"")
 4480ELSE
 4490OSCLI "LOAD "+file$+" "+STR$~pixs
 4500pxn=?pixs
 4510nxtpxn=pixs+(pixs?1+256*(pixs?2))
 4520ENDIF
 4530ENDPROC
 4540
 4550DEF PROCload_program(file$)
 4560IF file$="" THEN
 4570PROCerror(16,"")
 4580ELSE
 4590OSCLI "LOAD "+file$+" "+STR$~program%
 4600ENDIF
 4610ENDPROC
 4620
 4630DEF PROCload_text(file$)
 4640IF file$="" THEN
 4650PROCerror(16,"")
 4660ELSE
 4670OSCLI "LOAD "+file$+" "+STR$~text%
 4680mptr=1
 4690ENDIF
 4700ENDPROC
 4710
 4720DEF PROCload_dict(file$)
 4730LOCAL I%,L%
 4740IF file$="" THEN
 4750PROCerror(16,"")
 4760ELSE
 4770OSCLI "LOAD "+file$+" "+STR$~dict%
 4780tok%=dict%?2:L%=0
 4790IF tok%=0 tok%=128 ELSE tok%-=128
 4800ENDIF
 4810ENDPROC
 4820
 4830DEF PROCload_files(filename$)
 4840PROCload_objs("<Alps$Data>.Objects."+filename$)
 4850PROCload_rooms("<Alps$Data>.Rooms."+filename$)
 4860PROCload_pix("<Alps$Data>.Pictures."+filename$)
 4870PROCload_vocab(filename$)
 4880PROCload_program("<Alps$Data>.Program."+filename$)
 4890PROCload_text("<Alps$Data>.Text."+filename$)
 4900PROCload_dict("<Alps$Data>.Dict."+filename$)
 4910OSCLI "LOAD <Alps$Resources>pbytes "+STR$~pbytes
 4920ENDPROC
 4930
 4940DEF FNgetname
 4950in%=OPENIN "<Alps$Data>.Game"
 4960INPUT#in%,name$
 4970CLOSE#in%
 4980=name$
 4990
 5000DEF FNgetmode
 5010in%=OPENIN "<Alps$Data>.Game"
 5020INPUT#in%,name$
 5030INPUT#in%,mode%
 5040CLOSE#in%
 5050=mode%
 5060
 5070DEF PROCgetmodeinfo
 5080LOCAL x,y,xeig,yeig,cols
 5090mode=MODE
 5100
 5110SYS "OS_ReadModeVariable",mode,1 TO ,,textcols%
 5120SYS "OS_ReadModeVariable",mode,2 TO ,,textrows%
 5130text_maxllen%=textcols%-2
 5140SYS "OS_ReadModeVariable",mode,3 TO ,,cols
 5150SYS "OS_ReadModeVariable",mode,4 TO ,,xeig
 5160SYS "OS_ReadModeVariable",mode,5 TO ,,yeig
 5170SYS "OS_ReadModeVariable",mode,7 TO ,,scrnsize
 5180SYS "OS_ReadModeVariable",mode,11 TO ,,x
 5190SYS "OS_ReadModeVariable",mode,12 TO ,,y
 5200scrw=((x+1)<<xeig)-1:scrh=((y+1)<<yeig)-1
 5210ENDPROC


� >$.!ALPS.Resources.Loader
+� (C) 1989 P. Hawthorne/Alpine Software

(=� ON ERROR errflag=FNerror:IF errflag=1 THEN END ELSE RUN
2loadscreen$=""
Zload_buttons=�
n
x(name$=�getname:mode%=�getmode:�init2
�
�� mode%
��getmodeinfo
�
�*FX200,1
�
�
��=0:keypressed=�
ܜ� You can type REM<space> at the start of the next line to remove the beep! Also delete the four stars here: ****to keep the user code address unchanged
�� 7
��
�"� �(-9) � �(-6) � keypressed=�
� �>100
5� keypressed � �"User code address= ";usercode%:�

"%optionname$="<Alps$Data>.Options"
,barfgcol=0:barbgcol=1
6
@%� key$(12):� Function key strings
J(� bary(3,2):� rgb bar graph y coords
T
^area_size%=scrnsize
h
r2� area% area_size%:� Sprite area (for screens)
|
�� bar=1 � 3
�<  � bary(bar,1),bary(bar,2):� read bottom and top coords
�	� bar
�
�� 445,477,386,418,327,359
�
�
�
�load_pal
�*PRINT <Alps$Data>.charset
�
�
�� PICCYload
�
� loadscreen$<>"" �
>� "LOAD <Alps$Data>.Pictures."+loadscreen$+" "+�~(area%+4)
!area%=area_size%
&-ș "OS_SpriteOp",546,area%,area%+16,0,0,8
0�=0:� � �>500
:�
D
N� Load buttons?
X� load_buttons �
b2�("LOAD <Alps$Resources>buttons "+�~(area%+4))
l!area%=area_size%
v8� Read the scale factors and pixel translation table
�@ș "Wimp_ReadPixTrans",&200,area%,area%+16,0,0,0,scale,pixtr
�� Now PutSpriteScaled
�:ș "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
�"� 28,0,textrows%-5,textcols%,0
��
� � 28,0,textrows%,textcols%,0
��
�
�
�*FX15,0
�*POINTER
�ȗ �
�ȗ � 550,48

in%=�(optionname$)
choice=�
  � in%<>0 � choice=�load(in%)
*� choice � �DVD
4
>�
H.�131:�131:�:�:�:� 11:�33)"FUNCTION KEYS"'
R�  � 7:ș "OS_PrettyPrint","You may enter up to twelve extra command strings to be operated by the F1..F12 red keys. These are in addition to the commands already allocated to the other 'buttons' (NB |M can be used as the <return> key)"
\  �
f
  *FX21,0
p
z  � key=1 � 12
�1    �"Enter string for key F";key:� key$(key)
�#    �("KEY"+�key+" "+key$(key))
�  � key
�
�  �
�<  ș "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
�6  � 8:�''"OK? Click 'YES' or 'NO' or press Y or N"
�  key=0
�
�  �:ȗ X%,Y%,B%:A$=�(0)
�  � A$="Y" � A$="y" � key=7
�  � A$="N" � A$="n" � key=8
�1    � B%=4 �in(X%,Y%,key):�:ȗX%,Y%,B%:� B%=0
  � key=7 � key=8

� key=7
$
.�
8L�WriteOutFile:�6:�''"These function keys have been saved for future use"
B
LA=�(200)
V� 24,0;144;scrw;scrh;
`� 131:�131:�:� 3
j
t
~�load_files(name$)
�*FX225,1
��run
�ș "Wimp_CloseDown"
��
�
�� �in(X%,Y%,� com)
�com=0:row=99
�� Y%>79 � Y%<125 row=1
�� Y%>0 � Y%<51 row=0
�col=(X%-minx) � (width) + 1
�&� col<=rowlen � com=col+rowlen*row
��


� �load(in%)
b�7:� 131:�2,0);" Load your saved function key settings? Click 'YES' OR 'NO' or press Y or N "
	key=0
(�
2  ȗ X%,Y%,B%:A$=�(0)
<  � A$="Y" � A$="y" � key=7
F  � A$="N" � A$="n" � key=8
P  � B%=4 �in(X%,Y%,key)
Z� key=7 � key=8
d*� key=7 �ReadInFile(in%):=� � �#in%:=�
n
x� �ReadInFile(chan%)
�
�� K%=1 � 12
�  �#chan%,key$(K%)
�"  �("KEY "+�(K%)+" "+key$(K%))
��
�
�� #chan%
��
�
�� �WriteOutFile
�
�chan%=� optionname$
�
� K%=1 � 12
  �#chan%,key$(K%)
�
"
,�#chan%
6�
@
J
T� �error
^� 1:width=700
h%reportwidth=(�(�$)+�(�(�))+12)*16
r+� width<reportwidth � width=reportwidth
|ȓ Ȑ 200,300,width,204
�ȗ ȓ 200,300,width,204
�1� 7:� 5:� 216,450:�"System reports an error:"
�*� 216,400:� �$;:� �>0 � �" at line ";�
�6� 3:ȓ Ȑ 560,320,140,32:� 568,348:� 7:�"CONTINUE"
�1� 3:ȓ Ȑ 360,320,76,32:� 368,348:� 7:�"QUIT"
�
�
flag=0
��
�  �
�	    �
�      ȗ X,Y,B
�
    � B=4
�  � Y>320 � Y<356

� X>560 � X<700 � flag=2
� X>360 � X<436 � flag=1
&
0� flag=1 � flag=2
:
D� 0
Nȓ Ȑ 200,300,width,204
X	� 4:�
bȗ ȓ 0,0,1279,1023
l	=flag
v
�
�� �init2
�ș "Wimp_CloseDown"
�minx=32
�width=80
�	y%=72
�X%=minx:Y%=y%
�$sprites=26:� Number of 'buttons'
�rowlen=sprites � 2
�XL=448:XR=XL+255
�
�'� Manifest constants for the system
�2maxrms=1000:maxobs=255:maxsw%=10:maxtokens=128
1maxlen=10:� Maximum word length in vocabulary
� scale 15,pixtr 15

 3� Room and object data block lengths (in bytes)
*r_len=74:o_len=16
4
>5maxmsg=65535:maxobn=255:maxvbn=255:maxconst=65535
HEmaxadj=255:maxprep=50:maxconj=50:maxspec=10:maxnoise=10:maxpix=50
R
\noun_size=3000
fverb_size=3000
padjc_size=1000
z.prep_size=200 :� Size of prepositions list
�.conj_size=100 :� size of conjunctions list
�<spec_size=100 :� size of 'specials' list (IT, THEM, ALL)
�4noise_size=100:� size of 'noise' list (THE,A,AN)
�=aref_size=2000:� size of adjective object reference table
�9nref_size=2000:� size of nouns object reference table
�-pix_size=1000:� size of pix filename list
�
�Cș "OS_File",5,"<ALPS$Data>.Program."+name$ � ftype,,,,codesize
�@ș "OS_File",5,"<ALPS$Data>.Text."+name$ � ftype,,,,maxtext%
�
�dict_size=1000
�
��� nouns noun_size,verbs verb_size,adjects adjc_size,preps prep_size,conjs conj_size,specs spec_size,noise noise_size,pixs pix_size
	
	:� aref aref_size,nref nref_size,verb_type 2*(maxvbn+1)
	<� Set up data areas for rooms and objects and clear them
	$
	.B� rdata% (maxrms+1)*r_len,odata% (maxobs+1)*o_len,controom% 12
	8
	B*num_vars=60:� Number of ALPS variables
	L.var_size=num_vars*2:� 2 bytes per variable
	V
	`� Set up the save buffers
	j+initareasize=7*(maxobs+1)+22*(maxrms+1)
	t=� initsave initareasize,ramsave initareasize+var_size+128
	~
	�� Area for storing messages
	�� text% maxtext%
	�
	�datavalid=�
	�
	�� Set up the dictionary
	�� dict% dict_size
	�
	�� Set up the program area
	�
	�� program% codesize
	�
'� Dimension the other arrays needed


ucsize=500
Cș "OS_File",5,"<Alps$Resources>ASIobjcode" � ftype,,,,codesize
(Aș "OS_File",5,"<Alps$Resources>pbytes" � ftype,,,,pbyte_size
2
<8� pbytes pbyte_size,work% &1100,asicode% codesize+10
F
P� usercode% ucsize
Z
drun=asicode%
n
x4�("LOAD <Alps$Resources>ASIobjcode "+�~asicode%)
��
�
�
�
� �run
�� �
�err_col=11:�130:� 7:�130
�]� � �:� err_col:� �<>17 �'"Interpreter reports a run-time error: "�$:� �txK � �'�$:� �txK
�!work%=rdata%
�work%!4=verbs+3
�work%!8=nouns+3
�work%!12=program%+4
�work%!16=text%+7
�work%!20=dict%+3
work%!24=odata%
work%!28=adjects+3
work%!32=preps+3
"work%!36=conjs+3
,work%!40=specs+3
6work%!44=noise+3
@work%!48=pixs+3
J�  work%!52 is reserved
Twork%!56=initsave
^work%!60=last_room
hwork%!64=last_object+1
r�
|� 24,0;144;scrw;scrh;
��
�+A%=verb_type:B%=nref:C%=aref:D%=ramsave
�-E%=pbytes:F%=work%:G%=area%:H%=area_size%
�	� run
�� �
��
�
�� �load_pal
�
� in%,col
� in%=� "<Alps$Data>.!Palette"
�� col=0 � 19
�Q  � col<16 col1=col:col2=16 � � col=16 col1=col:col2=24 � col1=col-16:col2=25
  r=�#in%:g=�#in%:b=�#in%
  � 19,col1,col2,r,g,b
	� col
&	�#in%
0�
:
D� �load_vocab(file$)
N� file$="" �
X�error(16,"")
b�
l+�load_nouns("<Alps$Data>.Nouns."+file$)
v+�load_verbs("<Alps$Data>.Verbs."+file$)
�2�load_adjects("<Alps$Data>.Adjectives."+file$)
�,�load_preps("<Alps$Data>.Prepos."+file$)
�,�load_conj("<Alps$Data>.Conjunc."+file$)
�-�load_spec("<Alps$Data>.Specials."+file$)
�+�load_noise("<Alps$Data>.Noise."+file$)
�/�load_vtypes("<Alps$Data>.VerbType."+file$)
�*�load_nrefs("<Alps$Data>.Nref."+file$)
�*�load_arefs("<Alps$Data>.Aref."+file$)
��
��
�
�� �load_nouns(file$)
�� file$="" �

�error(16,"")

�

� "LOAD "+file$+" "+�~nouns

 obn=?nouns

*(nxtobj=nouns+(nouns?1+256*(nouns?2))

4�

>�

H

R� �load_verbs(file$)

\� file$="" �

f�error(16,"")

p�

z� "LOAD "+file$+" "+�~verbs

�vbn=?verbs

�(nxtvrb=verbs+(verbs?1+256*(verbs?2))

��

��

�

�� �load_adjects(file$)

�� file$="" �

��error(16,"")

��

�!� "LOAD "+file$+" "+�~adjects

�adn=?adjects

�.nxtadj=adjects+(adjects?1+256*(adjects?2))

��
�

� �load_preps(file$)
$� file$="" �
.�error(16,"")
8�
B� "LOAD "+file$+" "+�~preps
Lprn=?preps
V(nxtprp=preps+(preps?1+256*(preps?2))
`�
j�
t
~� �load_conj(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~conjs
�cjn=?conjs
�(nxtcjn=conjs+(conjs?1+256*(conjs?2))
��
��
�
�� �load_spec(file$)
�� file$="" �
��error(16,"")
�

� "LOAD "+file$+" "+�~specs
spn=?specs
(nxtspn=specs+(specs?1+256*(specs?2))
(�
2�
<
F� �load_noise(file$)
P� file$="" �
Z�error(16,"")
d�
n� "LOAD "+file$+" "+�~noise
xnsn=?noise
�(nxtnsn=noise+(noise?1+256*(noise?2))
��
��
�
�� �load_vtypes(file$)
�� file$="" �
��error(16,"")
��
�#� "LOAD "+file$+" "+�~verb_type
��
��
�
�� �load_arefs(file$)
� file$="" �
�error(16,"")
�
"� "LOAD "+file$+" "+�~aref
,�
6�
@
J� �load_nrefs(file$)
T� file$="" �
^�error(16,"")
h�
r� "LOAD "+file$+" "+�~nref
|�
��
�
�� �load_objs(file$)
�� file$="" �
��error(16,"")
��
� � "LOAD "+file$+" "+�~odata%
�optr=odata%?14
�last_object=odata%?15
��
��
�
�� �load_rooms(file$)
� file$="" �
�error(16,"")
�
& � "LOAD "+file$+" "+�~rdata%
0rptr=!rdata% � &FFFF
:'last_room=(!rdata% � &FFFF0000)>>16
D�
N�
X
b� �load_pix(file$)
l� file$="" �
v�error(16,"")
��
�� "LOAD "+file$+" "+�~pixs
�
pxn=?pixs
�%nxtpxn=pixs+(pixs?1+256*(pixs?2))
��
��
�
�� �load_program(file$)
�� file$="" �
��error(16,"")
��
�"� "LOAD "+file$+" "+�~program%
��
�

� �load_text(file$)
 � file$="" �
*�error(16,"")
4�
>� "LOAD "+file$+" "+�~text%
H
mptr=1
R�
\�
f
p� �load_dict(file$)
z� I%,L%
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~dict%
�tok%=dict%?2:L%=0
�!� tok%=0 tok%=128 � tok%-=128
��
��
�
�� �load_files(filename$)
�0�load_objs("<Alps$Data>.Objects."+filename$)
�/�load_rooms("<Alps$Data>.Rooms."+filename$)
�0�load_pix("<Alps$Data>.Pictures."+filename$)
�load_vocab(filename$)
3�load_program("<Alps$Data>.Program."+filename$)
-�load_text("<Alps$Data>.Text."+filename$)
$-�load_dict("<Alps$Data>.Dict."+filename$)
.-� "LOAD <Alps$Resources>pbytes "+�~pbytes
8�
B
L� �getname
Vin%=� "<Alps$Data>.Game"
`�#in%,name$
j	�#in%
t
=name$
~
�� �getmode
�in%=� "<Alps$Data>.Game"
��#in%,name$
��#in%,mode%
�	�#in%
�
=mode%
�
�� �getmodeinfo
�� x,y,xeig,yeig,cols
�
mode=�
�
�1ș "OS_ReadModeVariable",mode,1 � ,,textcols%
1ș "OS_ReadModeVariable",mode,2 � ,,textrows%

text_maxllen%=textcols%-2
,ș "OS_ReadModeVariable",mode,3 � ,,cols
,ș "OS_ReadModeVariable",mode,4 � ,,xeig
(,ș "OS_ReadModeVariable",mode,5 � ,,yeig
20ș "OS_ReadModeVariable",mode,7 � ,,scrnsize
<*ș "OS_ReadModeVariable",mode,11 � ,,x
F*ș "OS_ReadModeVariable",mode,12 � ,,y
P-scrw=((x+1)<<xeig)-1:scrh=((y+1)<<yeig)-1
Z�
�
00000000  0d 00 0a 1f f4 20 3e 24  2e 21 41 4c 50 53 2e 52  |..... >$.!ALPS.R|
00000010  65 73 6f 75 72 63 65 73  2e 4c 6f 61 64 65 72 0d  |esources.Loader.|
00000020  00 14 2b f4 20 28 43 29  20 31 39 38 39 20 50 2e  |..+. (C) 1989 P.|
00000030  20 48 61 77 74 68 6f 72  6e 65 2f 41 6c 70 69 6e  | Hawthorne/Alpin|
00000040  65 20 53 6f 66 74 77 61  72 65 0d 00 1e 04 0d 00  |e Software......|
00000050  28 3d f4 20 4f 4e 20 45  52 52 4f 52 20 65 72 72  |(=. ON ERROR err|
00000060  66 6c 61 67 3d 46 4e 65  72 72 6f 72 3a 49 46 20  |flag=FNerror:IF |
00000070  65 72 72 66 6c 61 67 3d  31 20 54 48 45 4e 20 45  |errflag=1 THEN E|
00000080  4e 44 20 45 4c 53 45 20  52 55 4e 0d 00 32 12 6c  |ND ELSE RUN..2.l|
00000090  6f 61 64 73 63 72 65 65  6e 24 3d 22 22 0d 00 5a  |oadscreen$=""..Z|
000000a0  12 6c 6f 61 64 5f 62 75  74 74 6f 6e 73 3d b9 0d  |.load_buttons=..|
000000b0  00 6e 04 0d 00 78 28 6e  61 6d 65 24 3d a4 67 65  |.n...x(name$=.ge|
000000c0  74 6e 61 6d 65 3a 6d 6f  64 65 25 3d a4 67 65 74  |tname:mode%=.get|
000000d0  6d 6f 64 65 3a f2 69 6e  69 74 32 0d 00 82 04 0d  |mode:.init2.....|
000000e0  00 96 0b eb 20 6d 6f 64  65 25 0d 00 a0 10 f2 67  |.... mode%.....g|
000000f0  65 74 6d 6f 64 65 69 6e  66 6f 0d 00 aa 04 0d 00  |etmodeinfo......|
00000100  b4 0c 2a 46 58 32 30 30  2c 31 0d 00 be 04 0d 00  |..*FX200,1......|
00000110  c8 04 0d 00 d2 14 d1 3d  30 3a 6b 65 79 70 72 65  |.......=0:keypre|
00000120  73 73 65 64 3d a3 0d 00  dc 9c f4 20 59 6f 75 20  |ssed=...... You |
00000130  63 61 6e 20 74 79 70 65  20 52 45 4d 3c 73 70 61  |can type REM<spa|
00000140  63 65 3e 20 61 74 20 74  68 65 20 73 74 61 72 74  |ce> at the start|
00000150  20 6f 66 20 74 68 65 20  6e 65 78 74 20 6c 69 6e  | of the next lin|
00000160  65 20 74 6f 20 72 65 6d  6f 76 65 20 74 68 65 20  |e to remove the |
00000170  62 65 65 70 21 20 41 6c  73 6f 20 64 65 6c 65 74  |beep! Also delet|
00000180  65 20 74 68 65 20 66 6f  75 72 20 73 74 61 72 73  |e the four stars|
00000190  20 68 65 72 65 3a 20 2a  2a 2a 2a 74 6f 20 6b 65  | here: ****to ke|
000001a0  65 70 20 74 68 65 20 75  73 65 72 20 63 6f 64 65  |ep the user code|
000001b0  20 61 64 64 72 65 73 73  20 75 6e 63 68 61 6e 67  | address unchang|
000001c0  65 64 0d 00 e6 07 ef 20  37 0d 00 f0 05 f5 0d 00  |ed..... 7.......|
000001d0  fa 22 e7 20 a6 28 2d 39  29 20 80 20 a6 28 2d 36  |.". .(-9) . .(-6|
000001e0  29 20 8c 20 6b 65 79 70  72 65 73 73 65 64 3d b9  |) . keypressed=.|
000001f0  0d 01 04 0b fd 20 91 3e  31 30 30 0d 01 0e 35 e7  |..... .>100...5.|
00000200  20 6b 65 79 70 72 65 73  73 65 64 20 8c 20 f1 22  | keypressed . ."|
00000210  55 73 65 72 20 63 6f 64  65 20 61 64 64 72 65 73  |User code addres|
00000220  73 3d 20 22 3b 75 73 65  72 63 6f 64 65 25 3a fa  |s= ";usercode%:.|
00000230  0d 01 18 04 0d 01 22 25  6f 70 74 69 6f 6e 6e 61  |......"%optionna|
00000240  6d 65 24 3d 22 3c 41 6c  70 73 24 44 61 74 61 3e  |me$="<Alps$Data>|
00000250  2e 4f 70 74 69 6f 6e 73  22 0d 01 2c 19 62 61 72  |.Options"..,.bar|
00000260  66 67 63 6f 6c 3d 30 3a  62 61 72 62 67 63 6f 6c  |fgcol=0:barbgcol|
00000270  3d 31 0d 01 36 04 0d 01  40 25 de 20 6b 65 79 24  |=1..6...@%. key$|
00000280  28 31 32 29 3a f4 20 46  75 6e 63 74 69 6f 6e 20  |(12):. Function |
00000290  6b 65 79 20 73 74 72 69  6e 67 73 0d 01 4a 28 de  |key strings..J(.|
000002a0  20 62 61 72 79 28 33 2c  32 29 3a f4 20 72 67 62  | bary(3,2):. rgb|
000002b0  20 62 61 72 20 67 72 61  70 68 20 79 20 63 6f 6f  | bar graph y coo|
000002c0  72 64 73 0d 01 54 04 0d  01 5e 17 61 72 65 61 5f  |rds..T...^.area_|
000002d0  73 69 7a 65 25 3d 73 63  72 6e 73 69 7a 65 0d 01  |size%=scrnsize..|
000002e0  68 04 0d 01 72 32 de 20  61 72 65 61 25 20 61 72  |h...r2. area% ar|
000002f0  65 61 5f 73 69 7a 65 25  3a f4 20 53 70 72 69 74  |ea_size%:. Sprit|
00000300  65 20 61 72 65 61 20 28  66 6f 72 20 73 63 72 65  |e area (for scre|
00000310  65 6e 73 29 0d 01 7c 04  0d 01 86 0f e3 20 62 61  |ens)..|...... ba|
00000320  72 3d 31 20 b8 20 33 0d  01 90 3c 20 20 f3 20 62  |r=1 . 3...<  . b|
00000330  61 72 79 28 62 61 72 2c  31 29 2c 62 61 72 79 28  |ary(bar,1),bary(|
00000340  62 61 72 2c 32 29 3a f4  20 72 65 61 64 20 62 6f  |bar,2):. read bo|
00000350  74 74 6f 6d 20 61 6e 64  20 74 6f 70 20 63 6f 6f  |ttom and top coo|
00000360  72 64 73 0d 01 9a 09 ed  20 62 61 72 0d 01 a4 04  |rds..... bar....|
00000370  0d 01 ae 1d dc 20 34 34  35 2c 34 37 37 2c 33 38  |..... 445,477,38|
00000380  36 2c 34 31 38 2c 33 32  37 2c 33 35 39 0d 01 b8  |6,418,327,359...|
00000390  04 0d 01 c2 04 0d 01 cc  0d f2 6c 6f 61 64 5f 70  |..........load_p|
000003a0  61 6c 0d 01 d6 1e 2a 50  52 49 4e 54 20 3c 41 6c  |al....*PRINT <Al|
000003b0  70 73 24 44 61 74 61 3e  2e 63 68 61 72 73 65 74  |ps$Data>.charset|
000003c0  0d 01 e0 04 0d 01 ea 04  0d 01 f4 0f f4 20 50 49  |............. PI|
000003d0  43 43 59 6c 6f 61 64 0d  01 fe 04 0d 02 08 17 e7  |CCYload.........|
000003e0  20 6c 6f 61 64 73 63 72  65 65 6e 24 3c 3e 22 22  | loadscreen$<>""|
000003f0  20 8c 0d 02 12 3e ff 20  22 4c 4f 41 44 20 3c 41  | ....>. "LOAD <A|
00000400  6c 70 73 24 44 61 74 61  3e 2e 50 69 63 74 75 72  |lps$Data>.Pictur|
00000410  65 73 2e 22 2b 6c 6f 61  64 73 63 72 65 65 6e 24  |es."+loadscreen$|
00000420  2b 22 20 22 2b c3 7e 28  61 72 65 61 25 2b 34 29  |+" "+.~(area%+4)|
00000430  0d 02 1c 15 21 61 72 65  61 25 3d 61 72 65 61 5f  |....!area%=area_|
00000440  73 69 7a 65 25 0d 02 26  2d c8 99 20 22 4f 53 5f  |size%..&-.. "OS_|
00000450  53 70 72 69 74 65 4f 70  22 2c 35 34 36 2c 61 72  |SpriteOp",546,ar|
00000460  65 61 25 2c 61 72 65 61  25 2b 31 36 2c 30 2c 30  |ea%,area%+16,0,0|
00000470  2c 38 0d 02 30 11 d1 3d  30 3a f5 20 fd 20 91 3e  |,8..0..=0:. . .>|
00000480  35 30 30 0d 02 3a 05 cd  0d 02 44 04 0d 02 4e 13  |500..:....D...N.|
00000490  f4 20 4c 6f 61 64 20 62  75 74 74 6f 6e 73 3f 0d  |. Load buttons?.|
000004a0  02 58 14 e7 20 6c 6f 61  64 5f 62 75 74 74 6f 6e  |.X.. load_button|
000004b0  73 20 8c 0d 02 62 32 ff  28 22 4c 4f 41 44 20 3c  |s ...b2.("LOAD <|
000004c0  41 6c 70 73 24 52 65 73  6f 75 72 63 65 73 3e 62  |Alps$Resources>b|
000004d0  75 74 74 6f 6e 73 20 22  2b c3 7e 28 61 72 65 61  |uttons "+.~(area|
000004e0  25 2b 34 29 29 0d 02 6c  15 21 61 72 65 61 25 3d  |%+4))..l.!area%=|
000004f0  61 72 65 61 5f 73 69 7a  65 25 0d 02 76 38 f4 20  |area_size%..v8. |
00000500  52 65 61 64 20 74 68 65  20 73 63 61 6c 65 20 66  |Read the scale f|
00000510  61 63 74 6f 72 73 20 61  6e 64 20 70 69 78 65 6c  |actors and pixel|
00000520  20 74 72 61 6e 73 6c 61  74 69 6f 6e 20 74 61 62  | translation tab|
00000530  6c 65 0d 02 80 40 c8 99  20 22 57 69 6d 70 5f 52  |le...@.. "Wimp_R|
00000540  65 61 64 50 69 78 54 72  61 6e 73 22 2c 26 32 30  |eadPixTrans",&20|
00000550  30 2c 61 72 65 61 25 2c  61 72 65 61 25 2b 31 36  |0,area%,area%+16|
00000560  2c 30 2c 30 2c 30 2c 73  63 61 6c 65 2c 70 69 78  |,0,0,0,scale,pix|
00000570  74 72 0d 02 8a 19 f4 20  4e 6f 77 20 50 75 74 53  |tr..... Now PutS|
00000580  70 72 69 74 65 53 63 61  6c 65 64 0d 02 94 3a c8  |priteScaled...:.|
00000590  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000005a0  26 32 33 34 2c 61 72 65  61 25 2c 61 72 65 61 25  |&234,area%,area%|
000005b0  2b 31 36 2c 30 2c 30 2c  38 2c 73 63 61 6c 65 2c  |+16,0,0,8,scale,|
000005c0  70 69 78 74 72 0d 02 9e  22 ef 20 32 38 2c 30 2c  |pixtr...". 28,0,|
000005d0  74 65 78 74 72 6f 77 73  25 2d 35 2c 74 65 78 74  |textrows%-5,text|
000005e0  63 6f 6c 73 25 2c 30 0d  02 a8 05 cc 0d 02 b2 20  |cols%,0........ |
000005f0  ef 20 32 38 2c 30 2c 74  65 78 74 72 6f 77 73 25  |. 28,0,textrows%|
00000600  2c 74 65 78 74 63 6f 6c  73 25 2c 30 0d 02 bc 05  |,textcols%,0....|
00000610  cd 0d 02 c6 04 0d 02 d0  04 0d 02 da 0b 2a 46 58  |.............*FX|
00000620  31 35 2c 30 0d 02 e4 0c  2a 50 4f 49 4e 54 45 52  |15,0....*POINTER|
00000630  0d 02 ee 08 c8 97 20 ee  0d 02 f8 0f c8 97 20 b8  |...... ....... .|
00000640  20 35 35 30 2c 34 38 0d  03 02 04 0d 03 0c 16 69  | 550,48........i|
00000650  6e 25 3d 8e 28 6f 70 74  69 6f 6e 6e 61 6d 65 24  |n%=.(optionname$|
00000660  29 0d 03 16 0c 63 68 6f  69 63 65 3d a3 0d 03 20  |)....choice=... |
00000670  20 e7 20 69 6e 25 3c 3e  30 20 8c 20 63 68 6f 69  | . in%<>0 . choi|
00000680  63 65 3d a4 6c 6f 61 64  28 69 6e 25 29 0d 03 2a  |ce=.load(in%)..*|
00000690  13 e7 20 63 68 6f 69 63  65 20 e5 20 8d 44 56 44  |.. choice . .DVD|
000006a0  0d 03 34 04 0d 03 3e 05  f5 0d 03 48 2e e6 31 33  |..4...>....H..13|
000006b0  31 3a fb 31 33 31 3a da  3a db 3a ee 3a fb 20 31  |1:.131:.:.:.:. 1|
000006c0  31 3a f1 8a 33 33 29 22  46 55 4e 43 54 49 4f 4e  |1:..33)"FUNCTION|
000006d0  20 4b 45 59 53 22 27 0d  03 52 ef 20 20 fb 20 37  | KEYS"'..R.  . 7|
000006e0  3a c8 99 20 22 4f 53 5f  50 72 65 74 74 79 50 72  |:.. "OS_PrettyPr|
000006f0  69 6e 74 22 2c 22 59 6f  75 20 6d 61 79 20 65 6e  |int","You may en|
00000700  74 65 72 20 75 70 20 74  6f 20 74 77 65 6c 76 65  |ter up to twelve|
00000710  20 65 78 74 72 61 20 63  6f 6d 6d 61 6e 64 20 73  | extra command s|
00000720  74 72 69 6e 67 73 20 74  6f 20 62 65 20 6f 70 65  |trings to be ope|
00000730  72 61 74 65 64 20 62 79  20 74 68 65 20 46 31 2e  |rated by the F1.|
00000740  2e 46 31 32 20 72 65 64  20 6b 65 79 73 2e 20 54  |.F12 red keys. T|
00000750  68 65 73 65 20 61 72 65  20 69 6e 20 61 64 64 69  |hese are in addi|
00000760  74 69 6f 6e 20 74 6f 20  74 68 65 20 63 6f 6d 6d  |tion to the comm|
00000770  61 6e 64 73 20 61 6c 72  65 61 64 79 20 61 6c 6c  |ands already all|
00000780  6f 63 61 74 65 64 20 74  6f 20 74 68 65 20 6f 74  |ocated to the ot|
00000790  68 65 72 20 27 62 75 74  74 6f 6e 73 27 20 28 4e  |her 'buttons' (N|
000007a0  42 20 7c 4d 20 63 61 6e  20 62 65 20 75 73 65 64  |B |M can be used|
000007b0  20 61 73 20 74 68 65 20  3c 72 65 74 75 72 6e 3e  | as the <return>|
000007c0  20 6b 65 79 29 22 0d 03  5c 07 20 20 f1 0d 03 66  | key)"..\.  ...f|
000007d0  0d 20 20 2a 46 58 32 31  2c 30 0d 03 70 04 0d 03  |.  *FX21,0..p...|
000007e0  7a 12 20 20 e3 20 6b 65  79 3d 31 20 b8 20 31 32  |z.  . key=1 . 12|
000007f0  0d 03 84 31 20 20 20 20  f1 22 45 6e 74 65 72 20  |...1    ."Enter |
00000800  73 74 72 69 6e 67 20 66  6f 72 20 6b 65 79 20 46  |string for key F|
00000810  22 3b 6b 65 79 3a e8 20  6b 65 79 24 28 6b 65 79  |";key:. key$(key|
00000820  29 0d 03 8e 23 20 20 20  20 ff 28 22 4b 45 59 22  |)...#    .("KEY"|
00000830  2b c3 6b 65 79 2b 22 20  22 2b 6b 65 79 24 28 6b  |+.key+" "+key$(k|
00000840  65 79 29 29 0d 03 98 0b  20 20 ed 20 6b 65 79 0d  |ey))....  . key.|
00000850  03 a2 04 0d 03 ac 07 20  20 87 0d 03 b6 3c 20 20  |.......  ....<  |
00000860  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000870  2c 26 32 33 34 2c 61 72  65 61 25 2c 61 72 65 61  |,&234,area%,area|
00000880  25 2b 31 36 2c 30 2c 30  2c 38 2c 73 63 61 6c 65  |%+16,0,0,8,scale|
00000890  2c 70 69 78 74 72 0d 03  c0 36 20 20 fb 20 38 3a  |,pixtr...6  . 8:|
000008a0  f1 27 27 22 4f 4b 3f 20  43 6c 69 63 6b 20 27 59  |.''"OK? Click 'Y|
000008b0  45 53 27 20 6f 72 20 27  4e 4f 27 20 6f 72 20 70  |ES' or 'NO' or p|
000008c0  72 65 73 73 20 59 20 6f  72 20 4e 22 0d 03 ca 0b  |ress Y or N"....|
000008d0  20 20 6b 65 79 3d 30 0d  03 d4 04 0d 03 de 1b 20  |  key=0........ |
000008e0  20 f5 3a c8 97 20 58 25  2c 59 25 2c 42 25 3a 41  | .:.. X%,Y%,B%:A|
000008f0  24 3d bf 28 30 29 0d 03  e8 1f 20 20 e7 20 41 24  |$=.(0)....  . A$|
00000900  3d 22 59 22 20 84 20 41  24 3d 22 79 22 20 8c 20  |="Y" . A$="y" . |
00000910  6b 65 79 3d 37 0d 03 f2  1f 20 20 e7 20 41 24 3d  |key=7....  . A$=|
00000920  22 4e 22 20 84 20 41 24  3d 22 6e 22 20 8c 20 6b  |"N" . A$="n" . k|
00000930  65 79 3d 38 0d 03 fc 31  20 20 20 20 e7 20 42 25  |ey=8...1    . B%|
00000940  3d 34 20 f2 69 6e 28 58  25 2c 59 25 2c 6b 65 79  |=4 .in(X%,Y%,key|
00000950  29 3a f5 3a c8 97 58 25  2c 59 25 2c 42 25 3a fd  |):.:..X%,Y%,B%:.|
00000960  20 42 25 3d 30 0d 04 06  15 20 20 fd 20 6b 65 79  | B%=0....  . key|
00000970  3d 37 20 84 20 6b 65 79  3d 38 0d 04 10 04 0d 04  |=7 . key=8......|
00000980  1a 0b fd 20 6b 65 79 3d  37 0d 04 24 04 0d 04 2e  |... key=7..$....|
00000990  05 db 0d 04 38 4c f2 57  72 69 74 65 4f 75 74 46  |....8L.WriteOutF|
000009a0  69 6c 65 3a fb 36 3a f1  27 27 22 54 68 65 73 65  |ile:.6:.''"These|
000009b0  20 66 75 6e 63 74 69 6f  6e 20 6b 65 79 73 20 68  | function keys h|
000009c0  61 76 65 20 62 65 65 6e  20 73 61 76 65 64 20 66  |ave been saved f|
000009d0  6f 72 20 66 75 74 75 72  65 20 75 73 65 22 0d 04  |or future use"..|
000009e0  42 04 0d 04 4c 0c 41 3d  a6 28 32 30 30 29 0d 04  |B...L.A=.(200)..|
000009f0  56 19 ef 20 32 34 2c 30  3b 31 34 34 3b 73 63 72  |V.. 24,0;144;scr|
00000a00  77 3b 73 63 72 68 3b 0d  04 60 14 fb 20 31 33 31  |w;scrh;..`.. 131|
00000a10  3a e6 31 33 31 3a db 3a  fb 20 33 0d 04 6a 04 0d  |:.131:.:. 3..j..|
00000a20  04 74 04 0d 04 7e 16 f2  6c 6f 61 64 5f 66 69 6c  |.t...~..load_fil|
00000a30  65 73 28 6e 61 6d 65 24  29 0d 04 88 0c 2a 46 58  |es(name$)....*FX|
00000a40  32 32 35 2c 31 0d 04 92  08 f2 72 75 6e 0d 04 9c  |225,1.....run...|
00000a50  17 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |... "Wimp_CloseD|
00000a60  6f 77 6e 22 0d 04 a6 05  e0 0d 04 b0 04 0d 04 ba  |own"............|
00000a70  16 dd 20 f2 69 6e 28 58  25 2c 59 25 2c f8 20 63  |.. .in(X%,Y%,. c|
00000a80  6f 6d 29 0d 04 c4 10 63  6f 6d 3d 30 3a 72 6f 77  |om)....com=0:row|
00000a90  3d 39 39 0d 04 ce 1a e7  20 59 25 3e 37 39 20 80  |=99..... Y%>79 .|
00000aa0  20 59 25 3c 31 32 35 20  72 6f 77 3d 31 0d 04 d8  | Y%<125 row=1...|
00000ab0  18 e7 20 59 25 3e 30 20  80 20 59 25 3c 35 31 20  |.. Y%>0 . Y%<51 |
00000ac0  72 6f 77 3d 30 0d 04 e2  1f 63 6f 6c 3d 28 58 25  |row=0....col=(X%|
00000ad0  2d 6d 69 6e 78 29 20 81  20 28 77 69 64 74 68 29  |-minx) . (width)|
00000ae0  20 2b 20 31 0d 04 ec 26  e7 20 63 6f 6c 3c 3d 72  | + 1...&. col<=r|
00000af0  6f 77 6c 65 6e 20 8c 20  63 6f 6d 3d 63 6f 6c 2b  |owlen . com=col+|
00000b00  72 6f 77 6c 65 6e 2a 72  6f 77 0d 04 f6 05 e1 0d  |rowlen*row......|
00000b10  05 00 04 0d 05 0a 10 dd  20 a4 6c 6f 61 64 28 69  |........ .load(i|
00000b20  6e 25 29 0d 05 14 62 fb  37 3a fb 20 31 33 31 3a  |n%)...b.7:. 131:|
00000b30  f1 8a 32 2c 30 29 3b 22  20 4c 6f 61 64 20 79 6f  |..2,0);" Load yo|
00000b40  75 72 20 73 61 76 65 64  20 66 75 6e 63 74 69 6f  |ur saved functio|
00000b50  6e 20 6b 65 79 20 73 65  74 74 69 6e 67 73 3f 20  |n key settings? |
00000b60  43 6c 69 63 6b 20 27 59  45 53 27 20 4f 52 20 27  |Click 'YES' OR '|
00000b70  4e 4f 27 20 6f 72 20 70  72 65 73 73 20 59 20 6f  |NO' or press Y o|
00000b80  72 20 4e 20 22 0d 05 1e  09 6b 65 79 3d 30 0d 05  |r N "....key=0..|
00000b90  28 05 f5 0d 05 32 19 20  20 c8 97 20 58 25 2c 59  |(....2.  .. X%,Y|
00000ba0  25 2c 42 25 3a 41 24 3d  bf 28 30 29 0d 05 3c 1f  |%,B%:A$=.(0)..<.|
00000bb0  20 20 e7 20 41 24 3d 22  59 22 20 84 20 41 24 3d  |  . A$="Y" . A$=|
00000bc0  22 79 22 20 8c 20 6b 65  79 3d 37 0d 05 46 1f 20  |"y" . key=7..F. |
00000bd0  20 e7 20 41 24 3d 22 4e  22 20 84 20 41 24 3d 22  | . A$="N" . A$="|
00000be0  6e 22 20 8c 20 6b 65 79  3d 38 0d 05 50 1b 20 20  |n" . key=8..P.  |
00000bf0  e7 20 42 25 3d 34 20 f2  69 6e 28 58 25 2c 59 25  |. B%=4 .in(X%,Y%|
00000c00  2c 6b 65 79 29 0d 05 5a  13 fd 20 6b 65 79 3d 37  |,key)..Z.. key=7|
00000c10  20 84 20 6b 65 79 3d 38  0d 05 64 2a e7 20 6b 65  | . key=8..d*. ke|
00000c20  79 3d 37 20 f2 52 65 61  64 49 6e 46 69 6c 65 28  |y=7 .ReadInFile(|
00000c30  69 6e 25 29 3a 3d b9 20  8b 20 d9 23 69 6e 25 3a  |in%):=. . .#in%:|
00000c40  3d a3 0d 05 6e 04 0d 05  78 18 dd 20 f2 52 65 61  |=...n...x.. .Rea|
00000c50  64 49 6e 46 69 6c 65 28  63 68 61 6e 25 29 0d 05  |dInFile(chan%)..|
00000c60  82 04 0d 05 8c 0f e3 20  4b 25 3d 31 20 b8 20 31  |....... K%=1 . 1|
00000c70  32 0d 05 96 16 20 20 e8  23 63 68 61 6e 25 2c 6b  |2....  .#chan%,k|
00000c80  65 79 24 28 4b 25 29 0d  05 a0 22 20 20 ff 28 22  |ey$(K%)..."  .("|
00000c90  4b 45 59 20 22 2b c3 28  4b 25 29 2b 22 20 22 2b  |KEY "+.(K%)+" "+|
00000ca0  6b 65 79 24 28 4b 25 29  29 0d 05 aa 05 ed 0d 05  |key$(K%)).......|
00000cb0  b4 04 0d 05 be 0c d9 20  23 63 68 61 6e 25 0d 05  |....... #chan%..|
00000cc0  c8 05 e1 0d 05 d2 04 0d  05 dc 13 dd 20 f2 57 72  |............ .Wr|
00000cd0  69 74 65 4f 75 74 46 69  6c 65 0d 05 e6 04 0d 05  |iteOutFile......|
00000ce0  f0 17 63 68 61 6e 25 3d  ae 20 6f 70 74 69 6f 6e  |..chan%=. option|
00000cf0  6e 61 6d 65 24 0d 05 fa  04 0d 06 04 0f e3 20 4b  |name$......... K|
00000d00  25 3d 31 20 b8 20 31 32  0d 06 0e 16 20 20 f1 23  |%=1 . 12....  .#|
00000d10  63 68 61 6e 25 2c 6b 65  79 24 28 4b 25 29 0d 06  |chan%,key$(K%)..|
00000d20  18 05 ed 0d 06 22 04 0d  06 2c 0b d9 23 63 68 61  |....."...,..#cha|
00000d30  6e 25 0d 06 36 05 e1 0d  06 40 04 0d 06 4a 04 0d  |n%..6....@...J..|
00000d40  06 54 0c dd 20 a4 65 72  72 6f 72 0d 06 5e 11 e6  |.T.. .error..^..|
00000d50  20 31 3a 77 69 64 74 68  3d 37 30 30 0d 06 68 25  | 1:width=700..h%|
00000d60  72 65 70 6f 72 74 77 69  64 74 68 3d 28 a9 28 f6  |reportwidth=(.(.|
00000d70  24 29 2b a9 28 c3 28 9e  29 29 2b 31 32 29 2a 31  |$)+.(.(.))+12)*1|
00000d80  36 0d 06 72 2b e7 20 77  69 64 74 68 3c 72 65 70  |6..r+. width<rep|
00000d90  6f 72 74 77 69 64 74 68  20 8c 20 77 69 64 74 68  |ortwidth . width|
00000da0  3d 72 65 70 6f 72 74 77  69 64 74 68 0d 06 7c 1b  |=reportwidth..|.|
00000db0  c8 93 20 c8 90 20 32 30  30 2c 33 30 30 2c 77 69  |.. .. 200,300,wi|
00000dc0  64 74 68 2c 32 30 34 0d  06 86 1b c8 97 20 c8 93  |dth,204...... ..|
00000dd0  20 32 30 30 2c 33 30 30  2c 77 69 64 74 68 2c 32  | 200,300,width,2|
00000de0  30 34 0d 06 90 31 e6 20  37 3a ef 20 35 3a ec 20  |04...1. 7:. 5:. |
00000df0  32 31 36 2c 34 35 30 3a  f1 22 53 79 73 74 65 6d  |216,450:."System|
00000e00  20 72 65 70 6f 72 74 73  20 61 6e 20 65 72 72 6f  | reports an erro|
00000e10  72 3a 22 0d 06 9a 2a ec  20 32 31 36 2c 34 30 30  |r:"...*. 216,400|
00000e20  3a f1 20 f6 24 3b 3a e7  20 9e 3e 30 20 8c 20 f1  |:. .$;:. .>0 . .|
00000e30  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 0d 06 a4  |" at line ";....|
00000e40  36 e6 20 33 3a c8 93 20  c8 90 20 35 36 30 2c 33  |6. 3:.. .. 560,3|
00000e50  32 30 2c 31 34 30 2c 33  32 3a ec 20 35 36 38 2c  |20,140,32:. 568,|
00000e60  33 34 38 3a e6 20 37 3a  f1 22 43 4f 4e 54 49 4e  |348:. 7:."CONTIN|
00000e70  55 45 22 0d 06 ae 31 e6  20 33 3a c8 93 20 c8 90  |UE"...1. 3:.. ..|
00000e80  20 33 36 30 2c 33 32 30  2c 37 36 2c 33 32 3a ec  | 360,320,76,32:.|
00000e90  20 33 36 38 2c 33 34 38  3a e6 20 37 3a f1 22 51  | 368,348:. 7:."Q|
00000ea0  55 49 54 22 0d 06 b8 04  0d 06 c2 0a 66 6c 61 67  |UIT"........flag|
00000eb0  3d 30 0d 06 cc 05 f5 0d  06 d6 07 20 20 f5 0d 06  |=0.........  ...|
00000ec0  e0 09 20 20 20 20 f5 0d  06 ea 12 20 20 20 20 20  |..    .....     |
00000ed0  20 c8 97 20 58 2c 59 2c  42 0d 06 f4 0d 20 20 20  | .. X,Y,B....   |
00000ee0  20 fd 20 42 3d 34 0d 06  fe 15 20 20 fd 20 59 3e  | . B=4....  . Y>|
00000ef0  33 32 30 20 80 20 59 3c  33 35 36 0d 07 08 04 0d  |320 . Y<356.....|
00000f00  07 12 1c e7 20 58 3e 35  36 30 20 80 20 58 3c 37  |.... X>560 . X<7|
00000f10  30 30 20 8c 20 66 6c 61  67 3d 32 0d 07 1c 1c e7  |00 . flag=2.....|
00000f20  20 58 3e 33 36 30 20 80  20 58 3c 34 33 36 20 8c  | X>360 . X<436 .|
00000f30  20 66 6c 61 67 3d 31 0d  07 26 04 0d 07 30 15 fd  | flag=1..&...0..|
00000f40  20 66 6c 61 67 3d 31 20  84 20 66 6c 61 67 3d 32  | flag=1 . flag=2|
00000f50  0d 07 3a 04 0d 07 44 07  e6 20 30 0d 07 4e 1b c8  |..:...D.. 0..N..|
00000f60  93 20 c8 90 20 32 30 30  2c 33 30 30 2c 77 69 64  |. .. 200,300,wid|
00000f70  74 68 2c 32 30 34 0d 07  58 09 ef 20 34 3a 87 0d  |th,204..X.. 4:..|
00000f80  07 62 17 c8 97 20 c8 93  20 30 2c 30 2c 31 32 37  |.b... .. 0,0,127|
00000f90  39 2c 31 30 32 33 0d 07  6c 09 3d 66 6c 61 67 0d  |9,1023..l.=flag.|
00000fa0  07 76 04 0d 07 80 04 0d  07 8a 0c dd 20 f2 69 6e  |.v.......... .in|
00000fb0  69 74 32 0d 07 94 17 c8  99 20 22 57 69 6d 70 5f  |it2...... "Wimp_|
00000fc0  43 6c 6f 73 65 44 6f 77  6e 22 0d 07 9e 0b 6d 69  |CloseDown"....mi|
00000fd0  6e 78 3d 33 32 0d 07 a8  0c 77 69 64 74 68 3d 38  |nx=32....width=8|
00000fe0  30 0d 07 b2 09 79 25 3d  37 32 0d 07 bc 11 58 25  |0....y%=72....X%|
00000ff0  3d 6d 69 6e 78 3a 59 25  3d 79 25 0d 07 c6 24 73  |=minx:Y%=y%...$s|
00001000  70 72 69 74 65 73 3d 32  36 3a f4 20 4e 75 6d 62  |prites=26:. Numb|
00001010  65 72 20 6f 66 20 27 62  75 74 74 6f 6e 73 27 0d  |er of 'buttons'.|
00001020  07 d0 16 72 6f 77 6c 65  6e 3d 73 70 72 69 74 65  |...rowlen=sprite|
00001030  73 20 81 20 32 0d 07 da  14 58 4c 3d 34 34 38 3a  |s . 2....XL=448:|
00001040  58 52 3d 58 4c 2b 32 35  35 0d 07 e4 04 0d 07 ee  |XR=XL+255.......|
00001050  27 f4 20 4d 61 6e 69 66  65 73 74 20 63 6f 6e 73  |'. Manifest cons|
00001060  74 61 6e 74 73 20 66 6f  72 20 74 68 65 20 73 79  |tants for the sy|
00001070  73 74 65 6d 0d 07 f8 32  6d 61 78 72 6d 73 3d 31  |stem...2maxrms=1|
00001080  30 30 30 3a 6d 61 78 6f  62 73 3d 32 35 35 3a 6d  |000:maxobs=255:m|
00001090  61 78 73 77 25 3d 31 30  3a 6d 61 78 74 6f 6b 65  |axsw%=10:maxtoke|
000010a0  6e 73 3d 31 32 38 0d 08  02 31 6d 61 78 6c 65 6e  |ns=128...1maxlen|
000010b0  3d 31 30 3a f4 20 4d 61  78 69 6d 75 6d 20 77 6f  |=10:. Maximum wo|
000010c0  72 64 20 6c 65 6e 67 74  68 20 69 6e 20 76 6f 63  |rd length in voc|
000010d0  61 62 75 6c 61 72 79 0d  08 0c 17 de 20 73 63 61  |abulary..... sca|
000010e0  6c 65 20 31 35 2c 70 69  78 74 72 20 31 35 0d 08  |le 15,pixtr 15..|
000010f0  16 04 0d 08 20 33 f4 20  52 6f 6f 6d 20 61 6e 64  |.... 3. Room and|
00001100  20 6f 62 6a 65 63 74 20  64 61 74 61 20 62 6c 6f  | object data blo|
00001110  63 6b 20 6c 65 6e 67 74  68 73 20 28 69 6e 20 62  |ck lengths (in b|
00001120  79 74 65 73 29 0d 08 2a  15 72 5f 6c 65 6e 3d 37  |ytes)..*.r_len=7|
00001130  34 3a 6f 5f 6c 65 6e 3d  31 36 0d 08 34 04 0d 08  |4:o_len=16..4...|
00001140  3e 35 6d 61 78 6d 73 67  3d 36 35 35 33 35 3a 6d  |>5maxmsg=65535:m|
00001150  61 78 6f 62 6e 3d 32 35  35 3a 6d 61 78 76 62 6e  |axobn=255:maxvbn|
00001160  3d 32 35 35 3a 6d 61 78  63 6f 6e 73 74 3d 36 35  |=255:maxconst=65|
00001170  35 33 35 0d 08 48 45 6d  61 78 61 64 6a 3d 32 35  |535..HEmaxadj=25|
00001180  35 3a 6d 61 78 70 72 65  70 3d 35 30 3a 6d 61 78  |5:maxprep=50:max|
00001190  63 6f 6e 6a 3d 35 30 3a  6d 61 78 73 70 65 63 3d  |conj=50:maxspec=|
000011a0  31 30 3a 6d 61 78 6e 6f  69 73 65 3d 31 30 3a 6d  |10:maxnoise=10:m|
000011b0  61 78 70 69 78 3d 35 30  0d 08 52 04 0d 08 5c 12  |axpix=50..R...\.|
000011c0  6e 6f 75 6e 5f 73 69 7a  65 3d 33 30 30 30 0d 08  |noun_size=3000..|
000011d0  66 12 76 65 72 62 5f 73  69 7a 65 3d 33 30 30 30  |f.verb_size=3000|
000011e0  0d 08 70 12 61 64 6a 63  5f 73 69 7a 65 3d 31 30  |..p.adjc_size=10|
000011f0  30 30 0d 08 7a 2e 70 72  65 70 5f 73 69 7a 65 3d  |00..z.prep_size=|
00001200  32 30 30 20 3a f4 20 53  69 7a 65 20 6f 66 20 70  |200 :. Size of p|
00001210  72 65 70 6f 73 69 74 69  6f 6e 73 20 6c 69 73 74  |repositions list|
00001220  0d 08 84 2e 63 6f 6e 6a  5f 73 69 7a 65 3d 31 30  |....conj_size=10|
00001230  30 20 3a f4 20 73 69 7a  65 20 6f 66 20 63 6f 6e  |0 :. size of con|
00001240  6a 75 6e 63 74 69 6f 6e  73 20 6c 69 73 74 0d 08  |junctions list..|
00001250  8e 3c 73 70 65 63 5f 73  69 7a 65 3d 31 30 30 20  |.<spec_size=100 |
00001260  3a f4 20 73 69 7a 65 20  6f 66 20 27 73 70 65 63  |:. size of 'spec|
00001270  69 61 6c 73 27 20 6c 69  73 74 20 28 49 54 2c 20  |ials' list (IT, |
00001280  54 48 45 4d 2c 20 41 4c  4c 29 0d 08 98 34 6e 6f  |THEM, ALL)...4no|
00001290  69 73 65 5f 73 69 7a 65  3d 31 30 30 3a f4 20 73  |ise_size=100:. s|
000012a0  69 7a 65 20 6f 66 20 27  6e 6f 69 73 65 27 20 6c  |ize of 'noise' l|
000012b0  69 73 74 20 28 54 48 45  2c 41 2c 41 4e 29 0d 08  |ist (THE,A,AN)..|
000012c0  a2 3d 61 72 65 66 5f 73  69 7a 65 3d 32 30 30 30  |.=aref_size=2000|
000012d0  3a f4 20 73 69 7a 65 20  6f 66 20 61 64 6a 65 63  |:. size of adjec|
000012e0  74 69 76 65 20 6f 62 6a  65 63 74 20 72 65 66 65  |tive object refe|
000012f0  72 65 6e 63 65 20 74 61  62 6c 65 0d 08 ac 39 6e  |rence table...9n|
00001300  72 65 66 5f 73 69 7a 65  3d 32 30 30 30 3a f4 20  |ref_size=2000:. |
00001310  73 69 7a 65 20 6f 66 20  6e 6f 75 6e 73 20 6f 62  |size of nouns ob|
00001320  6a 65 63 74 20 72 65 66  65 72 65 6e 63 65 20 74  |ject reference t|
00001330  61 62 6c 65 0d 08 b6 2d  70 69 78 5f 73 69 7a 65  |able...-pix_size|
00001340  3d 31 30 30 30 3a f4 20  73 69 7a 65 20 6f 66 20  |=1000:. size of |
00001350  70 69 78 20 66 69 6c 65  6e 61 6d 65 20 6c 69 73  |pix filename lis|
00001360  74 0d 08 c0 04 0d 08 ca  43 c8 99 20 22 4f 53 5f  |t.......C.. "OS_|
00001370  46 69 6c 65 22 2c 35 2c  22 3c 41 4c 50 53 24 44  |File",5,"<ALPS$D|
00001380  61 74 61 3e 2e 50 72 6f  67 72 61 6d 2e 22 2b 6e  |ata>.Program."+n|
00001390  61 6d 65 24 20 b8 20 66  74 79 70 65 2c 2c 2c 2c  |ame$ . ftype,,,,|
000013a0  63 6f 64 65 73 69 7a 65  0d 08 d4 40 c8 99 20 22  |codesize...@.. "|
000013b0  4f 53 5f 46 69 6c 65 22  2c 35 2c 22 3c 41 4c 50  |OS_File",5,"<ALP|
000013c0  53 24 44 61 74 61 3e 2e  54 65 78 74 2e 22 2b 6e  |S$Data>.Text."+n|
000013d0  61 6d 65 24 20 b8 20 66  74 79 70 65 2c 2c 2c 2c  |ame$ . ftype,,,,|
000013e0  6d 61 78 74 65 78 74 25  0d 08 de 04 0d 08 e8 12  |maxtext%........|
000013f0  64 69 63 74 5f 73 69 7a  65 3d 31 30 30 30 0d 08  |dict_size=1000..|
00001400  f2 04 0d 08 fc 86 de 20  6e 6f 75 6e 73 20 6e 6f  |....... nouns no|
00001410  75 6e 5f 73 69 7a 65 2c  76 65 72 62 73 20 76 65  |un_size,verbs ve|
00001420  72 62 5f 73 69 7a 65 2c  61 64 6a 65 63 74 73 20  |rb_size,adjects |
00001430  61 64 6a 63 5f 73 69 7a  65 2c 70 72 65 70 73 20  |adjc_size,preps |
00001440  70 72 65 70 5f 73 69 7a  65 2c 63 6f 6e 6a 73 20  |prep_size,conjs |
00001450  63 6f 6e 6a 5f 73 69 7a  65 2c 73 70 65 63 73 20  |conj_size,specs |
00001460  73 70 65 63 5f 73 69 7a  65 2c 6e 6f 69 73 65 20  |spec_size,noise |
00001470  6e 6f 69 73 65 5f 73 69  7a 65 2c 70 69 78 73 20  |noise_size,pixs |
00001480  70 69 78 5f 73 69 7a 65  0d 09 06 04 0d 09 10 3a  |pix_size.......:|
00001490  de 20 61 72 65 66 20 61  72 65 66 5f 73 69 7a 65  |. aref aref_size|
000014a0  2c 6e 72 65 66 20 6e 72  65 66 5f 73 69 7a 65 2c  |,nref nref_size,|
000014b0  76 65 72 62 5f 74 79 70  65 20 32 2a 28 6d 61 78  |verb_type 2*(max|
000014c0  76 62 6e 2b 31 29 0d 09  1a 3c f4 20 53 65 74 20  |vbn+1)...<. Set |
000014d0  75 70 20 64 61 74 61 20  61 72 65 61 73 20 66 6f  |up data areas fo|
000014e0  72 20 72 6f 6f 6d 73 20  61 6e 64 20 6f 62 6a 65  |r rooms and obje|
000014f0  63 74 73 20 61 6e 64 20  63 6c 65 61 72 20 74 68  |cts and clear th|
00001500  65 6d 0d 09 24 04 0d 09  2e 42 de 20 72 64 61 74  |em..$....B. rdat|
00001510  61 25 20 28 6d 61 78 72  6d 73 2b 31 29 2a 72 5f  |a% (maxrms+1)*r_|
00001520  6c 65 6e 2c 6f 64 61 74  61 25 20 28 6d 61 78 6f  |len,odata% (maxo|
00001530  62 73 2b 31 29 2a 6f 5f  6c 65 6e 2c 63 6f 6e 74  |bs+1)*o_len,cont|
00001540  72 6f 6f 6d 25 20 31 32  0d 09 38 04 0d 09 42 2a  |room% 12..8...B*|
00001550  6e 75 6d 5f 76 61 72 73  3d 36 30 3a f4 20 4e 75  |num_vars=60:. Nu|
00001560  6d 62 65 72 20 6f 66 20  41 4c 50 53 20 76 61 72  |mber of ALPS var|
00001570  69 61 62 6c 65 73 0d 09  4c 2e 76 61 72 5f 73 69  |iables..L.var_si|
00001580  7a 65 3d 6e 75 6d 5f 76  61 72 73 2a 32 3a f4 20  |ze=num_vars*2:. |
00001590  32 20 62 79 74 65 73 20  70 65 72 20 76 61 72 69  |2 bytes per vari|
000015a0  61 62 6c 65 0d 09 56 04  0d 09 60 1d f4 20 53 65  |able..V...`.. Se|
000015b0  74 20 75 70 20 74 68 65  20 73 61 76 65 20 62 75  |t up the save bu|
000015c0  66 66 65 72 73 0d 09 6a  2b 69 6e 69 74 61 72 65  |ffers..j+initare|
000015d0  61 73 69 7a 65 3d 37 2a  28 6d 61 78 6f 62 73 2b  |asize=7*(maxobs+|
000015e0  31 29 2b 32 32 2a 28 6d  61 78 72 6d 73 2b 31 29  |1)+22*(maxrms+1)|
000015f0  0d 09 74 3d de 20 69 6e  69 74 73 61 76 65 20 69  |..t=. initsave i|
00001600  6e 69 74 61 72 65 61 73  69 7a 65 2c 72 61 6d 73  |nitareasize,rams|
00001610  61 76 65 20 69 6e 69 74  61 72 65 61 73 69 7a 65  |ave initareasize|
00001620  2b 76 61 72 5f 73 69 7a  65 2b 31 32 38 0d 09 7e  |+var_size+128..~|
00001630  04 0d 09 88 1f f4 20 41  72 65 61 20 66 6f 72 20  |...... Area for |
00001640  73 74 6f 72 69 6e 67 20  6d 65 73 73 61 67 65 73  |storing messages|
00001650  0d 09 92 14 de 20 74 65  78 74 25 20 6d 61 78 74  |..... text% maxt|
00001660  65 78 74 25 0d 09 9c 04  0d 09 a6 0f 64 61 74 61  |ext%........data|
00001670  76 61 6c 69 64 3d b9 0d  09 b0 04 0d 09 ba 1b f4  |valid=..........|
00001680  20 53 65 74 20 75 70 20  74 68 65 20 64 69 63 74  | Set up the dict|
00001690  69 6f 6e 61 72 79 0d 09  c4 15 de 20 64 69 63 74  |ionary..... dict|
000016a0  25 20 64 69 63 74 5f 73  69 7a 65 0d 09 ce 04 0d  |% dict_size.....|
000016b0  09 d8 1d f4 20 53 65 74  20 75 70 20 74 68 65 20  |.... Set up the |
000016c0  70 72 6f 67 72 61 6d 20  61 72 65 61 0d 09 e2 04  |program area....|
000016d0  0d 09 ec 17 de 20 70 72  6f 67 72 61 6d 25 20 63  |..... program% c|
000016e0  6f 64 65 73 69 7a 65 0d  09 f6 04 0d 0a 00 27 f4  |odesize.......'.|
000016f0  20 44 69 6d 65 6e 73 69  6f 6e 20 74 68 65 20 6f  | Dimension the o|
00001700  74 68 65 72 20 61 72 72  61 79 73 20 6e 65 65 64  |ther arrays need|
00001710  65 64 0d 0a 0a 04 0d 0a  14 0e 75 63 73 69 7a 65  |ed........ucsize|
00001720  3d 35 30 30 0d 0a 1e 43  c8 99 20 22 4f 53 5f 46  |=500...C.. "OS_F|
00001730  69 6c 65 22 2c 35 2c 22  3c 41 6c 70 73 24 52 65  |ile",5,"<Alps$Re|
00001740  73 6f 75 72 63 65 73 3e  41 53 49 6f 62 6a 63 6f  |sources>ASIobjco|
00001750  64 65 22 20 b8 20 66 74  79 70 65 2c 2c 2c 2c 63  |de" . ftype,,,,c|
00001760  6f 64 65 73 69 7a 65 0d  0a 28 41 c8 99 20 22 4f  |odesize..(A.. "O|
00001770  53 5f 46 69 6c 65 22 2c  35 2c 22 3c 41 6c 70 73  |S_File",5,"<Alps|
00001780  24 52 65 73 6f 75 72 63  65 73 3e 70 62 79 74 65  |$Resources>pbyte|
00001790  73 22 20 b8 20 66 74 79  70 65 2c 2c 2c 2c 70 62  |s" . ftype,,,,pb|
000017a0  79 74 65 5f 73 69 7a 65  0d 0a 32 04 0d 0a 3c 38  |yte_size..2...<8|
000017b0  de 20 70 62 79 74 65 73  20 70 62 79 74 65 5f 73  |. pbytes pbyte_s|
000017c0  69 7a 65 2c 77 6f 72 6b  25 20 26 31 31 30 30 2c  |ize,work% &1100,|
000017d0  61 73 69 63 6f 64 65 25  20 63 6f 64 65 73 69 7a  |asicode% codesiz|
000017e0  65 2b 31 30 0d 0a 46 04  0d 0a 50 16 de 20 75 73  |e+10..F...P.. us|
000017f0  65 72 63 6f 64 65 25 20  75 63 73 69 7a 65 0d 0a  |ercode% ucsize..|
00001800  5a 04 0d 0a 64 10 72 75  6e 3d 61 73 69 63 6f 64  |Z...d.run=asicod|
00001810  65 25 0d 0a 6e 04 0d 0a  78 34 ff 28 22 4c 4f 41  |e%..n...x4.("LOA|
00001820  44 20 3c 41 6c 70 73 24  52 65 73 6f 75 72 63 65  |D <Alps$Resource|
00001830  73 3e 41 53 49 6f 62 6a  63 6f 64 65 20 22 2b c3  |s>ASIobjcode "+.|
00001840  7e 61 73 69 63 6f 64 65  25 29 0d 0a 82 05 e1 0d  |~asicode%)......|
00001850  0a 8c 04 0d 0a 96 04 0d  0a a0 0a dd 20 f2 72 75  |............ .ru|
00001860  6e 0d 0a aa 07 ea 20 85  0d 0a b4 1c 65 72 72 5f  |n..... .....err_|
00001870  63 6f 6c 3d 31 31 3a fb  31 33 30 3a fb 20 37 3a  |col=11:.130:. 7:|
00001880  e6 31 33 30 0d 0a be 5d  ee 20 85 20 ea 3a fb 20  |.130...]. . .:. |
00001890  65 72 72 5f 63 6f 6c 3a  e7 20 9f 3c 3e 31 37 20  |err_col:. .<>17 |
000018a0  f1 27 22 49 6e 74 65 72  70 72 65 74 65 72 20 72  |.'"Interpreter r|
000018b0  65 70 6f 72 74 73 20 61  20 72 75 6e 2d 74 69 6d  |eports a run-tim|
000018c0  65 20 65 72 72 6f 72 3a  20 22 f6 24 3a e5 20 8d  |e error: ".$:. .|
000018d0  74 78 4b 20 8b 20 f1 27  f6 24 3a e5 20 8d 74 78  |txK . .'.$:. .tx|
000018e0  4b 0d 0a c8 11 21 77 6f  72 6b 25 3d 72 64 61 74  |K....!work%=rdat|
000018f0  61 25 0d 0a d2 13 77 6f  72 6b 25 21 34 3d 76 65  |a%....work%!4=ve|
00001900  72 62 73 2b 33 0d 0a dc  13 77 6f 72 6b 25 21 38  |rbs+3....work%!8|
00001910  3d 6e 6f 75 6e 73 2b 33  0d 0a e6 17 77 6f 72 6b  |=nouns+3....work|
00001920  25 21 31 32 3d 70 72 6f  67 72 61 6d 25 2b 34 0d  |%!12=program%+4.|
00001930  0a f0 14 77 6f 72 6b 25  21 31 36 3d 74 65 78 74  |...work%!16=text|
00001940  25 2b 37 0d 0a fa 14 77  6f 72 6b 25 21 32 30 3d  |%+7....work%!20=|
00001950  64 69 63 74 25 2b 33 0d  0b 04 13 77 6f 72 6b 25  |dict%+3....work%|
00001960  21 32 34 3d 6f 64 61 74  61 25 0d 0b 0e 16 77 6f  |!24=odata%....wo|
00001970  72 6b 25 21 32 38 3d 61  64 6a 65 63 74 73 2b 33  |rk%!28=adjects+3|
00001980  0d 0b 18 14 77 6f 72 6b  25 21 33 32 3d 70 72 65  |....work%!32=pre|
00001990  70 73 2b 33 0d 0b 22 14  77 6f 72 6b 25 21 33 36  |ps+3..".work%!36|
000019a0  3d 63 6f 6e 6a 73 2b 33  0d 0b 2c 14 77 6f 72 6b  |=conjs+3..,.work|
000019b0  25 21 34 30 3d 73 70 65  63 73 2b 33 0d 0b 36 14  |%!40=specs+3..6.|
000019c0  77 6f 72 6b 25 21 34 34  3d 6e 6f 69 73 65 2b 33  |work%!44=noise+3|
000019d0  0d 0b 40 13 77 6f 72 6b  25 21 34 38 3d 70 69 78  |..@.work%!48=pix|
000019e0  73 2b 33 0d 0b 4a 1b f4  20 20 77 6f 72 6b 25 21  |s+3..J..  work%!|
000019f0  35 32 20 69 73 20 72 65  73 65 72 76 65 64 0d 0b  |52 is reserved..|
00001a00  54 15 77 6f 72 6b 25 21  35 36 3d 69 6e 69 74 73  |T.work%!56=inits|
00001a10  61 76 65 0d 0b 5e 16 77  6f 72 6b 25 21 36 30 3d  |ave..^.work%!60=|
00001a20  6c 61 73 74 5f 72 6f 6f  6d 0d 0b 68 1a 77 6f 72  |last_room..h.wor|
00001a30  6b 25 21 36 34 3d 6c 61  73 74 5f 6f 62 6a 65 63  |k%!64=last_objec|
00001a40  74 2b 31 0d 0b 72 05 db  0d 0b 7c 19 ef 20 32 34  |t+1..r....|.. 24|
00001a50  2c 30 3b 31 34 34 3b 73  63 72 77 3b 73 63 72 68  |,0;144;scrw;scrh|
00001a60  3b 0d 0b 90 05 ee 0d 0b  9a 2b 41 25 3d 76 65 72  |;........+A%=ver|
00001a70  62 5f 74 79 70 65 3a 42  25 3d 6e 72 65 66 3a 43  |b_type:B%=nref:C|
00001a80  25 3d 61 72 65 66 3a 44  25 3d 72 61 6d 73 61 76  |%=aref:D%=ramsav|
00001a90  65 0d 0b a4 2d 45 25 3d  70 62 79 74 65 73 3a 46  |e...-E%=pbytes:F|
00001aa0  25 3d 77 6f 72 6b 25 3a  47 25 3d 61 72 65 61 25  |%=work%:G%=area%|
00001ab0  3a 48 25 3d 61 72 65 61  5f 73 69 7a 65 25 0d 0b  |:H%=area_size%..|
00001ac0  ae 09 d6 20 72 75 6e 0d  0b b8 07 f7 20 85 0d 0b  |... run..... ...|
00001ad0  c2 05 e1 0d 0b cc 04 0d  0b d6 0f dd 20 f2 6c 6f  |............ .lo|
00001ae0  61 64 5f 70 61 6c 0d 0b  e0 0d ea 20 69 6e 25 2c  |ad_pal..... in%,|
00001af0  63 6f 6c 0d 0b ea 20 69  6e 25 3d 8e 20 22 3c 41  |col... in%=. "<A|
00001b00  6c 70 73 24 44 61 74 61  3e 2e 21 50 61 6c 65 74  |lps$Data>.!Palet|
00001b10  74 65 22 0d 0b f4 10 e3  20 63 6f 6c 3d 30 20 b8  |te"..... col=0 .|
00001b20  20 31 39 0d 0b fe 51 20  20 e7 20 63 6f 6c 3c 31  | 19...Q  . col<1|
00001b30  36 20 63 6f 6c 31 3d 63  6f 6c 3a 63 6f 6c 32 3d  |6 col1=col:col2=|
00001b40  31 36 20 8b 20 e7 20 63  6f 6c 3d 31 36 20 63 6f  |16 . . col=16 co|
00001b50  6c 31 3d 63 6f 6c 3a 63  6f 6c 32 3d 32 34 20 8b  |l1=col:col2=24 .|
00001b60  20 63 6f 6c 31 3d 63 6f  6c 2d 31 36 3a 63 6f 6c  | col1=col-16:col|
00001b70  32 3d 32 35 0d 0c 08 1d  20 20 72 3d 9a 23 69 6e  |2=25....  r=.#in|
00001b80  25 3a 67 3d 9a 23 69 6e  25 3a 62 3d 9a 23 69 6e  |%:g=.#in%:b=.#in|
00001b90  25 0d 0c 12 1a 20 20 ef  20 31 39 2c 63 6f 6c 31  |%....  . 19,col1|
00001ba0  2c 63 6f 6c 32 2c 72 2c  67 2c 62 0d 0c 1c 09 ed  |,col2,r,g,b.....|
00001bb0  20 63 6f 6c 0d 0c 26 09  d9 23 69 6e 25 0d 0c 30  | col..&..#in%..0|
00001bc0  05 e1 0d 0c 3a 04 0d 0c  44 18 dd 20 f2 6c 6f 61  |....:...D.. .loa|
00001bd0  64 5f 76 6f 63 61 62 28  66 69 6c 65 24 29 0d 0c  |d_vocab(file$)..|
00001be0  4e 10 e7 20 66 69 6c 65  24 3d 22 22 20 8c 0d 0c  |N.. file$="" ...|
00001bf0  58 11 f2 65 72 72 6f 72  28 31 36 2c 22 22 29 0d  |X..error(16,"").|
00001c00  0c 62 05 cc 0d 0c 6c 2b  f2 6c 6f 61 64 5f 6e 6f  |.b....l+.load_no|
00001c10  75 6e 73 28 22 3c 41 6c  70 73 24 44 61 74 61 3e  |uns("<Alps$Data>|
00001c20  2e 4e 6f 75 6e 73 2e 22  2b 66 69 6c 65 24 29 0d  |.Nouns."+file$).|
00001c30  0c 76 2b f2 6c 6f 61 64  5f 76 65 72 62 73 28 22  |.v+.load_verbs("|
00001c40  3c 41 6c 70 73 24 44 61  74 61 3e 2e 56 65 72 62  |<Alps$Data>.Verb|
00001c50  73 2e 22 2b 66 69 6c 65  24 29 0d 0c 80 32 f2 6c  |s."+file$)...2.l|
00001c60  6f 61 64 5f 61 64 6a 65  63 74 73 28 22 3c 41 6c  |oad_adjects("<Al|
00001c70  70 73 24 44 61 74 61 3e  2e 41 64 6a 65 63 74 69  |ps$Data>.Adjecti|
00001c80  76 65 73 2e 22 2b 66 69  6c 65 24 29 0d 0c 8a 2c  |ves."+file$)...,|
00001c90  f2 6c 6f 61 64 5f 70 72  65 70 73 28 22 3c 41 6c  |.load_preps("<Al|
00001ca0  70 73 24 44 61 74 61 3e  2e 50 72 65 70 6f 73 2e  |ps$Data>.Prepos.|
00001cb0  22 2b 66 69 6c 65 24 29  0d 0c 94 2c f2 6c 6f 61  |"+file$)...,.loa|
00001cc0  64 5f 63 6f 6e 6a 28 22  3c 41 6c 70 73 24 44 61  |d_conj("<Alps$Da|
00001cd0  74 61 3e 2e 43 6f 6e 6a  75 6e 63 2e 22 2b 66 69  |ta>.Conjunc."+fi|
00001ce0  6c 65 24 29 0d 0c 9e 2d  f2 6c 6f 61 64 5f 73 70  |le$)...-.load_sp|
00001cf0  65 63 28 22 3c 41 6c 70  73 24 44 61 74 61 3e 2e  |ec("<Alps$Data>.|
00001d00  53 70 65 63 69 61 6c 73  2e 22 2b 66 69 6c 65 24  |Specials."+file$|
00001d10  29 0d 0c a8 2b f2 6c 6f  61 64 5f 6e 6f 69 73 65  |)...+.load_noise|
00001d20  28 22 3c 41 6c 70 73 24  44 61 74 61 3e 2e 4e 6f  |("<Alps$Data>.No|
00001d30  69 73 65 2e 22 2b 66 69  6c 65 24 29 0d 0c b2 2f  |ise."+file$).../|
00001d40  f2 6c 6f 61 64 5f 76 74  79 70 65 73 28 22 3c 41  |.load_vtypes("<A|
00001d50  6c 70 73 24 44 61 74 61  3e 2e 56 65 72 62 54 79  |lps$Data>.VerbTy|
00001d60  70 65 2e 22 2b 66 69 6c  65 24 29 0d 0c bc 2a f2  |pe."+file$)...*.|
00001d70  6c 6f 61 64 5f 6e 72 65  66 73 28 22 3c 41 6c 70  |load_nrefs("<Alp|
00001d80  73 24 44 61 74 61 3e 2e  4e 72 65 66 2e 22 2b 66  |s$Data>.Nref."+f|
00001d90  69 6c 65 24 29 0d 0c c6  2a f2 6c 6f 61 64 5f 61  |ile$)...*.load_a|
00001da0  72 65 66 73 28 22 3c 41  6c 70 73 24 44 61 74 61  |refs("<Alps$Data|
00001db0  3e 2e 41 72 65 66 2e 22  2b 66 69 6c 65 24 29 0d  |>.Aref."+file$).|
00001dc0  0c d0 05 cd 0d 0c da 05  e1 0d 0c e4 04 0d 0c ee  |................|
00001dd0  18 dd 20 f2 6c 6f 61 64  5f 6e 6f 75 6e 73 28 66  |.. .load_nouns(f|
00001de0  69 6c 65 24 29 0d 0c f8  10 e7 20 66 69 6c 65 24  |ile$)..... file$|
00001df0  3d 22 22 20 8c 0d 0d 02  11 f2 65 72 72 6f 72 28  |="" ......error(|
00001e00  31 36 2c 22 22 29 0d 0d  0c 05 cc 0d 0d 16 1f ff  |16,"")..........|
00001e10  20 22 4c 4f 41 44 20 22  2b 66 69 6c 65 24 2b 22  | "LOAD "+file$+"|
00001e20  20 22 2b c3 7e 6e 6f 75  6e 73 0d 0d 20 0e 6f 62  | "+.~nouns.. .ob|
00001e30  6e 3d 3f 6e 6f 75 6e 73  0d 0d 2a 28 6e 78 74 6f  |n=?nouns..*(nxto|
00001e40  62 6a 3d 6e 6f 75 6e 73  2b 28 6e 6f 75 6e 73 3f  |bj=nouns+(nouns?|
00001e50  31 2b 32 35 36 2a 28 6e  6f 75 6e 73 3f 32 29 29  |1+256*(nouns?2))|
00001e60  0d 0d 34 05 cd 0d 0d 3e  05 e1 0d 0d 48 04 0d 0d  |..4....>....H...|
00001e70  52 18 dd 20 f2 6c 6f 61  64 5f 76 65 72 62 73 28  |R.. .load_verbs(|
00001e80  66 69 6c 65 24 29 0d 0d  5c 10 e7 20 66 69 6c 65  |file$)..\.. file|
00001e90  24 3d 22 22 20 8c 0d 0d  66 11 f2 65 72 72 6f 72  |$="" ...f..error|
00001ea0  28 31 36 2c 22 22 29 0d  0d 70 05 cc 0d 0d 7a 1f  |(16,"")..p....z.|
00001eb0  ff 20 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |. "LOAD "+file$+|
00001ec0  22 20 22 2b c3 7e 76 65  72 62 73 0d 0d 84 0e 76  |" "+.~verbs....v|
00001ed0  62 6e 3d 3f 76 65 72 62  73 0d 0d 8e 28 6e 78 74  |bn=?verbs...(nxt|
00001ee0  76 72 62 3d 76 65 72 62  73 2b 28 76 65 72 62 73  |vrb=verbs+(verbs|
00001ef0  3f 31 2b 32 35 36 2a 28  76 65 72 62 73 3f 32 29  |?1+256*(verbs?2)|
00001f00  29 0d 0d 98 05 cd 0d 0d  a2 05 e1 0d 0d ac 04 0d  |)...............|
00001f10  0d b6 1a dd 20 f2 6c 6f  61 64 5f 61 64 6a 65 63  |.... .load_adjec|
00001f20  74 73 28 66 69 6c 65 24  29 0d 0d c0 10 e7 20 66  |ts(file$)..... f|
00001f30  69 6c 65 24 3d 22 22 20  8c 0d 0d ca 11 f2 65 72  |ile$="" ......er|
00001f40  72 6f 72 28 31 36 2c 22  22 29 0d 0d d4 05 cc 0d  |ror(16,"")......|
00001f50  0d de 21 ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |..!. "LOAD "+fil|
00001f60  65 24 2b 22 20 22 2b c3  7e 61 64 6a 65 63 74 73  |e$+" "+.~adjects|
00001f70  0d 0d e8 10 61 64 6e 3d  3f 61 64 6a 65 63 74 73  |....adn=?adjects|
00001f80  0d 0d f2 2e 6e 78 74 61  64 6a 3d 61 64 6a 65 63  |....nxtadj=adjec|
00001f90  74 73 2b 28 61 64 6a 65  63 74 73 3f 31 2b 32 35  |ts+(adjects?1+25|
00001fa0  36 2a 28 61 64 6a 65 63  74 73 3f 32 29 29 0d 0d  |6*(adjects?2))..|
00001fb0  fc 05 cd 0d 0e 06 05 e1  0d 0e 10 04 0d 0e 1a 18  |................|
00001fc0  dd 20 f2 6c 6f 61 64 5f  70 72 65 70 73 28 66 69  |. .load_preps(fi|
00001fd0  6c 65 24 29 0d 0e 24 10  e7 20 66 69 6c 65 24 3d  |le$)..$.. file$=|
00001fe0  22 22 20 8c 0d 0e 2e 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00001ff0  36 2c 22 22 29 0d 0e 38  05 cc 0d 0e 42 1f ff 20  |6,"")..8....B.. |
00002000  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002010  22 2b c3 7e 70 72 65 70  73 0d 0e 4c 0e 70 72 6e  |"+.~preps..L.prn|
00002020  3d 3f 70 72 65 70 73 0d  0e 56 28 6e 78 74 70 72  |=?preps..V(nxtpr|
00002030  70 3d 70 72 65 70 73 2b  28 70 72 65 70 73 3f 31  |p=preps+(preps?1|
00002040  2b 32 35 36 2a 28 70 72  65 70 73 3f 32 29 29 0d  |+256*(preps?2)).|
00002050  0e 60 05 cd 0d 0e 6a 05  e1 0d 0e 74 04 0d 0e 7e  |.`....j....t...~|
00002060  17 dd 20 f2 6c 6f 61 64  5f 63 6f 6e 6a 28 66 69  |.. .load_conj(fi|
00002070  6c 65 24 29 0d 0e 88 10  e7 20 66 69 6c 65 24 3d  |le$)..... file$=|
00002080  22 22 20 8c 0d 0e 92 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00002090  36 2c 22 22 29 0d 0e 9c  05 cc 0d 0e a6 1f ff 20  |6,"").......... |
000020a0  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
000020b0  22 2b c3 7e 63 6f 6e 6a  73 0d 0e b0 0e 63 6a 6e  |"+.~conjs....cjn|
000020c0  3d 3f 63 6f 6e 6a 73 0d  0e ba 28 6e 78 74 63 6a  |=?conjs...(nxtcj|
000020d0  6e 3d 63 6f 6e 6a 73 2b  28 63 6f 6e 6a 73 3f 31  |n=conjs+(conjs?1|
000020e0  2b 32 35 36 2a 28 63 6f  6e 6a 73 3f 32 29 29 0d  |+256*(conjs?2)).|
000020f0  0e c4 05 cd 0d 0e ce 05  e1 0d 0e d8 04 0d 0e e2  |................|
00002100  17 dd 20 f2 6c 6f 61 64  5f 73 70 65 63 28 66 69  |.. .load_spec(fi|
00002110  6c 65 24 29 0d 0e ec 10  e7 20 66 69 6c 65 24 3d  |le$)..... file$=|
00002120  22 22 20 8c 0d 0e f6 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00002130  36 2c 22 22 29 0d 0f 00  05 cc 0d 0f 0a 1f ff 20  |6,"").......... |
00002140  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002150  22 2b c3 7e 73 70 65 63  73 0d 0f 14 0e 73 70 6e  |"+.~specs....spn|
00002160  3d 3f 73 70 65 63 73 0d  0f 1e 28 6e 78 74 73 70  |=?specs...(nxtsp|
00002170  6e 3d 73 70 65 63 73 2b  28 73 70 65 63 73 3f 31  |n=specs+(specs?1|
00002180  2b 32 35 36 2a 28 73 70  65 63 73 3f 32 29 29 0d  |+256*(specs?2)).|
00002190  0f 28 05 cd 0d 0f 32 05  e1 0d 0f 3c 04 0d 0f 46  |.(....2....<...F|
000021a0  18 dd 20 f2 6c 6f 61 64  5f 6e 6f 69 73 65 28 66  |.. .load_noise(f|
000021b0  69 6c 65 24 29 0d 0f 50  10 e7 20 66 69 6c 65 24  |ile$)..P.. file$|
000021c0  3d 22 22 20 8c 0d 0f 5a  11 f2 65 72 72 6f 72 28  |="" ...Z..error(|
000021d0  31 36 2c 22 22 29 0d 0f  64 05 cc 0d 0f 6e 1f ff  |16,"")..d....n..|
000021e0  20 22 4c 4f 41 44 20 22  2b 66 69 6c 65 24 2b 22  | "LOAD "+file$+"|
000021f0  20 22 2b c3 7e 6e 6f 69  73 65 0d 0f 78 0e 6e 73  | "+.~noise..x.ns|
00002200  6e 3d 3f 6e 6f 69 73 65  0d 0f 82 28 6e 78 74 6e  |n=?noise...(nxtn|
00002210  73 6e 3d 6e 6f 69 73 65  2b 28 6e 6f 69 73 65 3f  |sn=noise+(noise?|
00002220  31 2b 32 35 36 2a 28 6e  6f 69 73 65 3f 32 29 29  |1+256*(noise?2))|
00002230  0d 0f 8c 05 cd 0d 0f 96  05 e1 0d 0f a0 04 0d 0f  |................|
00002240  aa 19 dd 20 f2 6c 6f 61  64 5f 76 74 79 70 65 73  |... .load_vtypes|
00002250  28 66 69 6c 65 24 29 0d  0f b4 10 e7 20 66 69 6c  |(file$)..... fil|
00002260  65 24 3d 22 22 20 8c 0d  0f be 11 f2 65 72 72 6f  |e$="" ......erro|
00002270  72 28 31 36 2c 22 22 29  0d 0f c8 05 cc 0d 0f d2  |r(16,"")........|
00002280  23 ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |#. "LOAD "+file$|
00002290  2b 22 20 22 2b c3 7e 76  65 72 62 5f 74 79 70 65  |+" "+.~verb_type|
000022a0  0d 0f dc 05 cd 0d 0f e6  05 e1 0d 0f f0 04 0d 0f  |................|
000022b0  fa 18 dd 20 f2 6c 6f 61  64 5f 61 72 65 66 73 28  |... .load_arefs(|
000022c0  66 69 6c 65 24 29 0d 10  04 10 e7 20 66 69 6c 65  |file$)..... file|
000022d0  24 3d 22 22 20 8c 0d 10  0e 11 f2 65 72 72 6f 72  |$="" ......error|
000022e0  28 31 36 2c 22 22 29 0d  10 18 05 cc 0d 10 22 1e  |(16,"").......".|
000022f0  ff 20 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |. "LOAD "+file$+|
00002300  22 20 22 2b c3 7e 61 72  65 66 0d 10 2c 05 cd 0d  |" "+.~aref..,...|
00002310  10 36 05 e1 0d 10 40 04  0d 10 4a 18 dd 20 f2 6c  |.6....@...J.. .l|
00002320  6f 61 64 5f 6e 72 65 66  73 28 66 69 6c 65 24 29  |oad_nrefs(file$)|
00002330  0d 10 54 10 e7 20 66 69  6c 65 24 3d 22 22 20 8c  |..T.. file$="" .|
00002340  0d 10 5e 11 f2 65 72 72  6f 72 28 31 36 2c 22 22  |..^..error(16,""|
00002350  29 0d 10 68 05 cc 0d 10  72 1e ff 20 22 4c 4f 41  |)..h....r.. "LOA|
00002360  44 20 22 2b 66 69 6c 65  24 2b 22 20 22 2b c3 7e  |D "+file$+" "+.~|
00002370  6e 72 65 66 0d 10 7c 05  cd 0d 10 86 05 e1 0d 10  |nref..|.........|
00002380  90 04 0d 10 9a 17 dd 20  f2 6c 6f 61 64 5f 6f 62  |....... .load_ob|
00002390  6a 73 28 66 69 6c 65 24  29 0d 10 a4 10 e7 20 66  |js(file$)..... f|
000023a0  69 6c 65 24 3d 22 22 20  8c 0d 10 ae 11 f2 65 72  |ile$="" ......er|
000023b0  72 6f 72 28 31 36 2c 22  22 29 0d 10 b8 05 cc 0d  |ror(16,"")......|
000023c0  10 c2 20 ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.. . "LOAD "+fil|
000023d0  65 24 2b 22 20 22 2b c3  7e 6f 64 61 74 61 25 0d  |e$+" "+.~odata%.|
000023e0  10 cc 12 6f 70 74 72 3d  6f 64 61 74 61 25 3f 31  |...optr=odata%?1|
000023f0  34 0d 10 d6 19 6c 61 73  74 5f 6f 62 6a 65 63 74  |4....last_object|
00002400  3d 6f 64 61 74 61 25 3f  31 35 0d 10 e0 05 cd 0d  |=odata%?15......|
00002410  10 ea 05 e1 0d 10 f4 04  0d 10 fe 18 dd 20 f2 6c  |............. .l|
00002420  6f 61 64 5f 72 6f 6f 6d  73 28 66 69 6c 65 24 29  |oad_rooms(file$)|
00002430  0d 11 08 10 e7 20 66 69  6c 65 24 3d 22 22 20 8c  |..... file$="" .|
00002440  0d 11 12 11 f2 65 72 72  6f 72 28 31 36 2c 22 22  |.....error(16,""|
00002450  29 0d 11 1c 05 cc 0d 11  26 20 ff 20 22 4c 4f 41  |).......& . "LOA|
00002460  44 20 22 2b 66 69 6c 65  24 2b 22 20 22 2b c3 7e  |D "+file$+" "+.~|
00002470  72 64 61 74 61 25 0d 11  30 18 72 70 74 72 3d 21  |rdata%..0.rptr=!|
00002480  72 64 61 74 61 25 20 80  20 26 46 46 46 46 0d 11  |rdata% . &FFFF..|
00002490  3a 27 6c 61 73 74 5f 72  6f 6f 6d 3d 28 21 72 64  |:'last_room=(!rd|
000024a0  61 74 61 25 20 80 20 26  46 46 46 46 30 30 30 30  |ata% . &FFFF0000|
000024b0  29 3e 3e 31 36 0d 11 44  05 cd 0d 11 4e 05 e1 0d  |)>>16..D....N...|
000024c0  11 58 04 0d 11 62 16 dd  20 f2 6c 6f 61 64 5f 70  |.X...b.. .load_p|
000024d0  69 78 28 66 69 6c 65 24  29 0d 11 6c 10 e7 20 66  |ix(file$)..l.. f|
000024e0  69 6c 65 24 3d 22 22 20  8c 0d 11 76 11 f2 65 72  |ile$="" ...v..er|
000024f0  72 6f 72 28 31 36 2c 22  22 29 0d 11 80 05 cc 0d  |ror(16,"")......|
00002500  11 8a 1e ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.... "LOAD "+fil|
00002510  65 24 2b 22 20 22 2b c3  7e 70 69 78 73 0d 11 94  |e$+" "+.~pixs...|
00002520  0d 70 78 6e 3d 3f 70 69  78 73 0d 11 9e 25 6e 78  |.pxn=?pixs...%nx|
00002530  74 70 78 6e 3d 70 69 78  73 2b 28 70 69 78 73 3f  |tpxn=pixs+(pixs?|
00002540  31 2b 32 35 36 2a 28 70  69 78 73 3f 32 29 29 0d  |1+256*(pixs?2)).|
00002550  11 a8 05 cd 0d 11 b2 05  e1 0d 11 bc 04 0d 11 c6  |................|
00002560  1a dd 20 f2 6c 6f 61 64  5f 70 72 6f 67 72 61 6d  |.. .load_program|
00002570  28 66 69 6c 65 24 29 0d  11 d0 10 e7 20 66 69 6c  |(file$)..... fil|
00002580  65 24 3d 22 22 20 8c 0d  11 da 11 f2 65 72 72 6f  |e$="" ......erro|
00002590  72 28 31 36 2c 22 22 29  0d 11 e4 05 cc 0d 11 ee  |r(16,"")........|
000025a0  22 ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |". "LOAD "+file$|
000025b0  2b 22 20 22 2b c3 7e 70  72 6f 67 72 61 6d 25 0d  |+" "+.~program%.|
000025c0  11 f8 05 cd 0d 12 02 05  e1 0d 12 0c 04 0d 12 16  |................|
000025d0  17 dd 20 f2 6c 6f 61 64  5f 74 65 78 74 28 66 69  |.. .load_text(fi|
000025e0  6c 65 24 29 0d 12 20 10  e7 20 66 69 6c 65 24 3d  |le$).. .. file$=|
000025f0  22 22 20 8c 0d 12 2a 11  f2 65 72 72 6f 72 28 31  |"" ...*..error(1|
00002600  36 2c 22 22 29 0d 12 34  05 cc 0d 12 3e 1f ff 20  |6,"")..4....>.. |
00002610  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002620  22 2b c3 7e 74 65 78 74  25 0d 12 48 0a 6d 70 74  |"+.~text%..H.mpt|
00002630  72 3d 31 0d 12 52 05 cd  0d 12 5c 05 e1 0d 12 66  |r=1..R....\....f|
00002640  04 0d 12 70 17 dd 20 f2  6c 6f 61 64 5f 64 69 63  |...p.. .load_dic|
00002650  74 28 66 69 6c 65 24 29  0d 12 7a 0b ea 20 49 25  |t(file$)..z.. I%|
00002660  2c 4c 25 0d 12 84 10 e7  20 66 69 6c 65 24 3d 22  |,L%..... file$="|
00002670  22 20 8c 0d 12 8e 11 f2  65 72 72 6f 72 28 31 36  |" ......error(16|
00002680  2c 22 22 29 0d 12 98 05  cc 0d 12 a2 1f ff 20 22  |,"").......... "|
00002690  4c 4f 41 44 20 22 2b 66  69 6c 65 24 2b 22 20 22  |LOAD "+file$+" "|
000026a0  2b c3 7e 64 69 63 74 25  0d 12 ac 15 74 6f 6b 25  |+.~dict%....tok%|
000026b0  3d 64 69 63 74 25 3f 32  3a 4c 25 3d 30 0d 12 b6  |=dict%?2:L%=0...|
000026c0  21 e7 20 74 6f 6b 25 3d  30 20 74 6f 6b 25 3d 31  |!. tok%=0 tok%=1|
000026d0  32 38 20 8b 20 74 6f 6b  25 2d 3d 31 32 38 0d 12  |28 . tok%-=128..|
000026e0  c0 05 cd 0d 12 ca 05 e1  0d 12 d4 04 0d 12 de 1c  |................|
000026f0  dd 20 f2 6c 6f 61 64 5f  66 69 6c 65 73 28 66 69  |. .load_files(fi|
00002700  6c 65 6e 61 6d 65 24 29  0d 12 e8 30 f2 6c 6f 61  |lename$)...0.loa|
00002710  64 5f 6f 62 6a 73 28 22  3c 41 6c 70 73 24 44 61  |d_objs("<Alps$Da|
00002720  74 61 3e 2e 4f 62 6a 65  63 74 73 2e 22 2b 66 69  |ta>.Objects."+fi|
00002730  6c 65 6e 61 6d 65 24 29  0d 12 f2 2f f2 6c 6f 61  |lename$).../.loa|
00002740  64 5f 72 6f 6f 6d 73 28  22 3c 41 6c 70 73 24 44  |d_rooms("<Alps$D|
00002750  61 74 61 3e 2e 52 6f 6f  6d 73 2e 22 2b 66 69 6c  |ata>.Rooms."+fil|
00002760  65 6e 61 6d 65 24 29 0d  12 fc 30 f2 6c 6f 61 64  |ename$)...0.load|
00002770  5f 70 69 78 28 22 3c 41  6c 70 73 24 44 61 74 61  |_pix("<Alps$Data|
00002780  3e 2e 50 69 63 74 75 72  65 73 2e 22 2b 66 69 6c  |>.Pictures."+fil|
00002790  65 6e 61 6d 65 24 29 0d  13 06 1a f2 6c 6f 61 64  |ename$).....load|
000027a0  5f 76 6f 63 61 62 28 66  69 6c 65 6e 61 6d 65 24  |_vocab(filename$|
000027b0  29 0d 13 10 33 f2 6c 6f  61 64 5f 70 72 6f 67 72  |)...3.load_progr|
000027c0  61 6d 28 22 3c 41 6c 70  73 24 44 61 74 61 3e 2e  |am("<Alps$Data>.|
000027d0  50 72 6f 67 72 61 6d 2e  22 2b 66 69 6c 65 6e 61  |Program."+filena|
000027e0  6d 65 24 29 0d 13 1a 2d  f2 6c 6f 61 64 5f 74 65  |me$)...-.load_te|
000027f0  78 74 28 22 3c 41 6c 70  73 24 44 61 74 61 3e 2e  |xt("<Alps$Data>.|
00002800  54 65 78 74 2e 22 2b 66  69 6c 65 6e 61 6d 65 24  |Text."+filename$|
00002810  29 0d 13 24 2d f2 6c 6f  61 64 5f 64 69 63 74 28  |)..$-.load_dict(|
00002820  22 3c 41 6c 70 73 24 44  61 74 61 3e 2e 44 69 63  |"<Alps$Data>.Dic|
00002830  74 2e 22 2b 66 69 6c 65  6e 61 6d 65 24 29 0d 13  |t."+filename$)..|
00002840  2e 2d ff 20 22 4c 4f 41  44 20 3c 41 6c 70 73 24  |.-. "LOAD <Alps$|
00002850  52 65 73 6f 75 72 63 65  73 3e 70 62 79 74 65 73  |Resources>pbytes|
00002860  20 22 2b c3 7e 70 62 79  74 65 73 0d 13 38 05 e1  | "+.~pbytes..8..|
00002870  0d 13 42 04 0d 13 4c 0e  dd 20 a4 67 65 74 6e 61  |..B...L.. .getna|
00002880  6d 65 0d 13 56 1c 69 6e  25 3d 8e 20 22 3c 41 6c  |me..V.in%=. "<Al|
00002890  70 73 24 44 61 74 61 3e  2e 47 61 6d 65 22 0d 13  |ps$Data>.Game"..|
000028a0  60 0f e8 23 69 6e 25 2c  6e 61 6d 65 24 0d 13 6a  |`..#in%,name$..j|
000028b0  09 d9 23 69 6e 25 0d 13  74 0a 3d 6e 61 6d 65 24  |..#in%..t.=name$|
000028c0  0d 13 7e 04 0d 13 88 0e  dd 20 a4 67 65 74 6d 6f  |..~...... .getmo|
000028d0  64 65 0d 13 92 1c 69 6e  25 3d 8e 20 22 3c 41 6c  |de....in%=. "<Al|
000028e0  70 73 24 44 61 74 61 3e  2e 47 61 6d 65 22 0d 13  |ps$Data>.Game"..|
000028f0  9c 0f e8 23 69 6e 25 2c  6e 61 6d 65 24 0d 13 a6  |...#in%,name$...|
00002900  0f e8 23 69 6e 25 2c 6d  6f 64 65 25 0d 13 b0 09  |..#in%,mode%....|
00002910  d9 23 69 6e 25 0d 13 ba  0a 3d 6d 6f 64 65 25 0d  |.#in%....=mode%.|
00002920  13 c4 04 0d 13 ce 12 dd  20 f2 67 65 74 6d 6f 64  |........ .getmod|
00002930  65 69 6e 66 6f 0d 13 d8  18 ea 20 78 2c 79 2c 78  |einfo..... x,y,x|
00002940  65 69 67 2c 79 65 69 67  2c 63 6f 6c 73 0d 13 e2  |eig,yeig,cols...|
00002950  0a 6d 6f 64 65 3d eb 0d  13 ec 04 0d 13 f6 31 c8  |.mode=........1.|
00002960  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00002970  72 69 61 62 6c 65 22 2c  6d 6f 64 65 2c 31 20 b8  |riable",mode,1 .|
00002980  20 2c 2c 74 65 78 74 63  6f 6c 73 25 0d 14 00 31  | ,,textcols%...1|
00002990  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
000029a0  61 72 69 61 62 6c 65 22  2c 6d 6f 64 65 2c 32 20  |ariable",mode,2 |
000029b0  b8 20 2c 2c 74 65 78 74  72 6f 77 73 25 0d 14 0a  |. ,,textrows%...|
000029c0  1d 74 65 78 74 5f 6d 61  78 6c 6c 65 6e 25 3d 74  |.text_maxllen%=t|
000029d0  65 78 74 63 6f 6c 73 25  2d 32 0d 14 14 2c c8 99  |extcols%-2...,..|
000029e0  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
000029f0  69 61 62 6c 65 22 2c 6d  6f 64 65 2c 33 20 b8 20  |iable",mode,3 . |
00002a00  2c 2c 63 6f 6c 73 0d 14  1e 2c c8 99 20 22 4f 53  |,,cols...,.. "OS|
00002a10  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00002a20  65 22 2c 6d 6f 64 65 2c  34 20 b8 20 2c 2c 78 65  |e",mode,4 . ,,xe|
00002a30  69 67 0d 14 28 2c c8 99  20 22 4f 53 5f 52 65 61  |ig..(,.. "OS_Rea|
00002a40  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 6d  |dModeVariable",m|
00002a50  6f 64 65 2c 35 20 b8 20  2c 2c 79 65 69 67 0d 14  |ode,5 . ,,yeig..|
00002a60  32 30 c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |20.. "OS_ReadMod|
00002a70  65 56 61 72 69 61 62 6c  65 22 2c 6d 6f 64 65 2c  |eVariable",mode,|
00002a80  37 20 b8 20 2c 2c 73 63  72 6e 73 69 7a 65 0d 14  |7 . ,,scrnsize..|
00002a90  3c 2a c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |<*.. "OS_ReadMod|
00002aa0  65 56 61 72 69 61 62 6c  65 22 2c 6d 6f 64 65 2c  |eVariable",mode,|
00002ab0  31 31 20 b8 20 2c 2c 78  0d 14 46 2a c8 99 20 22  |11 . ,,x..F*.. "|
00002ac0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00002ad0  62 6c 65 22 2c 6d 6f 64  65 2c 31 32 20 b8 20 2c  |ble",mode,12 . ,|
00002ae0  2c 79 0d 14 50 2d 73 63  72 77 3d 28 28 78 2b 31  |,y..P-scrw=((x+1|
00002af0  29 3c 3c 78 65 69 67 29  2d 31 3a 73 63 72 68 3d  |)<<xeig)-1:scrh=|
00002b00  28 28 79 2b 31 29 3c 3c  79 65 69 67 29 2d 31 0d  |((y+1)<<yeig)-1.|
00002b10  14 5a 05 e1 0d ff                                 |.Z....|
00002b16

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .