!AWJune94/Goodies/Alien/!Invasion/BasicProgs/ArtScConv

Home » Archimedes archive » Archimedes World » AW-1994-06-Disc2.adf » Disk2Jun94 » !AWJune94/Goodies/Alien/!Invasion/BasicProgs/ArtScConv

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

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

Tape/disk:	Home » Archimedes archive » Archimedes World » AW-1994-06-Disc2.adf » Disk2Jun94
Filename:	!AWJune94/Goodies/Alien/!Invasion/BasicProgs/ArtScConv
Read OK:	✔
File size:	20D3 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > <Invasion$Dir>.BasicProgs.ArtScConv
   20
   30REM Program : Converts Artisan (mode 12) screens to mode 9 compressed
   40REM Author  : A.S.W.Nelson
   50REM Date    : 11.01.90
   60:
   70ON ERROR RUN
   80OSCLI("fx 229 0")
   90PROCinit
  100REPEAT
  110   PROCget_option
  120UNTIL exit%
  130CHAIN "<Invasion$Dir>.BasicProgs.Menu"
  140END
  150:
  160DEF PROCinit
  170DIM data% 10
  180exit%=FALSE
  190black%=0
  200dark_grey%=1
  210light_grey%=3
  220red%=4
  230orange%=5
  240yellow%=6
  250bright_green%=8
  260dark_green%=9
  270cyan%=10
  280dark_blue%=11
  290dark_brown%=12
  300light_brown%=13
  310white%=15
  320magenta%=8
  330REM OSCLI("fx 229 1")
  340VOICES 1
  350OSCLI("CHANNELVOICE 1 WaveSynth-Beep")
  360RESTORE
  370READ options%
  380DIM option_title$(options%)
  390DIM option_box%(options%,4)
  400FOR I%=1 TO options%
  410   READ option_title$(I%)
  420   FOR K%=1 TO 4
  430      READ option_box%(I%,K%)
  440   NEXT K%
  450NEXT I%
  460PROCloading
  470DIM data_block% 45*1024
  480DIM comp_block% 55*1024
  490DATA 4
  500DATA "Artisan Conversion",10  ,110 ,620 ,64
  510DATA "Edit Backdrop Attributes" ,10  , 20 ,810 ,64
  520DATA "MODE 12 Conversion" , 650, 110, 620, 64
  530DATA "Exit To Menu"     ,842 , 20 ,430 ,64
  540ENDPROC
  550:
  560DEF PROCrow_slice
  570LOCAL screen_start%,input_block%,output_block%,C%,D%,offset%,R2%,R3%
  580LOCAL map%(), ls2%, ms2%, ls%, ms%, E%, F%, G%, offset2%
  590LOCAL diff%, best1, composite%(), to_use%, black%
  600DIM input_block% 100,output_block% 100, map%(16,3), composite%(16,16)
  610!input_block%=148
  620!(input_block%+4)=-1
  630SYS "OS_ReadVduVariables",input_block%,output_block%
  640screen_start%=!output_block%
  650
  660!input_block%=148
  670!(input_block%+4)=-1
  680SYS "OS_ReadVduVariables",input_block%,output_block%
  690screen_start%=!output_block%
  700
  710offset2%=0
  720black%=0
  730best%=999
  740FOR D%=0 TO 15
  750   diff%=0
  760   SYS "OS_ReadPalette",D%,16 TO ,,R2%,R3%
  770   map%(D%,0)=FNbits(R2%,8)
  780   map%(D%,1)=FNbits(R2%,16)
  790   map%(D%,2)=FNbits(R2%,24)
  800   FOR E%=0 TO 2
  810      REMBPUT#C%,map%(D%,E%)
  820      ?(data_block%+offset2%)=map%(D%,E%)
  830      offset2%+=1
  840      diff%+=map%(D%,E%)
  850   NEXT E%
  860   IF diff%<best% THEN best%=diff%:black%=D%
  870NEXT D%
  880FOR D%=0 TO 15
  890   FOR E%=0 TO 15
  900      REM now map every composite colour combination onto one colour
  910      FOR F%=0 TO 2
  920         map%(16,F%)=map%(D%,F%)/2+map%(E%,F%)/2:REM composite RGB
  930      NEXT F%
  940      best%=999
  950      to_use%=0
  960      FOR G%=0 TO 15
  970         diff%=0
  980         FOR F%=0 TO 2
  990            diff%+=ABS(map%(16,F%)-map%(G%,F%))
 1000         NEXT F%
 1010         IF diff%<best% THEN best%=diff%:to_use%=G%
 1020      NEXT G%
 1030      composite%(D%,E%)=to_use%
 1040   NEXT E%
 1050NEXT D%
 1060offset%=0
 1070FOR D%=0 TO &13FFF STEP 2
 1080   ls%=?(screen_start%+offset%) DIV 16
 1090   ms%=?(screen_start%+offset%+1) DIV 16
 1100   ls2%=?(screen_start%+offset%) MOD 16
 1110   ms2%=?(screen_start%+offset%+1) MOD 16
 1120   ?(data_block%+offset2%)=composite%(ms%,ms2%)*16+composite%(ls%,ls2%)
 1130   offset2%+=1
 1140   offset%+=2
 1150NEXT D%
 1160ENDPROC
 1170:
 1180DEFFNbits(value%,from%)
 1190   LOCAL extract%,A%
 1200   extract%=0
 1210   FOR A%=from% TO from%+7
 1220      IF A%<31 THEN
 1230         IF (value% AND (2^A%))>0 THEN extract%=extract%+(2^(A%-from%))
 1240      ELSE
 1250         IF value%<0 THEN extract%=extract%+(2^(A%-from%))
 1260      ENDIF
 1270   NEXT A%
 1280=extract%
 1290:
 1300DEF PROCcompress
 1310LOCAL offset%, offset2%
 1320LOCAL length%, colours%
 1330LOCAL A%, C%, L%, D%
 1340LOCAL X%,
 1350
 1360offset%=4
 1370offset2%=0
 1380colours%=16
 1390length%=40*1024
 1400
 1410PRINT TAB(0,0);"Please wait...compressing screen";
 1420
 1430REM palette preservation
 1440FOR C%=0 TO colours%-1
 1450   FOR D%=0 TO 2
 1460      PROCstore_data(?(data_block%+offset2%+D%))
 1470   NEXT D%
 1480   offset2%+=3
 1490NEXT C%
 1500
 1510REM  screen compression routine
 1520A%=0
 1530WHILE A%<length%
 1540   L%=?(data_block%+48+A%)
 1550   C%=1
 1560   A%+=1
 1570   WHILE C%<255 AND ?(data_block%+48+A%)=L% AND A%<length%
 1580      A%+=1
 1590      C%+=1
 1600   ENDWHILE
 1610   IF C%=1 THEN
 1620      I%=1
 1630      X%=0
 1640      WHILE I%<3 AND C%<255 AND A%+X%<length%
 1650         IF ?(data_block%+48+A%+X%)=L% THEN
 1660            I%+=1
 1670         ELSE
 1680            I%=1
 1690            L%=?(data_block%+48+A%+X%)
 1700         ENDIF
 1710         X%+=1
 1720         C%+=1
 1730      ENDWHILE
 1740      IF I%=3 THEN
 1750         C%-=3
 1760      ENDIF
 1770      A%-=1
 1780      IF C%>1 THEN
 1790         PROCstore_data(0)
 1800         PROCstore_data(C%)
 1810         FOR B%=1 TO C%
 1820            PROCstore_data(?(data_block%+48+A%))
 1830            A%+=1
 1840         NEXT B%
 1850      ELSE
 1860         PROCstore_data(1)
 1870         PROCstore_data(?(data_block%+48+A%))
 1880         A%+=1
 1890      ENDIF
 1900   ELSE
 1910      PROCstore_data(C%)
 1920      PROCstore_data(L%)
 1930   ENDIF
 1940ENDWHILE
 1950!(comp_block%)=offset%-4
 1960OSCLI("SAVE <Invasion$Dir>.BACKGROUND.Screen"+STR$(number%)+" "+STR$~comp_block%+"+"+STR$~offset%)
 1970OSCLI("SETTYPE <Invasion$Dir>.BACKGROUND.Screen"+STR$(number%)+" 336")
 1980ENDPROC
 1990:
 2000DEF PROCstore_data(data%)
 2010?(comp_block%+offset%)=data%
 2020offset%+=1
 2030ENDPROC
 2040:
 2050DEF PROCdisplay_option
 2060PROCprint("BACKDROP SCREEN CONVERTER",0,1000,TRUE)
 2070FOR I%=1 TO options%
 2080   PROCdisp_option(I%,6)
 2090NEXT I%
 2100ENDPROC
 2110:
 2120DEF PROCdisp_option(opt%,col%)
 2130LOCAL BX%,BY%,BW%,BH%
 2140IF opt%=0 THEN ENDPROC
 2150BX%=option_box%(opt%,1)
 2160BY%=option_box%(opt%,2)
 2170BW%=option_box%(opt%,3)
 2180BH%=option_box%(opt%,4)
 2190GCOL 0,black%
 2200RECTANGLE BX%,BY%,BW%,BH%
 2210GCOL 0,white%
 2220RECTANGLE BX%+4,BY%+4,BW%-8,BH%-8
 2230GCOL 0,col%
 2240RECTANGLE FILL BX%+8,BY%+8,BW%-16,BH%-16
 2250PROCprint(option_title$(opt%),BX%+(BW%-LEN(option_title$(opt%))*32)/2,BY%-8+(BH%+40)/2,FALSE)
 2260ENDPROC
 2270:
 2280DEF PROCget_option
 2290REPEAT
 2300   PROCmouse
 2310   FOR I%=1 TO options%
 2320      IF FNis_mouse_in_box(MX%,MY%,option_box%(I%,1),option_box%(I%,2),option_box%(I%,3),option_box%(I%,4)) THEN
 2330         IF current%<>I% THEN PROCdisp_option(current%,6):current%=I%:PROCdisp_option(current%,11)
 2340      ELSE
 2350         IF current%=I% THEN
 2360            PROCdisp_option(current%,6)
 2370            current%=0
 2380         ENDIF
 2390      ENDIF
 2400   NEXT I%
 2410UNTIL MB%>0
 2420FOR I%=1 TO options%
 2430   IF FNis_mouse_in_box(MX%,MY%,option_box%(I%,1),option_box%(I%,2),option_box%(I%,3),option_box%(I%,4)) THEN
 2440      MOUSE OFF
 2450      CASE I% OF
 2460         WHEN 1: PROCconversion(TRUE):MOUSE ON
 2470         WHEN 2: PROCbackground_attributes:MOUSE ON
 2480         WHEN 3: PROCconversion(FALSE):MOUSE ON
 2490         OTHERWISE: CLS
 2500                    exit%=TRUE
 2510      ENDCASE
 2520   ENDIF
 2530NEXT I%
 2540ENDPROC
 2550:
 2560DEFFNis_mouse_in_box(MX%,MY%,X1%,Y1%,XD%,YD%)
 2570=MX%>X1% AND MX%<X1%+XD% AND MY%>Y1% AND MY%<Y1%+YD%
 2580:
 2590DEF PROCmouse
 2600MOUSE MX%,MY%,MB%
 2610PROCdelay(.15)
 2620ENDPROC
 2630:
 2640DEF PROCdelay(seconds)
 2650TIME=0
 2660REPEAT
 2670UNTIL TIME>seconds*100
 2680ENDPROC
 2690:
 2700DEF PROCprint(text$,X%,Y%,F%)
 2710IF F%=TRUE THEN
 2720   X%=(1280-LEN(text$)*32)/2
 2730ENDIF
 2740VDU 5
 2750GCOL 0,black%
 2760VDU 23,17,7,6,XPIXS%;8;0,0
 2770MOVE X%-4,Y%
 2780PRINT text$;
 2790MOVE X%+4,Y%
 2800PRINT text$;
 2810MOVE X%,Y%+4
 2820PRINT text$;
 2830MOVE X%,Y%-4
 2840PRINT text$;
 2850GCOL 0,red%
 2860MOVE X%,Y%
 2870PRINT text$;
 2880VDU 23,17,7,6,8;8;0,0
 2890VDU 4
 2900OFF
 2910ENDPROC
 2920:
 2930DEF PROCbackground_attributes
 2940LOCAL last_num%,waves%,new_screens%,new_between%
 2950OSCLI("load <Invasion$Dir>.BACKGROUND.ScreenInfo "+STR$~data%)
 2960last_num%=?data%
 2970waves%=?(data%+1)
 2980PRINT TAB(0,3);"Current backdrop attributes:"
 2990PRINT '"Number Of Screens = ";last_num%
 3000PRINT "Number Of Waves Between Backdrops = ";waves%
 3010REPEAT
 3020   PRINT ''"How many backdrop screens are there"'"==> ";
 3030   INPUT new_screens%
 3040UNTIL new_screens%<100
 3050
 3060IF new_screens%=0 PROCinit:ENDPROC
 3070
 3080REPEAT
 3090   PRINT ''"How many consecutive waves between new"'"backdrops ==> ";
 3100   INPUT new_between%
 3110UNTIL new_between%<100
 3120
 3130IF new_between%=0 PROCinit:ENDPROC
 3140
 3150?(data%)=new_screens%
 3160?(data%+1)=new_between%
 3170OSCLI("SAVE <Invasion$Dir>.BACKGROUND.ScreenInfo "+STR$~data%+" +2")
 3180OSCLI("SETTYPE <Invasion$Dir>.BACKGROUND.ScreenInfo 337")
 3190PROCloading
 3200ENDPROC
 3210:
 3220DEF PROCconversion(artisan%)
 3230LOCAL number%, prompt$
 3240IF artisan% THEN
 3250   prompt$="Artisan"
 3260ELSE
 3270   prompt$="MODE 12"
 3280ENDIF
 3290PRINT TAB(0,2);
 3300REPEAT
 3310   PRINT '"Please type in the number for the"'"converted screen (this will be used by"'"the game) ==> ";
 3320   INPUT number%
 3330UNTIL number%<100
 3340
 3350IF number%=0 PROCinit:ENDPROC
 3360
 3370PRINT '"Please insert the ";prompt$;" disc"'"into the disc drive."
 3380PRINT '"After typing in the name of the ";prompt$;'"screen please remove the disc after the"'"sound and press the spacebar when the"'"Alien Invasion disc is back in the disc"'"drive."
 3390REPEAT
 3400   PRINT '"Please type in the name of the ";prompt$;'"screen to convert ==> ";
 3410   INPUT filename$
 3420UNTIL LEN(filename$)>0 AND LEN(filename$)<255
 3430IF artisan% THEN filename$="$.ARTISAN."+filename$
 3440OSCLI("MOUNT 0")
 3450OSCLI("SCREENLOAD "+filename$)
 3460OFF
 3470VDU 7
 3480G%=GET
 3490OSCLI("MOUNT 0")
 3500PROCrow_slice
 3510PROCcompress
 3520PROCloading
 3530ENDPROC
 3540:
 3550DEF PROCloading
 3560OSCLI("SCREENLOAD <Invasion$Dir>.Loading")
 3570current%=0
 3580OSCLI("POINTER 1")
 3590IF MODE=9 THEN
 3600   XPIXS%=8
 3610ELSE
 3620   XPIXS%=16
 3630ENDIF
 3640MOUSE ON
 3650MOUSE RECTANGLE 0,10,1280,1010
 3660MOUSE TO 187,136
 3670OSCLI("fx 21 9")
 3680PROCdisplay_option
 3690ENDPROC


