Advertisement
aNdy-AL-Cosine

PETSCII Doctors

Jun 14th, 2019
1,639
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;
  2. ; PETSCII Doctors
  3. ;
  4. ; Presented by Arkanix Labs in 2019
  5. ;
  6. ; A simple graphic collection displaying C64
  7. ; PETSCII images of all the Doctors from the
  8. ; BBC series Doctor Who.
  9. ;
  10. ; Code and music by aNdy/AL/Cosine
  11. ; Graphics by w0rm/AL (with support from aNdy)
  12. ; Thanks to Moloch/TRIAD for challenging me!
  13. ; Thanks to T.M.R/Cosine for all your patience!
  14. ;
  15. ; This source is formatted for the ACME cross assembler
  16. ; which can be downloaded from...
  17. ; http://sourceforge.net/projects/acme-crossass/
  18. ;
  19. ; The final build was compressed and squished using
  20. ; Exomizer 2 which can be downloaded from...
  21. ; http://hem.bredband.net/magli143/exo/
  22. ;
  23. ; Full download with all binaries and exe here:
  24. ; https://andyvaisey.blogspot.com/2019/06/petscii-doctors.html
  25. ;
  26. ; Questions about this code or about how the binaries
  27. ; were created can be asked on the Arkanix Labs forum...
  28. ; www.arkanixlabs.com/forum
  29. ;
  30.  
  31. ; Specify a file name and format for the assembled program
  32.  
  33.         !to "sourcebuild.prg",cbm
  34.  
  35. ; Add a sprinkle of charset and music binaries!
  36.  
  37.         * = $0900
  38. music   !binary "data/music.prg",,2
  39.    
  40.         * = $2000
  41.         !binary "data/charset.chr"
  42.        
  43. ; Position of the raster interrupt(s)
  44. ; 'rp' is short for 'raster position'! Duh!
  45.  
  46. rp      = $00       ; very first line of screen! More duh!
  47.  
  48. ; Some label assignments (variables in BASIC speak)
  49.  
  50. sync     = $51      ; raster sync anim delay variable
  51. vor_cnt  = $52      ; vortex animation counter
  52. not_cnt  = $53      ; note page colour wash counter
  53. not_tim  = $54      ; note page colour wash timer
  54. wash     = $55      ; colour wash on or off variable
  55. print    = $56      ; print screen on or off variable
  56. border   = $57      ; variable holding border colour
  57. backgrd  = $58      ; variable holding background colour
  58.  
  59. ; Add a BASIC startline (SYS 16384) for auto-run
  60.  
  61.         * = $0801
  62.         !word code_entry-2
  63.         !byte $00,$00,$9e
  64.         !text "16384"
  65.         !byte $00,$00,$00
  66.  
  67. ; Start point for the code
  68.  
  69.         * = $4000
  70.  
  71. ; Stop interrupts, disable the ROMS and set up NMI and
  72. ; IRQ interrupt pointers       
  73.                
  74. code_entry
  75.  
  76.         sei         ; disable maskable IRQs
  77.        
  78.         lda #$35    ; kill EVERYTHING (MWHAHA!) except $f000-$ffff
  79.         sta $01
  80.        
  81. ; setup nmi
  82.  
  83.         lda #<nmi
  84.         sta $fffa
  85.         lda #>nmi
  86.         sta $fffb
  87.        
  88. ; setup irq's
  89.  
  90.         lda #<int
  91.         sta $fffe
  92.         lda #>int
  93.         sta $ffff
  94.  
  95.         lda #$7f
  96.         sta $dc0d ; disable timer interrupts which can be generated by the two CIA chips
  97.         sta $dd0d ; the kernal uses such an interrupt to flash the cursor and scan the
  98.                   ; keyboard, so we better stop it!
  99.  
  100.         lda $dc0d ; by reading these two registers we negate any pending CIA irqs.
  101.         lda $dd0d ; if we don't do this, a pending CIA irq might occur after we
  102.                   ; finish setting up our irq. we don't want that to happen.
  103.  
  104.         lda #$00  ; where raster starts on screen, usually at top but can be different
  105.         sta $d012
  106.  
  107.         lda #$1b  ; as there are more than 256 rasterlines, the topmost bit of $d011 serves as
  108.         sta $d011 ; the 9th bit for the rasterline we want our irq to be triggered.
  109.        
  110.         lda #$01
  111.         sta $d019 ; clear interupt bit
  112.         sta $d01a ; tell vicii to generate interupt
  113.  
  114.         lda #$35  ; turn off basic and kernal rom thus
  115.         sta $01   ; c64 now sees RAM everywhere except at $d000-$e000
  116.        
  117.         lda #$18  ; custom font charset
  118.         sta $d018
  119.  
  120.         cli
  121.        
  122. ; Setup for the very first run...
  123.  
  124.         lda #$00                    ; load zero to accumalator
  125.  
  126. ; Set the music driver     
  127.        
  128.         jsr music+$00               ; set music driver ready
  129.        
  130. ; make sure the text colour wash is off at the start       
  131.        
  132.         sta wash                    ; colour wash is off at start
  133.                                     ; with 0 from accumalator
  134.                
  135.         lda #$01                    ; 1 to accumalator
  136.         sta border                  ; store 1 to border variable
  137.         sta backgrd                 ; store 1 to background variable
  138.        
  139. ; clear the screen by calling a subroutine further down the code
  140.  
  141.         jsr clear_screen
  142.  
  143. ; now for the main loop that draws the screens in order
  144. ; starting with title screen, then waits for a space press each
  145. ; time by calling a subroutine called 'getin'. when the last
  146. ; page is reached (notes), the program loops back to 'main loop'.
  147.                
  148. main_loop
  149.  
  150. ; print title screen
  151.  
  152.         jsr copy_title      ; copy title screen data to print buffer store
  153.         jsr print_screen    ; print the screen
  154.         jsr getin           ; go to 'getin' subroutine for space press
  155.        
  156. ; print doctors 1 & 2
  157.        
  158.         jsr vortex          ; show the vortex animation
  159.         jsr copy_doc12      ; copy Doc 1&2 data to print bufferstore
  160.         jsr print_screen    ; print the screen     
  161.         jsr getin           ; go to 'getin' subroutine for space press
  162.        
  163. ; print doctors 3 & 4
  164.    
  165.         jsr vortex          ; show the vortex animation
  166.         jsr copy_doc34      ; copy doctors 3 and 4
  167.         jsr print_screen    ; print
  168.         jsr getin           ; gosub 'getin'
  169.        
  170. ; print doctors 5 & 6
  171.    
  172.         jsr vortex          ; etc, etc!!
  173.         jsr copy_doc56      ; and so on and so on!!!!
  174.         jsr print_screen
  175.         jsr getin
  176.        
  177. ; print doctors 7 & 8
  178.    
  179.         jsr vortex
  180.         jsr copy_doc78
  181.         jsr print_screen
  182.         jsr getin
  183.        
  184. ; print doctors War & 9
  185.    
  186.         jsr vortex
  187.         jsr copy_docw9
  188.         jsr print_screen
  189.         jsr getin                          
  190.        
  191. ; print doctors 10 & 11
  192.  
  193.         jsr vortex
  194.         jsr copy_doc1011
  195.         jsr print_screen
  196.         jsr getin
  197.        
  198. ; print doctors 12 & 13
  199.  
  200.         jsr vortex
  201.         jsr copy_doc1213
  202.         jsr print_screen
  203.         jsr getin
  204.        
  205. ; print the final notes page
  206.  
  207.         jsr vortex          ; show the vortex anination
  208.        
  209.         lda #$00            ; black needed for note page, so
  210.         sta backgrd
  211.         sta border
  212.        
  213.         jsr copy_notes      ; copy notes page to print store
  214.         jsr print_screen    ; print the notes screen   
  215.        
  216.         lda #$01            ; switch on the notes page
  217.         sta wash            ; colour wash
  218.  
  219.         jsr getin           ; goto 'getin' subroutine for space press
  220.        
  221.                             ; once space is pressed...
  222.         lda #$00            ; switch off the notes
  223.         sta wash            ; page colour wash 
  224.        
  225.         jsr vortex          ; show the vortex animation
  226.        
  227.         jmp main_loop       ; now start all over again by jumping
  228.                             ; back to the 'main_loop' label above
  229.                             ; and show the titles again
  230.        
  231.                            
  232. ; Subroutines start here ===========================================
  233.  
  234. ; various subroutines to get things printed, detect key presses
  235. ; or delay animation live below here. they are called from the
  236. ; main loop above!                         
  237.                            
  238.                            
  239. ; Vortex animation subroutine ----------------------------------
  240.                                    
  241. ; All the pages are drawn in the main loop above, so here's
  242. ; the subroutine that gets called to draw the vortex 'animation'
  243.  
  244. ; the vortex animation loop does one loop of the animation,
  245. ; but when run you'll see 3 loops. this is controlled by the
  246. ; vortex counter that tells the animation to run until
  247. ; 3 loops have been completed
  248.        
  249. vortex
  250.         lda #00
  251.         sta vor_cnt         ; vortex counter to 0
  252.         sta backgrd
  253.  
  254. vortex_loop                 ; votex anim main loop 
  255.        
  256.         jsr copy_vortex1    ; copy vortex anim 1 data to print store
  257.         lda #$0B
  258.         sta border          ; grey 3 to border variable
  259.         jsr print_screen    ; print the screen
  260.         jsr anim_delay      ; a little delay to slowwww the anim!
  261.  
  262.         jsr copy_vortex2    ; copy vortex anim 2 data to print store
  263.         lda #$04
  264.         sta border          ; purple to border variable
  265.         jsr print_screen
  266.         jsr anim_delay      ; a little delay to slow the anim!
  267.                
  268.         jsr copy_vortex3    ; etc, etc...
  269.         lda #$0E
  270.         sta border          ; light blue to border variable
  271.         jsr print_screen
  272.         jsr anim_delay
  273.        
  274.         jsr copy_vortex4
  275.         lda #$03
  276.         sta border          ; cyan     
  277.         jsr print_screen
  278.         jsr anim_delay
  279.        
  280.         jsr copy_vortex5
  281.         lda #$01
  282.         sta border          ; white
  283.         jsr print_screen
  284.         jsr anim_delay
  285.                             ; thats 5 anim stages displayed
  286.                             ; for 1 loop. now...
  287.         lda vor_cnt         ; load vortex counter
  288.         inc vor_cnt         ; increase the counter by 1
  289.         cmp #$02            ; have we done 3 loops?
  290.         bne vortex_loop     ; no? go back to vortex_loop above
  291.        
  292.                             ; yes, 3 loops done? ok then...
  293.        
  294.         jsr copy_vortex1    ; draw tardis finish position at
  295.         lda #$0B            ; top because i'm fussy...
  296.         sta border          ; grey 3 to border variable
  297.         jsr print_screen
  298.         jsr anim_delay     
  299.            
  300.         lda #$01            ; white to both
  301.         sta border          ; border and
  302.         sta backgrd         ; background variables
  303.        
  304.         jsr clear_screen    ; clear screen for next doctors
  305.        
  306.         rts                 ; go back to whichever part of the
  307.                             ; main loop that called the vortex 
  308.        
  309.  
  310.                            
  311. ; Screen copy subroutines ----------------------------------                                                       
  312.        
  313. ; Each of these next subroutines copies the data from
  314. ; the tables of screen and colour data for each screen
  315. ; at the bottom of this code into the byte buffer store
  316. ; for the main print routine, ready for printing.
  317.  
  318. ; These subroutines are called from the main loop at
  319. ; the top and at the end of the subroutine it returns (rts)
  320. ; back to the main loop at the top to whichever part
  321. ; called it.
  322.  
  323.    
  324.            
  325. ; Copy the title screen into the print buffer store if
  326. ; this subroutine is called from above.
  327.    
  328. copy_title
  329.  
  330.         ldx #$00                    ; zero x register
  331. copytitlescreen_loop                ; begin loop
  332.         lda scrramtitle,x           ; load screen ram for title screen
  333.         sta screen_store,x          ; store to screen ram buffer
  334.         lda colramtitle,x           ; load colour ram for title screen
  335.         sta colour_store,x          ; store to colour ram buffer
  336.         lda scrramtitle+250,x
  337.         sta screen_store+250,x      ; do this all the way down the screen
  338.         lda colramtitle+250,x       ; in 255 block chars to cover the
  339.         sta colour_store+250,x      ; the whole screen
  340.         lda scrramtitle+500,x
  341.         sta screen_store+500,x
  342.         lda colramtitle+500,x
  343.         sta colour_store+500,x     
  344.         lda scrramtitle+750,x
  345.         sta screen_store+750,x
  346.         lda colramtitle+750,x
  347.         sta colour_store+750,x                 
  348.         inx
  349.         cpx #$fa                    ; 255 reached?
  350.         bne copytitlescreen_loop    ; no? then loop back
  351.                                     ; yes?
  352.         rts                         ; return to wherever this was called from
  353.    
  354.        
  355. ; Copy Doctors 1 and 2 screen into the print buffer store if
  356. ; this subroutine is called from above...scrram12
  357.                
  358. copy_doc12
  359.  
  360.         ldx #$00
  361. copydoc12screen_loop
  362.         lda scrram12,x
  363.         sta screen_store,x
  364.         lda colram12,x
  365.         sta colour_store,x     
  366.         lda scrram12+250,x
  367.         sta screen_store+250,x
  368.         lda colram12+250,x
  369.         sta colour_store+250,x     
  370.         lda scrram12+500,x
  371.         sta screen_store+500,x
  372.         lda colram12+500,x
  373.         sta colour_store+500,x     
  374.         lda scrram12+750,x
  375.         sta screen_store+750,x
  376.         lda colram12+750,x
  377.         sta colour_store+750,x                 
  378.         inx
  379.         cpx #$fa
  380.         bne copydoc12screen_loop
  381.  
  382.         rts
  383.  
  384.  
  385. ; Copy Doctors 3 and 4 into print buffer store...
  386.                
  387. copy_doc34
  388.  
  389.         ldx #$00
  390. copydoc34screen_loop
  391.         lda scrram34,x
  392.         sta screen_store,x
  393.         lda colram34,x
  394.         sta colour_store,x     
  395.         lda scrram34+250,x
  396.         sta screen_store+250,x
  397.         lda colram34+250,x
  398.         sta colour_store+250,x     
  399.         lda scrram34+500,x
  400.         sta screen_store+500,x
  401.         lda colram34+500,x
  402.         sta colour_store+500,x     
  403.         lda scrram34+750,x
  404.         sta screen_store+750,x
  405.         lda colram34+750,x
  406.         sta colour_store+750,x                 
  407.         inx
  408.         cpx #$fa
  409.         bne copydoc34screen_loop
  410.  
  411.         rts            
  412.    
  413.        
  414. ; Copy Doctors 5 and 6
  415.                
  416. copy_doc56
  417.  
  418.         ldx #$00
  419. copydoc56screen_loop
  420.         lda scrram56,x
  421.         sta screen_store,x
  422.         lda colram56,x
  423.         sta colour_store,x     
  424.         lda scrram56+250,x
  425.         sta screen_store+250,x
  426.         lda colram56+250,x
  427.         sta colour_store+250,x     
  428.         lda scrram56+500,x
  429.         sta screen_store+500,x
  430.         lda colram56+500,x
  431.         sta colour_store+500,x     
  432.         lda scrram56+750,x
  433.         sta screen_store+750,x
  434.         lda colram56+750,x
  435.         sta colour_store+750,x                 
  436.         inx
  437.         cpx #$fa
  438.         bne copydoc56screen_loop
  439.  
  440.         rts        
  441.  
  442.                
  443. ; Copy Doctors 7 and 8
  444.                
  445. copy_doc78
  446.  
  447.         ldx #$00
  448. copydoc78screen_loop
  449.         lda scrram78,x
  450.         sta screen_store,x
  451.         lda colram78,x
  452.         sta colour_store,x     
  453.         lda scrram78+250,x
  454.         sta screen_store+250,x
  455.         lda colram78+250,x
  456.         sta colour_store+250,x     
  457.         lda scrram78+500,x
  458.         sta screen_store+500,x
  459.         lda colram78+500,x
  460.         sta colour_store+500,x     
  461.         lda scrram78+750,x
  462.         sta screen_store+750,x
  463.         lda colram78+750,x
  464.         sta colour_store+750,x                 
  465.         inx
  466.         cpx #$fa
  467.         bne copydoc78screen_loop
  468.  
  469.         rts        
  470.  
  471.        
  472. ; Copy Doctors War and 9
  473.                
  474. copy_docw9
  475.  
  476.         ldx #$00
  477. copydocw9screen_loop
  478.         lda scrramw9,x
  479.         sta screen_store,x
  480.         lda colramw9,x
  481.         sta colour_store,x     
  482.         lda scrramw9+250,x
  483.         sta screen_store+250,x
  484.         lda colramw9+250,x
  485.         sta colour_store+250,x     
  486.         lda scrramw9+500,x
  487.         sta screen_store+500,x
  488.         lda colramw9+500,x
  489.         sta colour_store+500,x     
  490.         lda scrramw9+750,x
  491.         sta screen_store+750,x
  492.         lda colramw9+750,x
  493.         sta colour_store+750,x                 
  494.         inx
  495.         cpx #$fa
  496.         bne copydocw9screen_loop
  497.  
  498.         rts
  499.        
  500.        
  501. ; Copy Doctors 10 and 11
  502.                
  503. copy_doc1011
  504.  
  505.         ldx #$00
  506. copydoc1011screen_loop
  507.         lda scrram1011,x
  508.         sta screen_store,x
  509.         lda colram1011,x
  510.         sta colour_store,x     
  511.         lda scrram1011+250,x
  512.         sta screen_store+250,x
  513.         lda colram1011+250,x
  514.         sta colour_store+250,x     
  515.         lda scrram1011+500,x
  516.         sta screen_store+500,x
  517.         lda colram1011+500,x
  518.         sta colour_store+500,x     
  519.         lda scrram1011+750,x
  520.         sta screen_store+750,x
  521.         lda colram1011+750,x
  522.         sta colour_store+750,x                 
  523.         inx
  524.         cpx #$fa
  525.         bne copydoc1011screen_loop
  526.  
  527.         rts
  528.        
  529.        
  530. ; Copy Doctors 12 and 13
  531.                
  532. copy_doc1213
  533.  
  534.         ldx #$00
  535. copydoc1213screen_loop
  536.         lda scrram1213,x
  537.         sta screen_store,x
  538.         lda colram1213,x
  539.         sta colour_store,x     
  540.         lda scrram1213+250,x
  541.         sta screen_store+250,x
  542.         lda colram1213+250,x
  543.         sta colour_store+250,x     
  544.         lda scrram1213+500,x
  545.         sta screen_store+500,x
  546.         lda colram1213+500,x
  547.         sta colour_store+500,x     
  548.         lda scrram1213+750,x
  549.         sta screen_store+750,x
  550.         lda colram1213+750,x
  551.         sta colour_store+750,x                 
  552.         inx
  553.         cpx #$fa
  554.         bne copydoc1213screen_loop
  555.  
  556.         rts        
  557.    
  558. ; copy notes page into the print store
  559. ; this page has no colour RAM!
  560. ; this page has a colour wash effect handled in the
  561. ; interupt code towards the bottom instead
  562.                
  563. copy_notes
  564.                
  565.         ldx #$00
  566. copynotesscreen_loop
  567.         lda scrramnotes,x
  568.         sta screen_store,x
  569.         lda #$00                ; put black into colour ram
  570.         sta colour_store,x      ; store in case of any
  571.         lda scrramnotes+250,x   ; leftovers from previous
  572.         sta screen_store+250,x  ; screens. being overly
  573.         lda #$00                ; cautious here!
  574.         sta colour_store+250,x     
  575.         lda scrramnotes+500,x
  576.         sta screen_store+500,x
  577.         lda #$00
  578.         sta colour_store+500,x     
  579.         lda scrramnotes+750,x
  580.         sta screen_store+750,x
  581.         lda #$00
  582.         sta colour_store+750,x                 
  583.         inx
  584.         cpx #$fa
  585.         bne copynotesscreen_loop
  586.  
  587.         rts    
  588.        
  589.                
  590. ; Copy vortex screen animation 1 into print buffer store...
  591.                
  592. copy_vortex1
  593.  
  594.         ldx #$00
  595. copyvortex1screen_loop
  596.         lda scrramvortex1,x
  597.         sta screen_store,x
  598.         lda colramvortex1,x
  599.         sta colour_store,x     
  600.         lda scrramvortex1+250,x
  601.         sta screen_store+250,x
  602.         lda colramvortex1+250,x
  603.         sta colour_store+250,x     
  604.         lda scrramvortex1+500,x
  605.         sta screen_store+500,x
  606.         lda colramvortex1+500,x
  607.         sta colour_store+500,x     
  608.         lda scrramvortex1+750,x
  609.         sta screen_store+750,x
  610.         lda colramvortex1+750,x
  611.         sta colour_store+750,x                 
  612.         inx
  613.         cpx #$fa
  614.         bne copyvortex1screen_loop
  615.  
  616.         rts
  617.  
  618.        
  619. ; Copy vortex screen anim 2
  620.                
  621. copy_vortex2
  622.  
  623.         ldx #$00
  624. copyvortex2screen_loop
  625.         lda scrramvortex2,x
  626.         sta screen_store,x
  627.         lda colramvortex2,x
  628.         sta colour_store,x     
  629.         lda scrramvortex2+250,x
  630.         sta screen_store+250,x
  631.         lda colramvortex2+250,x
  632.         sta colour_store+250,x     
  633.         lda scrramvortex2+500,x
  634.         sta screen_store+500,x
  635.         lda colramvortex2+500,x
  636.         sta colour_store+500,x     
  637.         lda scrramvortex2+750,x
  638.         sta screen_store+750,x
  639.         lda colramvortex2+750,x
  640.         sta colour_store+750,x                 
  641.         inx
  642.         cpx #$fa
  643.         bne copyvortex2screen_loop
  644.  
  645.         rts
  646.        
  647. ; Copy vortex screen 3
  648.                
  649. copy_vortex3
  650.  
  651.         ldx #$00
  652. copyvortex3screen_loop
  653.         lda scrramvortex3,x
  654.         sta screen_store,x
  655.         lda colramvortex3,x
  656.         sta colour_store,x     
  657.         lda scrramvortex3+250,x
  658.         sta screen_store+250,x
  659.         lda colramvortex3+250,x
  660.         sta colour_store+250,x     
  661.         lda scrramvortex3+500,x
  662.         sta screen_store+500,x
  663.         lda colramvortex3+500,x
  664.         sta colour_store+500,x     
  665.         lda scrramvortex3+750,x
  666.         sta screen_store+750,x
  667.         lda colramvortex3+750,x
  668.         sta colour_store+750,x                 
  669.         inx
  670.         cpx #$fa
  671.         bne copyvortex3screen_loop
  672.  
  673.         rts            
  674.        
  675.  
  676. ; Copy vortex screen 4
  677.                
  678. copy_vortex4
  679.  
  680.         ldx #$00
  681. copyvortex4screen_loop
  682.         lda scrramvortex4,x
  683.         sta screen_store,x
  684.         lda colramvortex4,x
  685.         sta colour_store,x     
  686.         lda scrramvortex4+250,x
  687.         sta screen_store+250,x
  688.         lda colramvortex4+250,x
  689.         sta colour_store+250,x     
  690.         lda scrramvortex4+500,x
  691.         sta screen_store+500,x
  692.         lda colramvortex4+500,x
  693.         sta colour_store+500,x     
  694.         lda scrramvortex4+750,x
  695.         sta screen_store+750,x
  696.         lda colramvortex4+750,x
  697.         sta colour_store+750,x                 
  698.         inx
  699.         cpx #$fa
  700.         bne copyvortex4screen_loop
  701.  
  702.         rts                        
  703.        
  704.        
  705. ; Copy vortex screen 5
  706.                
  707. copy_vortex5
  708.  
  709.         ldx #$00
  710. copyvortex5screen_loop
  711.         lda scrramvortex5,x
  712.         sta screen_store,x
  713.         lda colramvortex5,x
  714.         sta colour_store,x     
  715.         lda scrramvortex5+250,x
  716.         sta screen_store+250,x
  717.         lda colramvortex5+250,x
  718.         sta colour_store+250,x     
  719.         lda scrramvortex5+500,x
  720.         sta screen_store+500,x
  721.         lda colramvortex5+500,x
  722.         sta colour_store+500,x     
  723.         lda scrramvortex5+750,x
  724.         sta screen_store+750,x
  725.         lda colramvortex5+750,x
  726.         sta colour_store+750,x                 
  727.         inx
  728.         cpx #$fa
  729.         bne copyvortex5screen_loop
  730.  
  731.         rts
  732.    
  733.        
  734. ; Print screen subroutine ---------------------------------
  735.  
  736. ; if this subroutine is called, it switches on the printing
  737. ; by storing 01 into the variable 'print'.  the actual
  738. ; prining is done in the interupt code towards the bottom
  739. ; of this code.  the printing is done on interupt to
  740. ; hopefully make sure everything is synced and no
  741. ; flicker occurs!  fingers crossed... :D
  742.  
  743. print_screen
  744.  
  745.         lda #$01
  746.         sta print
  747.        
  748.         rts
  749.  
  750. ; Detect 'space' press subroutine, with key debounce----------------       
  751.  
  752. ; detects spacebar keypress (get input - getin - geddit?)
  753.  
  754. getin
  755.         lda $dc01           ; CIA 1 Port B, controls some keyboard keys
  756.         cmp #$ef            ; is space pressed?
  757.         bne getin           ; no? loop back to 'getin'
  758.        
  759.                             ; yes? then debounce the keyboard
  760.                             ; or the screens will flick
  761.                             ; through without stopping!
  762.                             ; carry on to key debounce below!
  763.    
  764. ; Key debounce to check space bar is released after press!
  765.  
  766. key_debounce
  767.         lda $dc01           ; is there a keypress still?
  768.         cmp #$ff            ; an idiot is still pressing something???
  769.         bne key_debounce    ; lock them in a loop till they stop!!
  770.        
  771.                             ; they've finally let the key go? then return (rts)
  772.         rts                 ; to whichever part of the main loop at the top
  773.                             ; called the space press subroutine
  774.  
  775.        
  776. ; Clear screen subroutine ----------------------------------       
  777.  
  778. clear_screen
  779.  
  780.         lda backgrd     ; load whatever is in backgrnd variable
  781.         sta $d021       ; store to background! change colour!
  782.         lda border      ; load whatever is in border variable
  783.         sta $d020       ; store to border! change colour!
  784.  
  785.         ldx #$00        ; zero x register      
  786.         lda #$20        ; value for 'empty space' in accum
  787. clsloop
  788.         sta $0400,x
  789.         sta $0500,x
  790.         sta $0600,x
  791.         sta $0700,x
  792.         inx
  793.         bne clsloop
  794.        
  795.         rts             ; return to where this was called from
  796.    
  797.        
  798. ; Animation delay subroutine -------------------------------
  799.  
  800. ; Slows the animation and links to the
  801. ; raster interupt code
  802.  
  803. anim_delay
  804.  
  805.         ldx #$02        ; change this to alter anim speed!
  806. delay_loop
  807.         jsr sync_wait
  808.         dex
  809.         bne delay_loop
  810.         rts
  811.  
  812. sync_wait               ; wait for sync update in irq code
  813.         lda #$00
  814.         sta sync
  815. sw_loop
  816.         cmp sync
  817.         beq sw_loop
  818.  
  819.         rts
  820.  
  821.        
  822. ; End Subroutines =====================================
  823.  
  824.  
  825.                        
  826.                            
  827. ; IRQ interrupt code =================================
  828.  
  829. ; Initiate an interupt!
  830.  
  831. int
  832.         pha  
  833.         txa
  834.         pha
  835.         tya
  836.         pha
  837.        
  838.         lda $d019
  839.         and #$01
  840.         sta $d019
  841.        
  842. ; Play the music
  843.        
  844.         jsr music+$03           ; call music player
  845.         jsr music+$03           ; called twice because X2 speeed tune
  846.        
  847. ; Print the screen!
  848.  
  849. ; this routine will only run if it has been switched on
  850. ; in the mainline code above in the subroutine 'print_screen'
  851. ; if it has been switched on with 01 in the variable 'print'
  852. ; then this routine will print whatever data has been
  853. ; copied to and stored in the print buffer byte store
  854. ; using the copy data subroutines above in the mainline code
  855.  
  856. ; note, both screen and colour RAM are made up of 1000
  857. ; bytes, so each copy and store below is done in 4 blocks
  858. ; of 250 bytes.
  859.  
  860.  
  861.         lda print               ; has the print routine been switched
  862.         cmp #$01                ; on by the mainline routine?
  863.         bne wash_check          ; no? go down to 'wash_check'
  864.                        
  865.         lda border              ; yes? load the border colour from the
  866.         sta $d020               ; vortex routine and shunt into border
  867.         lda backgrd             ; same for background
  868.         sta $d021
  869.            
  870.         ldx #$00                ; zero x register
  871. printscreen_loop                ; load up whatver is in the screen
  872.         lda screen_store,x      ; store buffer and write to the
  873.         sta $0400,x             ; screen ram
  874.         lda screen_store+250,x
  875.         sta $0400+250,x
  876.         lda screen_store+500,x
  877.         sta $0400+500,x
  878.         lda screen_store+750,x
  879.         sta $0400+750,x
  880.         inx
  881.         cpx #$fa
  882.         bne printscreen_loop    ; all written? no? loop back!
  883.                                 ; yes? then...
  884.         ldx #$00                ; zero x register
  885. printscreen_loop2               ; load whatever is in the colour
  886.         lda colour_store,x      ; store buffer and write to the
  887.         sta $d800,x             ; colour ram
  888.         lda colour_store+250,x
  889.         sta $d800+250,x
  890.         lda colour_store+500,x
  891.         sta $d800+500,x
  892.         lda colour_store+750,x
  893.         sta $d800+750,x
  894.         inx
  895.         cpx #$fa
  896.         bne printscreen_loop2   ; all written? no? loop back!
  897.                                 ; yes? then...
  898.         lda #$00                ; switch off the print routine
  899.         sta print               ; because the printing should be done!
  900.  
  901.        
  902. ; Colour wash effect for notes page    
  903.  
  904. wash_check     
  905.  
  906.         lda wash            ; load wash variable
  907.         cmp #$01            ; is it switched on?
  908.         bne skip_wash       ; no? then jump to 'skip_wash' below
  909.                             ; otherwise yes? then execute colour wash
  910.                             ; on next line below!  
  911.         ldx #$00
  912. col_upd                     ; colour wash loop
  913.         lda wash_col_off,x
  914.         clc
  915.         adc not_cnt
  916.         and #$0f
  917.         tay
  918.         lda wash_pulse,y    ; load next colour from wash table
  919.        
  920.         sta $d800,x         ; store to the different colour
  921.         sta $d800+40,x      ; ram locations down the screen
  922.         sta $d800+80,x
  923.         sta $d800+120,x
  924.         sta $d800+160,x
  925.         sta $d800+200,x
  926.         sta $d800+240,x
  927.         sta $d800+280,x
  928.         sta $d800+320,x
  929.         sta $d800+360,x
  930.         sta $d800+400,x
  931.         sta $d800+440,x
  932.         sta $d9e0,x
  933.         sta $d9e0+40,x
  934.         sta $d9e0+80,x
  935.         sta $d9e0+120,x
  936.         sta $d9e0+160,x
  937.         sta $d9e0+200,x
  938.         sta $d9e0+240,x
  939.         sta $d9e0+280,x
  940.         sta $d9e0+320,x
  941.         sta $d9e0+360,x
  942.         sta $d9e0+400,x
  943.         sta $d9e0+440,x
  944.         sta $d9e0+480,x            
  945.  
  946.         inx
  947.         cpx #$28
  948.         bne col_upd
  949.  
  950.         ldx not_tim         ; colour wash timer
  951.         inx
  952.         cpx #$03
  953.         bcc tic_xb
  954.         inc not_cnt
  955.         ldx #$00
  956. tic_xb 
  957.         stx not_tim
  958.        
  959.        
  960. skip_wash      
  961.        
  962. ; Set sync variable for the animation delay sub routine
  963.        
  964.         lda #$01           
  965.         sta sync
  966.            
  967. ; Exit the interupt
  968.                
  969.         pla
  970.         tay
  971.         pla
  972.         tax
  973.         pla
  974. nmi     rti
  975.  
  976. ; End IRQ interrupt code ====================================
  977.  
  978.  
  979.  
  980. ; Data tables live here! =========================================
  981.  
  982. ; each screen has 2 blocks of data (unoptimised)
  983.  
  984. ; block 1 - screen RAM for each screen
  985. ; block 2 - colour RAM for each screen
  986.  
  987. ; these screens were created in and exported by my cross-dev
  988. ; screen editor called 'ChillED'. This will be available to
  989. ; download from the Arkanix Labs forum soon...
  990.  
  991. ;Screen data for title / intro screen
  992. scrramtitle
  993. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$FE,$A0,$FC,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$49,$0E,$20,$20,$32,$30,$31,$39,$20,$20,$20,$20,$20
  994. !byte $20,$20,$20,$20,$20,$20,$20,$20,$FE,$A0,$A0,$A0,$FC,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$3E,$41,$12,$0B,$01,$0E,$09,$18,$20,$4C,$01,$02,$13,$3C,$20,$20
  995. !byte $20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$10,$12,$05,$13,$05,$0E,$14,$13,$20,$20,$20,$20,$20
  996. !byte $20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$F9,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$22,$50,$45,$54,$53,$43,$49,$49,$20,$20,$44,$0F,$03,$14,$0F,$12,$13,$22
  997. !byte $20,$20,$20,$20,$20,$20,$20,$20,$EF,$7E,$20,$7C,$EF,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  998. !byte $20,$20,$20,$20,$20,$6C,$FE,$A0,$FC,$20,$7C,$A0,$A0,$FC,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$03,$0F,$04,$09,$0E,$07,$20,$01,$4E,$04,$19,$20,$20
  999. !byte $20,$20,$20,$6C,$FE,$A0,$A0,$A0,$A0,$FC,$20,$A0,$A0,$A0,$20,$A0,$FC,$20,$20,$20,$20,$20,$20,$20,$20,$07,$12,$01,$10,$08,$09,$03,$13,$20,$17,$30,$12,$0D,$20,$20
  1000. !byte $20,$6C,$FE,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$FC,$20,$20,$20,$20,$20,$20,$20,$20,$0D,$15,$13,$09,$03,$20,$01,$4E,$04,$19,$20,$20
  1001. !byte $FE,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$FC,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1002. !byte $FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$EC,$20,$20,$3E,$20,$50,$0C,$05,$01,$13,$05,$20,$15,$13,$05,$20,$01,$0E,$20,$20
  1003. !byte $20,$A0,$A0,$A0,$A0,$EC,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$38,$35,$38,$30,$20,$53,$49,$44,$2E,$20,$20,$20,$20,$20,$20
  1004. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1005. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$3E,$20,$53,$10,$05,$03,$09,$01,$0C,$20,$14,$08,$01,$0E,$0B,$13,$20
  1006. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$14,$0F,$20,$4D,$0F,$0C,$0F,$03,$08,$20,$06,$0F,$12,$20,$20
  1007. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$08,$09,$13,$20,$08,$05,$0C,$10,$20,$01,$0E,$04,$20,$20,$20
  1008. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$13,$15,$10,$10,$0F,$12,$14,$2E,$20,$20,$20,$20,$20,$20,$20
  1009. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1010. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$3E,$20,$44,$05,$04,$09,$03,$01,$14,$05,$04,$20,$14,$0F,$20,$20,$20
  1011. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$20,$A0,$A0,$20,$20,$20,$20,$20,$54,$2E,$4D,$2E,$52,$20,$20,$20,$54,$08,$01,$0E,$0B,$13,$20
  1012. !byte $20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$FE,$A0,$A0,$7B,$20,$20,$20,$20,$06,$0F,$12,$20,$01,$0C,$0C,$20,$19,$0F,$15,$12,$20,$20,$20
  1013. !byte $FE,$A0,$A0,$A0,$A0,$FC,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$FE,$A0,$A0,$A0,$A0,$A0,$FC,$20,$20,$20,$20,$10,$01,$14,$09,$05,$0E,$03,$05,$21,$20,$20,$20,$20,$20,$20
  1014. !byte $FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1015. !byte $20,$7C,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$7E,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$64,$64,$64,$64,$64,$20,$20,$20,$20
  1016. !byte $20,$20,$20,$7C,$FB,$A0,$A0,$A0,$A0,$EC,$20,$FB,$A0,$A0,$A0,$A0,$EC,$7E,$20,$20,$20,$20,$20,$3E,$20,$50,$12,$05,$13,$13,$20,$D3,$D0,$C1,$C3,$C5,$20,$14,$0F,$20
  1017. !byte $20,$20,$20,$20,$20,$7C,$FB,$A0,$EC,$20,$20,$20,$FB,$A0,$EC,$7E,$20,$20,$20,$20,$20,$20,$20,$20,$20,$03,$08,$01,$0E,$07,$05,$20,$10,$01,$07,$05,$13,$21,$20,$20
  1018.        
  1019. colramtitle
  1020. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$0E,$06,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04,$04,$06,$00,$04,$04,$04,$04,$00,$00,$00,$00,$00
  1021. !byte $00,$00,$00,$00,$00,$00,$00,$00,$0E,$06,$06,$06,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$00,$0E,$0E,$0E,$0E,$04,$00,$00
  1022. !byte $00,$00,$00,$00,$00,$00,$00,$0E,$06,$06,$06,$06,$06,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04,$04,$04,$04,$04,$04,$04,$04,$00,$00,$00,$00,$00
  1023. !byte $00,$00,$00,$00,$00,$00,$00,$0E,$06,$06,$06,$06,$06,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$00,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
  1024. !byte $00,$00,$00,$00,$00,$00,$00,$0E,$06,$0E,$0E,$0E,$06,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1025. !byte $00,$00,$00,$00,$0E,$0E,$0E,$06,$0E,$00,$0E,$0E,$06,$06,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$06,$06,$06,$06,$06,$03,$0E,$0E,$0E,$0E,$00,$00
  1026. !byte $00,$00,$0E,$0E,$0E,$06,$06,$06,$06,$0E,$00,$06,$06,$06,$02,$06,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$06,$03,$0E,$0E,$0E,$0E,$00,$00
  1027. !byte $0E,$0E,$0E,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$0E,$0E,$00,$00,$00,$00,$00,$00,$00,$06,$06,$06,$06,$06,$03,$0E,$0E,$0E,$0E,$00,$00
  1028. !byte $06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$00,$00,$00,$00,$00,$00,$00,$00
  1029. !byte $0E,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$0E,$00,$00,$04,$04,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$00,$06,$06,$00,$00
  1030. !byte $00,$06,$06,$06,$06,$0E,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$00,$00,$00,$00,$00,$0E,$0E,$0E,$0E,$00,$06,$06,$06,$06,$00,$00,$00,$00,$00,$00
  1031. !byte $00,$06,$06,$06,$06,$0E,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1032. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$00,$00,$00,$04,$04,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$06,$06,$06,$00
  1033. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$06,$00,$00,$00,$00,$06,$06,$00,$0E,$0E,$0E,$0E,$0E,$0E,$00,$06,$06,$06,$00,$00
  1034. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$06,$00,$00,$00,$00,$06,$06,$06,$00,$06,$06,$06,$06,$00,$06,$06,$06,$00,$00,$00
  1035. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$00,$00,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$06,$00,$00,$00,$00,$00,$00,$00
  1036. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1037. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$02,$06,$06,$00,$00,$00,$04,$04,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$00,$00,$00
  1038. !byte $00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$02,$06,$06,$0E,$06,$06,$00,$00,$00,$00,$00,$0E,$0E,$0E,$0E,$0E,$06,$00,$00,$06,$06,$06,$06,$06,$06,$00
  1039. !byte $00,$06,$06,$06,$06,$0E,$06,$06,$06,$06,$00,$06,$06,$06,$0E,$06,$06,$0E,$06,$06,$0E,$00,$00,$00,$00,$06,$06,$06,$00,$06,$06,$06,$00,$06,$06,$06,$06,$00,$00,$00
  1040. !byte $0E,$06,$06,$06,$06,$0E,$06,$06,$06,$06,$00,$06,$06,$06,$0E,$06,$06,$06,$06,$06,$0E,$00,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$00,$00,$00,$00
  1041. !byte $06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1042. !byte $00,$0E,$0E,$06,$06,$06,$06,$06,$06,$06,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$0E,$00,$00,$00,$00,$00,$00,$06,$00,$00,$00,$00,$0E,$0E,$0E,$0E,$0E,$00,$00,$00,$00
  1043. !byte $00,$00,$00,$0E,$0E,$06,$06,$06,$06,$0E,$00,$0E,$06,$06,$06,$06,$0E,$0E,$00,$00,$00,$00,$00,$04,$04,$06,$06,$06,$06,$06,$0E,$0E,$0E,$0E,$0E,$0E,$00,$06,$06,$00
  1044. !byte $00,$00,$00,$00,$00,$0E,$0E,$06,$0E,$00,$00,$06,$0E,$06,$0E,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00
  1045.  
  1046.  
  1047. ;Screen data for doctors 1 and 2
  1048. scrram12
  1049. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1050. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1051. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1052. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1053. !byte $20,$20,$20,$20,$20,$A0,$A0,$20,$20,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1054. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1055. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1056. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1057. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1058. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1059. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1060. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1061. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1062. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1063. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1064. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1065. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1066. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1067. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$31,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1068. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1069. !byte $20,$20,$20,$57,$09,$0C,$0C,$09,$01,$0D,$20,$48,$01,$12,$14,$0E,$05,$0C,$0C,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$32,$20,$20,$20,$20
  1070. !byte $20,$20,$20,$20,$20,$20,$31,$39,$36,$33,$2D,$31,$39,$36,$36,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1071. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$50,$01,$14,$12,$09,$03,$0B,$20,$54,$12,$0F,$15,$07,$08,$14,$0F,$0E,$20,$20
  1072. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$31,$39,$36,$36,$2D,$31,$39,$36,$39,$20,$20,$20,$20,$20,$20
  1073. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1074.  
  1075. colram12
  1076. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1077. !byte $00,$00,$00,$00,$00,$00,$00,$0F,$00,$00,$00,$0F,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1078. !byte $00,$00,$00,$00,$00,$00,$0F,$00,$0F,$0F,$0F,$0F,$0F,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1079. !byte $00,$00,$00,$00,$00,$0A,$00,$0F,$00,$00,$00,$00,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$0B,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00
  1080. !byte $00,$00,$00,$00,$00,$0F,$00,$00,$0A,$0F,$0A,$0F,$0A,$01,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00
  1081. !byte $00,$00,$00,$00,$00,$00,$01,$08,$0A,$0A,$0A,$0A,$0A,$08,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1082. !byte $00,$00,$00,$00,$0F,$00,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$08,$00,$08,$00,$00,$0B,$00,$00,$00,$00,$00
  1083. !byte $00,$00,$00,$00,$00,$0F,$01,$0A,$0A,$0A,$00,$0A,$0A,$0A,$01,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00
  1084. !byte $00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$0B,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$0B,$00,$00,$00,$00,$00
  1085. !byte $00,$00,$00,$00,$00,$0B,$0C,$00,$08,$0A,$0A,$0A,$08,$00,$0C,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00
  1086. !byte $00,$00,$00,$00,$0B,$0B,$0B,$0C,$00,$00,$00,$00,$00,$0C,$0B,$0B,$0B,$00,$00,$00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00
  1087. !byte $00,$00,$00,$00,$0C,$0B,$00,$0B,$0C,$06,$06,$06,$0C,$0B,$00,$0B,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$08,$0A,$0A,$0A,$08,$00,$0B,$00,$00,$00,$00,$00,$00
  1088. !byte $00,$00,$00,$00,$0A,$0A,$00,$0B,$0B,$0F,$00,$0F,$0B,$0B,$00,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00
  1089. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$0B,$0F,$00,$0F,$0B,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$0C,$05,$05,$05,$0C,$0B,$00,$00,$00,$00,$00,$00,$00
  1090. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$08,$0B,$0F,$0B,$08,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$00,$0B,$0F,$00,$0F,$0B,$00,$00,$0A,$0A,$00,$00,$00,$00
  1091. !byte $00,$00,$00,$00,$00,$00,$00,$08,$08,$00,$00,$00,$08,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$0F,$00,$0F,$0B,$00,$00,$00,$00,$00,$00,$00,$00
  1092. !byte $00,$00,$00,$00,$00,$00,$00,$08,$08,$00,$00,$00,$08,$08,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$08,$09,$09,$09,$08,$09,$00,$00,$00,$00,$00,$00,$00
  1093. !byte $00,$00,$00,$00,$00,$00,$00,$09,$09,$00,$00,$00,$09,$09,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$08,$00,$00,$00,$08,$08,$00,$00,$00,$00,$00,$00,$00
  1094. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$00,$00,$00,$09,$08,$00,$0A,$00,$00,$00,$00,$00
  1095. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$09,$00,$00,$00,$09,$09,$00,$0A,$00,$00,$00,$00,$00
  1096. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1097. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1098. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B
  1099. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1100. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1101.  
  1102.  
  1103. ;Screen data for doctors 3 and 4
  1104. scrram34
  1105. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1106. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1107. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20
  1108. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1109. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1110. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1111. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1112. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1113. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1114. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1115. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1116. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1117. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1118. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1119. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1120. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1121. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1122. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1123. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$33,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1124. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1125. !byte $20,$20,$20,$20,$20,$4A,$0F,$0E,$20,$50,$05,$12,$14,$17,$05,$05,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$34,$20,$20,$20,$20
  1126. !byte $20,$20,$20,$20,$20,$20,$31,$39,$37,$30,$2D,$31,$39,$37,$34,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1127. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$54,$0F,$0D,$20,$42,$01,$0B,$05,$12,$20,$20,$20,$20,$20,$20
  1128. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$31,$39,$37,$34,$2D,$31,$39,$38,$31,$20,$20,$20,$20,$20,$20
  1129. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1130.  
  1131. colram34
  1132. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1133. !byte $00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$0B,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1134. !byte $00,$00,$00,$00,$00,$00,$0B,$0B,$0C,$0F,$0F,$0F,$0C,$0B,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$08,$00,$09,$00,$08,$0F,$00,$00,$00,$00,$00,$00,$00
  1135. !byte $00,$00,$00,$00,$00,$0B,$00,$0C,$0F,$0F,$0F,$0F,$0F,$0C,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$08,$00,$08,$09,$09,$00,$08,$09,$00,$00,$00,$00,$00,$00
  1136. !byte $00,$00,$00,$00,$00,$0B,$0C,$0F,$0F,$0F,$0F,$0A,$0F,$0F,$0C,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$08,$08,$00,$08,$09,$08,$09,$09,$00,$08,$08,$00,$00,$00,$00,$00
  1137. !byte $00,$00,$00,$00,$00,$00,$0F,$0F,$0A,$0A,$0A,$0A,$0A,$0F,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$08,$09,$08,$09,$09,$00,$09,$09,$08,$00,$00,$00,$00,$00
  1138. !byte $00,$00,$00,$00,$00,$00,$01,$0A,$00,$0A,$0A,$0A,$00,$0A,$01,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00
  1139. !byte $00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$08,$0A,$08,$0A,$08,$0A,$08,$00,$0B,$00,$00,$00,$00,$00
  1140. !byte $00,$00,$00,$00,$0F,$0B,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$0B,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$00,$00,$00,$00,$00,$00
  1141. !byte $00,$00,$00,$00,$0C,$00,$0C,$00,$0A,$0A,$0A,$0A,$0A,$00,$0C,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00
  1142. !byte $00,$00,$00,$0F,$00,$0B,$02,$0C,$00,$00,$00,$00,$00,$0C,$02,$0B,$00,$0F,$00,$00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00
  1143. !byte $00,$00,$00,$00,$01,$00,$0B,$02,$0C,$05,$02,$05,$0C,$02,$0B,$00,$01,$00,$00,$00,$00,$00,$00,$00,$09,$07,$00,$0A,$0A,$0A,$0A,$0A,$00,$06,$09,$00,$00,$00,$00,$00
  1144. !byte $00,$00,$00,$00,$0A,$01,$00,$0B,$02,$0B,$00,$0B,$02,$0B,$00,$01,$0A,$00,$00,$00,$00,$00,$00,$09,$09,$09,$02,$00,$00,$00,$00,$00,$07,$09,$09,$09,$00,$00,$00,$00
  1145. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$02,$0B,$0B,$0B,$02,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$00,$09,$06,$0D,$08,$04,$05,$09,$00,$09,$08,$00,$00,$00,$00
  1146. !byte $00,$00,$00,$00,$00,$02,$00,$0B,$02,$0B,$0B,$0B,$02,$0B,$00,$02,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$08,$03,$04,$03,$07,$0F,$08,$00,$0A,$0A,$00,$00,$00,$00
  1147. !byte $00,$00,$00,$00,$00,$02,$00,$00,$0B,$00,$00,$00,$0B,$00,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0D,$05,$08,$08,$04,$09,$08,$00,$00,$00,$00,$00,$00,$00
  1148. !byte $00,$00,$00,$00,$00,$02,$00,$0B,$0B,$00,$00,$00,$0B,$0B,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$02,$0E,$09,$09,$05,$0E,$09,$00,$00,$00,$00,$00,$00,$00
  1149. !byte $00,$00,$00,$00,$00,$02,$00,$0B,$00,$00,$00,$00,$00,$0B,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04,$00,$00,$02,$07,$00,$00,$00,$00,$00,$00,$00,$00
  1150. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0D,$00,$00,$03,$04,$09,$00,$0A,$00,$00,$00,$00,$00
  1151. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$00,$00,$06,$05,$09,$00,$0A,$00,$00,$00,$00,$00
  1152. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1153. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1154. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$0A
  1155. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1156. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1157.  
  1158.  
  1159. ;Screen data for doctors 5 and 6
  1160. scrram56
  1161. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1162. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1163. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1164. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1165. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1166. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1167. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1168. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1169. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1170. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1171. !byte $20,$20,$20,$20,$A0,$A0,$A0,$3F,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1172. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1173. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1174. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$3F,$A0,$A0,$A0,$3F,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1175. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1176. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1177. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1178. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1179. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$35,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1180. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1181. !byte $20,$20,$20,$20,$50,$05,$14,$05,$12,$20,$44,$01,$16,$09,$04,$13,$0F,$0E,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$36,$20,$20,$20,$20
  1182. !byte $20,$20,$20,$20,$20,$20,$31,$39,$38,$32,$2D,$31,$39,$38,$34,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1183. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$43,$0F,$0C,$09,$0E,$20,$42,$01,$0B,$05,$12,$20,$20,$20,$20,$20
  1184. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$31,$39,$38,$34,$2D,$31,$39,$38,$36,$20,$20,$20,$20,$20,$20
  1185. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1186.  
  1187. colram56
  1188. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1189. !byte $00,$00,$00,$00,$00,$00,$00,$08,$09,$00,$00,$00,$09,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1190. !byte $00,$00,$00,$00,$00,$00,$08,$00,$07,$07,$07,$07,$07,$00,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$08,$00,$08,$00,$09,$00,$00,$00,$00,$00,$00,$00
  1191. !byte $00,$00,$00,$00,$00,$0A,$09,$07,$07,$07,$07,$07,$07,$07,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$07,$09,$07,$09,$07,$08,$00,$00,$00,$00,$00,$00,$00
  1192. !byte $00,$00,$00,$00,$00,$08,$00,$07,$0A,$07,$0A,$07,$07,$07,$00,$08,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$07,$07,$07,$07,$07,$07,$07,$09,$08,$00,$00,$00,$00,$00
  1193. !byte $00,$00,$00,$00,$00,$00,$07,$08,$0A,$0A,$0A,$0A,$0A,$08,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$07,$07,$07,$07,$07,$07,$07,$08,$00,$00,$00,$00,$00,$00
  1194. !byte $00,$00,$00,$00,$00,$00,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$07,$07,$0A,$07,$0A,$07,$0A,$07,$07,$09,$00,$00,$00,$00,$00
  1195. !byte $00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$07,$00,$00,$00,$00,$00,$00
  1196. !byte $00,$00,$00,$00,$0F,$09,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$08,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$00,$00,$00,$00,$00,$00
  1197. !byte $00,$00,$00,$00,$00,$00,$07,$00,$08,$0A,$0A,$0A,$08,$05,$07,$00,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00
  1198. !byte $00,$00,$00,$00,$00,$07,$07,$02,$00,$00,$00,$00,$05,$05,$05,$07,$00,$08,$00,$00,$00,$00,$00,$0F,$02,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$02,$0F,$00,$00,$00,$00
  1199. !byte $00,$00,$00,$00,$0F,$07,$0B,$01,$02,$01,$01,$01,$02,$0D,$0B,$07,$0F,$00,$00,$00,$00,$00,$00,$02,$00,$06,$00,$08,$0A,$0A,$0A,$08,$00,$06,$00,$02,$00,$00,$00,$00
  1200. !byte $00,$00,$00,$00,$0A,$0A,$00,$0F,$0B,$02,$02,$02,$0B,$0D,$00,$0A,$0A,$00,$00,$00,$00,$00,$08,$00,$02,$0E,$06,$00,$00,$00,$00,$00,$06,$0E,$02,$00,$08,$00,$00,$00
  1201. !byte $00,$00,$00,$00,$00,$00,$00,$00,$02,$01,$01,$01,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$0F,$02,$07,$0A,$03,$03,$03,$0A,$0A,$02,$0F,$07,$00,$00,$00,$00
  1202. !byte $00,$00,$00,$00,$00,$00,$00,$02,$07,$02,$02,$02,$07,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$07,$02,$01,$03,$01,$02,$0A,$00,$0A,$0A,$00,$00,$00,$00
  1203. !byte $00,$00,$00,$00,$00,$00,$00,$07,$08,$00,$00,$00,$08,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$02,$0F,$01,$0F,$02,$0A,$00,$00,$00,$00,$00,$00,$00
  1204. !byte $00,$00,$00,$00,$00,$00,$00,$02,$07,$00,$00,$00,$07,$02,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$08,$02,$02,$02,$08,$0A,$00,$00,$00,$00,$00,$00,$00
  1205. !byte $00,$00,$00,$00,$00,$00,$00,$08,$02,$00,$00,$00,$02,$08,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$00,$00,$00,$09,$08,$00,$00,$00,$00,$00,$00,$00
  1206. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$08,$00,$00,$00,$08,$0A,$00,$0A,$00,$00,$00,$00,$00
  1207. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$00,$00,$00,$09,$08,$00,$0A,$00,$00,$00,$00,$00
  1208. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1209. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1210. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B
  1211. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1212. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1213.  
  1214. ;Screen data for doctors 7 and 8
  1215. scrram78
  1216. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1217. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1218. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1219. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1220. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1221. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1222. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1223. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1224. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1225. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1226. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1227. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1228. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$E4,$3F,$A0,$3F,$E4,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1229. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$3F,$3F,$3F,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1230. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1231. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1232. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1233. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1234. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$37,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1235. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1236. !byte $20,$20,$20,$53,$19,$0C,$16,$05,$13,$14,$05,$12,$20,$4D,$03,$43,$0F,$19,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$38,$20,$20,$20,$20
  1237. !byte $20,$20,$20,$20,$20,$20,$31,$39,$38,$37,$2D,$31,$39,$38,$39,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1238. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$50,$01,$15,$0C,$20,$4D,$03,$47,$01,$0E,$0E,$20,$20,$20,$20,$20
  1239. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$31,$39,$39,$36,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1240. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1241.  
  1242. colram78
  1243. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1244. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1245. !byte $00,$00,$00,$00,$00,$00,$00,$0C,$0F,$0F,$0F,$0F,$0F,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1246. !byte $00,$00,$00,$00,$00,$0F,$00,$02,$02,$02,$02,$02,$02,$02,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$09,$00,$09,$00,$00,$00,$00,$00,$00,$00,$00
  1247. !byte $00,$00,$00,$00,$00,$00,$0C,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$09,$08,$09,$08,$09,$08,$09,$09,$00,$00,$00,$00,$00,$00
  1248. !byte $00,$00,$00,$00,$00,$0C,$00,$08,$0A,$08,$0A,$08,$0A,$08,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$08,$09,$08,$08,$08,$09,$08,$00,$09,$09,$00,$00,$00,$00
  1249. !byte $00,$00,$00,$00,$0F,$00,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$09,$08,$08,$08,$0A,$08,$0A,$08,$08,$08,$09,$00,$00,$00,$00,$00
  1250. !byte $00,$00,$00,$00,$00,$0B,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$08,$0A,$0A,$0A,$0A,$0A,$08,$09,$00,$00,$00,$00,$00,$00
  1251. !byte $00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$08,$0A,$00,$0A,$0A,$0A,$00,$0A,$08,$00,$00,$00,$00,$00,$00
  1252. !byte $00,$00,$00,$00,$00,$00,$0C,$00,$0A,$0A,$0A,$0A,$0A,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$08,$0A,$0A,$0A,$00,$0A,$0A,$0A,$08,$09,$00,$00,$00,$00,$00
  1253. !byte $00,$00,$00,$00,$00,$0C,$0F,$0F,$00,$00,$00,$00,$00,$0F,$0F,$0C,$00,$00,$00,$00,$00,$00,$00,$0F,$09,$00,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$00,$09,$0F,$00,$00,$00,$00
  1254. !byte $00,$00,$00,$00,$0C,$0F,$0F,$0F,$02,$03,$08,$03,$02,$0F,$0F,$0F,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$0A,$0A,$0A,$0A,$0A,$00,$0B,$00,$00,$00,$00,$00,$00
  1255. !byte $00,$00,$00,$00,$0A,$0A,$00,$0F,$02,$02,$03,$02,$02,$0F,$00,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$05,$05,$0B,$00,$00,$00,$00,$00,$0B,$05,$05,$00,$00,$00,$00,$00
  1256. !byte $00,$00,$00,$00,$00,$00,$00,$0F,$02,$02,$02,$02,$02,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$05,$05,$05,$01,$09,$09,$09,$01,$05,$05,$05,$0B,$00,$00,$00,$00
  1257. !byte $00,$00,$00,$00,$02,$02,$00,$0C,$08,$08,$08,$08,$08,$0C,$00,$02,$02,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$05,$0B,$01,$09,$01,$0B,$05,$00,$0A,$0A,$00,$00,$00,$00
  1258. !byte $00,$00,$00,$00,$00,$02,$00,$08,$08,$00,$00,$00,$08,$08,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$05,$05,$08,$08,$08,$05,$05,$00,$00,$00,$00,$00,$00,$00
  1259. !byte $00,$00,$00,$00,$00,$0C,$00,$08,$09,$00,$00,$00,$09,$08,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$02,$00,$05,$05,$0B,$08,$0B,$05,$05,$00,$02,$00,$00,$00,$00,$00
  1260. !byte $00,$00,$00,$00,$00,$0C,$00,$09,$09,$00,$00,$00,$09,$09,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$02,$00,$05,$09,$00,$00,$00,$09,$05,$00,$02,$00,$00,$00,$00,$00
  1261. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$02,$00,$0B,$09,$00,$00,$00,$09,$0B,$00,$02,$00,$00,$00,$00,$00
  1262. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$02,$00,$09,$09,$00,$00,$00,$09,$09,$00,$02,$00,$00,$00,$00,$00
  1263. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1264. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1265. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B
  1266. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1267. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1268.  
  1269. ;Screen data for doctors War and 9
  1270. scrramw9
  1271. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1272. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1273. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1274. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1275. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1276. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1277. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$F8,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$F8,$20,$20,$20,$20,$20
  1278. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1279. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1280. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1281. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1282. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1283. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1284. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1285. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1286. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1287. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1288. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1289. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$57,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1290. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1291. !byte $20,$20,$20,$20,$20,$20,$4A,$0F,$08,$0E,$20,$48,$15,$12,$14,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$39,$20,$20,$20,$20
  1292. !byte $20,$20,$20,$20,$54,$08,$05,$20,$57,$01,$12,$20,$44,$0F,$03,$14,$0F,$12,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1293. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$43,$08,$12,$09,$13,$14,$0F,$10,$08,$05,$12,$20,$45,$03,$03,$0C,$05,$13,$14,$0F,$0E
  1294. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$32,$30,$30,$35,$20,$20,$20,$20,$20,$20,$20,$20
  1295. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1296.  
  1297. colramw9
  1298. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1299. !byte $00,$00,$00,$00,$00,$00,$00,$0F,$0B,$0F,$0B,$0F,$0B,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1300. !byte $00,$00,$00,$00,$00,$00,$0F,$00,$0F,$0F,$0F,$0F,$0F,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$08,$00,$08,$00,$09,$00,$00,$00,$00,$00,$00,$00
  1301. !byte $00,$00,$00,$00,$00,$0F,$0B,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$0B,$00,$0B,$00,$0B,$00,$00,$00,$00,$00,$00,$00
  1302. !byte $00,$00,$00,$00,$00,$0F,$00,$0F,$0F,$0A,$0F,$0A,$0F,$0F,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00
  1303. !byte $00,$00,$00,$00,$00,$0F,$0F,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0F,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$0A,$00,$00,$00,$0A,$00,$00,$0B,$00,$00,$00,$00,$00
  1304. !byte $00,$00,$00,$00,$00,$0F,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$0A,$00,$00,$00,$00,$00
  1305. !byte $00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0B,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0B,$0A,$00,$00,$00,$00,$00
  1306. !byte $00,$00,$00,$00,$0F,$0B,$00,$08,$0C,$0F,$0F,$0F,$0C,$08,$00,$0B,$0F,$00,$00,$00,$00,$00,$00,$00,$0B,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$0B,$00,$00,$00,$00,$00
  1307. !byte $00,$00,$00,$00,$0C,$00,$09,$00,$0B,$0F,$0F,$0F,$0B,$00,$09,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00
  1308. !byte $00,$00,$00,$0F,$00,$09,$09,$09,$00,$00,$0C,$00,$00,$09,$09,$09,$00,$0F,$00,$00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00
  1309. !byte $00,$00,$00,$00,$09,$09,$0B,$09,$02,$02,$02,$02,$02,$09,$0B,$09,$09,$00,$00,$00,$00,$00,$00,$0C,$0B,$0B,$00,$0A,$0A,$0A,$0A,$0A,$00,$0B,$0B,$0C,$00,$00,$00,$00
  1310. !byte $00,$00,$00,$00,$0A,$0A,$00,$09,$0B,$02,$0B,$02,$0B,$09,$00,$0A,$0A,$00,$00,$00,$00,$00,$0F,$0B,$00,$00,$00,$0B,$08,$08,$08,$0B,$00,$00,$00,$0B,$0F,$00,$00,$00
  1311. !byte $00,$00,$00,$00,$00,$00,$00,$09,$0B,$0B,$0B,$02,$0B,$09,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$0B,$05,$05,$05,$0B,$00,$00,$00,$00,$0B,$00,$00,$00
  1312. !byte $00,$00,$00,$00,$00,$00,$00,$09,$08,$0B,$0B,$0B,$08,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$00,$00,$05,$05,$05,$00,$00,$00,$0A,$0A,$00,$00,$00,$00
  1313. !byte $00,$00,$00,$00,$00,$00,$00,$09,$08,$00,$00,$00,$08,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$05,$05,$05,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1314. !byte $00,$00,$00,$00,$00,$00,$00,$09,$08,$00,$00,$00,$08,$09,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$0B,$0B,$0B,$0B,$0B,$00,$0B,$00,$00,$00,$00,$00,$00
  1315. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$08,$00,$00,$00,$08,$0B,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$00
  1316. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$0B,$00,$00,$00,$0B,$0B,$00,$0A,$00,$00,$00,$00,$00
  1317. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$0B,$00,$00,$00,$0B,$0B,$00,$0A,$00,$00,$00,$00,$00
  1318. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1319. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1320. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1321. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1322. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1323.  
  1324. ;Screen data for doctors 10 and 11
  1325. scrram1011
  1326. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1327. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1328. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1329. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1330. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1331. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1332. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1333. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1334. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1335. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1336. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1337. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1338. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1339. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$BA,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$F4,$F4,$E4,$E7,$EA,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1340. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$BA,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$F4,$A0,$3A,$A0,$EA,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1341. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$F4,$A0,$3A,$A0,$EA,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1342. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$F4,$A0,$3A,$A0,$EA,$A0,$A0,$20,$20,$20,$20,$20,$20
  1343. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1344. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$31,$30,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1345. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1346. !byte $20,$20,$20,$20,$44,$01,$16,$09,$04,$20,$54,$05,$0E,$0E,$01,$0E,$14,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$31,$31,$20,$20,$20
  1347. !byte $20,$20,$20,$20,$20,$20,$32,$30,$30,$35,$2D,$32,$30,$31,$30,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1348. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$4D,$01,$14,$14,$20,$20,$53,$0D,$09,$14,$08,$20,$20,$20,$20,$20
  1349. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$32,$30,$31,$30,$2D,$32,$30,$31,$33,$20,$20,$20,$20,$20,$20
  1350. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1351.  
  1352. colram1011
  1353. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1354. !byte $00,$00,$00,$00,$00,$00,$00,$08,$09,$00,$09,$00,$09,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1355. !byte $00,$00,$00,$00,$00,$00,$08,$00,$08,$09,$09,$09,$08,$00,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$00,$08,$00,$08,$00,$09,$00,$00,$00,$00,$00,$00,$00
  1356. !byte $00,$00,$00,$00,$00,$0A,$09,$08,$09,$09,$09,$09,$09,$08,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$09,$09,$09,$09,$08,$00,$00,$00,$00,$00,$00,$00
  1357. !byte $00,$00,$00,$00,$00,$08,$00,$09,$09,$0A,$09,$08,$09,$09,$00,$08,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$09,$09,$08,$09,$09,$08,$09,$09,$08,$00,$00,$00,$00,$00
  1358. !byte $00,$00,$00,$00,$00,$00,$09,$08,$0A,$0A,$0A,$0A,$0A,$08,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$09,$09,$09,$08,$0A,$08,$09,$00,$00,$00,$00,$00,$00
  1359. !byte $00,$00,$00,$00,$00,$08,$0A,$0A,$00,$0A,$0A,$0A,$00,$0A,$0A,$08,$00,$00,$00,$00,$00,$00,$00,$00,$08,$09,$09,$08,$09,$08,$0A,$0A,$08,$09,$08,$00,$00,$00,$00,$00
  1360. !byte $00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$08,$0A,$0A,$0A,$0A,$0A,$08,$09,$00,$00,$00,$00,$00,$00
  1361. !byte $00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$09,$08,$0A,$00,$0A,$0A,$0A,$00,$0A,$08,$09,$00,$00,$00,$00,$00
  1362. !byte $00,$00,$00,$00,$00,$00,$08,$00,$0A,$0A,$0A,$0A,$0A,$00,$09,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$0A,$00,$0A,$0A,$0A,$00,$00,$00,$00,$00,$00,$00
  1363. !byte $00,$00,$00,$00,$00,$09,$08,$09,$00,$00,$00,$00,$00,$09,$08,$09,$00,$00,$00,$00,$00,$00,$00,$0F,$00,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$00,$0F,$00,$00,$00,$00
  1364. !byte $00,$00,$00,$00,$09,$08,$08,$08,$01,$02,$02,$02,$01,$08,$08,$08,$09,$00,$00,$00,$00,$00,$00,$00,$00,$08,$00,$0A,$0A,$0A,$0A,$0A,$00,$09,$00,$00,$00,$00,$00,$00
  1365. !byte $00,$00,$00,$00,$0A,$0A,$00,$08,$06,$01,$02,$01,$06,$08,$00,$0A,$0A,$00,$00,$00,$00,$00,$00,$00,$09,$08,$09,$00,$00,$00,$00,$00,$09,$08,$09,$00,$00,$00,$00,$00
  1366. !byte $00,$00,$00,$00,$00,$00,$00,$08,$0B,$06,$06,$06,$0B,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$08,$08,$08,$02,$02,$02,$02,$02,$08,$08,$08,$09,$00,$00,$00,$00
  1367. !byte $00,$00,$00,$00,$00,$00,$00,$08,$06,$06,$06,$06,$06,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$08,$02,$01,$0F,$01,$02,$08,$00,$0A,$0A,$00,$00,$00,$00
  1368. !byte $00,$00,$00,$00,$00,$00,$00,$08,$0B,$00,$00,$00,$0B,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$02,$01,$0F,$01,$02,$08,$00,$00,$00,$00,$00,$00,$00
  1369. !byte $00,$00,$00,$00,$00,$00,$00,$08,$06,$00,$00,$00,$06,$08,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$08,$02,$01,$0F,$01,$02,$08,$00,$00,$00,$00,$00,$00,$00
  1370. !byte $00,$00,$00,$00,$00,$00,$00,$0F,$0F,$00,$00,$00,$0F,$0F,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$0B,$00,$00,$00,$0B,$0B,$00,$00,$00,$00,$00,$00,$00
  1371. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$0B,$00,$00,$00,$0B,$0B,$00,$0A,$00,$00,$00,$00,$00
  1372. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$0B,$00,$0A,$00,$00,$00,$00,$00
  1373. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1374. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1375. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B
  1376. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1377. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1378.  
  1379. ;Screen data for doctors 12 and 13
  1380. scrram1213
  1381. !byte $20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1382. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1383. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$20,$A0,$A0,$A0,$20,$A0,$20,$20,$20,$20,$20,$20,$20
  1384. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20
  1385. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1386. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1387. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1388. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1389. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$AE,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1390. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1391. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1392. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$3A,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20
  1393. !byte $20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$3A,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1394. !byte $20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$3A,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1395. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$E4,$E4,$E4,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20
  1396. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20
  1397. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1398. !byte $20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1399. !byte $20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$31,$32,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1400. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$20,$20,$20,$20,$20,$20
  1401. !byte $20,$20,$20,$20,$50,$05,$14,$05,$12,$20,$43,$01,$10,$01,$0C,$04,$09,$20,$20,$20,$20,$20,$20,$20,$A0,$A0,$A0,$A0,$A0,$20,$A0,$A0,$A0,$A0,$A0,$31,$33,$20,$20,$20
  1402. !byte $20,$20,$20,$20,$20,$20,$32,$30,$31,$34,$2D,$32,$30,$31,$37,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1403. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$4A,$0F,$04,$09,$05,$20,$57,$08,$09,$14,$14,$01,$0B,$05,$12,$20,$20,$20
  1404. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$32,$30,$31,$38,$2D,$3F,$3F,$3F,$3F,$20,$20,$20,$20,$20,$20
  1405. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1406.  
  1407. colram1213
  1408. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$0B,$0C,$0B,$0C,$0B,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1409. !byte $00,$00,$00,$00,$00,$00,$0B,$0F,$0C,$0F,$0C,$0F,$0C,$0F,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1410. !byte $00,$00,$00,$00,$00,$0C,$0B,$0C,$0F,$0F,$0F,$0F,$0F,$0C,$0B,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00
  1411. !byte $00,$00,$00,$00,$00,$0B,$0C,$0F,$0F,$0C,$0F,$0A,$0F,$0F,$0C,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$0F,$0F,$07,$07,$07,$0F,$0F,$07,$00,$00,$00,$00,$00,$00
  1412. !byte $00,$00,$00,$00,$00,$0C,$0F,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0F,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$07,$07,$07,$07,$07,$07,$07,$0F,$01,$00,$00,$00,$00,$00
  1413. !byte $00,$00,$00,$00,$00,$00,$00,$0F,$0F,$0A,$0A,$0A,$0F,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$0F,$07,$0F,$07,$0F,$07,$0F,$07,$0F,$07,$00,$00,$00,$00,$00
  1414. !byte $00,$00,$00,$00,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$07,$07,$07,$0F,$0A,$0F,$0A,$07,$07,$0F,$00,$00,$00,$00,$00
  1415. !byte $00,$00,$00,$00,$00,$00,$0B,$00,$00,$00,$0A,$00,$00,$00,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$07,$0F,$0A,$0A,$0A,$0A,$0A,$0F,$07,$07,$00,$00,$00,$00,$00
  1416. !byte $00,$00,$00,$00,$0F,$0F,$00,$08,$0A,$0A,$0A,$0A,$0A,$08,$00,$0F,$0F,$00,$00,$00,$00,$00,$00,$07,$0F,$0F,$0A,$00,$0A,$0A,$0A,$00,$0A,$0F,$0F,$07,$00,$00,$00,$00
  1417. !byte $00,$00,$00,$00,$0F,$00,$0B,$00,$08,$0A,$0A,$0A,$08,$00,$0B,$00,$0F,$00,$00,$00,$00,$00,$00,$07,$07,$0A,$0A,$0A,$0A,$00,$0A,$0A,$0A,$0A,$07,$07,$00,$00,$00,$00
  1418. !byte $00,$00,$00,$0F,$00,$0B,$0B,$0B,$00,$00,$00,$00,$00,$0B,$0B,$0B,$00,$0F,$00,$00,$00,$00,$00,$07,$0F,$09,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$09,$0F,$07,$00,$00,$00,$00
  1419. !byte $00,$00,$00,$00,$0B,$0B,$00,$0B,$0B,$01,$0B,$01,$0B,$0B,$00,$0B,$0B,$00,$00,$00,$00,$00,$00,$0F,$00,$0F,$08,$0A,$0A,$0A,$0A,$0A,$08,$0F,$00,$0F,$00,$00,$00,$00
  1420. !byte $00,$00,$00,$00,$0A,$0A,$00,$0B,$0B,$01,$0B,$01,$0B,$0B,$00,$0A,$0A,$00,$00,$00,$00,$00,$0F,$0B,$0F,$0C,$0C,$02,$0A,$0A,$0A,$02,$0C,$0C,$0F,$0B,$0F,$00,$00,$00
  1421. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$0B,$0F,$0B,$0F,$0B,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$0C,$0C,$0C,$07,$0B,$0B,$0B,$07,$0C,$0C,$0C,$0F,$00,$00,$00,$00
  1422. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$02,$0C,$0C,$0C,$02,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0A,$0A,$00,$0C,$07,$02,$02,$02,$07,$0C,$00,$0A,$0A,$00,$00,$00,$00
  1423. !byte $00,$00,$00,$00,$00,$00,$00,$02,$02,$00,$00,$00,$02,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$07,$05,$05,$05,$07,$0C,$00,$00,$00,$00,$00,$00,$00
  1424. !byte $00,$00,$00,$00,$00,$00,$00,$02,$0B,$00,$00,$00,$0B,$02,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$07,$0B,$0B,$0B,$07,$0C,$00,$00,$00,$00,$00,$00,$00
  1425. !byte $00,$00,$00,$00,$00,$00,$00,$0B,$0B,$00,$00,$00,$0B,$0B,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$06,$00,$00,$00,$06,$0C,$00,$00,$00,$00,$00,$00,$00
  1426. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$06,$00,$00,$00,$06,$06,$00,$0A,$00,$00,$00,$00,$00
  1427. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$09,$09,$00,$00,$00,$09,$09,$00,$0A,$00,$00,$00,$00,$00
  1428. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1429. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B,$00
  1430. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0B
  1431. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1432. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1433.  
  1434.  
  1435. ; Screen data for notes page
  1436. ; There is no colour data for this page
  1437. ; because it has a colour wash effect
  1438. ; that is handled in the interupt code!
  1439.  
  1440. scrramnotes
  1441. !byte $20,$22,$54,$08,$05,$12,$05,$27,$13,$20,$0E,$0F,$20,$10,$0F,$09,$0E,$14,$20,$02,$05,$09,$0E,$07,$20,$07,$12,$0F,$17,$0E,$20,$15,$10,$20,$09,$06,$20,$19,$0F,$15
  1442. !byte $03,$01,$0E,$27,$14,$20,$02,$05,$20,$03,$08,$09,$0C,$04,$09,$13,$08,$20,$13,$0F,$0D,$05,$14,$09,$0D,$05,$13,$2E,$22,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1443. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1444. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$46,$0F,$15,$12,$14,$08,$20,$44,$0F,$03,$14,$0F,$12,$2C,$20,$27,$52,$0F,$02,$0F,$14,$27
  1445. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1446. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1447. !byte $54,$08,$05,$20,$09,$0D,$01,$07,$05,$13,$20,$08,$05,$12,$05,$20,$08,$01,$16,$05,$20,$02,$05,$05,$0E,$20,$10,$09,$18,$05,$0C,$0C,$05,$04,$20,$02,$19,$20,$0D,$19
  1448. !byte $47,$12,$01,$0E,$04,$13,$0F,$0E,$20,$28,$17,$09,$14,$08,$20,$13,$15,$10,$10,$0F,$12,$14,$20,$06,$12,$0F,$0D,$20,$0D,$05,$29,$20,$15,$13,$09,$0E,$07,$20,$0D,$19
  1449. !byte $0E,$05,$17,$20,$03,$12,$0F,$13,$13,$2D,$04,$05,$16,$20,$13,$03,$12,$05,$05,$0E,$20,$05,$04,$09,$14,$0F,$12,$20,$27,$43,$08,$09,$0C,$0C,$45,$44,$27,$2E,$20,$20
  1450. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1451. !byte $47,$12,$05,$05,$14,$09,$0E,$07,$13,$20,$14,$0F,$3A,$20,$20,$4D,$0F,$0C,$0F,$03,$08,$2C,$20,$57,$01,$12,$0C,$0F,$03,$0B,$2C,$20,$12,$05,$04,$02,$01,$03,$0B,$2C
  1452. !byte $54,$2E,$4D,$2E,$52,$2C,$20,$20,$4F,$04,$09,$05,$20,$20,$01,$0E,$04,$20,$01,$0C,$0C,$20,$20,$20,$0F,$14,$08,$05,$12,$20,$0D,$05,$0D,$02,$05,$12,$13,$20,$0F,$06
  1453. !byte $02,$0F,$14,$08,$20,$41,$12,$0B,$01,$0E,$09,$18,$20,$4C,$01,$02,$13,$20,$01,$0E,$04,$20,$43,$0F,$13,$09,$0E,$05,$2E,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1454. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1455. !byte $54,$08,$01,$0E,$0B,$13,$20,$14,$0F,$20,$01,$0C,$0C,$20,$20,$14,$08,$0F,$13,$05,$20,$0F,$0E,$20,$43,$53,$44,$02,$20,$01,$0E,$04,$20,$54,$17,$09,$14,$14,$05,$12
  1456. !byte $17,$08,$0F,$20,$08,$01,$16,$05,$20,$20,$08,$05,$0C,$10,$05,$04,$20,$01,$0E,$04,$20,$20,$13,$15,$10,$10,$0F,$12,$14,$05,$04,$20,$20,$0D,$05,$20,$0F,$16,$05,$12
  1457. !byte $14,$08,$05,$20,$19,$05,$01,$12,$13,$20,$17,$09,$14,$08,$20,$01,$04,$16,$09,$03,$05,$20,$01,$0E,$04,$20,$03,$0F,$0D,$0D,$05,$0E,$14,$13,$21,$20,$20,$20,$20,$20
  1458. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1459. !byte $50,$0C,$05,$01,$13,$05,$20,$16,$09,$13,$09,$14,$2E,$2E,$2E,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1460. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1461. !byte $20,$20,$20,$20,$20,$20,$20,$17,$17,$17,$2E,$01,$12,$0B,$01,$0E,$09,$18,$0C,$01,$02,$13,$2E,$03,$0F,$0D,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1462. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1463. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$17,$17,$17,$2E,$03,$0F,$13,$09,$0E,$05,$2E,$0F,$12,$07,$2E,$15,$0B,$20,$20,$20,$20,$20,$20,$20
  1464. !byte $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1465. !byte $01,$4E,$04,$19,$2F,$41,$4C,$2F,$43,$0F,$13,$09,$0E,$05,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$4A,$15,$0E,$05,$20,$32,$30,$31,$39
  1466.  
  1467.  
  1468. ;Screen data for Vortex screen 1
  1469. scrramvortex1
  1470. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1471. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$E2,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1472. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1473. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$6C,$E4,$E4,$E4,$7B,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1474. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E8,$E8,$E8,$E8,$E8,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1475. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1476. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5B,$DD,$5B,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1477. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1478. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5E,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1479. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1480. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1481. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1482. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1483. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1484. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$62,$62,$62,$20,$20,$62,$62,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1485. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1486. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1487. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1488. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1489. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1490. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1491. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1492. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1493. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1494. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1495.  
  1496. colramvortex1
  1497. !byte $06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06
  1498. !byte $0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B
  1499. !byte $0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B
  1500. !byte $0B,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$06,$06,$06,$06,$06,$0E,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$0B
  1501. !byte $0B,$06,$00,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$06,$06,$06,$06,$06,$06,$06,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$00,$06,$0B
  1502. !byte $0B,$06,$00,$0B,$04,$0B,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$06,$06,$06,$06,$06,$06,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$0B,$04,$0B,$00,$06,$0B
  1503. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$06,$01,$06,$01,$06,$06,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1504. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$06,$0E,$03,$0E,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$0E,$03,$0E,$06,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1505. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$06,$00,$06,$06,$01,$06,$06,$06,$06,$06,$00,$06,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1506. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$06,$06,$06,$06,$06,$06,$06,$06,$0E,$06,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1507. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$06,$06,$06,$06,$06,$06,$06,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1508. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$06,$06,$06,$06,$06,$06,$06,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1509.  
  1510. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$06,$06,$06,$06,$06,$06,$06,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1511. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$06,$06,$06,$06,$06,$06,$06,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1512. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$06,$00,$00,$06,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1513. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$06,$0E,$01,$0E,$0E,$0E,$0E,$01,$0E,$06,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1514. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$0E,$03,$0E,$06,$00,$06,$0E,$01,$01,$01,$01,$0E,$06,$00,$06,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1515. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$0E,$0E,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1516. !byte $0B,$06,$00,$0B,$04,$0B,$00,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$00,$00,$00,$00,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B
  1517. !byte $0B,$06,$00,$0B,$04,$0B,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$0B,$04,$0B,$00,$06,$0B
  1518. !byte $0B,$06,$00,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$03,$03,$03,$03,$03,$03,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$00,$06,$0B
  1519. !byte $0B,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$0B
  1520. !byte $0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B
  1521. !byte $0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B
  1522. !byte $06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06
  1523.  
  1524.  
  1525. ;Screen data for Vortex screen 2
  1526. scrramvortex2
  1527. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1528. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1529. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1530. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$E2,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1531. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$7E,$A0,$7C,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1532. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$6C,$E4,$E4,$E4,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1533. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E8,$E8,$E8,$E8,$E8,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1534. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1535. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5B,$DD,$5B,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1536. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1537. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5E,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1538. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1539.  
  1540. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1541. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1542. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1543. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1544. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$62,$62,$62,$A0,$62,$62,$62,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1545. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1546. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1547. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1548. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1549. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1550. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1551. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1552. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1553.  
  1554. colramvortex2
  1555. !byte $06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06
  1556. !byte $0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B
  1557. !byte $04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04
  1558. !byte $04,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$04
  1559. !byte $04,$06,$00,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$01,$01,$01,$01,$01,$01,$01,$03,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$00,$06,$04
  1560. !byte $04,$06,$00,$04,$0E,$04,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$0E,$0E,$0E,$0E,$0E,$06,$06,$06,$06,$06,$00,$06,$0E,$03,$0E,$06,$00,$04,$0E,$04,$00,$06,$04
  1561. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$00,$06,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1562. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$06,$0E,$01,$0E,$06,$00,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1563. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$06,$00,$06,$06,$0B,$0B,$0B,$06,$06,$01,$06,$01,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1564. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1565. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$0B,$06,$00,$00,$06,$06,$01,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1566. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$06,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1567. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$06,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1568. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$06,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1569. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$0B,$06,$00,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1570. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$06,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1571. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$06,$00,$06,$06,$0B,$0B,$0B,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1572. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$00,$06,$0E,$01,$0E,$06,$00,$06,$06,$06,$06,$06,$06,$00,$06,$0E,$01,$0E,$06,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1573. !byte $04,$06,$00,$04,$0E,$04,$00,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$00,$00,$00,$00,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$00,$04,$0E,$04,$00,$06,$04
  1574. !byte $04,$06,$00,$04,$0E,$04,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$04,$0E,$04,$00,$06,$04
  1575. !byte $04,$06,$00,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$01,$01,$01,$01,$01,$01,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$00,$06,$04
  1576. !byte $04,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$04
  1577. !byte $04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04
  1578. !byte $0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B
  1579. !byte $06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0E,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06
  1580.  
  1581.  
  1582. ;Screen data for Vortex screen 3
  1583. scrramvortex3
  1584. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1585. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1586. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1587. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1588. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1589. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1590. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1591. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1592. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$E2,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1593. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$7E,$A0,$7C,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1594. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E4,$E4,$E4,$7B,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1595. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E8,$E8,$E8,$E8,$E8,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1596. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1597. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5B,$DD,$5B,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1598. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1599. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5E,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1600. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1601. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1602. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1603. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1604. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1605. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$62,$62,$62,$62,$62,$62,$62,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1606. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1607. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1608. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1609.  
  1610. colramvortex3
  1611. !byte $06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06
  1612. !byte $04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04
  1613. !byte $0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E
  1614. !byte $0E,$04,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$04,$0E
  1615. !byte $0E,$04,$00,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$00,$04,$0E
  1616. !byte $0E,$04,$00,$0E,$03,$0E,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$0E,$03,$0E,$00,$04,$0E
  1617. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$00,$00,$00,$00,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1618. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$0B,$0B,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1619. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$06,$00,$06,$0B,$04,$04,$04,$04,$0B,$06,$00,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1620. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$06,$0B,$04,$0B,$0B,$0B,$0B,$0B,$03,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1621. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$06,$00,$00,$06,$06,$06,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1622. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$00,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1623. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$00,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1624. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$00,$06,$06,$01,$06,$01,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1625. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$06,$00,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1626. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$06,$0B,$04,$0B,$0B,$06,$06,$01,$06,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1627. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$06,$00,$06,$0B,$04,$04,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1628. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$0B,$06,$00,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1629. !byte $0E,$04,$00,$0E,$03,$0E,$00,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$00,$00,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$0E,$01,$0E,$00,$0E,$03,$0E,$00,$04,$0E
  1630. !byte $0E,$04,$00,$0E,$03,$0E,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$00,$06,$0E,$01,$0E,$06,$00,$0E,$03,$0E,$00,$04,$0E
  1631. !byte $0E,$04,$00,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$00,$04,$0E
  1632. !byte $0E,$04,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$04,$0E
  1633. !byte $0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E
  1634. !byte $04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04
  1635. !byte $06,$04,$0E,$04,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06,$00,$06,$04,$0E,$04,$06
  1636.  
  1637.  
  1638. ;Screen data for Vortex screen 4
  1639. scrramvortex4
  1640. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1641. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1642. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1643. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1644. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1645. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1646. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1647. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1648. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1649. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$E2,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1650. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$7E,$A0,$7C,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1651. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$EC,$6C,$E4,$E4,$E4,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1652. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E8,$E8,$E8,$E8,$E8,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1653. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1654. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5B,$DD,$5B,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1655. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1656. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5E,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1657. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1658. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1659. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1660. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1661. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1662. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$62,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1663. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1664. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1665.  
  1666. colramvortex4
  1667. !byte $06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06
  1668. !byte $0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E
  1669. !byte $03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03
  1670. !byte $03,$0E,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$0E,$03
  1671. !byte $03,$0E,$00,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$04,$04,$04,$04,$04,$04,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$00,$0E,$03
  1672. !byte $03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$0E,$01,$0E,$00,$0E,$03
  1673. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$00,$00,$00,$00,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1674. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$04,$04,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1675. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$06,$00,$06,$04,$0E,$0E,$0E,$0E,$04,$06,$00,$06,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1676. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$04,$0E,$04,$04,$04,$04,$0E,$04,$06,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1677. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$03,$04,$06,$00,$00,$06,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1678. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$06,$06,$06,$06,$06,$00,$00,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1679. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$06,$06,$06,$06,$06,$06,$06,$00,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1680. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$06,$06,$06,$06,$06,$06,$06,$00,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1681. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$06,$06,$01,$06,$01,$06,$06,$00,$06,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1682. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$06,$06,$06,$06,$06,$06,$06,$04,$04,$0E,$04,$06,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1683. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$06,$06,$01,$06,$06,$06,$06,$0E,$0E,$04,$06,$00,$06,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1684. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$00,$06,$0B,$06,$06,$06,$06,$06,$06,$06,$04,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1685. !byte $03,$0E,$00,$0E,$01,$0E,$00,$0B,$0B,$06,$06,$00,$06,$06,$06,$06,$06,$06,$06,$06,$00,$00,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$00,$0E,$01,$0E,$00,$0E,$03
  1686. !byte $03,$0E,$00,$0E,$01,$0E,$00,$06,$0B,$0B,$06,$06,$00,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$0B,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$0E,$01,$0E,$00,$0E,$03
  1687. !byte $03,$0E,$00,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$06,$04,$04,$04,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$00,$0E,$03
  1688. !byte $03,$0E,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$0B,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$0E,$03
  1689. !byte $03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03
  1690. !byte $0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E
  1691. !byte $06,$0E,$03,$0E,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06,$00,$06,$0E,$03,$0E,$06
  1692.  
  1693.  
  1694. ;Screen data for Vortex screen 5
  1695. scrramvortex5
  1696. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1697. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1698. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1699. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1700. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E2,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1701. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$7E,$A0,$7C,$FB,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1702. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E4,$E4,$E4,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1703. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$6C,$E8,$E8,$E8,$E8,$E8,$7B,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1704. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1705. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5B,$DD,$5B,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1706. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1707. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5E,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1708. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1709. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1710. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$A0,$DD,$A0,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1711. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$E5,$5F,$DD,$E9,$EA,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1712. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$E1,$C0,$C0,$C0,$C0,$C0,$61,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1713. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$62,$62,$62,$62,$62,$62,$62,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1714. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1715. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1716. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1717. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1718. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1719. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1720. !byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
  1721.  
  1722. colramvortex5
  1723. !byte $06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06
  1724. !byte $0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E
  1725. !byte $01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01
  1726. !byte $01,$0E,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$04,$04,$04,$04,$04,$04,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$0E,$01
  1727. !byte $01,$0E,$00,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$00,$0E,$01
  1728. !byte $01,$0E,$00,$0B,$0B,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$03,$04,$04,$04,$04,$04,$04,$04,$04,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$0B,$0B,$00,$0E,$01
  1729. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$06,$00,$06,$06,$06,$06,$06,$00,$00,$00,$00,$00,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1730. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$0E,$0E,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1731. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$03,$03,$03,$03,$0E,$06,$00,$06,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1732. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$01,$06,$01,$06,$06,$0E,$0E,$0E,$0E,$03,$0E,$06,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1733. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$06,$00,$00,$06,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1734. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$01,$06,$06,$06,$06,$00,$00,$00,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1735. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$00,$00,$00,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1736. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$00,$00,$00,$00,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1737. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$06,$00,$00,$06,$0E,$03,$0E,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1738. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$0E,$0E,$0E,$0E,$03,$0E,$06,$00,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1739. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$06,$06,$06,$06,$06,$06,$03,$03,$03,$03,$0E,$06,$00,$06,$04,$0E,$04,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1740. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$00,$06,$04,$0E,$04,$06,$06,$06,$0E,$0E,$0E,$0E,$06,$00,$06,$04,$0E,$04,$06,$00,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1741. !byte $01,$0E,$00,$0B,$0B,$06,$00,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$06,$00,$00,$00,$00,$00,$00,$06,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$00,$06,$0B,$0B,$00,$0E,$01
  1742. !byte $01,$0E,$00,$0B,$0B,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$04,$04,$04,$04,$04,$04,$04,$04,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$0B,$0B,$00,$0E,$01
  1743. !byte $01,$0E,$00,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$00,$0E,$01
  1744. !byte $01,$0E,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$04,$04,$04,$04,$04,$04,$04,$04,$06,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$0E,$01
  1745. !byte $01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01
  1746. !byte $0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E
  1747. !byte $06,$0E,$01,$0E,$06,$00,$06,$0B,$0B,$06,$06,$00,$06,$0B,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$0B,$06,$00,$06,$06,$0B,$0B,$06,$00,$06,$0E,$01,$0E,$06
  1748.  
  1749.  
  1750. ; Byte store buffer for screen and colour RAM data!
  1751. ; Blank at the starts, but will be populated when each screen is
  1752. ; copied here and then used by the print screen subroutine!
  1753.  
  1754. screen_store
  1755. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1756. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1757. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1758. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1759. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1760. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1761. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1762. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1763. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1764. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1765. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1766. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1767. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1768. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1769. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1770. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1771. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1772. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1773. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1774. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1775. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1776. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1777. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1778. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1779. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1780.  
  1781. colour_store
  1782. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1783. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1784. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1785. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1786. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1787. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1788. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1789. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1790. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1791. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1792. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1793. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1794. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1795. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1796. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1797. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1798. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1799. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1800. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1801. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1802. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1803. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1804. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1805. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1806. !byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  1807.  
  1808.  
  1809. ; Note page colour wash tables called from irq code
  1810.  
  1811. wash_col_off
  1812.         !byte $00,$01,$02,$01,$00,$01,$02,$01
  1813.         !byte $08,$07,$06,$05,$04,$03,$02,$04
  1814.         !byte $06,$08,$0a,$0c,$0e,$00,$0f,$0e
  1815.         !byte $0d,$0c,$0b,$0a,$09,$08,$07,$06
  1816.         !byte $0c,$0c,$0b,$0a,$0b,$0c,$0c,$0e      
  1817.        
  1818. wash_pulse
  1819.         !byte $06,$06,$04,$0e,$0e,$03,$01,$01
  1820.         !byte $03,$01,$01,$03,$0e,$0e,$04,$06          
  1821.        
  1822. ; That's all folks!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement