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:

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"� 100O	�A$��"Y"�22r	�" 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"�37E
#�A$��"Y"�33Z
$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� 100E/�" RE-LOAD OR EXIT PROGRAM (R/E) ";A$T0�A$�"E"� �e1�A$��"R"� 47q3F�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'":�120D��820J�:��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�260d
��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:�180H"�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,107��DC:� F3�1��49152D�P��(197)S��P��44�460p���(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:� +1Z�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:�420WN�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:�420j��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"��:�820l��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"��37546�A$�"N"�825=7�820I9�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+��-1b�� 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,1299� 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,0Aw�-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,255E��-1t�� 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,12I� 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,2551��-1U�� 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,1349	� 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,0A_	�-1n`	� 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,166B�
� 22,12,1,192,195,20,0,1,2,27,12,1,188,191,20,0,1,1,192,0J�
�-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� -1X�� 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,65gR
� 17,2,0,7,0,15,3,3,129,26,0,0,3,30,0p�
� -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� -1S 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,0d ~� 2,1,2,24,0m �� -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,0q!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,0N"�� 12,1,133,136,15,0,0,2,215,6,20,0,11,28,3,0,159,0W"/� -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=250s#�� 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 COLOURSM$�� 13,32,208,12,13,32,208,12,13,32,208,11,13,32,208,11:� FINAL COLOURSl$�� 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'%\� 2550%�� -1:%�� 255C%#� -2a%�� ****** 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,114O&
� 6,0,3,1,53,6,0,2,22,20,1,20,1,0X&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,159I'�� 2,114,7,6,28,3,0,159,7,2,28,0,1,159,255R'� -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,1r(�� 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� -1A)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,114h)N�7,7,28,4,0,159,7,6,28,0,1,159,255q)�� -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