+� > <Invasion$Dir>.BasicProgs.ArtScConv

G� Program : Converts Artisan (mode 12) screens to mode 9 compressed
(� Author  : A.S.W.Nelson
2� Date    : 11.01.90
<:
F	� � �
P�("fx 229 0")
Z	�init
d�
n   �get_option
x� exit%
�&� "<Invasion$Dir>.BasicProgs.Menu"
��
�:
�� �init
�� data% 10
�exit%=�
�black%=0
�dark_grey%=1
�light_grey%=3
�
red%=4
�
orange%=5
�
yellow%=6
�bright_green%=8
dark_green%=9
cyan%=10
dark_blue%=11
"dark_brown%=12
,light_brown%=13
6
white%=15
@magenta%=8
J� OSCLI("fx 229 1")
TȠ 1
^&�("CHANNELVOICE 1 WaveSynth-Beep")
h�
r� options%
|� option_title$(options%)
�� option_box%(options%,4)
�� I%=1 � options%
�   � option_title$(I%)
�   � K%=1 � 4
�      � option_box%(I%,K%)
�   � K%
�� I%
��loading
�� data_block% 45*1024
�� comp_block% 55*1024
�� 4
�,� "Artisan Conversion",10  ,110 ,620 ,64
�3� "Edit Backdrop Attributes" ,10  , 20 ,810 ,64
.� "MODE 12 Conversion" , 650, 110, 620, 64
+� "Exit To Menu"     ,842 , 20 ,430 ,64
�
&:
0� �row_slice
:D� screen_start%,input_block%,output_block%,C%,D%,offset%,R2%,R3%
D8� map%(), ls2%, ms2%, ls%, ms%, E%, F%, G%, offset2%
N1� diff%, best1, composite%(), to_use%, black%
XG� input_block% 100,output_block% 100, map%(16,3), composite%(16,16)
b!input_block%=148
l!(input_block%+4)=-1
v7ș "OS_ReadVduVariables",input_block%,output_block%
� screen_start%=!output_block%
�
�!input_block%=148
�!(input_block%+4)=-1
�7ș "OS_ReadVduVariables",input_block%,output_block%
� screen_start%=!output_block%
�
�offset2%=0
�black%=0
�
best%=999
�� D%=0 � 15
�   diff%=0
�,   ș "OS_ReadPalette",D%,16 � ,,R2%,R3%
   map%(D%,0)=�bits(R2%,8)
   map%(D%,1)=�bits(R2%,16)
   map%(D%,2)=�bits(R2%,24)
    � E%=0 � 2
*      �BPUT#C%,map%(D%,E%)
4-      ?(data_block%+offset2%)=map%(D%,E%)
>      offset2%+=1
H      diff%+=map%(D%,E%)
R   � E%
\,   � diff%<best% � best%=diff%:black%=D%
f� D%
p� D%=0 � 15
z   � E%=0 � 15
�F      � now map every composite colour combination onto one colour
�      � F%=0 � 2
�D         map%(16,F%)=map%(D%,F%)/2+map%(E%,F%)/2:� composite RGB
�      � F%
�      best%=999
�      to_use%=0
�      � G%=0 � 15
�         diff%=0
�         � F%=0 � 2
�1            diff%+=�(map%(16,F%)-map%(G%,F%))
�         � F%
�3         � diff%<best% � best%=diff%:to_use%=G%
�      � G%
#      composite%(D%,E%)=to_use%
   � E%
� D%
$
offset%=0
.� D%=0 � &13FFF � 2
8(   ls%=?(screen_start%+offset%) � 16
B*   ms%=?(screen_start%+offset%+1) � 16
L)   ls2%=?(screen_start%+offset%) � 16
V+   ms2%=?(screen_start%+offset%+1) � 16
`K   ?(data_block%+offset2%)=composite%(ms%,ms2%)*16+composite%(ls%,ls2%)
j   offset2%+=1
t   offset%+=2
~� D%
��
�:
�ݤbits(value%,from%)
�   � extract%,A%
�   extract%=0
�   � A%=from% � from%+7
�      � A%<31 �
�E         � (value% � (2^A%))>0 � extract%=extract%+(2^(A%-from%))
�      �
�:         � value%<0 � extract%=extract%+(2^(A%-from%))
�      �
�   � A%

=extract%

:
� �compress
� offset%, offset2%
(� length%, colours%
2� A%, C%, L%, D%
<	� X%,
F
P
offset%=4
Zoffset2%=0
dcolours%=16
nlength%=40*1024
x
�/� �0,0);"Please wait...compressing screen";
�
�� palette preservation
�� C%=0 � colours%-1
�   � D%=0 � 2
�1      �store_data(?(data_block%+offset2%+D%))
�   � D%
�   offset2%+=3
�� C%
�
�!�  screen compression routine
�A%=0
�ȕ A%<length%
   L%=?(data_block%+48+A%)
   C%=1
   A%+=1
"7   ȕ C%<255 � ?(data_block%+48+A%)=L% � A%<length%
,      A%+=1
6      C%+=1
@   �
J   � C%=1 �
T      I%=1
^      X%=0
h*      ȕ I%<3 � C%<255 � A%+X%<length%
r+         � ?(data_block%+48+A%+X%)=L% �
|            I%+=1
�         �
�            I%=1
�*            L%=?(data_block%+48+A%+X%)
�         �
�         X%+=1
�         C%+=1
�      �
�      � I%=3 �
�         C%-=3
�      �
�      A%-=1
�      � C%>1 �
�         �store_data(0)
         �store_data(C%)
         � B%=1 � C%
1            �store_data(?(data_block%+48+A%))
&            A%+=1
0         � B%
:      �
D         �store_data(1)
N.         �store_data(?(data_block%+48+A%))
X         A%+=1
b      �
l   �
v      �store_data(C%)
�      �store_data(L%)
�   �
��
�!(comp_block%)=offset%-4
�Y�("SAVE <Invasion$Dir>.BACKGROUND.Screen"+�(number%)+" "+�~comp_block%+"+"+�~offset%)
�C�("SETTYPE <Invasion$Dir>.BACKGROUND.Screen"+�(number%)+" 336")
��
�:
�� �store_data(data%)
� ?(comp_block%+offset%)=data%
�offset%+=1
��
�:
� �display_option
0�print("BACKDROP SCREEN CONVERTER",0,1000,�)
� I%=1 � options%
    �disp_option(I%,6)
*� I%
4�
>:
H� �disp_option(opt%,col%)
R� BX%,BY%,BW%,BH%
\� opt%=0 � �
fBX%=option_box%(opt%,1)
pBY%=option_box%(opt%,2)
zBW%=option_box%(opt%,3)
�BH%=option_box%(opt%,4)
�� 0,black%
�ȓ BX%,BY%,BW%,BH%
�� 0,white%
�ȓ BX%+4,BY%+4,BW%-8,BH%-8
�� 0,col%
�#ȓ Ȑ BX%+8,BY%+8,BW%-16,BH%-16
�X�print(option_title$(opt%),BX%+(BW%-�(option_title$(opt%))*32)/2,BY%-8+(BH%+40)/2,�)
��
�:
�� �get_option
��
�
   �mouse
	   � I%=1 � options%
	o      � �is_mouse_in_box(MX%,MY%,option_box%(I%,1),option_box%(I%,2),option_box%(I%,3),option_box%(I%,4)) �
	\         � current%<>I% � �disp_option(current%,6):current%=I%:�disp_option(current%,11)
	$      �
	.         � current%=I% �
	8(            �disp_option(current%,6)
	B            current%=0
	L         �
	V      �
	`   � I%
	j� MB%>0
	t� I%=1 � options%
	~l   � �is_mouse_in_box(MX%,MY%,option_box%(I%,1),option_box%(I%,2),option_box%(I%,3),option_box%(I%,4)) �
	�      ȗ �
	�      Ȏ I% �
	�%         � 1: �conversion(�):ȗ �
	�-         � 2: �background_attributes:ȗ �
	�%         � 3: �conversion(�):ȗ �
	�         : �
	�                    exit%=�
	�      �
	�   �
	�� I%
	��
	�:
.ݤis_mouse_in_box(MX%,MY%,X1%,Y1%,XD%,YD%)

2=MX%>X1% � MX%<X1%+XD% � MY%>Y1% � MY%<Y1%+YD%
:
� �mouse
(ȗ MX%,MY%,MB%
2�delay(.15)
<�
F:
P� �delay(seconds)
Z�=0
d�
n� �>seconds*100
x�
�:
�� �print(text$,X%,Y%,F%)
�� F%=� �
�   X%=(1280-�(text$)*32)/2
��
�� 5
�� 0,black%
�� 23,17,7,6,XPIXS%;8;0,0
�
� X%-4,Y%
�� text$;
�
� X%+4,Y%
�� text$;
�
� X%,Y%+4
� text$;

� X%,Y%-4
� text$;
"� 0,red%
,� X%,Y%
6� text$;
@� 23,17,7,6,8;8;0,0
J� 4
T�
^�
h:
r� �background_attributes
|0� last_num%,waves%,new_screens%,new_between%
�;�("load <Invasion$Dir>.BACKGROUND.ScreenInfo "+�~data%)
�last_num%=?data%
�waves%=?(data%+1)
�*� �0,3);"Current backdrop attributes:"
�'� '"Number Of Screens = ";last_num%
�3� "Number Of Waves Between Backdrops = ";waves%
��
�8   � ''"How many backdrop screens are there"'"==> ";
�   � new_screens%
�� new_screens%<100
�
�� new_screens%=0 �init:�
�
�
E   � ''"How many consecutive waves between new"'"backdrops ==> ";
   � new_between%
&� new_between%<100
0
:� new_between%=0 �init:�
D
N?(data%)=new_screens%
X?(data%+1)=new_between%
bA�("SAVE <Invasion$Dir>.BACKGROUND.ScreenInfo "+�~data%+" +2")
l9�("SETTYPE <Invasion$Dir>.BACKGROUND.ScreenInfo 337")
v�loading
��
�:
�� �conversion(artisan%)
�� number%, prompt$
�� artisan% �
�   prompt$="Artisan"
��
�   prompt$="MODE 12"
��
�� �0,2);
��
�h   � '"Please type in the number for the"'"converted screen (this will be used by"'"the game) ==> ";
�   � number%

