U * COPY LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!   1  X A X A  COLOR X A } 8 > REM  8 > OPEN  9 A REM REM line numbering breaks here! REM A COLOR  A COLOR  USING  PUT  USING  OPEN  USING  USING  PUT  USING  TAB( Aa A COLOR  A COLOR  > OPEN  > > OPEN  > REM  >} X REM  X OPEN  X REM  X} 7 X COLOR  11  MERGE  REM REM line numbering breaks here! REM A COLOR  A} X REM  7 X COLOR  11 } 5 FOR } 9 USING } REM REM line numbering breaks here! REM A} >} A A COLOR  A} > REM  > OPEN  X A COLOR  4 CLS  COLOR  9 USING  PUT  REM REM line numbering breaks here! REM USING  OPEN  USING  USING  PUT  USING  TAB( Aa USING  COLOR  A COLOR  > COLOR  7 X COLOR  8 > OPEN  REM REM line numbering breaks here! REM > > OPEN  ($ee) REM  6 ($ee)} 7 X REM  REM REM line numbering breaks here! REM X OPEN  7 X REM  9 A} REM REM line numbering breaks here! REM A COLOR  9 USING } 11  REM  REM REM line numbering breaks here! REM }  FOR  COLOR  5 FOR MERGE  7 X COLOR ; 3 PSET  COLOR  7 X REM REM line numbering breaks here! REM Xa X ($fa) X Xa ($ee) ($fa) ($ee) ($ee) PUT  ($ee) -a X PUT  X TAB( -a - >/ > REM  >/ } >} > REM  >/ > > PUT  8 > TAB( 9 Aa 11  TAB( 10 c PUT  11  TAB( 6 ($ee)} 8 >/ 11  5 FOR  9 USING  REM REM line numbering breaks here! REM A  COLOR   MERGE  A COLOR  9 USING  PUT  12 Z COLOR  REM REM line numbering breaks here! REM Z MERGE  USING  COLOR  A > OPEN  7 X REM  11 } REM REM line numbering breaks here! REM  COLOR   MERGE   COLOR  >  FOR   FOR Z  FOR MERGE  5 FOR  COLOR  6 ($ee)} REM REM line numbering breaks here! REM ($ee) REM  6 - OPEN  7 X REM  REM REM line numbering breaks here! REM ($ee)} 6 ($ee)} 7 X REM  REM REM line numbering breaks here! REM X PUT   CLS  COLOR  4 CLS MERGE X A  COLOR  FOR A  COLOR  PSET A  COLOR ($FFFF) REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A} Z A REM  A OPEN Z> Z> PUT MERGE USING  COLOR P OPEN  COLOR P REM  P} USING Zs REM USING Zs COLOR USING As MERGE USING > NOT  COLOR USING > NOT } USING > NOT   >w MERGE >w} COLOR >w OPEN MERGE > NOT  REM MERGE > NOT } ($ee) NOT  REM X DRIVE  COLOR X DRIVE } MERGE X DRIVE  REM  COLOR X NEXT  COLOR X NEXT  OPEN MERGE X NEXT  OPEN  COLOR Zs PUT  COLOR Zs} Zs REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE  USING  NOT  COLOR  REM  PSET , COLOR  REM w, COLOR Z OPEN ,}>w, COLOR >, MERGE A NOT , COLOR A OPEN , > OPEN w, X REM  PSET , ($ee)} NOT  ($ee)} NOT  Z($ee)} NOT  MERGE } NOT } } NOT  COLOR Z} NOT } MERGE REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM  COLOR  NOT  OPEN MERGE > NOT } MERGE > NOT  MERGE USING > NOT   ($ee) NOT  MERGE ($ee) NOT } ($ee) NOT  OPEN MERGE > NOT  REM MERGE > NOT } MERGE  NOT  REM  REM  PSET  COLOR  COLOR  REM  PSET } COLOR  REM  PSET  REM  COLOR  REM w COLOR  REM w OPEN  COLOR  REM w OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa COLOR P COLOR P REM MERGE P COLOR Z REM } Z REM  REM  COLOR  REM  Z Z}s Z}s Z REM s OPEN  COLOR  OPEN s REM MERGE  REM  NOT } MERGE  REM  NOT  COLOR  REM  NOT   USING } NOT  COLOR USING } NOT  MERGE USING } NOT  COLOR A COLOR  DRIVE  REM A COLOR  DRIVE } A COLOR  DRIVE  REM  COLOR  PSET   COLOR  PSET  OPEN MERGE  COLOR  PSET  OPEN  COLOR Z PUT  COLOR Z} Z REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NEXT } Z A NEXT  REM  A NEXT  OPEN Z> Z> PUT MERGE USING  COLOR P OPEN  COLOR P REM  P} USING Zs REM USING Zs COLOR USING As MERGE USING > NOT  COLOR USING > NOT } USING > NOT   >w MERGE >w} COLOR >w OPEN MERGE > NOT  REM MERGE > NOT } ($ee) NOT  REM X PSET  COLOR X PSET } MERGE X PSET  REM  COLOR X COLOR X OPEN MERGE X OPEN  COLOR Zs PUT  COLOR Zs} Zs REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE USING > NOT  COLOR  COLOR A DRIVE  REM  COLOR A DRIVE  COLOR A DRIVE a REM  PSET  REM  PSET  REM  COLOR  PSET  COLOR  REM REM line numbering breaks here! REM 3602 REM  REM REM line numbering breaks here! REM 3604 / COLOR 5646  MERGE } NOT   } NOT  Z } NOT  MERGE }s} }s RESTORE }s RESTORE  REM P REM  REM P}  REM P} Z OPEN  OPEN Z OPEN  REM  OPEN  OPEN Z OPEN } Z OPEN } Z OPEN  PSET  Z USING  OPEN  PSET  USING > OPEN w > OPEN w > OPEN  Z> OPEN }  REM  NOT   REM  NOT  OPEN Z REM  NOT   REM P REM  REM P RESTORE  OPEN P RESTORE P Z Z REM  MERGE Z REM  RESTORE  REM } USING } OPEN USING } REM Z} OPEN }} SOUND  PUT }} SOUND  RESTORE } SOUND } `,} ` PUT } ` PUT  OPEN }9 ($fa) OPEN }9  REM }9 ($fa) OPEN MERGE  TAB( PUT  OPEN MERGE  TAB( OPEN } MERGE  TAB(} MERGE USING  NEXT  REM MERGE USING  NEXT  OPEN MERGE USING  NEXT ,} ` PUT } ` RESTORE ` OPEN } MERGE u REM } MERGE u}} MERGE u Z A REM REM line numbering breaks here! REM  NEXT } A 3599 RESTORE A 35598 }> OPEN  USING > OPEN  Z> OPEN } REM REM line numbering breaks here! REM  OPEN   OPEN  19 OPEN  REM REM line numbering breaks here! REM  COLOR P, 6324 s OPEN  COLOR  PUT s COLOR  PUT s PUT  OPEN  PUT a OPEN  PUT , OPEN  PUT a OPEN  PUT "($f0) OPEN  PUT  ($fa) OPEN  PUT  ($fa),E'7,E,E'7, NOT  ($fa), NOT , PUT  NOT ,, NOT  REM  PSET  PUT  REM  PSET , REM  PSET  PUT  COLOR  OPEN sa COLOR  OPEN s, COLOR  OPEN sa COLOR  OPEN  PUT  COLOR  OPEN  OPEN  COLOR  OPEN  COLOR Z REM REM line numbering breaks here! REM s} Z sx Z s}  USING E OPEN  USING E REM  USING E OPEN  USING  NOT }  USING  NOT   USING > NOT   AX PSET  Z AX PSET   AX PSET  Z USING Xs USING USING Xs  USING Xs Z USING  COLOR USING 14 MERGE  REM REM line numbering breaks here! REM 3598 COLOR  REM REM line numbering breaks here! REM 3602 REM  20494 } MERGE REM REM line numbering breaks here! REM 3602 REM  REM  DRIVE  COLOR  REM  DRIVE }  REM  DRIVE  REM  COLOR  REM  PSET  COLOR  REM  PSET  OPEN MERGE  REM  PSET  OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa REM  NEXT  REM  NEXT  REM  COLOR  NEXT  COLOR Z} Z REM  OPEN Z OPEN  Z OPEN  PUT MERGE  OPEN  COLOR  REM P OPEN  COLOR  REM P REM  COLOR  REM P} Z REM s REM Z REM s COLOR Z REM s MERGE } NOT   } NOT  Z c} NOT  MERGE } NOT } } NOT  COLOR Z} NOT } MERGE REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM  COLOR REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3600 } MERGE REM REM line numbering breaks here! REM 3593 USING MERGE 49166  > NOT  MERGE > NOT } > NOT  OPEN ($ee) NOT  REM ($ee) NOT } MERGE  NOT  REM  REM  PSET  COLOR  COLOR  REM  PSET } COLOR  REM  PSET  REM  COLOR  REM w COLOR  REM w OPEN  COLOR  REM w OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa COLOR P COLOR P REM MERGE P COLOR Z REM } Z REM  REM  COLOR  REM  Z Z}s Z}s OPEN  COLOR  REM s OPEN  COLOR  OPEN s REM MERGE  REM  NOT } MERGE  REM  NOT  COLOR Z REM  NOT   USING } NOT  COLOR USING } NOT  MERGE USING } NOT  COLOR A COLOR  DRIVE  REM A COLOR  DRIVE  COLOR  COLOR  DRIVE a REM  COLOR  DRIVE  REM  COLOR  DRIVE  REM  COLOR  COLOR  DRIVE  COLOR  COLOR  DRIVE  REM  COLOR  DRIVE  COLOR  COLOR  DRIVE , REM REM REM line numbering breaks here! REM 3606  REM REM REM line numbering breaks here! REM 3602 REM  REM REM REM line numbering breaks here! REM  DRIVE  COLOR  DRIVE  REM 1 DRIVE  COLOR REM REM line numbering breaks here! REM 3608 PUT Z REM REM line numbering breaks here! REM 3603 OPEN Z REM REM line numbering breaks here! REM 3600 } USING REM REM line numbering breaks here! REM 3597 MERGE REM REM line numbering breaks here! REM 470 } REM REM line numbering breaks here! REM 470  OPEN REM REM line numbering breaks here! REM > DRIVE   DRIVE  REM 1 DRIVE  COLOR  REM REM line numbering breaks here! REM  DRIVE  Z A 3598 COLOR A REM REM line numbering breaks here! REM 3602 REM Z REM REM line numbering breaks here! REM 3603 OPEN - REM REM line numbering breaks here! REM  DRIVE }- 3597 MERGE > REM REM line numbering breaks here! REM 3595 ($ee) REM REM line numbering breaks here! REM 3597 MERGE ($ee) REM REM line numbering breaks here! REM  DRIVE }  3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM MERGE REM REM line numbering breaks here! REM  DRIVE }   DRIVE  REM  COLOR  DRIVE  COLOR  COLOR  DRIVE } COLOR  DRIVE  REM  COLOR  PSET  COLOR  PSET  OPEN MERGE  PSET  OPEN  COLOR Z PUT  COLOR Zs} Zs COLOR  COLOR Pa COLOR  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE USING > NOT  COLOR A FOR  DRIVE PAINT ($FFFF) FROM 255 ($FFFF)($FF40) REM REM line numbering breaks here! REM THEN ($FFFF) 255 ($FFFF) 511 ($FFFF) REM REM line numbering breaks here! REM 191 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM RESET ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM @ THEN ($FFFF) 255 ($FFFF)($FF40) REM REM line numbering breaks here! REM THEN ($FFFF) 191 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)U REM REM line numbering breaks here! REM 9 DRIVE LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!     DRIVE  DRIVE  DRIVE  DRIVE  COLOR  DRIVE }  DRIVE  REM  COLOR  PSET  COLOR  PSET  OPEN MERGE  PSET  OPEN  COLOR Z PUT  COLOR Z} Z REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A} Z A REM  A OPEN Z> Z> PUT MERGE USING  COLOR P OPEN  COLOR P REM  P} USING Zs REM USING Zs COLOR USING As MERGE USING > NOT  COLOR USING > NOT } USING > NOT   >w MERGE >w} COLOR >w OPEN MERGE > NOT  REM MERGE > NOT } ($ee) NOT  REM X DRIVE  COLOR X DRIVE } MERGE X DRIVE  REM  COLOR X NEXT  COLOR X NEXT  OPEN MERGE X NEXT  OPEN  COLOR Zs PUT  COLOR Zs} Zs REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE USING > NOT  COLOR  A DRIVE  REM  A DRIVE  COLOR A DRIVE a REM  DRIVE  REM  DRIVE  REM  COLOR  DRIVE  COLOR 1 DRIVE  REM 3 PSET   1 DRIVE  COLOR  REM  PSET , COLOR  REM w, COLOR Z OPEN ,}>w, COLOR >, MERGE A NOT ,X A OPEN , > OPEN w, X REM  PSET , ($ee)} NOT  ($ee)} NOT  Z($ee)} NOT  MERGE } NOT } } NOT  COLOR Z} NOT } MERGE REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM  COLOR  NOT  OPEN MERGE > NOT } MERGE > NOT  MERGE USING > NOT   ($ee) NOT  MERGE ($ee) NOT } ($ee) NOT  OPEN MERGE > NOT  REM MERGE > NOT } MERGE  NOT  REM  REM  PSET  COLOR  COLOR  REM  PSET } COLOR  REM  PSET  REM  COLOR  REM w COLOR  REM w OPEN  COLOR  REM w OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa COLOR P COLOR P REM MERGE P COLOR Z REM } Z REM  REM  COLOR  REM  Z Z}s Z}s Z REM s OPEN  COLOR  OPEN s REM MERGE  REM  NOT } MERGE  REM  NOT  COLOR  REM  NOT   USING } NOT  COLOR USING } NOT  MERGE USING } NOT  COLOR A COLOR  DRIVE  REM A COLOR  DRIVE }  COLOR  DRIVE  REM  COLOR  COLOR  PSET  COLOR  COLOR  PSET  OPEN MERGE  COLOR  PSET  OPEN  COLOR Z PUT  COLOR Z} Z REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A} Z A REM  A OPEN Z> Z> PUT MERGE USING  COLOR P OPEN  COLOR P REM  P} USING Zs REM USING Zs COLOR USING As MERGE USING > NOT  COLOR USING > NOT } USING > NOT   >w MERGE >w} COLOR >w OPEN MERGE > NOT  REM MERGE > NOT } ($ee) NOT  REM X DRIVE  COLOR X DRIVE } MERGE X DRIVE  REM  COLOR X NEXT  COLOR X NEXT  OPEN MERGE X NEXT  OPEN  COLOR Zs PUT  COLOR Zs} Zs REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE  USING  NOT  COLOR  REM  PSET , COLOR  REM w, COLOR Z OPEN ,}>w, COLOR >, MERGE A NOT , COLOR A OPEN , > OPEN w, X REM  PSET , ($ee)} NOT  ($ee)} NOT  Z($ee)} NOT  MERGE } NOT } } NOT  COLOR Z} NOT } MERGE REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM  COLOR  NOT  OPEN MERGE > NOT } MERGE > NOT  MERGE USING > NOT   ($ee) NOT  MERGE ($ee) NOT } ($ee) NOT  OPEN MERGE > NOT  REM MERGE > NOT } MERGE  NOT  REM  REM  PSET  COLOR  COLOR  REM  PSET } COLOR  REM  PSET  REM  COLOR  REM w COLOR  REM w OPEN  COLOR  REM w OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa COLOR P COLOR P REM MERGE P COLOR Z REM } Z REM  REM  COLOR  REM  Z Z}s Z}s Z REM s OPEN  COLOR  OPEN s REM MERGE  REM  NOT } MERGE  REM  NOT  COLOR  REM  NOT   USING } NOT  COLOR USING } NOT  MERGE USING } NOT  COLOR A COLOR  DRIVE  REM A COLOR  DRIVE } A COLOR  DRIVE  REM  COLOR  PSET   COLOR  PSET  OPEN MERGE  COLOR  PSET  OPEN  COLOR Z PUT  COLOR Z} Z REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NEXT } Z A NEXT  REM  A NEXT  OPEN Z> Z> PUT MERGE USING  COLOR P OPEN  COLOR P REM  P} USING Zs REM USING Zs COLOR USING As MERGE USING > NOT  COLOR USING > NOT } USING > NOT   >w MERGE >w} COLOR >w OPEN MERGE > NOT  REM MERGE > NOT } ($ee) NOT  REM X PSET  COLOR X PSET } MERGE X PSET  REM  COLOR X COLOR X OPEN MERGE X OPEN  COLOR Zs PUT  COLOR Zs} Zs REM  COLOR Pa REM  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE USING > NOT  COLOR  COLOR A DRIVE  REM  COLOR A DRIVE  COLOR A DRIVE a REM  PSET  REM  PSET  REM  COLOR  PSET  COLOR  REM REM line numbering breaks here! REM 3602 REM  REM REM line numbering breaks here! REM 3604 / COLOR 5646  MERGE } NOT   } NOT  Z } NOT  MERGE }s} }s RESTORE }s RESTORE  REM P REM  REM P}  REM P} Z OPEN  OPEN Z OPEN  REM  OPEN  OPEN Z OPEN } Z OPEN } Z OPEN  PSET  Z USING  OPEN  PSET  USING > OPEN w > OPEN w > OPEN  Z> OPEN }  REM  NOT   REM  NOT  OPEN Z REM  NOT   REM P REM  REM P RESTORE  OPEN P RESTORE P Z Z REM  MERGE Z REM  RESTORE  REM } USING } OPEN USING } REM Z} OPEN }} SOUND  PUT }} SOUND  RESTORE } SOUND } `,} ` PUT } ` PUT  OPEN }9 ($fa) OPEN }9  REM }9 ($fa) OPEN MERGE  TAB( PUT  OPEN MERGE  TAB( OPEN } MERGE  TAB(} MERGE USING  NEXT  REM MERGE USING  NEXT  OPEN MERGE USING  NEXT ,} ` PUT } ` RESTORE ` OPEN } MERGE u REM } MERGE u}} MERGE u Z A REM REM line numbering breaks here! REM  NEXT } A 3599 RESTORE A 35598 }> OPEN  USING > OPEN  Z> OPEN } REM REM line numbering breaks here! REM  OPEN   OPEN  19 OPEN  REM REM line numbering breaks here! REM  COLOR P, 6324 s OPEN  COLOR  PUT s COLOR  PUT s PUT  OPEN  PUT a OPEN  PUT , OPEN  PUT a OPEN  PUT "($f0) OPEN  PUT  ($fa) OPEN  PUT  ($fa),E'7,E,E'7, NOT  ($fa), NOT , PUT  NOT ,, NOT  REM  PSET  PUT  REM  PSET , REM  PSET  PUT  COLOR  OPEN sa COLOR  OPEN s, COLOR  OPEN sa COLOR  OPEN  PUT  COLOR  OPEN  OPEN  COLOR  OPEN  COLOR Z REM REM line numbering breaks here! REM s} Z sx Z s}  USING E OPEN  USING E REM  USING E OPEN  USING  NOT }  USING  NOT   USING > NOT   AX PSET  Z AX PSET   AX PSET  Z USING Xs USING USING Xs  USING Xs Z USING  COLOR USING 14 MERGE  REM REM line numbering breaks here! REM 3598 COLOR  REM REM line numbering breaks here! REM 3602 REM  20494 } MERGE REM REM line numbering breaks here! REM 3602 REM  REM  DRIVE  COLOR  REM  DRIVE }  REM  DRIVE  REM  COLOR  REM  PSET  COLOR  REM  PSET  OPEN MERGE  REM  PSET  OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa REM  NEXT  REM  NEXT  REM  COLOR  NEXT  COLOR Z} Z REM  OPEN Z OPEN  Z OPEN  PUT MERGE  OPEN  COLOR  REM P OPEN  COLOR  REM P REM  COLOR  REM P} Z REM s REM Z REM s COLOR Z REM s MERGE } NOT   } NOT  Z c} NOT  MERGE } NOT } } NOT  COLOR Z} NOT } MERGE REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM  COLOR REM REM line numbering breaks here! REM 3603 OPEN MERGE REM REM line numbering breaks here! REM 3600 } MERGE REM REM line numbering breaks here! REM 3593 USING MERGE 49166  > NOT  MERGE > NOT } > NOT  OPEN ($ee) NOT  REM ($ee) NOT } MERGE  NOT  REM  REM  PSET  COLOR  COLOR  REM  PSET } COLOR  REM  PSET  REM  COLOR  REM w COLOR  REM w OPEN  COLOR  REM w OPEN  COLOR  OPEN  PUT  COLOR  OPEN } OPEN  COLOR Pa COLOR P TAB(}Pa COLOR P COLOR P REM MERGE P COLOR Z REM } Z REM  REM  COLOR  REM  Z Z}s Z}s OPEN  COLOR  REM s OPEN  COLOR  OPEN s REM MERGE  REM  NOT } MERGE  REM  NOT  COLOR Z REM  NOT   USING } NOT  COLOR USING } NOT  MERGE USING } NOT  COLOR A COLOR  DRIVE  REM A COLOR  DRIVE  COLOR  COLOR  DRIVE a REM  COLOR  DRIVE  REM  COLOR  DRIVE  REM  COLOR  COLOR  DRIVE  COLOR  COLOR  DRIVE  REM  COLOR  DRIVE  COLOR  COLOR  DRIVE , REM REM REM line numbering breaks here! REM 3606  REM REM REM line numbering breaks here! REM 3602 REM  REM REM REM line numbering breaks here! REM  DRIVE  COLOR  DRIVE  REM 1 DRIVE  COLOR REM REM line numbering breaks here! REM 3608 PUT Z REM REM line numbering breaks here! REM 3603 OPEN Z REM REM line numbering breaks here! REM 3600 } USING REM REM line numbering breaks here! REM 3597 MERGE REM REM line numbering breaks here! REM 470 } REM REM line numbering breaks here! REM 470  OPEN REM REM line numbering breaks here! REM > DRIVE   DRIVE  REM 1 DRIVE  COLOR  REM REM line numbering breaks here! REM  DRIVE  Z A 3598 COLOR A REM REM line numbering breaks here! REM 3602 REM Z REM REM line numbering breaks here! REM 3603 OPEN - REM REM line numbering breaks here! REM  DRIVE }- 3597 MERGE > REM REM line numbering breaks here! REM 3595 ($ee) REM REM line numbering breaks here! REM 3597 MERGE ($ee) REM REM line numbering breaks here! REM  DRIVE }  3603 OPEN MERGE REM REM line numbering breaks here! REM 3602 REM MERGE REM REM line numbering breaks here! REM  DRIVE }   DRIVE  REM  COLOR  DRIVE  COLOR  COLOR  DRIVE } COLOR  DRIVE  REM  COLOR  PSET  COLOR  PSET  OPEN MERGE  PSET  OPEN  COLOR Z PUT  COLOR Zs} Zs COLOR  COLOR Pa COLOR  COLOR P TAB(} COLOR Pa REM Z REM Z REM  COLOR Z COLOR Z A NOT } Z A NOT  REM  COLOR A NOT  Z Z>s Z>s OPEN MERGE >s REM  COLOR Z DEF } COLOR Z DEF  COLOR Z A DEF   > NOT  COLOR > NOT  MERGE USING > NOT  COLOR A FOR  DRIVE PAINT 255 ($FFFF) REM REM line numbering breaks here! REM U n TRON LINE  fHb($fc) SOUND }c\ dU OFF USING erE 12422 AUDIO 4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!    } E } USING E }  }  7 x  USING E}  USING E COLOR USING > 3350 USING > 4221 Z USING E}>E REM REM line numbering breaks here! REM } Z USING }> 7 } Z USING  PSET }> PSET REM REM line numbering breaks here! REM }  USING  USING 7  OPEN E 22  OPEN } TRON E OPEN } TRON 5019 } TRON 5634 } TRON E OPEN } TRON Ex TRON USING REM REM line numbering breaks here! REM } TRON USING }^ }  ^x x    COLOR ^  COLOR  TO ^  22   TO REM REM line numbering breaks here! REM  PUT  22  PUT Z REM REM line numbering breaks here! REM  PUT  OPEN  COLOR  PUT  OPEN  COLOR  MERGE  NOT  OPEN MERGE  NOT }  Z 7  PUT  22  PUT Z REM REM line numbering breaks here! REM  PUT  OPEN  COLOR  PUT Z 7  NOT 22   NOT REM REM line numbering breaks here! REM 531 OPEN MERGE REM REM line numbering breaks here! REM  OPEN MERGE  NOT  OPEN  PSET  OPEN   PSET  OPEN } PSET 7 x   PSET  OPEN   PSET  OPEN   REM REM line numbering breaks here! REM }    OPEN  PSET  OPEN   PSET  OPEN } 7 x   PSET  OPEN   PSET  OPEN   REM REM line numbering breaks here! REM  OPEN   PSET s 29   TO s   TO s COLOR Z USING 3760 Z USING s}  USING E}>E 4221  USING REM REM line numbering breaks here! REM }E s 29  OPEN }  USING  COLOR Z USING > COLOR Zs> COLOR >s REM REM line numbering breaks here! REM  COLOR Z USING  COLOR > s 29 } MERGE TRON Px  Px  /}  /}   REM REM line numbering breaks here! REM  COLOR  TO  COLOR  TO / COLOR  TO /  22 } Z USING REM REM line numbering breaks here! REM } Z USING s COLOR Z USING s COLOR Z USING 3760 Z USING 4221 s 14 }s Z USING x/ 22  COLOR Z/ COLOR Z OPEN  COLOR Z OPEN  COLOR Z REM REM line numbering breaks here! REM  OPEN  COLOR Z  OPEN  22  OPEN USING  REM REM line numbering breaks here! REM  OPEN  COLOR Z } 7  COLOR Z OPEN  COLOR Z OPEN  COLOR Z REM REM line numbering breaks here! REM  OPEN  COLOR Z  OPEN  COLOR Z OPEN USING   OPEN  COLOR Z } 7  PUT  OPEN MERGE  NOT  OPEN MERGE  NOT  USING MERGE REM REM line numbering breaks here! REM  OPEN MERGE Z  OPEN MERGE Z NOT  OPEN MERGE Z NOT } MERGE USING  NOT  COLOR  NOT  TO  PSET   TO  PSET   TO   }   TO }   PSET  PSET   TO  COLOR   TO  PSET   TO  COLOR  s NEXT s 7   TO s COLOR Z USING s COLOR Z USING s COLOR Z USING REM REM line numbering breaks here! REM  COLOR Z USING  PSET s  NEXT s 7   TO s COLOR Z USING s COLOR Z USING REM REM line numbering breaks here! REM  COLOR Z USING  COLOR Z USING s> E > USING E >  >  7 x  USING E}  USING E COLOR USING > 3350 USING > 4221 Z USING E}>E REM REM line numbering breaks here! REM } Z USING }> 7 } Z USING E}>E REM REM line numbering breaks here! REM } Z USING  USING 7  OPEN E 22  OPEN } TRON E OPEN } TRON 5019 } TRON 5634 } TRON E OPEN } TRON Ex TRON USING REM REM line numbering breaks here! REM } TRON USING }^ }  ^x x    COLOR ^  COLOR  TO ^  22   TO REM REM line numbering breaks here! REM  PUT  22  PUT Z REM REM line numbering breaks here! REM  OPEN  COLOR 22  OPEN  COLOR  REM REM line numbering breaks here! REM  MERGE  NOT  OPEN MERGE  FOR  NOT }  Z 7  PUT  22  PUT Z REM REM line numbering breaks here! REM  PUT  OPEN  COLOR  PUT Z 7  NOT 22   NOT REM REM line numbering breaks here! REM 531 OPEN MERGE REM REM line numbering breaks here! REM  OPEN MERGE  NOT  OPEN  PSET  OPEN   PSET  OPEN } 7 x   PSET  OPEN   PSET x   REM REM line numbering breaks here! REM }   PSET  OPEN  PSET  OPEN   PSET  OPEN } 7 x   PSET  OPEN   PSET    OPEN REM REM line numbering breaks here! REM  OPEN   s 29   TO s   TO s COLOR Z USING s COLOR Z USING s}  USING E}>E REM REM line numbering breaks here! REM }  USING }> 7 } Z USING E}>E REM REM line numbering breaks here! REM } Z USING }>E 2817  TO  PSET 3350  TO  PSET    TO  PSET   s OPEN  s  s 4221 USING E REM REM line numbering breaks here! REM } COLOR USING E}  USING E}  USING EY 255 ($FFFF)($FF40) REM REM line numbering breaks here! REM @ 255 ($FFFF)($FF40) REM REM line numbering breaks here! REM THEN ($FFFF) THEN ($FFFF) @ 255 ($FFFF)U REM REM line numbering breaks here! REM 1 KILL LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!   1  a REM Xa REM X 22   REM REM line numbering breaks here! REM     18 REM A 22   REM REM line numbering breaks here! REM   18 REM A 22   a REM Xa REM X, 29 a COLOR  REM REM line numbering breaks here! REM  ,    REM A, 18 REM A REM REM line numbering breaks here! REM  COLOR AX COLOR AX NOT  COLOR AX PSET ; COLOR AX PSET    REM   OPEN    PUT    OPEN   REM  }E } NEXT E >  USING >  USING >s COLOR USING >E} USING >E 14 COLOR  PSET  REM REM line numbering breaks here! REM  COLOR X PSET   A  A  A NOT  COLOR  A PSET   A PSET  E  NEXT E > 5641 USING >  USING >s  >s  USING >E REM REM line numbering breaks here! REM AX PSET  18 REM X 19 OPEN > 22  A 24 PUT USING  521 A PSET  REM REM line numbering breaks here! REM 2110  PSET  REM REM line numbering breaks here! REM  REM X PSET  }E } NEXT E >  USING >  USING >s COLOR USING >E} USING >E 14 COLOR ($ea) COLOR  TO X CREATE  COLOR  TO X CREATE  MERGE USING > 3162 USING > 3549 USING > REM REM line numbering breaks here! REM  14 COLOR  PSET  45065 A PSET  45067  A COLOR  AX 14 COLOR  REM REM line numbering breaks here! REM  COLOR A COLOR  A COLOR  A Z Z USING  COLOR Z USING  Z Z USING  MERGE USING > NOT  COLOR USING > NOT } USING > NOT  MERGE USING > NOT  COLOR  A PSET    REM   OPEN    PUT    OPEN   REM  }E } NEXT E >  USING >  USING >s COLOR USING >E} USING >E 14 COLOR  PSET  REM REM line numbering breaks here! REM  COLOR X PSET   A  A  A NOT  COLOR  A PSET   A PSET  E  NEXT E > 5641 USING >  USING >s  >s  USING >E REM REM line numbering breaks here! REM AX PSET  18 REM X 19 OPEN > 22  A 24 PUT USING  521 A PSET  REM REM line numbering breaks here! REM 2110  PSET  REM REM line numbering breaks here! REM  REM X PSET  }E } NEXT E >  USING > > USING s COLOR USING >E} USING >E  COLOR ($ea) COLOR  TO X CREATE  COLOR  TO X CREATE  MERGE USING > NOT  Z USING > NOT  MERGE USING > NOT  14 COLOR  PSET  45065 A PSET  45067  A COLOR  AX 14 COLOR  REM REM line numbering breaks here! REM  COLOR A  COLOR  A COLOR  AX 14 COLOR  REM REM line numbering breaks here! REM  COLOR USING  COLOR Z USING X COLOR Z USING X MERGE USING > NOT  Z USING > NOT  MERGE USING > NOT  14 COLOR  PSET  45065 A PSET  45067  A COLOR  AX REM REM line numbering breaks here! REM  COLOR  FLREAD s COLOR USING  FLREAD s COLOR Z USING s COLOR Z USING s 14 COLOR  PSET  REM REM line numbering breaks here! REM  COLOR A PSET  COLOR  AE COLOR  AE COLOR  A  A  AX NOT  9 USING s PUT  COLOR ZX 39684 FLREAD s REM  COLOR Zs} ZXs REM REM line numbering breaks here! REM  COLOR A PSET   AX  A PSET   AX PSET  9 A CLS  11  NEXT  13 E 5643  NEXT  REM REM line numbering breaks here! REM  COLOR ($ee)  A PSET   AX  A NOT    A PSET  9 USING s PUT  COLOR ZX REM REM line numbering breaks here! REM 1254 s REM  COLOR ZX REM REM line numbering breaks here! REM } ZX  COLOR A PSET  X 11  PSET   X REM REM line numbering breaks here! REM Z c Z cX Z cX Z Z MERGE X COLOR ZX} MERGE USING  NOT } MERGE ($ee) ($ee) } MERGE } MERGE } MERGE  NOT   18 REM X 19 OPEN > 22  A 24 PUT USING  521 A PSET  REM REM line numbering breaks here! REM 2110  PSET  REM REM line numbering breaks here! REM  REM X PSET  }E } NEXT E >  USING > > USING s COLOR > USING E}> USING E 14 COLOR  PSET  REM REM line numbering breaks here! REM  COLOR X PSET   A  A NOT  COLOR  A PSET   A PSET  E  NEXT E > 5641 USING >  USING >s  >s  USING >E REM REM line numbering breaks here! REM AX PSET  18 REM X 19 OPEN > 22  A 24 PUT USING  521 A PSET  REM REM line numbering breaks here! REM 2110  PSET  REM REM line numbering breaks here! REM  REM X PSET  }w } NEXT E >  USING >  USING >s COLOR USING >E} USING >E  COLOR ($ea) COLOR  TO X CREATE  COLOR  TO X CREATE  MERGE USING > NOT  Z USING > NOT  MERGE USING > NOT  14 COLOR  PSET  45065 A PSET  45067  A COLOR  AX 14 COLOR  REM REM line numbering breaks here! REM  COLOR A COLOR  A COLOR  A COLOR Z USING  COLOR Z USING  COLOR Z USING  MERGE   COLOR  MERGE USING > NOT  Z USING > NOT  MERGE USING > NOT  14 COLOR  PSET  45065 A PSET  45067  A COLOR  AX 14 COLOR  REM REM line numbering breaks here! REM  COLOR A COLOR A  PSET  COLOR A  PSET  COLOR Z USING  COLOR Z USING  COLOR Z USING  MERGE   COLOR  MERGE USING > NOT  Z USING > NOT  MERGE USING > NOT  COLOR  A PSET   14 COLOR  REM  16 } OPEN  18 REM  REM REM line numbering breaks here! REM } OPEN  14 COLOR  REM  REM REM line numbering breaks here! REM } E 2509 > REM REM line numbering breaks here! REM > USING  > USING s > USING w 3 PSET  14 COLOR  REM  16 } OPEN  REM REM line numbering breaks here! REM 5634  PSET  32019 OPEN  PSET  REM REM line numbering breaks here! REM 5634  PSET  REM REM line numbering breaks here! REM } E 2509 > REM REM line numbering breaks here! REM > USING  > USING s > USING w 3 PSET  14 COLOR  REM  16 } OPEN  REM REM line numbering breaks here! REM 5634  PSET  32019 OPEN  PSET  REM REM line numbering breaks here! REM 5634  PSET  REM REM line numbering breaks here! REM } E 2509 > REM REM line numbering breaks here! REM > USING  > USING s > USING w 3 PSET  14 COLOR  REM  16 } OPEN  REM REM line numbering breaks here! REM 5634  PSET  32019 OPEN  PSET  REM REM line numbering breaks here! REM 5634  PSET  REM REM line numbering breaks here! REM } E 2509 > REM REM line numbering breaks here! REM 2509 > MERGE USING >s MERGE USING >E REM REM line numbering breaks here! REM  COLOR  A  NOT  3 PSET ($FFFF) REM REM line numbering breaks here! REM 255 ($FFE5)U REM REM line numbering breaks here! REM - FN LINE  fHb($fc) SOUND }c\ dU OFF USING erE 12422 AUDIO 4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     #$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!    > >>   NOT 8    NOT     NOT     NOT }  COLOR 3 PSET  COLOR A  PSET  COLOR A  PSET   A  PSET   4 ^ COLOR  P Z Z USING  FLREAD  USING REM REM line numbering breaks here! REM  FLREAD    NOT  >  NOT  >  NOT } 2 NOT  OPEN 4  OPEN - REM REM line numbering breaks here! REM 7187 OPEN > 7964  REM X REM REM line numbering breaks here! REM  PSET  OPEN > NEXT E> NEXT E REM AX PSET  COLOR AX PSET } } c>> c>> c>- c>} c> OPEN USING > PUT USING > 2 NOT } MERGE > NOT } MERGE >} MERGE > NOT  MERGE > NOT } > NOT  > NOT  PUT 4  PUT Z USING } USING >} USING >} USING > COLOR Z USING s} Z USING sx  TO  PSET  OPEN  TO  PSET } Z USING   Z USING  COLOR Z USING s} Z USING s  > NOT   > NOT  Z REM REM line numbering breaks here! REM  Z USING > Z USING > Z USING >8    Z USING > Z USING >>>  2 NOT   > NOT   > NOT   > NOT } > NOT  COLOR 7 X COLOR  AX COLOR  AX   AX  4 ^ COLOR  TO ^ Z Z USING  FLREAD * USING USING REM REM line numbering breaks here! REM  FLREAD   2 NOT   > NOT   > NOT > > NOT  OPEN 4  OPEN REM REM line numbering breaks here! REM 1055  OPEN > 7964  REM X REM REM line numbering breaks here! REM  PSET  OPEN > NEXT E> NEXT E REM AX PSET  COLOR AX PSET } } c>} c>} c> c>} USING > OPEN USING > PUT USING > 2 NOT } MERGE > NOT } MERGE > NOT } MERGE >} MERGE > NOT  MERGE > NOT } > NOT  > NOT  PUT 4  PUT Z>} Z>} Z>} Z>} Z>-} Z> COLOR Z USING s} Z USING sx  TO  PSET  OPEN  TO  PSET } Z USING  COLOR Z USING    TO ^ COLOR  TO ^ Z Z USING s OPEN Z USING s 2 NOT  > NOT  > NOT  > NOT  4  REM REM line numbering breaks here! REM  NOT   > NOT   > NOT >> NOT  NOT   2 NOT   > NOT   > NOT   > NOT } > NOT  COLOR 7 X COLOR  AX COLOR  AX   AX  4 ^ COLOR  TO ^ Z Z USING  FLREAD  USING USING REM REM line numbering breaks here! REM  FLREAD   2 NOT   > NOT   > NOT > > NOT  OPEN 4  OPEN REM REM line numbering breaks here! REM 1055  OPEN > 7964  REM X REM REM line numbering breaks here! REM  PSET  OPEN > NEXT E> NEXT E REM AX PSET  COLOR AX PSET } } c>} c>} c> c>} c> OPEN USING > PUT USING > 2 NOT } MERGE > NOT } MERGE > NOT } MERGE >} MERGE > NOT  MERGE > NOT } > NOT  > NOT  PUT 4  PUT Z>} Z>} Z>} Z>} Z>-} Z> COLOR Z USING s} Z USING sx  TO  PSET  OPEN  TO  PSET } Z USING  COLOR Z USING    TO ^ COLOR  TO ^ Z Z USING s OPEN Z USING s 2 NOT  > NOT  > NOT  > NOT  > NOT 8 OPEN Z> Z> OPEN Z>} Z> OPEN ZX8} ZX MERGE > NOT  PUT MERGE > NOT a > NOT U, > NOT  PUT > NOT  > NOT  OPEN Z> Z> OPEN Z>} Z> OPEN ZXq} ZX MERGE > NOT  PUT MERGE > NOT  ($fa)  A NOT Ua COLOR REM REM line numbering breaks here! REM  NOT  PUT Z *  28  PUT c> LINE 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF) REM REM line numbering breaks here! REM U .* LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!     14 COLOR ($ea) 17 x CREATE  REM REM line numbering breaks here! REM } x 15 RESTORE P 17 x/ REM REM line numbering breaks here! REM  OPEN  x 15 RESTORE ($ea) 17 x($ea) REM REM line numbering breaks here! REM  COLOR  x / x/ TRON  x E xE } x }/ x/  OPEN  x xE Q OPEN E x 19 OPEN  RESTORE  30734 COLOR / REM REM line numbering breaks here! REM 3984 P REM REM line numbering breaks here! REM  RESTORE s 30734 COLOR  NOT  REM REM line numbering breaks here! REM  COLOR TRON ($ea)  RESTORE ($ea)  COLOR ($ea) MERGE  14 COLOR  15 RESTORE / REM REM line numbering breaks here! REM  COLOR / MERGE   COLOR  2 ($ea) 15 RESTORE ($ea) REM REM line numbering breaks here! REM  COLOR ($ea) MERGE  14 COLOR  15 RESTORE / REM REM line numbering breaks here! REM  COLOR P 13 MERGE s 14 COLOR  NOT  REM REM line numbering breaks here! REM TRON ($ea) 8 TO  11 TRON X REM REM line numbering breaks here! REM  NEXT  11 TRON X 13  AND  14 COLOR  NOT  15 RESTORE ($ea) REM REM line numbering breaks here! REM x E x  15 RESTORE USING  REM REM line numbering breaks here! REM x  NOT  x  15 RESTORE USING  REM REM line numbering breaks here! REM x / x  15 RESTORE USING  REM REM line numbering breaks here! REM x /  OPEN TRON / 15 RESTORE USING  17 x  14 COLOR ($ea) REM REM line numbering breaks here! REM  COLOR TRON  TO  14 COLOR / REM REM line numbering breaks here! REM  COLOR TRON  TO  2 ($ea) 8 TO ($ea) 11 TRON X 11  NEXT  REM REM line numbering breaks here! REM TRON X/  AND / 14 COLOR  TO  15 RESTORE USING  REM REM line numbering breaks here! REM x E x  15 RESTORE USING  REM REM line numbering breaks here! REM x  NOT  x  15 RESTORE USING  REM REM line numbering breaks here! REM x / x  15 RESTORE USING  REM REM line numbering breaks here! REM 2236 / REM REM line numbering breaks here! REM  RESTORE USING / 13  AND  14 COLOR  TO  REM REM line numbering breaks here! REM TRON ($ea) TRON  TO X CREATE  TRON ^ TRON  TO X PSET  2 ($ea) 8 TO ($ea) 11 TRON X REM REM line numbering breaks here! REM  NEXT  11 TRON X 13  AND  14 COLOR  TO  15 RESTORE USING  REM REM line numbering breaks here! REM x E x  15 RESTORE USING  REM REM line numbering breaks here! REM x  NOT  x  15 RESTORE USING  REM REM line numbering breaks here! REM x / x  15 RESTORE USING  REM REM line numbering breaks here! REM x /  OPEN TRON / 15 RESTORE USING  17 x  14 COLOR ($ea) REM REM line numbering breaks here! REM  COLOR TRON  TO  14 COLOR / REM REM line numbering breaks here! REM  COLOR TRON  TO  2 ($ea) 8 TO ($ea) 11 TRON X 11  NEXT  REM REM line numbering breaks here! REM TRON X/  AND / 14 COLOR  TO  15 RESTORE USING  REM REM line numbering breaks here! REM x E x  15 RESTORE USING  REM REM line numbering breaks here! REM x  NOT  x  15 RESTORE USING  REM REM line numbering breaks here! REM x / x  15 RESTORE USING  REM REM line numbering breaks here! REM 2236 / REM REM line numbering breaks here! REM  RESTORE USING / 13  AND  14 COLOR  TO  REM REM line numbering breaks here! REM TRON ($ea) TRON  TO X CREATE  11 TRON ^ REM REM line numbering breaks here! REM  TO X PSET  2 ($ea) 17 x  REM REM line numbering breaks here! REM  OPEN } TRON   RESTORE  23 Q($ea) REM REM line numbering breaks here! REM Qx COLOR  Q/ Qx COLOR Qx COLOR ($ea)   23 Q COLOR  REM REM line numbering breaks here! REM , RESTORE / 23 Q COLOR  525 E x RESTORE  REM REM line numbering breaks here! REM  / x RESTORE   E 19 OPEN TRON  22   REM REM line numbering breaks here! REM Q COLOR /   2984 E OPEN TRON  RESTORE  REM REM line numbering breaks here! REM 2984 E OPEN TRON  RESTORE  REM REM line numbering breaks here! REM 2984 ^ REM REM line numbering breaks here! REM x /  OPEN TRON /  s x  NOT  14 COLOR ($ea) REM REM line numbering breaks here! REM  COLOR TRON  TO  14 COLOR / REM REM line numbering breaks here! REM  COLOR TRON  TO  2 ($ea) 17 x  REM REM line numbering breaks here! REM  OPEN } TRON   RESTORE  23 Q($ea) REM REM line numbering breaks here! REM Qx COLOR  Q/ Qx COLOR Qx COLOR ($ea)   23 Q COLOR  REM REM line numbering breaks here! REM , RESTORE / 23 Q COLOR  525 E x RESTORE  REM REM line numbering breaks here! REM  / x RESTORE   E 19 OPEN TRON  22   REM REM line numbering breaks here! REM Q COLOR /   2984 E OPEN TRON  RESTORE  REM REM line numbering breaks here! REM 2984 E OPEN TRON  RESTORE  REM REM line numbering breaks here! REM 2984 ^ REM REM line numbering breaks here! REM x /  OPEN Q/  s x  NOT  11 TRON ($ea) REM REM line numbering breaks here! REM TRON  TO X 11 TRON / REM REM line numbering breaks here! REM TRON  TO X 2 ($ea) 8 TO ($ea) 11 TRON X REM REM line numbering breaks here! REM  NEXT  11 TRON X 13  AND  14 COLOR  TO  15 RESTORE USING  REM REM line numbering breaks here! REM 1880  PSET  REM REM line numbering breaks here! REM TRON X 29 Qx COLOR  CREATE ($FFFF)x  REM REM line numbering breaks here! REM 529 x  FLREAD /x c REM REM line numbering breaks here! REM  OPEN } USING  NEXT  OPEN }  USING  OPEN }- OPEN }  USING  OPEN } FOR  NOT  OPEN }  USING  OPEN } FLREAD s OPEN }  USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s REM  RESTORE A 5019 } USING  NEXT x  5634 x FLREAD sx  x NEXT Ex  x FLREAD sx   OPEN } USING  NEXT x  REM REM line numbering breaks here! REM 529 x  FLREAD  OPEN } USING REM REM line numbering breaks here! REM 529 x  NEXT  OPEN } USING 5019 } USING  NEXT   TRON > 5634  TO ^ REM REM line numbering breaks here! REM 529 x   NEXT E REM REM line numbering breaks here! REM x  > 531 OPEN   FOR  NOT REM REM line numbering breaks here! REM 531 OPEN   COLOR  TO X}  TO 4472  COLOR  NEXT  OPEN  COLOR  6324  RESTORE - PUT  RESTORE  REM REM line numbering breaks here! REM  PUT - 527 RESTORE  REM REM line numbering breaks here! REM 518 NEXT E REM REM line numbering breaks here! REM  OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING 4738  RESTORE A FLREAD  OPEN } USING 5634  REM X NEXT  REM - REM  FOR  REM  FLREAD  PUT x COLOR ^ PUT x COLOR  PUT x COLOR  PSET  PUT x COLOR ,} E OPEN REM REM line numbering breaks here! REM   OPEN } TRON w OPEN   OPEN x Z PSET  USING Z     COLOR Z FLREAD ss FLREAD }x COLOR  FLREAD s REM  RESTORE  FLREAD s,} Ex  PSET  PUT x  PSET x  PSET  OPEN x Z FLREAD ,}  NEXT  17 , OPEN } ($FFFF) REM REM line numbering breaks here! REM 255 ($FFE5) REM REM line numbering breaks here! REM 255 ($FFE5) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF40) REM REM line numbering breaks here! REM RESET ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM ($FFFF) NOT  ($fe) ( DSKINIT ($ed) HATDANCEBIND$ ($fc) ^NEVERSUNBIN FREAD $ PUT 3NOCOWS BIN RESTORE $ l VERIFY JESU-JOYBIN H$ $ 223 G-MINUETBIN 378  REM REM line numbering breaks here! REM 220 COLOUR REM REM line numbering breaks here! REM BIN DIM - )BBPOLKA BIN OFF 2 KBLOWIN BIN($f8)- ADESTE BIN.) TYELLOW BINd, PRINT WHITER BIN CSAVE / 213 EXODUS REM REM line numbering breaks here! REM BIN THEN  ^"RAINDROPBIN z :2W  GO  DLOAD ($f4)  RESTORE  CIRCLE GO TEST BAS CLEAR  + INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT ` 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF60) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 191 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM ` 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 191 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM ` 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)U REM REM line numbering breaks here! REM - FN LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!     , Q ,  NEXT ^  / E  TO x } x^  NEXT   E  TO  TRON ^  NEXT  COLOR } xE  TO  OPEN  QE TRON >  OPEN  OPEN  OPEN s TRON > Q  QE TRON >  OPEN  REM  OPEN E TRON > }  RESTORE }E TRON >   s TRON > ,  PUT ,E TRON > a , QE TRON >   OPEN x^  NEXT x x x^  NEXT ,  PUT x^  NEXT x x x^  NEXT  OPEN 19 OPEN 39688 TO s REM REM line numbering breaks here! REM 2236 s REM REM line numbering breaks here! REM 2236 s  COLOR TRON  TO s x TRON  TO s x TRON  TO s REM REM line numbering breaks here! REM x>E }>E 32008 >E }E USING >  OPEN E USING >  OPEN E USING > 39688 TO s REM REM line numbering breaks here! REM 2236 s REM REM line numbering breaks here! REM 2236 s  COLOR s Z TO xs TRON  TO xs TRON  TO REM REM line numbering breaks here! REM xE> }E> 32003 E> }E USING >  OPEN E USING >  OPEN E USING > 39682 s TO REM REM line numbering breaks here! REM 627  TO REM REM line numbering breaks here! REM 627  TO  COLOR s Z TO xs Z TO xs Z TO REM REM line numbering breaks here! REM xE> }E> }E> }E USING >  OPEN E USING >  OPEN E USING >  OPEN s TRON  TO   OPEN xs TRON  TO }  COLOR E USING >   5635 E NEXT 11267 E NEXT REM REM line numbering breaks here! REM  PUT E NEXT ,^  NEXT  / E  TO x } x^  NEXT   E  TO  TRON ^  NEXT  COLOR } xE  TO  OPEN  QE TRON >  OPEN  OPEN  OPEN E TRON > Q  QE TRON >  OPEN  REM  OPEN E TRON > }  COLOR }E TRON >   E TRON > , Q ,E TRON > a , Q   OPEN x^  NEXT x^  NEXT  COLOR ^  NEXT   COLOR  15 RESTORE x COLOR X($ea)x COLOR X($ea)x COLOR TRON  TO Q COLOR TRON  TO  RESTORE  TO , RESTORE  TO Q COLOR X($ea)Q COLOR TRON  TO  COLOR TRON  TO X  COLOR TRON  TO X RESTORE  TO Xx COLOR X($ea)x COLOR X($ea)x COLOR TRON  TO Q COLOR TRON  TO  RESTORE  TO , RESTORE  TO Q COLOR X($ea)!Q TRON USING X  TRON  TO ^ / TRON  TO ^  OPEN  RESTORE  AND  VERIFY  RESTORE TRON USING  AND x TRON USING  AND  OPEN  RESTORE  AND  VERIFY ! OPEN  RESTORE TRON USING x TRON USING  OPEN  RESTORE TRON USING x COLOR X($ea) COLOR TRON USING X RESTORE  TRON  TO x COLOR X^!x TRON  TO X  OPEN TRON  TO X x TRON  TO X  RESTORE  AND E   TO  AND  COLOR TRON  TO  RESTORE  AND ^!   USING  AND  COLOR  TO  AND  RESTORE  TO  AND 30728 TO ^ REM REM line numbering breaks here! REM  OPEN USING ^ x TO  RESTORE  AND  COLOR X 13  NEXT REM REM line numbering breaks here! REM TRON  CREATE ($ea) 26 , NEXT E REM REM line numbering breaks here! REM  PUT -Ex^  NEXT ,  PUT ,   20 / c 22  TO REM REM line numbering breaks here! REM x TO }> x TO  NEXT Z-  NEXT  ,Q}E 11 "($f0),^ ($FFFF) OPEN Z REM REM line numbering breaks here! REM  PUT  OPEN  FLREAD s PUT  OPEN x Z PUT  OPEN X PSET  PUT  OPEN x Z PUT  OPEN  FLREAD s PUT  OPEN x Zx X PUT  OPEN Z  PUT  OPEN Z FLREAD x   PUT  OPEN ZXx  529 x  FLREAD /x c REM REM line numbering breaks here! REM  OPEN } USING  NEXT  OPEN }  USING  OPEN }- OPEN }  USING  OPEN } FOR  NOT  OPEN }  USING  OPEN } FLREAD s OPEN }  USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s REM  RESTORE A 5019 } USING  NEXT x  5634 x FLREAD sx  x NEXT Ex  x FLREAD sx   OPEN } USING  NEXT x  REM REM line numbering breaks here! REM 529 x  FLREAD  OPEN } USING REM REM line numbering breaks here! REM 529 x  NEXT  OPEN } USING 5019 } USING  NEXT   TRON > 5634  TO ^ REM REM line numbering breaks here! REM 529 x   NEXT E REM REM line numbering breaks here! REM x  > 531 OPEN   FOR  NOT REM REM line numbering breaks here! REM 531 OPEN   COLOR  TO X}  TO 4472  COLOR  NEXT  OPEN  COLOR  6324  RESTORE - PUT  RESTORE  REM REM line numbering breaks here! REM  PUT - 527 RESTORE  REM REM line numbering breaks here! REM 518 NEXT E REM REM line numbering breaks here! REM  OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING 4738  RESTORE A FLREAD  OPEN } USING 5634  REM X NEXT  REM - REM  FOR  REM  FLREAD  PUT x COLOR ^ PUT x COLOR  PUT x COLOR  PSET  PUT x COLOR ,} E OPEN REM REM line numbering breaks here! REM   OPEN } TRON w OPEN   OPEN x Z PSET  USING Z     COLOR Z FLREAD ss FLREAD }x COLOR  FLREAD s REM  RESTORE  FLREAD s,} Ex  PSET  PUT x  PSET x  PSET  OPEN x Z FLREAD ,}  NEXT  17 , OPEN } ($FFFF) REM REM line numbering breaks here! REM ($FFFF) NOT  ($fe) ( DSKINIT ($ed) HATDANCEBIND$ ($fc) ^NEVERSUNBIN FREAD $ PUT 3NOCOWS BIN RESTORE $ l VERIFY JESU-JOYBIN H$ $ 223 G-MINUETBIN 378  REM REM line numbering breaks here! REM 220 COLOUR REM REM line numbering breaks here! REM BIN DIM - )BBPOLKA BIN OFF 2 KBLOWIN BIN($f8)- ADESTE BIN.) TYELLOW BINd, PRINT WHITER BIN CSAVE / 213 EXODUS REM REM line numbering breaks here! REM BIN THEN  ^"RAINDROPBIN z :2W  GO  DLOAD ($f4)  RESTORE  CIRCLE GO TEST BAS CLEAR  + INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT ($FFFF)($FFE5) FROM FROM FROM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM ` 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 191 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF) REM REM line numbering breaks here! REM U , LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!     NEXT >  USING  Z  USING >  NEXT >  USING  Z  USING  USING 14  Z>E COLOR Z>E} Z>E} Z>E> REM REM line numbering breaks here! REM 837  USING REM REM line numbering breaks here! REM }E > E USING E Z 3 E}> FLREAD 3760 REM REM line numbering breaks here! REM  FLREAD    FLREAD } 14 USING } 1581 } REM REM line numbering breaks here! REM }}  Z}  USING }   USING   Z 14 } Z USING  FLREAD x Z USING  FLREAD  OPEN Z USING  FLREAD  17 x^  REM REM line numbering breaks here! REM x^  x^x x^  x^  x^ x^  x^  x^ Ex E  E 14 COLOR ($ea) TO REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM 746  TO REM REM line numbering breaks here! REM  COLOR ($ea) 14 COLOR ($ea) TO REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM  COLOR ($ea)  ^  ^ TO 4 ^ USING REM REM line numbering breaks here! REM 996  TRON REM REM line numbering breaks here! REM 996  COLOR REM REM line numbering breaks here! REM 996  OPEN REM REM line numbering breaks here! REM 996  COLOR REM REM line numbering breaks here! REM 996  TRON REM REM line numbering breaks here! REM 996  USING REM REM line numbering breaks here! REM 996  TRON REM REM line numbering breaks here! REM 996  COLOR REM REM line numbering breaks here! REM 996 Q COLOR  VERIFY REM REM line numbering breaks here! REM  OPEN  COLOR  VERIFY  RESTORE  COLOR  VERIFY 2236 REM REM line numbering breaks here! REM xw c xw  xwx xw  xw c xw TO w c w  w1 x 1 x 1 x 2509 } FOR 3162 } FOR 3549 } FOR 4221 } FOR REM REM line numbering breaks here! REM  MERGE } FOR  Z}X 9 USING X 2817 USING X 3162 USING X 3549 USING w 3760 USING w 4221 USING w 2369  REM  PSET 2817  REM  PSET 3549  REM  PSET 3760  REM  PSET REM REM line numbering breaks here! REM  MERGE  REM  PSET 274 REM  PSET 2369  REM  PSET 2817  REM  PSET 3549  REM  PSET 4738 REM REM line numbering breaks here! REM  NOT  MERGE 2 NOT   REM REM REM line numbering breaks here! REM 3592 TO REM REM line numbering breaks here! REM 746  c REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM 746  COLOR REM REM line numbering breaks here! REM 746   REM REM line numbering breaks here! REM 746  c REM REM line numbering breaks here! REM x($ea) TO 2 ($ea) TRON  TO ($ea) 3350  TO ($ea) 3760  s RESTORE  sx  s OPEN x Zs OPEN x Zs COLOR REM REM line numbering breaks here! REM s COLOR 2 s COLOR  TO REM REM line numbering breaks here! REM 3598 COLOR USING REM REM line numbering breaks here! REM s Z 1254  USING REM REM line numbering breaks here! REM 1254  TO REM REM line numbering breaks here! REM 1254  USING REM REM line numbering breaks here! REM 1254  Z REM REM line numbering breaks here! REM 1254  COLOR REM REM line numbering breaks here! REM  COLOR  FLREAD  PUT x Zsx Zs OPEN sx 2 sx USING REM REM line numbering breaks here! REM sx Z s}} s Z} 3593 USING } REM REM line numbering breaks here! REM 3592 TO } REM REM line numbering breaks here! REM  Z} }}  E> 837  USING REM REM line numbering breaks here! REM E Z 837  USING REM REM line numbering breaks here! REM E> E TO /  /  2 / TO  COLOR  2509  COLOR  3162 REM REM line numbering breaks here! REM   E > E 2509 E 3162 E REM REM line numbering breaks here! REM  USING E > E X E > E 2509 E 3162 2 s NEXT  REM REM line numbering breaks here! REM E>  E USING E Z E COLOR 3 E REM 6 NEXT  OPEN } Z NEXT ;($FFFF)  USING > FLREAD REM REM line numbering breaks here! REM    USING > 17   USING > OPEN } NEXT E OPEN } USING REM REM line numbering breaks here! REM  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING  OPEN  FLREAD s 4738  RESTORE A 5019 } USING  NEXT x  5634 x FLREAD sx  x NEXT Ex  x FLREAD sx   OPEN } USING  NEXT x  REM REM line numbering breaks here! REM 529 x  FLREAD  OPEN } USING REM REM line numbering breaks here! REM 529 x  NEXT  OPEN } USING REM REM line numbering breaks here! REM  OPEN } USING  FLREAD  REM  RESTORE A 4472  COLOR  TO Xx COLOR  TO x COLOR -x COLOR  TO x COLOR  FOR  NOT x COLOR  TO x COLOR  FLREAD sx COLOR  TO xX PSET x  5634 x FLREAD sx  REM REM line numbering breaks here! REM 529 xX PSET x  REM REM line numbering breaks here! REM 529 x FLREAD s/} c 5634 x X PUT  OPEN Z 6324  OPEN  FLREAD s PUT  OPEN x Z PUT  OPEN X PSET  PUT  OPEN x Z PUT  OPEN  FLREAD s PUT  OPEN x Zx X PUT  OPEN Z REM REM line numbering breaks here! REM  PUT  OPEN Z FLREAD x   PUT  OPEN ZXx  529 x  FLREAD /x c REM REM line numbering breaks here! REM  OPEN } USING  NEXT  OPEN }  USING  OPEN }- OPEN }  USING  OPEN } FOR  NOT  OPEN }  USING  OPEN } FLREAD s OPEN }  USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s REM  RESTORE A 5019 } USING  NEXT x  5634 x FLREAD sx  x NEXT Ex  x FLREAD sx   OPEN } USING  NEXT x  REM REM line numbering breaks here! REM 529 x  FLREAD  OPEN } USING REM REM line numbering breaks here! REM 529 x  NEXT  OPEN } USING 5019 } USING  NEXT   TRON > 5634  TO ^ REM REM line numbering breaks here! REM 529 x   NEXT E REM REM line numbering breaks here! REM x  > 531 OPEN   FOR  NOT REM REM line numbering breaks here! REM 531 OPEN   COLOR  TO X}  TO 4472  COLOR  NEXT  OPEN  COLOR  6324  RESTORE - PUT  RESTORE  REM REM line numbering breaks here! REM  PUT - 527 RESTORE  REM REM line numbering breaks here! REM 518 NEXT E REM REM line numbering breaks here! REM  OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING 4738  RESTORE A FLREAD  OPEN } USING 5634  REM X NEXT  REM - REM  FOR  REM  FLREAD  PUT x COLOR ^ PUT x COLOR  PUT x COLOR  PSET  PUT x COLOR ,} E OPEN REM REM line numbering breaks here! REM   OPEN } TRON w OPEN   OPEN x Z PSET  USING Z     COLOR Z FLREAD ss FLREAD }x COLOR  FLREAD s REM  RESTORE  FLREAD s,} Ex  PSET  PUT x  PSET x  PSET  OPEN x Z FLREAD ,}  NEXT  17 , OPEN } ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF40) REM REM line numbering breaks here! REM THEN ($FFFF) WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM ` 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM RESET ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)U REM REM line numbering breaks here! REM 1B LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"- #,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!   1   OPEN Z USING  FLREAD  Z- 8  NEXT 8  COLOR X 17  REM MERGE USING  CREATE }  USING  FOR  REM A REM REM line numbering breaks here! REM  OPEN USING   17  PUT  REM  PSET  OPEN  COLOR Z FLREAD  USING X- 940 REM REM line numbering breaks here! REM 17 USING X- 1254 s 17 USING X- 940  DRIVE REM REM line numbering breaks here! REM  COLOR Z  MERGE TRON 8  COLOR Z FLREAD REM REM line numbering breaks here! REM  Z USING X  PSET 17  COLOR ZX 3549 TRON X 3760 Z FLREAD REM REM line numbering breaks here! REM  Z USING X  PSET 17  COLOR ZX 3549 TRON X 3760 Z FLREAD 5019  COLOR Z FLREAD  COLOR - OPEN  COLOR USING - OPEN  USING  FOR  REM  A REM REM line numbering breaks here! REM  PSET  REM  COLOR  OPEN } 8  REM  COLOR  FOR  OPEN }  REM REM line numbering breaks here! REM 530 REM  PSET  OPEN }  REM REM line numbering breaks here! REM  OPEN }  FOR  REM  COLOR   PSET 17  REM  COLOR  REM REM line numbering breaks here! REM  OPEN }   REM  COLOR  FOR }   PSET 17 } TRON A REM REM line numbering breaks here! REM  REM TRON A } Z USING  FLREAD  COLOR Z USING  PSET  COLOR Z  MERGE TRON 8  COLOR Z FLREAD REM REM line numbering breaks here! REM  Z USING X  PSET 17  COLOR ZX 3549 TRON X 3760 Z FLREAD REM REM line numbering breaks here! REM  Z USING X  PSET 17  COLOR ZX 3549 TRON X 3760 Z FLREAD 5019  COLOR Z FLREAD  COLOR - OPEN  COLOR USING TRON  OPEN  COLOR USING  FOR  REM  COLOR  FOR  PSET REM REM line numbering breaks here! REM  REM X  OPEN >  COLOR  A/ COLOR c TO  COLOR  A OPEN  COLOR > OPEN  COLOR > REM  COLOR X FOR }  USING  FOR  COLOR  A PSET  RESTORE   TO }  > REM  X FLREAD  OPEN  COLOR Zs OPEN  COLOR Z COLOR  RESTORE 17 } FOR  NOT REM REM line numbering breaks here! REM }  A 3984 Z A PSET }  A 4221  A FOR   A> 3162 AX PSET   A NEXT 4221 A FOR  NOT }  A REM REM line numbering breaks here! REM } Z A PSET }  A }  A FOR } c A 3350  PSET 3549 TRON 17  COLOR Z FLREAD s COLOR Z USING 3549 TRON USING  PSET  COLOR Z USING 3760 Z USING  FLREAD  ZX 17  NEXT  PSET REM REM line numbering breaks here! REM  USING - 17  COLOR X FLREAD s COLOR ZX REM REM line numbering breaks here! REM  COLOR X PSET  COLOR USING X 3760 ZX FLREAD  OPEN USING Z 5634  COLOR - OPEN MERGE USING  CREATE  REM  FOR 17  REM  A REM REM line numbering breaks here! REM  REM  PSET 17  REM  REM REM line numbering breaks here! REM } FOR }  A } PSET 17  COLOR  A REM REM line numbering breaks here! REM  REM  FOR 17  REM }  REM REM line numbering breaks here! REM  REM  COLOR Z PSET  REM MERGE TRON 4738   FOR  OPEN }  5634  REM  PSET  OPEN }  REM REM line numbering breaks here! REM  REM X 17  REM   REM REM line numbering breaks here! REM  REM  PSET 17  REM  REM REM line numbering breaks here! REM } FOR }  A } PSET 17  RESTORE  A REM REM line numbering breaks here! REM  COLOR  FLREAD 17  COLOR ZX REM REM line numbering breaks here! REM  COLOR  NEXT  COLOR USING -  COLOR ZX  PSET 17  COLOR Z USING 3984 Z USING 4221  FOR REM REM line numbering breaks here! REM }  A } PSET 17  COLOR  A REM REM line numbering breaks here! REM  OPEN Z USING  FLREAD  PSET  OPEN Z USING  OPEN Z USING  CLS  OPEN Z USING  FLREAD  OPEN Z USING  '7a PUT  OPEN   USING  FLREAD   FOR  Z-    USING >   USING > FOR    USING > FLREAD    USING > 17   USING > OPEN } NEXT E OPEN } USING REM REM line numbering breaks here! REM  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING  OPEN  FLREAD s 4738  RESTORE A 5019 } USING  NEXT x  5634 x FLREAD sx  x NEXT Ex  x FLREAD sx   OPEN } USING  NEXT x  REM REM line numbering breaks here! REM 529 x  FLREAD  OPEN } USING REM REM line numbering breaks here! REM 529 x  NEXT  OPEN } USING REM REM line numbering breaks here! REM  OPEN } USING  FLREAD  REM  RESTORE A 4472  COLOR  TO Xx COLOR  TO x COLOR -x COLOR  TO x COLOR  FOR  NOT x COLOR  TO x COLOR  FLREAD sx COLOR  TO xX PSET x  5634 x FLREAD sx  REM REM line numbering breaks here! REM 529 xX PSET x  REM REM line numbering breaks here! REM 529 x FLREAD s/} c 5634 x X PUT  OPEN Z 6324  OPEN  FLREAD s PUT  OPEN x Z PUT  OPEN X PSET  PUT  OPEN x Z PUT  OPEN  FLREAD s PUT  OPEN x Zx X PUT  OPEN Z REM REM line numbering breaks here! REM  PUT  OPEN Z FLREAD x   PUT  OPEN ZXx  529 x  FLREAD /x c REM REM line numbering breaks here! REM  OPEN } USING  NEXT  OPEN }  USING  OPEN }- OPEN }  USING  OPEN } FOR  NOT  OPEN }  USING  OPEN } FLREAD s OPEN }  USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING  OPEN } FLREAD s REM  RESTORE A 5019 } USING  NEXT x  5634 x FLREAD sx  x NEXT Ex  x FLREAD sx   OPEN } USING  NEXT x  REM REM line numbering breaks here! REM 529 x  FLREAD  OPEN } USING REM REM line numbering breaks here! REM 529 x  NEXT  OPEN } USING 5019 } USING  NEXT   TRON > 5634  TO ^ REM REM line numbering breaks here! REM 529 x   NEXT E REM REM line numbering breaks here! REM x  > 531 OPEN   FOR  NOT REM REM line numbering breaks here! REM 531 OPEN   COLOR  TO X}  TO 4472  COLOR  NEXT  OPEN  COLOR  6324  RESTORE - PUT  RESTORE  REM REM line numbering breaks here! REM  PUT - 527 RESTORE  REM REM line numbering breaks here! REM 518 NEXT E REM REM line numbering breaks here! REM  OPEN } USING  OPEN } FLREAD s OPEN } USING  OPEN } NEXT E OPEN } USING 4738  RESTORE A FLREAD  OPEN } USING 5634  REM X NEXT  REM - REM  FOR  REM  FLREAD  PUT x COLOR ^ PUT x COLOR  PUT x COLOR  PSET  PUT x COLOR ,} E OPEN REM REM line numbering breaks here! REM   OPEN } TRON w OPEN   OPEN x Z PSET  USING Z     COLOR Z FLREAD ss FLREAD }x COLOR  FLREAD s REM  RESTORE  FLREAD s,} Ex  PSET  PUT x  PSET x  PSET  OPEN x Z FLREAD ,}  NEXT  17 , OPEN } ($FFFF) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 5 ($FFD5) REM REM line numbering breaks here! REM PMODE ($FF0B)($f7) THEN MERGE CREATE + CREATE ($FF0B) ($f8) MERGE CREATE DIR PMODE ($FF0B) DIR ($f0) PMODE ($FF7E)($f8)($fd) STEP MERGE CREATE +E STEP OR 745 PUT P 503 7171  CHAIN ($FFCA)  REM REM line numbering breaks here! REM ~($f7)= CHAIN DIR AUTO ELSE ERROR ($FFFF) 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF) REM REM line numbering breaks here! REM RAINU , LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!   1   COLOR USING  VERIFY REM REM line numbering breaks here! REM ; RESTORE USING  VERIFY  COLOR  TO  VERIFY   AND ^   AND  TO , TRON  AND  NEXT 263 AND ^ 746 TRON X 1254 TRON X 1118 TRON X 1254 TRON X REM REM line numbering breaks here! REM ($ea) TRON 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ^ 29 TRON  TO X REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^ x COLOR TRON  TO  OPEN  VERIFY  OPEN  RESTORE TRON USING x CREATE 29  RESTORE TRON USING REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO  COLOR ^ 29  TO X REM REM line numbering breaks here! REM  TRON  CREATE 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ^ 29  COLOR  TO X REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^ x COLOR TRON  TO  OPEN  VERIFY  OPEN  RESTORE TRON USING x CREATE 29  RESTORE TRON USING REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^ x COLOR TRON  TO x NEXT x RESTORE  TO  COLOR ^ 29  RESTORE  TO REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^ x COLOR TRON  TO  OPEN  VERIFY  OPEN  RESTORE TRON USING x CREATE 29  RESTORE TRON USING REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO  COLOR ^ 29  TO X REM REM line numbering breaks here! REM  TRON  CREATE 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ^ 29  COLOR  TO X REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^  COLOR TRON  TO  CREATE  RESTORE  VERIFY 29  RESTORE TRON USING REM REM line numbering breaks here! REM  RESTORE  FLREAD 29  COLOR TRON USING REM REM line numbering breaks here! REM  ^  ^  TO  ^  ^  TO   FLREAD  TO  ^    TO  VERIFY  COLOR  PSET  COLOR  TO Ex($ea) x COLOR TRON  TO x^ x COLOR TRON  TO  OPEN  VERIFY  OPEN  RESTORE TRON USING x CREATE 29  RESTORE TRON USING REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO  COLOR ^ 29  TO X REM REM line numbering breaks here! REM  TRON  CREATE 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ^ 29  COLOR  TO X REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^ x COLOR TRON  TO  OPEN  VERIFY  OPEN  RESTORE TRON USING x CREATE 29  RESTORE TRON USING REM REM line numbering breaks here! REM x CREATE x COLOR TRON  TO x^ x COLOR TRON  TO x CREATE x COLOR TRON  TO xX  COLOR TRON  TO  CREATE  RESTORE  VERIFY 29  RESTORE TRON USING REM REM line numbering breaks here! REM  RESTORE  FLREAD 29  COLOR TRON USING REM REM line numbering breaks here! REM  ^ 29   TO REM REM line numbering breaks here! REM   NEXT    AND ^ COLOR ($ea)  COLOR ($ea) 14  COLOR TRON  TO REM REM line numbering breaks here! REM  COLOR ^   X  TRON ($ea) 29 TRON  TO X REM REM line numbering breaks here! REM  TRON  PSET  COLOR TRON X^ RESTORE  VERIFY 29  RESTORE TRON USING REM REM line numbering breaks here! REM  RESTORE  FLREAD 29  COLOR TRON USING REM REM line numbering breaks here! REM  ^  ^ 14   AND REM REM line numbering breaks here! REM  TRON  NEXT 29  AND ^ REM REM line numbering breaks here! REM  TRON ($ea)  TRON ($ea) TO X TRON  TO X FLREAD  TRON ^  TRON  TO X FLREAD  TRON ($ea) 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ^ 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ($ea)  TRON ($ea) TO X TRON  TO X FLREAD  TRON ^  TRON  TO X FLREAD  TRON ($ea) 29 TRON  TO X REM REM line numbering breaks here! REM  TRON ^ 29  COLOR TRON X REM REM line numbering breaks here! REM  RESTORE  VERIFY 29  RESTORE TRON USING REM REM line numbering breaks here! REM  RESTORE  FLREAD 29  COLOR TRON USING REM REM line numbering breaks here! REM  ^ 29   AND ^  X^   AND ^   TO ^   AND ^ TRON USING  AND ^  TO  AND ^ 43015 X($ea)^ TRON X($ea) FLREAD TRON X($ea)^ TRON X($ea) TRON X($ea)^w($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF) REM REM line numbering breaks here! REM DROP.BIN($FF7E) TAB(<~ TAB( ON ~ TAB( FROM ~ TAB( DRAW ~ TO PCLS ~ SUB ~ SUB R~ SUB BACKUP ~ SUB LOAD ~ FN h~ FN ~ SUB SWAP ~ SUB PRESET ~ SUB SKIPF ~ FN {~ FN DEF ~ FN DELETE FO CHAIN G BACKUP RE USING EDIT ELS*I/DAT STEP PRIN CREATE O AUTO INPU CREATE EN-NEX CREATE DI USING REA-LE CREATE RU AUTO RESTOR*RETUR AUTO STO BEEP POK*CON CREATE LIS CREATE CLEA CHAIN NE DSKINIT DE/CLOA-CSAV*OPE AUTO CLOS*LLIS CREATE SE CREATE RESE CREATE CL COPY MOTO CHAIN SOUN-AUDI BACKUP EXE+SKIP/DE CSAVE PROTECT NEW r CLEAR NEW STOP < NEW  NEW BOOT NEW = DEF  DEF w LET CLEAR READ ^ DIM @ LET \ READ FLREAD READ CHAIN PLAY TAB( CLOAD V CLS  READ ($f1) LET  LET  RENUM D PMODE CLEAR DIM 1 CSAVE ($f4) OPEN PUT LLIST Y DELETE ^ OPEN ELSE LLIST y RETURN y RETURN { STOP u{ POKE < CLEAR CLS P END F END NFSNRGODFCOVOMULBSDD/0IDTMOSLSSTCNUFFDAODNIOFMNOIEDSNE ERROR IN OK BREAK 0d/ RESET  DELETE ELSE FOR FOR & SCREEN  RESET  SET ;' CLOSE ' SET : FROM SET  RESET ; SET M9 READ  PROTECT A3A SET C0 DELETE REM 6 CLOSE G&($f8) WAIT E9OX COPY + 2064 WAIT  POKE ($ee)/ SUB  LET SUB  RETURN SUB FOR  SUB RENUM + SUB ELSE 4o SUB RESTORE SKIPF SUB RESTORE ($f8) LET REM TROFF : READ = READ ; LET REM PROTECT SUB RESTORE FROM CLEAR hL' SUB LIST s SUB RESTORE SKIPF LET REM ($eb) SUB RESTORE FROM SUB DRAW / AUTO ($FFFF) WAIT h($f6) p&3s RESET DELETE LLIST RESET '($ea)/2 o& PSET SUB RUN g~ ELSE DRIVE DELETE FOR ~ RESTORE ($fa) SUB DATA CSAVE SET + THEN  ERROR SUB RUN g DSKINIT  READ M LOAD G AUDIO ELSE COPY  MERGE ($ee) ELSE 7 EDIT FOR CLOSE &($f8) PCOPY  LOAD ' LOAD  MERGE C KILL  INPUT REM REM line numbering breaks here! REM MERGE A SUB ' AUTO  FREAD 7 EDIT FOR CLOSE E&($f8) SET A RESET  READ 6 READ  READ SET ($ec) ELSE '!3 DELETE NOT &($fc)($ef) ELSE SCREEN ELSE ($f0) LOAD + SET ($ee) ELSE '  AUDIO # SCREEN ELSE ($f3) RESET G9&($fb) SET o FOR o FOR RESET  SET  SUB IF ($ee) SUB  NEW SET ' RESET # SUB IF  SET  RESET  RESET  LET  TROFF RESET SCREEN VERIFY  PROTECT !o SREAD -.n ELSE DATA FOR NEW  SUB DATA TO SUB REM ($f7)2b& SET 2 IF / SUB '1 SUB DATA  LOAD h4/ TO SUB INPUT PSET SUB ON t SUB ON r DRIVE T> CREATE P DSKINIT P LET ELSE FOR ~ INPUT  LET STOP  SUB POKE THEN LLIST SKIPF GO STEP & LLIST RESET SUB ON r SUB CONT  SUB INPUT  LOAD ;4 DATA FOR 4 SUB  CSAVE  PCLEAR READ u SET DELETE RESET / DELETE FOR ' GO :'$~ INPUT PUT DELETE GO NEW 136 ($ec) FOR MERGE h RESET DELETE CLEAR PCLEAR ' DATA [ SUB DRAW J CLEAR h SUB LIST z DATA ] SUB DRAW J LLIST RESET READ  +'< SUB yM* DRIVE GO RENUM " FN #H INPUT : LLIST RESET n CONT GO ($FF27) GO USING # DRAW n RESET - LLIST RESET GO DEF ' GO SET 'B SUB  CLS SET SET 0 RESET 39 SUB FOR ' GO ' GO ' NEW PRINT 9 SUB FOR '($fb) ($ee) SUB PCOPY \ LLIST SKIPF &3 SET DELETE RESET / 40552 DIM ($FFFF)' RESET ) SET / RESET -o LET REM ($ef) REM REM line numbering breaks here! REM *($fe)~'f&/ SET -'($fd) ERROR RESET DELETE SET ) RESET h9', SUB NEXT #4 SET ' LLIST SKIPF ' SUB INPUT LINE SUB LET '0 CLOSE t" AUDIO SAVE ' 2963  WAIT ! RESET '~ ELSE $~'B SUB  CONT SUB DEF SWRITE SUB PCOPY \ LLIST SKIPF '($fe)k SUB ELSE $  INPUT LLIST RESET STEP TO ' STEP SUB &E/ SUB '1 PROTECT DELETE SET h DATA SUB 4R READ ~ ELSE RESET LLIST SKIPF SUB DATA CSAVE READ @0 LOAD + POKE h" SET  SUB ELSE 0 RESET DELETE 9&($fd) DATA RIGHT$ ; SUB REM ($f7) GO =' / DIM /~'D~ INPUT PUT 5R RESET h WAIT DELETE READ  DIM READ  RESET DELETE 9/: DATA _ DSKINIT _ SET DELETE  DEF DRIVE  NEW  DELETE ELSE '($ec)4 MOTOR RENAME ' FLREAD 0 GO "'($ea)L&0 GO DATA & SWAP  SWRITE SUB ON r LLIST SKIPF GO GO '/ THEN SUB INPUT PSET CLEAR O& READ PCOPY M' RENUM LLIST RESET GO ELSE &($f5) *($f1) LLIST RESET LLIST SKIPF ($FF65)~ ELSE LOAD SUB LET Q/ GO SUB INPUT PSET 4 GO SUB ' GO TO &' S&5~ IF TAB( LLIST RESET READ  GO ,'($ef)5 ELSE SET END RESET +$d FOR 0 NEW  LOAD + GO " KILL XIXI COPY +XI KILL  INPUT REM REM line numbering breaks here! REM MERGE + LLIST RESET SREAD SUB END CONT RESET ;/= SUB INPUT PSET CLEAR 4 SUB ON PRINT 5F SUB ON y'  SUB  LLIST SET R LOAD ! AUDIO $ CLOSE  FLREAD ELSE SUB DIM P SET M SUB READ INPUT LET V RESET M SUB READ TAB( PROTECT M SET ;7& EDIT ELSE  PCLEAR 9?REDO 3439 '~'D CLEAR ' SET 1 RESET h~ INPUT PUT LET PRINT  SUB RESTORE FROM SET / RESET DELETE 9 SUB CLOSE v READ o9 GO #& SUB PMODE DSKINIT SUB PCOPY # SUB INPUT LINE GO "& SUB INPUT u/; SUB INPUT PSET SUB RESTORE ($e8) LET  LOAD o ELSE o&" READ /, SWAP ELSE  SUB RESTORE ($f8) SUB RESTORE ($f5) SUB DRAW /$2d~ IF A/0 p& CLOSE 9 SET 3 DATA O NEW RESET 5 SUB END CONT RESET ; SET DELETE RESET + SET 5 DELETE ELSE & CLEAR &X SUB | SUB RESTORE ($f8) READ / RESET DELETE LLIST RESET DRIVE '' SET DELETE NEW  GO "'0O NEW  SUB DRAW LIST n& DATA : NEW  DATA , NEW  SUB DIM a SUB INPUT z SUB DATA DSKINIT  SUB CONT SUB SUB POKE PROTECT LLIST SKIPF ' GO ,&($FF33) SET DELETE RESET 5 SET + RESET DELETE LLIST SKIPF '! SUB INPUT LINE LIST RESET DELETE SUB DATA 0M& /($ee) GO 'A($ec) GO MERGE 1 DELETE ELSE GO DATA & FLREAD CONT SET 5 DRIVE &($fd) DELETE ELSE ' LET ON ~ RESTORE FROM 9?EXTRA IGNORED REM REM line numbering breaks here! REM & SET END  SUB END CONT RESET ; SUB REM ($f7)'/ G0 SUB POKE THEN DELETE h NEW T SET ; SUB RETURN SUB POKE PROTECT 0i SUB CONT A RENAME h' SCREEN n RESET h SCREEN ($e8) RESET DELETE ~ ELSE RESET 2($e8) LLIST SKIPF GO ,&($f4) LLIST RESET READ SUB READ ($fe)} * CLOAD DIM + CLEAR /~'D READ nO DIM 44/ SUB '1 SUB INPUT T? LLIST SKIPF FOR > GO $ GO I DEF ? RETURN ?d NEW ? LLIST RESET ($e9) DRIVE ?&3$ 1828 g CLOAD ' RETURN INPUT ($FF34)H PCLS RENAME LET REM CONT 0 DATA 5 MOTOR ELSE $U READ CLOSE 4 READ ) SET =5&M' REM REM line numbering breaks here! REM j KY READ LET ON ($fc) DSKINIT ? FWRITE U (K LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     #$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!   1   COLOR A 29  COLOR  A PSET ;   A PSET  COLOR  A PSET } ($ee) NOT ; >($ee) NOT ; REM X  PSET }($ee)  PSET  REM X  PSET  OPEN >  PSET  REM X PSET ;} >w COLOR  A COLOR c A; MERGE c> Z cX MERGE ($ee)  NOT  COLOR -  NOT }($ee)  NOT  REM X  NOT  MERGE >; Z cX,  X  ($ee) NOT w A  NOT ; OPEN >  NOT  REM X  NOT - OPEN  NOT ($ee) OPEN  NOT X REM  NOT ;}($ee)  NOT  REM X  NOT  COLOR A  NOT } c> MERGE > NOT , Z cX NOT   ($ee) NOT  COLOR  A REM REM line numbering breaks here! REM  COLOR  A 3549 >  3760 A  4221 USING  REM REM line numbering breaks here! REM  COLOR  A ;  AX  REM X  REM X 4221 ($ee)  4738 X  5019 >  REM REM line numbering breaks here! REM  REM X 4221 ($ee) 4738 X PSET  OPEN ($ee)  NOT  REM X  NOT } USING > COLOR c>  MERGE ($ee) NOT  USING MERGE ($ee) NOT  COLOR AX OPEN ZX REM X NOT ;} USING ($ee) NOT , COLOR USING X NOT  COLOR AX PSET w REM REM line numbering breaks here! REM 29 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM ($FFFF)($FFE5) FROM FROM FROM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM @ 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM ` 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM THEN ($FFFF) WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM RESET ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 191 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM 255 ($FFFF)($FF20) REM REM line numbering breaks here! REM WAIT ($FFDF) WAIT ($FFFF) 223 ($FFFF) 255 ($FFFF) 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 223 ($FFFF) 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFFF) REM REM line numbering breaks here! REM U +~ LINE  f b($fd) COLOR  PSET c($f6) NOT  COLOR d VERIFY C e/ A 760($FF35)4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!     REM  OPEN 9  PSET 19  COLOR  REM  REM REM line numbering breaks here! REM  FOR 19  COLOR  REM  REM REM line numbering breaks here! REM  REM  PSET 19  REM  COLOR  REM REM line numbering breaks here! REM  REM  19 } TRON  CLS REM REM line numbering breaks here! REM  COLOR  FLREAD 19 } Z USING REM REM line numbering breaks here! REM  COLOR  CLS 19 Z USING  REM REM line numbering breaks here! REM  COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  NOT   A  COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  NOT 19 } MERGE USING REM REM line numbering breaks here! REM  REM  PSET 19  REM  COLOR REM REM line numbering breaks here! REM  FOR  REM  COLOR  PSET } 19 } COLOR c REM REM line numbering breaks here! REM } 19  REM  COLOR USING ($ea)} USING  NOT REM REM line numbering breaks here! REM } MERGE } Z 4738 w 5634  PSET 19  REM  COLOR REM REM line numbering breaks here! REM  FOR 19  REM  COLOR REM REM line numbering breaks here! REM  REM  PSET 19  REM  COLOR  REM REM line numbering breaks here! REM  REM  19 } TRON  CLS REM REM line numbering breaks here! REM  COLOR  FLREAD 19 } Z USING REM REM line numbering breaks here! REM  COLOR  CLS 19 Z USING  REM REM line numbering breaks here! REM  COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  A NOT  19  USING E REM REM line numbering breaks here! REM  COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR A 19 }  USING REM REM line numbering breaks here! REM  REM  PSET  REM  COLOR E 19  REM  RESTORE  REM REM line numbering breaks here! REM } 19  OPEN } Z REM REM line numbering breaks here! REM  REM  NOT 19 }  USING 940  COLOR  A FOR  COLOR  A PSET  COLOR  A COLOR   CLS  COLOR   CLS  OPEN  FLREAD 19  OPEN  COLOR Z REM REM line numbering breaks here! REM  OPEN  PSET 19  OPEN  COLOR Z REM REM line numbering breaks here! REM  OPEN s 19  OPEN  COLOR Z REM REM line numbering breaks here! REM  OPEN  NOT  OPEN  COLOR USING  REM  PSET 19  REM  COLOR  REM REM line numbering breaks here! REM  REM  NOT 19 }  USING REM REM line numbering breaks here! REM  COLOR  PSET  COLOR A 9  COLOR A FOR REM REM line numbering breaks here! REM  COLOR USING  FLREAD   CLS  COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  NOT 19 }  USING REM REM line numbering breaks here! REM  REM  PSET 19  REM  COLOR REM REM line numbering breaks here! REM  NOT  REM  COLOR  PSET } 19 } COLOR c REM REM line numbering breaks here! REM } 19  REM  COLOR c($ea)} USING  NOT REM REM line numbering breaks here! REM }  } Z 4738 E 5019 E 5634  PSET 19  COLOR  REM  REM REM line numbering breaks here! REM  FOR 19  COLOR  REM  REM REM line numbering breaks here! REM  REM  PSET 19  REM  COLOR  REM REM line numbering breaks here! REM  REM  19 } TRON  CLS REM REM line numbering breaks here! REM  COLOR  FLREAD 19 } Z USING REM REM line numbering breaks here! REM  COLOR  CLS 19 Z USING  REM REM line numbering breaks here! REM  COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  A NOT  COLOR  19  USING E 2817 USING E 3760  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  NOT 19 }  USING REM REM line numbering breaks here! REM  REM  PSET }E 527 RESTORE  REM REM line numbering breaks here! REM  REM  PSET  REM  PSET } 19  OPEN } Z REM REM line numbering breaks here! REM  REM  NOT 19 }  USING 940  COLOR  AE COLOR  A COLOR  A REM  NOT REM REM line numbering breaks here! REM  OPEN  NOT } 19 } Z USING REM REM line numbering breaks here! REM  OPEN   OPEN  COLOR USING ($ea) REM  NOT 19  REM   REM REM line numbering breaks here! REM } }  USING E COLOR  PSET 19  COLOR  A REM REM line numbering breaks here! REM  COLOR  A  COLOR  CLS  COLOR  A FOR  COLOR Z USING  FLREAD  COLOR Z USING  FLREAD  COLOR  A FOR  COLOR  A FOR  DRIVE 19 255 ($FFFF) REM REM line numbering breaks here! REM 255 ($FFE5) SET DELETE ~ IF ($ee)d END 1 MOTOR ELSE $1 COPY ($ec)4 READ  DRIVE ?($FF7B)~ INPUT PUT DRIVE T DELETE ELSE 5 4 DRIVE O SET P PROTECT R4Tn EXEC SET END DELETE RENAME '& GO d' SUB ON t RESET =5 GO Z' GO }'T DSKINIT 5R NEW \ RESET ] WAIT _5 DSKINIT a FREAD T DSKINIT b DRIVE O9 SUB  NEXT  LLIST RESET $~ CONT SUB SUB END WAIT $\ GO .'($f4) GO -'L GO +' SWRITE GO "& SET DELETE SUB DIM [ SET d RESET DELETE 9 GO NOT & DATA Z SUB ON NEXT SUB NEXT -CS~ DIM 7 GO FN '. GO &'L'. READ  SUB ON PRINT /) DIM /( DIM /, SAVE RESET 526 RESET /~'D DATA } SUB ON NEXT ~ CLEAR PROTECT SUB END CONT RESET R CLEAR & INPUT ~ POKE THEN LLIST RESET  INPUT X LLIST RESET STEP B#n RESET 24 STEP ," STEP 4$ READ THEN DELETE VERIFY GO 2$ SUB ON PRINT READ PMODE SUB ON w5 PROTECT R4B SUB LET Q54 LET READ CLOAD 5 FN (: PRESET CONT ~ ON t DATA O NEW  SUB NEXT - MERGE  SUB POKE ($f5) SUB NEXT - & CONT  CREATE   CSAVE  ERROR ~ DIM 7 SUB ON y& CLEAR a END  CONT ] NEW ] LET REM REM line numbering breaks here! REM \ SUB CONT A 6 ? SUB READ LLIST DSKINIT V RESET X SET _ SUB READ RESET CLEAR V4 CLS RENAME ' DATA $ DRIVE V@ NEW T PROTECT X\Z& DRIVE T DELETE FOR MOTOR NOT '($f3)/($FF24)P=Y CREATE '/($FF7E) CONT ' SUB INPUT LINE / READ  LLIST SKIPF &($f5)9_ LLIST SKIPF DSKINIT  NEW 7 LLIST SKIPF READ @($FF11)_ DSKINIT  LLIST RESET  READ 3  INPUT LLIST RESET ($fc) READ )$($f8) GO $&= FOR LLIST RESET DSKINIT 8 CSAVE  FOR (' 2206  LOAD 7 CLOSE ' AUDIO GO '>0 ($f3) GO A FOR [ FOR SKIPF 9 LET REM REM line numbering breaks here! REM END ($ee) VERIFY ' INPUT -'( LOAD  MERGE C+ 16798  RESET G SUB ' SET A RESET  SET E RESET  SET G LOAD 7($ed) GO O_($ed) ELSE ($ed) EDIT  RESET 99 RESTORE FOR REM REM line numbering breaks here! REM LLIST RESET SUB ON r SUB ON t CLEAR T+` SUB ON t CLEAR O GO RESTORE  LET NEXT  SUB CONT A&O SUB CONT s LOAD R9 DRIVE  CLEAR 4_ SET 74 READ BEEP 54 RESET 7 PROTECT R4`\ LLIST SKIPF GO ,'($eb) DSKINIT  SUB INPUT EXEC 5 NEW  DSKINIT  SET  CLOSE '! LOAD 7 AUDIO ELSE '($ec)0 NEXT ($ef)/ CLEAR & DRIVE  SAVE 'Y/ DIM /~'D<  MERGE d LOAD 7($ed) ELSE DRIVE  SWAP  SUB '1 RESET A/ O '5+ 1421 ] MERGE d0 &($e8) RESET  COPY ($f7)~ SUB '5' 8015 0 EDIT  CLOSE &($f8) SET A CLEAR  POKE A($ed) CLEAR &- FLREAD  DSKINIT O_ MERGE d5 MERGE R AUDIO $: PROTECT d' READ  COPY R0 & SWAP ($ed) SWRITE XIXI SWRITE SAVE 0 NEXT 0 RESET 99 DATA  NEW E($ec) MERGE O_XIe d$ COPY  E&($ee)9~ NEXT END @~ RESET AUTO O MERGE P/ RESTORE ~ CONT - SUB ON t AUTO  FWRITE SUB LIST END 2b LET  FREAD RESET M READ _ RESET X DSKINIT V90 DATA " NEW  NEW 0 RESET b RESET X/($FF5C) DELETE FOR ' RETURN ' RETURN &($f3) GO "'0 RESET d DSKINIT V SUB  NEW PROTECT b' FWRITE " READ + SET b SUB READ NEXT SET DIM  BOOT &/~'D CLEAR V EDIT ELSE LOAD X($ed) DATA RIGHT$  RESET RESET R0 RESET 9O4 LOAD # AUDIO RENAME  POKE ! MERGE # SET #0 RESET 5 ELSE /'> READ 5 PROTECT SET ' RESET #O_ MERGE K SET ! RESET G LET  TROFF CLOSE ' READ 2 ($f8) SET  CLOSE ' READ " ($f8) RESET A SET A CLOSE '5($ec) COPY A MERGE A DELETE *($f0) FLREAD X=: CLOSE A'($e8) READ  ($f8) DELETE 0* FLREAD ELSE '($ec) POKE #"  POKE G# RESET K MERGE G09 SET K'($fb)O FLREAD ELSE Z COPY G MERGE C SET # RESET A SUB ' SET K LOAD E($ed) SET E0~ DIM FWRITE LOAD R4 SUB INPUT T SUB ON w5 RESET b FLREAD ELSE SET R($eb) ELSE $/~'D SUB DIM P SET b FLREAD ELSE READ  SET M READ " READ SET b READ  SUB DIM STOP ~ ON CLOAD SCREEN  PROTECT \  DELETE FOR EDIT NOT Z&($f9) WAIT 9 SUB ON w SET R FLREAD ELSE READ & SCREEN 0 CLOSE #&4 COPY # MERGE #509 SCREEN 9 CLOSE & RESET 0 RESET O9 READ ~ DIM 6 READ <]9 SUB LET T/ SUB DIM GET CLEAR S SUB DIM T EDIT ELSE 2b~ DIM STOP READ  WAIT READ RENAME '^ FLREAD ELSE 9 READ HO SAVE ELSE # FLREAD ELSE O4 SUB DIM R SET M READ OPEN 5:5 SUB READ NEXT DIR READ + CLS ELSE @ WAIT /($FFD7)S LLIST SKIPF GO )' SUB INPUT LINE READ - READ '$_J MOTOR ELSE $ USING  INPUT RENAME ELSE P BOOT S#- DRIVE S NOT SUB INPUT EXEC ($ee) VERIFY SCREEN e RESET M DELETE d FLREAD d2g5~ NEXT READ LLIST RESET SUB ON r SUB NEXT &M&($f2) SKIPF SUB READ <' PROTECT DELETE RESET DELETE : DELETE ELSE 4Ro ELSE LLIST SKIPF SUB CONT SUB 5R EDIT ELSE WAIT DELETE 9 READ  RESET + SUB INPUT LINE AUTO SUB ON r CLEAR T+ OFF CLEAR O GO RESTORE " TO SUB CONT s SET R9 READ ($ee) FLREAD ELSE ~ DIM 6 READ KILL SET + SWAP ELSE 9/($fe) DSKINIT o FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0022 Exec: $8b8d * REM *(Start: 09217 Length: 00034 Exec: 35725) * REM ************************************************* REM 10 LOAD "JESU-JOY.BIN": DELETE 8992: DELETE 8996 REM REM line numbering breaks here! REM 67889::; N.BIN" 63020 A$(3)="NOCOW.BIN" 63030 A$(4)="JESU-JOY.BIN" 63040 A$(5)="G-MINUET.BIN" 63050 A=0 63060 A=A+1 63070 LOAD A$(A) 63080 RUN 63090 A$(A)="" 63100 DELETE -63000 63110 GO TO 63060 REM REM line numbering breaks here! REM   !  PRINT " D.MINUET IN G" 9 :'** 10 PRINT : PRINT : PRINT : PRINT "HVILKET NUMMER:" 11 A$= INKEY$ : IF A$="" THEN 11 12 IF A$="A" THEN 1000 13 IF A$="B" THEN 1500 14 IF A$="C" THEN 2000 15 IF A$="D" THEN 2250 16 IF VAL (A$)<1 OR VAL (A$)>9 THEN 11 17 ON VAL (A$) GO SUB 2500,3000,3500,4000,4500,5000,5500,6000,6500 18 GO TO 0 2500 LOAD "RAINDROP.BIN": EXEC : RETURN 3000 LOAD "EXODUS.BIN": EXEC : RETURN 3500 LOAD "WHITER.BIN": EXEC : RETURN 4000 LOAD "YELLOW.BIN": EXEC : RETURN 4500 LOAD "ADESTE.BIN": EXEC : RETURN 5000 LOAD "BLOWIN.BIN": EXEC : RETURN 5500 LOAD "BBPOLKA.BIN": EXEC : RETURN 6000 LOAD "COLOUR.BIN": EXEC : RETURN 6500 LOAD "HATDANCE.BIN": EXEC : RETURN 7000 LOAD "NEVERSUN.BIN": EXEC : RETURN 7500 LOAD "NO-COWS.BIN": EXEC : RETURN 8000 LOAD "JESU-JOY.BIN": EXEC : RETURN 8500 LOAD "G-MINUET.BIN": EXEC : RETURN REM REM line numbering breaks here! REM FROM U .< LINE  PLAY1 -3 * TEMDON DE4h 20511 NEXT & NEXT  NEW L NEW L NEW L NEW L_ MERGE ($fc) MERGE  DATA 0 NEW  NEW  NEW  LOAD  DATA  NEW 7'($FFFF)' REM REM line numbering breaks here! REM KILL '($FFFE)' * MERGE 7 MERGE 7 MERGE 7 MERGE 7 NEW 4 CLEAR F DEF FF DEF F DEF FF ELSE   OPEN  NEW  LET  FOR END FOR EDIT IF LET  FOR EDIT IF O_ MERGE  MERGE MERGE  MERGE   CLEAR  GO :& DATA 0 NEW   CLEAR  GO :& DATA 0 NEW   LET ($fd) CLEAR  EDIT FOR CLEAR  EDIT FOR CLEAR  EDIT ELSE 5 LET 1446 ELSE SET PCLS ELSE ! 4011 ELSE SET  PCLS ELSE PMODE ($FF20) LOAD  COPY  MERGE  LOAD COPY MERGE LOAD  COPY  MERGE  LOAD  COPY  MERGE 1?' ! REM REM line numbering breaks here! REM ! + & TAB(($FF39) DATA PUT PMODE ($FF01) DATA 4 PMODE ($FF03) DATA > PMODE ($FF23)977770 MERGE   DATA 5 PMODE ($FF03) DATA 7 PMODE ($FF23)5h9 LDA #$FF STA 0,X A PORT OUTPUT STA 2,X B PORT OUTPUT LDA #4 STA 1,X STA 3,X LDA # !#')+-.0235679:;<<=>>???????>>=<<;:987653210.-,+)('&#"!  !"#$$&''()**++,,-----------,,++*))('&$##"!  !!""###$$$$$$$###""!     "'*,.024689;<=>>?????>>=<;:98764320/.,+*)('&&$$$############$$$$$$$$$$$$$######"""""""""""""""""""""""""""""!!!!!     !"#$'()*+,-./01234567889::;;<<==>>>>??????????>>>>===<<;;::9988766544322100/..-,,+**))(''&&$$###"""!!!!!      !"##$&&'())*+,,-../001223345566778899::;;;<<<====>>>>>???????????????>>>>>====<<<;;;::998877665543322100/..-,,+*))('&&$##"!   1   FLREAD Z USING X# REM REM line numbering breaks here! REM 2509 X FLREAD Z USING X CLS Z USING X# 23049 USING X CLS Z USING X Z USING X  USING X REM REM line numbering breaks here! REM USING X A 4361 USING  PSET REM REM line numbering breaks here! REM 4363  PSET REM REM line numbering breaks here! REM X Z 7 X USING  PSET 22545 E}  USING # 32013  USING E}  USING }  USING # 33293  USING  OPEN  USING   > Z >  >  > REM REM line numbering breaks here! REM   >  >s# > 11 >s PSET  REM  COLOR # 33294 COLOR  PSET  REM  COLOR E REM  COLOR # REM REM line numbering breaks here! REM 3760 E COLOR  COLOR  Z A  Z A COLOR  Z A COLOR REM REM line numbering breaks here! REM Z A COLOR  Z A COLOR  NOT Z A  NOT Z A Z 9 A  NOT 16657 s USING X Zs USING X  USING X USING  USING X USING E}  E}  Z REM REM line numbering breaks here! REM }   }  A COLOR  PSET 2509  COLOR  PSET 2817  COLOR  PSET 3162  COLOR  PSET 3350 USING  3162 USING  3350 X CLS 2817 X CLS 3162 USING X FLREAD # Z USING X 3760 Z USING  FLREAD  PUT  OPEN  COLOR  CLS  OPEN  COLOR  CLS  PUT  OPEN  COLOR 5634  OPEN  COLOR  CLS } Z OPEN } Z OPEN } Z 5019 } Z PSET  OPEN } Z# REM REM line numbering breaks here! REM 4221 Z PSET  OPEN } ZE}  USING # REM REM line numbering breaks here! REM 3350 USING  OPEN } E} } }  5019 }  5019 } }}   NOT  OPEN } USING  NOT } USING  5648 } USING  NOT } USING s } USING  NOT } USING  } USING E } USING  PSET  COLOR  A# REM REM line numbering breaks here! REM 2817 A PSET }  A PSET }  A NEXT  REM  COLOR  NEXT  REM  COLOR  33294 COLOR  NEXT } COLOR  NEXT } COLOR -} Z A- COLOR Z A REM REM line numbering breaks here! REM  COLOR Z A- COLOR Z A FOR  COLOR  A- COLOR  A COLOR  A CLS  COLOR  A FLREAD  COLOR Z USING # 12 Z USING  FLREAD  COLOR Z USING  FLREAD  COLOR Z USING  PUT  OPEN  COLOR  CLS  REM REM line numbering breaks here! REM 1184  OPEN REM REM line numbering breaks here! REM  COLOR  CLS  OPEN 14 COLOR  OPEN  CLS REM REM line numbering breaks here! REM 2064 } CLS 45064  PUT  OPEN }# 46099 OPEN } PUT  OPEN } PSET  PUT  REM Z#E PUT  REM Z PUT  REM Z}  USING E# REM REM line numbering breaks here! REM 4221 USING  OPEN  NEXT } USING } - OPEN } -}  5634 } -}} - OPEN  FOR }  FOR }  528 }  FOR }  FLREAD }  FOR } -}  NEXT }  PSET  COLOR  A# REM REM line numbering breaks here! REM 2817 A PSET }  A PSET }  A NEXT  REM  COLOR  NEXT  REM  COLOR  REM REM line numbering breaks here! REM 3760  NEXT } COLOR  NEXT } COLOR }- Z A COLOR - Z A COLOR REM REM line numbering breaks here! REM 2369  COLOR - Z A COLOR  NEXT  4738  PSET  5019   5634  CLS  6324  FLREAD  OPEN  COLOR  FLREAD  OPEN  COLOR  PUT 39694 COLOR  FLREAD  OPEN  COLOR  PUT  FLREAD  OPEN  COLOR  COLOR  CLS  PUT  OPEN  COLOR  CLS  PUT  OPEN  COLOR 46099 OPEN  COLOR  CLS  PUT  OPEN  PUT  CLS  PUT  OPEN  OPEN  ($fa) PUT  REM  ($fa) PUT  OPEN REM REM line numbering breaks here! REM 6324  OPEN  REM REM line numbering breaks here! REM 4370 REM  PSET Z PUT } PSET Z PUT  REM E Z PUT  REM  Z PUT E } USING # 5648 } USING  NEXT  OPEN } USING -}  OPEN -}  32013 -} }-}  OPEN } USING  FOR  } USING  FOR 5 COLOR  PUT  REM  PSET  COLOR  PUT  REM  PSET a PUT  REM  PSET  FLREAD ($fa) PUT  OPEN # REM REM line numbering breaks here! REM 6324  OPEN  FLREAD a PUT  OPEN  CLS a PUT  OPEN # 24856 PUT  OPEN  CLS  PUT  PUT  OPEN  PUT  OPEN Z OPEN Z REM REM line numbering breaks here! REM 5019 Z} OPEN Z PSET  COLOR  OPEN Z#E COLOR  OPEN Z COLOR  OPEN Z}  USING E#  32009 USING  OPEN  NEXT } USING  OPEN  NEXT } USING -}  OPEN -}  OPEN 32013 }-}  OPEN  FOR } USING   FOR } USING   REM REM line numbering breaks here! REM } USING  FOR } USING  FLREAD } USING  CLS } USING  } USING  PSET } USING  PSET  COLOR  A# COLOR  A A 265 A}X  A REM  NEXT  COLOR } NEXT  COLOR  REM REM REM line numbering breaks here! REM 2817 } NEXT  COLOR }- Z A COLOR - Z A COLOR REM REM line numbering breaks here! REM 2369  COLOR - Z A COLOR  FOR Z A#} REM REM line numbering breaks here! REM 2369  OPEN  FOR  A OPEN  COLOR Z FLREAD # OPEN  COLOR Z FOR } COLOR Z FOR  COLOR  COLOR Z-}  USING  NEXT #} PSET  5019   6324  COLOR Z FLREAD  COLOR Z FLREAD  CLS  OPEN  COLOR Z OPEN  COLOR Z REM  PSET  COLOR A} NEXT REM REM line numbering breaks here! REM 4366 COLOR - REM REM line numbering breaks here! REM 4365  FOR REM REM line numbering breaks here! REM A PUT  FLREAD  COLOR Z FLREAD  COLOR Z OPEN  FLREAD  COLOR Z5 OPEN s COLOR Z>($FFFF) FROM FROM FROM