Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » spdriver.bas
spdriver.bas
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 » Commodore disks » disk32a_commodore_disk_user_3_7.d64 |
| Filename: | spdriver.bas |
| Read OK: | ✔ |
| File size: | 21F6 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Arnold website » magazines_cdu » magazines_cdu_cdu307_cdu307.d64 » spdriver.bas
- Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » spdriver.bas
File contents
10 REM ** SPRITE CONTROLLER **
11 REM ** FOR **
12 REM ** COMMODORE DISK USER **
13 REM ** (C) WILLIAM CHRISTIE, 1989 **
15 :
16 POKE53280,0:POKE53281,11
20 PRINT"<clr><cursor down><cursor down><yellow>"TAB(14)"SPRITE DRIVER<cursor down>"
21 PRINT" BY WILLIAM A CHRISTIE, APRIL 1989"
22 INPUT"<white><cursor down><cursor down> LOAD PROGRAMS/DATA (Y/N)";A$
23 IFA$="N"THEN 100
24 IFA$<>"Y"THEN22
25 INPUT"<cursor down> LOAD SPDRIVER.MC (Y/N)";A$
26 IFA$="N"THEN29
27 IFA$<>"Y"THEN25
28 N$="SPDRIVER.MC":GOSUB60
29 INPUT" LOAD DECRUNCH.MC (Y/N)";A$
30 IFA$="N"THEN33
31 IFA$<>"Y"THEN29
32 N$="DECRUNCH.MC":GOSUB60
33 INPUT" LOAD SPRITES (Y/N)";A$
34 IFA$="N"THEN37
35 IFA$<>"Y"THEN33
36 N$="SPRITES":GOSUB60
37 INPUT" LOAD SCREEN 5 (Y/N)";A$
38 IFA$="N"THEN41
39 IFA$<>"Y"THEN37
40 N$="SCREEN 5":GOSUB60
41 INPUT" LOAD CHARS (Y/N)";A$
42 IFA$="N"THEN46
43 IFA$<>"Y"THEN41
44 SYS52858:N$="CHARS":GOSUB60
46 IFF=0THEN 100
47 INPUT"<cursor down> RE-LOAD OR EXIT PROGRAM (R/E) ";A$
48 IFA$="E"THEN END
49 IFA$<>"R"THEN 47
51 F=0:GOTO25
60 POKE147,0:SYS57812N$,8,1:SYS62631:GOSUB960:IFE=62THENF=1
61 RETURN
100 CLR:PRINT"<clr>"
120 INPUT" <cursor down>ENTER PATTERN DATA INTO MEMORY";A$
130 IFA$="Y"THEN PRINT" POKING DATA - PLEASE WAIT. ":GOTO160
140 IFA$<>"N"THEN PRINT"PLEASE ENTER 'Y' OR 'N'":GOTO120
150 GOTO820
159 :
160 BA=4096*6:BS=BA:BE=4096*7:SN=1:REM BA AND BE=PATTERN MEMORY START AND END
170 L=1:SC=1
180 I1=BA:BA=BA+2
190 I2=BA:BA=BA+2
200 READA:IFA<0THEN230
210 IFBA<BETHENPOKEBA,A:BA=BA+1:GOTO200
220 PRINT"OUT OF SPRITE DATA MEMORY AT LINE"L:PRINT"SCREEN"SC:END
230 IFA<>-1THEN260
240 GOSUB330:POKEI2,LB:POKEI2+1,HB:L=L+1:IFL<9GOTO190
250 PRINT"INCORRECT '-2' AT LINE"L-1"SCREEN"SC:END
260 IFA<>-2THEN290
270 IFL<>8THEN PRINT"MISSING DATA AT LINE"L"SCREEN"SC:END
280 GOSUB330:POKEI1,LB:POKEI2,LB:POKEI1+1,HB:POKEI2+1,HB:L=1:SC=SC+1:GOTO180
290 IFA<>-9THENPRINT"INVALID END-OF-DATA FLAG AT LINE"L:PRINT"SCREEN"SC:END
295 IFL<>1THENPRINT"MISSING '-2' AI LINE"L"SCREEN"SC:END
300 BA=BA-4:PRINT"<cursor down>DATA NOW READ IN"
310 PRINT"BYTES USED ="BA-BS
320 PRINT"BYTES FREE ="BE-BA:GOTO700
330 HB=INT(BA/256):LB=BA-(HB*256):RETURN
350 REM ****************************
360 REM ** SPRITE PATTERN SET-UP ***
370 REM ****************************
375 INPUT"<clr><white><cursor down> USE WITH DECRUNCH (Y/N)";Z$
376 IFZ$="Y"THENDC=52480:GOTO390
377 IFZ$="N"THENDC=138:PRINT"<clr>":GOTO390
378 GOTO375
380 :
390 POKE2040,128:POKE820,1:POKE821,0:POKE1022,1:POKE53272,31
400 V=53248:POKEV+21,255:POKEV+39,1:POKEV,100:POKEV+1,10
410 SYSDC:IF F3=1THENSYS49152
420 P=PEEK(197)
430 IFP<>44THEN460
440 IFPEEK(V)<255THENPOKEV,PEEK(V)+1:GOTO420
450 POKEV,0:POKEV+16,PEEK(V+16)OR1:GOTO420
460 IFP<>47THEN490
470 IFPEEK(V)>0THENPOKEV,PEEK(V)-1:GOTO420
480 POKEV,255:POKEV+16,PEEK(V+16)AND254:GOTO420
490 IFP=10THENPOKEV+1,PEEK(V+1)-1AND255:GOTO420
500 IFP=12THENPOKEV+1,PEEK(V+1)+1AND255:GOTO420
510 IFP=59THENPOKEV+1,PEEK(V+1)-1:GOTO440:REM +1
520 IFP=9THENPOKEV+1,PEEK(V+1)+1:GOTO440
530 IFP=62THENPOKEV+1,PEEK(V+1)+1:GOTO470:REM -1
540 IFP=56THENPOKEV+1,PEEK(V+1)-1:GOTO470
550 IFP<>60THEN590
560 PRINT"<home> "
570 PRINT"<home> X"PEEK(V)"Y"PEEK(V+1);"P"PEEK(2040);"SPCOL"PEEK(V+39)AND15;
580 PRINT"C1"PEEK(V+37)AND15;"C2"PEEK(V+38)AND15:GOTO420
590 IFP=40THENPOKE2040,PEEK(2040)+1AND255:GOTO420
600 IFP=4ANDPEEK(820)<255THENPOKE820,PEEK(820)+1:SYSDC:GOTO690
610 IFP=5ANDPEEK(820)>1THENPOKE820,PEEK(820)-1:SYSDC:GOTO690
620 IFP=6THENPOKE53285,PEEK(53285)+1AND 15:GOTO420
630 IFP=3THENPOKE53286,PEEK(53286)+1AND 15:GOTO420
640 IFP=43THENPOKE2040,PEEK(2040)-1AND255:GOTO420
650 IFP=20THENPOKEV+39,(PEEK(V+39)+1)AND15:GOTO420
660 IFP=36AND(PEEK(V+28)AND1)=0 THENPOKEV+28,(PEEK(V+28)OR1):GOTO420
670 IFP=36THENPOKEV+28,(PEEK(V+28)AND254):GOTO420
675 IFP=17ANDPEEK(53272)=31THENPOKE53272,21:GOTO680
676 IFP=17THENPOKE53272,31
678 IFP=33THENPOKE646,(PEEK(646)+1)AND7
680 GOTO420
690 POKE824,PEEK(820):GOTO420
700 INPUT" <cursor down>SAVE PATTERN DATA (Y/N)";A$
710 IFA$="N"THENPRINT:GOTO820
720 IFA$<>"Y"THENPRINT"PLEASE ENTER EITHER 'Y' OR 'N'<cursor down>":GOTO700
730 INPUT" ENTER FILENAME";N$
780 SYS57812N$+".PD",8,1
790 BA=BA+1:GOSUB330:POKE174,LB:POKE175,HB
800 BA=BS:GOSUB330:POKE193,LB:POKE194,HB:SYS62957
819 :
820 INPUT" RUN PATTERN CONSTRUCTOR (Y/N)";A$
821 IFA$="Y"THENRUN375
822 IFA$="N"THEN825
823 GOTO820
825 IFFF=1THENEND
828 INPUT" RUN SPRITE CONTROLLER (Y/N)";A$
830 IFA$="Y"THENF3=1:GOTO860
840 IFA$="N"THENEND
850 GOTO820
860 INPUT" WITH DECRUNCH (Y/N)";A$
862 IFA$="Y"THENDC=52480:GOTO390
864 IFA$="N"THENPRINT"<cursor down><cursor down>POKE824,SCREEN NUMBER (1-5 FOR DEMO)":SYS49152:END
866 GOTO860
869 :
960 OPEN15,8,15:INPUT#15,E,E$:CLOSE15:PRINT" DRIVE STATUS :";E$:RETURN
970 REM ******************************
980 REM **** SPRITE MOVEMENT DATA ****
990 REM ******************************
1000 REM **** SCREEN 1 ****
1100 DATA 8,254,14,3,13,33,208,0,15,254,13,16,192,1,255:REM CHAR ANIM = ON
1199 DATA-1
1200 DATA 7,8,16,6,5,0,24,62,23,152,156,2,0,4,0,15,5,5,129
1210 DATA 22,12,1,150,154,20,0,0,1,123,6,80,0,12,1,154,158,20,0,0,2,24,6,80,0,0
1299 DATA-1
1300 DATA 16,6,7,6,5,1,64,62,23,152,156,2,0,4,0,15,5,5,129
1310 DATA 22,12,1,154,158,20,0,0,2,240,6,80,0,12,1,150,154,20,0,0,1,64,6,80,0,0
1399 DATA-1
1400 DATA 16,9,7,4,5,0,24,103
1410 DATA 12,1,170,174,20,0,1,22,1,233,2,24,0
1499 DATA-1
1500 DATA 16,2,7,8,22,5,0,255,153,12,0,9,145,6,0,2
1510 DATA 12,1,142,149,2,0,0,6,0,2,24,20,4,200,24,2,6,0,2,24,20,3,153,6,95,0,0
1599 DATA-1
1600 DATA 16,4,5,0,90,197,12,1,158,169,15,0,1,255
1699 DATA-1
1700 DATA 16,4,5,0,220,197,12,1,158,169,16,0,1,255
1799 DATA -1
1800 DATA 16,6,22,7,4,5,0,0,235,23,191,195,3,0,144,0,15,20,20,129,12,0
1810 DATA 6,0,5,12,1,188,191,16,0,1,6,0,1,1,162,24,12,6,50,1,24,8,3,170,24,12
1820 DATA 12,1,192,195,14,0,1,6,50,1,24,16,2,111,24,12,20,64,24,16
1830 DATA 12,1,188,191,14,0,1,6,50,1,24,16,1,120,24,10,7,2,1,160,24,16,1,245
1840 DATA 12,0,1,150,17,3,0,14,2,15,2,2,129,10,200,13,32,208,0,6,1,0
1860 DATA 13,32,208,6,11,0
1899 DATA-2
2000 REM ***** SCREEN 2 ****
2100 DATA 13,33,208,2,15,238,255
2199 DATA-1
2200 DATA 8,254,7,8,16,0,7,5,5,0,192,81
2210 DATA 22,12,1,178,181,20,0,0,1,39,12,1,181,184,20,0,0,3,69
2229 DATA 12,1,178,181,20,0,0,2,192,12,1,181,184,20,0,0,4,81,0
2299 DATA-1
2300 DATA 16,3,7,8,5,0,35,134
2310 DATA 22,12,1,150,154,20,0,0,1,237,6,20,0,12,1,154,158,20,0,0,2,35,6,20,0,0
2399 DATA-1
2400 DATA 16,6,7,6,5,1,55,72,12,1,170,174,20,0,1
2410 DATA 22,4,217,3,72,0
2499 DATA -1
2500 DATA 255
2599 DATA -1
2600 DATA 16,3,5,0,95,90,22,12,1,213,220,20,0,1,6,30,1,12,0,26,0,0,0
2699 DATA-1
2700 DATA 16,0,7,4,5,0,192,166
2710 DATA 22,12,1,192,195,20,0,1,2,27,12,1,188,191,20,0,1,1,192,0
2799 DATA-1
2800 DATA 16,0,7,4,5,0,27,184,23,191,195,3,0,144,0,15,20,20,129
2810 DATA 22,12,1,188,191,20,0,1,1,192,12,1,192,195,20,0,1,2,27,0
2899 DATA-2
3000 REM ***** SCREEN 3 *******
3100 DATA 13,33,208,0,15,126,8,254,1,5,255
3199 DATA -1
3200 DATA 16,9,7,3,5,0,60,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65
3210 DATA 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0
3299 DATA -1
3300 DATA 16,9,7,3,5,0,95,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65
3310 DATA 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0
3399 DATA -1
3400 DATA 16,9,7,3,5,0,176,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65
3410 DATA 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0
3499 DATA -1
3500 DATA 16,2,5,0,135,115,22,12,1,205,212,20,0,1,6,30,1,12,0,6,255,0,0
3599 DATA -1
3600 DATA 16,2,5,0,106,115,22,12,1,213,220,20,0,1,6,30,1,12,0,6,200,0,0
3699 DATA -1
3700 DATA 16,6,7,5,5,0,24,185,12,1,184,187,24,0,1,22,6,30,0,1,20,1,63,6,30,0
3710 DATA 2,1,2,24,0
3799 DATA -1
3800 DATA 12,0,255
3899 DATA -2
4000 REM ****** SCREEN 4 *******
4100 DATA 13,33,208,0,15,14,8,8,1,11,13,0,159,0,255
4199 DATA -1
4200 DATA16,14,7,6,5,0,253,140,22,12,1,133,136,15,0,0,2,166,12,1,136,139,15,0,0
4210 DATA 7,10,4,212,7,6,12,1,129,132,15,0,0,1,43,6,20,0,12,1,133,136,15,0,0
4220 DATA 2,166,12,1,136,139,15,0,0,7,10,3,140,12,1,129,132,15,0,0
4230 DATA 7,6,1,253,6,20,0,0,0
4299 DATA -1
4300 DATA 16,6,7,6,22,5,0,215,180,10,3,12,1,129,132,15,0,0,1,11,6,20,0
4310 DATA 12,1,133,136,15,0,0,2,215,6,20,0,11,28,3,0,159,0
4399 DATA -1
4400 DATA16,12,7,4,5,0,24,86,12,1,196,203,22,0,0,22,10,3,1,20,1,65,6,20,0,4,233
4410 DATA 6,20,0,2,1,2,24,6,20,0,3,86,6,20,0,11,13,0,159,1,0
4499 DATA -1
4500 REM **** BORDER COLOUR BANDS ****
4501 DATA 10,250:REM LOOP COUNTER=250
4502 DATA 13,32,208,0,13,32,208,0,13,32,208,11,13,32,208,11:REM POKE BORDER COL
4510 DATA 13,32,208,12,13,32,208,12,13,32,208,15,13,32,208,15:REM MORE COLOURS
4520 DATA 13,32,208,1,13,32,208,1,13,32,208,15,13,32,208,15:REM MORE COLOURS
4530 DATA 13,32,208,12,13,32,208,12,13,32,208,11,13,32,208,11:REM FINAL COLOURS
4531 DATA 11:REM LOOP END-GOTO START
4540 DATA 22:REM SET NEW START
4541 DATA 13,32,208,6:REM SCREEN=BLUE
4542 DATA 13,32,208,0:REM SCREEN=BLACK
4543 DATA 0:REM GO BACK TO START (LINE 4540 -AND REPEAT ALWAYS!)
4599 DATA -1
4600 DATA 255
4699 DATA -1
4700 DATA 255
4799 DATA -1
4800 DATA 255
4899 DATA -2
5000 REM ****** SCREEN 5 *******
5100 DATA 14,54,4,1,12,1,19,20,32,19,3,18,5,5,14,33,0
5110 DATA 13,33,208,0,15,255,8,0,16,1,9,137,13,0,159,0,13,1,159,0,7,3,5,1,53,33
5120 DATA 6,0,1,4,61,6,20,0,7,5,4,172,27,1,159,2,114,7,8,28,3,0,159,7,3,2,114
5130 DATA 6,0,3,1,53,6,0,2,22,20,1,20,1,0
5199 DATA -1
5200 DATA 16,5,9,137,7,3,5,1,53,33,6,100,1,4,61,6,50,0,7,5,4,157,27,1,159
5210 DATA 2,114,7,7,28,3,0,159,7,1,28,0,1,159,255
5299 DATA -1
5300 DATA 16,3,9,137,7,3,5,1,53,33,6,200,1,4,61,6,50,0,7,5,4,142,27,1,159
5310 DATA 2,114,7,6,28,3,0,159,7,2,28,0,1,159,255
5399 DATA -1
5400 DATA 16,5,9,137,7,3,5,1,53,33,6,50,2,4,61,6,50,0,7,5,4,127,27,1,159
5410 DATA 10,2,2,114,1,53,4,177,3,127,11,7,3,28,0,1,159,255
5499 DATA -1
5500 DATA16,5,9,137,7,3,5,1,53,33,6,150,2,4,61,6,50,0,7,5,4,112,6,0,2,13,1,159,1
5510 DATA 10,2,2,114,1,53,3,62,4,112,11,13,1,159,0,13,0,159,1,7,4,28,0,1,159,255
5599 DATA -1
5600 DATA 16,3,9,137,7,3,5,1,53,33,6,250,2,4,61,6,50,0,7,5,4,97,27,1,159,2,114
5610 DATA7,6,28,4,0,159,7,5,28,0,1,159,255
5699 DATA -1
5700 DATA 16,5,9,137,7,3,5,1,53,33,6,100,3,4,61,6,50,0,7,5,4,82,27,1,159,2,114
5710 DATA7,7,28,4,0,159,7,6,28,0,1,159,255
5799 DATA -1
5800 DATA 16,1,9,137,7,3,5,1,53,33,6,200,3,4,61,6,50,0,7,5,4,67,27,1,159,2,114
5810 DATA7,8,28,4,0,159,7,7,28,0,1,159,255
5899 DATA -2
9999 DATA -9
(
� ** SPRITE CONTROLLER ** O � ** FOR ** v � ** COMMODORE DISK USER ** �
� ** (C) WILLIAM CHRISTIE, 1989 ** � : � �53280,0:�53281,11 � �"��"�14)"SPRITE DRIVER" �" BY WILLIAM A CHRISTIE, APRIL 1989" . �" LOAD PROGRAMS/DATA (Y/N)";A$ ? �A$�"N"� 100 O �A$��"Y"�22 r �" LOAD SPDRIVER.MC (Y/N)";A$ � �A$�"N"�29 � �A$��"Y"�25 � N$�"SPDRIVER.MC":�60 � �" LOAD DECRUNCH.MC (Y/N)";A$ � �A$�"N"�33 � �A$��"Y"�29
N$�"DECRUNCH.MC":�60 &
! �" LOAD SPRITES (Y/N)";A$ 5
" �A$�"N"�37 E
# �A$��"Y"�33 Z
$ N$�"SPRITES":�60 |
% �" LOAD SCREEN 5 (Y/N)";A$ �
& �A$�"N"�41 �
' �A$��"Y"�37 �
( N$�"SCREEN 5":�60 �
) �" LOAD CHARS (Y/N)";A$ �
* �A$�"N"�46 �
+ �A$��"Y"�41 , �52858:N$�"CHARS":�60 . �F�0� 100 E / �" RE-LOAD OR EXIT PROGRAM (R/E) ";A$ T 0 �A$�"E"� � e 1 �A$��"R"� 47 q 3 F�0:�25 � < �147,0:�57812N$,8,1:�62631:�960:�E�62�F�1 � = � � d �:�"�" � x �" ENTER PATTERN DATA INTO MEMORY";A$
� �A$�"Y"� �" POKING DATA - PLEASE WAIT. ":�160 ; � �A$��"N"� �"PLEASE ENTER 'Y' OR 'N'":�120 D � �820 J � : � � BA�4096�6:BS�BA:BE�4096�7:SN�1:� BA AND BE=PATTERN MEMORY START AND END � � L�1:SC�1 � � I1�BA:BA�BA�2 � � I2�BA:BA�BA�2 � � �A:�A�0�230 � � �BA�BE��BA,A:BA�BA�1:�200 -
� �"OUT OF SPRITE DATA MEMORY AT LINE"L:�"SCREEN"SC:� <
� �A���1�260 d
� �330:�I2,LB:�I2�1,HB:L�L�1:�L�9�190 �
� �"INCORRECT '-2' AT LINE"L�1"SCREEN"SC:� �
�A���2�290 �
�L��8� �"MISSING DATA AT LINE"L"SCREEN"SC:�
�330:�I1,LB:�I2,LB:�I1�1,HB:�I2�1,HB:L�1:SC�SC�1:�180 H"�A���9��"INVALID END-OF-DATA FLAG AT LINE"L:�"SCREEN"SC:� w'�L��1��"MISSING '-2' AI LINE"L"SCREEN"SC:� �,BA�BA�4:�"DATA NOW READ IN" �6�"BYTES USED ="BA�BS �@�"BYTES FREE ="BE�BA:�700 �JHB��(BA�256):LB�BA�(HB�256):� ^� **************************** 7h� ** SPRITE PATTERN SET-UP *** Zr� **************************** �w�"� USE WITH DECRUNCH (Y/N)";Z$ �x�Z$�"Y"�DC�52480:�390 �y�Z$�"N"�DC�138:�"�":�390 �z�375 �|: ���2040,128:�820,1:�821,0:�1022,1:�53272,31 !�V�53248:�V�21,255:�V�39,1:�V,100:�V�1,10 7��DC:� F3�1��49152 D�P��(197) S��P��44�460 p���(V)�255��V,�(V)�1:�420 ���V,0:�V�16,�(V�16)�1:�420 ���P��47�490 ����(V)�0��V,�(V)�1:�420 ���V,255:�V�16,�(V�16)�254:�420 ���P�10��V�1,�(V�1)�1�255:�420 ��P�12��V�1,�(V�1)�1�255:�420 >��P�59��V�1,�(V�1)�1:�440:� +1 Z�P�9��V�1,�(V�1)�1:�440 |�P�62��V�1,�(V�1)�1:�470:� -1 � �P�56��V�1,�(V�1)�1:�470 �&�P��60�590 �0�" " :�" X"�(V)"Y"�(V�1);"P"�(2040);"SPCOL"�(V�39)�15; 4D�"C1"�(V�37)�15;"C2"�(V�38)�15:�420 WN�P�40��2040,�(2040)�1�255:�420 �X�P�4��(820)�255��820,�(820)�1:�DC:�690 �b�P�5��(820)�1��820,�(820)�1:�DC:�690 �l�P�6��53285,�(53285)�1� 15:�420 �v�P�3��53286,�(53286)�1� 15:�420 ��P�43��2040,�(2040)�1�255:�420 :��P�20��V�39,(�(V�39)�1)�15:�420 j��P�36�(�(V�28)�1)�0 ��V�28,(�(V�28)�1):�420 ���P�36��V�28,(�(V�28)�254):�420 ���P�17��(53272)�31��53272,21:�680 ���P�17��53272,31 ���P�33��646,(�(646)�1)�7 ���420 ��824,�(820):�420 $��" SAVE PATTERN DATA (Y/N)";A$ 7��A$�"N"��:�820 l��A$��"Y"��"PLEASE ENTER EITHER 'Y' OR 'N'":�700 ���" ENTER FILENAME";N$ � �57812N$�".PD",8,1 �BA�BA�1:�330:�174,LB:�175,HB � BA�BS:�330:�193,LB:�194,HB:�62957 �3: 4�" RUN PATTERN CONSTRUCTOR (Y/N)";A$ $5�A$�"Y"��375 46�A$�"N"�825 =7�820 I9�FF�1�� p<�" RUN SPRITE CONTROLLER (Y/N)";A$ �>�A$�"Y"�F3�1:�860 �H�A$�"N"�� �R�820 �\�" WITH DECRUNCH (Y/N)";A$ �^�A$�"Y"�DC�52480:�390 `�A$�"N"��"POKE824,SCREEN NUMBER (1-5 FOR DEMO)":�49152:� b�860 $e: V��15,8,15:�15,E,E$:�15:�" DRIVE STATUS :";E$:� {�� ****************************** ��� **** SPRITE MOVEMENT DATA **** ��� ****************************** ��� **** SCREEN 1 **** #L� 8,254,14,3,13,33,208,0,15,254,13,16,192,1,255:� CHAR ANIM = ON +��-1 b�� 7,8,16,6,5,0,24,62,23,152,156,2,0,4,0,15,5,5,129 ��� 22,12,1,150,154,20,0,0,1,123,6,80,0,12,1,154,158,20,0,0,2,24,6,80,0,0 ��-1 �� 16,6,7,6,5,1,64,62,23,152,156,2,0,4,0,15,5,5,129 9 � 22,12,1,154,158,20,0,0,2,240,6,80,0,12,1,150,154,20,0,0,1,64,6,80,0,0 Aw�-1 [x� 16,9,7,4,5,0,24,103 ��� 12,1,170,174,20,0,1,22,1,233,2,24,0 ���-1 ��� 16,2,7,8,22,5,0,255,153,12,0,9,145,6,0,2 �� 12,1,142,149,2,0,0,6,0,2,24,20,4,200,24,2,6,0,2,24,20,3,153,6,95,0,0 ?�-1 =@� 16,4,5,0,90,197,12,1,158,169,15,0,1,255 E��-1 t�� 16,4,5,0,220,197,12,1,158,169,16,0,1,255 }� -1 �� 16,6,22,7,4,5,0,0,235,23,191,195,3,0,144,0,15,20,20,129,12,0
� 6,0,5,12,1,188,191,16,0,1,6,0,1,1,162,24,12,6,50,1,24,8,3,170,24,12 I � 12,1,192,195,14,0,1,6,50,1,24,16,2,111,24,12,20,64,24,16 �&� 12,1,188,191,14,0,1,6,50,1,24,16,1,120,24,10,7,2,1,160,24,16,1,245 �0� 12,0,1,150,17,3,0,14,2,15,2,2,129,10,200,13,32,208,0,6,1,0 �D� 13,32,208,6,11,0 �k�-2 �� ***** SCREEN 2 **** )4� 13,33,208,2,15,238,255 1��-1 U�� 8,254,7,8,16,0,7,5,5,0,192,81 ��� 22,12,1,178,181,20,0,0,1,39,12,1,181,184,20,0,0,3,69 ��� 12,1,178,181,20,0,0,2,192,12,1,181,184,20,0,0,4,81,0 ���-1 ��� 16,3,7,8,5,0,35,134 9 � 22,12,1,150,154,20,0,0,1,237,6,20,0,12,1,154,158,20,0,0,2,35,6,20,0,0 A _ �-1 n ` � 16,6,7,6,5,1,55,72,12,1,170,174,20,0,1 � j � 22,4,217,3,72,0 � � � -1 � � � 255 � '
� -1 � (
� 16,3,5,0,95,90,22,12,1,213,220,20,0,1,6,30,1,12,0,26,0,0,0 � �
�-1 �
� 16,0,7,4,5,0,192,166 B �
� 22,12,1,192,195,20,0,1,2,27,12,1,188,191,20,0,1,1,192,0 J �
�-1 � �
� 16,0,7,4,5,0,27,184,23,191,195,3,0,144,0,15,20,20,129 � �
� 22,12,1,188,191,20,0,1,1,192,12,1,192,195,20,0,1,2,27,0 � S �-2 � � � ***** SCREEN 3 ******* � 13,33,208,0,15,126,8,254,1,5,255 � -1 X � � 16,9,7,3,5,0,60,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65 � � � 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0 � � � -1 � � � 16,9,7,3,5,0,95,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65 � � � 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0 � G
� -1 = H
� 16,9,7,3,5,0,176,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65 g R
� 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0 p �
� -1 � �
� 16,2,5,0,135,115,22,12,1,205,212,20,0,1,6,30,1,12,0,6,255,0,0 � � -1 � 16,2,5,0,106,115,22,12,1,213,220,20,0,1,6,30,1,12,0,6,200,0,0
s� -1 S t� 16,6,7,5,5,0,24,185,12,1,184,187,24,0,1,22,6,30,0,1,20,1,63,6,30,0 d ~� 2,1,2,24,0 m �� -1 | �� 12,0,255 � ;� -2 � �� ****** SCREEN 4 ******* � � 13,33,208,0,15,14,8,8,1,11,13,0,159,0,255 � g� -1 (!h�16,14,7,6,5,0,253,140,22,12,1,133,136,15,0,0,2,166,12,1,136,139,15,0,0 q!r� 7,10,4,212,7,6,12,1,129,132,15,0,0,1,43,6,20,0,12,1,133,136,15,0,0 �!|� 2,166,12,1,136,139,15,0,0,7,10,3,140,12,1,129,132,15,0,0 �!�� 7,6,1,253,6,20,0,0,0 �!�� -1 "�� 16,6,7,6,22,5,0,215,180,10,3,12,1,129,132,15,0,0,1,11,6,20,0 N"�� 12,1,133,136,15,0,0,2,215,6,20,0,11,28,3,0,159,0 W"/� -1 �"0�16,12,7,4,5,0,24,86,12,1,196,203,22,0,0,22,10,3,1,20,1,65,6,20,0,4,233 �":� 6,20,0,2,1,2,24,6,20,0,3,86,6,20,0,11,13,0,159,1,0 �"�� -1 #�� **** BORDER COLOUR BANDS **** )#�� 10,250:� LOOP COUNTER=250 s#�� 13,32,208,0,13,32,208,0,13,32,208,11,13,32,208,11:� POKE BORDER COL �#�� 13,32,208,12,13,32,208,12,13,32,208,15,13,32,208,15:� MORE COLOURS $�� 13,32,208,1,13,32,208,1,13,32,208,15,13,32,208,15:� MORE COLOURS M$�� 13,32,208,12,13,32,208,12,13,32,208,11,13,32,208,11:� FINAL COLOURS l$�� 11:� LOOP END-GOTO START �$�� 22:� SET NEW START �$�� 13,32,208,6:� SCREEN=BLUE �$�� 13,32,208,0:� SCREEN=BLACK %�� 0:� GO BACK TO START (LINE 4540 -AND REPEAT ALWAYS!)
%�� -1 %�� 255 %[� -1 '%\� 255 0%�� -1 :%�� 255 C%#� -2 a%�� ****** SCREEN 5 ******* �%�� 14,54,4,1,12,1,19,20,32,19,3,18,5,5,14,33,0 �%�� 13,33,208,0,15,255,8,0,16,1,9,137,13,0,159,0,13,1,159,0,7,3,5,1,53,33 )& � 6,0,1,4,61,6,20,0,7,5,4,172,27,1,159,2,114,7,8,28,3,0,159,7,3,2,114 O&
� 6,0,3,1,53,6,0,2,22,20,1,20,1,0 X&O� -1 �&P� 16,5,9,137,7,3,5,1,53,33,6,100,1,4,61,6,50,0,7,5,4,157,27,1,159 �&Z� 2,114,7,7,28,3,0,159,7,1,28,0,1,159,255 �&�� -1 '�� 16,3,9,137,7,3,5,1,53,33,6,200,1,4,61,6,50,0,7,5,4,142,27,1,159 I'�� 2,114,7,6,28,3,0,159,7,2,28,0,1,159,255 R'� -1 �'� 16,5,9,137,7,3,5,1,53,33,6,50,2,4,61,6,50,0,7,5,4,127,27,1,159 �'"� 10,2,2,114,1,53,4,177,3,127,11,7,3,28,0,1,159,255 �'{� -1 %(|�16,5,9,137,7,3,5,1,53,33,6,150,2,4,61,6,50,0,7,5,4,112,6,0,2,13,1,159,1 r(�� 10,2,2,114,1,53,3,62,4,112,11,13,1,159,0,13,0,159,1,7,4,28,0,1,159,255 {(�� -1 �(�� 16,3,9,137,7,3,5,1,53,33,6,250,2,4,61,6,50,0,7,5,4,97,27,1,159,2,114 �(��7,6,28,4,0,159,7,5,28,0,1,159,255 �(C� -1 A)D� 16,5,9,137,7,3,5,1,53,33,6,100,3,4,61,6,50,0,7,5,4,82,27,1,159,2,114 h)N�7,7,28,4,0,159,7,6,28,0,1,159,255 q)�� -1 �)�� 16,1,9,137,7,3,5,1,53,33,6,200,3,4,61,6,50,0,7,5,4,67,27,1,159,2,114 �)��7,8,28,4,0,159,7,7,28,0,1,159,255 �) � -2 �)'� -9 (HJ@. ** sprite controller **@oHK@. ** for **@VHL@. ** commodore disk user **@.HM@. ** (c) william christie, 1989 **@.HO@:@.HP@.53280,0:.53281,11@.HT@.".QQ.".14)"sprite driverQ"@GIU@." by william a christie, april 1989"@.IV@."EQQ load programs/data (y/n)";a$@?IW@.a$."n". 100@oIX@.a$.."y".22@RIY@."Q load spdriver.mc (y/n)";a$@.IZ@.a$."n".29@.I[@.a$.."y".25@.I£@n$."spdriver.mc":.60@.I]@." load decrunch.mc (y/n)";a$@.I.@.a$."n".33@.I.@.a$.."y".29@DJ @n$."decrunch.mc":.60@&J!@." load sprites (y/n)";a$@5J"@.a$."n".37@eJ#@.a$.."y".33@zJ$@n$."sprites":.60@.J%@." load screen 5 (y/n)";a$@.J&@.a$."n".41@.J'@.a$.."y".37@.J(@n$."screen 5":.60@.J)@." load chars (y/n)";a$@.J*@.a$."n".46@.J+@.a$.."y".41@LK,@.52858:n$."chars":.60@ZK.@.f.0. 100@eK/@."Q re-load or exit program (r/e) ";a$@tK0@.a$."e". .@EK1@.a$.."r". 47@QK3@f.0:.25@.K<@.147,0:.57812n$,8,1:.62631:.960:.e.62.f.1@.K=@.@.KD@.:."."@.KX@." Qenter pattern data into memory";a$@ML.@.a$."y". ." poking data - please wait. ":.160@;L.@.a$.."n". ."please enter 'y' or 'n'":.120@dL.@.820@jL.@:@.L.@ba.4096.6:bs.ba:be.4096.7:sn.1:. ba and be=pattern memory start and end@.L.@l.1:sc.1@.L.@i1.ba:ba.ba.2@.L.@i2.ba:ba.ba.2@.L.@.a:.a.0.230@.L.@.ba.be..ba,a:ba.ba.1:.200@-M.@."out of sprite data memory at line"l:."screen"sc:.@<M.@.a...1.260@DM.@.330:.i2,lb:.i2.1,hb:l.l.1:.l.9.190@.M.@."incorrect '-2' at line"l.1"screen"sc:.@.MDA.a...2.290@.MNA.l..8. ."missing data at line"l"screen"sc:.@JNXA.330:.i1,lb:.i2,lb:.i1.1,hb:.i2.1,hb:l.1:sc.sc.1:.180@hN"A.a...9.."invalid end-of-data flag at line"l:."screen"sc:.@WN'A.l..1.."missing '-2' ai line"l"screen"sc:.@.N,Aba.ba.4:."Qdata now read in"@.N6A."bytes used ="ba.bs@.N@A."bytes free ="be.ba:.700@.NjAhb..(ba.256):lb.ba.(hb.256):.@TO.A. ****************************@7OHA. ** sprite pattern set-up ***@zORA. ****************************@.OWA.".EQ use with decrunch (y/n)";z$@.OXA.z$."y".dc.52480:.390@.OYA.z$."n".dc.138:.".":.390@.OZA.375@.O.A:@.O.A.2040,128:.820,1:.821,0:.1022,1:.53272,31@!P.Av.53248:.v.21,255:.v.39,1:.v,100:.v.1,10@7P.A.dc:. f3.1..49152@dP.Ap..(197)@sP.A.p..44.460@PP.A..(v).255..v,.(v).1:.420@.P.A.v,0:.v.16,.(v.16).1:.420@.P.A.p..47.490@.P.A..(v).0..v,.(v).1:.420@.P.A.v,255:.v.16,.(v.16).254:.420@.P.A.p.10..v.1,.(v.1).1.255:.420@£Q.A.p.12..v.1,.(v.1).1.255:.420@>Q.A.p.59..v.1,.(v.1).1:.440:. +1@zQHB.p.9..v.1,.(v.1).1:.440@.QRB.p.62..v.1,.(v.1).1:.470:. -1@.Q£B.p.56..v.1,.(v.1).1:.470@.Q&B.p..60.590@.Q0B."S "@LR:B."S x".(v)"y".(v.1);"p".(2040);"spcol".(v.39).15;@4RdB."c1".(v.37).15;"c2".(v.38).15:.420@wRnB.p.40..2040,.(2040).1.255:.420@.RxB.p.4..(820).255..820,.(820).1:.dc:.690@.RBB.p.5..(820).1..820,.(820).1:.dc:.690@.RLB.p.6..53285,.(53285).1. 15:.420@.RVB.p.3..53286,.(53286).1. 15:.420@VS.B.p.43..2040,.(2040).1.255:.420@:S.B.p.20..v.39,(.(v.39).1).15:.420@JS.B.p.36.(.(v.28).1).0 ..v.28,(.(v.28).1):.420@.S.B.p.36..v.28,(.(v.28).254):.420@.S.B.p.17..(53272).31..53272,21:.680@.S.B.p.17..53272,31@.S.B.p.33..646,(.(646).1).7@.S.B.420@@T.B.824,.(820):.420@$T.B." Qsave pattern data (y/n)";a$@7T.B.a$."n"..:.820@LT.B.a$.."y".."please enter either 'y' or 'n'Q":.700@.T.B." enter filename";n$@.TLC.57812n$.".pd",8,1@.TVCba.ba.1:.330:.174,lb:.175,hb@.T Cba.bs:.330:.193,lb:.194,hb:.62957@.T3C:@SU4C." run pattern constructor (y/n)";a$@$U5C.a$."y"..375@4U6C.a$."n".825@=U7C.820@iU9C.ff.1..@PU<C." run sprite controller (y/n)";a$@.U>C.a$."y".f3.1:.860@.UhC.a$."n"..@.UrC.820@.U£C." with decrunch (y/n)";a$@.U.C.a$."y".dc.52480:.390@UV.C.a$."n".."QQpoke824,screen number (1-5 for demo)":.49152:.@.VBC.860@$VEC:@vV.C.15,8,15:.15,e,e$:.15:." drive status :";e$:.@.V.C. ******************************@.V.C. **** sprite movement data ****@.V.C. ******************************@.V.C. **** screen 1 ****@#WlD. 8,254,14,3,13,33,208,0,15,254,13,16,192,1,255:. char anim = on@+W.D.-1@BW.D. 7,8,16,6,5,0,24,62,23,152,156,2,0,4,0,15,5,5,129@.W.D. 22,12,1,150,154,20,0,0,1,123,6,80,0,12,1,154,158,20,0,0,2,24,6,80,0,0@.WSE.-1@.WTE. 16,6,7,6,5,1,64,62,23,152,156,2,0,4,0,15,5,5,129@9X.E. 22,12,1,154,158,20,0,0,2,240,6,80,0,12,1,150,154,20,0,0,1,64,6,80,0,0@aXWE.-1@[XXE. 16,9,7,4,5,0,24,103@.X.E. 12,1,170,174,20,0,1,22,1,233,2,24,0@.X.E.-1@.X.E. 16,2,7,8,22,5,0,255,153,12,0,9,145,6,0,2@GY.E. 12,1,142,149,2,0,0,6,0,2,24,20,4,200,24,2,6,0,2,24,20,3,153,6,95,0,0@OY?F.-1@=Y@F. 16,4,5,0,90,197,12,1,158,169,15,0,1,255@eY.F.-1@TY.F. 16,4,5,0,220,197,12,1,158,169,16,0,1,255@.YGG. -1@.YHG. 16,6,22,7,4,5,0,0,235,23,191,195,3,0,144,0,15,20,20,129,12,0@JZRG. 6,0,5,12,1,188,191,16,0,1,6,0,1,1,162,24,12,6,50,1,24,8,3,170,24,12@iZ£G. 12,1,192,195,14,0,1,6,50,1,24,16,2,111,24,12,20,64,24,16@.Z&G. 12,1,188,191,14,0,1,6,50,1,24,16,1,120,24,10,7,2,1,160,24,16,1,245@.Z0G. 12,0,1,150,17,3,0,14,2,15,2,2,129,10,200,13,32,208,0,6,1,0@.ZdG. 13,32,208,6,11,0@.ZKG.-2@L[.G. ***** screen 2 ****@)[4H. 13,33,208,2,15,238,255@1[.H.-1@u[.H. 8,254,7,8,16,0,7,5,5,0,192,81@.[.H. 22,12,1,178,181,20,0,0,1,39,12,1,181,184,20,0,0,3,69@.[.H. 12,1,178,181,20,0,0,2,192,12,1,181,184,20,0,0,4,81,0@.[.H.-1@.[.H. 16,3,7,8,5,0,35,134@9£FI. 22,12,1,150,154,20,0,0,1,237,6,20,0,12,1,154,158,20,0,0,2,35,6,20,0,0@a£.I.-1@N£.I. 16,6,7,6,5,1,55,72,12,1,170,174,20,0,1@.£JI. 22,4,217,3,72,0@.£.I. -1@.£.I. 255@.£'J. -1@.£(J. 16,3,5,0,95,90,22,12,1,213,220,20,0,1,6,30,1,12,0,26,0,0,0@.£.J.-1@D].J. 16,0,7,4,5,0,192,166@b].J. 22,12,1,192,195,20,0,1,2,27,12,1,188,191,20,0,1,1,192,0@j].J.-1@.].J. 16,0,7,4,5,0,27,184,23,191,195,3,0,144,0,15,20,20,129@.].J. 22,12,1,188,191,20,0,1,1,192,12,1,192,195,20,0,1,2,27,0@.]sK.-2@.].K. ***** screen 3 *******@P.£L. 13,33,208,0,15,126,8,254,1,5,255@Y..L. -1@x..L. 16,9,7,3,5,0,60,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65@...L. 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0@...L. -1@...L. 16,9,7,3,5,0,95,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65@...L. 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0@..gM. -1@=.hM. 16,9,7,3,5,0,176,30,22,12,1,175,178,16,0,0,22,26,0,0,4,65@G.rM. 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0@P..M. -1@...M. 16,2,5,0,135,115,22,12,1,205,212,20,0,1,6,30,1,12,0,6,255,0,0@..ON. -1@A PN. 16,2,5,0,106,115,22,12,1,213,220,20,0,1,6,30,1,12,0,6,200,0,0@J SN. -1@s TN. 16,6,7,5,5,0,24,185,12,1,184,187,24,0,1,22,6,30,0,1,20,1,63,6,30,0@D .N. 2,1,2,24,0@M .N. -1@. .N. 12,0,255@. ;O. -2@. .O. ****** screen 4 *******@. DP. 13,33,208,0,15,14,8,8,1,11,13,0,159,0,255@. GP. -1@(!HP.16,14,7,6,5,0,253,140,22,12,1,133,136,15,0,0,2,166,12,1,136,139,15,0,0@Q!RP. 7,10,4,212,7,6,12,1,129,132,15,0,0,1,43,6,20,0,12,1,133,136,15,0,0@.!.P. 2,166,12,1,136,139,15,0,0,7,10,3,140,12,1,129,132,15,0,0@.!.P. 7,6,1,253,6,20,0,0,0@.!.P. -1@W".P. 16,6,7,6,22,5,0,215,180,10,3,12,1,129,132,15,0,0,1,11,6,20,0@n".P. 12,1,133,136,15,0,0,2,215,6,20,0,11,28,3,0,159,0@w"/Q. -1@."0Q.16,12,7,4,5,0,24,86,12,1,196,203,22,0,0,22,10,3,1,20,1,65,6,20,0,4,233@.":Q. 6,20,0,2,1,2,24,6,20,0,3,86,6,20,0,11,13,0,159,1,0@.".Q. -1@I#.Q. **** border colour bands ****@)#.Q. 10,250:. loop counter=250@S#.Q. 13,32,208,0,13,32,208,0,13,32,208,11,13,32,208,11:. poke border col@.#.Q. 13,32,208,12,13,32,208,12,13,32,208,15,13,32,208,15:. more colours@C$.Q. 13,32,208,1,13,32,208,1,13,32,208,15,13,32,208,15:. more colours@m$.Q. 13,32,208,12,13,32,208,12,13,32,208,11,13,32,208,11:. final colours@L$.Q. 11:. loop end-goto start@.$.Q. 22:. set new start@.$.Q. 13,32,208,6:. screen=blue@.$.Q. 13,32,208,0:. screen=black@A%.Q. 0:. go back to start (line 4540 -and repeat always!)@J%.Q. -1@T%.Q. 255@]%[R. -1@'%£R. 255@0%.R. -1@:%.R. 255@c%#S. -2@A%.S. ****** screen 5 *******@.%.S. 14,54,4,1,12,1,19,20,32,19,3,18,5,5,14,33,0@.%.S. 13,33,208,0,15,255,8,0,16,1,9,137,13,0,159,0,13,1,159,0,7,3,5,1,53,33@)&@T. 6,0,1,4,61,6,20,0,7,5,4,172,27,1,159,2,114,7,8,28,3,0,159,7,3,2,114@o&JT. 6,0,3,1,53,6,0,2,22,20,1,20,1,0@x&oT. -1@.&pT. 16,5,9,137,7,3,5,1,53,33,6,100,1,4,61,6,50,0,7,5,4,157,27,1,159@.&zT. 2,114,7,7,28,3,0,159,7,1,28,0,1,159,255@.&.T. -1@['.T. 16,3,9,137,7,3,5,1,53,33,6,200,1,4,61,6,50,0,7,5,4,142,27,1,159@i'.T. 2,114,7,6,28,3,0,159,7,2,28,0,1,159,255@r'WU. -1@.'XU. 16,5,9,137,7,3,5,1,53,33,6,50,2,4,61,6,50,0,7,5,4,127,27,1,159@.'"U. 10,2,2,114,1,53,4,177,3,127,11,7,3,28,0,1,159,255@.'.U. -1@%(.U.16,5,9,137,7,3,5,1,53,33,6,150,2,4,61,6,50,0,7,5,4,112,6,0,2,13,1,159,1@R(.U. 10,2,2,114,1,53,3,62,4,112,11,13,1,159,0,13,0,159,1,7,4,28,0,1,159,255@.(.U. -1@.(.U. 16,3,9,137,7,3,5,1,53,33,6,250,2,4,61,6,50,0,7,5,4,97,27,1,159,2,114@.(.U.7,6,28,4,0,159,7,5,28,0,1,159,255@.(cV. -1@a)dV. 16,5,9,137,7,3,5,1,53,33,6,100,3,4,61,6,50,0,7,5,4,82,27,1,159,2,114@H)nV.7,7,28,4,0,159,7,6,28,0,1,159,255@Q).V. -1@.).V. 16,1,9,137,7,3,5,1,53,33,6,200,3,4,61,6,50,0,7,5,4,67,27,1,159,2,114@.).V.7,8,28,4,0,159,7,7,28,0,1,159,255@.)KW. -2@.)O'. -9@@@
00000000 28 08 0a 00 8f 20 2a 2a 20 20 20 20 20 53 50 52 |(.... ** SPR|
00000010 49 54 45 20 43 4f 4e 54 52 4f 4c 4c 45 52 20 20 |ITE CONTROLLER |
00000020 20 20 20 20 2a 2a 00 4f 08 0b 00 8f 20 2a 2a 20 | **.O.... ** |
00000030 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 20 | FOR |
00000040 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 76 08 | **.v.|
00000050 0c 00 8f 20 2a 2a 20 20 20 20 43 4f 4d 4d 4f 44 |... ** COMMOD|
00000060 4f 52 45 20 44 49 53 4b 20 55 53 45 52 20 20 20 |ORE DISK USER |
00000070 20 20 2a 2a 00 9d 08 0d 00 8f 20 2a 2a 20 28 43 | **...... ** (C|
00000080 29 20 57 49 4c 4c 49 41 4d 20 43 48 52 49 53 54 |) WILLIAM CHRIST|
00000090 49 45 2c 20 31 39 38 39 20 2a 2a 00 a3 08 0f 00 |IE, 1989 **.....|
000000a0 3a 00 ba 08 10 00 97 35 33 32 38 30 2c 30 3a 97 |:......53280,0:.|
000000b0 35 33 32 38 31 2c 31 31 00 da 08 14 00 99 22 93 |53281,11......".|
000000c0 11 11 9e 22 a3 31 34 29 22 53 50 52 49 54 45 20 |...".14)"SPRITE |
000000d0 44 52 49 56 45 52 11 22 00 07 09 15 00 99 22 20 |DRIVER."......" |
000000e0 20 20 42 59 20 20 57 49 4c 4c 49 41 4d 20 41 20 | BY WILLIAM A |
000000f0 43 48 52 49 53 54 49 45 2c 20 41 50 52 49 4c 20 |CHRISTIE, APRIL |
00000100 31 39 38 39 22 00 2e 09 16 00 85 22 05 11 11 20 |1989"......"... |
00000110 4c 4f 41 44 20 50 52 4f 47 52 41 4d 53 2f 44 41 |LOAD PROGRAMS/DA|
00000120 54 41 20 28 59 2f 4e 29 22 3b 41 24 00 3f 09 17 |TA (Y/N)";A$.?..|
00000130 00 8b 41 24 b2 22 4e 22 a7 20 31 30 30 00 4f 09 |..A$."N". 100.O.|
00000140 18 00 8b 41 24 b3 b1 22 59 22 a7 32 32 00 72 09 |...A$.."Y".22.r.|
00000150 19 00 85 22 11 20 4c 4f 41 44 20 53 50 44 52 49 |...". LOAD SPDRI|
00000160 56 45 52 2e 4d 43 20 28 59 2f 4e 29 22 3b 41 24 |VER.MC (Y/N)";A$|
00000170 00 81 09 1a 00 8b 41 24 b2 22 4e 22 a7 32 39 00 |......A$."N".29.|
00000180 91 09 1b 00 8b 41 24 b3 b1 22 59 22 a7 32 35 00 |.....A$.."Y".25.|
00000190 aa 09 1c 00 4e 24 b2 22 53 50 44 52 49 56 45 52 |....N$."SPDRIVER|
000001a0 2e 4d 43 22 3a 8d 36 30 00 cc 09 1d 00 85 22 20 |.MC":.60......" |
000001b0 4c 4f 41 44 20 44 45 43 52 55 4e 43 48 2e 4d 43 |LOAD DECRUNCH.MC|
000001c0 20 28 59 2f 4e 29 22 3b 41 24 00 db 09 1e 00 8b | (Y/N)";A$......|
000001d0 41 24 b2 22 4e 22 a7 33 33 00 eb 09 1f 00 8b 41 |A$."N".33......A|
000001e0 24 b3 b1 22 59 22 a7 32 39 00 04 0a 20 00 4e 24 |$.."Y".29... .N$|
000001f0 b2 22 44 45 43 52 55 4e 43 48 2e 4d 43 22 3a 8d |."DECRUNCH.MC":.|
00000200 36 30 00 26 0a 21 00 85 22 20 4c 4f 41 44 20 53 |60.&.!.." LOAD S|
00000210 50 52 49 54 45 53 20 20 20 20 20 28 59 2f 4e 29 |PRITES (Y/N)|
00000220 22 3b 41 24 00 35 0a 22 00 8b 41 24 b2 22 4e 22 |";A$.5."..A$."N"|
00000230 a7 33 37 00 45 0a 23 00 8b 41 24 b3 b1 22 59 22 |.37.E.#..A$.."Y"|
00000240 a7 33 33 00 5a 0a 24 00 4e 24 b2 22 53 50 52 49 |.33.Z.$.N$."SPRI|
00000250 54 45 53 22 3a 8d 36 30 00 7c 0a 25 00 85 22 20 |TES":.60.|.%.." |
00000260 4c 4f 41 44 20 53 43 52 45 45 4e 20 35 20 20 20 |LOAD SCREEN 5 |
00000270 20 28 59 2f 4e 29 22 3b 41 24 00 8b 0a 26 00 8b | (Y/N)";A$...&..|
00000280 41 24 b2 22 4e 22 a7 34 31 00 9b 0a 27 00 8b 41 |A$."N".41...'..A|
00000290 24 b3 b1 22 59 22 a7 33 37 00 b1 0a 28 00 4e 24 |$.."Y".37...(.N$|
000002a0 b2 22 53 43 52 45 45 4e 20 35 22 3a 8d 36 30 00 |."SCREEN 5":.60.|
000002b0 d3 0a 29 00 85 22 20 4c 4f 41 44 20 43 48 41 52 |..).." LOAD CHAR|
000002c0 53 20 20 20 20 20 20 20 28 59 2f 4e 29 22 3b 41 |S (Y/N)";A|
000002d0 24 00 e2 0a 2a 00 8b 41 24 b2 22 4e 22 a7 34 36 |$...*..A$."N".46|
000002e0 00 f2 0a 2b 00 8b 41 24 b3 b1 22 59 22 a7 34 31 |...+..A$.."Y".41|
000002f0 00 0c 0b 2c 00 9e 35 32 38 35 38 3a 4e 24 b2 22 |...,..52858:N$."|
00000300 43 48 41 52 53 22 3a 8d 36 30 00 1a 0b 2e 00 8b |CHARS":.60......|
00000310 46 b2 30 a7 20 31 30 30 00 45 0b 2f 00 85 22 11 |F.0. 100.E./..".|
00000320 20 52 45 2d 4c 4f 41 44 20 4f 52 20 45 58 49 54 | RE-LOAD OR EXIT|
00000330 20 50 52 4f 47 52 41 4d 20 28 52 2f 45 29 20 22 | PROGRAM (R/E) "|
00000340 3b 41 24 00 54 0b 30 00 8b 41 24 b2 22 45 22 a7 |;A$.T.0..A$."E".|
00000350 20 80 00 65 0b 31 00 8b 41 24 b3 b1 22 52 22 a7 | ..e.1..A$.."R".|
00000360 20 34 37 00 71 0b 33 00 46 b2 30 3a 89 32 35 00 | 47.q.3.F.0:.25.|
00000370 9f 0b 3c 00 97 31 34 37 2c 30 3a 9e 35 37 38 31 |..<..147,0:.5781|
00000380 32 4e 24 2c 38 2c 31 3a 9e 36 32 36 33 31 3a 8d |2N$,8,1:.62631:.|
00000390 39 36 30 3a 8b 45 b2 36 32 a7 46 b2 31 00 a5 0b |960:.E.62.F.1...|
000003a0 3d 00 8e 00 b0 0b 64 00 9c 3a 99 22 93 22 00 db |=.....d..:."."..|
000003b0 0b 78 00 85 22 20 11 45 4e 54 45 52 20 50 41 54 |.x.." .ENTER PAT|
000003c0 54 45 52 4e 20 44 41 54 41 20 49 4e 54 4f 20 4d |TERN DATA INTO M|
000003d0 45 4d 4f 52 59 22 3b 41 24 00 0d 0c 82 00 8b 41 |EMORY";A$......A|
000003e0 24 b2 22 59 22 a7 20 99 22 20 50 4f 4b 49 4e 47 |$."Y". ." POKING|
000003f0 20 44 41 54 41 20 2d 20 50 4c 45 41 53 45 20 57 | DATA - PLEASE W|
00000400 41 49 54 2e 20 22 3a 89 31 36 30 00 3b 0c 8c 00 |AIT. ":.160.;...|
00000410 8b 41 24 b3 b1 22 4e 22 a7 20 99 22 50 4c 45 41 |.A$.."N". ."PLEA|
00000420 53 45 20 45 4e 54 45 52 20 27 59 27 20 4f 52 20 |SE ENTER 'Y' OR |
00000430 27 4e 27 22 3a 89 31 32 30 00 44 0c 96 00 89 38 |'N'":.120.D....8|
00000440 32 30 00 4a 0c 9f 00 3a 00 96 0c a0 00 42 41 b2 |20.J...:.....BA.|
00000450 34 30 39 36 ac 36 3a 42 53 b2 42 41 3a 42 45 b2 |4096.6:BS.BA:BE.|
00000460 34 30 39 36 ac 37 3a 53 4e b2 31 3a 8f 20 42 41 |4096.7:SN.1:. BA|
00000470 20 41 4e 44 20 42 45 3d 50 41 54 54 45 52 4e 20 | AND BE=PATTERN |
00000480 4d 45 4d 4f 52 59 20 53 54 41 52 54 20 41 4e 44 |MEMORY START AND|
00000490 20 45 4e 44 00 a3 0c aa 00 4c b2 31 3a 53 43 b2 | END.....L.1:SC.|
000004a0 31 00 b5 0c b4 00 49 31 b2 42 41 3a 42 41 b2 42 |1.....I1.BA:BA.B|
000004b0 41 aa 32 00 c7 0c be 00 49 32 b2 42 41 3a 42 41 |A.2.....I2.BA:BA|
000004c0 b2 42 41 aa 32 00 d7 0c c8 00 87 41 3a 8b 41 b3 |.BA.2......A:.A.|
000004d0 30 a7 32 33 30 00 f5 0c d2 00 8b 42 41 b3 42 45 |0.230......BA.BE|
000004e0 a7 97 42 41 2c 41 3a 42 41 b2 42 41 aa 31 3a 89 |..BA,A:BA.BA.1:.|
000004f0 32 30 30 00 2d 0d dc 00 99 22 4f 55 54 20 4f 46 |200.-...."OUT OF|
00000500 20 53 50 52 49 54 45 20 44 41 54 41 20 4d 45 4d | SPRITE DATA MEM|
00000510 4f 52 59 20 41 54 20 4c 49 4e 45 22 4c 3a 99 22 |ORY AT LINE"L:."|
00000520 53 43 52 45 45 4e 22 53 43 3a 80 00 3c 0d e6 00 |SCREEN"SC:..<...|
00000530 8b 41 b3 b1 ab 31 a7 32 36 30 00 64 0d f0 00 8d |.A...1.260.d....|
00000540 33 33 30 3a 97 49 32 2c 4c 42 3a 97 49 32 aa 31 |330:.I2,LB:.I2.1|
00000550 2c 48 42 3a 4c b2 4c aa 31 3a 8b 4c b3 39 89 31 |,HB:L.L.1:.L.9.1|
00000560 39 30 00 91 0d fa 00 99 22 49 4e 43 4f 52 52 45 |90......"INCORRE|
00000570 43 54 20 27 2d 32 27 20 41 54 20 4c 49 4e 45 22 |CT '-2' AT LINE"|
00000580 4c ab 31 22 53 43 52 45 45 4e 22 53 43 3a 80 00 |L.1"SCREEN"SC:..|
00000590 a0 0d 04 01 8b 41 b3 b1 ab 32 a7 32 39 30 00 d0 |.....A...2.290..|
000005a0 0d 0e 01 8b 4c b3 b1 38 a7 20 99 22 4d 49 53 53 |....L..8. ."MISS|
000005b0 49 4e 47 20 44 41 54 41 20 41 54 20 4c 49 4e 45 |ING DATA AT LINE|
000005c0 22 4c 22 53 43 52 45 45 4e 22 53 43 3a 80 00 0a |"L"SCREEN"SC:...|
000005d0 0e 18 01 8d 33 33 30 3a 97 49 31 2c 4c 42 3a 97 |....330:.I1,LB:.|
000005e0 49 32 2c 4c 42 3a 97 49 31 aa 31 2c 48 42 3a 97 |I2,LB:.I1.1,HB:.|
000005f0 49 32 aa 31 2c 48 42 3a 4c b2 31 3a 53 43 b2 53 |I2.1,HB:L.1:SC.S|
00000600 43 aa 31 3a 89 31 38 30 00 48 0e 22 01 8b 41 b3 |C.1:.180.H."..A.|
00000610 b1 ab 39 a7 99 22 49 4e 56 41 4c 49 44 20 45 4e |..9.."INVALID EN|
00000620 44 2d 4f 46 2d 44 41 54 41 20 46 4c 41 47 20 41 |D-OF-DATA FLAG A|
00000630 54 20 4c 49 4e 45 22 4c 3a 99 22 53 43 52 45 45 |T LINE"L:."SCREE|
00000640 4e 22 53 43 3a 80 00 77 0e 27 01 8b 4c b3 b1 31 |N"SC:..w.'..L..1|
00000650 a7 99 22 4d 49 53 53 49 4e 47 20 27 2d 32 27 20 |.."MISSING '-2' |
00000660 41 49 20 4c 49 4e 45 22 4c 22 53 43 52 45 45 4e |AI LINE"L"SCREEN|
00000670 22 53 43 3a 80 00 98 0e 2c 01 42 41 b2 42 41 ab |"SC:....,.BA.BA.|
00000680 34 3a 99 22 11 44 41 54 41 20 4e 4f 57 20 52 45 |4:.".DATA NOW RE|
00000690 41 44 20 49 4e 22 00 b1 0e 36 01 99 22 42 59 54 |AD IN"...6.."BYT|
000006a0 45 53 20 55 53 45 44 20 3d 22 42 41 ab 42 53 00 |ES USED ="BA.BS.|
000006b0 cf 0e 40 01 99 22 42 59 54 45 53 20 46 52 45 45 |..@.."BYTES FREE|
000006c0 20 3d 22 42 45 ab 42 41 3a 89 37 30 30 00 f1 0e | ="BE.BA:.700...|
000006d0 4a 01 48 42 b2 b5 28 42 41 ad 32 35 36 29 3a 4c |J.HB..(BA.256):L|
000006e0 42 b2 42 41 ab 28 48 42 ac 32 35 36 29 3a 8e 00 |B.BA.(HB.256):..|
000006f0 14 0f 5e 01 8f 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..^.. **********|
00000700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000710 2a 2a 00 37 0f 68 01 8f 20 2a 2a 20 53 50 52 49 |**.7.h.. ** SPRI|
00000720 54 45 20 50 41 54 54 45 52 4e 20 53 45 54 2d 55 |TE PATTERN SET-U|
00000730 50 20 2a 2a 2a 00 5a 0f 72 01 8f 20 2a 2a 2a 2a |P ***.Z.r.. ****|
00000740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000750 2a 2a 2a 2a 2a 2a 2a 2a 00 80 0f 77 01 85 22 93 |********...w..".|
00000760 05 11 20 55 53 45 20 57 49 54 48 20 44 45 43 52 |.. USE WITH DECR|
00000770 55 4e 43 48 20 28 59 2f 4e 29 22 3b 5a 24 00 9a |UNCH (Y/N)";Z$..|
00000780 0f 78 01 8b 5a 24 b2 22 59 22 a7 44 43 b2 35 32 |.x..Z$."Y".DC.52|
00000790 34 38 30 3a 89 33 39 30 00 b7 0f 79 01 8b 5a 24 |480:.390...y..Z$|
000007a0 b2 22 4e 22 a7 44 43 b2 31 33 38 3a 99 22 93 22 |."N".DC.138:."."|
000007b0 3a 89 33 39 30 00 c0 0f 7a 01 89 33 37 35 00 c6 |:.390...z..375..|
000007c0 0f 7c 01 3a 00 f4 0f 86 01 97 32 30 34 30 2c 31 |.|.:......2040,1|
000007d0 32 38 3a 97 38 32 30 2c 31 3a 97 38 32 31 2c 30 |28:.820,1:.821,0|
000007e0 3a 97 31 30 32 32 2c 31 3a 97 35 33 32 37 32 2c |:.1022,1:.53272,|
000007f0 33 31 00 21 10 90 01 56 b2 35 33 32 34 38 3a 97 |31.!...V.53248:.|
00000800 56 aa 32 31 2c 32 35 35 3a 97 56 aa 33 39 2c 31 |V.21,255:.V.39,1|
00000810 3a 97 56 2c 31 30 30 3a 97 56 aa 31 2c 31 30 00 |:.V,100:.V.1,10.|
00000820 37 10 9a 01 9e 44 43 3a 8b 20 46 33 b2 31 a7 9e |7....DC:. F3.1..|
00000830 34 39 31 35 32 00 44 10 a4 01 50 b2 c2 28 31 39 |49152.D...P..(19|
00000840 37 29 00 53 10 ae 01 8b 50 b3 b1 34 34 a7 34 36 |7).S....P..44.46|
00000850 30 00 70 10 b8 01 8b c2 28 56 29 b3 32 35 35 a7 |0.p.....(V).255.|
00000860 97 56 2c c2 28 56 29 aa 31 3a 89 34 32 30 00 8e |.V,.(V).1:.420..|
00000870 10 c2 01 97 56 2c 30 3a 97 56 aa 31 36 2c c2 28 |....V,0:.V.16,.(|
00000880 56 aa 31 36 29 b0 31 3a 89 34 32 30 00 9d 10 cc |V.16).1:.420....|
00000890 01 8b 50 b3 b1 34 37 a7 34 39 30 00 b8 10 d6 01 |..P..47.490.....|
000008a0 8b c2 28 56 29 b1 30 a7 97 56 2c c2 28 56 29 ab |..(V).0..V,.(V).|
000008b0 31 3a 89 34 32 30 00 da 10 e0 01 97 56 2c 32 35 |1:.420......V,25|
000008c0 35 3a 97 56 aa 31 36 2c c2 28 56 aa 31 36 29 af |5:.V.16,.(V.16).|
000008d0 32 35 34 3a 89 34 32 30 00 fb 10 ea 01 8b 50 b2 |254:.420......P.|
000008e0 31 30 a7 97 56 aa 31 2c c2 28 56 aa 31 29 ab 31 |10..V.1,.(V.1).1|
000008f0 af 32 35 35 3a 89 34 32 30 00 1c 11 f4 01 8b 50 |.255:.420......P|
00000900 b2 31 32 a7 97 56 aa 31 2c c2 28 56 aa 31 29 aa |.12..V.1,.(V.1).|
00000910 31 af 32 35 35 3a 89 34 32 30 00 3e 11 fe 01 8b |1.255:.420.>....|
00000920 50 b2 35 39 a7 97 56 aa 31 2c c2 28 56 aa 31 29 |P.59..V.1,.(V.1)|
00000930 ab 31 3a 89 34 34 30 3a 8f 20 2b 31 00 5a 11 08 |.1:.440:. +1.Z..|
00000940 02 8b 50 b2 39 a7 97 56 aa 31 2c c2 28 56 aa 31 |..P.9..V.1,.(V.1|
00000950 29 aa 31 3a 89 34 34 30 00 7c 11 12 02 8b 50 b2 |).1:.440.|....P.|
00000960 36 32 a7 97 56 aa 31 2c c2 28 56 aa 31 29 aa 31 |62..V.1,.(V.1).1|
00000970 3a 89 34 37 30 3a 8f 20 2d 31 00 99 11 1c 02 8b |:.470:. -1......|
00000980 50 b2 35 36 a7 97 56 aa 31 2c c2 28 56 aa 31 29 |P.56..V.1,.(V.1)|
00000990 ab 31 3a 89 34 37 30 00 a8 11 26 02 8b 50 b3 b1 |.1:.470...&..P..|
000009a0 36 30 a7 35 39 30 00 d6 11 30 02 99 22 13 20 20 |60.590...0..". |
000009b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000009d0 20 20 20 22 00 0c 12 3a 02 99 22 13 20 58 22 c2 | "...:..". X".|
000009e0 28 56 29 22 59 22 c2 28 56 aa 31 29 3b 22 50 22 |(V)"Y".(V.1);"P"|
000009f0 c2 28 32 30 34 30 29 3b 22 53 50 43 4f 4c 22 c2 |.(2040);"SPCOL".|
00000a00 28 56 aa 33 39 29 af 31 35 3b 00 34 12 44 02 99 |(V.39).15;.4.D..|
00000a10 22 43 31 22 c2 28 56 aa 33 37 29 af 31 35 3b 22 |"C1".(V.37).15;"|
00000a20 43 32 22 c2 28 56 aa 33 38 29 af 31 35 3a 89 34 |C2".(V.38).15:.4|
00000a30 32 30 00 57 12 4e 02 8b 50 b2 34 30 a7 97 32 30 |20.W.N..P.40..20|
00000a40 34 30 2c c2 28 32 30 34 30 29 aa 31 af 32 35 35 |40,.(2040).1.255|
00000a50 3a 89 34 32 30 00 82 12 58 02 8b 50 b2 34 af c2 |:.420...X..P.4..|
00000a60 28 38 32 30 29 b3 32 35 35 a7 97 38 32 30 2c c2 |(820).255..820,.|
00000a70 28 38 32 30 29 aa 31 3a 9e 44 43 3a 89 36 39 30 |(820).1:.DC:.690|
00000a80 00 ab 12 62 02 8b 50 b2 35 af c2 28 38 32 30 29 |...b..P.5..(820)|
00000a90 b1 31 a7 97 38 32 30 2c c2 28 38 32 30 29 ab 31 |.1..820,.(820).1|
00000aa0 3a 9e 44 43 3a 89 36 39 30 00 cf 12 6c 02 8b 50 |:.DC:.690...l..P|
00000ab0 b2 36 a7 97 35 33 32 38 35 2c c2 28 35 33 32 38 |.6..53285,.(5328|
00000ac0 35 29 aa 31 af 20 31 35 3a 89 34 32 30 00 f3 12 |5).1. 15:.420...|
00000ad0 76 02 8b 50 b2 33 a7 97 35 33 32 38 36 2c c2 28 |v..P.3..53286,.(|
00000ae0 35 33 32 38 36 29 aa 31 af 20 31 35 3a 89 34 32 |53286).1. 15:.42|
00000af0 30 00 16 13 80 02 8b 50 b2 34 33 a7 97 32 30 34 |0......P.43..204|
00000b00 30 2c c2 28 32 30 34 30 29 ab 31 af 32 35 35 3a |0,.(2040).1.255:|
00000b10 89 34 32 30 00 3a 13 8a 02 8b 50 b2 32 30 a7 97 |.420.:....P.20..|
00000b20 56 aa 33 39 2c 28 c2 28 56 aa 33 39 29 aa 31 29 |V.39,(.(V.39).1)|
00000b30 af 31 35 3a 89 34 32 30 00 6a 13 94 02 8b 50 b2 |.15:.420.j....P.|
00000b40 33 36 af 28 c2 28 56 aa 32 38 29 af 31 29 b2 30 |36.(.(V.28).1).0|
00000b50 20 a7 97 56 aa 32 38 2c 28 c2 28 56 aa 32 38 29 | ..V.28,(.(V.28)|
00000b60 b0 31 29 3a 89 34 32 30 00 8d 13 9e 02 8b 50 b2 |.1):.420......P.|
00000b70 33 36 a7 97 56 aa 32 38 2c 28 c2 28 56 aa 32 38 |36..V.28,(.(V.28|
00000b80 29 af 32 35 34 29 3a 89 34 32 30 00 b2 13 a3 02 |).254):.420.....|
00000b90 8b 50 b2 31 37 af c2 28 35 33 32 37 32 29 b2 33 |.P.17..(53272).3|
00000ba0 31 a7 97 35 33 32 37 32 2c 32 31 3a 89 36 38 30 |1..53272,21:.680|
00000bb0 00 c6 13 a4 02 8b 50 b2 31 37 a7 97 35 33 32 37 |......P.17..5327|
00000bc0 32 2c 33 31 00 e2 13 a6 02 8b 50 b2 33 33 a7 97 |2,31......P.33..|
00000bd0 36 34 36 2c 28 c2 28 36 34 36 29 aa 31 29 af 37 |646,(.(646).1).7|
00000be0 00 eb 13 a8 02 89 34 32 30 00 00 14 b2 02 97 38 |......420......8|
00000bf0 32 34 2c c2 28 38 32 30 29 3a 89 34 32 30 00 24 |24,.(820):.420.$|
00000c00 14 bc 02 85 22 20 11 53 41 56 45 20 50 41 54 54 |...." .SAVE PATT|
00000c10 45 52 4e 20 44 41 54 41 20 28 59 2f 4e 29 22 3b |ERN DATA (Y/N)";|
00000c20 41 24 00 37 14 c6 02 8b 41 24 b2 22 4e 22 a7 99 |A$.7....A$."N"..|
00000c30 3a 89 38 32 30 00 6c 14 d0 02 8b 41 24 b3 b1 22 |:.820.l....A$.."|
00000c40 59 22 a7 99 22 50 4c 45 41 53 45 20 45 4e 54 45 |Y".."PLEASE ENTE|
00000c50 52 20 45 49 54 48 45 52 20 27 59 27 20 4f 52 20 |R EITHER 'Y' OR |
00000c60 27 4e 27 11 22 3a 89 37 30 30 00 86 14 da 02 85 |'N'.":.700......|
00000c70 22 20 45 4e 54 45 52 20 46 49 4c 45 4e 41 4d 45 |" ENTER FILENAME|
00000c80 22 3b 4e 24 00 9d 14 0c 03 9e 35 37 38 31 32 4e |";N$......57812N|
00000c90 24 aa 22 2e 50 44 22 2c 38 2c 31 00 be 14 16 03 |$.".PD",8,1.....|
00000ca0 42 41 b2 42 41 aa 31 3a 8d 33 33 30 3a 97 31 37 |BA.BA.1:.330:.17|
00000cb0 34 2c 4c 42 3a 97 31 37 35 2c 48 42 00 e4 14 20 |4,LB:.175,HB... |
00000cc0 03 42 41 b2 42 53 3a 8d 33 33 30 3a 97 31 39 33 |.BA.BS:.330:.193|
00000cd0 2c 4c 42 3a 97 31 39 34 2c 48 42 3a 9e 36 32 39 |,LB:.194,HB:.629|
00000ce0 35 37 00 ea 14 33 03 3a 00 13 15 34 03 85 22 20 |57...3.:...4.." |
00000cf0 52 55 4e 20 50 41 54 54 45 52 4e 20 43 4f 4e 53 |RUN PATTERN CONS|
00000d00 54 52 55 43 54 4f 52 20 28 59 2f 4e 29 22 3b 41 |TRUCTOR (Y/N)";A|
00000d10 24 00 24 15 35 03 8b 41 24 b2 22 59 22 a7 8a 33 |$.$.5..A$."Y"..3|
00000d20 37 35 00 34 15 36 03 8b 41 24 b2 22 4e 22 a7 38 |75.4.6..A$."N".8|
00000d30 32 35 00 3d 15 37 03 89 38 32 30 00 49 15 39 03 |25.=.7..820.I.9.|
00000d40 8b 46 46 b2 31 a7 80 00 70 15 3c 03 85 22 20 52 |.FF.1...p.<.." R|
00000d50 55 4e 20 53 50 52 49 54 45 20 43 4f 4e 54 52 4f |UN SPRITE CONTRO|
00000d60 4c 4c 45 52 20 28 59 2f 4e 29 22 3b 41 24 00 86 |LLER (Y/N)";A$..|
00000d70 15 3e 03 8b 41 24 b2 22 59 22 a7 46 33 b2 31 3a |.>..A$."Y".F3.1:|
00000d80 89 38 36 30 00 94 15 48 03 8b 41 24 b2 22 4e 22 |.860...H..A$."N"|
00000d90 a7 80 00 9d 15 52 03 89 38 32 30 00 bc 15 5c 03 |.....R..820...\.|
00000da0 85 22 20 57 49 54 48 20 44 45 43 52 55 4e 43 48 |." WITH DECRUNCH|
00000db0 20 28 59 2f 4e 29 22 3b 41 24 00 d6 15 5e 03 8b | (Y/N)";A$...^..|
00000dc0 41 24 b2 22 59 22 a7 44 43 b2 35 32 34 38 30 3a |A$."Y".DC.52480:|
00000dd0 89 33 39 30 00 15 16 60 03 8b 41 24 b2 22 4e 22 |.390...`..A$."N"|
00000de0 a7 99 22 11 11 50 4f 4b 45 38 32 34 2c 53 43 52 |.."..POKE824,SCR|
00000df0 45 45 4e 20 4e 55 4d 42 45 52 20 28 31 2d 35 20 |EEN NUMBER (1-5 |
00000e00 46 4f 52 20 44 45 4d 4f 29 22 3a 9e 34 39 31 35 |FOR DEMO)":.4915|
00000e10 32 3a 80 00 1e 16 62 03 89 38 36 30 00 24 16 65 |2:....b..860.$.e|
00000e20 03 3a 00 56 16 c0 03 9f 31 35 2c 38 2c 31 35 3a |.:.V....15,8,15:|
00000e30 84 31 35 2c 45 2c 45 24 3a a0 31 35 3a 99 22 20 |.15,E,E$:.15:." |
00000e40 44 52 49 56 45 20 53 54 41 54 55 53 20 3a 22 3b |DRIVE STATUS :";|
00000e50 45 24 3a 8e 00 7b 16 ca 03 8f 20 2a 2a 2a 2a 2a |E$:..{.... *****|
00000e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000e70 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 a0 16 d4 03 8f 20 |*********...... |
00000e80 2a 2a 2a 2a 20 53 50 52 49 54 45 20 4d 4f 56 45 |**** SPRITE MOVE|
00000e90 4d 45 4e 54 20 44 41 54 41 20 2a 2a 2a 2a 00 c5 |MENT DATA ****..|
00000ea0 16 de 03 8f 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.... ***********|
00000eb0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000ec0 2a 2a 2a 00 de 16 e8 03 8f 20 2a 2a 2a 2a 20 53 |***...... **** S|
00000ed0 43 52 45 45 4e 20 31 20 2a 2a 2a 2a 00 23 17 4c |CREEN 1 ****.#.L|
00000ee0 04 83 20 38 2c 32 35 34 2c 31 34 2c 33 2c 31 33 |.. 8,254,14,3,13|
00000ef0 2c 33 33 2c 32 30 38 2c 30 2c 31 35 2c 32 35 34 |,33,208,0,15,254|
00000f00 2c 31 33 2c 31 36 2c 31 39 32 2c 31 2c 32 35 35 |,13,16,192,1,255|
00000f10 3a 8f 20 43 48 41 52 20 41 4e 49 4d 20 3d 20 4f |:. CHAR ANIM = O|
00000f20 4e 00 2b 17 af 04 83 2d 31 00 62 17 b0 04 83 20 |N.+....-1.b.... |
00000f30 37 2c 38 2c 31 36 2c 36 2c 35 2c 30 2c 32 34 2c |7,8,16,6,5,0,24,|
00000f40 36 32 2c 32 33 2c 31 35 32 2c 31 35 36 2c 32 2c |62,23,152,156,2,|
00000f50 30 2c 34 2c 30 2c 31 35 2c 35 2c 35 2c 31 32 39 |0,4,0,15,5,5,129|
00000f60 00 ae 17 ba 04 83 20 32 32 2c 31 32 2c 31 2c 31 |...... 22,12,1,1|
00000f70 35 30 2c 31 35 34 2c 32 30 2c 30 2c 30 2c 31 2c |50,154,20,0,0,1,|
00000f80 31 32 33 2c 36 2c 38 30 2c 30 2c 31 32 2c 31 2c |123,6,80,0,12,1,|
00000f90 31 35 34 2c 31 35 38 2c 32 30 2c 30 2c 30 2c 32 |154,158,20,0,0,2|
00000fa0 2c 32 34 2c 36 2c 38 30 2c 30 2c 30 00 b6 17 13 |,24,6,80,0,0....|
00000fb0 05 83 2d 31 00 ed 17 14 05 83 20 31 36 2c 36 2c |..-1...... 16,6,|
00000fc0 37 2c 36 2c 35 2c 31 2c 36 34 2c 36 32 2c 32 33 |7,6,5,1,64,62,23|
00000fd0 2c 31 35 32 2c 31 35 36 2c 32 2c 30 2c 34 2c 30 |,152,156,2,0,4,0|
00000fe0 2c 31 35 2c 35 2c 35 2c 31 32 39 00 39 18 1e 05 |,15,5,5,129.9...|
00000ff0 83 20 32 32 2c 31 32 2c 31 2c 31 35 34 2c 31 35 |. 22,12,1,154,15|
00001000 38 2c 32 30 2c 30 2c 30 2c 32 2c 32 34 30 2c 36 |8,20,0,0,2,240,6|
00001010 2c 38 30 2c 30 2c 31 32 2c 31 2c 31 35 30 2c 31 |,80,0,12,1,150,1|
00001020 35 34 2c 32 30 2c 30 2c 30 2c 31 2c 36 34 2c 36 |54,20,0,0,1,64,6|
00001030 2c 38 30 2c 30 2c 30 00 41 18 77 05 83 2d 31 00 |,80,0,0.A.w..-1.|
00001040 5b 18 78 05 83 20 31 36 2c 39 2c 37 2c 34 2c 35 |[.x.. 16,9,7,4,5|
00001050 2c 30 2c 32 34 2c 31 30 33 00 85 18 82 05 83 20 |,0,24,103...... |
00001060 31 32 2c 31 2c 31 37 30 2c 31 37 34 2c 32 30 2c |12,1,170,174,20,|
00001070 30 2c 31 2c 32 32 2c 31 2c 32 33 33 2c 32 2c 32 |0,1,22,1,233,2,2|
00001080 34 2c 30 00 8d 18 db 05 83 2d 31 00 bc 18 dc 05 |4,0......-1.....|
00001090 83 20 31 36 2c 32 2c 37 2c 38 2c 32 32 2c 35 2c |. 16,2,7,8,22,5,|
000010a0 30 2c 32 35 35 2c 31 35 33 2c 31 32 2c 30 2c 39 |0,255,153,12,0,9|
000010b0 2c 31 34 35 2c 36 2c 30 2c 32 00 07 19 e6 05 83 |,145,6,0,2......|
000010c0 20 31 32 2c 31 2c 31 34 32 2c 31 34 39 2c 32 2c | 12,1,142,149,2,|
000010d0 30 2c 30 2c 36 2c 30 2c 32 2c 32 34 2c 32 30 2c |0,0,6,0,2,24,20,|
000010e0 34 2c 32 30 30 2c 32 34 2c 32 2c 36 2c 30 2c 32 |4,200,24,2,6,0,2|
000010f0 2c 32 34 2c 32 30 2c 33 2c 31 35 33 2c 36 2c 39 |,24,20,3,153,6,9|
00001100 35 2c 30 2c 30 00 0f 19 3f 06 83 2d 31 00 3d 19 |5,0,0...?..-1.=.|
00001110 40 06 83 20 31 36 2c 34 2c 35 2c 30 2c 39 30 2c |@.. 16,4,5,0,90,|
00001120 31 39 37 2c 31 32 2c 31 2c 31 35 38 2c 31 36 39 |197,12,1,158,169|
00001130 2c 31 35 2c 30 2c 31 2c 32 35 35 00 45 19 a3 06 |,15,0,1,255.E...|
00001140 83 2d 31 00 74 19 a4 06 83 20 31 36 2c 34 2c 35 |.-1.t.... 16,4,5|
00001150 2c 30 2c 32 32 30 2c 31 39 37 2c 31 32 2c 31 2c |,0,220,197,12,1,|
00001160 31 35 38 2c 31 36 39 2c 31 36 2c 30 2c 31 2c 32 |158,169,16,0,1,2|
00001170 35 35 00 7d 19 07 07 83 20 2d 31 00 c0 19 08 07 |55.}.... -1.....|
00001180 83 20 31 36 2c 36 2c 32 32 2c 37 2c 34 2c 35 2c |. 16,6,22,7,4,5,|
00001190 30 2c 30 2c 32 33 35 2c 32 33 2c 31 39 31 2c 31 |0,0,235,23,191,1|
000011a0 39 35 2c 33 2c 30 2c 31 34 34 2c 30 2c 31 35 2c |95,3,0,144,0,15,|
000011b0 32 30 2c 32 30 2c 31 32 39 2c 31 32 2c 30 00 0a |20,20,129,12,0..|
000011c0 1a 12 07 83 20 36 2c 30 2c 35 2c 31 32 2c 31 2c |.... 6,0,5,12,1,|
000011d0 31 38 38 2c 31 39 31 2c 31 36 2c 30 2c 31 2c 36 |188,191,16,0,1,6|
000011e0 2c 30 2c 31 2c 31 2c 31 36 32 2c 32 34 2c 31 32 |,0,1,1,162,24,12|
000011f0 2c 36 2c 35 30 2c 31 2c 32 34 2c 38 2c 33 2c 31 |,6,50,1,24,8,3,1|
00001200 37 30 2c 32 34 2c 31 32 00 49 1a 1c 07 83 20 31 |70,24,12.I.... 1|
00001210 32 2c 31 2c 31 39 32 2c 31 39 35 2c 31 34 2c 30 |2,1,192,195,14,0|
00001220 2c 31 2c 36 2c 35 30 2c 31 2c 32 34 2c 31 36 2c |,1,6,50,1,24,16,|
00001230 32 2c 31 31 31 2c 32 34 2c 31 32 2c 32 30 2c 36 |2,111,24,12,20,6|
00001240 34 2c 32 34 2c 31 36 00 92 1a 26 07 83 20 31 32 |4,24,16...&.. 12|
00001250 2c 31 2c 31 38 38 2c 31 39 31 2c 31 34 2c 30 2c |,1,188,191,14,0,|
00001260 31 2c 36 2c 35 30 2c 31 2c 32 34 2c 31 36 2c 31 |1,6,50,1,24,16,1|
00001270 2c 31 32 30 2c 32 34 2c 31 30 2c 37 2c 32 2c 31 |,120,24,10,7,2,1|
00001280 2c 31 36 30 2c 32 34 2c 31 36 2c 31 2c 32 34 35 |,160,24,16,1,245|
00001290 00 d3 1a 30 07 83 20 31 32 2c 30 2c 31 2c 31 35 |...0.. 12,0,1,15|
000012a0 30 2c 31 37 2c 33 2c 30 2c 31 34 2c 32 2c 31 35 |0,17,3,0,14,2,15|
000012b0 2c 32 2c 32 2c 31 32 39 2c 31 30 2c 32 30 30 2c |,2,2,129,10,200,|
000012c0 31 33 2c 33 32 2c 32 30 38 2c 30 2c 36 2c 31 2c |13,32,208,0,6,1,|
000012d0 30 00 ea 1a 44 07 83 20 31 33 2c 33 32 2c 32 30 |0...D.. 13,32,20|
000012e0 38 2c 36 2c 31 31 2c 30 00 f2 1a 6b 07 83 2d 32 |8,6,11,0...k..-2|
000012f0 00 0c 1b d0 07 8f 20 2a 2a 2a 2a 2a 20 53 43 52 |...... ***** SCR|
00001300 45 45 4e 20 32 20 2a 2a 2a 2a 00 29 1b 34 08 83 |EEN 2 ****.).4..|
00001310 20 31 33 2c 33 33 2c 32 30 38 2c 32 2c 31 35 2c | 13,33,208,2,15,|
00001320 32 33 38 2c 32 35 35 00 31 1b 97 08 83 2d 31 00 |238,255.1....-1.|
00001330 55 1b 98 08 83 20 38 2c 32 35 34 2c 37 2c 38 2c |U.... 8,254,7,8,|
00001340 31 36 2c 30 2c 37 2c 35 2c 35 2c 30 2c 31 39 32 |16,0,7,5,5,0,192|
00001350 2c 38 31 00 90 1b a2 08 83 20 32 32 2c 31 32 2c |,81...... 22,12,|
00001360 31 2c 31 37 38 2c 31 38 31 2c 32 30 2c 30 2c 30 |1,178,181,20,0,0|
00001370 2c 31 2c 33 39 2c 31 32 2c 31 2c 31 38 31 2c 31 |,1,39,12,1,181,1|
00001380 38 34 2c 32 30 2c 30 2c 30 2c 33 2c 36 39 00 cb |84,20,0,0,3,69..|
00001390 1b b5 08 83 20 31 32 2c 31 2c 31 37 38 2c 31 38 |.... 12,1,178,18|
000013a0 31 2c 32 30 2c 30 2c 30 2c 32 2c 31 39 32 2c 31 |1,20,0,0,2,192,1|
000013b0 32 2c 31 2c 31 38 31 2c 31 38 34 2c 32 30 2c 30 |2,1,181,184,20,0|
000013c0 2c 30 2c 34 2c 38 31 2c 30 00 d3 1b fb 08 83 2d |,0,4,81,0......-|
000013d0 31 00 ed 1b fc 08 83 20 31 36 2c 33 2c 37 2c 38 |1...... 16,3,7,8|
000013e0 2c 35 2c 30 2c 33 35 2c 31 33 34 00 39 1c 06 09 |,5,0,35,134.9...|
000013f0 83 20 32 32 2c 31 32 2c 31 2c 31 35 30 2c 31 35 |. 22,12,1,150,15|
00001400 34 2c 32 30 2c 30 2c 30 2c 31 2c 32 33 37 2c 36 |4,20,0,0,1,237,6|
00001410 2c 32 30 2c 30 2c 31 32 2c 31 2c 31 35 34 2c 31 |,20,0,12,1,154,1|
00001420 35 38 2c 32 30 2c 30 2c 30 2c 32 2c 33 35 2c 36 |58,20,0,0,2,35,6|
00001430 2c 32 30 2c 30 2c 30 00 41 1c 5f 09 83 2d 31 00 |,20,0,0.A._..-1.|
00001440 6e 1c 60 09 83 20 31 36 2c 36 2c 37 2c 36 2c 35 |n.`.. 16,6,7,6,5|
00001450 2c 31 2c 35 35 2c 37 32 2c 31 32 2c 31 2c 31 37 |,1,55,72,12,1,17|
00001460 30 2c 31 37 34 2c 32 30 2c 30 2c 31 00 84 1c 6a |0,174,20,0,1...j|
00001470 09 83 20 32 32 2c 34 2c 32 31 37 2c 33 2c 37 32 |.. 22,4,217,3,72|
00001480 2c 30 00 8d 1c c3 09 83 20 2d 31 00 97 1c c4 09 |,0...... -1.....|
00001490 83 20 32 35 35 00 a0 1c 27 0a 83 20 2d 31 00 e1 |. 255...'.. -1..|
000014a0 1c 28 0a 83 20 31 36 2c 33 2c 35 2c 30 2c 39 35 |.(.. 16,3,5,0,95|
000014b0 2c 39 30 2c 32 32 2c 31 32 2c 31 2c 32 31 33 2c |,90,22,12,1,213,|
000014c0 32 32 30 2c 32 30 2c 30 2c 31 2c 36 2c 33 30 2c |220,20,0,1,6,30,|
000014d0 31 2c 31 32 2c 30 2c 32 36 2c 30 2c 30 2c 30 00 |1,12,0,26,0,0,0.|
000014e0 e9 1c 8b 0a 83 2d 31 00 04 1d 8c 0a 83 20 31 36 |.....-1...... 16|
000014f0 2c 30 2c 37 2c 34 2c 35 2c 30 2c 31 39 32 2c 31 |,0,7,4,5,0,192,1|
00001500 36 36 00 42 1d 96 0a 83 20 32 32 2c 31 32 2c 31 |66.B.... 22,12,1|
00001510 2c 31 39 32 2c 31 39 35 2c 32 30 2c 30 2c 31 2c |,192,195,20,0,1,|
00001520 32 2c 32 37 2c 31 32 2c 31 2c 31 38 38 2c 31 39 |2,27,12,1,188,19|
00001530 31 2c 32 30 2c 30 2c 31 2c 31 2c 31 39 32 2c 30 |1,20,0,1,1,192,0|
00001540 00 4a 1d ef 0a 83 2d 31 00 86 1d f0 0a 83 20 31 |.J....-1...... 1|
00001550 36 2c 30 2c 37 2c 34 2c 35 2c 30 2c 32 37 2c 31 |6,0,7,4,5,0,27,1|
00001560 38 34 2c 32 33 2c 31 39 31 2c 31 39 35 2c 33 2c |84,23,191,195,3,|
00001570 30 2c 31 34 34 2c 30 2c 31 35 2c 32 30 2c 32 30 |0,144,0,15,20,20|
00001580 2c 31 32 39 00 c4 1d fa 0a 83 20 32 32 2c 31 32 |,129...... 22,12|
00001590 2c 31 2c 31 38 38 2c 31 39 31 2c 32 30 2c 30 2c |,1,188,191,20,0,|
000015a0 31 2c 31 2c 31 39 32 2c 31 32 2c 31 2c 31 39 32 |1,1,192,12,1,192|
000015b0 2c 31 39 35 2c 32 30 2c 30 2c 31 2c 32 2c 32 37 |,195,20,0,1,2,27|
000015c0 2c 30 00 cc 1d 53 0b 83 2d 32 00 e9 1d b8 0b 8f |,0...S..-2......|
000015d0 20 2a 2a 2a 2a 2a 20 53 43 52 45 45 4e 20 33 20 | ***** SCREEN 3 |
000015e0 2a 2a 2a 2a 2a 2a 2a 00 10 1e 1c 0c 83 20 31 33 |*******...... 13|
000015f0 2c 33 33 2c 32 30 38 2c 30 2c 31 35 2c 31 32 36 |,33,208,0,15,126|
00001600 2c 38 2c 32 35 34 2c 31 2c 35 2c 32 35 35 00 19 |,8,254,1,5,255..|
00001610 1e 7f 0c 83 20 2d 31 00 58 1e 80 0c 83 20 31 36 |.... -1.X.... 16|
00001620 2c 39 2c 37 2c 33 2c 35 2c 30 2c 36 30 2c 33 30 |,9,7,3,5,0,60,30|
00001630 2c 32 32 2c 31 32 2c 31 2c 31 37 35 2c 31 37 38 |,22,12,1,175,178|
00001640 2c 31 36 2c 30 2c 30 2c 32 32 2c 32 36 2c 30 2c |,16,0,0,22,26,0,|
00001650 30 2c 34 2c 36 35 00 82 1e 8a 0c 83 20 31 37 2c |0,4,65...... 17,|
00001660 32 2c 30 2c 37 2c 30 2c 31 35 2c 33 2c 33 2c 31 |2,0,7,0,15,3,3,1|
00001670 32 39 2c 32 36 2c 30 2c 30 2c 33 2c 33 30 2c 30 |29,26,0,0,3,30,0|
00001680 00 8b 1e e3 0c 83 20 2d 31 00 ca 1e e4 0c 83 20 |...... -1...... |
00001690 31 36 2c 39 2c 37 2c 33 2c 35 2c 30 2c 39 35 2c |16,9,7,3,5,0,95,|
000016a0 33 30 2c 32 32 2c 31 32 2c 31 2c 31 37 35 2c 31 |30,22,12,1,175,1|
000016b0 37 38 2c 31 36 2c 30 2c 30 2c 32 32 2c 32 36 2c |78,16,0,0,22,26,|
000016c0 30 2c 30 2c 34 2c 36 35 00 f4 1e ee 0c 83 20 31 |0,0,4,65...... 1|
000016d0 37 2c 32 2c 30 2c 37 2c 30 2c 31 35 2c 33 2c 33 |7,2,0,7,0,15,3,3|
000016e0 2c 31 32 39 2c 32 36 2c 30 2c 30 2c 33 2c 33 30 |,129,26,0,0,3,30|
000016f0 2c 30 00 fd 1e 47 0d 83 20 2d 31 00 3d 1f 48 0d |,0...G.. -1.=.H.|
00001700 83 20 31 36 2c 39 2c 37 2c 33 2c 35 2c 30 2c 31 |. 16,9,7,3,5,0,1|
00001710 37 36 2c 33 30 2c 32 32 2c 31 32 2c 31 2c 31 37 |76,30,22,12,1,17|
00001720 35 2c 31 37 38 2c 31 36 2c 30 2c 30 2c 32 32 2c |5,178,16,0,0,22,|
00001730 32 36 2c 30 2c 30 2c 34 2c 36 35 00 67 1f 52 0d |26,0,0,4,65.g.R.|
00001740 83 20 31 37 2c 32 2c 30 2c 37 2c 30 2c 31 35 2c |. 17,2,0,7,0,15,|
00001750 33 2c 33 2c 31 32 39 2c 32 36 2c 30 2c 30 2c 33 |3,3,129,26,0,0,3|
00001760 2c 33 30 2c 30 00 70 1f ab 0d 83 20 2d 31 00 b4 |,30,0.p.... -1..|
00001770 1f ac 0d 83 20 31 36 2c 32 2c 35 2c 30 2c 31 33 |.... 16,2,5,0,13|
00001780 35 2c 31 31 35 2c 32 32 2c 31 32 2c 31 2c 32 30 |5,115,22,12,1,20|
00001790 35 2c 32 31 32 2c 32 30 2c 30 2c 31 2c 36 2c 33 |5,212,20,0,1,6,3|
000017a0 30 2c 31 2c 31 32 2c 30 2c 36 2c 32 35 35 2c 30 |0,1,12,0,6,255,0|
000017b0 2c 30 00 bd 1f 0f 0e 83 20 2d 31 00 01 20 10 0e |,0...... -1.. ..|
000017c0 83 20 31 36 2c 32 2c 35 2c 30 2c 31 30 36 2c 31 |. 16,2,5,0,106,1|
000017d0 31 35 2c 32 32 2c 31 32 2c 31 2c 32 31 33 2c 32 |15,22,12,1,213,2|
000017e0 32 30 2c 32 30 2c 30 2c 31 2c 36 2c 33 30 2c 31 |20,20,0,1,6,30,1|
000017f0 2c 31 32 2c 30 2c 36 2c 32 30 30 2c 30 2c 30 00 |,12,0,6,200,0,0.|
00001800 0a 20 73 0e 83 20 2d 31 00 53 20 74 0e 83 20 31 |. s.. -1.S t.. 1|
00001810 36 2c 36 2c 37 2c 35 2c 35 2c 30 2c 32 34 2c 31 |6,6,7,5,5,0,24,1|
00001820 38 35 2c 31 32 2c 31 2c 31 38 34 2c 31 38 37 2c |85,12,1,184,187,|
00001830 32 34 2c 30 2c 31 2c 32 32 2c 36 2c 33 30 2c 30 |24,0,1,22,6,30,0|
00001840 2c 31 2c 32 30 2c 31 2c 36 33 2c 36 2c 33 30 2c |,1,20,1,63,6,30,|
00001850 30 00 64 20 7e 0e 83 20 32 2c 31 2c 32 2c 32 34 |0.d ~.. 2,1,2,24|
00001860 2c 30 00 6d 20 d7 0e 83 20 2d 31 00 7c 20 d8 0e |,0.m ... -1.| ..|
00001870 83 20 31 32 2c 30 2c 32 35 35 00 85 20 3b 0f 83 |. 12,0,255.. ;..|
00001880 20 2d 32 00 a3 20 a0 0f 8f 20 2a 2a 2a 2a 2a 2a | -2.. ... ******|
00001890 20 53 43 52 45 45 4e 20 34 20 2a 2a 2a 2a 2a 2a | SCREEN 4 ******|
000018a0 2a 00 d3 20 04 10 83 20 31 33 2c 33 33 2c 32 30 |*.. ... 13,33,20|
000018b0 38 2c 30 2c 31 35 2c 31 34 2c 38 2c 38 2c 31 2c |8,0,15,14,8,8,1,|
000018c0 31 31 2c 31 33 2c 30 2c 31 35 39 2c 30 2c 32 35 |11,13,0,159,0,25|
000018d0 35 00 dc 20 67 10 83 20 2d 31 00 28 21 68 10 83 |5.. g.. -1.(!h..|
000018e0 31 36 2c 31 34 2c 37 2c 36 2c 35 2c 30 2c 32 35 |16,14,7,6,5,0,25|
000018f0 33 2c 31 34 30 2c 32 32 2c 31 32 2c 31 2c 31 33 |3,140,22,12,1,13|
00001900 33 2c 31 33 36 2c 31 35 2c 30 2c 30 2c 32 2c 31 |3,136,15,0,0,2,1|
00001910 36 36 2c 31 32 2c 31 2c 31 33 36 2c 31 33 39 2c |66,12,1,136,139,|
00001920 31 35 2c 30 2c 30 00 71 21 72 10 83 20 37 2c 31 |15,0,0.q!r.. 7,1|
00001930 30 2c 34 2c 32 31 32 2c 37 2c 36 2c 31 32 2c 31 |0,4,212,7,6,12,1|
00001940 2c 31 32 39 2c 31 33 32 2c 31 35 2c 30 2c 30 2c |,129,132,15,0,0,|
00001950 31 2c 34 33 2c 36 2c 32 30 2c 30 2c 31 32 2c 31 |1,43,6,20,0,12,1|
00001960 2c 31 33 33 2c 31 33 36 2c 31 35 2c 30 2c 30 00 |,133,136,15,0,0.|
00001970 b0 21 7c 10 83 20 32 2c 31 36 36 2c 31 32 2c 31 |.!|.. 2,166,12,1|
00001980 2c 31 33 36 2c 31 33 39 2c 31 35 2c 30 2c 30 2c |,136,139,15,0,0,|
00001990 37 2c 31 30 2c 33 2c 31 34 30 2c 31 32 2c 31 2c |7,10,3,140,12,1,|
000019a0 31 32 39 2c 31 33 32 2c 31 35 2c 30 2c 30 00 cb |129,132,15,0,0..|
000019b0 21 86 10 83 20 37 2c 36 2c 31 2c 32 35 33 2c 36 |!... 7,6,1,253,6|
000019c0 2c 32 30 2c 30 2c 30 2c 30 00 d4 21 cb 10 83 20 |,20,0,0,0..!... |
000019d0 2d 31 00 17 22 cc 10 83 20 31 36 2c 36 2c 37 2c |-1.."... 16,6,7,|
000019e0 36 2c 32 32 2c 35 2c 30 2c 32 31 35 2c 31 38 30 |6,22,5,0,215,180|
000019f0 2c 31 30 2c 33 2c 31 32 2c 31 2c 31 32 39 2c 31 |,10,3,12,1,129,1|
00001a00 33 32 2c 31 35 2c 30 2c 30 2c 31 2c 31 31 2c 36 |32,15,0,0,1,11,6|
00001a10 2c 32 30 2c 30 00 4e 22 d6 10 83 20 31 32 2c 31 |,20,0.N"... 12,1|
00001a20 2c 31 33 33 2c 31 33 36 2c 31 35 2c 30 2c 30 2c |,133,136,15,0,0,|
00001a30 32 2c 32 31 35 2c 36 2c 32 30 2c 30 2c 31 31 2c |2,215,6,20,0,11,|
00001a40 32 38 2c 33 2c 30 2c 31 35 39 2c 30 00 57 22 2f |28,3,0,159,0.W"/|
00001a50 11 83 20 2d 31 00 a3 22 30 11 83 31 36 2c 31 32 |.. -1.."0..16,12|
00001a60 2c 37 2c 34 2c 35 2c 30 2c 32 34 2c 38 36 2c 31 |,7,4,5,0,24,86,1|
00001a70 32 2c 31 2c 31 39 36 2c 32 30 33 2c 32 32 2c 30 |2,1,196,203,22,0|
00001a80 2c 30 2c 32 32 2c 31 30 2c 33 2c 31 2c 32 30 2c |,0,22,10,3,1,20,|
00001a90 31 2c 36 35 2c 36 2c 32 30 2c 30 2c 34 2c 32 33 |1,65,6,20,0,4,23|
00001aa0 33 00 dc 22 3a 11 83 20 36 2c 32 30 2c 30 2c 32 |3..":.. 6,20,0,2|
00001ab0 2c 31 2c 32 2c 32 34 2c 36 2c 32 30 2c 30 2c 33 |,1,2,24,6,20,0,3|
00001ac0 2c 38 36 2c 36 2c 32 30 2c 30 2c 31 31 2c 31 33 |,86,6,20,0,11,13|
00001ad0 2c 30 2c 31 35 39 2c 31 2c 30 00 e5 22 93 11 83 |,0,159,1,0.."...|
00001ae0 20 2d 31 00 09 23 94 11 8f 20 2a 2a 2a 2a 20 42 | -1..#... **** B|
00001af0 4f 52 44 45 52 20 43 4f 4c 4f 55 52 20 42 41 4e |ORDER COLOUR BAN|
00001b00 44 53 20 2a 2a 2a 2a 00 29 23 95 11 83 20 31 30 |DS ****.)#... 10|
00001b10 2c 32 35 30 3a 8f 20 4c 4f 4f 50 20 43 4f 55 4e |,250:. LOOP COUN|
00001b20 54 45 52 3d 32 35 30 00 73 23 96 11 83 20 31 33 |TER=250.s#... 13|
00001b30 2c 33 32 2c 32 30 38 2c 30 2c 31 33 2c 33 32 2c |,32,208,0,13,32,|
00001b40 32 30 38 2c 30 2c 31 33 2c 33 32 2c 32 30 38 2c |208,0,13,32,208,|
00001b50 31 31 2c 31 33 2c 33 32 2c 32 30 38 2c 31 31 3a |11,13,32,208,11:|
00001b60 8f 20 50 4f 4b 45 20 42 4f 52 44 45 52 20 43 4f |. POKE BORDER CO|
00001b70 4c 00 bc 23 9e 11 83 20 31 33 2c 33 32 2c 32 30 |L..#... 13,32,20|
00001b80 38 2c 31 32 2c 31 33 2c 33 32 2c 32 30 38 2c 31 |8,12,13,32,208,1|
00001b90 32 2c 31 33 2c 33 32 2c 32 30 38 2c 31 35 2c 31 |2,13,32,208,15,1|
00001ba0 33 2c 33 32 2c 32 30 38 2c 31 35 3a 8f 20 4d 4f |3,32,208,15:. MO|
00001bb0 52 45 20 43 4f 4c 4f 55 52 53 00 03 24 a8 11 83 |RE COLOURS..$...|
00001bc0 20 31 33 2c 33 32 2c 32 30 38 2c 31 2c 31 33 2c | 13,32,208,1,13,|
00001bd0 33 32 2c 32 30 38 2c 31 2c 31 33 2c 33 32 2c 32 |32,208,1,13,32,2|
00001be0 30 38 2c 31 35 2c 31 33 2c 33 32 2c 32 30 38 2c |08,15,13,32,208,|
00001bf0 31 35 3a 8f 20 4d 4f 52 45 20 43 4f 4c 4f 55 52 |15:. MORE COLOUR|
00001c00 53 00 4d 24 b2 11 83 20 31 33 2c 33 32 2c 32 30 |S.M$... 13,32,20|
00001c10 38 2c 31 32 2c 31 33 2c 33 32 2c 32 30 38 2c 31 |8,12,13,32,208,1|
00001c20 32 2c 31 33 2c 33 32 2c 32 30 38 2c 31 31 2c 31 |2,13,32,208,11,1|
00001c30 33 2c 33 32 2c 32 30 38 2c 31 31 3a 8f 20 46 49 |3,32,208,11:. FI|
00001c40 4e 41 4c 20 43 4f 4c 4f 55 52 53 00 6c 24 b3 11 |NAL COLOURS.l$..|
00001c50 83 20 31 31 3a 8f 20 4c 4f 4f 50 20 45 4e 44 2d |. 11:. LOOP END-|
00001c60 47 4f 54 4f 20 53 54 41 52 54 00 85 24 bc 11 83 |GOTO START..$...|
00001c70 20 32 32 3a 8f 20 53 45 54 20 4e 45 57 20 53 54 | 22:. SET NEW ST|
00001c80 41 52 54 00 a5 24 bd 11 83 20 31 33 2c 33 32 2c |ART..$... 13,32,|
00001c90 32 30 38 2c 36 3a 8f 20 53 43 52 45 45 4e 3d 42 |208,6:. SCREEN=B|
00001ca0 4c 55 45 00 c6 24 be 11 83 20 31 33 2c 33 32 2c |LUE..$... 13,32,|
00001cb0 32 30 38 2c 30 3a 8f 20 53 43 52 45 45 4e 3d 42 |208,0:. SCREEN=B|
00001cc0 4c 41 43 4b 00 01 25 bf 11 83 20 30 3a 8f 20 47 |LACK..%... 0:. G|
00001cd0 4f 20 42 41 43 4b 20 54 4f 20 53 54 41 52 54 20 |O BACK TO START |
00001ce0 28 4c 49 4e 45 20 34 35 34 30 20 2d 41 4e 44 20 |(LINE 4540 -AND |
00001cf0 52 45 50 45 41 54 20 41 4c 57 41 59 53 21 29 00 |REPEAT ALWAYS!).|
00001d00 0a 25 f7 11 83 20 2d 31 00 14 25 f8 11 83 20 32 |.%... -1..%... 2|
00001d10 35 35 00 1d 25 5b 12 83 20 2d 31 00 27 25 5c 12 |55..%[.. -1.'%\.|
00001d20 83 20 32 35 35 00 30 25 bf 12 83 20 2d 31 00 3a |. 255.0%... -1.:|
00001d30 25 c0 12 83 20 32 35 35 00 43 25 23 13 83 20 2d |%... 255.C%#.. -|
00001d40 32 00 61 25 88 13 8f 20 2a 2a 2a 2a 2a 2a 20 53 |2.a%... ****** S|
00001d50 43 52 45 45 4e 20 35 20 2a 2a 2a 2a 2a 2a 2a 00 |CREEN 5 *******.|
00001d60 93 25 ec 13 83 20 31 34 2c 35 34 2c 34 2c 31 2c |.%... 14,54,4,1,|
00001d70 31 32 2c 31 2c 31 39 2c 32 30 2c 33 32 2c 31 39 |12,1,19,20,32,19|
00001d80 2c 33 2c 31 38 2c 35 2c 35 2c 31 34 2c 33 33 2c |,3,18,5,5,14,33,|
00001d90 30 00 df 25 f6 13 83 20 31 33 2c 33 33 2c 32 30 |0..%... 13,33,20|
00001da0 38 2c 30 2c 31 35 2c 32 35 35 2c 38 2c 30 2c 31 |8,0,15,255,8,0,1|
00001db0 36 2c 31 2c 39 2c 31 33 37 2c 31 33 2c 30 2c 31 |6,1,9,137,13,0,1|
00001dc0 35 39 2c 30 2c 31 33 2c 31 2c 31 35 39 2c 30 2c |59,0,13,1,159,0,|
00001dd0 37 2c 33 2c 35 2c 31 2c 35 33 2c 33 33 00 29 26 |7,3,5,1,53,33.)&|
00001de0 00 14 83 20 36 2c 30 2c 31 2c 34 2c 36 31 2c 36 |... 6,0,1,4,61,6|
00001df0 2c 32 30 2c 30 2c 37 2c 35 2c 34 2c 31 37 32 2c |,20,0,7,5,4,172,|
00001e00 32 37 2c 31 2c 31 35 39 2c 32 2c 31 31 34 2c 37 |27,1,159,2,114,7|
00001e10 2c 38 2c 32 38 2c 33 2c 30 2c 31 35 39 2c 37 2c |,8,28,3,0,159,7,|
00001e20 33 2c 32 2c 31 31 34 00 4f 26 0a 14 83 20 36 2c |3,2,114.O&... 6,|
00001e30 30 2c 33 2c 31 2c 35 33 2c 36 2c 30 2c 32 2c 32 |0,3,1,53,6,0,2,2|
00001e40 32 2c 32 30 2c 31 2c 32 30 2c 31 2c 30 00 58 26 |2,20,1,20,1,0.X&|
00001e50 4f 14 83 20 2d 31 00 9e 26 50 14 83 20 31 36 2c |O.. -1..&P.. 16,|
00001e60 35 2c 39 2c 31 33 37 2c 37 2c 33 2c 35 2c 31 2c |5,9,137,7,3,5,1,|
00001e70 35 33 2c 33 33 2c 36 2c 31 30 30 2c 31 2c 34 2c |53,33,6,100,1,4,|
00001e80 36 31 2c 36 2c 35 30 2c 30 2c 37 2c 35 2c 34 2c |61,6,50,0,7,5,4,|
00001e90 31 35 37 2c 32 37 2c 31 2c 31 35 39 00 cc 26 5a |157,27,1,159..&Z|
00001ea0 14 83 20 32 2c 31 31 34 2c 37 2c 37 2c 32 38 2c |.. 2,114,7,7,28,|
00001eb0 33 2c 30 2c 31 35 39 2c 37 2c 31 2c 32 38 2c 30 |3,0,159,7,1,28,0|
00001ec0 2c 31 2c 31 35 39 2c 32 35 35 00 d5 26 b3 14 83 |,1,159,255..&...|
00001ed0 20 2d 31 00 1b 27 b4 14 83 20 31 36 2c 33 2c 39 | -1..'... 16,3,9|
00001ee0 2c 31 33 37 2c 37 2c 33 2c 35 2c 31 2c 35 33 2c |,137,7,3,5,1,53,|
00001ef0 33 33 2c 36 2c 32 30 30 2c 31 2c 34 2c 36 31 2c |33,6,200,1,4,61,|
00001f00 36 2c 35 30 2c 30 2c 37 2c 35 2c 34 2c 31 34 32 |6,50,0,7,5,4,142|
00001f10 2c 32 37 2c 31 2c 31 35 39 00 49 27 be 14 83 20 |,27,1,159.I'... |
00001f20 32 2c 31 31 34 2c 37 2c 36 2c 32 38 2c 33 2c 30 |2,114,7,6,28,3,0|
00001f30 2c 31 35 39 2c 37 2c 32 2c 32 38 2c 30 2c 31 2c |,159,7,2,28,0,1,|
00001f40 31 35 39 2c 32 35 35 00 52 27 17 15 83 20 2d 31 |159,255.R'... -1|
00001f50 00 97 27 18 15 83 20 31 36 2c 35 2c 39 2c 31 33 |..'... 16,5,9,13|
00001f60 37 2c 37 2c 33 2c 35 2c 31 2c 35 33 2c 33 33 2c |7,7,3,5,1,53,33,|
00001f70 36 2c 35 30 2c 32 2c 34 2c 36 31 2c 36 2c 35 30 |6,50,2,4,61,6,50|
00001f80 2c 30 2c 37 2c 35 2c 34 2c 31 32 37 2c 32 37 2c |,0,7,5,4,127,27,|
00001f90 31 2c 31 35 39 00 cf 27 22 15 83 20 31 30 2c 32 |1,159..'".. 10,2|
00001fa0 2c 32 2c 31 31 34 2c 31 2c 35 33 2c 34 2c 31 37 |,2,114,1,53,4,17|
00001fb0 37 2c 33 2c 31 32 37 2c 31 31 2c 37 2c 33 2c 32 |7,3,127,11,7,3,2|
00001fc0 38 2c 30 2c 31 2c 31 35 39 2c 32 35 35 00 d8 27 |8,0,1,159,255..'|
00001fd0 7b 15 83 20 2d 31 00 25 28 7c 15 83 31 36 2c 35 |{.. -1.%(|..16,5|
00001fe0 2c 39 2c 31 33 37 2c 37 2c 33 2c 35 2c 31 2c 35 |,9,137,7,3,5,1,5|
00001ff0 33 2c 33 33 2c 36 2c 31 35 30 2c 32 2c 34 2c 36 |3,33,6,150,2,4,6|
00002000 31 2c 36 2c 35 30 2c 30 2c 37 2c 35 2c 34 2c 31 |1,6,50,0,7,5,4,1|
00002010 31 32 2c 36 2c 30 2c 32 2c 31 33 2c 31 2c 31 35 |12,6,0,2,13,1,15|
00002020 39 2c 31 00 72 28 86 15 83 20 31 30 2c 32 2c 32 |9,1.r(... 10,2,2|
00002030 2c 31 31 34 2c 31 2c 35 33 2c 33 2c 36 32 2c 34 |,114,1,53,3,62,4|
00002040 2c 31 31 32 2c 31 31 2c 31 33 2c 31 2c 31 35 39 |,112,11,13,1,159|
00002050 2c 30 2c 31 33 2c 30 2c 31 35 39 2c 31 2c 37 2c |,0,13,0,159,1,7,|
00002060 34 2c 32 38 2c 30 2c 31 2c 31 35 39 2c 32 35 35 |4,28,0,1,159,255|
00002070 00 7b 28 df 15 83 20 2d 31 00 c6 28 e0 15 83 20 |.{(... -1..(... |
00002080 31 36 2c 33 2c 39 2c 31 33 37 2c 37 2c 33 2c 35 |16,3,9,137,7,3,5|
00002090 2c 31 2c 35 33 2c 33 33 2c 36 2c 32 35 30 2c 32 |,1,53,33,6,250,2|
000020a0 2c 34 2c 36 31 2c 36 2c 35 30 2c 30 2c 37 2c 35 |,4,61,6,50,0,7,5|
000020b0 2c 34 2c 39 37 2c 32 37 2c 31 2c 31 35 39 2c 32 |,4,97,27,1,159,2|
000020c0 2c 31 31 34 00 ed 28 ea 15 83 37 2c 36 2c 32 38 |,114..(...7,6,28|
000020d0 2c 34 2c 30 2c 31 35 39 2c 37 2c 35 2c 32 38 2c |,4,0,159,7,5,28,|
000020e0 30 2c 31 2c 31 35 39 2c 32 35 35 00 f6 28 43 16 |0,1,159,255..(C.|
000020f0 83 20 2d 31 00 41 29 44 16 83 20 31 36 2c 35 2c |. -1.A)D.. 16,5,|
00002100 39 2c 31 33 37 2c 37 2c 33 2c 35 2c 31 2c 35 33 |9,137,7,3,5,1,53|
00002110 2c 33 33 2c 36 2c 31 30 30 2c 33 2c 34 2c 36 31 |,33,6,100,3,4,61|
00002120 2c 36 2c 35 30 2c 30 2c 37 2c 35 2c 34 2c 38 32 |,6,50,0,7,5,4,82|
00002130 2c 32 37 2c 31 2c 31 35 39 2c 32 2c 31 31 34 00 |,27,1,159,2,114.|
00002140 68 29 4e 16 83 37 2c 37 2c 32 38 2c 34 2c 30 2c |h)N..7,7,28,4,0,|
00002150 31 35 39 2c 37 2c 36 2c 32 38 2c 30 2c 31 2c 31 |159,7,6,28,0,1,1|
00002160 35 39 2c 32 35 35 00 71 29 a7 16 83 20 2d 31 00 |59,255.q)... -1.|
00002170 bc 29 a8 16 83 20 31 36 2c 31 2c 39 2c 31 33 37 |.)... 16,1,9,137|
00002180 2c 37 2c 33 2c 35 2c 31 2c 35 33 2c 33 33 2c 36 |,7,3,5,1,53,33,6|
00002190 2c 32 30 30 2c 33 2c 34 2c 36 31 2c 36 2c 35 30 |,200,3,4,61,6,50|
000021a0 2c 30 2c 37 2c 35 2c 34 2c 36 37 2c 32 37 2c 31 |,0,7,5,4,67,27,1|
000021b0 2c 31 35 39 2c 32 2c 31 31 34 00 e3 29 b2 16 83 |,159,2,114..)...|
000021c0 37 2c 38 2c 32 38 2c 34 2c 30 2c 31 35 39 2c 37 |7,8,28,4,0,159,7|
000021d0 2c 37 2c 32 38 2c 30 2c 31 2c 31 35 39 2c 32 35 |,7,28,0,1,159,25|
000021e0 35 00 ec 29 0b 17 83 20 2d 32 00 f5 29 0f 27 83 |5..)... -2..).'.|
000021f0 20 2d 39 00 00 00 | -9...|
000021f6 
.