Home » Archimedes archive » Games » Repton 3 (1988)(Superior).adf » Config

Config

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 » Games » Repton 3 (1988)(Superior).adf
Filename: Config
Read OK:
File size: 0BAE bytes
Load address: FFFFFB42
Exec address: A2CC9C6B
File contents
   10REM >Config
   20REM By G.Stanley & J.Wallace for Superior Software..........
   21*MOUNT 0
   30DIM B% &20,code 40,buf% 240
   40DIM alloc(10),con$(6)
   50tot=0:K=1024:D%=1.51587081E9
   60Tbasic=100
   70Tscreen=80
   80Tsprites=0
   90Tfont=0
  100Trma=80
  110IF FNostest<1.2 THEN VDU7:END
  120IF FNostest<2 THEN 150
  130VDU21:*EXEC !RISC_OS
  140END
  150PRINT"AutoConfiguring"
  160SYS &40240,0,1,&B6400,buf%,240
  170IF buf%!128=D% THEN 250
  180PROCreloadcmos
  190:
  200*RMCLEAR
  210*RMLOAD RM_Tunes
  220*TUNE1
  230*REPTON3
  240:
  250PROCbreakcode
  260PROCtests
  270:
  280IF FNmet AND FNcmos(185)=4 THEN GOTO 200
  290:
  300REM Are conditions attainable?
  310required=Tbasic+Tscreen+Tsprites+Tfont+Trma
  320maxuseable=tot-alloc(5)-alloc(6)-alloc(4)+alloc(9)+alloc(8)
  330IF required>maxuseable THEN PROCfailmessage:END
  340:
  350PROCallsteal
  360PROCsavecmos
  370FOR A=0 TO 5:OSCLI(con$(A)):NEXT
  380*CONFIGURE BOOT
  390*CONFIGURE DRIVE 0
  400*CONFIGURE LANGUAGE 4
  410CALL code
  420END
  430:
  440DEFPROCreloadcmos
  450FOR J%=0 TO 239
  460OSCLI("FX162,"+STR$(J%)+","+STR$(buf%?J%))
  470NEXT J%
  480FOR J%=0 TO 236 STEP 4
  490buf%!J%=D%
  500NEXT J%
  510SYS &40240,0,2,&B6400,buf%,240
  520ENDPROC
  530:
  540DEFPROCsavecmos
  550FOR A%=0 TO 239
  560buf%!A%=FNcmos(A%)
  570NEXT A%
  580SYS &40240,0,2,&B6400,buf%,240
  590ENDPROC
  600:
  610DEFPROCtests
  620IF FNfour THEN page%=&8000 ELSE page%=&2000
  630PROCtvalueadjust
  640PROCreadram
  650alloc(7)=FNscrn
  660alloc(0)=HIMEM-PAGE
  670alloc(8)=&1000*FNcmos(134)
  680alloc(9)=page%*FNcmos(146)
  690FOR A=1 TO 7:tot+=alloc(A):NEXT
  700ENDPROC
  710:
  720DEFPROCreadram
  730RESTORE 800
  740FOR A=1 TO 6
  750READ start%
  760start%=start%*&10000
  770alloc(A)=FNrange(start%,page%)
  780NEXT
  790ENDPROC
  800DATA 0,&100,&140,&180,&1C0,&1F0
  810:
  820DEFPROCallsteal
  830C$="*Configure "
  840con$(0)=C$+"ScreenSize "+STR$(Tscreen/page%)
  850con$(1)=C$+"SpriteSize "+STR$(Tsprites/page%)
  860con$(2)=C$+"FontSize "+STR$(Tfont/(4*K))
  870con$(3)=C$+"RMASize "+STR$(Trma/page%)
  880con$(4)=C$+"RamFSsize 0"
  890con$(5)=C$+"SystemSize 0"
  900ENDPROC
  910:
  920DEFPROCtvalueadjust
  930IF Tscreen<40 THEN PRINT"SCREEN VALUE TOO LOW (40K Minimum)":VDU7:END
  940Tbasic=FNroundup(Tbasic)
  950Tscreen=FNroundup(Tscreen)
  960Tsprites=FNroundup(Tsprites)
  970Trma=FNroundup(Trma)
  980Tfont=Tfont*K
  990IF Tfont MOD (4*K) THEN Tfont+=4*K-(Tfont MOD (4*K))
 1000ENDPROC
 1010:
 1020DEFFNroundup(param)
 1030param=param*K
 1040=page%*((INT(param/page%)-((param MOD page%)>0)))
 1050:
 1060DEFFNmet
 1070Mbasic=(Tbasic<=alloc(0))
 1080Mscreen=(Tscreen<=alloc(7))
 1090Msprites=(Tsprites<=alloc(3))
 1100Mfont=(Tfont<=alloc(8))
 1110Mrma=(Trma<=alloc(9))
 1120=Mbasic AND Mscreen AND Msprites AND Mfont AND Mrma
 1130:
 1140DEFFNcmos(loc)
 1150SYS 6,161,loc TO X,Y,Z
 1160=Z
 1170:
 1180DEFFNrange(start%,page%)
 1190addr%=start%
 1200REPEAT
 1210Z%=FNcheck(addr%)
 1220addr%+=page%
 1230UNTIL Z%=FALSE
 1240=addr%-start%-page%
 1250:
 1260DEFFNcheck(addr%)
 1270SYS &3A,addr%,addr%+1 TO ;flag
 1280=(flag AND 2)=0
 1290:
 1300DEFFNscrn
 1310B%=((B%+3)DIV4)*4:!B%=150:!(B%+4)=-1
 1320SYS &31,B%,B%+&10:=!(B%+&10)
 1330:
 1340DEFFNfour
 1350SYS &1A ,0,0 TO reg
 1360=(reg AND 8)=8
 1370:
 1380DEFFNostest
 1390SYS 6+2^17,0,0 TO A%
 1400A$="":A%+=11
 1410FOR B=0 TO 3
 1420A$+=CHR$(A%?B)
 1430NEXT:=VAL(A$)
 1440:
 1450DEFPROCbreakcode
 1460RESTORE 1530
 1470FOR I%=0 TO 36 STEP 4
 1480READ hex%
 1490code!I%=hex%
 1500NEXT
 1510ENDPROC
 1520:
 1530DATA &E3A000C8,&E3A01003,&E3A02000,&EF020006,&E3A0050E
 1540DATA &E5901000,&E7011001,&EF020016,&E33FF3FF,&E3A0F000