� number%<100



� number%=0 �init:�

 

*B� '"Please insert the ";prompt$;" disc"'"into the disc drive."

4�� '"After typing in the name of the ";prompt$;'"screen please remove the disc after the"'"sound and press the spacebar when the"'"Alien Invasion disc is back in the disc"'"drive."

>�

HN   � '"Please type in the name of the ";prompt$;'"screen to convert ==> ";

R   � filename$

\'� �(filename$)>0 � �(filename$)<255

f1� artisan% � filename$="$.ARTISAN."+filename$

p�("MOUNT 0")

z�("SCREENLOAD "+filename$)

��

�� 7

�G%=�

��("MOUNT 0")

��row_slice

�
�compress

��loading

��

�:

�� �loading

�*�("SCREENLOAD <Invasion$Dir>.Loading")

�current%=0

��("POINTER 1")
� �=9 �
   XPIXS%=8
�
$   XPIXS%=16
.�
8ȗ �
Bȗ ȓ 0,10,1280,1010
Lȗ � 187,136
V�("fx 21 9")
`�display_option
j�
�

00000000  0d 00 0a 2b f4 20 3e 20  3c 49 6e 76 61 73 69 6f  |...+. > <Invasio|
00000010  6e 24 44 69 72 3e 2e 42  61 73 69 63 50 72 6f 67  |n$Dir>.BasicProg|
00000020  73 2e 41 72 74 53 63 43  6f 6e 76 0d 00 14 04 0d  |s.ArtScConv.....|
00000030  00 1e 47 f4 20 50 72 6f  67 72 61 6d 20 3a 20 43  |..G. Program : C|
00000040  6f 6e 76 65 72 74 73 20  41 72 74 69 73 61 6e 20  |onverts Artisan |
00000050  28 6d 6f 64 65 20 31 32  29 20 73 63 72 65 65 6e  |(mode 12) screen|
00000060  73 20 74 6f 20 6d 6f 64  65 20 39 20 63 6f 6d 70  |s to mode 9 comp|
00000070  72 65 73 73 65 64 0d 00  28 1c f4 20 41 75 74 68  |ressed..(.. Auth|
00000080  6f 72 20 20 3a 20 41 2e  53 2e 57 2e 4e 65 6c 73  |or  : A.S.W.Nels|
00000090  6f 6e 0d 00 32 18 f4 20  44 61 74 65 20 20 20 20  |on..2.. Date    |
000000a0  3a 20 31 31 2e 30 31 2e  39 30 0d 00 3c 05 3a 0d  |: 11.01.90..<.:.|
000000b0  00 46 09 ee 20 85 20 f9  0d 00 50 11 ff 28 22 66  |.F.. . ...P..("f|
000000c0  78 20 32 32 39 20 30 22  29 0d 00 5a 09 f2 69 6e  |x 229 0")..Z..in|
000000d0  69 74 0d 00 64 05 f5 0d  00 6e 12 20 20 20 f2 67  |it..d....n.   .g|
000000e0  65 74 5f 6f 70 74 69 6f  6e 0d 00 78 0b fd 20 65  |et_option..x.. e|
000000f0  78 69 74 25 0d 00 82 26  d7 20 22 3c 49 6e 76 61  |xit%...&. "<Inva|
00000100  73 69 6f 6e 24 44 69 72  3e 2e 42 61 73 69 63 50  |sion$Dir>.BasicP|
00000110  72 6f 67 73 2e 4d 65 6e  75 22 0d 00 8c 05 e0 0d  |rogs.Menu"......|
00000120  00 96 05 3a 0d 00 a0 0b  dd 20 f2 69 6e 69 74 0d  |...:..... .init.|
00000130  00 aa 0e de 20 64 61 74  61 25 20 31 30 0d 00 b4  |.... data% 10...|
00000140  0b 65 78 69 74 25 3d a3  0d 00 be 0c 62 6c 61 63  |.exit%=.....blac|
00000150  6b 25 3d 30 0d 00 c8 10  64 61 72 6b 5f 67 72 65  |k%=0....dark_gre|
00000160  79 25 3d 31 0d 00 d2 11  6c 69 67 68 74 5f 67 72  |y%=1....light_gr|
00000170  65 79 25 3d 33 0d 00 dc  0a 72 65 64 25 3d 34 0d  |ey%=3....red%=4.|
00000180  00 e6 0d 6f 72 61 6e 67  65 25 3d 35 0d 00 f0 0d  |...orange%=5....|
00000190  79 65 6c 6c 6f 77 25 3d  36 0d 00 fa 13 62 72 69  |yellow%=6....bri|
000001a0  67 68 74 5f 67 72 65 65  6e 25 3d 38 0d 01 04 11  |ght_green%=8....|
000001b0  64 61 72 6b 5f 67 72 65  65 6e 25 3d 39 0d 01 0e  |dark_green%=9...|
000001c0  0c 63 79 61 6e 25 3d 31  30 0d 01 18 11 64 61 72  |.cyan%=10....dar|
000001d0  6b 5f 62 6c 75 65 25 3d  31 31 0d 01 22 12 64 61  |k_blue%=11..".da|
000001e0  72 6b 5f 62 72 6f 77 6e  25 3d 31 32 0d 01 2c 13  |rk_brown%=12..,.|
000001f0  6c 69 67 68 74 5f 62 72  6f 77 6e 25 3d 31 33 0d  |light_brown%=13.|
00000200  01 36 0d 77 68 69 74 65  25 3d 31 35 0d 01 40 0e  |.6.white%=15..@.|
00000210  6d 61 67 65 6e 74 61 25  3d 38 0d 01 4a 17 f4 20  |magenta%=8..J.. |
00000220  4f 53 43 4c 49 28 22 66  78 20 32 32 39 20 31 22  |OSCLI("fx 229 1"|
00000230  29 0d 01 54 08 c8 a0 20  31 0d 01 5e 26 ff 28 22  |)..T... 1..^&.("|
00000240  43 48 41 4e 4e 45 4c 56  4f 49 43 45 20 31 20 57  |CHANNELVOICE 1 W|
00000250  61 76 65 53 79 6e 74 68  2d 42 65 65 70 22 29 0d  |aveSynth-Beep").|
00000260  01 68 05 f7 0d 01 72 0e  f3 20 6f 70 74 69 6f 6e  |.h....r.. option|
00000270  73 25 0d 01 7c 1d de 20  6f 70 74 69 6f 6e 5f 74  |s%..|.. option_t|
00000280  69 74 6c 65 24 28 6f 70  74 69 6f 6e 73 25 29 0d  |itle$(options%).|
00000290  01 86 1d de 20 6f 70 74  69 6f 6e 5f 62 6f 78 25  |.... option_box%|
000002a0  28 6f 70 74 69 6f 6e 73  25 2c 34 29 0d 01 90 15  |(options%,4)....|
000002b0  e3 20 49 25 3d 31 20 b8  20 6f 70 74 69 6f 6e 73  |. I%=1 . options|
000002c0  25 0d 01 9a 1a 20 20 20  f3 20 6f 70 74 69 6f 6e  |%....   . option|
000002d0  5f 74 69 74 6c 65 24 28  49 25 29 0d 01 a4 11 20  |_title$(I%).... |
000002e0  20 20 e3 20 4b 25 3d 31  20 b8 20 34 0d 01 ae 1e  |  . K%=1 . 4....|
000002f0  20 20 20 20 20 20 f3 20  6f 70 74 69 6f 6e 5f 62  |      . option_b|
00000300  6f 78 25 28 49 25 2c 4b  25 29 0d 01 b8 0b 20 20  |ox%(I%,K%)....  |
00000310  20 ed 20 4b 25 0d 01 c2  08 ed 20 49 25 0d 01 cc  | . K%..... I%...|
00000320  0c f2 6c 6f 61 64 69 6e  67 0d 01 d6 19 de 20 64  |..loading..... d|
00000330  61 74 61 5f 62 6c 6f 63  6b 25 20 34 35 2a 31 30  |ata_block% 45*10|
00000340  32 34 0d 01 e0 19 de 20  63 6f 6d 70 5f 62 6c 6f  |24..... comp_blo|
00000350  63 6b 25 20 35 35 2a 31  30 32 34 0d 01 ea 07 dc  |ck% 55*1024.....|
00000360  20 34 0d 01 f4 2c dc 20  22 41 72 74 69 73 61 6e  | 4...,. "Artisan|
00000370  20 43 6f 6e 76 65 72 73  69 6f 6e 22 2c 31 30 20  | Conversion",10 |
00000380  20 2c 31 31 30 20 2c 36  32 30 20 2c 36 34 0d 01  | ,110 ,620 ,64..|
00000390  fe 33 dc 20 22 45 64 69  74 20 42 61 63 6b 64 72  |.3. "Edit Backdr|
000003a0  6f 70 20 41 74 74 72 69  62 75 74 65 73 22 20 2c  |op Attributes" ,|
000003b0  31 30 20 20 2c 20 32 30  20 2c 38 31 30 20 2c 36  |10  , 20 ,810 ,6|
000003c0  34 0d 02 08 2e dc 20 22  4d 4f 44 45 20 31 32 20  |4..... "MODE 12 |
000003d0  43 6f 6e 76 65 72 73 69  6f 6e 22 20 2c 20 36 35  |Conversion" , 65|
000003e0  30 2c 20 31 31 30 2c 20  36 32 30 2c 20 36 34 0d  |0, 110, 620, 64.|
000003f0  02 12 2b dc 20 22 45 78  69 74 20 54 6f 20 4d 65  |..+. "Exit To Me|
00000400  6e 75 22 20 20 20 20 20  2c 38 34 32 20 2c 20 32  |nu"     ,842 , 2|
00000410  30 20 2c 34 33 30 20 2c  36 34 0d 02 1c 05 e1 0d  |0 ,430 ,64......|
00000420  02 26 05 3a 0d 02 30 10  dd 20 f2 72 6f 77 5f 73  |.&.:..0.. .row_s|
00000430  6c 69 63 65 0d 02 3a 44  ea 20 73 63 72 65 65 6e  |lice..:D. screen|
00000440  5f 73 74 61 72 74 25 2c  69 6e 70 75 74 5f 62 6c  |_start%,input_bl|
00000450  6f 63 6b 25 2c 6f 75 74  70 75 74 5f 62 6c 6f 63  |ock%,output_bloc|
00000460  6b 25 2c 43 25 2c 44 25  2c 6f 66 66 73 65 74 25  |k%,C%,D%,offset%|
00000470  2c 52 32 25 2c 52 33 25  0d 02 44 38 ea 20 6d 61  |,R2%,R3%..D8. ma|
00000480  70 25 28 29 2c 20 6c 73  32 25 2c 20 6d 73 32 25  |p%(), ls2%, ms2%|
00000490  2c 20 6c 73 25 2c 20 6d  73 25 2c 20 45 25 2c 20  |, ls%, ms%, E%, |
000004a0  46 25 2c 20 47 25 2c 20  6f 66 66 73 65 74 32 25  |F%, G%, offset2%|
000004b0  0d 02 4e 31 ea 20 64 69  66 66 25 2c 20 62 65 73  |..N1. diff%, bes|
000004c0  74 31 2c 20 63 6f 6d 70  6f 73 69 74 65 25 28 29  |t1, composite%()|
000004d0  2c 20 74 6f 5f 75 73 65  25 2c 20 62 6c 61 63 6b  |, to_use%, black|
000004e0  25 0d 02 58 47 de 20 69  6e 70 75 74 5f 62 6c 6f  |%..XG. input_blo|
000004f0  63 6b 25 20 31 30 30 2c  6f 75 74 70 75 74 5f 62  |ck% 100,output_b|
00000500  6c 6f 63 6b 25 20 31 30  30 2c 20 6d 61 70 25 28  |lock% 100, map%(|
00000510  31 36 2c 33 29 2c 20 63  6f 6d 70 6f 73 69 74 65  |16,3), composite|
00000520  25 28 31 36 2c 31 36 29  0d 02 62 15 21 69 6e 70  |%(16,16)..b.!inp|
00000530  75 74 5f 62 6c 6f 63 6b  25 3d 31 34 38 0d 02 6c  |ut_block%=148..l|
00000540  18 21 28 69 6e 70 75 74  5f 62 6c 6f 63 6b 25 2b  |.!(input_block%+|
00000550  34 29 3d 2d 31 0d 02 76  37 c8 99 20 22 4f 53 5f  |4)=-1..v7.. "OS_|
00000560  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
00000570  22 2c 69 6e 70 75 74 5f  62 6c 6f 63 6b 25 2c 6f  |",input_block%,o|
00000580  75 74 70 75 74 5f 62 6c  6f 63 6b 25 0d 02 80 20  |utput_block%... |
00000590  73 63 72 65 65 6e 5f 73  74 61 72 74 25 3d 21 6f  |screen_start%=!o|
000005a0  75 74 70 75 74 5f 62 6c  6f 63 6b 25 0d 02 8a 04  |utput_block%....|
000005b0  0d 02 94 15 21 69 6e 70  75 74 5f 62 6c 6f 63 6b  |....!input_block|
000005c0  25 3d 31 34 38 0d 02 9e  18 21 28 69 6e 70 75 74  |%=148....!(input|
000005d0  5f 62 6c 6f 63 6b 25 2b  34 29 3d 2d 31 0d 02 a8  |_block%+4)=-1...|
000005e0  37 c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |7.. "OS_ReadVduV|
000005f0  61 72 69 61 62 6c 65 73  22 2c 69 6e 70 75 74 5f  |ariables",input_|
00000600  62 6c 6f 63 6b 25 2c 6f  75 74 70 75 74 5f 62 6c  |block%,output_bl|
00000610  6f 63 6b 25 0d 02 b2 20  73 63 72 65 65 6e 5f 73  |ock%... screen_s|
00000620  74 61 72 74 25 3d 21 6f  75 74 70 75 74 5f 62 6c  |tart%=!output_bl|
00000630  6f 63 6b 25 0d 02 bc 04  0d 02 c6 0e 6f 66 66 73  |ock%........offs|
00000640  65 74 32 25 3d 30 0d 02  d0 0c 62 6c 61 63 6b 25  |et2%=0....black%|
00000650  3d 30 0d 02 da 0d 62 65  73 74 25 3d 39 39 39 0d  |=0....best%=999.|
00000660  02 e4 0f e3 20 44 25 3d  30 20 b8 20 31 35 0d 02  |.... D%=0 . 15..|
00000670  ee 0e 20 20 20 64 69 66  66 25 3d 30 0d 02 f8 2c  |..   diff%=0...,|
00000680  20 20 20 c8 99 20 22 4f  53 5f 52 65 61 64 50 61  |   .. "OS_ReadPa|
00000690  6c 65 74 74 65 22 2c 44  25 2c 31 36 20 b8 20 2c  |lette",D%,16 . ,|
000006a0  2c 52 32 25 2c 52 33 25  0d 03 02 1e 20 20 20 6d  |,R2%,R3%....   m|
000006b0  61 70 25 28 44 25 2c 30  29 3d a4 62 69 74 73 28  |ap%(D%,0)=.bits(|
000006c0  52 32 25 2c 38 29 0d 03  0c 1f 20 20 20 6d 61 70  |R2%,8)....   map|
000006d0  25 28 44 25 2c 31 29 3d  a4 62 69 74 73 28 52 32  |%(D%,1)=.bits(R2|
000006e0  25 2c 31 36 29 0d 03 16  1f 20 20 20 6d 61 70 25  |%,16)....   map%|
000006f0  28 44 25 2c 32 29 3d a4  62 69 74 73 28 52 32 25  |(D%,2)=.bits(R2%|
00000700  2c 32 34 29 0d 03 20 11  20 20 20 e3 20 45 25 3d  |,24).. .   . E%=|
00000710  30 20 b8 20 32 0d 03 2a  1e 20 20 20 20 20 20 f4  |0 . 2..*.      .|
00000720  42 50 55 54 23 43 25 2c  6d 61 70 25 28 44 25 2c  |BPUT#C%,map%(D%,|
00000730  45 25 29 0d 03 34 2d 20  20 20 20 20 20 3f 28 64  |E%)..4-      ?(d|
00000740  61 74 61 5f 62 6c 6f 63  6b 25 2b 6f 66 66 73 65  |ata_block%+offse|
00000750  74 32 25 29 3d 6d 61 70  25 28 44 25 2c 45 25 29  |t2%)=map%(D%,E%)|
00000760  0d 03 3e 15 20 20 20 20  20 20 6f 66 66 73 65 74  |..>.      offset|
00000770  32 25 2b 3d 31 0d 03 48  1c 20 20 20 20 20 20 64  |2%+=1..H.      d|
00000780  69 66 66 25 2b 3d 6d 61  70 25 28 44 25 2c 45 25  |iff%+=map%(D%,E%|
00000790  29 0d 03 52 0b 20 20 20  ed 20 45 25 0d 03 5c 2c  |)..R.   . E%..\,|
000007a0  20 20 20 e7 20 64 69 66  66 25 3c 62 65 73 74 25  |   . diff%<best%|
000007b0  20 8c 20 62 65 73 74 25  3d 64 69 66 66 25 3a 62  | . best%=diff%:b|
000007c0  6c 61 63 6b 25 3d 44 25  0d 03 66 08 ed 20 44 25  |lack%=D%..f.. D%|
000007d0  0d 03 70 0f e3 20 44 25  3d 30 20 b8 20 31 35 0d  |..p.. D%=0 . 15.|
000007e0  03 7a 12 20 20 20 e3 20  45 25 3d 30 20 b8 20 31  |.z.   . E%=0 . 1|
000007f0  35 0d 03 84 46 20 20 20  20 20 20 f4 20 6e 6f 77  |5...F      . now|
00000800  20 6d 61 70 20 65 76 65  72 79 20 63 6f 6d 70 6f  | map every compo|
00000810  73 69 74 65 20 63 6f 6c  6f 75 72 20 63 6f 6d 62  |site colour comb|
00000820  69 6e 61 74 69 6f 6e 20  6f 6e 74 6f 20 6f 6e 65  |ination onto one|
00000830  20 63 6f 6c 6f 75 72 0d  03 8e 14 20 20 20 20 20  | colour....     |
00000840  20 e3 20 46 25 3d 30 20  b8 20 32 0d 03 98 44 20  | . F%=0 . 2...D |
00000850  20 20 20 20 20 20 20 20  6d 61 70 25 28 31 36 2c  |        map%(16,|
00000860  46 25 29 3d 6d 61 70 25  28 44 25 2c 46 25 29 2f  |F%)=map%(D%,F%)/|
00000870  32 2b 6d 61 70 25 28 45  25 2c 46 25 29 2f 32 3a  |2+map%(E%,F%)/2:|
00000880  f4 20 63 6f 6d 70 6f 73  69 74 65 20 52 47 42 0d  |. composite RGB.|
00000890  03 a2 0e 20 20 20 20 20  20 ed 20 46 25 0d 03 ac  |...      . F%...|
000008a0  13 20 20 20 20 20 20 62  65 73 74 25 3d 39 39 39  |.      best%=999|
000008b0  0d 03 b6 13 20 20 20 20  20 20 74 6f 5f 75 73 65  |....      to_use|
000008c0  25 3d 30 0d 03 c0 15 20  20 20 20 20 20 e3 20 47  |%=0....      . G|
000008d0  25 3d 30 20 b8 20 31 35  0d 03 ca 14 20 20 20 20  |%=0 . 15....    |
000008e0  20 20 20 20 20 64 69 66  66 25 3d 30 0d 03 d4 17  |     diff%=0....|
000008f0  20 20 20 20 20 20 20 20  20 e3 20 46 25 3d 30 20  |         . F%=0 |
00000900  b8 20 32 0d 03 de 31 20  20 20 20 20 20 20 20 20  |. 2...1         |
00000910  20 20 20 64 69 66 66 25  2b 3d 94 28 6d 61 70 25  |   diff%+=.(map%|
00000920  28 31 36 2c 46 25 29 2d  6d 61 70 25 28 47 25 2c  |(16,F%)-map%(G%,|
00000930  46 25 29 29 0d 03 e8 11  20 20 20 20 20 20 20 20  |F%))....        |
00000940  20 ed 20 46 25 0d 03 f2  33 20 20 20 20 20 20 20  | . F%...3       |
00000950  20 20 e7 20 64 69 66 66  25 3c 62 65 73 74 25 20  |  . diff%<best% |
00000960  8c 20 62 65 73 74 25 3d  64 69 66 66 25 3a 74 6f  |. best%=diff%:to|
00000970  5f 75 73 65 25 3d 47 25  0d 03 fc 0e 20 20 20 20  |_use%=G%....    |
00000980  20 20 ed 20 47 25 0d 04  06 23 20 20 20 20 20 20  |  . G%...#      |
00000990  63 6f 6d 70 6f 73 69 74  65 25 28 44 25 2c 45 25  |composite%(D%,E%|
000009a0  29 3d 74 6f 5f 75 73 65  25 0d 04 10 0b 20 20 20  |)=to_use%....   |
000009b0  ed 20 45 25 0d 04 1a 08  ed 20 44 25 0d 04 24 0d  |. E%..... D%..$.|
000009c0  6f 66 66 73 65 74 25 3d  30 0d 04 2e 17 e3 20 44  |offset%=0..... D|
000009d0  25 3d 30 20 b8 20 26 31  33 46 46 46 20 88 20 32  |%=0 . &13FFF . 2|
000009e0  0d 04 38 28 20 20 20 6c  73 25 3d 3f 28 73 63 72  |..8(   ls%=?(scr|
000009f0  65 65 6e 5f 73 74 61 72  74 25 2b 6f 66 66 73 65  |een_start%+offse|
00000a00  74 25 29 20 81 20 31 36  0d 04 42 2a 20 20 20 6d  |t%) . 16..B*   m|
00000a10  73 25 3d 3f 28 73 63 72  65 65 6e 5f 73 74 61 72  |s%=?(screen_star|
00000a20  74 25 2b 6f 66 66 73 65  74 25 2b 31 29 20 81 20  |t%+offset%+1) . |
00000a30  31 36 0d 04 4c 29 20 20  20 6c 73 32 25 3d 3f 28  |16..L)   ls2%=?(|
00000a40  73 63 72 65 65 6e 5f 73  74 61 72 74 25 2b 6f 66  |screen_start%+of|
00000a50  66 73 65 74 25 29 20 83  20 31 36 0d 04 56 2b 20  |fset%) . 16..V+ |
00000a60  20 20 6d 73 32 25 3d 3f  28 73 63 72 65 65 6e 5f  |  ms2%=?(screen_|
00000a70  73 74 61 72 74 25 2b 6f  66 66 73 65 74 25 2b 31  |start%+offset%+1|
00000a80  29 20 83 20 31 36 0d 04  60 4b 20 20 20 3f 28 64  |) . 16..`K   ?(d|
00000a90  61 74 61 5f 62 6c 6f 63  6b 25 2b 6f 66 66 73 65  |ata_block%+offse|
00000aa0  74 32 25 29 3d 63 6f 6d  70 6f 73 69 74 65 25 28  |t2%)=composite%(|
00000ab0  6d 73 25 2c 6d 73 32 25  29 2a 31 36 2b 63 6f 6d  |ms%,ms2%)*16+com|
00000ac0  70 6f 73 69 74 65 25 28  6c 73 25 2c 6c 73 32 25  |posite%(ls%,ls2%|
00000ad0  29 0d 04 6a 12 20 20 20  6f 66 66 73 65 74 32 25  |)..j.   offset2%|
00000ae0  2b 3d 31 0d 04 74 11 20  20 20 6f 66 66 73 65 74  |+=1..t.   offset|
00000af0  25 2b 3d 32 0d 04 7e 08  ed 20 44 25 0d 04 88 05  |%+=2..~.. D%....|
00000b00  e1 0d 04 92 05 3a 0d 04  9c 18 dd a4 62 69 74 73  |.....:......bits|
00000b10  28 76 61 6c 75 65 25 2c  66 72 6f 6d 25 29 0d 04  |(value%,from%)..|
00000b20  a6 14 20 20 20 ea 20 65  78 74 72 61 63 74 25 2c  |..   . extract%,|
00000b30  41 25 0d 04 b0 11 20 20  20 65 78 74 72 61 63 74  |A%....   extract|
00000b40  25 3d 30 0d 04 ba 1b 20  20 20 e3 20 41 25 3d 66  |%=0....   . A%=f|
00000b50  72 6f 6d 25 20 b8 20 66  72 6f 6d 25 2b 37 0d 04  |rom% . from%+7..|
00000b60  c4 13 20 20 20 20 20 20  e7 20 41 25 3c 33 31 20  |..      . A%<31 |
00000b70  8c 0d 04 ce 45 20 20 20  20 20 20 20 20 20 e7 20  |....E         . |
00000b80  28 76 61 6c 75 65 25 20  80 20 28 32 5e 41 25 29  |(value% . (2^A%)|
00000b90  29 3e 30 20 8c 20 65 78  74 72 61 63 74 25 3d 65  |)>0 . extract%=e|
00000ba0  78 74 72 61 63 74 25 2b  28 32 5e 28 41 25 2d 66  |xtract%+(2^(A%-f|
00000bb0  72 6f 6d 25 29 29 0d 04  d8 0b 20 20 20 20 20 20  |rom%))....      |
00000bc0  cc 0d 04 e2 3a 20 20 20  20 20 20 20 20 20 e7 20  |....:         . |
00000bd0  76 61 6c 75 65 25 3c 30  20 8c 20 65 78 74 72 61  |value%<0 . extra|
00000be0  63 74 25 3d 65 78 74 72  61 63 74 25 2b 28 32 5e  |ct%=extract%+(2^|
00000bf0  28 41 25 2d 66 72 6f 6d  25 29 29 0d 04 ec 0b 20  |(A%-from%)).... |
00000c00  20 20 20 20 20 cd 0d 04  f6 0b 20 20 20 ed 20 41  |     .....   . A|
00000c10  25 0d 05 00 0d 3d 65 78  74 72 61 63 74 25 0d 05  |%....=extract%..|
00000c20  0a 05 3a 0d 05 14 0f dd  20 f2 63 6f 6d 70 72 65  |..:..... .compre|
00000c30  73 73 0d 05 1e 17 ea 20  6f 66 66 73 65 74 25 2c  |ss..... offset%,|
00000c40  20 6f 66 66 73 65 74 32  25 0d 05 28 17 ea 20 6c  | offset2%..(.. l|
00000c50  65 6e 67 74 68 25 2c 20  63 6f 6c 6f 75 72 73 25  |ength%, colours%|
00000c60  0d 05 32 14 ea 20 41 25  2c 20 43 25 2c 20 4c 25  |..2.. A%, C%, L%|
00000c70  2c 20 44 25 0d 05 3c 09  ea 20 58 25 2c 0d 05 46  |, D%..<.. X%,..F|
00000c80  04 0d 05 50 0d 6f 66 66  73 65 74 25 3d 34 0d 05  |...P.offset%=4..|
00000c90  5a 0e 6f 66 66 73 65 74  32 25 3d 30 0d 05 64 0f  |Z.offset2%=0..d.|
00000ca0  63 6f 6c 6f 75 72 73 25  3d 31 36 0d 05 6e 13 6c  |colours%=16..n.l|
00000cb0  65 6e 67 74 68 25 3d 34  30 2a 31 30 32 34 0d 05  |ength%=40*1024..|
00000cc0  78 04 0d 05 82 2f f1 20  8a 30 2c 30 29 3b 22 50  |x..../. .0,0);"P|
00000cd0  6c 65 61 73 65 20 77 61  69 74 2e 2e 2e 63 6f 6d  |lease wait...com|
00000ce0  70 72 65 73 73 69 6e 67  20 73 63 72 65 65 6e 22  |pressing screen"|
00000cf0  3b 0d 05 8c 04 0d 05 96  1a f4 20 70 61 6c 65 74  |;......... palet|
00000d00  74 65 20 70 72 65 73 65  72 76 61 74 69 6f 6e 0d  |te preservation.|
00000d10  05 a0 17 e3 20 43 25 3d  30 20 b8 20 63 6f 6c 6f  |.... C%=0 . colo|
00000d20  75 72 73 25 2d 31 0d 05  aa 11 20 20 20 e3 20 44  |urs%-1....   . D|
00000d30  25 3d 30 20 b8 20 32 0d  05 b4 31 20 20 20 20 20  |%=0 . 2...1     |
00000d40  20 f2 73 74 6f 72 65 5f  64 61 74 61 28 3f 28 64  | .store_data(?(d|
00000d50  61 74 61 5f 62 6c 6f 63  6b 25 2b 6f 66 66 73 65  |ata_block%+offse|
00000d60  74 32 25 2b 44 25 29 29  0d 05 be 0b 20 20 20 ed  |t2%+D%))....   .|
00000d70  20 44 25 0d 05 c8 12 20  20 20 6f 66 66 73 65 74  | D%....   offset|
00000d80  32 25 2b 3d 33 0d 05 d2  08 ed 20 43 25 0d 05 dc  |2%+=3..... C%...|
00000d90  04 0d 05 e6 21 f4 20 20  73 63 72 65 65 6e 20 63  |....!.  screen c|
00000da0  6f 6d 70 72 65 73 73 69  6f 6e 20 72 6f 75 74 69  |ompression routi|
00000db0  6e 65 0d 05 f0 08 41 25  3d 30 0d 05 fa 11 c8 95  |ne....A%=0......|
00000dc0  20 41 25 3c 6c 65 6e 67  74 68 25 0d 06 04 1e 20  | A%<length%.... |
00000dd0  20 20 4c 25 3d 3f 28 64  61 74 61 5f 62 6c 6f 63  |  L%=?(data_bloc|
00000de0  6b 25 2b 34 38 2b 41 25  29 0d 06 0e 0b 20 20 20  |k%+48+A%)....   |
00000df0  43 25 3d 31 0d 06 18 0c  20 20 20 41 25 2b 3d 31  |C%=1....   A%+=1|
00000e00  0d 06 22 37 20 20 20 c8  95 20 43 25 3c 32 35 35  |.."7   .. C%<255|
00000e10  20 80 20 3f 28 64 61 74  61 5f 62 6c 6f 63 6b 25  | . ?(data_block%|
00000e20  2b 34 38 2b 41 25 29 3d  4c 25 20 80 20 41 25 3c  |+48+A%)=L% . A%<|
00000e30  6c 65 6e 67 74 68 25 0d  06 2c 0f 20 20 20 20 20  |length%..,.     |
00000e40  20 41 25 2b 3d 31 0d 06  36 0f 20 20 20 20 20 20  | A%+=1..6.      |
00000e50  43 25 2b 3d 31 0d 06 40  08 20 20 20 ce 0d 06 4a  |C%+=1..@.   ...J|
00000e60  0f 20 20 20 e7 20 43 25  3d 31 20 8c 0d 06 54 0e  |.   . C%=1 ...T.|
00000e70  20 20 20 20 20 20 49 25  3d 31 0d 06 5e 0e 20 20  |      I%=1..^.  |
00000e80  20 20 20 20 58 25 3d 30  0d 06 68 2a 20 20 20 20  |    X%=0..h*    |
00000e90  20 20 c8 95 20 49 25 3c  33 20 80 20 43 25 3c 32  |  .. I%<3 . C%<2|
00000ea0  35 35 20 80 20 41 25 2b  58 25 3c 6c 65 6e 67 74  |55 . A%+X%<lengt|
00000eb0  68 25 0d 06 72 2b 20 20  20 20 20 20 20 20 20 e7  |h%..r+         .|
00000ec0  20 3f 28 64 61 74 61 5f  62 6c 6f 63 6b 25 2b 34  | ?(data_block%+4|
00000ed0  38 2b 41 25 2b 58 25 29  3d 4c 25 20 8c 0d 06 7c  |8+A%+X%)=L% ...||
00000ee0  15 20 20 20 20 20 20 20  20 20 20 20 20 49 25 2b  |.            I%+|
00000ef0  3d 31 0d 06 86 0e 20 20  20 20 20 20 20 20 20 cc  |=1....         .|
00000f00  0d 06 90 14 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
00000f10  49 25 3d 31 0d 06 9a 2a  20 20 20 20 20 20 20 20  |I%=1...*        |
00000f20  20 20 20 20 4c 25 3d 3f  28 64 61 74 61 5f 62 6c  |    L%=?(data_bl|
00000f30  6f 63 6b 25 2b 34 38 2b  41 25 2b 58 25 29 0d 06  |ock%+48+A%+X%)..|
00000f40  a4 0e 20 20 20 20 20 20  20 20 20 cd 0d 06 ae 12  |..         .....|
00000f50  20 20 20 20 20 20 20 20  20 58 25 2b 3d 31 0d 06  |         X%+=1..|
00000f60  b8 12 20 20 20 20 20 20  20 20 20 43 25 2b 3d 31  |..         C%+=1|
00000f70  0d 06 c2 0b 20 20 20 20  20 20 ce 0d 06 cc 12 20  |....      ..... |
00000f80  20 20 20 20 20 e7 20 49  25 3d 33 20 8c 0d 06 d6  |     . I%=3 ....|
00000f90  12 20 20 20 20 20 20 20  20 20 43 25 2d 3d 33 0d  |.         C%-=3.|
00000fa0  06 e0 0b 20 20 20 20 20  20 cd 0d 06 ea 0f 20 20  |...      .....  |
00000fb0  20 20 20 20 41 25 2d 3d  31 0d 06 f4 12 20 20 20  |    A%-=1....   |
00000fc0  20 20 20 e7 20 43 25 3e  31 20 8c 0d 06 fe 1b 20  |   . C%>1 ..... |
00000fd0  20 20 20 20 20 20 20 20  f2 73 74 6f 72 65 5f 64  |        .store_d|
00000fe0  61 74 61 28 30 29 0d 07  08 1c 20 20 20 20 20 20  |ata(0)....      |
00000ff0  20 20 20 f2 73 74 6f 72  65 5f 64 61 74 61 28 43  |   .store_data(C|
00001000  25 29 0d 07 12 18 20 20  20 20 20 20 20 20 20 e3  |%)....         .|
00001010  20 42 25 3d 31 20 b8 20  43 25 0d 07 1c 31 20 20  | B%=1 . C%...1  |
00001020  20 20 20 20 20 20 20 20  20 20 f2 73 74 6f 72 65  |          .store|
00001030  5f 64 61 74 61 28 3f 28  64 61 74 61 5f 62 6c 6f  |_data(?(data_blo|
00001040  63 6b 25 2b 34 38 2b 41  25 29 29 0d 07 26 15 20  |ck%+48+A%))..&. |
00001050  20 20 20 20 20 20 20 20  20 20 20 41 25 2b 3d 31  |           A%+=1|
00001060  0d 07 30 11 20 20 20 20  20 20 20 20 20 ed 20 42  |..0.         . B|
00001070  25 0d 07 3a 0b 20 20 20  20 20 20 cc 0d 07 44 1b  |%..:.      ...D.|
00001080  20 20 20 20 20 20 20 20  20 f2 73 74 6f 72 65 5f  |         .store_|
00001090  64 61 74 61 28 31 29 0d  07 4e 2e 20 20 20 20 20  |data(1)..N.     |
000010a0  20 20 20 20 f2 73 74 6f  72 65 5f 64 61 74 61 28  |    .store_data(|
000010b0  3f 28 64 61 74 61 5f 62  6c 6f 63 6b 25 2b 34 38  |?(data_block%+48|
000010c0  2b 41 25 29 29 0d 07 58  12 20 20 20 20 20 20 20  |+A%))..X.       |
000010d0  20 20 41 25 2b 3d 31 0d  07 62 0b 20 20 20 20 20  |  A%+=1..b.     |
000010e0  20 cd 0d 07 6c 08 20 20  20 cc 0d 07 76 19 20 20  | ...l.   ...v.  |
000010f0  20 20 20 20 f2 73 74 6f  72 65 5f 64 61 74 61 28  |    .store_data(|
00001100  43 25 29 0d 07 80 19 20  20 20 20 20 20 f2 73 74  |C%)....      .st|
00001110  6f 72 65 5f 64 61 74 61  28 4c 25 29 0d 07 8a 08  |ore_data(L%)....|
00001120  20 20 20 cd 0d 07 94 05  ce 0d 07 9e 1c 21 28 63  |   ..........!(c|
00001130  6f 6d 70 5f 62 6c 6f 63  6b 25 29 3d 6f 66 66 73  |omp_block%)=offs|
00001140  65 74 25 2d 34 0d 07 a8  59 ff 28 22 53 41 56 45  |et%-4...Y.("SAVE|
00001150  20 3c 49 6e 76 61 73 69  6f 6e 24 44 69 72 3e 2e  | <Invasion$Dir>.|
00001160  42 41 43 4b 47 52 4f 55  4e 44 2e 53 63 72 65 65  |BACKGROUND.Scree|
00001170  6e 22 2b c3 28 6e 75 6d  62 65 72 25 29 2b 22 20  |n"+.(number%)+" |
00001180  22 2b c3 7e 63 6f 6d 70  5f 62 6c 6f 63 6b 25 2b  |"+.~comp_block%+|
00001190  22 2b 22 2b c3 7e 6f 66  66 73 65 74 25 29 0d 07  |"+"+.~offset%)..|
000011a0  b2 43 ff 28 22 53 45 54  54 59 50 45 20 3c 49 6e  |.C.("SETTYPE <In|
000011b0  76 61 73 69 6f 6e 24 44  69 72 3e 2e 42 41 43 4b  |vasion$Dir>.BACK|
000011c0  47 52 4f 55 4e 44 2e 53  63 72 65 65 6e 22 2b c3  |GROUND.Screen"+.|
000011d0  28 6e 75 6d 62 65 72 25  29 2b 22 20 33 33 36 22  |(number%)+" 336"|
000011e0  29 0d 07 bc 05 e1 0d 07  c6 05 3a 0d 07 d0 18 dd  |).........:.....|
000011f0  20 f2 73 74 6f 72 65 5f  64 61 74 61 28 64 61 74  | .store_data(dat|
00001200  61 25 29 0d 07 da 20 3f  28 63 6f 6d 70 5f 62 6c  |a%)... ?(comp_bl|
00001210  6f 63 6b 25 2b 6f 66 66  73 65 74 25 29 3d 64 61  |ock%+offset%)=da|
00001220  74 61 25 0d 07 e4 0e 6f  66 66 73 65 74 25 2b 3d  |ta%....offset%+=|
00001230  31 0d 07 ee 05 e1 0d 07  f8 05 3a 0d 08 02 15 dd  |1.........:.....|
00001240  20 f2 64 69 73 70 6c 61  79 5f 6f 70 74 69 6f 6e  | .display_option|
00001250  0d 08 0c 30 f2 70 72 69  6e 74 28 22 42 41 43 4b  |...0.print("BACK|
00001260  44 52 4f 50 20 53 43 52  45 45 4e 20 43 4f 4e 56  |DROP SCREEN CONV|
00001270  45 52 54 45 52 22 2c 30  2c 31 30 30 30 2c b9 29  |ERTER",0,1000,.)|
00001280  0d 08 16 15 e3 20 49 25  3d 31 20 b8 20 6f 70 74  |..... I%=1 . opt|
00001290  69 6f 6e 73 25 0d 08 20  19 20 20 20 f2 64 69 73  |ions%.. .   .dis|
000012a0  70 5f 6f 70 74 69 6f 6e  28 49 25 2c 36 29 0d 08  |p_option(I%,6)..|
000012b0  2a 08 ed 20 49 25 0d 08  34 05 e1 0d 08 3e 05 3a  |*.. I%..4....>.:|
000012c0  0d 08 48 1d dd 20 f2 64  69 73 70 5f 6f 70 74 69  |..H.. .disp_opti|
000012d0  6f 6e 28 6f 70 74 25 2c  63 6f 6c 25 29 0d 08 52  |on(opt%,col%)..R|
000012e0  15 ea 20 42 58 25 2c 42  59 25 2c 42 57 25 2c 42  |.. BX%,BY%,BW%,B|
000012f0  48 25 0d 08 5c 10 e7 20  6f 70 74 25 3d 30 20 8c  |H%..\.. opt%=0 .|
00001300  20 e1 0d 08 66 1b 42 58  25 3d 6f 70 74 69 6f 6e  | ...f.BX%=option|
00001310  5f 62 6f 78 25 28 6f 70  74 25 2c 31 29 0d 08 70  |_box%(opt%,1)..p|
00001320  1b 42 59 25 3d 6f 70 74  69 6f 6e 5f 62 6f 78 25  |.BY%=option_box%|
00001330  28 6f 70 74 25 2c 32 29  0d 08 7a 1b 42 57 25 3d  |(opt%,2)..z.BW%=|
00001340  6f 70 74 69 6f 6e 5f 62  6f 78 25 28 6f 70 74 25  |option_box%(opt%|
00001350  2c 33 29 0d 08 84 1b 42  48 25 3d 6f 70 74 69 6f  |,3)....BH%=optio|
00001360  6e 5f 62 6f 78 25 28 6f  70 74 25 2c 34 29 0d 08  |n_box%(opt%,4)..|
00001370  8e 0e e6 20 30 2c 62 6c  61 63 6b 25 0d 08 98 16  |... 0,black%....|
00001380  c8 93 20 42 58 25 2c 42  59 25 2c 42 57 25 2c 42  |.. BX%,BY%,BW%,B|
00001390  48 25 0d 08 a2 0e e6 20  30 2c 77 68 69 74 65 25  |H%..... 0,white%|
000013a0  0d 08 ac 1e c8 93 20 42  58 25 2b 34 2c 42 59 25  |...... BX%+4,BY%|
000013b0  2b 34 2c 42 57 25 2d 38  2c 42 48 25 2d 38 0d 08  |+4,BW%-8,BH%-8..|
000013c0  b6 0c e6 20 30 2c 63 6f  6c 25 0d 08 c0 23 c8 93  |... 0,col%...#..|
000013d0  20 c8 90 20 42 58 25 2b  38 2c 42 59 25 2b 38 2c  | .. BX%+8,BY%+8,|
000013e0  42 57 25 2d 31 36 2c 42  48 25 2d 31 36 0d 08 ca  |BW%-16,BH%-16...|
000013f0  58 f2 70 72 69 6e 74 28  6f 70 74 69 6f 6e 5f 74  |X.print(option_t|
00001400  69 74 6c 65 24 28 6f 70  74 25 29 2c 42 58 25 2b  |itle$(opt%),BX%+|
00001410  28 42 57 25 2d a9 28 6f  70 74 69 6f 6e 5f 74 69  |(BW%-.(option_ti|
00001420  74 6c 65 24 28 6f 70 74  25 29 29 2a 33 32 29 2f  |tle$(opt%))*32)/|
00001430  32 2c 42 59 25 2d 38 2b  28 42 48 25 2b 34 30 29  |2,BY%-8+(BH%+40)|
00001440  2f 32 2c a3 29 0d 08 d4  05 e1 0d 08 de 05 3a 0d  |/2,.).........:.|
00001450  08 e8 11 dd 20 f2 67 65  74 5f 6f 70 74 69 6f 6e  |.... .get_option|
00001460  0d 08 f2 05 f5 0d 08 fc  0d 20 20 20 f2 6d 6f 75  |.........   .mou|
00001470  73 65 0d 09 06 18 20 20  20 e3 20 49 25 3d 31 20  |se....   . I%=1 |
00001480  b8 20 6f 70 74 69 6f 6e  73 25 0d 09 10 6f 20 20  |. options%...o  |
00001490  20 20 20 20 e7 20 a4 69  73 5f 6d 6f 75 73 65 5f  |    . .is_mouse_|
000014a0  69 6e 5f 62 6f 78 28 4d  58 25 2c 4d 59 25 2c 6f  |in_box(MX%,MY%,o|
000014b0  70 74 69 6f 6e 5f 62 6f  78 25 28 49 25 2c 31 29  |ption_box%(I%,1)|
000014c0  2c 6f 70 74 69 6f 6e 5f  62 6f 78 25 28 49 25 2c  |,option_box%(I%,|
000014d0  32 29 2c 6f 70 74 69 6f  6e 5f 62 6f 78 25 28 49  |2),option_box%(I|
000014e0  25 2c 33 29 2c 6f 70 74  69 6f 6e 5f 62 6f 78 25  |%,3),option_box%|
000014f0  28 49 25 2c 34 29 29 20  8c 0d 09 1a 5c 20 20 20  |(I%,4)) ....\   |
00001500  20 20 20 20 20 20 e7 20  63 75 72 72 65 6e 74 25  |      . current%|
00001510  3c 3e 49 25 20 8c 20 f2  64 69 73 70 5f 6f 70 74  |<>I% . .disp_opt|
00001520  69 6f 6e 28 63 75 72 72  65 6e 74 25 2c 36 29 3a  |ion(current%,6):|
00001530  63 75 72 72 65 6e 74 25  3d 49 25 3a f2 64 69 73  |current%=I%:.dis|
00001540  70 5f 6f 70 74 69 6f 6e  28 63 75 72 72 65 6e 74  |p_option(current|
00001550  25 2c 31 31 29 0d 09 24  0b 20 20 20 20 20 20 cc  |%,11)..$.      .|
00001560  0d 09 2e 1c 20 20 20 20  20 20 20 20 20 e7 20 63  |....         . c|
00001570  75 72 72 65 6e 74 25 3d  49 25 20 8c 0d 09 38 28  |urrent%=I% ...8(|
00001580  20 20 20 20 20 20 20 20  20 20 20 20 f2 64 69 73  |            .dis|
00001590  70 5f 6f 70 74 69 6f 6e  28 63 75 72 72 65 6e 74  |p_option(current|
000015a0  25 2c 36 29 0d 09 42 1a  20 20 20 20 20 20 20 20  |%,6)..B.        |
000015b0  20 20 20 20 63 75 72 72  65 6e 74 25 3d 30 0d 09  |    current%=0..|
000015c0  4c 0e 20 20 20 20 20 20  20 20 20 cd 0d 09 56 0b  |L.         ...V.|
000015d0  20 20 20 20 20 20 cd 0d  09 60 0b 20 20 20 ed 20  |      ...`.   . |
000015e0  49 25 0d 09 6a 0b fd 20  4d 42 25 3e 30 0d 09 74  |I%..j.. MB%>0..t|
000015f0  15 e3 20 49 25 3d 31 20  b8 20 6f 70 74 69 6f 6e  |.. I%=1 . option|
00001600  73 25 0d 09 7e 6c 20 20  20 e7 20 a4 69 73 5f 6d  |s%..~l   . .is_m|
00001610  6f 75 73 65 5f 69 6e 5f  62 6f 78 28 4d 58 25 2c  |ouse_in_box(MX%,|
00001620  4d 59 25 2c 6f 70 74 69  6f 6e 5f 62 6f 78 25 28  |MY%,option_box%(|
00001630  49 25 2c 31 29 2c 6f 70  74 69 6f 6e 5f 62 6f 78  |I%,1),option_box|
00001640  25 28 49 25 2c 32 29 2c  6f 70 74 69 6f 6e 5f 62  |%(I%,2),option_b|
00001650  6f 78 25 28 49 25 2c 33  29 2c 6f 70 74 69 6f 6e  |ox%(I%,3),option|
00001660  5f 62 6f 78 25 28 49 25  2c 34 29 29 20 8c 0d 09  |_box%(I%,4)) ...|
00001670  88 0e 20 20 20 20 20 20  c8 97 20 87 0d 09 92 11  |..      .. .....|
00001680  20 20 20 20 20 20 c8 8e  20 49 25 20 ca 0d 09 9c  |      .. I% ....|
00001690  25 20 20 20 20 20 20 20  20 20 c9 20 31 3a 20 f2  |%         . 1: .|
000016a0  63 6f 6e 76 65 72 73 69  6f 6e 28 b9 29 3a c8 97  |conversion(.):..|
000016b0  20 ee 0d 09 a6 2d 20 20  20 20 20 20 20 20 20 c9  | ....-         .|
000016c0  20 32 3a 20 f2 62 61 63  6b 67 72 6f 75 6e 64 5f  | 2: .background_|
000016d0  61 74 74 72 69 62 75 74  65 73 3a c8 97 20 ee 0d  |attributes:.. ..|
000016e0  09 b0 25 20 20 20 20 20  20 20 20 20 c9 20 33 3a  |..%         . 3:|
000016f0  20 f2 63 6f 6e 76 65 72  73 69 6f 6e 28 a3 29 3a  | .conversion(.):|
00001700  c8 97 20 ee 0d 09 ba 11  20 20 20 20 20 20 20 20  |.. .....        |
00001710  20 7f 3a 20 db 0d 09 c4  1f 20 20 20 20 20 20 20  | .: .....       |
00001720  20 20 20 20 20 20 20 20  20 20 20 20 20 65 78 69  |             exi|
00001730  74 25 3d b9 0d 09 ce 0b  20 20 20 20 20 20 cb 0d  |t%=.....      ..|
00001740  09 d8 08 20 20 20 cd 0d  09 e2 08 ed 20 49 25 0d  |...   ...... I%.|
00001750  09 ec 05 e1 0d 09 f6 05  3a 0d 0a 00 2e dd a4 69  |........:......i|
00001760  73 5f 6d 6f 75 73 65 5f  69 6e 5f 62 6f 78 28 4d  |s_mouse_in_box(M|
00001770  58 25 2c 4d 59 25 2c 58  31 25 2c 59 31 25 2c 58  |X%,MY%,X1%,Y1%,X|
00001780  44 25 2c 59 44 25 29 0d  0a 0a 32 3d 4d 58 25 3e  |D%,YD%)...2=MX%>|
00001790  58 31 25 20 80 20 4d 58  25 3c 58 31 25 2b 58 44  |X1% . MX%<X1%+XD|
000017a0  25 20 80 20 4d 59 25 3e  59 31 25 20 80 20 4d 59  |% . MY%>Y1% . MY|
000017b0  25 3c 59 31 25 2b 59 44  25 0d 0a 14 05 3a 0d 0a  |%<Y1%+YD%....:..|
000017c0  1e 0c dd 20 f2 6d 6f 75  73 65 0d 0a 28 12 c8 97  |... .mouse..(...|
000017d0  20 4d 58 25 2c 4d 59 25  2c 4d 42 25 0d 0a 32 0f  | MX%,MY%,MB%..2.|
000017e0  f2 64 65 6c 61 79 28 2e  31 35 29 0d 0a 3c 05 e1  |.delay(.15)..<..|
000017f0  0d 0a 46 05 3a 0d 0a 50  15 dd 20 f2 64 65 6c 61  |..F.:..P.. .dela|
00001800  79 28 73 65 63 6f 6e 64  73 29 0d 0a 5a 07 d1 3d  |y(seconds)..Z..=|
00001810  30 0d 0a 64 05 f5 0d 0a  6e 13 fd 20 91 3e 73 65  |0..d....n.. .>se|
00001820  63 6f 6e 64 73 2a 31 30  30 0d 0a 78 05 e1 0d 0a  |conds*100..x....|
00001830  82 05 3a 0d 0a 8c 1c dd  20 f2 70 72 69 6e 74 28  |..:..... .print(|
00001840  74 65 78 74 24 2c 58 25  2c 59 25 2c 46 25 29 0d  |text$,X%,Y%,F%).|
00001850  0a 96 0c e7 20 46 25 3d  b9 20 8c 0d 0a a0 1e 20  |.... F%=. ..... |
00001860  20 20 58 25 3d 28 31 32  38 30 2d a9 28 74 65 78  |  X%=(1280-.(tex|
00001870  74 24 29 2a 33 32 29 2f  32 0d 0a aa 05 cd 0d 0a  |t$)*32)/2.......|
00001880  b4 07 ef 20 35 0d 0a be  0e e6 20 30 2c 62 6c 61  |... 5..... 0,bla|
00001890  63 6b 25 0d 0a c8 1c ef  20 32 33 2c 31 37 2c 37  |ck%..... 23,17,7|
000018a0  2c 36 2c 58 50 49 58 53  25 3b 38 3b 30 2c 30 0d  |,6,XPIXS%;8;0,0.|
000018b0  0a d2 0d ec 20 58 25 2d  34 2c 59 25 0d 0a dc 0c  |.... X%-4,Y%....|
000018c0  f1 20 74 65 78 74 24 3b  0d 0a e6 0d ec 20 58 25  |. text$;..... X%|
000018d0  2b 34 2c 59 25 0d 0a f0  0c f1 20 74 65 78 74 24  |+4,Y%..... text$|
000018e0  3b 0d 0a fa 0d ec 20 58  25 2c 59 25 2b 34 0d 0b  |;..... X%,Y%+4..|
000018f0  04 0c f1 20 74 65 78 74  24 3b 0d 0b 0e 0d ec 20  |... text$;..... |
00001900  58 25 2c 59 25 2d 34 0d  0b 18 0c f1 20 74 65 78  |X%,Y%-4..... tex|
00001910  74 24 3b 0d 0b 22 0c e6  20 30 2c 72 65 64 25 0d  |t$;..".. 0,red%.|
00001920  0b 2c 0b ec 20 58 25 2c  59 25 0d 0b 36 0c f1 20  |.,.. X%,Y%..6.. |
00001930  74 65 78 74 24 3b 0d 0b  40 17 ef 20 32 33 2c 31  |text$;..@.. 23,1|
00001940  37 2c 37 2c 36 2c 38 3b  38 3b 30 2c 30 0d 0b 4a  |7,7,6,8;8;0,0..J|
00001950  07 ef 20 34 0d 0b 54 05  87 0d 0b 5e 05 e1 0d 0b  |.. 4..T....^....|
00001960  68 05 3a 0d 0b 72 1c dd  20 f2 62 61 63 6b 67 72  |h.:..r.. .backgr|
00001970  6f 75 6e 64 5f 61 74 74  72 69 62 75 74 65 73 0d  |ound_attributes.|
00001980  0b 7c 30 ea 20 6c 61 73  74 5f 6e 75 6d 25 2c 77  |.|0. last_num%,w|
00001990  61 76 65 73 25 2c 6e 65  77 5f 73 63 72 65 65 6e  |aves%,new_screen|
000019a0  73 25 2c 6e 65 77 5f 62  65 74 77 65 65 6e 25 0d  |s%,new_between%.|
000019b0  0b 86 3b ff 28 22 6c 6f  61 64 20 3c 49 6e 76 61  |..;.("load <Inva|
000019c0  73 69 6f 6e 24 44 69 72  3e 2e 42 41 43 4b 47 52  |sion$Dir>.BACKGR|
000019d0  4f 55 4e 44 2e 53 63 72  65 65 6e 49 6e 66 6f 20  |OUND.ScreenInfo |
000019e0  22 2b c3 7e 64 61 74 61  25 29 0d 0b 90 14 6c 61  |"+.~data%)....la|
000019f0  73 74 5f 6e 75 6d 25 3d  3f 64 61 74 61 25 0d 0b  |st_num%=?data%..|
00001a00  9a 15 77 61 76 65 73 25  3d 3f 28 64 61 74 61 25  |..waves%=?(data%|
00001a10  2b 31 29 0d 0b a4 2a f1  20 8a 30 2c 33 29 3b 22  |+1)...*. .0,3);"|
00001a20  43 75 72 72 65 6e 74 20  62 61 63 6b 64 72 6f 70  |Current backdrop|
00001a30  20 61 74 74 72 69 62 75  74 65 73 3a 22 0d 0b ae  | attributes:"...|
00001a40  27 f1 20 27 22 4e 75 6d  62 65 72 20 4f 66 20 53  |'. '"Number Of S|
00001a50  63 72 65 65 6e 73 20 3d  20 22 3b 6c 61 73 74 5f  |creens = ";last_|
00001a60  6e 75 6d 25 0d 0b b8 33  f1 20 22 4e 75 6d 62 65  |num%...3. "Numbe|
00001a70  72 20 4f 66 20 57 61 76  65 73 20 42 65 74 77 65  |r Of Waves Betwe|
00001a80  65 6e 20 42 61 63 6b 64  72 6f 70 73 20 3d 20 22  |en Backdrops = "|
00001a90  3b 77 61 76 65 73 25 0d  0b c2 05 f5 0d 0b cc 38  |;waves%........8|
00001aa0  20 20 20 f1 20 27 27 22  48 6f 77 20 6d 61 6e 79  |   . ''"How many|
00001ab0  20 62 61 63 6b 64 72 6f  70 20 73 63 72 65 65 6e  | backdrop screen|
00001ac0  73 20 61 72 65 20 74 68  65 72 65 22 27 22 3d 3d  |s are there"'"==|
00001ad0  3e 20 22 3b 0d 0b d6 15  20 20 20 e8 20 6e 65 77  |> ";....   . new|
00001ae0  5f 73 63 72 65 65 6e 73  25 0d 0b e0 16 fd 20 6e  |_screens%..... n|
00001af0  65 77 5f 73 63 72 65 65  6e 73 25 3c 31 30 30 0d  |ew_screens%<100.|
00001b00  0b ea 04 0d 0b f4 1c e7  20 6e 65 77 5f 73 63 72  |........ new_scr|
00001b10  65 65 6e 73 25 3d 30 20  f2 69 6e 69 74 3a e1 0d  |eens%=0 .init:..|
00001b20  0b fe 04 0d 0c 08 05 f5  0d 0c 12 45 20 20 20 f1  |...........E   .|
00001b30  20 27 27 22 48 6f 77 20  6d 61 6e 79 20 63 6f 6e  | ''"How many con|
00001b40  73 65 63 75 74 69 76 65  20 77 61 76 65 73 20 62  |secutive waves b|
00001b50  65 74 77 65 65 6e 20 6e  65 77 22 27 22 62 61 63  |etween new"'"bac|
00001b60  6b 64 72 6f 70 73 20 3d  3d 3e 20 22 3b 0d 0c 1c  |kdrops ==> ";...|
00001b70  15 20 20 20 e8 20 6e 65  77 5f 62 65 74 77 65 65  |.   . new_betwee|
00001b80  6e 25 0d 0c 26 16 fd 20  6e 65 77 5f 62 65 74 77  |n%..&.. new_betw|
00001b90  65 65 6e 25 3c 31 30 30  0d 0c 30 04 0d 0c 3a 1c  |een%<100..0...:.|
00001ba0  e7 20 6e 65 77 5f 62 65  74 77 65 65 6e 25 3d 30  |. new_between%=0|
00001bb0  20 f2 69 6e 69 74 3a e1  0d 0c 44 04 0d 0c 4e 19  | .init:...D...N.|
00001bc0  3f 28 64 61 74 61 25 29  3d 6e 65 77 5f 73 63 72  |?(data%)=new_scr|
00001bd0  65 65 6e 73 25 0d 0c 58  1b 3f 28 64 61 74 61 25  |eens%..X.?(data%|
00001be0  2b 31 29 3d 6e 65 77 5f  62 65 74 77 65 65 6e 25  |+1)=new_between%|
00001bf0  0d 0c 62 41 ff 28 22 53  41 56 45 20 3c 49 6e 76  |..bA.("SAVE <Inv|
00001c00  61 73 69 6f 6e 24 44 69  72 3e 2e 42 41 43 4b 47  |asion$Dir>.BACKG|
00001c10  52 4f 55 4e 44 2e 53 63  72 65 65 6e 49 6e 66 6f  |ROUND.ScreenInfo|
00001c20  20 22 2b c3 7e 64 61 74  61 25 2b 22 20 2b 32 22  | "+.~data%+" +2"|
00001c30  29 0d 0c 6c 39 ff 28 22  53 45 54 54 59 50 45 20  |)..l9.("SETTYPE |
00001c40  3c 49 6e 76 61 73 69 6f  6e 24 44 69 72 3e 2e 42  |<Invasion$Dir>.B|
00001c50  41 43 4b 47 52 4f 55 4e  44 2e 53 63 72 65 65 6e  |ACKGROUND.Screen|
00001c60  49 6e 66 6f 20 33 33 37  22 29 0d 0c 76 0c f2 6c  |Info 337")..v..l|
00001c70  6f 61 64 69 6e 67 0d 0c  80 05 e1 0d 0c 8a 05 3a  |oading.........:|
00001c80  0d 0c 94 1b dd 20 f2 63  6f 6e 76 65 72 73 69 6f  |..... .conversio|
00001c90  6e 28 61 72 74 69 73 61  6e 25 29 0d 0c 9e 16 ea  |n(artisan%).....|
00001ca0  20 6e 75 6d 62 65 72 25  2c 20 70 72 6f 6d 70 74  | number%, prompt|
00001cb0  24 0d 0c a8 10 e7 20 61  72 74 69 73 61 6e 25 20  |$..... artisan% |
00001cc0  8c 0d 0c b2 18 20 20 20  70 72 6f 6d 70 74 24 3d  |.....   prompt$=|
00001cd0  22 41 72 74 69 73 61 6e  22 0d 0c bc 05 cc 0d 0c  |"Artisan".......|
00001ce0  c6 18 20 20 20 70 72 6f  6d 70 74 24 3d 22 4d 4f  |..   prompt$="MO|
00001cf0  44 45 20 31 32 22 0d 0c  d0 05 cd 0d 0c da 0c f1  |DE 12"..........|
00001d00  20 8a 30 2c 32 29 3b 0d  0c e4 05 f5 0d 0c ee 68  | .0,2);........h|
00001d10  20 20 20 f1 20 27 22 50  6c 65 61 73 65 20 74 79  |   . '"Please ty|
00001d20  70 65 20 69 6e 20 74 68  65 20 6e 75 6d 62 65 72  |pe in the number|
00001d30  20 66 6f 72 20 74 68 65  22 27 22 63 6f 6e 76 65  | for the"'"conve|
00001d40  72 74 65 64 20 73 63 72  65 65 6e 20 28 74 68 69  |rted screen (thi|
00001d50  73 20 77 69 6c 6c 20 62  65 20 75 73 65 64 20 62  |s will be used b|
00001d60  79 22 27 22 74 68 65 20  67 61 6d 65 29 20 3d 3d  |y"'"the game) ==|
00001d70  3e 20 22 3b 0d 0c f8 10  20 20 20 e8 20 6e 75 6d  |> ";....   . num|
00001d80  62 65 72 25 0d 0d 02 11  fd 20 6e 75 6d 62 65 72  |ber%..... number|
00001d90  25 3c 31 30 30 0d 0d 0c  04 0d 0d 16 17 e7 20 6e  |%<100......... n|
00001da0  75 6d 62 65 72 25 3d 30  20 f2 69 6e 69 74 3a e1  |umber%=0 .init:.|
00001db0  0d 0d 20 04 0d 0d 2a 42  f1 20 27 22 50 6c 65 61  |.. ...*B. '"Plea|
00001dc0  73 65 20 69 6e 73 65 72  74 20 74 68 65 20 22 3b  |se insert the ";|
00001dd0  70 72 6f 6d 70 74 24 3b  22 20 64 69 73 63 22 27  |prompt$;" disc"'|
00001de0  22 69 6e 74 6f 20 74 68  65 20 64 69 73 63 20 64  |"into the disc d|
00001df0  72 69 76 65 2e 22 0d 0d  34 b7 f1 20 27 22 41 66  |rive."..4.. '"Af|
00001e00  74 65 72 20 74 79 70 69  6e 67 20 69 6e 20 74 68  |ter typing in th|
00001e10  65 20 6e 61 6d 65 20 6f  66 20 74 68 65 20 22 3b  |e name of the ";|
00001e20  70 72 6f 6d 70 74 24 3b  27 22 73 63 72 65 65 6e  |prompt$;'"screen|
00001e30  20 70 6c 65 61 73 65 20  72 65 6d 6f 76 65 20 74  | please remove t|
00001e40  68 65 20 64 69 73 63 20  61 66 74 65 72 20 74 68  |he disc after th|
00001e50  65 22 27 22 73 6f 75 6e  64 20 61 6e 64 20 70 72  |e"'"sound and pr|
00001e60  65 73 73 20 74 68 65 20  73 70 61 63 65 62 61 72  |ess the spacebar|
00001e70  20 77 68 65 6e 20 74 68  65 22 27 22 41 6c 69 65  | when the"'"Alie|
00001e80  6e 20 49 6e 76 61 73 69  6f 6e 20 64 69 73 63 20  |n Invasion disc |
00001e90  69 73 20 62 61 63 6b 20  69 6e 20 74 68 65 20 64  |is back in the d|
00001ea0  69 73 63 22 27 22 64 72  69 76 65 2e 22 0d 0d 3e  |isc"'"drive."..>|
00001eb0  05 f5 0d 0d 48 4e 20 20  20 f1 20 27 22 50 6c 65  |....HN   . '"Ple|
00001ec0  61 73 65 20 74 79 70 65  20 69 6e 20 74 68 65 20  |ase type in the |
00001ed0  6e 61 6d 65 20 6f 66 20  74 68 65 20 22 3b 70 72  |name of the ";pr|
00001ee0  6f 6d 70 74 24 3b 27 22  73 63 72 65 65 6e 20 74  |ompt$;'"screen t|
00001ef0  6f 20 63 6f 6e 76 65 72  74 20 3d 3d 3e 20 22 3b  |o convert ==> ";|
00001f00  0d 0d 52 12 20 20 20 e8  20 66 69 6c 65 6e 61 6d  |..R.   . filenam|
00001f10  65 24 0d 0d 5c 27 fd 20  a9 28 66 69 6c 65 6e 61  |e$..\'. .(filena|
00001f20  6d 65 24 29 3e 30 20 80  20 a9 28 66 69 6c 65 6e  |me$)>0 . .(filen|
00001f30  61 6d 65 24 29 3c 32 35  35 0d 0d 66 31 e7 20 61  |ame$)<255..f1. a|
00001f40  72 74 69 73 61 6e 25 20  8c 20 66 69 6c 65 6e 61  |rtisan% . filena|
00001f50  6d 65 24 3d 22 24 2e 41  52 54 49 53 41 4e 2e 22  |me$="$.ARTISAN."|
00001f60  2b 66 69 6c 65 6e 61 6d  65 24 0d 0d 70 10 ff 28  |+filename$..p..(|
00001f70  22 4d 4f 55 4e 54 20 30  22 29 0d 0d 7a 1e ff 28  |"MOUNT 0")..z..(|
00001f80  22 53 43 52 45 45 4e 4c  4f 41 44 20 22 2b 66 69  |"SCREENLOAD "+fi|
00001f90  6c 65 6e 61 6d 65 24 29  0d 0d 84 05 87 0d 0d 8e  |lename$)........|
00001fa0  07 ef 20 37 0d 0d 98 08  47 25 3d a5 0d 0d a2 10  |.. 7....G%=.....|
00001fb0  ff 28 22 4d 4f 55 4e 54  20 30 22 29 0d 0d ac 0e  |.("MOUNT 0")....|
00001fc0  f2 72 6f 77 5f 73 6c 69  63 65 0d 0d b6 0d f2 63  |.row_slice.....c|
00001fd0  6f 6d 70 72 65 73 73 0d  0d c0 0c f2 6c 6f 61 64  |ompress.....load|
00001fe0  69 6e 67 0d 0d ca 05 e1  0d 0d d4 05 3a 0d 0d de  |ing.........:...|
00001ff0  0e dd 20 f2 6c 6f 61 64  69 6e 67 0d 0d e8 2a ff  |.. .loading...*.|
00002000  28 22 53 43 52 45 45 4e  4c 4f 41 44 20 3c 49 6e  |("SCREENLOAD <In|
00002010  76 61 73 69 6f 6e 24 44  69 72 3e 2e 4c 6f 61 64  |vasion$Dir>.Load|
00002020  69 6e 67 22 29 0d 0d f2  0e 63 75 72 72 65 6e 74  |ing")....current|
00002030  25 3d 30 0d 0d fc 12 ff  28 22 50 4f 49 4e 54 45  |%=0.....("POINTE|
00002040  52 20 31 22 29 0d 0e 06  0b e7 20 eb 3d 39 20 8c  |R 1")..... .=9 .|
00002050  0d 0e 10 0f 20 20 20 58  50 49 58 53 25 3d 38 0d  |....   XPIXS%=8.|
00002060  0e 1a 05 cc 0d 0e 24 10  20 20 20 58 50 49 58 53  |......$.   XPIXS|
00002070  25 3d 31 36 0d 0e 2e 05  cd 0d 0e 38 08 c8 97 20  |%=16.......8... |
00002080  ee 0d 0e 42 18 c8 97 20  c8 93 20 30 2c 31 30 2c  |...B... .. 0,10,|
00002090  31 32 38 30 2c 31 30 31  30 0d 0e 4c 10 c8 97 20  |1280,1010..L... |
000020a0  b8 20 31 38 37 2c 31 33  36 0d 0e 56 10 ff 28 22  |. 187,136..V..("|
000020b0  66 78 20 32 31 20 39 22  29 0d 0e 60 13 f2 64 69  |fx 21 9")..`..di|
000020c0  73 70 6c 61 79 5f 6f 70  74 69 6f 6e 0d 0e 6a 05  |splay_option..j.|
000020d0  e1 0d ff                                          |...|
000020d3

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