� >Config
?� By G.Stanley & J.Wallace for Superior Software..........
*MOUNT 0
� B% &20,code 40,buf% 240
(� alloc(10),con$(6)
2 tot=0:K=1024:D%=1.51587081E9
<Tbasic=100
FTscreen=80
PTsprites=0
ZTfont=0
dTrma=80
n� �ostest<1.2 � �7:�
x� �ostest<2 � �tV@
��21:*EXEC !RISC_OS
��
��"AutoConfiguring"
�!ș &40240,0,1,&B6400,buf%,240
�� buf%!128=D% � �dz@
��reloadcmos
�:
�*RMCLEAR
�*RMLOAD RM_Tunes
�
*TUNE1
�*REPTON3
�:
��breakcode

�tests
:
"� �met � �cmos(185)=4 � � �dH@
":
, � Are conditions attainable?
6/required=Tbasic+Tscreen+Tsprites+Tfont+Trma
@?maxuseable=tot-alloc(5)-alloc(6)-alloc(4)+alloc(9)+alloc(8)
J*� required>maxuseable � �failmessage:�
T:
^
�allsteal
h
�savecmos
r� A=0 � 5:�(con$(A)):�
|*CONFIGURE BOOT
�*CONFIGURE DRIVE 0
�*CONFIGURE LANGUAGE 4
�
� code
��
�:
���reloadcmos
�� J%=0 � 239
�$�("FX162,"+�(J%)+","+�(buf%?J%))
�� J%
�� J%=0 � 236 � 4
�buf%!J%=D%
�� J%
�!ș &40240,0,2,&B6400,buf%,240
�
:
��savecmos
&� A%=0 � 239
0buf%!A%=�cmos(A%)
:� A%
D!ș &40240,0,2,&B6400,buf%,240
N�
X:
b��tests
l'� �four � page%=&8000 � page%=&2000
v�tvalueadjust
��readram
�alloc(7)=�scrn
�alloc(0)=�-�
�alloc(8)=&1000*�cmos(134)
�alloc(9)=page%*�cmos(146)
�� A=1 � 7:tot+=alloc(A):�
��
�:
�
��readram
�
� �T`C
�
� A=1 � 6
�� start%
�start%=start%*&10000
!alloc(A)=�range(start%,page%)
�
�
  � 0,&100,&140,&180,&1C0,&1F0
*:
4��allsteal
>C$="*Configure "
H-con$(0)=C$+"ScreenSize "+�(Tscreen/page%)
R.con$(1)=C$+"SpriteSize "+�(Tsprites/page%)
\)con$(2)=C$+"FontSize "+�(Tfont/(4*K))
f'con$(3)=C$+"RMASize "+�(Trma/page%)
pcon$(4)=C$+"RamFSsize 0"
zcon$(5)=C$+"SystemSize 0"
��
�:
���tvalueadjust
�=� Tscreen<40 � �"SCREEN VALUE TOO LOW (40K Minimum)":�7:�
�Tbasic=�roundup(Tbasic)
�Tscreen=�roundup(Tscreen)
�Tsprites=�roundup(Tsprites)
�Trma=�roundup(Trma)
�Tfont=Tfont*K
�0� Tfont � (4*K) � Tfont+=4*K-(Tfont � (4*K))
��
�:
�ݤroundup(param)
param=param*K
1=page%*((�(param/page%)-((param � page%)>0)))
:
$	ݤmet
.Mbasic=(Tbasic<=alloc(0))
8Mscreen=(Tscreen<=alloc(7))
B!Msprites=(Tsprites<=alloc(3))
LMfont=(Tfont<=alloc(8))
VMrma=(Trma<=alloc(9))
`/=Mbasic � Mscreen � Msprites � Mfont � Mrma
j:
tݤcmos(loc)
~ș 6,161,loc � X,Y,Z
�=Z
�:
�ݤrange(start%,page%)
�addr%=start%
��
�Z%=�check(addr%)
�addr%+=page%
�
� Z%=�
�=addr%-start%-page%
�:
�ݤcheck(addr%)
� ș &3A,addr%,addr%+1 � ;flag
=(flag � 2)=0

:

ݤscrn
&B%=((B%+3)�4)*4:!B%=150:!(B%+4)=-1
(ș &31,B%,B%+&10:=!(B%+&10)
2:
<
ݤfour
Fș &1A ,0,0 � reg
P=(reg � 8)=8
Z:
dݤostest
nș 6+2^17,0,0 � A%
xA$="":A%+=11
�
� B=0 � 3
�A$+=�(A%?B)
��:=�(A$)
�:
���breakcode
�
� �dzE
�� I%=0 � 36 � 4
�
� hex%
�code!I%=hex%
��
��
�:
�7� &E3A000C8,&E3A01003,&E3A02000,&EF020006,&E3A0050E
7� &E5901000,&E7011001,&EF020016,&E33FF3FF,&E3A0F000
�
00000000  0d 00 0a 0d f4 20 3e 43  6f 6e 66 69 67 0d 00 14  |..... >Config...|
00000010  3f f4 20 42 79 20 47 2e  53 74 61 6e 6c 65 79 20  |?. By G.Stanley |
00000020  26 20 4a 2e 57 61 6c 6c  61 63 65 20 66 6f 72 20  |& J.Wallace for |
00000030  53 75 70 65 72 69 6f 72  20 53 6f 66 74 77 61 72  |Superior Softwar|
00000040  65 15 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 0d 00 15 0c  |e...............|
00000050  2a 4d 4f 55 4e 54 20 30  0d 00 1e 1d de 20 42 25  |*MOUNT 0..... B%|
00000060  20 26 32 30 2c 63 6f 64  65 20 34 30 2c 62 75 66  | &20,code 40,buf|
00000070  25 20 32 34 30 0d 00 28  17 de 20 61 6c 6c 6f 63  |% 240..(.. alloc|
00000080  28 31 30 29 2c 63 6f 6e  24 28 36 29 0d 00 32 20  |(10),con$(6)..2 |
00000090  74 6f 74 3d 30 3a 4b 3d  31 30 32 34 3a 44 25 3d  |tot=0:K=1024:D%=|
000000a0  31 2e 35 31 35 38 37 30  38 31 45 39 0d 00 3c 0e  |1.51587081E9..<.|
000000b0  54 62 61 73 69 63 3d 31  30 30 0d 00 46 0e 54 73  |Tbasic=100..F.Ts|
000000c0  63 72 65 65 6e 3d 38 30  0d 00 50 0e 54 73 70 72  |creen=80..P.Tspr|
000000d0  69 74 65 73 3d 30 0d 00  5a 0b 54 66 6f 6e 74 3d  |ites=0..Z.Tfont=|
000000e0  30 0d 00 64 0b 54 72 6d  61 3d 38 30 0d 00 6e 18  |0..d.Trma=80..n.|
000000f0  e7 20 a4 6f 73 74 65 73  74 3c 31 2e 32 20 8c 20  |. .ostest<1.2 . |
00000100  ef 37 3a e0 0d 00 78 16  e7 20 a4 6f 73 74 65 73  |.7:...x.. .ostes|
00000110  74 3c 32 20 8c 20 8d 74  56 40 0d 00 82 16 ef 32  |t<2 . .tV@.....2|
00000120  31 3a 2a 45 58 45 43 20  21 52 49 53 43 5f 4f 53  |1:*EXEC !RISC_OS|
00000130  0d 00 8c 05 e0 0d 00 96  16 f1 22 41 75 74 6f 43  |.........."AutoC|
00000140  6f 6e 66 69 67 75 72 69  6e 67 22 0d 00 a0 21 c8  |onfiguring"...!.|
00000150  99 20 26 34 30 32 34 30  2c 30 2c 31 2c 26 42 36  |. &40240,0,1,&B6|
00000160  34 30 30 2c 62 75 66 25  2c 32 34 30 0d 00 aa 18  |400,buf%,240....|
00000170  e7 20 62 75 66 25 21 31  32 38 3d 44 25 20 8c 20  |. buf%!128=D% . |
00000180  8d 64 7a 40 0d 00 b4 0f  f2 72 65 6c 6f 61 64 63  |.dz@.....reloadc|
00000190  6d 6f 73 0d 00 be 05 3a  0d 00 c8 0c 2a 52 4d 43  |mos....:....*RMC|
000001a0  4c 45 41 52 0d 00 d2 14  2a 52 4d 4c 4f 41 44 20  |LEAR....*RMLOAD |
000001b0  52 4d 5f 54 75 6e 65 73  0d 00 dc 0a 2a 54 55 4e  |RM_Tunes....*TUN|
000001c0  45 31 0d 00 e6 0c 2a 52  45 50 54 4f 4e 33 0d 00  |E1....*REPTON3..|
000001d0  f0 05 3a 0d 00 fa 0e f2  62 72 65 61 6b 63 6f 64  |..:.....breakcod|
000001e0  65 0d 01 04 0a f2 74 65  73 74 73 0d 01 0e 05 3a  |e.....tests....:|
000001f0  0d 01 18 22 e7 20 a4 6d  65 74 20 80 20 a4 63 6d  |...". .met . .cm|
00000200  6f 73 28 31 38 35 29 3d  34 20 8c 20 e5 20 8d 64  |os(185)=4 . . .d|
00000210  48 40 0d 01 22 05 3a 0d  01 2c 20 f4 20 41 72 65  |H@..".:.., . Are|
00000220  20 63 6f 6e 64 69 74 69  6f 6e 73 20 61 74 74 61  | conditions atta|
00000230  69 6e 61 62 6c 65 3f 0d  01 36 2f 72 65 71 75 69  |inable?..6/requi|
00000240  72 65 64 3d 54 62 61 73  69 63 2b 54 73 63 72 65  |red=Tbasic+Tscre|
00000250  65 6e 2b 54 73 70 72 69  74 65 73 2b 54 66 6f 6e  |en+Tsprites+Tfon|
00000260  74 2b 54 72 6d 61 0d 01  40 3f 6d 61 78 75 73 65  |t+Trma..@?maxuse|
00000270  61 62 6c 65 3d 74 6f 74  2d 61 6c 6c 6f 63 28 35  |able=tot-alloc(5|
00000280  29 2d 61 6c 6c 6f 63 28  36 29 2d 61 6c 6c 6f 63  |)-alloc(6)-alloc|
00000290  28 34 29 2b 61 6c 6c 6f  63 28 39 29 2b 61 6c 6c  |(4)+alloc(9)+all|
000002a0  6f 63 28 38 29 0d 01 4a  2a e7 20 72 65 71 75 69  |oc(8)..J*. requi|
000002b0  72 65 64 3e 6d 61 78 75  73 65 61 62 6c 65 20 8c  |red>maxuseable .|
000002c0  20 f2 66 61 69 6c 6d 65  73 73 61 67 65 3a e0 0d  | .failmessage:..|
000002d0  01 54 05 3a 0d 01 5e 0d  f2 61 6c 6c 73 74 65 61  |.T.:..^..allstea|
000002e0  6c 0d 01 68 0d f2 73 61  76 65 63 6d 6f 73 0d 01  |l..h..savecmos..|
000002f0  72 1a e3 20 41 3d 30 20  b8 20 35 3a ff 28 63 6f  |r.. A=0 . 5:.(co|
00000300  6e 24 28 41 29 29 3a ed  0d 01 7c 13 2a 43 4f 4e  |n$(A)):...|.*CON|
00000310  46 49 47 55 52 45 20 42  4f 4f 54 0d 01 86 16 2a  |FIGURE BOOT....*|
00000320  43 4f 4e 46 49 47 55 52  45 20 44 52 49 56 45 20  |CONFIGURE DRIVE |
00000330  30 0d 01 90 19 2a 43 4f  4e 46 49 47 55 52 45 20  |0....*CONFIGURE |
00000340  4c 41 4e 47 55 41 47 45  20 34 0d 01 9a 0a d6 20  |LANGUAGE 4..... |
00000350  63 6f 64 65 0d 01 a4 05  e0 0d 01 ae 05 3a 0d 01  |code.........:..|
00000360  b8 10 dd f2 72 65 6c 6f  61 64 63 6d 6f 73 0d 01  |....reloadcmos..|
00000370  c2 10 e3 20 4a 25 3d 30  20 b8 20 32 33 39 0d 01  |... J%=0 . 239..|
00000380  cc 24 ff 28 22 46 58 31  36 32 2c 22 2b c3 28 4a  |.$.("FX162,"+.(J|
00000390  25 29 2b 22 2c 22 2b c3  28 62 75 66 25 3f 4a 25  |%)+","+.(buf%?J%|
000003a0  29 29 0d 01 d6 08 ed 20  4a 25 0d 01 e0 14 e3 20  |))..... J%..... |
000003b0  4a 25 3d 30 20 b8 20 32  33 36 20 88 20 34 0d 01  |J%=0 . 236 . 4..|
000003c0  ea 0e 62 75 66 25 21 4a  25 3d 44 25 0d 01 f4 08  |..buf%!J%=D%....|
000003d0  ed 20 4a 25 0d 01 fe 21  c8 99 20 26 34 30 32 34  |. J%...!.. &4024|
000003e0  30 2c 30 2c 32 2c 26 42  36 34 30 30 2c 62 75 66  |0,0,2,&B6400,buf|
000003f0  25 2c 32 34 30 0d 02 08  05 e1 0d 02 12 05 3a 0d  |%,240.........:.|
00000400  02 1c 0e dd f2 73 61 76  65 63 6d 6f 73 0d 02 26  |.....savecmos..&|
00000410  10 e3 20 41 25 3d 30 20  b8 20 32 33 39 0d 02 30  |.. A%=0 . 239..0|
00000420  15 62 75 66 25 21 41 25  3d a4 63 6d 6f 73 28 41  |.buf%!A%=.cmos(A|
00000430  25 29 0d 02 3a 08 ed 20  41 25 0d 02 44 21 c8 99  |%)..:.. A%..D!..|
00000440  20 26 34 30 32 34 30 2c  30 2c 32 2c 26 42 36 34  | &40240,0,2,&B64|
00000450  30 30 2c 62 75 66 25 2c  32 34 30 0d 02 4e 05 e1  |00,buf%,240..N..|
00000460  0d 02 58 05 3a 0d 02 62  0b dd f2 74 65 73 74 73  |..X.:..b...tests|
00000470  0d 02 6c 27 e7 20 a4 66  6f 75 72 20 8c 20 70 61  |..l'. .four . pa|
00000480  67 65 25 3d 26 38 30 30  30 20 8b 20 70 61 67 65  |ge%=&8000 . page|
00000490  25 3d 26 32 30 30 30 0d  02 76 11 f2 74 76 61 6c  |%=&2000..v..tval|
000004a0  75 65 61 64 6a 75 73 74  0d 02 80 0c f2 72 65 61  |ueadjust.....rea|
000004b0  64 72 61 6d 0d 02 8a 12  61 6c 6c 6f 63 28 37 29  |dram....alloc(7)|
000004c0  3d a4 73 63 72 6e 0d 02  94 10 61 6c 6c 6f 63 28  |=.scrn....alloc(|
000004d0  30 29 3d 93 2d 90 0d 02  9e 1d 61 6c 6c 6f 63 28  |0)=.-.....alloc(|
000004e0  38 29 3d 26 31 30 30 30  2a a4 63 6d 6f 73 28 31  |8)=&1000*.cmos(1|
000004f0  33 34 29 0d 02 a8 1d 61  6c 6c 6f 63 28 39 29 3d  |34)....alloc(9)=|
00000500  70 61 67 65 25 2a a4 63  6d 6f 73 28 31 34 36 29  |page%*.cmos(146)|
00000510  0d 02 b2 1d e3 20 41 3d  31 20 b8 20 37 3a 74 6f  |..... A=1 . 7:to|
00000520  74 2b 3d 61 6c 6c 6f 63  28 41 29 3a ed 0d 02 bc  |t+=alloc(A):....|
00000530  05 e1 0d 02 c6 05 3a 0d  02 d0 0d dd f2 72 65 61  |......:......rea|
00000540  64 72 61 6d 0d 02 da 0a  f7 20 8d 54 60 43 0d 02  |dram..... .T`C..|
00000550  e4 0d e3 20 41 3d 31 20  b8 20 36 0d 02 ee 0c f3  |... A=1 . 6.....|
00000560  20 73 74 61 72 74 25 0d  02 f8 18 73 74 61 72 74  | start%....start|
00000570  25 3d 73 74 61 72 74 25  2a 26 31 30 30 30 30 0d  |%=start%*&10000.|
00000580  03 02 21 61 6c 6c 6f 63  28 41 29 3d a4 72 61 6e  |..!alloc(A)=.ran|
00000590  67 65 28 73 74 61 72 74  25 2c 70 61 67 65 25 29  |ge(start%,page%)|
000005a0  0d 03 0c 05 ed 0d 03 16  05 e1 0d 03 20 20 dc 20  |............  . |
000005b0  30 2c 26 31 30 30 2c 26  31 34 30 2c 26 31 38 30  |0,&100,&140,&180|
000005c0  2c 26 31 43 30 2c 26 31  46 30 0d 03 2a 05 3a 0d  |,&1C0,&1F0..*.:.|
000005d0  03 34 0e dd f2 61 6c 6c  73 74 65 61 6c 0d 03 3e  |.4...allsteal..>|
000005e0  14 43 24 3d 22 2a 43 6f  6e 66 69 67 75 72 65 20  |.C$="*Configure |
000005f0  22 0d 03 48 2d 63 6f 6e  24 28 30 29 3d 43 24 2b  |"..H-con$(0)=C$+|
00000600  22 53 63 72 65 65 6e 53  69 7a 65 20 22 2b c3 28  |"ScreenSize "+.(|
00000610  54 73 63 72 65 65 6e 2f  70 61 67 65 25 29 0d 03  |Tscreen/page%)..|
00000620  52 2e 63 6f 6e 24 28 31  29 3d 43 24 2b 22 53 70  |R.con$(1)=C$+"Sp|
00000630  72 69 74 65 53 69 7a 65  20 22 2b c3 28 54 73 70  |riteSize "+.(Tsp|
00000640  72 69 74 65 73 2f 70 61  67 65 25 29 0d 03 5c 29  |rites/page%)..\)|
00000650  63 6f 6e 24 28 32 29 3d  43 24 2b 22 46 6f 6e 74  |con$(2)=C$+"Font|
00000660  53 69 7a 65 20 22 2b c3  28 54 66 6f 6e 74 2f 28  |Size "+.(Tfont/(|
00000670  34 2a 4b 29 29 0d 03 66  27 63 6f 6e 24 28 33 29  |4*K))..f'con$(3)|
00000680  3d 43 24 2b 22 52 4d 41  53 69 7a 65 20 22 2b c3  |=C$+"RMASize "+.|
00000690  28 54 72 6d 61 2f 70 61  67 65 25 29 0d 03 70 1c  |(Trma/page%)..p.|
000006a0  63 6f 6e 24 28 34 29 3d  43 24 2b 22 52 61 6d 46  |con$(4)=C$+"RamF|
000006b0  53 73 69 7a 65 20 30 22  0d 03 7a 1d 63 6f 6e 24  |Ssize 0"..z.con$|
000006c0  28 35 29 3d 43 24 2b 22  53 79 73 74 65 6d 53 69  |(5)=C$+"SystemSi|
000006d0  7a 65 20 30 22 0d 03 84  05 e1 0d 03 8e 05 3a 0d  |ze 0".........:.|
000006e0  03 98 12 dd f2 74 76 61  6c 75 65 61 64 6a 75 73  |.....tvalueadjus|
000006f0  74 0d 03 a2 3d e7 20 54  73 63 72 65 65 6e 3c 34  |t...=. Tscreen<4|
00000700  30 20 8c 20 f1 22 53 43  52 45 45 4e 20 56 41 4c  |0 . ."SCREEN VAL|
00000710  55 45 20 54 4f 4f 20 4c  4f 57 20 28 34 30 4b 20  |UE TOO LOW (40K |
00000720  4d 69 6e 69 6d 75 6d 29  22 3a ef 37 3a e0 0d 03  |Minimum)":.7:...|
00000730  ac 1b 54 62 61 73 69 63  3d a4 72 6f 75 6e 64 75  |..Tbasic=.roundu|
00000740  70 28 54 62 61 73 69 63  29 0d 03 b6 1d 54 73 63  |p(Tbasic)....Tsc|
00000750  72 65 65 6e 3d a4 72 6f  75 6e 64 75 70 28 54 73  |reen=.roundup(Ts|
00000760  63 72 65 65 6e 29 0d 03  c0 1f 54 73 70 72 69 74  |creen)....Tsprit|
00000770  65 73 3d a4 72 6f 75 6e  64 75 70 28 54 73 70 72  |es=.roundup(Tspr|
00000780  69 74 65 73 29 0d 03 ca  17 54 72 6d 61 3d a4 72  |ites)....Trma=.r|
00000790  6f 75 6e 64 75 70 28 54  72 6d 61 29 0d 03 d4 11  |oundup(Trma)....|
000007a0  54 66 6f 6e 74 3d 54 66  6f 6e 74 2a 4b 0d 03 de  |Tfont=Tfont*K...|
000007b0  30 e7 20 54 66 6f 6e 74  20 83 20 28 34 2a 4b 29  |0. Tfont . (4*K)|
000007c0  20 8c 20 54 66 6f 6e 74  2b 3d 34 2a 4b 2d 28 54  | . Tfont+=4*K-(T|
000007d0  66 6f 6e 74 20 83 20 28  34 2a 4b 29 29 0d 03 e8  |font . (4*K))...|
000007e0  05 e1 0d 03 f2 05 3a 0d  03 fc 14 dd a4 72 6f 75  |......:......rou|
000007f0  6e 64 75 70 28 70 61 72  61 6d 29 0d 04 06 11 70  |ndup(param)....p|
00000800  61 72 61 6d 3d 70 61 72  61 6d 2a 4b 0d 04 10 31  |aram=param*K...1|
00000810  3d 70 61 67 65 25 2a 28  28 a8 28 70 61 72 61 6d  |=page%*((.(param|
00000820  2f 70 61 67 65 25 29 2d  28 28 70 61 72 61 6d 20  |/page%)-((param |
00000830  83 20 70 61 67 65 25 29  3e 30 29 29 29 0d 04 1a  |. page%)>0)))...|
00000840  05 3a 0d 04 24 09 dd a4  6d 65 74 0d 04 2e 1d 4d  |.:..$...met....M|
00000850  62 61 73 69 63 3d 28 54  62 61 73 69 63 3c 3d 61  |basic=(Tbasic<=a|
00000860  6c 6c 6f 63 28 30 29 29  0d 04 38 1f 4d 73 63 72  |lloc(0))..8.Mscr|
00000870  65 65 6e 3d 28 54 73 63  72 65 65 6e 3c 3d 61 6c  |een=(Tscreen<=al|
00000880  6c 6f 63 28 37 29 29 0d  04 42 21 4d 73 70 72 69  |loc(7))..B!Mspri|
00000890  74 65 73 3d 28 54 73 70  72 69 74 65 73 3c 3d 61  |tes=(Tsprites<=a|
000008a0  6c 6c 6f 63 28 33 29 29  0d 04 4c 1b 4d 66 6f 6e  |lloc(3))..L.Mfon|
000008b0  74 3d 28 54 66 6f 6e 74  3c 3d 61 6c 6c 6f 63 28  |t=(Tfont<=alloc(|
000008c0  38 29 29 0d 04 56 19 4d  72 6d 61 3d 28 54 72 6d  |8))..V.Mrma=(Trm|
000008d0  61 3c 3d 61 6c 6c 6f 63  28 39 29 29 0d 04 60 2f  |a<=alloc(9))..`/|
000008e0  3d 4d 62 61 73 69 63 20  80 20 4d 73 63 72 65 65  |=Mbasic . Mscree|
000008f0  6e 20 80 20 4d 73 70 72  69 74 65 73 20 80 20 4d  |n . Msprites . M|
00000900  66 6f 6e 74 20 80 20 4d  72 6d 61 0d 04 6a 05 3a  |font . Mrma..j.:|
00000910  0d 04 74 0f dd a4 63 6d  6f 73 28 6c 6f 63 29 0d  |..t...cmos(loc).|
00000920  04 7e 18 c8 99 20 36 2c  31 36 31 2c 6c 6f 63 20  |.~... 6,161,loc |
00000930  b8 20 58 2c 59 2c 5a 0d  04 88 06 3d 5a 0d 04 92  |. X,Y,Z....=Z...|
00000940  05 3a 0d 04 9c 19 dd a4  72 61 6e 67 65 28 73 74  |.:......range(st|
00000950  61 72 74 25 2c 70 61 67  65 25 29 0d 04 a6 10 61  |art%,page%)....a|
00000960  64 64 72 25 3d 73 74 61  72 74 25 0d 04 b0 05 f5  |ddr%=start%.....|
00000970  0d 04 ba 14 5a 25 3d a4  63 68 65 63 6b 28 61 64  |....Z%=.check(ad|
00000980  64 72 25 29 0d 04 c4 10  61 64 64 72 25 2b 3d 70  |dr%)....addr%+=p|
00000990  61 67 65 25 0d 04 ce 0a  fd 20 5a 25 3d a3 0d 04  |age%..... Z%=...|
000009a0  d8 17 3d 61 64 64 72 25  2d 73 74 61 72 74 25 2d  |..=addr%-start%-|
000009b0  70 61 67 65 25 0d 04 e2  05 3a 0d 04 ec 12 dd a4  |page%....:......|
000009c0  63 68 65 63 6b 28 61 64  64 72 25 29 0d 04 f6 20  |check(addr%)... |
000009d0  c8 99 20 26 33 41 2c 61  64 64 72 25 2c 61 64 64  |.. &3A,addr%,add|
000009e0  72 25 2b 31 20 b8 20 3b  66 6c 61 67 0d 05 00 11  |r%+1 . ;flag....|
000009f0  3d 28 66 6c 61 67 20 80  20 32 29 3d 30 0d 05 0a  |=(flag . 2)=0...|
00000a00  05 3a 0d 05 14 0a dd a4  73 63 72 6e 0d 05 1e 26  |.:......scrn...&|
00000a10  42 25 3d 28 28 42 25 2b  33 29 81 34 29 2a 34 3a  |B%=((B%+3).4)*4:|
00000a20  21 42 25 3d 31 35 30 3a  21 28 42 25 2b 34 29 3d  |!B%=150:!(B%+4)=|
00000a30  2d 31 0d 05 28 1f c8 99  20 26 33 31 2c 42 25 2c  |-1..(... &31,B%,|
00000a40  42 25 2b 26 31 30 3a 3d  21 28 42 25 2b 26 31 30  |B%+&10:=!(B%+&10|
00000a50  29 0d 05 32 05 3a 0d 05  3c 0a dd a4 66 6f 75 72  |)..2.:..<...four|
00000a60  0d 05 46 15 c8 99 20 26  31 41 20 2c 30 2c 30 20  |..F... &1A ,0,0 |
00000a70  b8 20 72 65 67 0d 05 50  10 3d 28 72 65 67 20 80  |. reg..P.=(reg .|
00000a80  20 38 29 3d 38 0d 05 5a  05 3a 0d 05 64 0c dd a4  | 8)=8..Z.:..d...|
00000a90  6f 73 74 65 73 74 0d 05  6e 16 c8 99 20 36 2b 32  |ostest..n... 6+2|
00000aa0  5e 31 37 2c 30 2c 30 20  b8 20 41 25 0d 05 78 10  |^17,0,0 . A%..x.|
00000ab0  41 24 3d 22 22 3a 41 25  2b 3d 31 31 0d 05 82 0d  |A$="":A%+=11....|
00000ac0  e3 20 42 3d 30 20 b8 20  33 0d 05 8c 0f 41 24 2b  |. B=0 . 3....A$+|
00000ad0  3d bd 28 41 25 3f 42 29  0d 05 96 0c ed 3a 3d bb  |=.(A%?B).....:=.|
00000ae0  28 41 24 29 0d 05 a0 05  3a 0d 05 aa 0f dd f2 62  |(A$)....:......b|
00000af0  72 65 61 6b 63 6f 64 65  0d 05 b4 0a f7 20 8d 64  |reakcode..... .d|
00000b00  7a 45 0d 05 be 13 e3 20  49 25 3d 30 20 b8 20 33  |zE..... I%=0 . 3|
00000b10  36 20 88 20 34 0d 05 c8  0a f3 20 68 65 78 25 0d  |6 . 4..... hex%.|
00000b20  05 d2 10 63 6f 64 65 21  49 25 3d 68 65 78 25 0d  |...code!I%=hex%.|
00000b30  05 dc 05 ed 0d 05 e6 05  e1 0d 05 f0 05 3a 0d 05  |.............:..|
00000b40  fa 37 dc 20 26 45 33 41  30 30 30 43 38 2c 26 45  |.7. &E3A000C8,&E|
00000b50  33 41 30 31 30 30 33 2c  26 45 33 41 30 32 30 30  |3A01003,&E3A0200|
00000b60  30 2c 26 45 46 30 32 30  30 30 36 2c 26 45 33 41  |0,&EF020006,&E3A|
00000b70  30 30 35 30 45 0d 06 04  37 dc 20 26 45 35 39 30  |0050E...7. &E590|
00000b80  31 30 30 30 2c 26 45 37  30 31 31 30 30 31 2c 26  |1000,&E7011001,&|
00000b90  45 46 30 32 30 30 31 36  2c 26 45 33 33 46 46 33  |EF020016,&E33FF3|
00000ba0  46 46 2c 26 45 33 41 30  46 30 30 30 0d ff        |FF,&E3A0F000..|
00000bae