BEEP  Z   ($FF2B)A  S Vivaway Ltd Styl($ef)   (   THEN PRINT 255 ($FFFF) SGN REM REM line numbering breaks here! REM ($FFFF) THEN S     . SCREEN  SCREEN CMD COPY ST FWRITE ($eb)lette($f2) }name($f3)  GO SY COPY 'intr($ef)  CSAVE 191 REM REM line numbering breaks here! REM S   `S    . SCREEN  SCREEN styl($ef) #styfi($f8) ym($ed) mmfi($f8) RESET spel($ec) SOUND spellad VERIFY PCOPY spellsu SREAD SUB spelldc($ed) -spellco($ed) AND go5 CIRCLE USING di($f2) FREAD de($ec) LOAD cop($f9) PROTECT renam FROM SREAD backu($f0) FROM forma($f4)  COLOR fre FROM 2 TO / REM REM line numbering breaks here! REM S   TaS  $ U 135 USING Ta REM REM line numbering breaks here! REM m FOR |k4  (  AUDIO  POKE Ta($ec)R 27 1 POKE 7L REM REM line numbering breaks here! REM STYLOGRAPH COPYRIGHT 1982 GREAT PLAINS COMPUTER CO.,INC. Styl($ef)0B9460h RESET  RESET 0 READ r AUTO 2462 z1 INPUT  2775 RESET 0 TROFF ($f7) RESET 0 TROFF  RESET 0 TROFF l RESET  READ C0 TROFF EDIT RESET  READ ;0 TROFF SREAD RESET  READ 30 TROFF  SWAP RESET  READ +O_ SET ? READ  SET < REM REM line numbering breaks here! REM E$ SET  DATA LOC o EDIT O_? LET SET z0 INPUT PRINT RESET ($ed) RESET ($ef)5 PCOPY 3($ef) ELSE ($ef)o9;46 SET ($ed) ELSE  EDIT FOR RESET ($ed)0 ON COLOR CLOSE ($ef) 46 LOAD ($ed) POKE ($ef)'  SET ($ef) RESET ($ed) DATA ? END 5 PCOPY 9 ($e8)942A LET 16 ? END 5 PAINT 4 DATA /?' NEW 13718 DSKINIT ($fd)5 CLEAR 4 CLEAR REM REM line numbering breaks here! REM ? RUN 5 REM READ PUT 42A LET 16 ? INPUT 52 ELSE 9 READ ' READ FLREAD ($f8)94 DATA 4159 READ ($fb)5 DATA 5 DATA 46 SET  DELETE CLS GO ' GO '($f6) GO ,'($f2) MOTOR READ K'* ($fd)5 PCOPY 1?/6 DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET ($fe)5 PCOPY DELETE CLS GO ' CHAIN GO ' PLAY GO ,' PUT ($f0)4 SET  DELETE FOR MOTOR READ ' GO &($f4)5 DATA RESET ($fe)5 DATA 4V DATA /?' SET  EDIT 3($ef) ELSE 3 OR  7420 5 DRIVE DSKINIT  STEP ERROR &5 DRIVE ($fd)5 DRIVE 4V DATA /?' SET  BOOT 460 READ 4 SET  DELETE FOR ' EDIT CLS ($f8) SCREEN b DELETE FOR EDIT CLS &($fa) SET  READ )5 PCOPY 4R DATA ? ELSE SET  EDIT 3($ef) ELSE ($ef)5 CHAIN STEP FREAD ' DSKINIT ($fd)5 CHAIN DSKINIT 5 CHAIN 4R DATA ? ELSE SET  DSKINIT 4 SET  4 SET  4 SET  4 SET  EDIT DELETE 'o? RUN 5 STOP 46 SET  DELETE FOR ' EDIT CLS ($f8)0 READ  SOUND DELETE FOR EDIT CLS &($fa) SET ? PRINT DSKINIT 5 PCOPY 4 DRIVE  DATA ?5 DATA 4 SET W5 RESTORE 4 SET  ($f5)4 SET  FOR 5 RESTORE 4 SET  ($f5)4v SET  RESET DELETE FOR EDIT CLS &($fa)1?0 READ W DELETE FOR EDIT CLS &($fa) DATA  SET ? ELSE ? RUN 5($f6) STEP FREAD ' DSKINIT ($fd)5($f6) N' SET & SET  DELETE /? READ FROM RESET  WAIT ($FF44) LOAD SET  SET  DATA EDIT CLS DELETE FOR EDIT CLS &($fa) DATA EDIT ? DELETE REM GO /' CLOSE &($f6) 0 DELETE FOR ' EDIT CLS ($f8)0 READ ($ec) DELETE FOR EDIT CLS &($fa) DATA EDIT ?0 READ  SWRITE  POKE \ PROTECT < 16131 RESTORE ?]& END N'1 SET  SET  DELETE FOR EDIT CLS &($fa)1?0 READ  PAINT DELETE FOR EDIT CLS &($fa) SET  DATA ? ELSE ($FF64) SET  EDIT  SET  PROTECT ? ON ($FF55)($fe)5($f6)4v4 SET < 16270 5< 52007 + REM REM line numbering breaks here! REM  ($f7)1!0= DATA EDIT ELSE < 4205 ??]&($fe)4 SET < REM REM line numbering breaks here! REM ? LET 55($f6) DSKINIT  ($ec)($fc)($f4)($fe)o($fe)r< 3600 ? LET _?94@($ee) ELSE EDIT NOT ($ef) ELSE  AUDIO '($fe)5 NOT 5@46m'04($ec) EXEC PCLEAR EXEC AUDIO SAVE '4 DELETE $5 ? END 5 PCOPY DSKINIT 5 PCOPY 4@($ee) ELSE  AUDIO ' DELETE NOT ($ef) ELSE ($fe)5 NOT 40 DELETE $0 PCLEAR EXEC  LET REM REM line numbering breaks here! REM 6? INPUT  RESET 50 LOAD 33=($ef) BACKUP STEP COPY &5 NOT ($fd) DSKINIT 5 NOT IL,JUMFR;WZS/DO.KP}-791^  -|,}#|> DELETE ELSE ELSE NEW C($fe)91OQQN 0  ($f0)  ($f0)  ($f0)  0   NOT    240 mn REM REM line numbering breaks here! REM ($f0)   COLOR    CREATE  ^ 2 !"#$&',()*+ BEEP 3 5 / '($f0)3 456 BEEP 3 5 ($f1)3789:456;<=> NOT  ?  ($f0)3 @5A BC BEEP D @E FG BEEP H IJK ($f0)L MNO PQ BEEP 3 5 / -.($f0)@ RSTU CIRCLE ] 130 ` FOR REM REM line numbering breaks here! REM c GO ($f0)[ WXYZ \ COLOR ] _`ab cdp012efghij kl BEEP H IJK ,'($f0)3 DATA PRINT @5 ON INPUT END NEXT DIM Qo pq BEEP  r 1y z{|}~ ELSE IF 4 DATA  PRESET - DATA  PRESET - DATA  CLS VERIFY PRESET - DATA  CLS a PRESET -5 DATA 4 DATA  PRESET - DATA & PRESET - DATA a PRESET - DELETE VERIFY READ  DATA y PRESET - DELETE a READ  DATA C PRESET -5 DATA GO _ FOR \ ($f9) NEXT  INPUT NEXT 0($e9) MERGE  DEF NEXT 0($e9) DRIVE 4 DATA  PRESET - DATA [ PRESET - DELETE VERIFY L READ DIR DATA ; PRESET - DELETE aL READ < DATA H PRESET -5 DATA 4 DATA PRESET - DELETE a PRESET - DATA  PRESET - DELETE VERIFY PRESET -5 DATA FOR  STEP DIM  OFF A 2843 -^/ TROFF *.2601 LET .2600 LET ~ RETURN ~ CLOSE ~ RUN ~ REM REM line numbering breaks here! REM  END ~~ CSAVE ~ RESET ~ CLOAD CSAVE ~ GET ~ CIRCLE  OR  OFF + CONT DIM SET  7112 =0 NOT 0 STEP NEXT  IF  LIST ' POKE  CLEAR DATA LET   STOP  END  DATA  CLEAR RUN RUN LET 0 STEP  POS ELSE  FWRITE H>Y7 END H OR y DRAW x DRAW x PUT y PUT x4($f7)($fa)($f1)($f0) DEF *H<d NOT d STEP /F7 END  KILL  MERGE RESTORE  NEW CLEAR 7 END REM REM line numbering breaks here! REM ($FF1B)H>&a23y0C END &a0y0C<&d NOT &d STEP  FREAD  DIR E7 END SGVH CHAIN   CONT  DATA  NEXT h END  DIM ($FF1B) CLS ($FF1B)=8 END [2> [2=[ COPY [ CREATE [0($ed)[2($ed) IF DATA INPUT RESTORE RUN  P GO GO REM ~ GET ~ PAINT ($FF1B) OR X7 OFF  CREATE NEW  2047 ($FF06)($FF08)($FF1B) RETURN  CLOSE  RUN  REM REM line numbering breaks here! REM  END  CSAVE $ RESET [H- USING [7($ed)[2>0 BEEP  RESET  CLOAD  AUDIO  EXEC H STEP #>MEQU[^begi($ee) END eg($e9) VERIFY B' B4/ READ e54 DRIVE A BOOT ?5" A SWAP TAB(9 B&($ec) NEW B4/ RENAME MERGE @4/ READ ?$ SET < FLREAD ELSE * FOR ' CLEAR @*@' NEXT  SWAP RETURN CLEAR A SET < FLREAD ELSE *@' NEXT  SWAP REM LOAD @5 RESTORE CLEAR A*@' NEXT  SWAP s CLEAR @ SET < FLREAD ELSE *@' VERIFY RENAME 4 SET < SCREEN IF ' DELETE  GO ($FF27) DELETE FOR 4 SWAP R DELETE RENAME *($f5)($fe)5 CLEAR FLREAD ELSE X0 READ ($fb)9($ec) IF 0 READ FLREAD G0 NEXT LOAD @4@3 READ SWAP 3 PRESET ELSE 5@ WAIT 4/ READ FN 5 ELSE 4/ READ PCOPY 5 ELSE 4@A/ READ LINE  SWAP ! LET @0&($fc)5 CONT 4/ READ DEF LOAD @J($FF4B)5 DATA 4/ READ END LOAD @L($FF3D)5 DATA 4@A/($FF77) FLREAD ($ee) LET '0&($fc)5 CONT 4/($FF64)5 ELSE 4/ ($FF5B)5 ELSE 4/($FF52)5 ELSE 4 LOAD @4($ec)b_($fe)($fd) SET < DELETE ELSE IF ' /($FF37)5($fe)($eb)5 CLEAR DRIVE ? DATA  FLREAD RESTORE Z*($fa) ($ed) FLREAD  NEXT Oo NOT NEXT $($fa) RESET z1! RESET ^ RESET c SET z1 INPUT  381 RESET 0 TROFF  PUT RESET "0 TROFF ($eb) RESET $0 TROFF " RESET &0 TROFF Y RESET (0 TROFF  PMODE RESET *0 TROFF  RESET ,0 TROFF  RESET .0 TROFF + RESET 00 TROFF b RESET 20 EXEC RESET 0 TROFF ^ RESET 0 TROFF GO RESET 40 TROFF Y RESET 60 TROFF _ RESET <0 TROFF  READ RESET :0 TROFF  CLOAD RESET 80 TROFF ($ec) RESET |0 ELSE RESET r FROM { PROTECT  DELETE READ FROM NEW D DELETE READ FROM  NEW E DELETE READ FROM 5919 0($f9)| ON ($fe)($ef) CLEAR D& DATA (/x  GO & DATA /x  GO & DATA / CLEAR GO ' GO ('\ NEW SWRITE DSKINIT VERIFY SET r CLEAR b/7=0 NEXT RESET \ RESET m<($FFFF) MERGE ~ NEW o j SET * RESET ELSE CLEAR >L NEW ` SET 6O/ SWAP FOR EDIT FOR L*($f9) SET ./ DATA  EDIT FOR Z' NEXT  ($f7) SET r/7o CLS Z&($fb) SET r LOAD \($ed)$ LET REM REM line numbering breaks here! REM PCLEAR EXEC DRIVE ?0 IF PCLEAR " FLREAD READ ($e9)C SWAP TRON  FLREAD READ ($e9)=& DRIVE ? SWAP TRON  FLREAD READ ($e9)5 SWAP TRON FLREAD READ ($e9)/ SWAP TRON *\ SWAP TRON  FLREAD READ ($e9)! SWAP TRON # FLREAD READ ($e9)& DRIVE ? SWAP TRON c( FLREAD READ ($e9) SWAP TRON , FLREAD READ ($e9) SWAP TRON - FLREAD READ ($e9) SWAP TRON ./ FLREAD READ ($e8)($fe) SWAP TRON 1 FLREAD READ ($e8)($f8) SWAP TRON 2 FLREAD READ ($e8)($f2) SWAP TRON 0 SWAP TRON ! SET "< 10722 PROTECT " SET ^0 PCLEAR F PCLEAR D DATA ($f0) EDIT ELSE  CIRCLE 8 FROM F'  FROM $ ELSE  CLS ' READ 9 REM REM line numbering breaks here! REM ($ea)C FROM ($e8) GO a GO z" FOR 94v POKE &? DATA &($fe) 5 PROTECT & SET REM ($ec)-($ed) ELSE ($ec)D($ed) DELETE H EDIT 0 RESET REM SET * CLOSE REM '[mN'mH' DELETE CREATE MOTOR READ ($e8)M'($ed)  DATA 5($f6) POKE DATA  NEW DATA LOAD FOR  POKE P''  MERGE ~ POKE P DATA 7= SET r0 NEXT  SET &< 10557 SET ( RESET REM  CHAIN  DATA <($FFFF) MERGE ~($fe)($FFC6)($fd) ($fd)R SWAP = NEW USING K&2 CLOAD & DATA RIGHT$ AUTO  BEEP  POKE "&+ CLEAR USING '' GO CLS '# BACKUP & PSET F&  CLEAR CLOAD RETURN q" PCLEAR F CLEAR AUTO GO ($FF26) PCLEAR F CLEAR CLOAD NEW AUTO CLEAR USING 'G GO ($f0)'C CLEAR CLOAD RETURN DEF = A& DEF ' DATA  NEW BEEP t' DELETE READ SWAP MOTOR ($fb) SREAD $ CLEAR CLOAD RESTORE DEF RETURN ?" t' DELETE READ SWAP INPUT ($fb)= CLEAR BEEP END P NEW BEEP  t' CLEAR USING ' GO ($f0)' CLOAD 9 CLEAR CLOAD RESTORE DEF ! RETURN ?"@' DATA A& DEF ' DATA  CREATE BEEP DSKINIT BEEP DELETE READ SWAP M t'($fb) END CLOAD DIR BEEP + t' USING 'mH' DATA -  DELETE READ SWAP $  DATA ($fb)g POKE "&R NEW ($ec)F AUDIO -I AUDIO B$D CLEAR USING GO ($f0)&  PSET F& DRIVE ? 0 DRIVE AUTO BEEP DEF ! BOOT ?"" BEEP '"]& CLEAR BEEP IF ' NEW  BOOT ?& BEEP * NEW NEW _  NEW DRIVE ? CLEAR @($fb):9M'k GO ($f0)'g GO CLS ' DELETE EXEC MOTOR AND 0' LIST M* GO ($f1)& 0! PSET B&M DATA -  READ H DELETE !  DSKINIT MOTOR READ FLREAD NEW &| ELSE  NEW DIR LOAD ' LOAD & KILL ' KILL CLEAR D GO ' DELETE AND , DRIVE VERIFY  DSKINIT OPEN KILL NEW DRIVE  REM REM line numbering breaks here! REM W CLEAR DIR GO & 1947 KILL NEW DRIVE  REM REM line numbering breaks here! REM F9 FLREAD EXEC - STEP _'5 STEP ~'5Z DSKINIT X*& -p STEP 0&/ CREATE X  STEP @&/ CREATE X= STEP `& / CREATE X= DSKINIT DSKINIT 9_ ($fa)/ ($f6)/ ($f2) CLEAR DIR MOTOR AND 1& m AND 1' DATA NEW DIR m AND /' CLEAR D GO 's WAIT CLEAR DRIVE RETURN SWRITE # RESTORE SWRITE NEW WAIT CLEAR SWRITE  + DRIVE DSKINIT CLEAR D GO $'* ' END *' S*' CLEAR D GO ' F C EXEC  m j*' CLEAR D GO $! GO ' 6278  NEW SREAD    CLEAR D GO & SREAD ' DATA   CLEAR D GO '*' REM REM line numbering breaks here! REM PCLS < CLEAR DIR ($f3) 5 WAIT m AND /'($f2) CLEAR DIR GO ' SAVE CLEAR KILL NEW DRIVE CLEAR DRIVE GO # FOR  NEW DRIVE DATA   DRIVE M'4 DATA +5 FN WAIT CLEAR D GO "* ' PMODE *' RENAME WAIT &($fe)9 DSKINIT DATA NEW DIR CLEAR WAIT NEW DRIVE ($FF22)m AND /& DATA _ END 4 SET 60 INPUT 385 $ NEXT @ CREATE &4 DATA o5j DATA   CREATE ' 4 DATA [5 DATA T DATA O4 CLEAR D GO # CLEAR DIR ' GO "( DATA  DEF FLREAD AND .W CLEAR DIR 1. DATA )&Z&($ed) CLEAR G| DATA 5 ELSE FLREAD AND . CLEAR DIR Z'($f3) DATA  ($f1) DATA  5782 DIR ' ELSE  SET 6H INPUT : FLREAD ELSE CLEAR FWRITE DSKINIT FWRITE OPEN FWRITE G OPEN KILL NEW DRIVE DRIVE FREAD SET 6X: DELETE  GO $ NEXT @ CREATE &4 DATA  NEW CREATE  OR 5 CREATE '4 CREATE DATA  ($ed) DRIVE DIR NEW DIR DSKINIT FREAD DRIVE DSKINIT CLEAR ERROR DSKINIT ERROR NEW DSKINIT FREAD '5 CLEAR DATA NEW FREAD  FWRITE  ERROR ($f4)4 RESET T0! DELETE FOR + MOTOR AND 0' PSET B($f3)5 RESTORE SET T0 DELETE ELSE MOTOR AND 0'($f1) GO '($f3) GO ,'($ef)($fb)^ MOTOR READ SWRITE ($f5)' MOTOR READ SWRITE ($f0)'< MOTOR READ SWRITE ($eb)'n/ BACKUP 4Q50 < DELETE  GO ' GO ,' MOTOR AND 0&($FFB3)4 DATA ($f9) SCREEN READ VERIFY 1($fe)($fa)($fd)5 EXEC 0( FWRITE NEW 44 DSKINIT  DRIVE DATA NEW DIR ($fd) DATA   SET  DATA EDIT EXEC m VERIFY ' DATA ($fc) PCOPY j VERIFY ($f3)550($FF6E) DELETE  GO ' GO ,' MOTOR AND 0&($FF55)4($fe) CHAIN 5($FF51) CLEAR USING GO CLS '7 DELETE EXEC *+ GO ($f0)& DELETE READ SWRITE A ! GO ($f1)& DATA -  p' GO PAINT & DATA _ DELETE ! MOTOR READ SWRITE (& READ ($f7) DATA MOTOR READ SWRITE & READ ($f7)]mH&94 SKIPF ' DRIVE EXEC \ SET 4 DELETE IF ' DSKINIT EXEC 5 CONT DATA 5 CONT ($ec) AND  = SET 4_ DELETE IF GO &\ ($f7) DSKINIT EXEC SKIPF 5 CONT SCREEN -' REM REM line numbering breaks here! REM DEF o AND 3 DATA  NEW ($ea)m AND /& 23079 F CLOSE c'w DELETE FOR +| MOTOR AND 0&($f0)\ RENAME RENAME DATA  RETURN RENAME $ DELETE FOR +_($fa) MOTOR READ SREAD SCREEN 't MOTOR READ SREAD EDIT ' REM REM line numbering breaks here! REM STOP MOTOR AND 0& PROTECT DELETE AND 3 OPEN RENAME EDIT AND 3 STEP DELETE AND 3 OPEN RENAME EDIT AND 3 5 PCLEAR BmH& PCLEAR D DELETE ELSE GO &0 ($ea)'! ($f2) GO ($f0)' DELETE REM GO ' GO ($f1)' GO -' MOTOR AND 0' PSET -&($e9) 0 PCLEAR BmH& PCLEAR D9 GO ($f0)'($f3)\($FF71) DELETE REM MOTOR AND 0' USING PSET -"($f5) ($ea) DELETE  GO ' GO ,' MOTOR AND 0&($FF66) DELETE ELSE GO ' GO ,' MOTOR AND 0&($FF55)\($FF51)4'8 DSKINIT Y DRIVE LIST BEEP Y DSKINIT Y STEP 5 DRIVE Y($FF35)5($FF30) SET 6 DELETE AND , DRIVE VERIFY A DRIVE LIST = MERGE Z CLOSE c'  FLREAD FOR + REM SAVE AND 0'XO FLREAD PCLS DSKINIT FWRITE O4 LOAD Z AUDIO SAVE MERGE Z$ PROTECT / RENAME RENAME DATA  RETURN RENAME  DELETE FOR +S MOTOR READ SAVE PCLS ' q MOTOR AND 0& SWAP DELETE AND 3 OPEN RENAME EDIT AND 3 PMODE DELETE AND 3 OPEN RENAME EDIT TRON 3 20 PCLEAR BmH& PCLEAR D DELETE ELSE GO &0 ($ea)' ($f2) GO ($f0)' DELETE REM GO ' GO ($f1)' GO -' PSET -&($ee) 0 PCLEAR BmH& PCLEAR D9 STEP ($f0)'($f3) GO ($f1)&($FF68)/ZO FLREAD PCLS O4 LOAD Z AUDIO SAVE ($FFAB)($FF55) DELETE  GO ' GO ,' MOTOR AND 0&($FF6A) DELETE ELSE GO ' GO ,' MOTOR AND 0&($FF59) DRIVE FWRITE O COPY Z($FF51)mH' DELETE CREATE MOTOR READ RENAME ($f6)'p SCREEN B CLOSE c DATA 9 POKE "&`($ec)O POKE P= BOOT b DELETE AND #L PCLS AND + MOTOR AND $ MOTOR AND * DATA 9mH& SET m RESET PSET SCREEN - DELETE FOR EDIT CLS PSET D&($f8) RESET m SET , RESET R SET ELSE CLOSE R'mH& LOAD PSET ($ed) ELSE  PCLEAR o ($ec)-($ed) ELSE LOAD m($ed) DATA  EDIT 0 RESET ELSE  SWRITE DELETE AND + MOTOR AND *"a MOTOR AND $G MOTOR AND # oH SCREEN D PCLEAR -($fd) DATA mH'($ec) CREATE MOTOR READ RENAME \& SAVE READ RENAME V&($FF52)($fe)9 DATA  EDIT H DELETE N GO & LET 50214  SCREEN AND   SCREEN B CLOSE m& AND SET " SCREEN ELSE OFF DATA  EDIT H SCREEN D PSET B&($ea) DELETE AND  EDIT AND + SCREEN AND  SAVE DELETE AND  EDIT AND  DELETE AND  EDIT AND #oNoMo AND + SCREEN AND 0 PCLEAR AND  SCREEN O0 PCLEAR O DATA  EDIT H LET 50351 B DATA  EDIT H POKE "'($fe)9 SET ( SET *<^ ($f2) LOAD ELSE '^ MERGE REM LOAD FOR MERGE ~+ REM REM line numbering breaks here! REM  MERGE FOR SET * RESET ELSE  DATA ($ec)O POKE P DATA 7= SET r1 NEXT SET "< 8215 ^5 LOAD m($ed)($fe)9mH' DELETE CREATE MOTOR READ WAIT CONT ' 18736  PCLEAR IlM DELETE AND &I DELETE CREATE MOTOR READ WAIT }' 19248  PCLEAR KlNmH& DELETE AND #L PCLS AND + EDIT AND +o AND (m AND $'j AND $m AND &'j AND & l AND +m AND 'j AND m AND !'j AND !9($ec) CREATE MOTOR READ WAIT 4&W SAVE READ WAIT .&Q DELETE AND  GO & DELETE AND * CLS AND ] CLS AND X GO #To AND  CREATE o AND  DELETE AND * CLS AND D CLS AND ? GO #; DELETE AND  FLREAD AND 4 DELETE AND  EDIT AND !($fc) DELETE AND  MOTOR N5" DELETE DSKINIT  EDIT AND 9 DELETE CREATE MOTOR READ PROTECT DIR ' DELETE AND  GO &l AND 9l AND 9($f4)9_ SWAP AND S SWAP AND o AND o AND o AND  POKE "&($FF6D) DATA  WAIT 9($f3)($f7) OFF PROTECT " TRON CLEAR A RETURN ?$($f5)($ec)O POKE P= BOOT b DELETE AND #L PCLS AND + MOTOR AND $ MOTOR AND * DATA  SCREEN  REM REM line numbering breaks here! REM DRAW ($f5) FN MOTOR READ PROTECT T& OFF > GO # p GO "l NEW w OFF &( T DRAW CLEAR w GO ', GO -'( GO ($f0)'$, RESET  SCREEN F OFF '1?1?($fa) FREAD STOP GO ($f0)' CREATE 4 CLEAR OFF  $5 OR DELETE M GO ' DRIVE SET m DELETE  GO ($f0)' AUTO SCREEN F0 RESET R SCREEN - DELETE FOR GO ' FN GO -' RENUM CLOSE R&($f2)n($FF53) PRESET MOTOR READ MERGE DRIVE ' 3367 ! MOTOR READ MERGE DSKINIT ' MOTOR READ MERGE CHAIN ' REM REM line numbering breaks here! REM @7]'($FF31)($ec)$($FF2A)($FF24) DATA ($f0)($FF62)($fe)($f3) DELETE CREATE MOTOR READ MERGE PCLEAR 'm AND '($fb) o& o($f6) CLEAR jL NEW ` NEW h($e8) SET m DELETE  GO ($f0)' SCREEN I DIM 2182  RENUM ($fe) SWRITE  `($f3) NEW MOTOR m AND & DELETE AND   DELETE AND  RETURN MOTOR RENAME CLEAR MOTOR RESTORE A# 4 DATA  [5J&($f4)>($fe) COLOR SCREEN F FWRITE FREAD PSET -'L DELETE REM GO ($f1)& DELETE REM PSET -' GO ($f1)'($f6) PSET -' DELETE *0 SCREEN F AUDIO -+ PCLEAR - 9726 y($fe)r LOAD @Z($f1)z DELETE READ MERGE _($f1)f LOAD @Z($f1)l($fe)^ o' SCREEN I  SCREEN K0 DIM ($FFFF)& PROTECT " DATA  ($fe)> o& SET "($ec)) AUDIO + SWRITE K AUDIO I' DATA ($fe)($fe)"mH' PROTECT STEP DELETE CREATE GO ($f0)' SET m0 RESET m PROTECT " ATN  SET "($ec) EXEC ($ed)-($ec)"($ed)B($ed)D($ec)) MERGE SCREEN SET m0 RESET LINE 0 READ ($fd)($ee)42| 24592 SET " SCREEN ) RESET SCREEN DIM 27952 'i CLEAR o4 DATA  NEW o NEW ^ CLOSE 5 NEW omH' SET r SET ($ec)/ POKE P DATA 7'G=0 NEXT SCREEN AUTO SET m SET " SCREEN EXEC  DELETE REM EDIT SOUND PSET -&($f8) PCLEAR - RESET LINE ($ec)D4($f9)K5 SCREEN B SET " PSET EXEC & POKE m& REM REM line numbering breaks here! REM ' SET LINE  SCREEN -  DELETE CLS EDIT FOR  PSET D&($f7)($fe)5 RENAME  SET " PSET &#h($ec)O SET " AUDIO /' SET * SET (<^ LOAD ~ MERGE FOR <($FFFF) NEW POKE MERGE ~ FLREAD M DATA = SET *'^# SET , 0 NEXT RESET ELSE  SET " SCREEN &4 SET /7O ERROR 5 SET " PCLEAR & SET LINE RESET m LOAD SCREEN AUDIO I4 DRIVE @O AUDIO SAVE $_ DSKINIT j\ DSKINIT ` DSKINIT h RUN SET LINE  SCREEN -  DELETE CLS EDIT FOR  PSET D&($f7) RESET COLOR RESET m SET " PCLEAR ELSE ($ec)O POKE ~&/ SET * RESET R DATA  FLREAD M= SET (0 NEXT  LOAD m($ed)0 CLOSE R($f6) SET "($ec)/ POKE P DATA 7= SET r0 NEXT LOAD m($ed) SET *  SET * DATA  FLREAD M=0 NEXT  LOAD m($ed)0 CLOSE ELSE ($f6) LOAD SCREEN AUDIO I4 DRIVE @O AUDIO SAVE  DEF / DSKINIT t RESTORE CLEAR jL NEW ` NEW h($FF09)($ec)B4($f8))5X AUDIO B' X($ec)F AUDIO B$ X&($fe)9 CLEAR jL NEW h NEW `9 o& DELETE CREATE MOTOR READ ERROR LOAD 'm AND & CLEAR @/ DSKINIT t BACKUP > RETURN >&($ef) WAIT CLEAR @L_($ef)/($f9) DLOAD mH& BACKUP CLEAR @ NEW j THEN 4 1568 6 READ  "t PROTECT "($fe) READ INPUT SCREEN F PSET - PSET B$9 DATA  NEW BACKUP tq CLEAR j($f5)9 PROTECT " CLEAR j NEW @L NEW ` NEW h CLEAR PROTECT " SCREEN F PSET - PSET B SCREEN - PCLEAR F DATA  NEW t BACKUP CLEAR j OR PROTECT " CLEAR @ NEW j PROTECT ($f1) OPEN  DRIVE FREAD i BOOT ($f1) PRESET PROTECT "0 READ ERROR 1 READ 2852  DATA g CREATE n ELSE MOTOR FOR ' 1"m EXEC &($f6)940 READ DIR ?($ec) EXEC 0 NEXT ($fe)5 REM J_K^J($f3)K CLOSE K($fc)L"B+B SUB &3A;A=@ NOT 7YAL($f4)L'K BOOT M RETURN BMz*(NmN REM N RUN O@@@@@@ CLOAD K^K CLOSE REM REM line numbering breaks here! REM RESET k PROTECT  SET "($ec)/ POKE P DATA 7= SET r1 PCLS LOAD k o' AUDIO )  AUDIO +$1 TRON OR ($eb)! SET < 6838 ($ec)O POKE ~'9 POKE FOR 'C($f6) EDIT LOAD m AUDIO D$($ed)DmH&($ed)B READ 'L ^'($ec)D POKE m$A($f8)f MERGE LOAD k o' AUDIO I9 AUDIO K9($f0) USING ($fb) SET ( RESET DELETE SET *  SET * RESET DELETE SET , RESET TRON READ DSKINIT & o& m AND & DELETE CREATE MOTOR READ FWRITE *'^9 ^'($ec)D POKE m$($f2) SET DELETE 1 RESET DELETE  CLOSE TRON ''m$'($f6)&($f8) -($f9)` SET DELETE SCREEN EXEC PCLEAR -($ec)"($ed)D DELETE $ EDIT H COLOR 4@ PROTECT  SET "($ec)/ AUDIO O'j' REM REM line numbering breaks here! REM 'I($ec)O POKE P DATA 7= SET r0 NEXT  SET &< 7 FLREAD SET * RESET ELSE SCREEN O RESET FOR PROTECT &  SET ELSE ($ec)-($ed) ELSE ($ec)D($ed) DELETE H EDIT 0 RESET ELSE SET , CLOSE ELSE ' ($f7) RESET ($ec)I SET  AUDIO )& KILL PROTECT ($f0)($fb) SET *<^ SET ( MOTOR LOAD ~ MERGE FOR <($FFFF) NEW POKE MERGE ~ FLREAD M DATA = SET *'^#<^0 NEXT RESET ELSE mH'($ec)D ($ec)- SET m RESET R MERGE m LOAD R POKE m SET " SCREEN EXEC RmH' PCLEAR D  PCLEAR - SET  SET "< 7N PROTECT "($f5)I5 NOT 46 SET 4o1 READ 646  NEW Y5X AUDIO EXEC  X ($f8) SWRITE EXEC 4 CLEAR X NEXT 0 EDIT FOR 51"X Y& VERIFY SET 4/ DATA 0 MOTOR ELSE & DATA EDIT FOR Z&($f3)5 PCOPY '($e8) 2560 460 READ DSKINIT +1 READ REM REM line numbering breaks here! REM ($fd) DELETE  PRESET ELSE 5 PCOPY ($fe) ($fa) NOT CLEAR jL NEW h NEW `($FFEB)/ PAINT //F-H-i-C-o0A0e0 OPEN ->/($e9) 7422 9p9 o'Om AND & FLREAD CREATE SAVE READ DSKINIT }& DATA  PAINT ($fe)9 DATA  NEW o9 COLOR ($fe)9 CLEAR ?L NEW `($ec)d< REM REM line numbering breaks here! REM ($eb)= SCREEN READ DSKINIT ~ PRESET < ($eb) FN SCREEN READ DSKINIT u CLS a& SCREEN READ DSKINIT n  SET 0 PSET  DIM < ($eb) LLIST SCREEN READ DSKINIT V  a& SCREEN READ DSKINIT M  SET 2 NEXT  k< ($eb)| SCREEN READ DSKINIT 9 ^ N' SCREEN READ DSKINIT 0  SCREEN READ DSKINIT , M< 24238 READ DSKINIT  @ O' SCREEN READ DSKINIT   SCREEN READ DSKINIT  / SET ($ec)O+ REM REM line numbering breaks here! REM ($ed) MOTOR ($ec) AND ($ed) MOTOR FLREAD AND +O($ed) MOTOR FLREAD AND *($ed) MOTOR FLREAD AND ($ed) MOTOR FLREAD AND ($ed) MOTOR FLREAD AND #\($ed) MOTOR FLREAD AND -($ed) MOTOR FLREAD AND ($ed) MOTOR FLREAD AND ($ed) MOTOR FLREAD AND ($ed) MOTOR FLREAD AND )($ed) MOTOR FLREAD AND ,($ed) MOTOR FLREAD AND 4($ed) MOTOR FLREAD AND 5($ed) MOTOR FLREAD AND 6($ed) MOTOR DATA ($FFC6)Ym AND &/N($ed) MOTOR /Ym AND /&/N($ed) MOTOR FLREAD AND 0($ed) MOTOR FLREAD AND 1($ed) MOTOR FLREAD AND 2($ed) MOTOR ($ec)- POKE m($ed) MOTOR  SET ($ec) READ DRIVE t0 READ BOOT o0 NEXT  SET DATA  NEW LLIST READ  DATA  NEW SET DATA  NEW LLIST READ ($ed) MOTOR READ DRIVE $' MOTOR READ DRIVE &($f1)9 DATA  NEW CLOSE CLOSE 'O LOAD LLIST ($ea) ELSE LLIST m FOR '($f1)0}($ec) MOTOR GO ($FF27)($fd) DRIVE 4 SET 4 DELETE  GO & 0 LOAD LLIST J=  LOAD LLIST J= ($ea)UV5 STEP ]' FN 4 LOAD LLIST J=($ea)A5($ea) PRESET 9 NEW &  SCREEN F1! CLOSE c DATA ($ef)($fe)9 DELETE CREATE MOTOR READ DIR LINE 'm AND ' h SCREEN F DELETE ELSE * GO ($f0)' GO ($f1)'1! H NEW & COPY SCREEN F DELETE ELSE GO ($f0)' SUB DELETE CREATE MOTOR READ DIR }'m AND ' h PSET -' DELETE ELSE + GO '0 ($f0) GO ($f0)&($f8)0 SCREEN F DELETE CLS GO ' GO ($f0)&($f6)1? DELETE CLS GO '($fa)1? PCLEAR F PSET -' DELETE REM EDIT SOUND ($f6) PCLEAR -($f8) COLOR ($fa)! h' CLEAR jL NEW h NEW `($fe)9 SET m DELETE  GO ($f0)'($ec)I' 2182 J($fe)9 SCREEN B DELETE REM GO ($f0)&($f0) SCREEN - PCLEAR - PCLEAR F DELETE EXEC MOTOR READ CREATE ($f6)'^m AND & OFF ($fe)9 DATA RIGHT$ `($e9)($eb)/ SCREEN READ DIR IF  PCLEAR M'B0 READ DIR }JH0 DATA ($ec) ELSE 0 READ BACKUP ($f6)0 NEXT  CHAIN ($e9)^ CHAIN = GO & BEEP DRIVE DATA  BEEP BOOT ($ed)< 59675  CHAIN RUN  ($f6) - CHAIN I BOOT ,($eb)($e9)9 SCREEN F DELETE ELSE GO ($f1)' PSET -' DELETE  GO ($f1)' GO ' DATA ($f1) REM REM line numbering breaks here! REM ~($f7)($f2)($f9)c($fe)9 DRIVE A KILL DEF ' SET .O SAVE DATA 'm DATA ' L GO &($f1) DATA  RUN 9 NEW X/ Z DELETE IF \ EDIT IF Z BOOT X&($f5) CLEAR A OPEN DEF EDIT IF 9 SET ._ CLEAR A OPEN DEF MOTOR IF '\ STEP &($f7)9o IF \ STEP '($f8) DELETE IF '($f4)Z EDIT IF \ ($f1) SET ._ CLEAR A OPEN DEF MOTOR IF \ STEP &($f7) DATA  313 DELETE IF ($fe)94($ec)- POKE m' REM REM line numbering breaks here! REM AND "' 1926  2438  309 REM ($ec)F AUDIO - SCREEN -1 PCLEAR -($eb)5 EDIT EXEC ($fe)94 NEW x DATA  BACKUP LOAD 5 REM 4_ CLEAR @($e8)$ DATA * SWAP ($f5) SWAP ($f2) SWAP ($ef) DATA  SWAP ($ea)($ec) READ COPY THEN 0 READ AUTO -0 NEXT DELETE FOR RETURN x' DELETE FOR &($fc) DELETE FOR &($f4) ,($fb) DATA  SWAP AND  SWAP * DATA * DRIVE ? SWAP FN BOOT A&($f9) SWAP PMODE ($ea) SUB MOTOR READ COPY Z' MOTOR READ COPY \&($f1)5 CLEAR SCREEN READ COPY { COLOR AUTO 4v h' h SET " SET $< 5215 CLEAR ` RETURN ># CLEAR >L NEW `($fe)5($f6) PROTECT $($f2)+&mH' DELETE CREATE MOTOR READ COPY '($ef)m AND &($ea)  o'($ed) DATA  NEW t CLEAR ` 24602 5($f6) CLEAR `($e8)h ($f3)4v DATA  NEW t j'W o&($ec)K ($ec)I BEEP j REM REM REM line numbering breaks here! REM $ KILL j DSKINIT j'AO_($f9) PROTECT ($ef)($f0) SET ($f1) OR mH' DELETE CREATE MOTOR READ CHAIN THEN '($f1)m AND &($ec)  o'($ed) LOAD m AUDIO B"($ed)B CLEAR SET   CLEAR SET L NEW SET RETURN j& BACKUP 5($f6) NEW XO BEEP XL ($f9) KILL X946 CLOAD ^ K& AUTO ^ SWAP q SET @ RESET BOOT _ FLREAD FLREAD  SCREEN - DELETE EXEC MOTOR READ CHAIN j'0mH' SKIPF mM'1m AND &am AND !&P m AND $&Sm AND &&Bm AND & 746 DELETE EXEC * GO ($f0)'! GO ($f1)'($ea))1! 0! PSET B&($ea)1! PSET B MERGE O($ea) ($ea) K& POKE "' LOAD BOOT  FLREAD q FLREAD ($f9) AUTO B5 PCOPY m AND /' K& READ  DRIVE LIST BEEP END ($FFA9)T EXEC AUDIO  SCREEN - END  DIM  ON  INPUT _ PSET B'E DELETE CLS +($f7) END GO & ON ($ed)\ PSET B$1 DELETE CLS * GO ($f1)&($f3) PSET B&($ee) END GO ' MOTOR AND 0'/ END  INPUT FWRITE INPUT END ]&_ BACKUP _ DIM > SCREEN - INPUT ' DIM ' DIM 9 DELETE CLS + PLAY MOTOR AND 0' GET  PSET B$ VERIFY ($e8) DIR MOTOR READ BOOT n&($e9) DELETE > GO ' GO ,' MOTOR AND 0& ERROR DELETE EXEC GO ' GO ,' MOTOR AND 0&= END ^ SCREEN B DELETE REM GO ($f0)'($fe)($f9) K' CLEAR D GO  1901 AND /& 462 ($FF3E) DIM '($fe) KILL DELETE AND  OPEN INPUT RESTORE END CLS AND ( CLS AND )+($fe)>'($fe)/ LET RESTORE DIM # LET ($f8) OPEN DIM NEW RESTORE ' LET CLEAR LET J NEW RUN ($e8)Y PSET B'($fe)^ DELETE CLS +! GO 'Y . Y'* RESTORE ' RESTORE DRIVE LET  DRIVE RUN  REM Y  GO ($f0)'($fe) SOUND GO ($f1)& PSET B&* DATA  NEW ($e8) SUB ($e8)& 1? DATA ($e8) LIST 1! SCREEN 1> DATA ($e8) END 1"($e8) MOTOR ($fe) DELETE DRIVE ON ($eb) AND )($eb) AND (=m AND /' 40502 /@ FLREAD SKIPF CLEAR INPUT = MERGE Z LOAD MERGE POKE Z MERGE MERGE DRIVE END BEEP INPUT CLEAR G= MERGE MERGE  SCREEN - DELETE EXEC + GO &1! ($f4) GO ($f0)' GO ($f1)' DELETE ! ($ec)O DRIVE END BEEP INPUT BEEP ON Z MERGE Z DELETE AND , DRIVE VERIFY ($fd) NEXT FLREAD AND  RENAME AND ) RENAME AND (=X POKE MERGE POKE Z X ($f8) COPY Z CLEAR X DSKINIT LOAD 'L NEW KILL ($fd) AND ($fe)"m AND /' K& DRIVE LIST BEEP END ($fd) CIRCLE  REM REM line numbering breaks here! REM COLOR ($fd) SCREEN  Q SCREEN - DELETE AND , DRIVE VERIFY ($fd)? DRIVE LIST = POKE MERGE ($fd) CONT mH'm AND ' m AND $'GV MERGE MERGE ' 5085 MERGE DATA RIGHT$ DRIVE DATA NEW DIR  DSKINIT ($e9) GET LOAD MERGE ($e8)+ 54918 NEW DIR  DSKINIT ($e9) MOTOR ($fd)Z MERGE  PROTECT  SET 6 SCREEN - CLOSE c$ PSET B$ FLREAD FOR + SAVE AND 0'XO FLREAD PCLS O COPY MERGE MERGE MERGE VERIFY 9 STEP ($f0)'($fb) STEP ($f1)& KILL PSET B& DSKINIT /- VERIFY DELETE FOR +($ec) MOTOR AND 0'> PSET B($f3)9mH'_ DSKINIT Y9 FLREAD AND (($eb) AND ) DSKINIT Y READ  DRIVE Y9 DSKINIT SAVE ' DATA CLS  SWAP 0 SAVE &($f7)9($ec)O+ REM REM line numbering breaks here! REM ($f6)($fc)/ DATA - SWRITE eZ&($fa) DATA  SWRITE ] SCREEN READ BACKUP Ji SET 40} DATA  SWRITE J DATA - SWRITE E DRIVE A BOOT ?($f7) SWRITE <($fc) VERIFY =6,($fd)  SWRITE ERROR _ CLEAR j SWRITE Q SCREEN - CSAVE PSET F' CSAVE DELETE FOR *($f6) GO ($f1)'($f2)0 ($ee) SCREEN -X DRIVE ?Zm AND & RENAME AND (* STEP AND  X RENAME AND )$ X BEEP CSAVE $O NEXT =$($fa)Lm AND & CLS AND (* GO AND "$ CLS AND )J'm CLS *($f9)L ($f6)m AND & FLREAD AND )($eb) AND (' DATA  SREAD PMODE Z&($fa) PSET F$ DELETE EXEC * GO ($f1)' ($eb)1" ($ec)($eb) 1! FROM DRIVE A DSKINIT Y DRIVE LIST KILL INPUT BEEP END # CLEAR A RETURN ?$h DELETE READ AUTO 84_ SREAD OPEN 5Z&($eb) DRIVE ? BOOT A#S PSET B$# DELETE EXEC * GO ($f1)' GO ($f0)'($ea) STEP 1" SREAD ($ea) RENUM 1! KILL 0! PSET B&($f6)($ea) PRESET DRIVE ? DATA BOOT A# SREAD ? ($f7) SCREEN B FLREAD ? STEP ($f0)& DELETE READ USING FLREAD  SREAD - CLEAR @ DRIVE Y SREAD P SREAD FREAD >!9 PSET B$ MERGE DELETE EXEC GO ($f1)&0! PSET B'1!($ea)l ERROR mH' FLREAD AND  m AND &($f6) FLREAD AND  RENAME AND ) RENAME AND ( DSKINIT LIST 94 OR ($e8)0 READ AND -0 NEXT  SAVE KILL DELETE FOR &($f9) OR DIR 5 DATA 4 OR USING ($f0)> OR ($fa) SREAD  FROM DATA RIGHT$ ` SREAD nK PROTECT " FROM & SCREEN READ AUTO /2  SCREEN M' 535  5H0 READ REM REM line numbering breaks here! REM ($ec) DATA 0 READ AND nn NEXT 8< CONT : PRESET ; <8 DELETE 9.8>8.88 WAIT <]O)QC 158 1 ON 7 RESET R OR CONT MOTOR READ USING ' REM REM line numbering breaks here! REM H MOTOR READ <($f9)' MOTOR READ <($f2)' GO ' GO # SAVE CLOSE R' MERGE EDIT FOR GO ' SAVE 6 CHAIN 9 CLOSE ' USING READ ($f8) CLOSE '* READ  STEP 0 LOAD @Z SAVE E DATA  SAVE  LOAD @Z SAVE :9 PROTECT "KmH'($f2)($eb) DLOAD ($f1) SCREEN READ USING  ($f1) DELETE READ ^ SWAP NEW D($FF34) SCREEN READ <($f9) 36295 DIR NEW D($FF24) N& O' SCREEN READ < FROM  REM REM line numbering breaks here! REM OR ($FF12) SCREEN READ < SAVE  -($fe)($f9) RENAME STEP  SWRITE VERIFY MOTOR READ DLOAD $ OR PCLEAR ($fe)@($fe)C< 3532  REM REM line numbering breaks here! REM < < 7446 ($fe) SCREEN READ =($e9)($FFE1)($fe)|0 CLOSE '($fe)" DATA  NEW o SET  REM REM line numbering breaks here! REM FROM a&5 SET  READ  DATA  NEW a< 12304 SET 2 CONT  USING 46/7 SET 0 DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)O EDIT ELSE 5 PCOPY  AND ($eb) REM REM line numbering breaks here! REM z SET m SET "($ec) MERGE Z SCREEN ELSE  DELETE FOR EDIT CLS CLOSE Z&($f8) SET Z0 INPUT ($FF38) RESET R OR 9 GO $ GO &($f3) DATA ($f0) EDIT CLS  CLOSE R&($ea) DATA ^5 SCREEN READ =Z($FF58) (M AND PAINT PROTECT " SCREEN F0 CLOSE c& DELETE ? GO ($f0)&00  DELETE SOUND EDIT REM  CLOSE m&($f7) PROTECT " PCLEAR - PCLEAR F($ee)Z($ef)= DATA RIGHT$ `h($fd)_<  WAIT ? AND GET  AND r SCREEN READ =($FF0F)($fd)I< 10519 AND LLIST  AND \ SCREEN READ >($f8)($fe)($f9) SET 4 DELETE FOR GO ' GO ' GO ,&($f2) RESET fo5 STOP SET 0^:)X$a  SET 2^-)K DATA  NEW a  DATA  NEW a< 12304 SET 2 DATA ^d$940 RESTORE 5# DELETE ELSE  SAVE THEN MOTOR READ >Y' MOTOR READ >T' MOTOR READ >O& DSKINIT b CREATE DSKINIT E BEEP DSKINIT D < SCREEN READ >~($fc) PRINT  OR e DATA  NEW > AND O'f0 READ AND  RESET V N' SET r AND  EDIT FOR CLOSE ^($f5) RESET R SET r PROTECT V DELETE FOR PRESET - CLOSE R($f6) MERGE (N ($e8)X  DATA  NEW X PROTECT SWAP  WAIT - X'^ STEP ^z^}^ FOR ^' OR > AND N&($fd)/ O&($fd))0 READ ^ PAINT RESET V a'7 SCREEN READ OR FLREAD ($fd)($e8) SET 2($fc) SCREEN READ OR LOAD ($fb)($f7)($fc) SAVE  MOTOR READ OR DEF ' MOTOR READ OR RETURN ' GO & DSKINIT DELETE READ OR PRINT  MERGE ^ SET 2  MERGE NOT SCREEN READ OR DLOAD ($fd) PCOPY ($fc)L0 CLOSE '($fb)($f2) SET ($fe) DLOAD SET  RESET R/ MOTOR $K(3^ SET R^`$($ed)(' SCREEN READ OR INPUT ($fd) READ ($fb) SUB  RENAME PCLS MOTOR READ OR >' GO & DELETE READ OR 4*L SET R/($f0) BEEP < REM REM line numbering breaks here! REM  MERGE RUN ^ SCREEN READ OR U($fd)b/^($fb) CLOAD  SET \ AND &Y CLOSE m'! DELETE CLS GO ($f0)& DATA SET V PRESET ELSE $($ed)< 24343 / COPY SCREEN READ OR '($fd)2($fb)l SET " SCREEN EXEC  CLOSE c' DELETE CLS GO ($f0)& DATA SET V PRESET ELSE $($ed) CHAIN >&($fe) TROFF /s($fb)E CLOAD AND >($FF35) PROTECT " SCREEN F CLOSE +' VERIFY DELETE CLS GO ($f0)& DATA / LIST $($ee) MOTOR DATA - PCLEAR SCREEN READ AND CHAIN ($fc) AND ($fb)< REM REM line numbering breaks here! REM  LOAD ($f1)/e($fb) DATA  NEW ($ec) SOUND 0 READ 18606 READ AND FLREAD ($fc) DELETE ($fb)A SET ($fd) PCOPY * SOUND ($FF34) REM REM line numbering breaks here! REM </ 50760 9 PROTECT ($FFBD)($ec)0 READ - ON RESET H SCREEN READ AND AUDIO ($fc)s($fa) PRESET MOTOR READ AND &'($fa) PUT GO ', WAIT RUN '' MOTOR READ AND !'! MOTOR READ AND ' DATA -. FWRITE  LOAD Q SCREEN READ AND v($fa)]($fa) MERGE SET ($fd)R  DELETE READ ^($fa) LOAD 9($ec) READ AND X0 READ +0 NEXT -?$(($FF59) SCREEN READ AND I($fc)!($fa)` SCREEN READ AND C($fc) SOUND ($fa)E MOTOR READ ^ FN '* WAIT - MOTOR READ ^ STEP ' GO ' MOTOR READ ^ PCOPY ' DATA +> MERGE  KILL ($ed) SOUND  DELETE READ ^ AUDIO  KILL SREAD READ - K DATA  NEW j NEW o PROTECT "($fa) DATA NEW FREAD  ERROR  FWRITE GF DELETE READ ^ RESTORE  CIRCLE DELETE READ ^ END  SUB DATA  NEW J NEW Kt DATA  LOAD > SCREEN READ ^ CREATE ($fb) EXEC ($f9) CREATE MOTOR READ ^M' 57018 MOTOR READ ^N' GO ' MOTOR READ ^C' DATA +W KILL DELETE READ ^6 KILL v NOT /($FF20)+ KILL m SCREEN READ ^ CSAVE ($f9)y($f9)($f9) SET  L SCREEN ]'Z DSKINIT NOT SCREEN READ ^ IF ($f9)b($f9) SREAD SET  5 NEW DSKINIT STEP BOOT NOT # RETURN LET REM REM line numbering breaks here! REM 10007 ($ee) REM REM line numbering breaks here! REM SCREEN READ ^_($fb)6 SET " SET $< 2043 PROTECT $ DELETE AND  RETURN STEP '7 RETURN NOT . REM REM line numbering breaks here! REM yc ($ec)&+]' +; GO ' MOTOR READ / COLOR &($f9). MOTOR READ / EDIT ' GO ' GO '< ($ed) FROM LLIST $ OFF DELETE AND  MOTOR AND *$J EDIT AND +oBoD FROM ON DELETE AND +' DELETE AND  RETURN STEP ' READ ( ($eb) FLREAD AND * BEEP J\4 1114 &($f6) DELETE READ /{ REM REM line numbering breaks here! REM CLOSE DELETE READ /u 8727 FROM S9 DELETE CREATE MOTOR READ /L' m AND &m AND +&($fe)9 DELETE AND , REM REM line numbering breaks here! REM t DELETE AND - GO  KILL  LOAD DELETE AND + RETURN J'+ DATA CLEAR JL NEW J MOTOR AND *#($ec) DATA  NEW J SOUND ' VERIFY ($f8) DIM MOTOR READ /' KILL GO ' DSKINIT GO ' ($ed)9($ec)B AUDIO -' 796 ($fe)9 FLREAD AND Z+ DATA NEW DIR  DSKINIT CLEAR D GO & DATA  NEW DRIVE  CLEAR G NEW DRIVE 4 WAIT TAB(5 PROTECT ($f3):($fe)9 DRIVE D STEP " DRIVE VERIFY ($f3) RETURN G' REM REM line numbering breaks here! REM NEXT 9 DRIVE D STEP " /0($f3) RETURN F' 3545 ' DIR  DSKINIT  WAIT FOR CREATE ' CREATE DATA  READ  DATA READ  DATA 4@ PROTECT H PRESET -5 NOT 4 CLEAR D GO '"$ DATA  7053 FROM D' DATA 9  DATA READ FWRITE CLEAR F REM REM line numbering breaks here! REM \5 REM DATA  READ AUTO DATA  READ >5 REM 4 CLEAR D GO '" DATA  2701 DRAW CLEAR F 33414  READ LINE DATA  READ DELETE 5 REM NEW G4 CLEAR D' GO & DATA  READ CONT DATA ] READ RESTORE DELETE VERIFY NEXT @ DATA  READ DATA DATA  READ REM DELETE VERIFY L($FF7C)5 REM NEW F4 CLEAR D' GO & DATA ($FF69) DATA ]($FF64) DELETE VERIFY NEXT O DATA ($FF59) DATA ($FF54) DELETE VERIFY L($FF4E)5 REM FLREAD FREAD + OFF READ - DEF ($f0)* SCREEN F0 PCLEAR F  STEP ($f0)' STEP ($f1)' DSKINIT OFF READ  SWAP FREAD  SCREEN F USING  SAVE M LOAD @Z FWRITE  !4 OFF ' OFF MOTOR READ -s'! MOTOR READ -n' MOTOR READ -i' MOTOR READ -d' MOTOR READ -_' OFF ' OFF _5 REM / / /  DRIVE OFF ->@  DRIVE OFF ->` CLEAR OFF ELSE p&>0 ERROR OFF > FOR \ DSKINIT OFF 5 REM DELETE FREAD * FN GO ($f0)' PLAY GO ($f1)' PAINT SCREEN F1($ec)F PCLEAR F AUDIO -( PCLEAR -($FF6C) e' DATA ($f0)H($e9) PUT ($ea)($e9) PRESET LOAD + AUDIO F MERGE *($ec)- POKE m' REM REM line numbering breaks here! REM  POKE *$ DATA ($f0)(($e9) CONT LOAD * SET m SCREEN F($FFDC)c POKE +'  SET +0 SCREEN F1"($ec) RESET c DATA  NEW e LOAD * SET m SET c KILL ($ec)F AUDIO - SCREEN F1 PCLEAR F RENUM  PCLEAR - SWAP #($e8) CONT CLEAR jL NEW h NEW `($e9)* e& DATA ($ef) USING ($e9)9($ec)- POKE m POKE *$ DATA ($ef) SUB ($e9)) SET c SET m LOAD * CONT LOAD c AUDIO F SET c SET ^ RESET cre LOAD * SET m SCREEN Fy($FFAC) e& DATA ($ef) INPUT ($e8)($f5)($ec)- POKE m' AND POKE *' 2182 ($ef)m($e8) FWRITE ($ec)- POKE * SCREEN -($ed)- SCREEN - RESET Z($ec)F POKE Z: PCLEAR F SET c SCREEN F LOAD *-($FF60)($eb)($e8) SCREEN CLEAR j FREAD h CLEAR j_ DSKINIT k LOAD + AUDIO F($ea)> SCREEN READ + NEXT ($f5)F SET 4($f5)\ SCREEN READ + GO ($f5): ERROR - DSKINIT ! ELSE _ MOTOR READ OFF FREAD &($e8)^ SET +1" SCREEN F($ec)F AUDIO - PCLEAR F> PCLEAR -($FF0D) DELETE READ OFF PUT ($ee) DRAW  SWAP LLIST ($e8):($eb)= DATA  NEW o DATA  NEW j BACKUP ($f0) CLEAR jL NEW h NEW `_< 55036 SCREEN READ +($f4) PROTECT SET  RESET PUT  RENAME SWAP SET 4 LOAD PUT AUDIO SAVE ' REM REM line numbering breaks here! REM '($e9)r 27212 NEW h NEW `< 51886 READ OFF SWAP ($f4) PSET DATA  NEW t CLEAR j BACKUP ($ef) DLOAD  FWRITE CONT GO ' MOTOR READ OFF 5' GO &($ef) ^ DATA ($ee)i DATA  NEW j($ef)* CLEAR j GO 'L NEW ` NEW h SWAP n($eb)= DATA  NEW o SOUND DATA  NEW j BACKUP ($ef)y CLEAR jL NEW h NEW `=< 54888 SCREEN READ OFF INPUT ($f4)J SET  RESET PUT L SWAP SET 4 LOAD PUT AUDIO SAVE ' REM REM line numbering breaks here! REM '($ed) LOAD PUT MERGE PAINT <  DRIVE @ SCREEN READ OFF c($f4)"(+ AND  SOUND &M DATA  NEW h NEW ` DATA  DSKINIT  DATA  DSKINIT < 5038 READ OFF 8($f3)($f5) DATA  NEW t DATA  NEW j BACKUP ($ef) REM REM line numbering breaks here! REM  FREAD KILL MOTOR READ STEP FOR '($FF54) ELSE _ MOTOR READ STEP REM 'R MOTOR READ STEP ~' MOTOR READ STEP u& SAVE  SOUND LOAD PAINT +  COPY PLAY POKE PCOPY POKE PUT e SCREEN F1 IF ($ec)F AUDIO - PCLEAR F[ PCLEAR - LOAD PUT POKE PAINT '  SET PAINT  SCREEN F\ RESET = VERIFY PAINT  FLREAD # SOUND &($FF6C) DATA  NEW ` NEW h<  DIR CONT SCREEN READ STEP CIRCLE ($f3)v DATA  NEW t DATA  BACKUP ($ee)' FREAD ^ GO '($fe) FWRITE MOTOR READ NOT ($fd)'($fe) BOOT GO &($eb)($FF36) DSKINIT Y SWRITE - POKE m'' !' 1414 ($ed) SCREEN - DRIVE Y1 IF ($ec)F AUDIO - PCLEAR -($ee) PCLEAR F($FF7D) DATA ($ec) LEFT$ jL NEW h NEW ` 8215 ($ec)($f0) DATA  NEW j($ed) CIRCLE DATA  RETURN j& SOUND 'L NEW ` NEW h FROM ($f1) DELETE READ NOT TROFF / CREATE ($f9)_ SET PUT  DSKINIT PROTECT MOTOR READ NOT ''($fe)W MOTOR READ NOT o'j GO ' MOTOR READ NOT s'c MOTOR READ NOT ^'/ MOTOR READ NOT i& DATA ($f0)  GO BOOT EDIT IF GO '6\ STEP 2 DATA ($ec) DIM STEP 2"8 GO ($f0)& DELETE READ NOT C CREATE END COLOR ]'(4 LOAD @Z CREATE EDIT DATA  CREATE x LOAD @Z CREATE CLOSE 5Z LIST \: RESET PUT DELETE READ NOT -/ CREATE ~($fe)99 DATA EDIT IF \: RESET PUT DELETE READ NOT  CREATE i SCREEN READ NOT CONT ($f2)W ($eb)($fe)9 SCREEN F CLOSE =" SET =  DELETE FOR * GO ($f0)' GO ($f1)'0 RESET PCOPY CLOSE c$5 SET  SET PCOPY DELETE ELSE ($eb)' GO A GO Z" NEXT GO a GO z" FOR FLREAD FOR * GO ($f0)& MOTOR EXEC ' SAVE EXEC ' CLOSE c BEEP 9 RESET PCOPY 1! 2 DELETE EXEC GO '2 DELETE ELSE ($eb)' GO A GO Z" NEXT GO a GO z" FOR FLREAD FOR * GO ($f0)& SAVE CLS ' MOTOR ?& RESTORE CLOSE c&> END CLOSE c$ TAB( RESET PLAY SET PCOPY 0 RESET PCOPY DELETE * GO ($f0)' GO ($f1)'0 RESET PCOPY SET PCOPY PSET B PROTECT = ($f3)($fe) PCLEAR F9j READ O CREATE CLEAR DATA  CREATE RETURN DATA  CREATE DIM DATA  CREATE PRINT 9 SCREEN F DELETE FOR CLOSE c' MOTOR READ THEN &($f4) DELETE FOR CLOSE c' MOTOR READ THEN &($e8)0 RESET +($fe)9 DATA ($eb)29L4]  DELETE REM EDIT SOUND Z&($f9)j VERIFY &($f5)5 REM L4]  DELETE FOR EDIT CLS Z&($f9)j VERIFY &($f5)5 REM X1 READ DLOAD ($f2)($ec) READ FN SWRITE 1 PCLS SCREEN -0 DELETE FOR GO '! GO ,' DRIVE  MOTOR CLS &m EXEC &($eb) DELETE ELSE GO '7 GO ,'3 GO ($f0)'/1! m CLS &($fc) Xm EXEC &= POKE "& DATA ($ea) FN 9 POKE "&($fa) DATA ($ea) GET 9 POKE "&($ef) DATA ($ea) TRON 91 READ REM REM line numbering breaks here! REM CLEAR XH($ec) DELETE 1 READ DLOAD INPUT n PCLS F CHAIN GOGF($eb)F($f5)F($f1)G G NOT G CHAIN HfH CSAVE FSG($f9)G($f2)H'HF TAB(H AUTO H($ef)II=IYI_IeIwI INPUT I CSAVE I PROTECT I($ed)I($f8)J 23 N INPUT mH& OPEN m AND & CLEAR SAVE AND +# DATA SWAP AND +97($FF70) STEP REM REM line numbering breaks here! REM &/mH' SWAP AND 9 SWAP AND $9 DATA  EDIT AND 9o AND 9 STEP &/mH' SWAP AND !9 SWAP AND &9($FF10)($FF38) STEP x"($FF3D) SWAP AND 9($ee)($FF27)' 9727 * STEP d"($FF24) SWAP AND * DEF CLS AND ($FF18) CLS AND ($FF11) GO #($FF0B) REM REM line numbering breaks here! REM OPEN ($FF04) RENUM ($fe)($f3) DSKINIT YmH&m AND & DELETE AND 4 SWAP AND  READ 5$ EDIT AND ($fe) WAIT 9 DELETE AND  SWAP AND 4 READ 5$($f1) EDIT AND ($fe)>4 DELETE AND  GO CLEAR " DELETE AND ) PCLS AND (+ DELETE AND  GO CLEAR " CLS AND ) CLS AND ( GO ($fe)5 REM  POKE "& DATA ($e9)U5 REM I($fe) REM ]&\($eb) AND + SWAP AND +97($fe)p]' STEP "($fe)rZ SWAP AND #9 DELETE AND * CLS AND L EDIT AND 9 DELETE AND  EDIT AND +9($fe)I($ed) AND 9($fe)>mH&($fe)Nm AND &($fe)G DELETE AND ) SWAP AND )($FF69)$ EDIT AND )9X0 DELETE ELSE GO '($f8) GO ,'($f4) GO -&X0<($fe) X'S\mH&($fe)m AND &($fe) DELETE AND ( SWAP AND (($FF2A)$- EDIT AND (9m AND &($fd)($f2)mH&($fd)($ec) DATA  EDIT AND o AND  POKE "'($ec)D  LOAD m SCREEN D4@ PROTECT $ PSET AND &($ed) AND 5@($ed) AND 9m AND &($fd) FN mH&($fd) PLAY DATA  EDIT AND o AND  POKE "'($ec)D  LOAD m SCREEN D4@ PROTECT $ PSET AND &($ed) AND 5@($ed) AND 9;($fd)t POKE "& STEP ' STEP ' STEP ' DATA ($e8)& SWAP AND ,9($fd)S POKE "& STEP ' STEP ' STEP ' DATA ($e8) SWAP AND -9 DATA  EDIT AND / K' CLEAR D GO & DATA ($f6)/ DATA ($f6)* DATA ($f6) COPY &  POKE "& DATA " SWAP DIR 9o AND / K'($f8) CLEAR D GO &($f2) DATA ($f6) DATA ($f5) LOG ($f5)($fa) READ  EDIT AND 09 READ EDIT AND 29 READ  EDIT AND 19 DELETE FOR GO '($fa) GO ($f0)&O9 STOP ($fc)=($eb) AND + SAVE AND $($fe)j9 FLREAD AND 4($fe) TAB( FLREAD AND 6 READ ($ea) FLREAD AND 5($fe)1X0 DELETE ELSE GO '($f8) GO ,'($f4) GO -&X0 Y($fc) STOP X'S\mH&($fc) CLOSE m AND &($fc) LIST DELETE AND ( SWAP AND (($fd) PMODE EDIT AND (($fc)z SWAP AND 49 +($fc)d]&\ SWAP AND 59 ($fc)U SWAP AND 69 K'($fb) DATA ($f5)R ($fc)A SWAP AND .9O_ MERGE Z DELETE FOR GO '($fa) GO ,'($f6)  DELETE FOR GO ($f0)'5 GO '1 GO '- GO ,') GO -' MOTOR AND 0' GO 0! GO 9" ELSE 4 LOAD ZXIXIXI COPY Z COPY Z($eb) RENAME INPUT MERGE Z *($fe) LOAD Z99 READ  RENAME  o& SCREEN K  SCREEN I0 DIM ($FFFF)'4 RENAME STOP PROTECT "5 SET m(&($e9)  DATA  FLREAD IF 9 SET DRIVE @Ot o& SWRITE + AUDIO K  SWRITE ) AUDIO I$- STEP ($FF26) ` C' BACKUP M DATA  NEW CLEAR _  ` C' BACKUP =\&($f4) DATA  NEW ` NEW h CLEAR _ DATA  NEW t DEF _ AUTO p SAVE PROTECT " DSKINIT  DATA  NEW BACKUP CLEAR @ NEW j SWAP ^ h' FLREAD RETURN 9 READ  WAIT ON  FREAD ERROR $ FLREAD  WAIT } o& DELETE CREATE MOTOR READ DLOAD AND '($e9)m AND & VERIFY CLEAR @tL RETURN >#  AUTO BOOT DATA  NEW t NEW CLEAR CLEAR >_ AUTO  RETURN ` NEW tmH' t' FN  BACKUP / DSKINIT t CLEAR @ SWAP  CIRCLE / DSKINIT BACKUP CLEAR @ FLREAD ($f9) CLEAR @ NEW j t'L NEW ` NEW h9 SCREEN F DELETE ELSE * GO ($f0)' GO ($f1)'00 PSET B CLEAR DEF NEW q($FF78) DELETE ELSE GO ($f1)&1 PSET B& FREAD PCLEAR F BACKUP t CLEAR j FLREAD PCOPY CLEAR A OPEN DEF NEW q PROTECT VERIFY SCREEN F PSET -& CLEAR DEF OPEN ? NEW q($fe) PUT m REM +($ef) PSET -' DELETE * GO ($f1)'0 PCLEAR Ft BACKUP CLEAR j FLREAD GO CLEAR A OPEN DEF NEW q PROTECT PCLEAR CLEAR DEF NEW q DATA  NEW BACKUP t CLEAR j FLREAD i BEEP D BEEP ^ MOTOR READ PLAY OR & PROTECT MOTOR CLEAR DEF OPEN ? NEW q CLEAR j FLREAD P PROTECT ELSE @&($fe)($f5) USING ($eb) CLEAR & CLEAR `J RETURN @# NEW ` PROTECT j CLEAR @L NEW ` NEW h CLEAR  PROTECT ^ o'($ec)I ($ec)K BEEP @ REM 477 RETURN $ DATA  VERIFY DIR  PROTECT A CLEAR @ RETURN >&($fe) CLEAR `L RETURN >$ NEW ` C' USING EDIT DATA  NEW CLEAR SET RETURN  PROTECT PCLS PROTECT  DIR RUN DATA  NEW tO FROM KILL  PROTECT  CLEAR jL NEW jL NEW ` NEW h CLEAR  FROM Y MERGE SREAD o'($ec)I ($ec)K' 2182  VERIFY y MERGE FROM BEEP @ REM REM REM line numbering breaks here! REM BEEP > REM $O_ RESET  PROTECT ^mH& o&+ DELETE CREATE MOTOR READ PLAY 'm AND '  CLEAR RESET RETURN > USING # CLEAR >J NEW RESET / DSKINIT t FROM o RESET  DRIVE ($f6) USING  WAIT  PROTECT " CLEAR RESET NEW jL NEW ` NEW h CLEAR  MERGE q CLEAR @ NEW OPEN CLEAR OPEN RETURN >' OPEN  DRIVE BEEP mH' DELETE CREATE MOTOR READ PMODE -'($ef)m AND &($ea) RENAME o'($ed) ERROR jmH& o&.m AND &" DELETE CREATE MOTOR READ PMODE CLS &! / NEW t BACKUP CLEAR j FROM  CLEAR j RETURN >&< EXEC j j DRIVE GO  > o&m AND & DELETE CREATE MOTOR READ PMODE n& DATA  NEW o VERIFY i CLEAR jL NEW ` NEW h LOAD ($eb) SWRITE @oFt NEW q DATA  NEW BACKUP t CLEAR j VERIFY TAB( LOAD ($ef) CLEAR j< TROFF CLEAR j_= PSET SCREEN READ PMODE ]($e9) LET SET  AUTO  ELSE  MOTOR READ PMODE "' LOAD GET GO '&=e GO 0 GO 9" EDIT FOR RENAME  AUTO | MOTOR READ PCOPY ($e8)' DATA ! SWRITE > LOAD RUN  DEF LOAD P  EDIT ELSE SET ($fc)) RENAME ' 899 47820 REM REM line numbering breaks here! REM =R LOAD RENUM  AUDIO O#R DIR DIR $ / DSKINIT j SWRITE  LOAD #($ec)O POKE RENUM &($ea) DATA  NEW t CLEAR @ VERIFY - CLEAR @ RETURN >=< LOAD @L= DIR EDIT mH& SAVE o& m AND &($f0) DELETE CREATE MOTOR READ PCOPY CONT '($e8) CLEAR @ NEW jL NEW ` NEW h KILL LOAD LOAD RENUM POKE P$< 14141 SET r0 NEXT  SET < REM REM line numbering breaks here! REM 7($f7) READ  MERGE } DELETE CLEAR DEF GO CLEAR $ NEXT  NEW DEF  KILL KILL DATA  SREAD STOP  KILL ($fe) CLEAR DEF '($f4) FOR ($f0) NEW DEF  KILL /X USING POKE GO  LOAD GO ' LOAD  NEW w USING RESET GO A GO Z# X SCREEN F DELETE EXEC * GO ($f1)' KILL - DELETE ! USING ' GO A GO Z# X CLEAR wm EXEC * EDIT !  EDIT EXEC  CHAIN EDIT X'($fc)~ FWRITE n ERROR WAIT h& CLEAR jL NEW h NEW ` DATA  NEW t BACKUP PROTECT " CLEAR j SWRITE K($fc)] USING # GO  KILL OPEN GO $ KILL LIST  SAVE ^ FWRITE ; ERROR PSET h& KILL F CLEAR jL NEW h NEW ` KILL < LET 8876 I$  KILL DSKINIT  LOAD COLOR DATA  NEW j NEW o SCREEN READ DRAW ($f9)($e9) BOOT SCREEN READ DRAW ($ee) SWAP FROM SCREEN READ DRAW ($ed) SWAP PROTECT  SWAP ($fd)<($eb) GO '' MOTOR READ DRAW z'! MOTOR READ DRAW u' DATA  CIRCLE ON SWRITE  OR PCLS SCREEN READ DRAW AND ($e9) MOTOR ($e8)7 SET ($ea) PSET  DATA Y OR LIST ($ec) READ DRAW LINE 0 READ COLOR o0 NEXT  PAINT CONT  SET  GET E ELSE  EDIT FOR GO &($f3) 4 PAINT COPY 5) < REM REM line numbering breaks here! REM  OR RESTORE  GET  407 COPY  SWAP LLIST SET  DELETE ELSE GO '= READ . 40502 H INPUT O1 PCLS READ  42125  REM REM line numbering breaks here! REM  EDIT ! LINE  COPY SCREEN READ DRAW E($e9)) PAINT PRINT  SWAP eX DELETE ELSE GO ' GO ,&0 ($f2)0 GO -& X DELETE FOR GO $' GO '' 0($f9)($e8)_ DEF 0 - DELETE FOR ) DELETE FOR READ TO NEW Y DELETE FOR GO ' MOTOR AND 0' GO ,' READ ?:YYYY OPEN Y  CLEAR Y X' FOR @ ELSE  NEW Y DELETE ELSE GO ' GO ,' MOTOR AND 0' GO ' GO ($f0)&0 FROM 0 CLEAR Y($fe)99 GO 0 GO 9" FOR 0($fe)9= PSET GO A($f9) GO F" FOR 7($fe)99 DSKINIT FROM 0 READ PCLEAR P0 NEXT DATA / AND RUN  FLREAD RESTORE CLEAR @L DRIVE @ NOT  BOOT FROM &($ed)< AND { SCREEN READ PUT TRON  FLREAD ] FLREAD DATA  AND C CLEAR FLREAD NEXT _ AND e DATA > AND 6 LOAD @Z AND Z COLOR b=P GO ', MOTOR READ GET CREATE ') MOTOR READ GET MOTOR ' MOTOR READ GET LLIST & VERIFY CLEAR FLREAD L RETURN FROM $+ FLREAD STEP FLREAD & CLEAR FROM J NEW FLREAD PCOPY FLREAD PAINT CLEAR FLREAD 9O9_ DATA _ AND  DATA ^($e9) CLEAR @L DRIVE @ NOT  BOOT FROM &($ec) CHR$ LM($ec)O POKE P& SCREEN READ PUT  SWAP STEP  LLIST O AND SWRITE SCREEN READ GET ($f9) SWAP GET  FROM ($ed)> KILL MOTOR READ GET c' FROM ($f1) MOTOR READ GET g' 3367 MOTOR READ GET Z' DATA  PCLEAR n DLOAD DELETE READ GET M PCLEAR e L O&^ a'1 SCREEN READ GET TO  SWAP y SET 2 FROM SKIPF SCREEN READ GET PAINT  FROM ' FROM SOUND > RESTORE MOTOR READ GET ' FROM DELETE MOTOR READ GET '3 GO '/ MOTOR READ GET & PMODE DATA  AND n SCREEN READ GET F SWAP C FROM FWRITE 0 CLOSE ' FROM  SET ($e8)F SET 2< REM REM line numbering breaks here! REM 6($f4) DATA  NEW a N& SCREEN READ GET h SWAP 8 SCREEN READ GET Y SWAP  FROM G>5 MOTOR READ PAINT SUB ' FROM K MOTOR READ PAINT NOT ' GO ' MOTOR READ PAINT PMODE & KILL /($f4)  DELETE READ PAINT PCLS /($eb) M / VERIFY L' O&S SET 2 PCLEAR EDIT $J( AND SET 2 COLOR CONT $($ee)( SUB SCREEN READ PAINT TAB( FLREAD - VERIFY ($ef) OR MERGE MOTOR READ PAINT e' VERIFY ($f3) MOTOR READ PAINT i' VERIFY ($eb) MOTOR READ PAINT `' GO &($FFD7) DELETE READ PAINT T SCREEN l SET 2 COLOR  ELSE TO O PROTECT "($ec)O POKE P DATA 7= SET r1 PCLS  RESET T SCREEN $ RESET R PROTECT T SCREEN AND ' CLOSE :' SET : PCLEAR AND <($f2)($f3)1 DATA ($f0) EDIT EXEC SCREEN AND ' CLOSE 8' SET 8 PCLEAR AND <($f2)($f3) DATA ($f0) EDIT EXEC SET \ CLOSE R$ DELETE FOR GO ($f0)& DATA  PCLEAR DSKINIT $($ef)< 19735 PCLEAR STEP  PCLEAR DATA O VERIFY \ SET SET T< REM REM line numbering breaks here! REM 7($f2) VERIFY  FREAD CREATE  SET \ RESET m PROTECT " LET 50351 I PCLEAR K SET r SET "< REM REM line numbering breaks here! REM 7($f2)* SET r($ec)/ MERGE P LOAD \($ed)$($ec)O MERGE FOR <($FFFF) MERGE ~ SET * RESET ELSE  POKE  DATA PROTECT "mH' BEEP FOR ($f7) M' VERIFY  PROTECT "mH'($ec)D ($ec)- MERGE Z SET m0 INPUT ($f4) CLOSE Z0 READ CIRCLE ($e8) FROM TROFF DATA  PRESET u SWRITE PROTECT LOAD c'  POKE Z SET Z SET m($f2)b SET c0 ON CLOSE RESET V0 ON AUTO RESET T0 INPUT ($fc) RESET R! M&  PCLEAR + IF `& GO &($f3) DATA ($f0) EDIT FOR CLOSE R($eb) GO ($f0)'" CLOSE T SWRITE GO ' CLOSE V KILL M+ FREAD ) SCREEN READ CIRCLE F FROM B SCREEN PROTECT  SCREEN NEW N POKE m SET c4 DELETE  GO ($f0)5'1?($f1) FLREAD PROTECT "mH& PCLEAR -  PCLEAR D USING ($e8) CREATE A SWAP '4 SWRITE K DATA /# DATA / SCREEN READ CIRCLE > SWRITE  SCREEN CONT SWRITE a' SET 0 SCREEN $ ) SCREEN REM * VERIFY  PCLEAR BACKUP N($FF15) SWAP m READ PCLS +' SWRITE * DATA  FROM DATA RIGHT$ `($fb)+k TAB( RESET FROM FROM FROM / S    REM S  z  135 USING  REM REM REM line numbering breaks here! REM  GO SCREEN a.Styfi($f8)' 1072 READ [ DATA ? ELSE  EDIT OR REM REM line numbering breaks here! REM ($fc)0 OR . LET 0? INPUT  0 READ A30 READ ,0 OR  DELETE OR  GO 1' 12839  GO 3'( GO 4'L GO 5'' DATA  SWRITE 0 READ p($fd) AND 0 READ ($f2)($f4) READ @ LET REM REM line numbering breaks here! REM  READ i CIRCLE 0 READ ($f3) VERIFY 0 OR  BOOT DELETE OR  ELSE _ GO Y' GO N&/_ / LET  READ A INPUT 0 READ  TO READ  LET  READ 1($FF78)0 OR  RESET 0 OR  DELETE ELSE ELSE _ GO T' GO P' GO M&0 *' 313 2b($FF7B) SWAP OR  DELETE OR REM REM line numbering breaks here! REM ($fc)4@ LET 16264 5@>0 OR  LET REM REM line numbering breaks here! REM  DELETE OR ($fc)? END +90 READ @Q0 OR  LET O? NEXT ($ec) OR E+ 397 T0 OR REM REM line numbering breaks here! REM ($fd) LET  DELETE OR ($fc)? INPUT ($f5) SCREEN OR 397 90 OR  DELETE ELSE GO /&01 ELSE _ DELETE CLS \ GO &($f9)o? STEP '($fe)($f4) STEP 'o CLS \ ($f7) LET REM REM line numbering breaks here! REM DELETE OR ($fc)? END  PMODE ($fe) TRON 4@ DELETE OR 5006 16264 5@ CLS 9< REM REM line numbering breaks here! REM 253 DELETE FOR GO '($fa)  DELETE FOR GO '( GO 0+ GO 9"' ELSE 4($ec) OR 18776 IXI SWRITE OR REM REM line numbering breaks here! REM ($fd) SWRITE OR ($fd)($eb) RENAME INPUT 253 CHAIN ($fe)($ec) OR REM REM line numbering breaks here! REM ($fd)99 DELETE OR ($fc) LET 4@ AUTO ? ON 5@C0 OR . LET ` 252 ? INPUT 0 ' REM REM line numbering breaks here! REM ($ed) OR ($FF30) OR .0 NEXT PCLEAR OR <($FFFF)($ed) ELSE EDIT 0 OR . SCREEN OR ($FF34)@($ee) OR ?c-cAcB5@ DELETE OR ($fc) LET  SCREEN OR 16415 #? ON 5@ SWRITE SCREEN OR  LET REM REM line numbering breaks here! REM  DELETE OR ($fc)? END  BEEP STYLO ------- STYLOGRAPH configuration program ------- 1. Set default printer name 2. Set default printer type. 3. Change proportional table load at startup. 4. Change maximum pages. 5. Return to OS-9 Choice? Printer name? Printer number? Load "STYPS" proportional spacing table at startup (Y/N)? Maximum pages that Stylograph can edit? ILLEGAL CHOICE!!! FATAL ERROR STYLOGRAPH CRC may be wrong. Using STYFIX again will correct it 40 READ ($FFAA) READ &5?42 ELSE 4A LET 272 ? END 55 PAINT 46 LET REM REM line numbering breaks here! REM O? NEXT 5 PCOPY DELETE FOR ' READ FWRITE ($f8)9_? TO USING FROM FROM / S    WAIT S  FOR  135 USING  WAIT REM REM line numbering breaks here! REM  FOR ($e8) N M USING ( L WAIT 13 STYLOGRAPH MAIL MERGE COPYRIGHT 1982 GREAT PLAINS COMPUTER CO.,INC. 0B9460h RESET  SET l1 INPUT  REM REM line numbering breaks here! REM 0 TROFF M RESET 0 TROFF SOUND RESET  READ 0 TROFF MERGE RESET READ 0 TROFF  RESET READ 5 PCOPY 3($ef) ELSE ($ef)o94& LET 16 ? NEXT 5 DELETE 4? DELETE ELSE FLREAD  EDIT  SWAP ELSE DELETE  FLREAD  EDIT  SWAP  DELETE  FLREAD  EDIT  SWAP 5 DATA 42 ELSE 4A LET 528 ? END 55 PAINT 42A LET REM REM line numbering breaks here! REM  DATA ? END 5 PAINT 42A LET 16 ? INPUT 5 PAINT 4 DATA 4159 READ ($fb)5 DATA 5 DATA 46 SET  DELETE CLS GO ' GO '($f6) GO ,'($f2) ($fd)5 PCOPY 1?/7 DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET ($fe)5 PCOPY 4R DATA ? ELSE SET  EDIT 3($ef) ELSE ($ef)5 CHAIN STEP FREAD ' DSKINIT 7421 5 CHAIN DSKINIT REM REM line numbering breaks here! REM 5 CHAIN 4R DATA ? ELSE SET DSKINIT 4R DATA ? ELSE SET <4 SET  4 SET 4 SET DELETE 'o? RUN 5 STOP 4 DRIVE 4159 5 DATA 4 SET  REM REM line numbering breaks here! REM J5 RESTORE 4 SET ($f5)4 SET ($ef)_?4@($ee) ELSE EDIT NOT ($ef) ELSE  AUDIO '($fe)5 NOT 5@46m'04($ec) EXEC PCLEAR EXEC AUDIO SAVE '4 DELETE $5 ? END 5 PCOPY DSKINIT 13376 ($ee) ELSE  AUDIO ' DELETE NOT ($ef) ELSE ($fe)5 NOT 40 DELETE $0 PCLEAR EXEC  LET REM REM line numbering breaks here! REM 6? INPUT  RESET l50 LOAD l33=($ef) BACKUP STEP COPY &5 NOT ($fd) DSKINIT 5 NOT ,#YNSSTBP+ B  CURRENT DATA: C=D=P=N=S AM PM 19 ,MMC DATE # * < ^ TIME January February March April May June July August September October November December JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC ERROR - TOO MANY VARIABLES ERROR - OUT OF DATA ERROR - ILLEGAL PRINTER TYPE SPECIFIED BY "MMFIX" ERROR - NO FILE SPECIFIED ERROR - ILLEGAL OPTION SPECIFIED 1006 -?m END Hit "SPACE" to pause, "SPACE" to continue, "RETURN" to abort. REM REM line numbering breaks here! REM /D0/STY/STYPS ERROR - PROPORTIONAL SPACING TABLE NOT LOADED ILLEGAL PRINTER OR FILE NAME Hit any key to restart printer. CE LL PL JU RJ NJ LM SP SS HD FT * PN PG SI IN VT CS VS PS NPS PC MMC PADC NL PP PPSI PPSP PPNL TF BFS 3377 & SKIPF 'IM'($f8) SET 3'4k MOTOR ELSE 5&)0 RESET 3m ELSE &- LET 13088 & GO '" GO ,' GO  GO $ NEW 20 READ ($fd)5 RESET 3 0 READ ($fd)- RESET 3 RETURN 2' REM REM line numbering breaks here! REM ($fe)5($f4) DATA  NEW 5 SET  RESET ) BACKUP  CLEAR GO '($f5)  OFF  INPUT RETURN 2' EDIT FOR GO ' 5&($eb)o ELSE SET  RESET / 1 o ELSE SET )1 READ 40758 1 READ ($fc) SWRITE DELETE FOR  SWRITE MOTOR CLS &m EXEC &($f3) RESET ) SET 6($ec) ELSE 0 READ ($fa);n NEXT SET 60 RESET 6 SET ) DELETE CLS &($fc)m EXEC & DSKINIT  LINE  SET  CLOSE +$ REM REM line numbering breaks here! REM E LINE SET  DELETE ELSE GO A GO Z" NEXT MOTOR EXEC ' FOR MOTOR EXEC &01!m ELSE & SREAD m EXEC & PROTECT m CLS &($fc)m FOR &($fc) ^ SET  LINE 'm FOR &($fc) ($f6) 1 RESET / NEW  PRESET SET  SET + POKE o CLS  RESET + CLOSE $ DSKINIT SET - RESET /6 GO ' EDIT FOR CLOSE $- ($ef)o FOR RESET - CLOSE $ PLAY PRESET & 1YO($fe)($fc)40 SET + DELETE FOR EDIT CLS &($fa) RESET + CLOSE $ CLEAR 5 COLOR 40 SET - DELETE FOR EDIT CLS &($fa) RESET - CLOSE $5 COLOR  AUTO psCN 10662 FOR GO '($fa) GO ,'($f6)M&0 RESET )9 DRIVE 'Z' DELETE FOR &($fc) ($f7) DELETE FOR ' EDIT CLS ($f8)9 SET  RESET /_ PLAY LET REM REM line numbering breaks here! REM #0 NEXT ($f9) CREATE READ * ELSE _ GO E'1 GO M'J GO N'd0 READ ($fb) PMODE ($FFC4) DATA EDIT CLS DRIVE &O BACKUP DATA , EDIT CLS DATA EDIT CLS 0 READ ($fb)|($FFB6)O DRIVE ( RENUM  CSAVE DRIVE &O CIRCLE DATA . EDIT CLS DRIVE 'O EDIT DATA . EDIT CLS DRIVE (O LLIST } DRIVE &O CONT DATA - EDIT CLS 0 READ ($fb) AND ($FF74) DATA - EDIT CLS DRIVE (O_ DRIVE 'O ON DATA / EDIT CLS DRIVE &O~ DATA / EDIT CLS DRIVE (OtBO  DATA  NEW 8 SET  RESET /=>($FF22)M' GO ='b GO 1' GO 2' GO 3& NEW > FLREAD GO -& SREAD = PROTECT 8& LOAD 94 =&+ 14624 LOAD ;4 =&+ 15254 >' GO 2"'5" REM REM line numbering breaks here! REM MERGE 5# DIR 5$ USING 5 FROM  * SET )y ATN RESET ) 8& MERGE 9 SGN MERGE ;($FF7B)0 READ ($fa)\* SET  CLOSE -$! ($f7) SET ) DATA =($f8) COLOR SET )($fe)C SET - RESET /($f8)x SET - DATA MOTOR FOR &($fc)o RESET - CLOSE " 117 DATA  NEW PRESET SET 0($fd) PROTECT @?($fe)QM'; GO 2' GO S&($ef) @ ($eb) ? SWAP  SET  RESET / DRIVE STEP # ?& NOT O 15015 CLS DRIVE $O 16423 DATA : EDIT CLS DRIVE #O REM REM line numbering breaks here! REM H ?& 9601 "0 READ ($f9) DSKINIT 0 READ ($f9) DIR ($fe)o EXEC SET  RESET / DATA  NEW 1 12198 FOR ' RESET /($fc) CLOSE 1($fc)K ($f2) SET M DELETE ELSE GO &0 ($f6)($fd) VERIFY  RENAME SET M0 DELETE ELSE GO &($f0) DATA 0 EDIT ELSE ($ea) USING SET M0 SAVE  - SET M0 FREAD  TAB( SET M0 BACKUP ($f8) OPEN ($f8) PLAY 0 READ ($fa)- REM REM line numbering breaks here! REM ($f8) SCREEN 0 READ ($fa)> ($f4)0 READ ($fa)L ($ee)0 READ ($fa)x ($e8)0 READ ($fa) DIM SREAD 4 DATA ($f7) CONT DATA ($f7) RUN DELETE FOR '($f7) ON ($f7)5 REM ($f7) NEXT Oo NOT NEXT $($fa) RESET l1! RESET f SET l1 INPUT  3123 RESET 0 TROFF M RESET 0 TROFF k RESET 0 TROFF 3 RESET 0 TROFF ' RESET 0 TROFF w RESET 0 TROFF w RESET 0 TROFF k RESET 0 TROFF  ELSE RESET ! RESET PCLS 0 TROFF L RESET 0 TROFF _ RESET K0 EXEC RESET G0 TROFF ^ RESET I0 TROFF ~ RESET M0 TROFF  CLEAR RESET O0 TROFF  END RESET S0 TROFF  CLEAR RESET Q0 TROFF S RESET d($f6) NEW  PROTECT I DELETE READ ($f6). NEW U SET OO/ SWAP FOR EDIT FOR L*($f9)<($FFFF) MERGE B MERGE SOUND < REM REM line numbering breaks here! REM MERGE CLS SET G($f7) 33921 +&q0($ec) GO  IF MOTOR READ ($f8)g'r AUDIO READ ($f8)Z'? AUDIO READ ($f8)Q'J AUDIO READ ($f8)N'& AUDIO READ ($f8)I&($fe)($fc)3($fe)($f5) MERGE CLS DELETE  GO -& PMODE $($fe) FLREAD + 41504 TROFF ($fe) FREAD DSKINIT U SET A&($fe) AUTO  SET ($fc)\o EXEC A DIM ($f9)($fe) TAB( MERGE B SGN  SET PCLS ($fc)Do CLS  RESET PCLS ($FF72) }($FF6D) SET PCLS CLOSE !'($fe) LIST o ELSE A' SET ($f6) KILL ($fe)j($f7)($fe)c NEW F CLEAR U& DATA (/x  GO & DATA /x  GO & DATA / CLEAR GO ' GO (&($fe)O NEW NEW DSKINIT DEF SET K/7o FOR Z&($fb) SET K LOAD d($ed)$ LET 42214 READ ($f7)f SWAP TRON  FLREAD READ ($f7)`&/N SWAP TRON  FLREAD READ ($f7)X SWAP TRON FLREAD READ ($f7)R SWAP TRON *\ SWAP TRON  FLREAD READ ($f7)D SWAP TRON # FLREAD READ ($f7)>&/N SWAP TRON  FLREAD READ ($f7)6 SWAP TRON , FLREAD READ ($f7)0 SWAP TRON - FLREAD READ ($f7)* SWAP TRON ./ FLREAD READ ($f7)# SWAP TRON 1 FLREAD READ ($f7) SWAP TRON 2 FLREAD READ ($f7) SWAP TRON 0< 10733 + SWAP - SWAP . SWAP TRON + PROTECT K SET d PCLEAR - RESET h RESET TRON < 14813 ; EDIT  EXEC 20 READ ($f7)0 RESET 3 SET  RESET ) SET  RESET / SET RESET + SET  RESET - REM REM line numbering breaks here! REM F SCREEN AND ' CLOSE S' SET S PCLEAR AND <($f2)A DATA ($f0) EDIT EXEC SCREEN AND ' CLOSE Q' SET Q PCLEAR AND <($f2)' DATA ($f0) EDIT EXEC LOAD TRON AUDIO - SCREEN - SET d PCLEAR - RESET TRON SET TRON ($f9)6 IF `& GO &($f3) DATA ($f0) EDIT FOR CLOSE f&($eb) RESET TRON RESET h EXEC 0 INPUT ($fc)  RESET TRON RESET h EXEC PROTECT K RESET SKIPF SET d PCLEAR -7 \ EXEC '($FF7D) A& LOAD B'($FFFF)'($f5) PCLS  D&($f5) AUDIO LOAD B'($FFFF)' ' 10229 CONT ($f5) RESTORE MERGE BE($fe) CLEAR 4 E''($f5)k5 RESTORE (($fc) RENUM ($f5): SET PCLS m ELSE '($f4)($f4)($fc) LINE m FOR &($fc) RESET PCLS FWRITE  PROTECT SET ! RESET PCLS DATA  NEW E SWRITE CLEAR F4($f5)?$ (($fc) PRINT D&($fc) RETURN D NEW F($fe)5 REM GO a GO z" FOR 9M'k GO ($f0)'g GO CLS ' DELETE EXEC MOTOR AND 0' LIST M* GO ($f1)& 0! PSET B&M DATA -  READ H DELETE !  NEXT MOTOR READ ($f5)}&7 ELSE  NEW INPUT RESTORE ' RESTORE & RUN ' RUN CLEAR U GO ' DELETE AND , DRIVE DEF  OPEN RUN NEW END  REM REM line numbering breaks here! REM W CLEAR INPUT GO & 1947 RUN NEW END  REM REM line numbering breaks here! REM F9 FLREAD EXEC - STEP _'5 STEP ~'5Z DSKINIT `*& -p STEP 0&/ CREATE `  STEP @&/ CREATE `= STEP `& / CREATE `= DSKINIT NEXT 9_ ($fa)/ ($f6)/ ($f2) CLEAR INPUT MOTOR AND 1& m AND 1' DATA NEW INPUT m AND /' CLEAR U GO 's POKE CLEAR END RETURN NEW # RESTORE NEW NEW POKE CLEAR NEW  g DRIVE NEXT CLEAR U GO $'* ' /*' RUN *' CLEAR U GO ' REM   2985  DELETE *' CLEAR U GO ($! GO ' 6278  NEW CLEAR  T  CLEAR U GO & CLEAR ' DATA  C CLEAR U GO '*' REM REM line numbering breaks here! REM PCLS < CLEAR INPUT  / 5 POKE m AND /'($f2) CLEAR INPUT GO '  CLEAR RUN NEW END CLEAR END GO # FOR  NEW END DATA   END M'4 DATA  ($FF35) ($fa) WAIT CLEAR U GO "* ' ($f3)*'  POKE &($fe)9 NEXT DATA NEW INPUT CLEAR POKE NEW END ($FF22)m AND /& DATA _ / 4 SET O0 INPUT 385 $ NEXT @ ON &4 DATA  PCLS 5 DELETE DATA   ON ' 4 DATA  NEW 5 DATA  RESTORE DATA  NEXT 4 CLEAR U GO # CLEAR INPUT ' GO "( DATA  CREATE FLREAD AND .W CLEAR INPUT  m j DATA  e bZ&($ed) CLEAR W PLAY DATA  U5 ELSE FLREAD AND . CLEAR INPUT  KZ'($f3) DATA  C ($f1) DATA  <94 CLEAR INPUT ' ELSE  SET OH INPUT : FLREAD ELSE CLEAR READ DSKINIT READ OPEN READ G OPEN RUN NEW END DRIVE DIM SET OX: DELETE  GO $ NEXT @ ON &4 DATA  NEW ON  5 ON '4 ON DATA  ($ed) DRIVE INPUT NEW INPUT DSKINIT DIM DRIVE NEXT CLEAR LET DSKINIT LET NEW NEXT DIM '5 CLEAR DATA NEW DIM  READ  LET ($f4)4 RESET \0! DELETE FOR + MOTOR AND 0' PSET B($f3)5 RESTORE SET \0 DELETE ELSE MOTOR AND 0'($f1) GO '($f3) GO ,'($ef)($fd) MOTOR READ ($f2) DSKINIT ' MOTOR READ ($f2) CHAIN '7 MOTOR READ ($f2) USING 'i EXEC BACKUP 4 READ 50 < DELETE  GO ' GO ,' MOTOR AND 0&($FFB3)4 SCREEN READ ($f4); RESTORE ($f1)?5 TROFF 0 PCLS CLOSE 44 NEXT  END DATA NEW INPUT ($fd) ELSE DATA  K SET G DATA EDIT EXEC m VERIFY ' DATA ($fc) TAB(j VERIFY ($f3)550($FF73) DELETE  GO ' GO ,' MOTOR AND 0&($FF5A)4($fe) DSKINIT 5($FF56)mH&94 FOR ' DRIVE \ SET M DELETE IF ' DSKINIT 5 CONT DATA 5 CONT ($ec) AND  CONT SET M_ DELETE IF GO &\ ($f7) DSKINIT  FOR 5 CONT SCREEN -' REM REM line numbering breaks here! REM DEF o AND 3 DATA  NEW CLOSE  MERGE m AND /& 23079 F CLOSE h'w DELETE FOR +| MOTOR AND 0&($f0)\ CONT CONT DATA RETURN CONT $ DELETE FOR +_($fc) MOTOR READ ($f1) DIR 't MOTOR READ ($f1) AUTO ' REM REM line numbering breaks here! REM STOP MOTOR AND 0& PROTECT DELETE AND 3 OPEN CONT EDIT AND 3 STEP DELETE AND 3 OPEN CONT EDIT AND 3 5 PCLEAR BmH& PCLEAR D DELETE ELSE GO &0 CLOSE '! ($f2) GO ($f0)' DELETE REM GO ' GO ($f1)' GO -' MOTOR AND 0' PSET -&($e9) 0 PCLEAR BmH& PCLEAR D9 GO ($f0)'($f3)\($FF71) DELETE REM MOTOR AND 0' USING PSET -"($f5) ($ea) DELETE  GO ' GO ,' MOTOR AND 0&($FF66) DELETE ELSE GO ' GO ,' MOTOR AND 0&($FF55)\($FF51)4 J DSKINIT a DRIVE y BEEP a DSKINIT a STEP 5 DRIVE a($FF35)5($FF30) SET O DELETE AND , DRIVE DEF  OR DRIVE y= MERGE b CLOSE h'  FLREAD FOR + REM SAVE AND 0'XO FLREAD PCLS DSKINIT READ O4 LOAD b AUDIO SAVE MERGE b$ PROTECT / CONT CONT DATA RETURN CONT  DELETE FOR +S MOTOR READ ($f0) CHAIN ' q MOTOR AND 0& SWAP DELETE AND 3 OPEN CONT EDIT AND 3 PMODE DELETE AND 3 OPEN CONT EDIT TRON 3 20 PCLEAR BmH& PCLEAR D DELETE ELSE GO &0 CLOSE ' ($f2) GO ($f0)' DELETE REM GO ' GO ($f1)' GO -' PSET -&($ee) 0 PCLEAR BmH& PCLEAR D9 STEP ($f0)'($f3) GO ($f1)&($FF68)/ZO FLREAD PCLS O4 LOAD b AUDIO SAVE ($FFAB)($FF55) DELETE  GO ' GO ,' MOTOR AND 0&($FF6A) DELETE ELSE GO ' GO ,' MOTOR AND 0&($FF59) DRIVE READ O COPY b($FF51)mH' DELETE CREATE MOTOR READ ($f0)"' SCREEN B CLOSE h DATA 9 NEW DELETE AND + MOTOR AND *"Y MOTOR AND $? MOTOR AND # oH SCREEN D PCLEAR -($fd)($eb)mH'($ec) CREATE MOTOR READ ($ef)($ed)& SAVE READ ($ef) SWAP &($FFB7)($fe)9 DATA  EDIT H DELETE N GO & LET 50214  SCREEN AND   SCREEN B > DATA  EDIT H SCREEN D PSET B&($f2) DELETE AND  EDIT AND + SCREEN AND  ($e9) DELETE AND  EDIT AND  DELETE AND  EDIT AND  oNoMo AND + SCREEN AND 0 PCLEAR AND  SCREEN O0 PCLEAR O DATA  EDIT H LET 50351 B DATA  EDIT H($fe)9mH' DELETE CREATE MOTOR READ ($ef)q' 18736  PCLEAR IlM DELETE AND &I DELETE CREATE MOTOR READ ($ef)Z' 19248  PCLEAR KlNmH& DELETE AND #L PCLS AND + EDIT AND +o AND (m AND $'j AND $m AND &'j AND & l AND +m AND 'j AND m AND !'j AND !9($ec) CREATE MOTOR READ ($ef)&W SAVE READ ($ef) &Q DELETE AND  GO & DELETE AND * CLS AND ^ CLS AND Y GO #Uo AND  CREATE o AND  DELETE AND * CLS AND E CLS AND @ GO #< DELETE AND  FLREAD AND 4 DELETE AND  EDIT AND ) DELETE AND  MOTOR N5" DELETE DSKINIT  EDIT AND 9 DELETE CREATE MOTOR READ ($ee) PAINT &9 DELETE AND  GO &l AND 9l AND 9J9_ SWAP AND S SWAP AND o AND o AND o AND 946 SET Mo1 READ 646  NEW a5` AUDIO EXEC  ` ($f8) SWRITE EXEC 4 CLEAR ` NEXT 0 EDIT FOR 51"` a& VERIFY SET M/ DATA 0 MOTOR ELSE & DATA EDIT FOR Z&($f3)5 PCOPY '($e8) 2560  NEW `O BEEP `L ($f9) KILL `946  SCREEN - DELETE EXEC MOTOR READ ($ee)"'0mH' FOR mM'($f4)m AND &Mm AND !& m AND $&?m AND &&m AND & 685 DELETE EXEC * GO ($f0)'! GO ($f1)'($f8)41! 0! PSET B&($f8)'1! PSET B MERGE O($f8) ($f8)5 PCOPY m AND /' Y& LOAD READ  DRIVE y BEEP q($FFBD)T{ PMODE  SCREEN -qsop_ PSET B'E DELETE CLS +($f7) q GO & o ($ed)\ PSET B$1 DELETE CLS * GO ($f1)&($f3) PSET B&($ee) q GO ' MOTOR AND 0'/ qp FWRITE p q]&_ BACKUP _ s > SCREEN - p' s' s9 DELETE CLS + EXEC MOTOR AND 0' RESET  PSET B($f2) SREAD SCREEN B DELETE REM GO ($f0)'($FF36) Y' CLEAR U GO  1901 AND /& 462 ($FF67) s'($FF18) DELETE AND  OPEN p RESTORE q CLS AND ( CLS AND )+($FF07)'($FF03)u RESTORE s# u ($f8) OPEN s NEW w' u CLEAR uJ NEW v CSAVE a PSET B'($FF04) DELETE CLS +! GO 'a . a'* w' w DRIVE u  DRIVE v REM a  GO ($f0)'($fe) WAIT GO ($f1)& PSET B&* DATA  NEW CSAVE SUB CSAVE & 1? DATA ($f6) MERGE 1! SCREEN 1> DATA ($f6) CHAIN 1" CSAVE MOTOR ($fe) BACKUP DRIVE o($eb) AND )($eb) AND (=m AND /' 40527 /@ FLREAD SKIPF CLEAR p= MERGE b LOAD RETURN POKE b MERGE RETURN DRIVE q BEEP p CLEAR W= MERGE RETURN  SCREEN - DELETE EXEC + GO &1! ($f4) GO ($f0)' GO ($f1)' DELETE ! ($ec)O DRIVE q BEEP p BEEP oZ MERGE b DELETE AND , DRIVE DEF ($fd) LOAD FLREAD AND  RENAME AND ) RENAME AND (=` POKE RETURN POKE b ` ($f8) COPY b CLEAR ` DSKINIT RESTORE 'L NEW RUN ($fe)($fe)Km AND /' Y& DRIVE y BEEP q($fd)($ee) REM REM line numbering breaks here! REM COLOR ($fd)($eb) Q SCREEN - DELETE AND , DRIVE DEF ($fd) RESTORE DRIVE y= POKE RETURN ($fd) BOOT mH'm AND ' m AND $'GV MERGE RETURN ' 5085 RETURN DATA RIGHT$ END DATA NEW INPUT  NEXT ($f6) STEP LOAD RETURN ($e8)+ REM REM line numbering breaks here! REM ($FFD7) END DATA NEW INPUT  NEXT ($f6) PCLEAR ($fd) NEW  RETURN  STOP  SET O SCREEN - CLOSE h$ PSET B$ FLREAD FOR + SAVE AND 0'XO FLREAD PCLS O COPY RETURN MERGE RETURN VERIFY 9 STEP ($f0)'($fb) STEP ($f1)& KILL PSET B& DSKINIT /- VERIFY DELETE FOR +($ec) MOTOR AND 0'> PSET B($f3)9mH'_ DSKINIT a9 FLREAD AND (($eb) AND ) DSKINIT a READ  DRIVE a9 DSKINIT LIST ' DATA CLS ($f5)x LIST &($f7)99mH' FLREAD AND  FLREAD AND  RENAME AND ) RENAME AND ( DSKINIT y940 READ ($e8) PUT 0 NEXT DATA ($e9) DATA ($e9)z ($e9)u DELETE FOR &($f9)5 DATA 4 SWAP ($e9) DIM EDIT &* EDIT Y0 READ ($e9)q RESET SET DATA NEW DIM  LET  READ WV DELETE READ ($ea) DSKINIT U DELETE READ ($ea) BOOT a DATA  NEW X NEW Y PROTECT K($ec) AND  POKE SOUND 'E POKE CLS / TROFF  CLEAR ($e9)T'#($e9)@ GO ' MOTOR READ ($ea) CSAVE & ERL MOTOR READ ($ea) RETURN ' GO ' GO &($ef) READ q($e9)($f7)($fa)I SCREEN B CLOSE SKIPF # DLOAD m AND & PUT 9 DELETE AND  MOTOR AND *$!J EDIT AND +oBoD($fa)( DELETE AND +'($ec) AND  POKE SOUND '  I 6 SWAP FLREAD AND * BEEP X\4 1114 &($f6) }' REM REM line numbering breaks here! REM  LOAD B' ' '  SCREEN READ ($eb) PSET ($FF09)($FF29) GO '($e9) INPUT DELETE READ ($ea) 36330  42708 MOTOR READ ($e9)($f5)' m AND &m AND +&($fe)9 DELETE AND , REM REM line numbering breaks here! REM r DELETE AND -  RUN  RESTORE DELETE AND + RETURN X') ELSE CLEAR XL NEW X MOTOR AND *#($ec) DATA  NEW X }' VERIFY SCREEN READ ($eb)L($fe) TROFF ($fe) OR ($f3)($f5) GO & COPY ($e9)($ec)B AUDIO -' 796 ($fe)9 FLREAD AND Z+ DATA NEW INPUT  NEXT CLEAR U GO & DATA  NEW END  CLEAR W NEW END 4($f4)5 PROTECT ($fb)A($fe)9 DRIVE U STEP " DRIVE DEF ($fb)& RETURN W' REM REM line numbering breaks here! REM NEXT 9 DRIVE U STEP " /0($fb) RETURN V' 3469 ' INPUT  NEXT ($f4)D ON ' ON DATA  READ  DATA READ  DATA 4@ PROTECT SET PRESET -5 NOT 4 CLEAR U GO '"$ DATA  7053 FROM U' DATA 9  DATA READ FWRITE CLEAR V REM REM line numbering breaks here! REM \5 REM DATA  READ AUTO DATA  READ >5 REM 4 CLEAR U GO '" DATA  2701 DRAW CLEAR V REM REM line numbering breaks here! REM 85 REM DATA  READ LINE DATA  READ DELETE 5 REM NEW W4 CLEAR U' GO & DATA  READ CONT DATA ] READ RESTORE DELETE VERIFY NEXT @ DATA  READ DATA DATA  READ REM DELETE VERIFY L($FF7C)5 REM NEW V4 CLEAR U' GO & DATA ($FF69) DATA ]($FF64) DELETE VERIFY NEXT O DATA ($FF59) DATA ($FF54) DELETE VERIFY L($FF4E)5 REM L4]  DELETE REM EDIT SOUND Z&($f9)j VERIFY &($f5)5 REM L4]  DELETE FOR EDIT CLS Z&($f9)j VERIFY &($f5)5 REM `1 READ FROM ($FFEC) READ ($e9) MERGE 1 PCLS SCREEN -0 DELETE FOR GO '! GO ,'($f2)~ MOTOR CLS &m EXEC &($eb) DELETE ELSE GO ' GO ,' GO ($f0)'1! m CLS &($fc) `m EXEC &=91 READ CLEAR `H($ec) DELETE 1 READ FROM PCOPY n PCLS  SKIPF "($ee) FN  AND - MERGE  INPUT  OPEN /J< OFF  TAB(($f0) USING  LET epx CLOSE  PLAY  FN - DRIVE ($e8)($f9)=LW` 23  ERROR TROFF mH& SKIPF m AND & CLS SAVE AND +# OPEN SWAP AND +9+ ASC STEP REM REM line numbering breaks here! REM &/mH' SWAP AND 9 SWAP AND $9 DATA  EDIT AND 9o AND 9 CLS STEP &/mH' SWAP AND !9 SWAP AND &9 NEXT ($FF58) STEP x"($FF52) SWAP AND 9z($FF47)' 9727 ? STEP d"($FF39) SWAP AND * DEF CLS AND ($FF2D) CLS AND ($FF26) GO #($FF20) REM REM line numbering breaks here! REM RETURN ($FF1A)F($FF13) DSKINIT amH& DELETE AND 4 DRIVE a SWAP AND  548  EDIT AND ($fe)($f6)9 DELETE AND 4 DRIVE a SWAP AND  READ 5$($ef) EDIT AND ($fe) WAIT 4 DELETE AND  GO CLEAR " DELETE AND ) PCLS AND (+ DELETE AND  GO CLEAR " CLS AND ) CLS AND ( GO ($fe)5 REM 5 REM  WAIT ($fe) PSET ]&\($eb) AND + SWAP AND +9 USING ($fe) CSAVE ]' STEP "($fe) RETURN Z SWAP AND #9 DELETE AND * CLS AND L EDIT AND 9 DELETE AND  EDIT AND +9 DELETE ($fe)s($ed) AND 9 OPEN ($fe)hmH&($fe)bm AND &($fe)[ DELETE AND ) SWAP AND )($FF73)$ EDIT AND )9`0 DELETE ELSE GO '($f8) GO ,'($f4) GO -&`0b($fe)/ `'S\mH&($fe)#m AND &($fe) DELETE AND ( SWAP AND (($FF34)$- EDIT AND (9m AND &($fe)mH&($fe) REM REM line numbering breaks here! REM DATA  EDIT AND o AND ($ec)D($ed) AND 9m AND &($fd)($eb)mH&($fd) FROM DATA  EDIT AND o AND ($ec)D($ed) AND 9($fd) BEEP SWAP AND ,9 ($f8)($fd)*9 DATA  EDIT AND / Y' CLEAR U GO & DATA ($fc) LIST DATA ($fc) RESTORE DATA ($fc) NEXT PRINT &9o AND / Y'($f8) CLEAR U GO &($f2) DATA ($fc)s DATA ($fc)n DATA ($fc)i READ  EDIT AND 09 READ EDIT AND 29 READ  EDIT AND 19 DELETE FOR GO '($fa) GO ($f0)&O9 STOP ($fd)_($eb) AND + SAVE AND $($fe) CREATE 9 FLREAD AND 4($FF25) FLREAD AND 6 READ ($ea) FLREAD AND 5($fe) OPEN `0 DELETE ELSE GO '($f8) GO ,'($f4) GO -&`0 Y($fd)& `'S\mH&($fd)m AND &($fd) DELETE AND ( SWAP AND (($fe)+ EDIT AND (($fd) SWAP AND 49 +($fc)($f8)]&\ SWAP AND 59 ($fc)($e9) SWAP AND 69 Y'($fb) DATA ($fb) STEP  ($fc) DIR SWAP AND .9O_ MERGE b DELETE FOR GO '($fa) GO ,'($f6)  DELETE FOR GO ($f0)'8M'5 GO '1 GO '- GO ,') GO -' MOTOR AND 0' GO 0! GO 9" ELSE 4 LOAD bXIXIXI COPY b COPY b($eb) RENAME INPUT MERGE b OFF ($fe) LOAD b994v PRINT '5($f6)($ec) READ FLREAD 0 READ SREAD /0 NEXT  SWRITE CIRCLE  SET G SWRITE ($ea) ELSE  EDIT FOR GO &($f3) 4 SWRITE COLOR 5) SWRITE PLAY  407 PRINT OR SET G DELETE ELSE GO ' CHAIN READ ) 40527 H INPUT O1 PCLS READ  42125  REM REM line numbering breaks here! REM  EDIT ! CIRCLE SCREEN READ FROM SUB ($eb)  SWRITE CLOSE ` DELETE ELSE GO ' GO ,&0 ($f2)0 GO -& ` DELETE FOR GO $' GO '' 0($FF13)_ DEF 0 - DELETE FOR ) DELETE FOR READ TO NEW a DELETE FOR GO ' MOTOR AND 0' GO ,' READ ?:aaaa OPEN a  CLEAR a `' FOR @ ELSE  NEW a DELETE ELSE GO ' GO ,' MOTOR AND 0' GO ' GO ($f0)&0 FROM 0 CLEAR a($fe)99 GO 0 GO 9" FOR 0($fe)9($ed)> GO A($f9) GO F" FOR 7($fe)99o6 FROM / S    NOT S  CLS  135 USING  NOT REM REM line numbering breaks here! REM  GO ($e9) ).MMfi($f8)' 1072 READ @ DATA ? ELSE h EDIT OR REM REM line numbering breaks here! REM ($fc)0 READ 2 GO 0 OR n0 OR  DELETE ELSE ELSE _ GO ' GO P&0 1552 ' 1840 READ V SWAP OR  DELETE OR REM REM line numbering breaks here! REM ($fc)4@ AUTO  LET 16264 5@0 OR  LET REM REM line numbering breaks here! REM  DELETE OR ($fc)? END  G< 253 DELETE FOR GO '($fa)  DELETE FOR GO '( GO 0+ GO 9"' ELSE 4($ec) OR 18776 IXI SWRITE OR REM REM line numbering breaks here! REM ($fd) SWRITE OR ($fd)($eb) RENAME INPUT 253 CHAIN ($fe)($ec) OR REM REM line numbering breaks here! REM ($fd)99 DELETE OR ($fc) LET 4@ AUTO 16264 5@ REM REM line numbering breaks here! REM EDIT 0 OR . LET ( 252 ? INPUT  8323 REM REM line numbering breaks here! REM ($ed) OR ($FF30) OR .0 NEXT PCLEAR OR <($FFFF)($ed) ELSE EDIT 0 OR . SCREEN OR ($FF34)@($ee) OR ?c-cAcB5@ DELETE OR ($fc) LET  SCREEN OR 16415 #? ON 5@ REM REM line numbering breaks here! REM G SCREEN OR  LET  DELETE OR ($fc)? END  4 ^MM Printer number? DEFAULT PRINTER NOT CHANGED. ?42 ELSE 4A LET 272 ? END 55 PAINT 46 LET REM REM line numbering breaks here! REM O? NEXT 5 PCOPY DELETE FOR ' READ FWRITE ($f8)9_?B> TROFF / S   S  AUDIO  135 USING  REM REM line numbering breaks here! REM  FOR  SWRITE m` Spel($ec) STYLOGRAPH SPELLING CHECKER COPYRIGHT 1982 STYLO SYSTEMS 0B1 TROFF ($fe) SOUND 9460h RESET a0 READ  AUTO 16137  PLAY _0 TRON e RESET c5 PCOPY ;42 DATA  42 DATA A LET 16266 5 PAINT 40 READ  5 RESTORE 42A LET REM REM line numbering breaks here! REM  DATA ? INPUT 52 ELSE 94& LET 16 ? NEXT 5 DELETE 46 SET a DELETE CLS GO ' GO '($f6) GO ,'($f2) DATA FREAD NEW ^($fd)5 PCOPY 1?/ DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET a($fe)5 PCOPY 4 DATA /?' NEW `($fc)5 CLEAR DSKINIT ^ STEP ERROR '($fd)5 CLEAR 5 CLEAR 46 LOAD \ MERGE  MERGE  DATA ? ELSE  NEW _5 PCOPY STEP FREAD ' DSKINIT ^($fd)5 PCOPY 5 PCOPY 46< 919 NEW L NEW  DIR 46 SET c DELETE FOR ' EDIT CLS ($f8)0 READ { DELETE FOR EDIT CLS &($fa) SET c READ COLOR 5 PCOPY 4 CLEAR _ 4 CLEAR ` 784 ? RUN 5 REM 46 SET c DELETE FOR ' EDIT CLS ($f8)0 READ J DELETE FOR EDIT CLS &($fa) SET c? PRINT DSKINIT ^5 PCOPY 4 DRIVE ^?42A CLEAR ` LET REM REM line numbering breaks here! REM ? END DSKINIT ^5 PAINT 4 SET  CLOSE $ DELETE FOR RESET ($fe)5 RESTORE 4& LET  CLS SET \ RESET  CLEAR _? INPUT  SET \0 NEXT RESET 5& DIR STEP COPY &5&5 RESTORE DSKINIT ^($fd) ($f4)40 CLEAR _? INPUT  5 COLOR STEP COPY & ($f6) DSKINIT ^($fd) ($ee)46 SET c DELETE FOR EDIT CLS &($fa)1?0 READ  PAINT DELETE FOR EDIT CLS &($fa) DATA  SET c? ELSE ? RUN 5 PCOPY STEP FREAD ' DSKINIT ^($fd)5 PCOPY SCREEN b SET c DATA EDIT CLS DELETE FOR EDIT CLS &($fa) DATA EDIT ? DELETE REM GO /' PSET b&($f6) 0 DELETE FOR ' EDIT CLS ($f8)0 READ c DELETE FOR EDIT CLS &($fa) DATA EDIT ?0 READ N POKE c\ PROTECT c< 16131 PSET ?]& DELETE ($fe)5 PCOPY ? STYLOGRAPH SPELLING CHECKER 17746 FLOW CONDITION - SPLIT FILE INTO SMALLER UNITS REM REM line numbering breaks here! REM ERROR READING CURRENT DICTIONARY HAS NOW BEEN SCANNED TOTAL WORD COUNT = DIFFERENT WORDS = WORDS ARE NOT IN DICTIONARY THE FOLLOWING WORDS ARE NOT IN THE DICTIONARY. FOR EACH SELECT: I (IGNORE) D (DISPLAY/CHANGE) A (ADD TO DICT) F (FLAG) X (EXIT PROGRAM) CONGRATULATIONS! ARE YOU SURE (Y* OR N)? THESE WORDS ARE NOT IN THE DICTIONARY: READING TEXT FILE - STANDBY ... READING STANDARD DICTIONARY - STANDBY ... READING SUPPLEMENTARY DICTIONARY - STANDBY ... (I*/D/A/F/X) ? ENTER CORRECT SPELLING (UPPER OR lower CASE): SUPPLEMENTARY DICTIONARY NOT FOUND ENTER ITS FILENAME: USE "<" AS FLAG CHARACTER (Y* OR N)? ENTER NEW FLAG CHARACTER: CREATE NEW TEXT FILE (Y* OR N)? ADD TO SUPPLEMENTARY DICTIONARY FILE (Y* OR N)? DELETE BACKUP FILE (Y* OR N)? WORD CONTAINS CHAR MODS - CANNOT BE CHANGED WORD HAS BEEN FLAGGED INSTEAD. THE QUESTIONABLE WORD IS: (I*/A/F/C)?  RESET  DATA  NEW DELETE NOT NEW  WAIT  SET  RESET ($fe) SREAD SET \ DSKINIT < CLS ($f8) CREATE o NEXT DRIVE  DELETE FOR SKIPF ( EXP 946 SET Po1 READ 646  NEW 5 REM REM line numbering breaks here! REM AUDIO EXEC  ($f8) SWRITE EXEC 4 CLEAR NEXT 0 EDIT FOR 51" 9956 SET P/ DATA 0 MOTOR ELSE & DATA EDIT FOR Z&($f3) SET P REM REM line numbering breaks here! REM 5 PCOPY '($e8) d 397 4 DELETE FOR '($f6) FLREAD ($f7)5 STOP ($f6)($f4)4 DELETE FOR '($f5)($f6) LOAD ($f7)40 READ ($fd) READ MERGE 5 RESTORE ($f6) SWAP GO '$ GO ' GO #($f1) GO & DATA ($f6) PAINT DATA ($f6) PRESET SAVE DATA ($f6) DELETE DATA ($f6) MOTOR DIR ELSE _94 SET O EDIT FOR CLOSE &($fa) NEW 5 STOP 4 CLEAR  GO '67($FFE2) SET  6&U 7'($f6) READ YHM+($ee) ELSE _ GO [$($e8) GO @# VERIFY EDIT FOR DATA  NEW : DRIVE 8 DSKINIT 9 6&- READ 8'M* DATA  NEW : ($ef) GO ''($eb) ELSE _ GO [$ GO @# EDIT FOR  CLOSE  FWRITE CLEAR  GO ' DELETE 5 CLEAR ( READ 25 CLEAR READ *($f7)= CLEAR  GO &($f7)N  DRIVE 8\ DSKINIT 8 DELETE *& DATA  NEW 6 - STEP @&/ DSKINIT 7($fe)9 CLEAR  GO '($f6) FWRITE ($f6) CREATE 94v SET O EDIT FOR CLOSE T&($fa) DATA  NEW  SET !0 ON AUTO RESET ! PROTECT 1< REM REM line numbering breaks here! REM MERGE  MERGE ($FF31) & WAIT # WAIT ($fe) LET LOAD + 7326  CLEAR D NEW ($ec) ELSE = ' SWRITE  ' SWRITE  CLOAD XI ELSE  SET 0 NEXT ($ec) ELSE & SET ($ef) ELSE DELETE CLS EDIT NOT &($f8) DATA FOR EDIT NOT LOAD + 7696 ' PSET '0 POKE !*4 CLS 4 CLEAR  NEW  SET  DELETE CLS MOTOR FOR & &($f6) DELETE ELSE *5 '50 CLOSE T PAINT SET  SCREEN 0 READ ($f7)($fe)@ 0 READ ($f7)v($fe)7($f6)5($f6)46 DATA  NEW ($fc) CLOSE 'Q SET  CLEAR D NEW ($ec) ELSE = ' SWRITE  ' SWRITE  CLOAD XI ELSE  SET 0 NEXT ($ec) ELSE ' DSKINIT 4 CLEAR  NEW  SET  DELETE CLS MOTOR FOR & &($f6) DELETE ELSE * END EDIT ELSE 5 PCOPY 50 CLOSE T COPY SET  BACKUP 5 PCOPY 4v SET R($fd) ERROR 0 READ ($f7)X($fd) DRIVE LOAD ($fd)m0 READ ($f7)x($fd)^ LOAD ($fd)a0 READ ($f8) ON ($fd) TAB(($f4) PCLEAR O NEW 3 NEW 4 NEW 5 LET REM REM line numbering breaks here! REM 16 SET 1 CLOSE #'u FLREAD CLS *($f7)- &($f3)01? FLREAD SOUND  CLOSE 1']*($f6)1!4 DATA ' REM REM line numbering breaks here! REM 'B' " ':($f4)^3A ($f1)' " '+($f4)O3A ($f1)' 0" '($f4)@3A ($f1)' 2343 ($f4)13A ($f1)($f4)9 AUTO REM REM line numbering breaks here! REM 11017  DEF ($f4)3A ($f3)5 DATA RESET )($f4) ($f4) LOAD )($fc) NOT 0 READ ($f6) WAIT ($fd) SCREEN READ ($f3) SKIPF & 0 READ ($f7) SCREEN ($fc)($fe) 36342 FROM ($fc)($f2) SET 1 CLOSE #' REM REM line numbering breaks here! REM END FLREAD CLS *($f5)- &($f1)1? FLREAD SOUND  CLOSE 1']*($f6)1!($fc)($ec) FLREAD CLS + DEF ($f3) PMODE ($f5)0 READ ($f8)A($fc) SUB ($fc) SAVE GO I&- SWAP  16678 5>-($ef) 17958 3>-($f7) REM REM line numbering breaks here! REM / GO X& 2 GO D& 4> 3367 OR DATA ($f3)k DATA ($f3)f DATA ($f3)a DATA ($f3)\($FFAB)($fc) REM 1? SWAP CLS ($FF6F)($fe)5($f6)4V DATA FOR NEW D DATA STEP NEW E 3& 4' /0 READ ($f8);($fc)=($fc)a GO '! GO Y' GO N' DATA ($f3) SWRITE 0 READ ($f8)D($fc) ($fc)D GO '($f2) EDIT READ ($f9)<0 READ ($f8)M($fc)($fc)2 GO ' GO Y' GO N' PLAY DATA ($f2)($e9) SAVE SET R($f4) GO $-(_0 READ ($f8)u($fb) VERIFY ($fc) GO ' GO Y' GO N' LET DATA ($f2) THEN SAVE SET R($f3) THEN $ BACKUP 6 SET R($f3).- SET R($f3){$ SET X RESET ;O/@ EDIT FOR Z&($fb) SET V RESET ?/ NOT EDIT FOR Z&($fb) PROTECT Z3 OR REM REM line numbering breaks here! REM FOR O NEW 7 NEW 6 NEW K NEW F NEW G NEW H NEW I NEW C_ EDIT *\&($fb)/ STEP ($f3) TROFF EDIT *\ STEP FOR &($f4) ( LOAD DATA  NEW K/ NOT DSKINIT 8 DATA  NEW ($fb) SUB & AND *($f3)6($f3)` SET  CLEAR D NEW ($ec) ELSE = ' SWRITE  ' SWRITE  CLOAD XI ELSE  SET 0 NEXT ($ec) ELSE 4 CLEAR  NEW  SET  DELETE CLS MOTOR FOR & &($f6) DELETE ELSE + 50 CLOSE T MERGE SET  FWRITE L4 ELSE @5' DATA  NEW I ($fd) ELSE '5 INPUT DELETE ELSE ELSE '($f6) GO '($f2) GO &4$ DRIVE 8 SET ; SWAP CLS  RESET ; F5$ LOAD 46($fa) MERGE 0 READ ($f7) PMODE ($fa) DLOAD SET ($fa) PCOPY ($fa) AUTO O NEW N NEW O NEW L DRIVE 8= DSKINIT M NOT @ DELETE *\ BOOT 8&4 DRIVE N DSKINIT O5 BOOT M' GO & DATA | GO + SWRITE GO 6129 o N FREAD ($fa) CONT DATA ($f1)c O&($f9) DATA ^($f1)Z($fa)'0 READ ($f7)x($fa)_($fa)' GO I& DATA  NEW L + GO '($f6) GO A& 5 DATA  NEW L  GO F& DATA  NEW L  GO C& DATA  NEW L  DATA ($f1) FN 56 CLEAR LL GO & DELETE ELSE END  ELSE ($ef) EDIT ELSE ($FF29) GO & DELETE ELSE END  ELSE ($f7) EDIT ELSE ($FF2C) GO & DELETE ELSE ELSE SWAP EDIT ELSE ($FF0D) GO &($FF07) READ ($FF13)($fe)($fe)4v :'0 READ ($f6) END ($f9) ERROR DATA ($f0)/5($f6) I&B40 READ ($f5)X($f9)- SET ($fa)($f0) WAIT DELETE ELSE GO '($eb)0 READ ($f4)r($f9) PCLEAR ($f9) COPY GO ' GO Y' GO N' DIR DATA ($f0) DIM SWRITE 5 H DELETE ELSE END NOT ELSE NOT OPEN H EDIT ELSE  SET ? CLEAR 9 EDIT CLS CLEAR 8J EDIT CLS DELETE ELSE ELSE ? EDIT CLS  RESET ? G I'I # PROTECT  POKE !+ 0 READ ($f2) LLIST ($f9)^($f2)t SET  DELETE FOR GO ' EDIT NOT ($f6) DATA FOR EDIT NOT WAIT ($fe)5($f6) 5' REM REM line numbering breaks here! REM CIRCLE 0 READ ($f5) DEF ($f9)8($f9)\ GO ' GO Y' GO N' CLOAD DATA ($f0) KILL 0 READ ($f6)Q($f1) TROFF $,(*0 READ ($f5) RESET ($f9)($f9)2 GO ' GO Y' GO N' 1815 ($ef)($e9) SAVE 0 READ ($f6)'($f0) SWAP $ USING _0 READ ($f6)($f0)UV0 READ ($f6)($f0) SOUND $) I($f1)$) @($f0)($ea); ($f0) SET 1 DATA ($f0) PROTECT / CLOSE #'! FLREAD CLS *($f7) STEP ON &($f3)1? FLREAD SOUND  CLOSE 1']*($f6)1! DELETE CLS + ERROR ($f0) RENUM ($f5)($f0)v 13782 47J SET ; RESET = SET ? RESET A SET X RESET ; SET V RESET ? DRIVE E 4-5' REM REM line numbering breaks here! REM ' F' SET ; SAVE ELSE & G' SET ? SAVE ELSE & READ ) J' ERROR e DELETE *'a($f0)b($f0)U\ > DELETE READ ($f5)]($f0)T($f0)G F SET ;0 RESET ; MERGE 42 SET ?0\4-5& DATA  NEW J SAVE ELSE &($ef)\0 SET # DELETE ELSE NEW C C' DELETE CLS *($fc) C&($f8) DELETE CLS ($f0)($f0) DELETE CLS *($f5)0 RESET ? G5 PAINT DSKINIT E K& DRIVE D($f0)  EDIT *\4-5&($f0) DSKINIT D READ  READ '5 CLEAR )($ef) DRIVE DATA  NEW KO EDIT *\ ($e9)42 SET ; SET X CLOSE =' DELETE FOR EDIT CLS ($f6) RESET ;5 PAINT 42 SET ? SET V CLOSE A' DELETE FOR EDIT CLS ($f6) RESET ?5 PAINT 9 FROM FROM / S    LET S  PMODE  135 USING  LET REM REM line numbering breaks here! REM  FOR SOUND =2rSPELLAD-0B1 TROFF ($fe) SOUND 94600h RESET " PLAY _0 TRON 6 RESET $ RESET &0 TROFF 6 RESET (0 TROFF 6 RESET * RESET ,0 TROFF 6 RESET .5 PCOPY 46_m IF '\ ($f9) DATA EDIT IF \O DATA ? DIM 5 PCOPY 46 LOAD * MERGE , MERGE .3 DATA ? ELSE  NEW 15 PCOPY STEP FREAD ' DSKINIT 0($fd)5 PCOPY 5 PCOPY 46< 11415 4 NEW 3L NEW 5 DIR 46 SET " DELETE CLS GO ' GO '($f6) GO ,'($f2) ($fd)5 PCOPY 1?/ DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET "($fe)5 PCOPY 4 LOAD $ MERGE & DATA /?' NEW 2($fc)5 CLEAR DSKINIT 0 STEP ERROR '($fd)5 CLEAR 5 CLEAR 4 CLEAR 1' 4 CLEAR 2' 16271 5 REM 4 SET , CLOSE .$ DELETE FOR RESET ,($fe)5 RESTORE 4& LET  REM REM line numbering breaks here! REM SET * RESET , CLEAR 1? INPUT  SET *0 NEXT RESET .5& DIR STEP COPY &5&5 RESTORE DSKINIT 0($fd) ($f4)40 CLEAR 1? INPUT  5 COLOR STEP COPY & ($f6) DSKINIT 0($fd) ($ee)4 SET & EDIT FOR RESET & CLOSE ('($fe)5 RESTORE 546 LOAD & POKE $ SET $ RESET & CLEAR 2? END 5 PCOPY DSKINIT 05 PCOPY DRIVE 0? FOR RUN RESTORE RETURN STOP POKE CONT ($FF41)D DATA LORG PRINT YC ON MU REM H INPUT END BPKVF NEXT WZ DIM GO READ XQ LET JESIN ELSE IF T' 13606 ($f9) DRIVE  DSKINIT  SET 1 SKIPF DRIVE 49600  STEP RENAME ! STEP ($f0)* STEP ($f8)20 READ FRE$ -:/ =0 READ ERR TTT-:/ /0 READ PPOINT TT-:/ "0 READ INKEY$ T-:/ 0 READ LEFT$ -:/ 0 READ JOYSTK TTTT:/ CLEAR  +H REM REM line numbering breaks here! REM Z&($f6) NEW  DELETE ELSE M+3 EDIT CLS  NEXT DATA  NEW  PROTECT  POKE .4 SET * RESET < ($fe) FROM PROTECT *3= WAIT . PROTECT *5 DELETE NOT WAIT  - 5 DATA  GO ($FF27)($f8) ELSE  NEW  CLEAR '($FF43)o EXEC 9($FF05) SET &2 SET *< 44816 ($FFED) PROTECT *1= DELETE NOT GO ($FF10)& STOP  RESET . DATA 5 NEW 4 DELETE NOT NEW REM REM line numbering breaks here! REM  WAIT  SET  RESET ($FF07)9($fd)G NEXT 0 TRON FREAD RESET 0 TROFF 6 RESET 0 TROFF ^ RESET 0 TROFF  DATA RESET 0 TROFF  SCREEN RESET 0 TROFF ($f0) RESET o ELSE 0 TROFF 6 RESET *0 TROFF 2 RESET  RESET .($fd)< MERGE 0 MERGE  SET ($fd) REM ( SET ($fd)y SET ($fd)p" SET ($fd)2 SET ($fd) OPEN  DATA ($FF17)($fe)+ DATA  NEW  SET  1948 ($f7) REM REM line numbering breaks here! REM ($eb)($fd) CSAVE RESET RESET PROTECT ($ef) GO m NOT &($fc) CLOSE $ DRIVE  POKE ($ef) RESET  SET 34P SCREEN ELSE ($ee)- PCLS 5P# DATA  NEW ($ec) ELSE 4($ec)-($ed) ELSE 5($ed)-3B0 POKE  ERROR & BEEP SET ($fc) ERROR  RESTORE SET ($fe) '^ PROTECT ($ee)- SET  READ p'1 2608  RESET CLOSE $ SWRITE SET  REM REM line numbering breaks here! REM = COPY 0 READ 2611 ^ PCLEAR - WAIT ($eb)($FF17)($fd)#M+($f8) ELSE _ GO A GO Z" EDIT FOR ($ea) GO ' GO & SREAD m' PROTECT O EDIT FOR ($fe)9(09 DATA 5 REM REM line numbering breaks here! REM RENAME DATA 5 KILL DATA 5 DRIVE DATA 5 BOOT ($fc) CHAIN ($fd)f4P M' DELETE FOR MOTOR NOT '($f7)5 BEEP 0 READ  0 READ 1072 READ REM REM line numbering breaks here! REM ?($fb)($f5)($fd)A ILLEGAL DICTIONARY FILE! ILLEGAL SUPPLIMENTARY FILE! ILLEGAL OUTPUT FILE! RESET 3 READ s READ & DEF END 4 1182 0 IF RESET  SET  DELETE FOR '+ RESET  GO Z"$ FOR A  REM REM line numbering breaks here! REM * ($eb) SET  SET _ DELETE FOR ' m EXEC ' MOTOR CLS &\ ($f1) STEP #/9 SET  SET  DELETE FOR EDIT CLS &($fa)9H($ec)/H  'Z&($f6)94 CLEAR ($fc)[($FF37)/ DSKINIT 5 SWAP FOR  SREAD - ON  ($ea) COLOR  FREAD  ($f7) FLREAD  DEF <0 CLS  VERIFY ($f5) TRON ` BEEP ($e8)($ee)($f4) NOT ($f0) 248 ($f2) CREATE p@P RESTORE  PLAY  AND  LOAD  RENAME ($ec)($f1)($f3)($f6)($f9)($fa)($fb)($fc)($fd)($fe)($FF08) ELSE ($f9)a FROM FROM / REM REM line numbering breaks here! REM S    CONT S  FN  135 USING  CONT REM REM line numbering breaks here! REM  FOR PLAY =2rSPELLAD-0B1 TROFF ($fe) SOUND 94600h RESET " PLAY _0 TRON 6 RESET $ RESET &0 TROFF 6 RESET (0 TROFF 6 RESET * RESET ,0 TROFF 6 RESET .5 PCOPY 46_m IF '\ ($f9) DATA EDIT IF \O DATA ? DIM 5 PCOPY 46 LOAD * MERGE , MERGE .3 DATA ? ELSE  NEW 15 PCOPY STEP FREAD ' DSKINIT 0($fd)5 PCOPY 5 PCOPY 46< 11415 4 NEW 3L NEW 5 DIR 46 SET " DELETE CLS GO ' GO '($f6) GO ,'($f2) ($fd)5 PCOPY 1?/ DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET "($fe)5 PCOPY 4 LOAD $ MERGE & DATA /?' NEW 2($fc)5 CLEAR DSKINIT 0 STEP ERROR '($fd)5 CLEAR 5 CLEAR 4 CLEAR 1' 4 CLEAR 2' 16271 5 REM 4 SET , CLOSE .$ DELETE FOR RESET ,($fe)5 RESTORE 4& LET  REM REM line numbering breaks here! REM SET * RESET , CLEAR 1? INPUT  SET *0 NEXT RESET .5& DIR STEP COPY &5&5 RESTORE DSKINIT 0($fd) ($f4)40 CLEAR 1? INPUT  5 COLOR STEP COPY & ($f6) DSKINIT 0($fd) ($ee)4 SET & EDIT FOR RESET & CLOSE ('($fe)5 RESTORE 546 LOAD & POKE $ SET $ RESET & CLEAR 2? END 5 PCOPY DSKINIT 05 PCOPY DRIVE 0? FOR RUN RESTORE RETURN STOP POKE CONT ($FF41)D DATA LORG PRINT YC ON MU REM H INPUT END BPKVF NEXT WZ DIM GO READ XQ LET JESIN ELSE IF T' 13606 ($f9) DRIVE  DSKINIT  SET 1 SKIPF DRIVE 49600  STEP RENAME ! STEP ($f0)* STEP ($f8)20 READ FRE$ -:/ =0 READ ERR TTT-:/ /0 READ PPOINT TT-:/ "0 READ INKEY$ T-:/ 0 READ LEFT$ -:/ 0 READ JOYSTK TTTT:/ CLEAR  +H REM REM line numbering breaks here! REM Z&($f6) NEW  DELETE ELSE M+3 EDIT CLS  NEXT DATA  NEW  PROTECT  POKE .4 SET * RESET < ($fe) FROM PROTECT *3= WAIT . PROTECT *5 DELETE NOT WAIT  - 5 DATA  GO ($FF27)($f8) ELSE  NEW  CLEAR '($FF43)o EXEC 9($FF05) SET &2 SET *< 44816 ($FFED) PROTECT *1= DELETE NOT GO ($FF10)& DEF  RESET . DATA 5 NEW 4 DELETE NOT NEW REM REM line numbering breaks here! REM  WAIT  SET  RESET ($FF07)9($fd)G NEXT 0 TRON FREAD RESET 0 TROFF 6 RESET 0 TROFF ^ RESET 0 TROFF  DATA RESET 0 TROFF  SCREEN RESET 0 TROFF ($f0) RESET o ELSE 0 TROFF 6 RESET *0 TROFF 2 RESET  RESET .($fd)< MERGE 0 MERGE  SET ($fd) REM . SET ($fd)y+ SET ($fd)p( SET ($fd)2 SET ($fd) OPEN  DATA ($FF17)($fe)+  DATA  NEW  SET  1948 ($f7) REM REM line numbering breaks here! REM ($f1)($fd) CSAVE RESET RESET PROTECT ($ef) GO m NOT &($fc) CLOSE $ LOAD  POKE ($ef) RESET  SET 34P SCREEN ELSE ($ee)- CIRCLE 5P# DATA  NEW ($ec) ELSE 4($ec)-($ed) ELSE 5($ed)-3B0 POKE  ERROR & BEEP SET ($fc) ERROR  CLEAR SET ($fe) 'd PROTECT ($ee)- SET  READ v'($eb) '1 2608  RESET CLOSE $ WAIT SET  REM REM line numbering breaks here! REM USING BACKUP 0 READ 2611 ^ PCLEAR - WAIT > ($e9)($FF17)($fd)#M+($f8) ELSE _ GO A GO Z" EDIT FOR ($ea) GO ' GO & SREAD m' PROTECT O EDIT FOR ($fe)9(09 DATA 5 REM REM line numbering breaks here! REM RENAME DATA 5 KILL DATA 5 DRIVE DATA 5 BOOT ($fc)<($fd)`4P M' DELETE FOR MOTOR NOT '($f7)5 BEEP 0 READ  0 READ 1072 READ REM REM line numbering breaks here! REM ?($fb)($ef)($fd); ILLEGAL DICTIONARY FILE! ILLEGAL SUPPLIMENTARY FILE! ILLEGAL OUTPUT FILE! RESET 3 READ s READ & DEF END 4 1182 0 IF RESET  SET  DELETE FOR '+ RESET  GO Z"$ FOR A  REM REM line numbering breaks here! REM * ($eb) SET  SET _ DELETE FOR ' m EXEC ' MOTOR CLS &\ ($f1) STEP #/9 SET  SET  DELETE FOR EDIT CLS &($fa)9H($ec)/H  'Z&($f6)94 CLEAR ($fc)U($FF37)/ DSKINIT 5 SWAP FOR  SREAD - ON  ($ea) COLOR  FREAD  ($f7) FLREAD  DEF <0 CLS  VERIFY ($f5) TRON ` BEEP ($e8)($ee)($f4) NOT ($f0) 248 ($f2) CREATE p@P RESTORE  PLAY  AND  LOAD  RENAME ($ec)($f1)($f3)($f6)($f9)($fa)($fb)($fc)($fd)($fe)($FF08) FLREAD 0/ REM REM line numbering breaks here! REM S   *S  *  135 USING * REM REM line numbering breaks here! REM  FOR ($ee) CLOSE  GET SPELLDC USING 0B1 TROFF ($fe) SOUND 9460h RESET  PLAY _0 TRON RESET  RESET 0 TROFF  RESET 0 TROFF  RESET  RESET 0 TROFF  RESET 5 PCOPY 46_m IF '\ ($f9) DATA EDIT IF \O DATA ? DIM 5 PCOPY 46 LOAD  MERGE  MERGE " DATA ? ELSE  NEW 5 PCOPY STEP FREAD ' DSKINIT ($fd)5 PCOPY 5 PCOPY 46< 7063 # NEW "L NEW $ DIR 46 SET  DELETE CLS GO ' GO '($f6) GO ,'($f2) ($fd)5 PCOPY 1?/ DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET ($fe)5 PCOPY 4 LOAD  MERGE  DATA /?' NEW !($fc)5 CLEAR DSKINIT  STEP ERROR '($fd)5 CLEAR 5 CLEAR 4 CLEAR ' 4 CLEAR !' 16271 5 REM 4 SET  CLOSE $ DELETE FOR RESET ($fe)5 RESTORE 4& LET  REM REM line numbering breaks here! REM SET  RESET  CLEAR ? INPUT  SET 0 NEXT RESET 5& DIR STEP COPY &5&5 RESTORE DSKINIT ($fd) ($f4)40 CLEAR ? INPUT  5 COLOR STEP COPY & ($f6) DSKINIT ($fd) ($ee)4 SET  EDIT FOR RESET  CLOSE '($fe)5 RESTORE 546 LOAD  POKE  SET  RESET  CLEAR !? END 5 PCOPY DSKINIT 5 PCOPY DRIVE ?($fe)v NEXT 0 TROFF  RESET 0 TROFF F RESET 0 TROFF g RESET ($fe)f SET ($fe) FWRITE  2839 ($fe) OPEN  3951 ELSE RESET ($FF39)($FF36) NEW $ READ 3M+ SET  EDIT FOR RESET  ($f3) $O GO ($FF27)($f9) SET o ELSE SET  ELSE 0 DATA RESET  SET m ELSE '($fe)C $& BOOT ($fe)($ea) LOG 4 DRIVE * STEP NOT ? STEP RENAME I STEP ($f0)R STEP ($f8)Z0 READ 1850 / 0 READ REM REM line numbering breaks here! REM \WWWW:/ CLEAR + H Z&($f6) NEW DELETE ELSE 5 CONT DATA  NEW ($fe) PLAY $($eb) 20 READ 22359 -:/ DIR 0 READ 22468 :/ AND 0 READ REM REM line numbering breaks here! REM 1W-:/ TO 0 READ 1850 / CIRCLE ($fe)i($FF05)ESIN ELSE IF T'AD DATA LORG PRINT YC ON MU REM H INPUT END BPKVF NEXT WZ DIM GO READ XQ LET J FOR RUN RESTORE RETURN STOP POKE CONT INSTR ON @ FROM FROM FROM / 3089   REM REM line numbering breaks here! REM 6S  OR  135 USING 6 REM REM line numbering breaks here! REM  FOR  PRESET  AUTO SPELLCO USING 0B1 TROFF ($fe) SOUND 9460h RESET  PLAY _0 TRON RESET  RESET 0 TROFF  RESET 0 TROFF  RESET  RESET 0 TROFF  RESET 5 PCOPY 46_m IF '\ ($f9) DATA EDIT IF \O DATA ? END DATA 4A LET 528 ? END 55 PCOPY 46 LOAD  MERGE  MERGE  DATA ? ELSE  NEW 5 PCOPY STEP FREAD ' DSKINIT ($fd)5 PCOPY 5 PCOPY 46< 5783  NEW L NEW  DIR 46 SET DELETE CLS GO ' GO '($f6) GO ,'($f2) ($fd)5 PCOPY 1?/ DELETE CLS GO ' GO ' GO ,' EDIT FOR Z&($ed)o ELSE 1? RESET ($fe)5 PCOPY 4 LOAD  MERGE  DATA /?' NEW ($fc)5 CLEAR DSKINIT  STEP ERROR '($fd)5 CLEAR 5 CLEAR 4 CLEAR ' 4 CLEAR ' 16271 5 REM 4 SET  CLOSE $ DELETE FOR RESET ($fe)5 RESTORE 4& LET  REM REM line numbering breaks here! REM SET  RESET  CLEAR ? INPUT  SET 0 NEXT RESET 5& DIR STEP COPY &5&5 RESTORE DSKINIT ($fd) ($f4)40 CLEAR ? INPUT  5 COLOR STEP COPY & ($f6) DSKINIT ($fd) ($ee)4 SET  EDIT FOR RESET  CLOSE '($fe)5 RESTORE 546 LOAD  POKE  SET  RESET  CLEAR ? END 5 PCOPY DSKINIT 5 PCOPY DRIVE ?($fe)e NEXT 3 TROFF  WAIT 3 TROFF A WAIT 3 TROFF b WAIT o-3 TROFF  REM WAIT ($fe)M SET ($fe) BOOT  FOR SET ($fe) AND SET ($fe) LET SET ($fe)($fb) 646  NEW 3 READ REM REM line numbering breaks here! REM BEEP DATA ($FF17) INT  LLIST READ " | DEF END 4 1182 0 IF RESET REM REM line numbering breaks here! REM SET DELETE FOR ' SAVE RESET 135 ($f2) SET /($fe)($f5), ELSE  GO ' GO A($f1) GO Z# GO a($e9) GO z" FROM FOR FOR @ EDIT FOR Z' ERROR o ELSE 9($fe)< GO &($f9)9) ($fe) PUT ($fe) TROFF ($FF45)($fe) AUDIO DATA 5 REM REM line numbering breaks here! REM = DATA 5 8 DATA 5 3 DATA 5 .($fe) CONT ($FF28) SET  SET _ DELETE FOR ' m EXEC ' MOTOR CLS &\ ($f1) STEP #/9 SET  SET DELETE FOR EDIT CLS &($fa)9H($ec)/H  'Z&($f6)94 CLEAR ($fe) NOT / DSKINIT 5 ($eb) FOR  SREAD - ON  ($ea) COLOR  FREAD  ($f7) FLREAD  DEF <0 CLS  VERIFY ($f5) TRON ` BEEP ($e8)($ee)($f4) NOT ($f0) 248 ($f2) CREATE p@P RESTORE  PLAY  AND  LOAD  RENAME ($ec)($f1)($f3)($f6)($f9)($fa)($fb)($fc)($fd)($fe)($FF08)2g FROM FROM / REM REM line numbering breaks here! REM S   SET S  AUTO 135 USING 3345 GO > REM REM line numbering breaks here! REM " &go5 CIRCLE KBVDI BACKUP drvr5 CIRCLE ter($ed)0 READ ($FFEC) SOUND  OPEN PCLEAR - EXEC 0 READ ($FFE2) STOP  NEXT PCLEAR B($ec)($ed)D4AP FN 50  SCREEN - SCREEN D($ee)B DELETE NOT EDIT CLS 0&($f8) LET 35376 ELSE ($f7) EDIT  DELETE  ELSE ($f6) END 0 EDIT  LET ($FF20) DELETE  END 8 EDIT 5A SCREEN B REM REM line numbering breaks here! REM W SCREEN -($ec)0 NEXT 1 READ COS / DELETE CLS EDIT FOR Z&($f9) DATA / 4159 READ +o DATA  EDIT  DATA / REM REM line numbering breaks here! REM ? LET 0 READ ($FF6E) DATA ($f1)4@? 13632 o ON  DATA  EDIT ON  READ _?4@ DATA SAVE ? 13760 4@?5 NOT PUT  PRINT USING  TO REM REM line numbering breaks here! REM  SAVE GO o  SET drvr5 CIRCLE  211  1181  SUB  REM REM line numbering breaks here! REM x4B($ee) AND < ?)($ee)am AND ,' ($ee) AND -< ?)($ee)a/ GO 0 AND o FOR Z&($fb)< 10277 F0($ee)a IF '0 INPUT  REM REM line numbering breaks here! REM  NEXT  PCLEAR AND "< 10734 a DATA  EDIT AND 74P1 READ REM REM line numbering breaks here! REM + THEN 2 LET DELETE  END  EDIT l READ 279  MERGE (_5 OFF REM REM line numbering breaks here! REM 4P FN 50 5_9($fe) REM REM line numbering breaks here! REM m LET DELETE +n RESET 694 2378 PMODE 951 ($FF48)n RESET 5286 D EDIT E LET 16138 SET K FLREAD ON 6' STEP "C5 STOP 5m READ ($FFAC)&($FF30)#0 AND : FLREAD AND  SAVE AND '< DELETE IF \ STEP d_ SWAP AND ($ee)mN'oNS/($f4)9m READ ($FF7D)& 4($fe)($FF35) FLREAD AND &4 GO &l AND _9 GO  GO $ /0 READ &m ELSE &o AND 9 MOTOR FOR & ($ec) ELSE 0 READ 0 NEXT PCLEAR AND n ELSE 0 SWRITE l AND 0 READ  STEP ' FREAD n FREAD l AND 2 READ ;m AND 9' DATA ($f8)1 TRON NOT  REM REM line numbering breaks here! REM CIRCLE DELETE AND $L GO 3o AND $ DELETE AND L GO  AUDIO  EDIT AND  EDIT AND $o AND 3($ec) AND $($ed) AND 0j AND 2_9 INPUT NOT O0 READ  VERIFY XIXI0 NEXT / DELETE AND $=4DVDVDV5 ELSE 4 EDIT AND &m AND 4&! INPUT DATA ($f8)]'DZ"($fc)&V 4/ FOR DVj VERIFY &($fa)2aCS($ed) AND 5 SCREEN AND " DELETE AND FLREAD RENAME 1 PCLS DATA 4l AND 2 DELETE ELSE ELSE ($f0) READ  DELETE FOR ELSE  READ j VERIFY &($f0)j AND 2_5 ELSE FLREAD AND & NOT " ' H\&($fc)  FLREAD AND &'DZ"($fc)&V 4/ FOR DVj VERIFY &($fa)2am AND 4&m AND 8'CS TRON AND 5($e8) AND 64($ec) AND 5 EXEC EXEC VERIFY ! SWRITE SAVE ($ed) EXEC 1 TRON 9 TRON EXEC ($e8)! ($f4) LET ($FF20)/d DELETE ELSE ON NOT EDIT ELSE DATA J&($fb)Z&($f0)($fe) TAB(j AND $* DATA 2 EDIT AND $j AND *o AND  475 ($fe) CLS DELETE AND L GO  935 AND ($e8)o AND $ SWRITE  SCREEN AND "1 TROFF 6196 l AND 2 READ @j VERIFY &($fa)2aO_ EDIT AND 3($ed) AND 0($ed) AND $j AND 2 LET ($FF20) DELETE  END ($f0) EDIT  LET ($FFC0) DATA / READ DELETE AND "D/ READ ($fe)GD$0 EDIT FOR  EDIT GO Z&($f2)9 DATA 4 DELETE AND 8 INPUT ($ed) TRON FOR ($ed) TRON CLS ($ed) TRON NOT ($ed) TRON RENAME ($ed) TRON ($ed) TRON @($ed) TRON `($ed) MOTOR j VERIFY & FROM 1 TROFF 33808 SCREEN AND "l AND 24@3 TROFF  36141 5@j AND 11 TROFF REM REM line numbering breaks here! REM FOR READ RENUM j AND 29 SCREEN AND "1 TROFF ($f0)l AND 24@3 TROFF DATA ($f0) READ 1-5@l AND 1 FREAD /4/ SCREEN - PCLEAR EXEC SCREEN B PCLEAR " SCREEN D PCLEAR $ SCREEN F PCLEAR & SCREEN H PCLEAR ( SCREEN J PCLEAR * SCREEN L PCLEAR , SCREEN N PCLEAR .1 DELETE 3/Z& FWRITE j VERIFY & COPY 5 ELSE l AND 2 READ j AND 2($fd) STOP o AND 3 FLREAD AND $4*& DATA = ( DATA 4 DATA ($fd) WAIT DELETE AND $L EDIT AND $ GO 32a *j VERIFY *($e8) DELETE AND $/=*& PROTECT 2aTTT SCREEN AND " DELETE AND 1 PCLS 1 TROFF 8244  CLS RENAME D($FF09)5 EDIT AND $9l AND 2 READ SOUND DATA  CLS AND # 4($fe)($f0)j VERIFY &($f9)2aj AND 2($fd)o AND $o AND ($fe)m FLREAD AND  NOT &_9Z& GO 3 DATA 2 EDIT AND $_9 GO  DATA  EDIT AND ($fe)Jl AND $ DELETE AND $ GO 3($f3)o AND $($fe)@ DATA ($FF43) EDIT AND 8($fc) DSKINIT DATA ($FF20)($f6) DATA LOC AND 9($fc)=O ($f7)($ec) AND $l AND 2m AND 3&($ed) AND 0 4($ec) AND 0l AND 4]+ STEP $($ed) AND $ DATA ($fd)5($ed) AND $($ed) AND 0o AND 3j AND 4j AND 2_9 GO & DELETE AND  MOTOR AND '_9S/($f6)9 GO '($f6) GO & SCREEN &($ec) AND "($ed)_9S/ BEEP 9m AND 2&(j AND 7&# DATA  EDIT AND 7l AND 4($ec) AND $4($ec) AND 0($ed) AND $ DATA ($fc) PSET 5($ed) AND $c AND 3j AND 4 LET REM REM line numbering breaks here! REM DATA LOC  READ ELSE &O EDIT  READ &o AND 'o AND (9m AND (& EDIT AND (_9_ SWAP 9 DELETE ELSE C ELSE 9 MOTOR AND (& RENAME o AND *o AND +o AND ,o AND -o AND ./S SWAP  READ WAIT 'C IF @'! STEP &l AND -  STEP ($fd)&l AND . m AND ,& FN SWAP AND ,c AND , ELSE ?'4_D$\M&($f9) STEP 5& EXEC m AND *& RESET EDIT AND * SWAP AND +c AND +SX& PAINT SWAP  FLREAD AND ,' m AND *& ELSE DATA @ FLREAD AND + DELETE AND *'($FF67)4m AND '' j AND '' 5 12832 / SWAP AND ' REM REM line numbering breaks here! REM NEXT XXX54 GO ($ea) RENAME SWAP AND )0 READ 1 DELETE IF m AND .'0 READ  DIM DELETE IF m AND -'0 READ L DELETE IF GO &c AND / Sm AND /' GO a GO z" FOR 0 AND : FLREAD AND  EDIT IF \ STEP d_ SAVE AND &lN  SWAP AND M' MOTOR M& SCREEN I' EDIT  / MOTOR K'/ MOTOR L& DELETE C / DELETE E'?oE_9_\D&($fc)Z9($fc) ($fc)# ($fc)> ($fc)P ($fc)U ($fd) OFF A($fd)=B($fd)AC($fd)($ee)D($fc)-E($fc)>F($fd)($fe)G($fe)H($fe) I($fe)J($fd) SKIPF D@@ U oo` 7712 RETURN $ INPUT REM REM line numbering breaks here! REM JJ BEEP D $D B"@ CLEAR ($f6) RESTORE D VERIFY @ $ ($f0) 1 $ FOR REM REM line numbering breaks here! REM i SUB ` &"p i,($f0) SAVE a RENAME & PCLEAR ($f8) SAVE RENAME x($e9)` ($f1)$@ ii` iq` @@ $ $ ELSE  B@ i" i TAB( PRINT i($f9) RESTORE ($e9)($e9) RENAME x ON p ($e9) CLOAD RENAME ($f8)($e8)($f0) ($f8)($e8) FOR x DLOAD p CLOAD ($f9) RESTORE VERIFY D RENAME ($f2)*@ CSAVE > RESTORE ON ON ($f0) ($fd) FWRITE RESTORE LLIST DLOAD RESTORE i CLOAD ` ($e9)($e8) FOR i OPEN p ($e9)($ea) RESTORE xa RENAME VERIFY D@ CLOAD CLOAD ` CLOAD CLEAR ` CLOAD MERGE ($f0) CLOAD i RESTORE CLOAD q RENAME ($f1)h($f0) ($e8) ON RENAME B qp i  " 1945 p REM REM line numbering breaks here! REM LET CLOAD RENAME  ON p  CLOAD p  PSET p 4($f4)@  CLOAD q RENAME LET CLOAD RESTORE @D@ 8896 END > RESTORE REM REM line numbering breaks here! REM DD@  MERGE RESTORE  CLOAD RESTORE  CLOAD `  CLOAD ($e8) FOR  CLOAD q ON FOR + RENAME OD0 CLOAD p CLEAR ` MERGE ` f RESTORE CLOAD q RENAME $($f0) 4-0 D@ OFF 2 NOT  CLS ($FFFF)($FFF0)0123456789:;,-./@abcdefghijklmnopqrstuvwxyz  0!"#$&'()*+<=>?|ABCDEFGHIJKLMNOPQRSTUVWXYZ | ~ ^[] {_}\   C AUTO  FROM FROM / S    DEF S  FWRITE  135 USING  DEF REM REM line numbering breaks here! REM  GO PAINT 29764 i($f2) Directory of CLS . CREATED ON OWNER NAME ATTR START SIZE =============================== 1 AND \ RESET  FROM DELETE REM GO &0 READ CHR$ RESET REM REM line numbering breaks here! REM DATA GO CSAVE ? ELSE  564 1 READ ($FF6D)` SET 5889 3 PSET VERIFY ($f7)2b GET "0I?0LvH 'C CLEAR / 12048 ? READ  REM REM line numbering breaks here! REM PMODE SET M SCREEN ($ec)1 NEXT DATA / ($f8) DATA @ 235 0 AND \ RESET  DATA ? ELSE  1328 READ ($FF1A) LET 272 ? DIM CLEAR  LET REM REM line numbering breaks here! REM 4@ AUTO @? ON 5@ _ '[ &1O 173 DRIVE  NOT \ STEP "D NOT "($fc)&($ef) ?4@ CLEAR ._ SET , CLEAR ? ON 5@?0 AND O LET 16265 3 REM REM line numbering breaks here! REM * LOAD P READ 5 READ t1O 159  REM REM line numbering breaks here! REM ~ READ g READ e READ  READ , RETURN 0O LET CLEAR ? INPUT $ CONT STEP COPY &_ READ }? CLEAR , READ & LOAD - READ $ DEF READ   READ  5 LOAD X READ  DEF READ  READ + LOAD Z FLREAD 4DDDD READ 5 REM  READ ($f2) ELSE M' NEW  & DATA NEXT 0 GO 9# NEXT   DATA 4 SET  EDIT FOR RESET 5 RESTORE dsewrewr($FFD6)O0 DIM ($f2) DELETE FOR X DATA - READ WAIT DELETE FOR *($f5)9 DELETE EXEC ELSE  READ CREATE DELETE CLS *($f6)942 DATA READ OR 0 AND \ RESET  LET 272 ? DIM 5 PAINT 0 AND R READ  READ READ  READ PSET READ  READ  DELETE DATA /  READ  READ REM REM line numbering breaks here! REM DATA : READ CLOSE FLREAD FOR DATA / STEP d_L NOT d$($fb) GO 0' READ ON DATA :J= $($fb)($FF7E) DEF NEXT 0($FF77)($ec) FOR GO '($fa) GO ,'($f6) ON E ELSE WAIT & STEP 0$  ($e8) DELETE  ON X ELSE WAIT & STEP 0$ DATA  NEW  DRIVE 9 CIRCLE e READ / S   SKIPF S  MERGE  135 USING 3345 GO READ REM REM line numbering breaks here! REM 5+De($ec) Use: Del [-x] {} [-x] DELETE ELSE GO 'X DATA  NEW 12319 CLEAR REM REM line numbering breaks here! REM ? RESTORE  DELETE ELSE GO &($f3)_? DELETE FOR GO '($fa) GO ,'($f6) GO -& READ "094 DELETE FOR GO '($fa) GO ,'($f6) GO -' GO &($ee)59 READ  DATA EDIT  ($f5) DELETE FOR ON X ELSE WAIT & DATA  NEW 90 READ ($FF7A) LET PO? DIM _ PCLEAR RUN p- FROM FROM FROM / S    LOAD S  WAIT  135 USING  LOAD REM REM line numbering breaks here! REM  GO ($f6) 67 op($f9)Ready SOURCE, hit C to continue: Ready DESTINATION, hit C to continue: Use: Copy [-s] -s = single drive copy (Path2 must be complete pathlist) Error - write verification failed. 2 OR  REM REM line numbering breaks here! REM 4@3 AND o OFF  AUDIO VERIFY "($f9) AUDIO SAVE ' 1076  DELETE FOR GO -' GO &($f6) ($ec) FOR ON S ELSE WAIT & STEP 0$  VERIFY c5 DATA ? ELSE $ STEP DSKINIT 'TX NEW REM REM line numbering breaks here! REM ' DELETE ELSE / DSKINIT GO /&H4 CLEAR 4294 REM REM line numbering breaks here! REM ? READ 8 DELETE ELSE NEW / GO &4P CLEAR /? READ ! RESET  WAIT 5P FLREAD ON  DSKINIT 5 DATA  DATA  DRIVE ?'$  DATA  DRIVE ?' 304 AND / REM REM line numbering breaks here! REM ? READ  33985 '  A & / SWAP / REM REM line numbering breaks here! REM ? LET  641 &*4@ CLEAR / SET  PROTECT ? LET  REM REM line numbering breaks here! REM DLOAD 5@0 AND  LET  CLEAR /? READ  CLEAR /? LET 0 OR  165 CLEAR 1040 ? INPUT k DATA  272 ? END  806 L4` SET PROTECT CLEAR ? ON o($ee)b3 OR  REM REM line numbering breaks here! REM ($ec) VERIFY COPY MERGE ($ec) VERIFY $0 RESET  LET  ($ed) VERIFY M& SCREEN b0 INPUT  4159 INPUT C DELETE NOT MOTOR FOR &+1?&($f6)($ec) VERIFY ' REM REM line numbering breaks here! REM " DSKINIT 5` CLEAR /? READ $ PRINT STEP COPY ' STEP COPY & DATA  READ ( CLEAR ? RUN $ 0 READ ($fe)E READ S/ 0 READ ($fd) RENAME READ _? LET  DATA ? DIM 9 '9404M& 0 READ ($fd)y LET 2096 READ ($fd) RESTORE  LET REM REM line numbering breaks here! REM & READ KILL 0 SREAD  LET 4159 INPUT DELETE RENAME ON C ELSE WAIT ' READ 5& BACKUP READ 550942 DATA 0 READ ($fd) INPUT  LET REM REM line numbering breaks here! REM P? DIM 5 PAINT ^] GO / S   S  SWRITE  135 USING  REM REM line numbering breaks here! REM  GO 4  BOOT Renam FROM '  134 ? ELSE $ STEP DRIVE &| SET 4159 ELSE s RESET / REM REM line numbering breaks here! REM 0 AND ? READ g? RUN b DRIVE STEP &_ READ cX SET  DATA EDIT  SET 4159 DATA I SET  DRIVE Z DELETE IF END FOR EDIT IF \ BOOT & 1 ELSE SET ?$ SET  DATA ? ELSE $* STEP FREAD &&0 DIM ' DATA '? ELSE  SET : PROTECT <? ON  SET  SET ? END ? RUN _?/ DSKINIT ($f9). SET REM REM line numbering breaks here! REM READ D PROTECT DELETE - GO /' DELETE EXEC GO /'3 DIM ($e9) WAIT 0 EXEC READ + RESET  DSKINIT 0 EXEC READ !$($f6) DRIVE ' SET ? DELETE EXEC GO /' STEP $ RESET O MERGE 9S/ DSKINIT 9?$_3 ELSE DELETE NOT *\ GO SCREEN &\ GO .'($f2)Z' 1_ STEP $_ C9 OR NP FROM FROM FROM / S    PAINT S  FLREAD  135 USING  PAINT 33182 vPBacku($f0)/d0 /d1 Use: Backup [e] [s] [-v] [/dev1 [/dev2]] e - abort if read error s - single drive prompts -v - inhibit verify pass READ Ready to backup from CLS to CLS Ok ?: CLS Ready Source, hit a key: CLS Ready Destination, hit a key: CLS Sector EXEC Sectors copied: EXEC Verify pass READ Sectors verified: EXEC is being scratched READ Disks not formatted identically Backup Aborted READ 2 OR ($FF34)4@ AUDIO SAVE 'P NEW     1 AND W RESET U($ec) SAVE 'J($ec) FOR GO '($fa) GO ,'($f6) ON E ELSE WAIT & STEP 0$ ($e8) DELETE  ON S ELSE WAIT & STEP 0$ FREAD ($ec) GO -& AND V- WAIT & ($ec) FOR STEP 0$ OFF DELETE REM GO /' GO &+0 READ ($fe)-1 READ ($fe) PCOPY ] SET U RESET C DELETE FOR GO '($fa) GO ,'($f6) GO & SET  DELETE FOR GO /&($fd)01 READ ($fe) RESET 1 SET U RESET 1 READ ($fe) LIST ($f7)S ON Y ELSE WAIT & PRINT SET <@ SAVE FOR &($fc)($ed) SET  DATA ? ELSE 50 OR P LET  35109 (? RUN SET  DATA ? ELSE  NEW 12744  FLREAD FOR SWAP CLS STEP &($f8)<@ ($ed)?0 AND  DATA ? ELSE / NEW  LET CLEAR 0 OR P LET  REM REM line numbering breaks here! REM ? INPUT 4P LET 33808 ? ON 5P DRIVE ($ec) INPUT  33830  FLREAD INPUT  SAVE '1 READ ($fe) DIM  REM REM line numbering breaks here! REM ($f8)0 OR P DATA THEN EDIT ON ?1 ON ~1 READ ($fe)a REM 1 READ ($fd) SREAD FS ON Y ELSE WAIT & 304 OR P LET  REM REM line numbering breaks here! REM ? END  16526 REM REM line numbering breaks here! REM 4159 ON 5@0 OR P? INPUT  REM REM line numbering breaks here! REM AUDIO ? RUN 0 AND  DATA ? ELSE  304 AND 5/ 36294  SWAP / 36368 REM REM line numbering breaks here! REM }1 READ ($fd) END  VERIFY CLEAR  NEW 0 OR P THEN  CHAIN LOAD 0 OR P RESET  POKE '  CLEAR ? END S CLEAR GO COPY & BEEP 1 READ ($fd) CLOAD  &M1 READ ($fd) MOTOR  16 ? RUN 4 CLEAR ? RUN -0 AND  DATA ? ELSE # NEW REM REM line numbering breaks here! REM  CLEAR  NEW 0 OR P READ c CLEAR GO COPY &($f0)1 READ ($fd)u 2832 ?1 READ ($fd) CIRCLE  REM REM line numbering breaks here! REM LLIST S/ 1552 LET  REM REM line numbering breaks here! REM CLEAR ? INPUT $ DSKINIT STEP COPY '= 3341 & DRIVE ? LOAD + 3876   '4@ SET  DEF _ CLEAR 34869 @ SET 0 INPUT  REM REM line numbering breaks here! REM RESET  CLEAR  FOR  NEW $ PAINT 90 AND W RESET U1 READ ($fc) LLIST 1 READ ($fc) TO ' READ 3460 VERIFY  LET O? INPUT 1 READ ($fc)m READ !56 ELSE 94?5= DELETE FOR READ ^Z*($f9)9 DELETE EXEC ELSE  READ T DELETE CLS *($f6)9 READ ($f3)42 LOAD U0 AND W RESET U POKE U DATA ? DIM 5 PAINT 1 READ ($fc) PRINT READ FWRITE CLEAR  READ  CLEAR  READ CLEAR  READ 1 READ ($fc)1 BEEP  4DDDD READ 5 ELSE M' NEW ' PLAY NEXT 0 GO 9# NEXT 4 SET U EDIT FOR RESET U5 RESTORE  CLOSE + FROM FROM THEN S    NOT S  ($ec)  . SCREEN  SCREEN ($eb)styhlp CIRCLE ($f4)styhlp PAINT ($f8)styhlp GET ($fb)styhlp PUT ($fe)styhlp DRAW styhlp PCOPY styps. VERIFY styps.($ee)  styps. PMODE styp($f3) dic($f4) SUP BEEP 2 | REM REM line numbering breaks here! REM S   dS  ($f5)  13 ----- ESCAPE COMMANDS ----- J cursor left U scroll up one line L cursor right M scroll down one line I cursor up O scroll up one screen , cursor down . scroll down one screen K cursor left 7 scroll left then right 9 scroll right / GO TO SUPERVISOR R replace string ; insert text F find string 1 overwrite one character P go to page # ^ insert one character S save text from cursor to marker W withdraw saved text D duplicate saved text without withdrawing Z delete text from cursor to marker REM REM line numbering breaks here! REM S    DLOAD S  ($f9)  13 ----- CONTROL COMMANDS ----- P page status U underline N name the last error O overline V view/hide character mods. I superscript F format command display K subscript A assistance B boldface G insert ghost hyphen W delete word R set a tab D delete single character T move to tab X delete line Y clear a tab FROM FROM FROM  REM REM line numbering breaks here! REM S    SWRITE S  ($fc)  32 ----- VERTICAL FORMATTING COMMANDS ----- ,PL N page length N lines per page ,PG new page ,PN N page number ,TF top of form (printer command) ,NL N need N lines on same page ,HD define header ,FT define footer ,, end header or footer definition --- PRINT PARAMETERS --- ,SP N space N lines ,SS N set spacing N spaces per line ,VT N vertical tab to Nth line ,VS N vertical spacing N lines per inch FROM  REM REM line numbering breaks here! REM S    CIRCLE S   32 ----- HORIZONAL FORMATTING COMMANDS ----- ,CE N centre N lines ,RJ N right justify N lines ,JU justify ,NJ no justify ,LL N line length N characters ,IN N indent N spaces ,SI N indent one line N spaces ,PS proportional spacing ,NPS non-proportional spacing --- PRINT PARAMETERS --- ,LM N set left margin of N spaces ,CS N character spacing N char. per inch FROM FROM FROM  REM REM line numbering breaks here! REM S    PCOPY S    32 ----- MISCELLANEOUS FORMATTING COMMANDS ----- ,PP start paragraph ,PPNL N paragraph needs N lines on same page ,PPSP N paragraph space N lines ,PPSI N paragraph single indent ,BFS N boldface - strike N times at printout ,PC C character for delimiting print strings ,MMC C mail merge character ,PADC C pad character for non-paddable spaces on printout ,* comment line FROM FROM REM REM line numbering breaks here! REM S   ($f3)S    32 ----- DISPLAYED MOD CHARACTERS ----- CHARACTER USED ! as as sub- as super- HIGHLIGHTS ! normal script script ! none ! (CHAR) A a ! underline ! - B b ! boldface ! 3 C c ! underline+boldface ! 4 D d ! overline ! 5 E e ! underline+overline ! 6 F f ! boldface +overline ! 7 G g ! underline+boldface ! 8 H h +overline ! FROM  REM REM line numbering breaks here! REM S   =S    36 20 10 $20 SPACE '! 6 '6 '" 8 '1 '# 10 ', '$ 10 'A ' 10 'x '& 12 'l '' 4 'Z '( 6 'd ') 6 'F '* 8 'H '+ 10 'R ', 6 '+ '- 10 '3 '. 6 '8 '/ 8 '- '0 10 'n '1 10 'b '2 10 'c '3 10 'o '4 10 'e '5 10 'r '6 10 'a '7 10 'i '8 10 't '9 10 'h ': 6 '; '; 6 'J '< 10 'W '= 10 'Y '> 10 $7F '? 10 'N '@ 14 'y 'A 12 'I 'B 12 'C 'C 12 '= 'D 12 '2 'E 12 'O 'F 12 'G 'G 12 '# 'H 12 'K 'I 6 'Q 'J 8 'U 'K 12 '9 'L 12 'D 'M 14 '7 'N 12 'P 'O 12 'X 'P 12 ': 'Q 12 ') 'R 12 'V 'S 12 'T 'T 12 'S 'U 12 '4 'V 12 'L 'W 14 '$ 'X 12 '5 'Y 12 '' 'Z 12 'B '[ 8 'M '\ 8 'q '] 8 'z '^ 10 'f '_ 10 'E '` 10 's 'a 10 '_ 'b 10 '" 'c 10 '/ 'd 12 '@ 'e 10 '* 'f 8 ' 'g 10 '} 'h 10 '\ 'i 6 '^ 'j 6 '] 'k 10 'm 'l 6 '[ 'm 14 '> 'n 10 '( 'o 10 '` 'p 12 '& 'q 10 'j 'r 8 '< 's 10 $7C 't 8 '{ 'u 10 '? 'v 10 '0 'w 14 $7E 'x 10 'v 'y 10 '! 'z 10 'g '{ 10 'u '| 10 '. '} 10 'k '~ 10 'w $7F 10 'p FROM  REM REM line numbering breaks here! REM S   >S    36 20 10 $20 SPACE '! 6 'K '" 8 '" '# 12 '= '$ 10 'z ' 12 -'K '& 12 '< '' 6 'O '( 6 'n ') 6 'G '* 10 '* '+ 12 '4 ', 6 'p '- 8 '$ '. 6 '3 '/ 8 't '0 10 -'I '1 10 -'C '2 10 -'P '3 10 -'M '4 10 -'A '5 10 -'T '6 10 -'E '7 10 -'O '8 10 -'R '9 10 -'S ': 6 'q '; 6 'f '< 12 'U '= 10 '7 '> 10 'v '? 10 'S '@ 12 '^ 'A 14 '/ 'B 12 'M 'C 14 '6 'D 14 'J 'E 12 '? 'F 12 '! 'G 14 'Z 'H 14 'w 'I 6 'W 'J 10 'e 'K 14 'R 'L 12 'N 'M 14 'C 'N 14 'F 'O 14 -'X 'P 12 'D 'Q 14 -'Y 'R 14 '# 'S 10 'B 'T 12 ' 'U 14 '@ 'V 12 '( 'W 14 'A 'X 14 '{ 'Y 14 'H 'Z 12 '[ '[ 6 '5 '\ 8 '8 '] 6 -'\ '^ 10 $7C '_ 10 -'[ '` 10 ', 'a 10 -'H 'b 10 'd 'c 10 'x 'd 10 '; 'e 10 -'N 'f 8 '& 'g 10 'k 'h 10 -'B 'i 6 -'J 'j 6 'l 'k 10 'a 'l 6 'g 'm 14 'u 'n 10 -'L 'o 10 -'U 'p 10 's 'q 10 'y 'r 8 ': 's 8 -'G 't 8 -'W 'u 10 'b 'v 10 'r 'w 14 'o 'x 10 'i 'y 10 'm 'z 10 'h '{ 6 '- '| 6 '' '} 6 '. '~ 10 '0 $7F 10 'L FROM FROM  REM REM line numbering breaks here! REM S   ^S    36 20 7 $20 SPACE '! 7 '! '" 10 '" '# 15 '# '$ 12 '$ ' 16 ' '& 14 '& '' 7 '' '( 7 '( ') 7 ') '* 12 '* '+ 12 '+ ', 7 ', '- 12 '- '. 7 '. '/ 12 '/ '0 12 '0 '1 12 '1 '2 12 '2 '3 12 '3 '4 12 '4 '5 12 '5 '6 12 '6 '7 12 '7 '8 12 '8 '9 12 '9 ': 7 ': '; 7 '; '< 12 '< '= 12 '= '> 12 '> '? 12 '? '@ 14 '@ 'A 16 'A 'B 15 'B 'C 14 'C 'D 16 'D 'E 14 'E 'F 14 'F 'G 16 'G 'H 16 'H 'I 10 'I 'J 14 'J 'K 16 'K 'L 14 'L 'M 18 'M 'N 16 'N 'O 16 'O 'P 14 'P 'Q 14 'Q 'R 15 'R 'S 12 'S 'T 14 'T 'U 16 'U 'V 16 'V 'W 18 'W 'X 16 'X 'Y 16 'Y 'Z 10 'Z '[ 12 '[ '\ 12 '\ '] 12 '] '^ 12 '^ '_ 12 '_ '` 7 '` 'a 12 'a 'b 12 'b 'c 10 'c 'd 12 'd 'e 12 'e 'f 10 'f 'g 12 'g 'h 12 'h 'i 8 'i 'j 6 'j 'k 12 'k 'l 8 'l 'm 16 'm 'n 12 'n 'o 12 'o 'p 12 'p 'q 12 'q 'r 10 'r 's 12 's 't 10 't 'u 12 'u 'v 12 'v 'w 16 'w 'x 12 'x 'y 12 'y 'z 10 'z '{ 10 '{ '| 7 '| '} 10 '} '~ 12 '~ $7F 0 $7F FROM  REM REM line numbering breaks here! REM S   =S    36 20 10 $20 SPACE '! 6 '6 '" 8 '1 '# 10 ', '$ 10 'A ' 10 'x '& 12 'l '' 4 'Z '( 6 'd ') 6 'F '* 8 'H '+ 10 'R ', 6 '+ '- 10 '3 '. 6 '8 '/ 8 '- '0 10 'n '1 10 'b '2 10 'c '3 10 'o '4 10 'e '5 10 'r '6 10 'a '7 10 'i '8 10 't '9 10 'h ': 6 '; '; 6 'J '< 10 'W '= 10 'Y '> 10 $7F '? 10 'N '@ 14 'y 'A 12 'I 'B 12 'C 'C 12 '= 'D 12 '2 'E 12 'O 'F 12 'G 'G 12 '# 'H 12 'K 'I 6 'Q 'J 8 'U 'K 12 '9 'L 12 'D 'M 14 '7 'N 12 'P 'O 12 'X 'P 12 ': 'Q 12 ') 'R 12 'V 'S 12 'T 'T 12 'S 'U 12 '4 'V 12 'L 'W 14 '$ 'X 12 '5 'Y 12 '' 'Z 12 'B '[ 8 'M '\ 8 'q '] 8 'z '^ 10 'f '_ 10 'E '` 10 's 'a 10 '_ 'b 10 '" 'c 10 '/ 'd 12 '@ 'e 10 '* 'f 8 ' 'g 10 '} 'h 10 '\ 'i 6 '^ 'j 6 '] 'k 10 'm 'l 6 '[ 'm 14 '> 'n 10 '( 'o 10 '` 'p 12 '& 'q 10 'j 'r 8 '< 's 10 $7C 't 8 '{ 'u 10 '? 'v 10 '0 'w 14 $7E 'x 10 'v 'y 10 '! 'z 10 'g '{ 10 'u '| 10 '. '} 10 'k '~ 10 'w $7F 10 'p FROM  REM REM line numbering breaks here! REM S   ^S  _ 255 ($f8) ELSE 6 DRIVE PUT ?.0^ CSAVE h/ DIR SET t0s READ  SAVE  RETURN ERROR ($f9) GO GET ON .`l OPEN ;*se# PCOPY TO A0z3 CREATE :8G FOR ($ee)Go? DSKINIT bX STEP '( VERIFY 7# GET COPY 05# ELSE WAIT LZDv SUB C TRON <3x TO PROTECT DRAW GO PUT DEF TRON | FWRITE "($f8)@($f1) v SKIPF V MOTOR  OPEN (($ea)Q# GET ERROR 7 DEF  SCREEN FN SAVE NEXT H TRON r SET  SKIPF CY OFF CIRCLE F AND T TRON r($e8) RENAME  W SKIPF 3|50 PUT  LIST AUTO  AND DEF FOR r SET  CHAIN  NEXT -^d;\# RESTORE PCLS r($fb)7 ON FN dp SWRITE 0 TAB(ECz LIST ON SAVE <'qFP END RETURN ERROR T< ON [ COLOR VERIFY 2($e8) / MOTOR /A ERROR B DIM ($fd)x CHAIN  END ERROR PUT BEEP SWRITE PRESET a DIM #5 REM Dhf REM T< DATA ]!p DATA ,T5r READ REM ($f1) CLEAR `l($f4) ELSE R BEEP `>9 AND ($ec)($fa)riO ($ea)8 FOR READ NOT P ELSE ` CONT 8 PLAY !qV RESTORE F SAVE RETURN r SET < LET ! RENAME VERIFY m COLOR =' AUDIO S+# DATA FROM C AND s^ FOR LIST SWRITE READ BACKUP 2k DRIVE Dv RESTORE PCLEAR &*= CLS ;@ LET SAVE  RETURN ERROR SREAD GO CLOAD SASb MOTOR MOTOR  LIST DATA - RESTORE G GO FOR LET Dv PROTECT PRINT FREAD PRINT ?6+ THEN @>xeJ LET B RENUM > LIST DIM INPUT ON ,<5 BEEP SWRITE -. FWRITE OX TRON MOTOR td< PAINT hLu NOT s ELSE ($ef)<VR2 GO RUN CLEAR 0- CLS ($f1) OFF E LET P CLOSE ($f0) AND CLS { LET y NOT e REM  CLEAR POKE / CSAVE SREAD  E&'($f0) AND ($ed) OFF PRINT SREAD ; CHAIN SUB DATA ($f4)<+ FLREAD (m DIM ON ($ed)! CLEAR RESTORE SET L# NOT S POKE JJd FREAD e0 DLOAD SREAD b MOTOR AND #";HPFA DIM NEXT INPUT L OPEN DELETE  MOTOR ($ee)2 SKIPF H!=( GO SREAD l MOTOR >+!y NOT GET PLAY F SREAD DLOAD STEP END DATA IF CLOSE 2/ REM REM line numbering breaks here! REM ($ed)($e8)M' CHAIN p ON d) SET t DIM ;G COLOR ($f0)# PMODE j DEF PCLEAR (x($f9) GO PMODE DEF ($ee)- FREAD r+r;Je ON p PRINT n+ NOT LET LOAD 3oaJ/P`o=C* PUT TRON p!g`Y SAVE FROM `($f6)*H_4 GO DRAW SWAP '($f2)e PRINT  ELSE DEF TRON |B2 PRESET *H($ed). FOR AUDIO PSET \" PRINT i CSAVE U= RESTORE FEC RESTORE MOTOR FWRITE  DATA DIM T< MOTOR >+! NEW @ AND ^`($f5)+ INPUT L OPEN FLREAD  VERIFY  LET Cr;8 FN DEF ELSE AUDIO ! CREATE 93($fa)($e9) p POKE S+] REM MOTOR ( AND ($f1) PCOPY C!A* RENUM C TROFF  RUN A~Tz BEEP SWRITE y($f0)} SAVE ON 8b* CHAIN  AND 7 MOTOR  REM 2# PUT IF 4 TROFF LOAD #r;_06 PLAY FN RETURN COLOR ^2# PAINT CLEAR 0` LOAD TRON hx DRAW **-(q DEF H#";K06 RENAME 2hk CLOSE AND CREATE IF REM TO <($ed) NOT r PSET  TRON ~= ERROR xv SKIPF |*E PCLS *Vfa) LOAD n FREAD I END DATA MOTOR (> PMODE  RETURN KILL ) RENAME REM /az SREAD DIM SOUND PRESET -$>xH LET OR ($e8) MOTOR  RETURN FWRITE [J' BEEP AND v AND # RETURN  PAINT < DATA LT> PRESET  ON < NOT q-7n LLIST \ AND _ POKE (EH($ed)* RENUM  NEXT DRIVE f *C@X TRON MOTOR TRON Esej DLOAD @ DIR NEXT ($ea) BACKUP BiO ($ea)/J($f1) CONT $ DLOAD PUT PRINT ]' / SWRITE " MOTOR AUDIO (V FWRITE 0p READ OFF AUDIO zh7 STEP v SKIPF " AUDIO PCLEAR H!x WAIT 06($ec)7 FWRITE Z ($e9) CLS ($f8) BACKUP * NOT ERROR D,7b DELETE '-* DSKINIT FOR ($ee)<) DEF dGl TROFF CLS SKIPF x AND MOTOR 9 DIM *@9a TO ($f0) RETURN 6 CHAIN ! SWRITE FN `m FLREAD ; DSKINIT FOR ($ee)9 FWRITE =A PRINT  CLOAD 6 DEF (J7 SET < SKIPF [ DIM IF H($ec) PUT PRESET /($f8)=1 DATA 8I'( VERIFY 7# PMODE RESTORE X nC PRESET Z STEP REM Q RESTORE TROFF P DRIVE LIST r ELSE VERIFY B CHAIN  SOUND q'; END CLEAR ) COPY 0\ CLEAR = IF 6E DIM ' NOT S CONT RENAME `'I LOAD TO 7 FROM CQm GO '! DLOAD c PLAY ($f9)u IF u($eb)3* AND .2 ZPb MOTOR AND #";o ON e DIM :n)2'($f1) LOAD r*aC&  RENAME LIST AUTO Pb MOTOR ($f6)($fa)i SAVE DIM ON ($ed)!OE AND T LET BACKUP 2* SCREEN  DLOAD P($f8)]4-. BACKUP J/A ERROR B($f5)+l OR Ck ELSE nGk LET PCOPY ERROR ! CREATE CIRCLE *#G *($ea) AUTO ' CHAIN ($fa)3u SKIPF ($ea) DEF  " AUDIO  END PCOPY CREATE CHAIN KILL 6 DRAW GO E NOT vr/; END s ELSE CLS b($f4) DIR CLOSE * TO J PRESET PUT PUT TROFF IF WT! RUN 5 SUB C[N LLIST CREATE GET IF GO f]As'l EDIT J SREAD PRESET ` THEN EXEC PCOPY DELETE CLEAR FWRITE NEW TO +^> BEEP #Qg<3:($f2)`QM MOTOR TRON <^`" SWAP INPUT 6179 ( PLAY ($eb)i COPY 0 PSET 8 ($eb) INPUT x($f4)'($f1) LOAD P- END PRINT FREAD TD TRON |. GO OFF xp0 SUB * ELSE ( VERIFY 7# PCOPY TAB(@[R DEF ,($f0)Bl($ec)($ed) / SWRITE ";^ PRINT *W! DRIVE a LOAD CLOAD REM PCLEAR N($fa) DEF BEEP X CIRCLE AND u AUDIO FWRITE < FOR W NOT / DIM ON ($ec) DEF =a=jq(kXT CLS n 12508 NOT G,*Ge< PMODE ,t OPEN iXO/xp MOTOR COPY <C LET RENUM  CLEAR ERROR +P ELSE _=i PRINT RETURN k END RETURN FWRITE ^Y PLAY V PRINT qr;>`mq DSKINIT 7 DLOAD  SET `#y RENAME SWRITE TROFF GET ($e9) PRESET _ READ *` LIST BEEP v|k PSET ($f1) PRESET 3 r PLAY PLAY Ea0~ EXEC  LET B POKE EDIT t MOTOR M+ STEP @ PRESET GET 9O DEF  MOTOR ue0 SUB n)Ly FN p) TROFF CLS S INPUT L CONT + USING ' IF )V PLAY TRON GET END l\ RESTORE CIRCLE FLREAD CLOSE MOTOR ON (Q LINE \ PAINT b PCOPY <($fd) SAVE BEEP  R PRESET PCOPY  DATA AUDIO 0($f2)($f7) IF | DLOAD RETURN ($f9)OX?g DEF LOAD dP5 FN 5& STEP ($f3) AUDIO OPEN DSKINIT 5 TROFF  PAINT SET QqNp DSKINIT DIM 1 SKIPF A MOTOR s AND Wj BEEP E NOT CLOAD * AUTO GG COPY 5R5q FREAD 3 STEP ($e9) DRAW 'r^q AND s PLAY EDIT @ RESTORE ($eb) LINE SWAP  RESTORE  CLS ($f0)jT CIRCLE FN  NEXT ' DIR CONT " EXEC vY RENAME DELETE */($e8) RESTORE 8 IF oR DATA SUB a> COLOR z FOR SWRITE Mm 22620 CIRCLE PROTECT  SET R IF USING ($e9)4?] CHAIN EXEC KILL g TROFF @_ INPUT ( FN RENAME k3 0e DATA FROM CRQ{l AND jR;.`m PLAY TRON THEN 0| NOT ERROR ($f0) SCREEN C STEP ($fa) TO SAVE 2 RETURN REM BEEP AUDIO PSET PROTECT ! DELETE ' T BACKUP ($ec)@9` SKIPF -8 LET =J CLEAR ; OFF y REM REM line numbering breaks here! REM WAIT  PRESET  CHAIN PCOPY  RETURN cp NEXT K($e8)P` AND LET KILL BEEP COPY ($ef) 2(! RESTORE CLS EE- SKIPF Q REM COLOR ` LOAD TRON |: COPY q DEF I'( VERIFY 7* SUB * DIM DLOAD GO PCOPY SREAD PSET  RETURN  POKE RENUM + DIM OFF G ON n*R;( DELETE .< NEXT }" DIM IF H($ec) LIST f>Gd MOTOR VERIFY 2($e8)/ DATA DLOAD STEP  DLOAD [f STEP ($e8)q RESTORE CLS GET END g DRIVE LLIST Y($f6)' DEF ) FOR END YGjT$Q EDIT U0z NEXT ($e9)yC> BEEP ^ FWRITE  DEF GO COLOR  PUT 0~nvQg PSET '"l IF STOP CSAVE r ERROR CSAVE ($f3) STEP  TO *C PLAY e BEEP ERROR A ERROR B LIST DSKINIT POKE IF a`PQ GO *($f6) DATA da FREAD P PLAY CONT ($f4) BEEP U PCOPY 5A)X< STEP TROFF c* OFF 9Wq CLEAR # PAINT PCOPY RETURN  STEP ($f4) CSAVE 42 END FOR j, DIM 3 DSKINIT Ly TO STEP EXEC . CIRCLE CONT ($f0)\ NOT KILL qB;^xk PRINT RETURN ($eb)0 VERIFY -- NOT _ PCLS C! BACKUP COLOR ($f0)b/ SET  EDIT * PCOPY (= PCLS PROTECT i` DATA X SKIPF ,@2 DELETE ' TO ($f0) CLEAR GO RESTORE = NOT B7 OR SCREEN ** LET P RESET RENAME FN  SWRITE 0 RESTORE ^7 PRESET /Dv~@,($f5)^b^(N SWRITE SET M,Z CLOAD BEEP H] TROFF 0\= MOTOR > OFF Xk ON R DLOAD PCLS WAIT  ERROR LIST CONT , AND LET DSKINIT ` AND PRINT 9g RESTORE PCLEAR L FOR ERROR ($f3) OFF SREAD POKE CLOSE + DATA CIRCLE x ELSE *.U MOTOR SUB :^ CLS COLOR Q^($e9)K TROFF E($f0) CREATE 1 READ  PLAY d) DRAW  EXEC h NOT ($f9) CONT  DELETE ` STEP U0qm FOR J CHAIN t PCOPY b^ ELSE '<8($fe)($ef) PRESET REM j SKIPF END END UB.G DEF ( MOTOR Aq GO VERIFY C SET C"($f0); CLEAR *0 LOAD MOTOR zq >I STEP + TROFF 1217 * CLEAR PUT USING ($f4)! ERROR SAVE  CLOSE + SCREEN FREAD F PUT BEEP w SET  CLEAR p CLOSE IF X/ sJ 6CR/ SREAD SOUND SREAD F PRESET 9a PCLEAR 9 REM ($f1) MOTOR REM END PCOPY DELETE ($f0)I TRON EDIT *L IF STEP !4($f4)r FREAD EDIT  RENAME ; LIST :F = MOTOR SREAD G, NOT KILL -r SCREEN SWRITE RESTORE LOAD LET OR REM NOT ($f1) *B*Ge CHAIN  CONT ($f0)BhK CSAVE OFF TROFF CSAVE  LOAD TRON { CHAIN RENUM CHAIN SOUND IF RENAME F BACKUP CLOSE &@2 DELETE ', CIRCLE PsL3& OFF T BEEP ^ MOTOR ($e8)Pv FREAD + TRON ($f7) >f AND LET CHAIN Y SAVE INPUT E-C! BACKUP FOR ($ee) LOAD  NEW FOR qb^x8$* CLOSE Bs COPY 4-" LOAD v DATA |B TROFF 0$($e9) AND 23 IF OFF SREAD LIST *W!ZS7 FREAD 3 RESTORE MOTOR NiI CHAIN FREAD ) RENAME LIST DATA $ STEP /E EDIT *b DIR ,r( FROM :X CIRCLE ELSE ($fc)E SUB PRINT PCOPY gJ($f2) FREAD CIRCLE ($f6) LOAD POKE INPUT Q NEXT  PUT INPUT REM REM line numbering breaks here! REM WAIT *v TROFF )r'($f0) AND ($ed) OFF PRINT SREAD ; CHAIN PLAY ,=8z-!m'e ON r TRON  NOT FWRITE h NOT LLIST B PSET S& STEP j RENAME `5 PSET :` OPEN  PUT 3# TROFF R/\9X K CLS '3 DELETE < CHAIN t PUT *M PCOPY i> CREATE POKE m REM IF F DATA a< DLOAD `l TAB(P SAVE 5 EXEC SWAP AUDIO ] PRESET REM z($e9) CONT  COLOR MERGE REM 2 DIM INPUT ON ,C POKE 2 SCREEN CLOAD PSET SAVE BEEP + REM COPY  ELSE DSKINIT N9 OFF EXEC ` READ COLOR FREAD CIRCLE ELSE DRIVE SET ELSE k] POKE CLS <*($f4)<3q DSKINIT A DSKINIT MOTOR O_B ` CONT BEEP o<5 STEP ($f8) CHAIN 8> CREATE ($ee)($f3) PRINT  OPEN SWAP J' BEEP STEP ($f9)N' PCOPY -v~($f0) OFF B OPEN C> LIST hyr DATA OPEN  IF ($ea)= COLOR W06 LOAD ] PCOPY ,W A($ea)L]Q PUT TRON ? DELETE TAB(@J*>/J RESTORE FLREAD ($f5) EXEC HJ MERGE 'R IF p|a7 A^mgL($f8)($eb)La<9d* END W[Cy SUB FOR d* DIM & POKE SOUND R NOT * RUN NxH MOTOR p NEXT _ NOT 7 DIM COLOR ~SL PSET SREAD BEEP ` DEF \V POKE ,V PUT FROM COLOR pm'W yBp^b GO ($f6) CLOSE REM 2# PCOPY ($f3) STEP iA FOR MOTOR OFF NOT LIST 'h* PLAY FG LET l EDIT REM POKE  OFF  RESTORE FDv RESTORE PRESET e-8 REM 2#> CHAIN  TO o DEF H LET OR 9 NOT ERROR ($ec)@q CONT , DIM ' DELETE x^2,I ON o($e9) RESTORE 10d2($f0) LOAD LET AUTO P7 CLOSE 4 READ OFF 7# PUT ELSE  PROTECT ($f3)QB GO SREAD  END SWRITE 2l2 DEF \ KILL q TAB( COLOR FROM J TRON FB FN RENUM B DEF ) SET ELSE mp LET A PLAY LOAD LET DSKINIT < TAB( ***C LOAD # FN `m FLREAD ($*C= CLS =`C ($ee)7 AUDIO LIST F VERIFY v SAVE <1(q DEF p+& RENAME ; RETURN KILL IF -xt RENAME TAB(^p LET BT? SAVE BEEP fw ON ($ec) TO `*C^U(0v RUN i SAVE FREAD NOT G COLOR ($f0)# PMODE j DEF PCLEAR HNAx LOAD dGm SWAP REM ($fa)p`($ed) COPY + GO P($fc)*($f4) PCLS  NOT ($f1) j FROM READ &($f4)5 FROM A CREATE @ug& CHAIN ! RESTORE TO ($f0)s/] CLOAD OFF EXEC ` PRINT 9N R COPY 4b*:8GL[!Jh.X($e9)6 CHAIN CLS LLIST B TRON p*+ END ($fa)($e8)P RETURN LOAD W DEF THEN (mMx POKE V COLOR TROFF O COLOR TAB(($f1) AND TRON yR PCLEAR J TRON Brm3M*($f5)& PSET +'($e9) RUN 9 DATA PLAY TO " DIM IF d FOR Rt CIRCLE c ($f6))c! USING N STEP =*8 RESTORE ($ed)NI DELETE  STOP s TROFF DATA x-'K0 CSAVE DRIVE X( PCLS a AND  TROFF * 0 ON LLIST NEW RESTORE N SOUND COLOR b KILL LET ($fa)V($ec)" SUB  SWRITE "F+ RESTORE 'x` SREAD ($ec)X($eb)6ziW CHAIN CSAVE  CLS ($f0)AN($f0) OFF SREAD SWAP g CLS CHAIN n: FREAD ON SAVE RESTORE = a AUDIO  BACKUP EXEC 8<*(Gd< PAINT ' PMODE @ AND u( MOTOR 6m CLOAD ($f3)'lq5# PAINT 51 PSET 1+v RENAME X($f8) OFF s+ FOR OR REM e TO STEP KILL l STEP NEXT  SET ($fe)($f0)J5 SWAP  DLOAD TO #) AUTO INPUT ` DIM hi DEF d( ERROR T CLS U AND \" DATA P7($eb) EXEC WAIT jL FOR PX CIRCLE  DEF 2R PLAY SUB CLS CSAVE VA DRIVE X?"i CREATE  CLOSE Q PCLS C GET SAVE PRESET 3 REM END CIRCLE b($fa)Pa5 FB EXEC v DSKINIT RESTORE Z*L PRINT Z+hV; ELSE nGd; SWRITE | NOT KILL COLOR PROTECT AUDIO q RETURN  LIST POKE  PLAY B SOUND REM CHAIN  AND LET CHAIN . RESTORE LLIST *BQ RESTORE TROFF  SET CLEAR GO SREAD l EDIT ELSE DEF  RENUM ELSE W` ELSE w OFF CSAVE ON & SKIPF NEXT BEEP ($f5)g CONT ' Rp SCREEN A PLAY LOAD q DEF V REM B PLAY ?]') SAVE # ERROR EXEC -+NT END iW,v EDIT 0Y IF *t CLOSE + POKE ($ee)T?N COLOR * PAINT ,C* LOAD MOTOR > FREAD p SET 9 IF H[,`wi9Bs OFF U OFF B($f3)+\ ~C PCLEAR  CLS ($eb) ON e^ CSAVE A FWRITE D TRON j OR V GO ($f0) SWRITE 0 LOAD " DIM X LOAD PRINT 7"z3 CREATE PLAY IF SWRITE q CREATE 91b($fe) CSAVE Bz($ec)($f0)<" RENAME h/J' DRAW a IF *($f0) CREATE CLS DATA SOUND DIM X TO A< DIM 5 FLREAD ($f0) LIST AND Q CONT \ AUDIO MOTOR 6 DELETE ' TO ($f0)K CLS *C RESTORE F SAVE ";K06 RENAME 2< EDIT  LOAD TRON h-(! POKE n2 AND LET CHAIN 7 DELETE *P` PROTECT ; LET Dv PROTECT PRINT FREAD w($e8) EDIT REM J PUT REM 2< RESET HX/< RETURN FWRITE y1P($f8) V ON n* READ SWAP ELSE IF H($ec)($f8)T CLS z PUT * NOT SAVE Ry CSAVE BEEP AUDIO CONT & SOUND ($fb)g+g! USING *($f4)2 PAINT  VERIFY Gn COPY +, NOT FWRITE 48 LOAD #r;=` CIRCLE DIM STEP f PLAY !D NOT l EDIT `

 NEW @ SAVE <8 LOAD P PLAY ($e8) BEEP SWRITE 0 AND 7 LET SWRITE RETURN  PMODE ($e8) *C} p VERIFY X OFF ~Zq CHAIN EDIT SCREEN ,T; FOR WX+ DELETE '& STEP = DIM OFF X ! RESTORE SKIPF  DIR DATA b GET SKIPF NEXT Oqn+ CLEAR DEF 5K FROM CIRCLE L MOTOR  RESTORE RESET aFP END RETURN ERROR T< ON ($ed) RESTORE PRESET +r COPY ; READ ($f0)Q}8 BEEP ($f5) GET IF _f| NOT ERROR SAVE  RETURN FWRITE ($f4) LINE END J9 DATA DELETE AND @' PRESET ` POKE Y RENAME SAVE I' CLEAR 3 SKIPF a TRON ($f2),B SWRITE " DELETE ' OFF x;B($f3) OFF D FREAD !V(ny0 CONT .z PCOPY NOT lX($ef) BACKUP  1($ec)T?a($ed)J($ee)M REM R PAINT & IF J FLREAD C SET ($ec)] AUTO xd@9a1P($fc)^ PROTECT ; LET Dv RESTORE WAIT b VERIFY VERIFY 9 PCLS /D SWRITE READ J CLEAR PSET 9lX($fb)B~8&4 ON Uk H,.* LET B LLIST g SKIPF * ON  CLEAR PSET 9l POKE EXEC "L RENAME STEP CONT nX($ef) BACKUP TRON yx($e8)kN0 RENAME 2b($e8)p($e8)V'R PCLS L= COPY A FN AND H#,_L AUTO P SET FN IF 2 IF H,< RENUM @ DELETE COLOR SREAD S&  FREAD ^` MOTOR # GET AUTO  LET NOT IF 36z CLEAR !" DELETE REM SREAD ERROR ' LLIST GO H($ec) CSAVE  IF ($ea) RESTORE COLOR ^7 FWRITE 3dR MOTOR AUDIO (EH($ed) TROFF @ CHAIN PLAY # i[ END CREATE SUB (M REM O MOTOR CLEAR " SWRITE PRESET 1 ELSE iqV* CONT Vf( `" SWRITE GET SAVE TRON <\ PRESET GET READ 3j($e9) RUN =z($e9)5 SET `# SCREEN *0 DSKINIT RESET xV7 SET 0 DRIVE z CLOAD  EXEC : COPY DEF <($f5) SCREEN ^ CSAVE ' LET SKIPF SUB 'K0 CSAVE f COLOR b*E^Y REM  CLEAR ' RUN NEW ELSE & RESTORE ($ea)Y($e8) KILL j STEP LET RENUM T>8+ RUN b;I STOP a( FN 4^ OPEN REM M AND ($e9)C|jR(C PAINT N PRINT r GO ($f0)q/ DATA LIST 0-` OR PUT  LOAD CLS RENUM ($ec) GO :W!r CLOSE ($f4) FLREAD RESTORE ^`N q AND T DEF  RESTORE PSET d` RETURN PRESET 9 Ek!N EXEC  DIM LINE hg LLIST kM<6 GO ^ END  FWRITE ' FWRITE id FROM y TRON FJ FOR PAINT CONT AgW EXEC Q FROM BDj BEEP COLOR \ LINE 2&^nv LIST 9 IF ($f9)#V($f3)M9'xV9 DEF * PUT EXEC E0 IF c RESTORE SUB FREAD *P>w EXEC ($e9)l2 FROM PUT , COPY =b RENAME ($f6) PSET ON ($ec) SOUND VERIFY p COLOR < RENAME q STEP ($f3)B6 MOTOR DLOAD FOR LET SUB z<TT LET ERROR FWRITE RENAME STEP 9 FOR PLAY M($ed) S AUTO ($fc) NEXT RESTORE 8($eb) GET CONT 5) MOTOR u($ea) EDIT e($ee)X($f3)A AUTO ($ec) GO y REM E* PLAY SCREEN CREATE VERIFY VERIFY vy+ EXEC Mg-/ DIM ON ($ec)($f8) BEEP AND Xp NOT + NOT R PUT DELETE h) DATA CREATE AUDIO FLREAD DEF = 0q REM SWAP !v,W:T7 GO FN REM DIR ELSE C\($f8) STOP R STOP ($f0) DEF jo MOTOR OFF B($f1)HX/ DIM ON ($ec) DELETE pN4($f4)@ END  FWRITE ZT R`U9@EZ($ef) P CREATE SOUND KILL n)' REM u CHAIN od MOTOR  POKE LLIST 9 EXEC OFF B REM VERIFY ;H#q RETURN  SKIPF DEF +r($f7) AUDIO ($f3)N4 EDIT 4 PRESET d) COLOR B(Gd PRESET '5 COPY POKE e LET .a PSET IF ($ec)($fe) RENUM \ LET +qqM FOR .. STEP YdGd BOOT E($fc) Z($f2)b($ef) LOAD d DSKINIT SAVE q_ TO u PCLS OFF -dv~) OFF E LOAD o READ ^9SA@^@>9 *g5 LINE Br CHAIN COLOR `Ax CLS PLAY 'c USING :+ END CHAIN READ RESTORE E6D" POKE STEP  RESET PSET AND p{@ LET VERIFY v PLAY CLS ( MOTOR  CLOSE CSAVE DATA DELETE o USING 9\* DRAW B;<+4 DATA 3($eb) EXEC DIR TROFF \($f7) DELETE  PSET r SKIPF PCLS [&` STEP [ CREATE CIRCLE CXXd>P CSAVE END RENAME SET RENUM i LET NOT ($f5) DATA <($ee)+`@X PSET VERIFY *j USING pB/ *B PMODE ;-X* CONT DELETE k MERGE 0qv@8 IF V TROFF 0fJs CREATE ^VpN0 CLOSE ($f2) EXEC + END LT DIM 8 GO PCOPY B LIST A} POKE SCREEN POKE r*a9 RENAME SOUND POKE R/kd FLREAD GO iq ELSE SWAP !B;? SCREEN FOR SREAD FOR (F POKE ( SKIPF  DATA ($ec) RESTORE PSET n^q@B;-Vxt(>;8CD FWRITE b DRAW # PAINT PWA PRESET 8 ELSE TROFF SET B REM READ EDIT  NEXT SWAP z END gv ELSE > PRINT PLAY CLS ENB DRAW RESTORE FDs PUT DATA X! STOP a. EXEC  RUN a SUB hm+V CSAVE e DEF p ($f6).JGd STEP ($fb) RETURN FREAD u COPY DIM OFF C PCLEAR HT MOTOR PCLEAR x RENAME ($f3)@ END  KILL \" VERIFY vy CHAIN PCLEAR C PLAY DELETE LET :($f8)B RESTORE ($f9) COLOR |v\i RESET  LINE FOR SCREEN STEP  TROFF  STOP DATA ($f1)@ END SWAP L COPY  FLREAD GO Y FLREAD ELSE vAsN0 CLOSE BEEP GO ($ea) RETURN P END <V LLIST USING E TRON Gk END LET AND +< READ * CONT FOR Vx( TAB( R^(1P FROM REM LLIST SCREEN * ERROR D72 SWAP qJ CLEAR REM ($fa)&;C>B SET ($f4) CLOSE Q REM CSAVE CLEAR  RESTORE RENUM ($e9)= SWAP IF ($f0) AND LET ='($f4) OR CLS S DSKINIT READ 9k DIM ' CLOSE REM ) DEF & REM  USING (r AND LET CHAIN  LLIST 4 NEXT COPY 0 RESTORE OR PCOPY R;k PRINT PRINT ELSE +( FROM DEF ?-!|gF FREAD  SREAD B;8&< COPY MOTOR M($fa) NOT Ys EDIT w DRAW i MOTOR * SWAP PROTECT CSAVE  THEN (PY($eb) Za(- ) RUN 5 CLOSE DRIVE CLOAD LOAD \P SOUND J REM r TRON B2# COLOR AUDIO " DRAW PRINT wb<5^e TROFF ($e8) BACKUP DIR (, FLREAD DEF >* BEEP  DEF  PCLS < DIM  WAIT STOP DIR *;+ BOOT FWRITE 6 EDIT @4 DEF HT LET AND :($f5) ELSE SWAP 7 USING OR CONT U ON ($ec)($f4) DRAW REM )P CLEAR BEEP 8 DELETE POKE  SUB H/ EXEC c0>9 AND ($ed) PRESET SET  RENAME BACKUP hVC," ELSE vr50 SCREEN C";n*/C(#+ SUB t READ GO *($f4)) IF SWRITE ";!($eb) PUT ' DIR : AUDIO !R;J CSAVE WxO PUT ($f0) LOAD PRINT =* OFF  RETURN  STOP qL($e8) KILL GET RETURN *($e9)8 AND B CONT ($e8)J NOT SWAP e SCREEN READ PSET PROTECT / CSAVE W";#o<^e TROFF  SET 0 USING OFF  BEEP *($fd)k' FREAD CLS w COPY 7 X PCLEAR Y ($f4) PRINT  DATA ($f8)H/ DSKINIT ! PLAY MERGE PCOPY RETURN  RETURN CSAVE ar;< CHAIN / DEF \PSjr PLAY MOTOR cA INPUT COLOR P COLOR T($ed) PRINT ($ed)<8S TO REM 2# PUT IF 0Xc COLOR >t6z EXEC  RETURN  PMODE  t EDIT u DRAW i MOTOR * FWRITE (Gd($ef) 5 AUTO RESTORE 9 ($e8)! TROFF FN ;(FB DLOAD OFF TO * SREAD GO T# PAINT ELSE d INPUT b FWRITE  DATA ($f4)4($eb) X TRON yR LINE X DATA G ON n DSKINIT (Oz RESTORE  2i5 OFF 7 SET SET ON >) CHAIN POKE -7g PUT '"r PCOPY <SC GET P WAIT PROTECT  RETURN DLOAD '2`($ec) POKE .) PROTECT CONT NEXT ($e9) RESET ($f0) CREATE DIM  STEP +Zw CHAIN }u($f5) BEEP KILL dQk LET DRAW ' SOUND SAVE  GO x WAIT 06($ec)) DIR RETURN SET AND Ar SWRITE / DATA P TROFF ?0 DEF `' CIRCLE T FLREAD G TRON PRESET < TO =# NEXT CSAVE B CIRCLE Ji9 POKE CREATE FOR S PCLEAR 7d FWRITE ` LIST GO *($f0) CSAVE CLEAR CLOAD PSET =L($f5) vFQV# GET CONT BB GO ` TO oQ RETURN  RESET 2 SCREEN ;d AND LET BACKUP M- GET ?( DELETE  SWAP q\Z<" SREAD ELSE  AND Z MOTOR Bw& OFF U STEP j CONT ($ef)(NA CLOSE OFF DLOAD  FWRITE 4 SWRITE /aY RENAME ($fb) M&iM- GET 9D COLOR OFF P CLOSE REM 7 PSET ON ($ed)!J6 DSKINIT ELSE ($ee)q@ STEP 0v AND LET CHAIN < RESTORE LET OR J DELETE  LOAD BEEP SUB ^ GO 5 TROFF  CONT R COLOR COLOR d+< { NOT DELETE LIST  FREAD PRINT DEF T" FROM 8 IF r($f0) SET  ERROR xe DEF d( FREAD ($ed)p READ AND ($ed) SCREEN 8($eb) RENAME ($f2)($ea)>[S" GO SET RESTORE OPEN END T] PCOPY LLIST ^/*(Gd DEF ( MOTOR c FROM < CLEAR PSET 9lX OFF ~ = COLOR NEW - END a FREAD u/ IF a4 PCLEAR  FOR SAVE \22 ELSE COPY STOP NEXT ($f3) AND LET BACKUP DATA 3 LET CIRCLE x+ DIM STEP 5152 ;$ STEP STEP ^P42 ELSE FROM DELETE o]z COPY N SREAD ($fa)W0kg DATA x= REM LINE ,($fb)R DELETE DIM ($f4)e PRESET pQ~ FROM my REM w DATA FRg OFF n`r0 IF V ERROR BiM($f9) CLS E FLREAD RESTORE PSET E8 CHAIN  LET SREAD GO i u EXEC SREAD IF *AN DSKINIT  MOTOR LOAD R LLIST VERIFY  RESTORE CLS DELETE  FLREAD < CIRCLE r2zL1 CHAIN p LINE m<57 IF pM+ TO P+!B;$ STEP ($ec) FOR CONT rs DATA 3 DELETE :N LOAD S2 ELSE LOAD _Lf SCREEN PUT ^`< CIRCLE ELSE ($f2) SCREEN  DRAW aq DEF ?P($f1) DATA < PROTECT DIR PRINT - REM TO "/= LLIST ,X FROM ($f0) SET  LOAD e' FLREAD ,a7 FROM PCOPY X OFF { RESTORE PCOPY SREAD REM @+' RUN - REM CLS DEF l^b^^P PCLS  NOT ($ee) NOT SAVE  CLOSE  POKE IF u PSET 1(M($f1) FWRITE B PAINT  END q'l OPEN SA CONT d)2 FLREAD *< LET KILL C7m NEW V POKE X+ SCREEN p PCLEAR 5 FROM 8b X0H PRESET GET (($ea)8+ BEEP CSAVE SREAD SAVE NEXT ' DELETE RESTORE OPEN ($ed)NR SCREEN  AUTO  FLREAD CSAVE 6 BACKUP C] ERROR PUT DIR RESET  CLOSE  TRON .Gg`5 PSET FOR ZS OFF F2($f7) 12858 h/ LOAD ELSE 5($e9) ($f4) DELETE RESTORE ^^ RENAME  SWAP DATA FN CSAVE RENAME  PSET ($f0) DSKINIT STEP SAVE Z PRINT CONT SAVE *8 ELSE _k/ CLOSE REM DRAW OFF EX($ee)2 EXEC +^ AND ($ee) DLOAD  EXEC , SUB iF[i *vEH($ec) FN ($f0)^ CSAVE < IF NEW 8($f7)($f0) LINE DEF  PRESET 4efM PAINT DRAW 9 PMODE # PAINT 7 FOR ?$^ RENUM O) RENAME DIM  PLAY F SREAD ($ed) COLOR Jx' REM FOR PCLEAR : RESTORE Y($fc) LIST Vx) FOR END NEXT DIR 8 SKIPF B+ REM 2 ELSE \vP DIM IF H($ec) DIM  PLAY F($f8)k CHAIN : RENAME KILL ySX=R* LIST T LET FWRITE mM<*E* CONT " SUB t SET S STEP H($ed) RESTORE TRON TAB( LV PAINT  ERROR CSAVE   FWRITE 'HG!L RENAME j REM DLOAD GO PCLEAR x DELETE  PSET G^/-" ELSE r PUT IF & STEP ($f1)'=&G USING /a($ef) CIRCLE 0k RUN =b.X REM TRx?27 STEP 8($e8)S ON W COLOR ($ee)Gd PCOPY RESTORE PSET S PLAY  PCOPY e SKIPF y($ea)v DRIVE AUTO (Es GO AND E($ec)I ELSE SOUND REM VERIFY ($fa) SAVE SCREEN STEP DEF )@($f5)) CLS Ek, SAVE <+!B; PLAY COLOR V CSAVE  GET END TY:+>)< NOT E STEP +G. IF  OPEN BOOT ,pq FREAD :=^! BACKUP v,V ELSE DIM  PLAY F VERIFY vv@ END  FWRITE ($f4)s SREAD RESTORE PSET nA\ LET DSKINIT < CONT Z FROM END RENAME GO  PSET IF ($ed)qNU SKIPF : CLS SCREEN STEP 9 TROFF [f CREATE PROTECT ~NP PCLS ($f1) MOTOR TO R DELETE CREATE CLOSE B TRON Gd AUTO  REM DLOAD NOT COPY SUB 3 GO PLAY P_ TROFF T./d AUDIO ($ec)U) CLOAD ($fb) COPY J DLOAD CLS 2&0' BEEP _($f0) DRIVE RUN / CONT L3 CIRCLE ($f3)L`! RESTORE CLS EN+Y  LLIST SCREEN *;'0\B DLOAD r# PAINT L SREAD EXEC ,) CLOSE 9 IF e^kN0NS' ELSE FLREAD ] REM }r($e8) PRESET J REM w SKIPF sy ELSE ($f3)@ END DRIVE m*($ec) READ N FLREAD FLREAD RETURN DELETE )9 REM  SWRITE CIRCLE N*2jW5($ef) FREAD LET = REM ?0\ RENAME j/ RESET  IF * USING 1 ERROR A DIM ON ($ed). IF 9 REM EB2! RETURN ($f1) CHAIN PCOPY R PAINT  AND LET >*= ELSE TAB( RETURN ' LET >`" REM MOTOR R TRON ) BEEP AZ LLIST USING pvN($fa)TY($fa)B4@X PSET ($f0)Z=2 FWRITE ( CSAVE V PROTECT ho REM  FWRITE ($fc)NS OFF F(AU CLOSE END  CONT B($ed)";$W DIM  DEF 4 TROFF *[e($ee)FaT FLREAD COLOR SWRITE 0X PROTECT ,i LOAD ($f7) LOAD W PSET  PMODE ($ee)2 PRESET CONT LET ($f6)Zu($eb)-yP READ CONT U PCOPY PRESET 4 PCOPY PROTECT " RENUM r PLAY PCLEAR x0W FOR CLS PUT REM 2 FROM 80Hn DIR EDIT 0 NEW zW RESET F ERROR Ax PROTECT PMODE  ERROR S OFF C& PRINT 2;K NEXT DATA ;H" MOTOR U# PAINT END x DATA ] SAVE REM RENAME SREAD AUTO KILL T (h BACKUP BEEP  RESTORE OPEN ($ee) GO  TRON =# PCOPY SKIPF J THEN X PRESET EE($f1) FLREAD TO `>Y+ REM REM line numbering breaks here! REM PCLEAR  AND LET >* CREATE VERIFY ($f1) ELSE BEEP  DIR SKIPF 3Q CLEAR p(($f0) COLOR K` ELSE d2iw'oJ($f3)I' PRINT U/  LIST d, EXEC vY RENAME SOUND DATA LIST {$"VT MOTOR TROFF /LF GET H LET Cz LOAD ZS OFF F/9 CONT  WAIT OPEN y RENAME ($f9) EDIT ]& CLOAD ELSE PZ DATA q DEF ^( e# PAINT END sY DATA CLOSE v.O($eb) CLS 3 RUN 5 OR CLEAR x) FOR END L LET AND COPY / SWRITE ";K EXEC MERGE CLS F DELETE e LET ($f0)LvB SCREEN J IF  REM GO PSET +ZC EXEC  PLAY AND LET OR  SWRITE  END SWRITE m OFF AUDIO DLOAD  TO Gq CONT ($e8) KILL ( OFF 7# DRAW /U RESTORE PAINT AUTO CONT AUTO X( CONT A{+/ *1 EXEC OR 6 CHAIN MOTOR RESTORE SUB PUT ) TRON FU~` EDIT - REM ` DIM EDIT REM DRIVE P COLOR H_2 ON \\($f1) FREAD PCLEAR PROTECT POKE IF wv!Z END z' FOR J/LvH TROFF  CONT W FLREAD MOTOR ( PCLEAR R *g GO TRON DELETE n. KILL (N SWRITE * WAIT jR7 SET  CHAIN KILL 3($f7)N! AND H$v AND d;-4e MOTOR REM REM RETURN KILL ]1 CLOSE ($e8)$.B DIM IF H($ec) DIM s^i CLS 4 DEF ( DIM SWRITE PAINT SWRITE AUDIO (FB SUB J CLS EXEC vY NEW 0^($f4) PCLEAR 5 STEP =t BACKUP  DEF TAB(Br&  COLOR THEN FOR oO! KILL \ ~C FROM EDIT 3 FB EXEC v\5^_hT RESTORE  TO ' FLREAD RESTORE PRESET ()/ RESTORE PSET P" PRESET !\6E($ec) POKE FC, LET OR X SCREEN CREATE e FLREAD G RESTORE AUDIO R READ PAINT w FREAD OR ' CHAIN e LET CIRCLE xrg ON E6 REM RESTORE SWAP v AND P FOR T($ec) DEF = GO jV IF U SKIPF SAVE DIM ON ($ed)!B($ee)!]@ RENAME SOUND CONT DSKINIT PCLEAR T ELSE ($e9)p AND " PRESET DIM ON ($ec)2 SKIPF  SREAD ' PRESET SET iDf' /` END CREATE P FOR T($ec) DEF < STEP j SWRITE TROFF c USING SWAP  LOAD T LET FWRITE END 2 RETURN ($eb)>(/hT MOTOR RETURN CLS ,P LET BACKUP USING ) COLOR B9 `($f3)H CHAIN CHAIN ($f0) RETURN C!N SKIPF m CSAVE G LET =ZY6G END CONT Ahj; SCREEN - OR WAIT hc<*) REM ($f1) DELETE  EXEC v~($f0) PCLEAR =s~3  NEXT FLREAD B;?$ PRESET d(Gd FLREAD F REM DIM T BEEP \u7^e TO @ZI ELSE AUDIO !R;&hN LLIST COPY jLa( DLOAD P WAIT CSAVE dL RENAME STEP RESTORE CLS DLOAD RENAME SREAD ($ec) GO Y  FWRITE ($f0) GO ($eb)L LET d CLS ($eb)^0>o9d7 DELETE ` SAVE READ a INPUT 30432 X($f6)($f0)' FOR AND P PROTECT STEP C PLAY F VERIFY vZ TRON READ NOT S` LINE <0I OFF PMODE FROM ZS PRESET /($f8)& PRINT  GO VERIFY | MOTOR 4 TRON TO CHAIN  RESTORE  DSKINIT @ LOAD W# PCOPY BEEP AUTO ($ed)CL8 9 CLS Ek!B;\Tv PLAY E) AUDIO TROFF D2g VERIFY ($f5)J/ydGi DIM * ELSE -(>Geg+Q~4 STEP ($f1) FWRITE NOT _d PSET VERIFY *(Gd($ef) y SCREEN BEEP ^ DEF E0r PRESET TY' REM  VERIFY  CONT = DEF e CLOSE p< TAB( COPY 07vHV(Z EXEC STEP H($ec) REM ($f8)'G0N($f4) PCLEAR =Y RENAME `($f8)($ec) PLAY F($f8)< OFF PAINT d END DRIVE X($e9)>]` DSKINIT # COLOR T#y RESTORE XK2 RESET 9 READ !/ READ LET CHAIN STEP ($ec) CONT ^ LLIST *NAmI PRINT > CLOSE VERIFY )P AND # PLAY CLS FN ' FN CONT BACKUP \* SOUND VERIFY vq DSKINIT + STEP !X CLS Ej SOUND ELSE v($f2)+P DRIVE CREATE 0 DRIVE p($ee) VERIFY a PCLEAR ( AND "($f5) EXEC t* PMODE kCR/C SET SOUND BEEP 8 IF u`A DSKINIT TO 0QzV:($f8)@ FREAD DIM / DELETE +^/ MOTOR OFF B LIST ~0 COLOR & NEW @ PCLS RETURN TRON 5($f3) PRINT 0 PCLEAR ON LOAD o PROTECT LIST FLREAD SOUND ($f3) END ERROR COLOR USING E($e9)Aghu/} GO Y($f9)< STEP ($e9)=j e' PCOPY ' PSET ^ PMODE DELETE REM ($f1) L_#= GO >s DATA 9 FLREAD Zf($f5) @a]z REM 0T MOTOR PLAY THEN P#h PCOPY  END a SCREEN CREATE AUDIO Hu#z COPY _zL5 FLREAD f($f0)< DEF FOR oM($f8)> CREATE CIRCLE ' SAVE ` RENUM f CSAVE Nf` PROTECT 9 KILL za> LIST RENAME 2 BEEP U CSAVE  PSET TRON ` LIST MOTOR EDIT p CLOSE LOAD 0 SCREEN B($fd)Py RETURN DLOAD q LOAD V COLOR ` PROTECT 9 KILL za RESTORE &4N PCLS J CLOAD C GO LET ($fa)f CLOSE REM PMODE  ERROR B REM KILL  CLEAR "($f3)Hq DEF ( CLS Ek!B DRAW a=` TRON ($f0) STEP N OR M SAVE  BACKUP DEF  PCLEAR t BEEP d($f9) CLS Ej SOUND AND Gd SET `"($f4) TROFF c PLAY =0` SCREEN ($f5),]' RESET L BACKUP ($e9)! USING k REM  END > CHAIN !g+ RESTORE COPY \ PROTECT  ELSE B EXEC ($fc)B TROFF H CONT  SKIPF - STEP & PUT e SOUND END V<B($f4) COPY PSET SAVE ` SAVE  VERIFY RESTORE +A($ea)9 KILL !@ END DRIVE B LLIST J CLS CLEAR PRESET 48($f0)# PAINT g SOUND POKE 37709 @.) PUT : PCOPY DELETE ($f0) DIM  CLS y Mx CHAIN SKIPF RENAME ) AND  CIRCLE \Z ON NA ERROR S'-n DLOAD  EXEC +Y -'5 REM e p TAB( SWRITE ) RENAME MOTOR  L2 PCOPY USING ! TAB(< FROM LOAD CIRCLE FLREAD CONT CHAIN TROFF '' RETURN REM r FLREAD s PRINT  PRESET HX!q ELSE ($f2)!b^ REM REM line numbering breaks here! REM AND T($ec) CONT 9q ELSE FLREAD PSET CSAVE N ' BEEP P CREATE CIRCLE ELSE VERIFY -/ 10699 gd ELSE ($e9) EDIT S FLREAD  DELETE REM GO Z= LET LIST OFF A,f 0($e8) RENAME *vJ FOR BY GO PAINT DIR ($fa)@d! PLAY G* READ AND ($ec)($f8)P VERIFY 7( DATA TO SET Jd- FN 0 CLEAR INPUT SA POKE @($f1) DEF .@7 SKIPF w RENAME RENAME POKE LLIST  LINE Gejw7($eb) EXEC LOAD EDIT 8T OPEN COLOR Aj NOT ($e8) READ N VERIFY 9($ee) LOAD  NEW ELSE  TRON { DATA VERIFY v TO ($f0) PLAY OR END DATA PUT CSAVE ($e9)80p LET FROM Cz#($f2) SUB K RETURN SA LIST *n(X($e9) CSAVE ($f8)4 4 CLOSE +v * FWRITE G|p PLAY MOTOR P($ee)2 BEEP W EXEC 7 LET Dv RESTORE \dM REM R PAINT  CHAIN MOTOR x LOAD dGmj($f0)/ LLIST A3 AUDIO 'H*;+ SREAD Q0 PLAY SKIPF 6 OFF 5'< CIRCLE S CONT 7F 2a5 SCREEN PRINT 3\J'5*($f8) NOT F RENAME (GK WAIT 8 CREATE VERIFY FROM ^ ON @ DRIVE CSAVE &0m*# DLOAD Nt< DIM 4 LINE  SET i EXEC #r;\_04#8Xr& STEP X TRON h b. RESTORE CLOSE TROFF XdSAL CLOSE RjG DATA SAVE { FROM  NOT BEEP BOOT END ) CLS IF SWAP ";?$'lP> FOR l LOAD o\ SKIPF / COLOR VA ERROR B ELSE vJU SET MOTOR 4(X2> PMODE  BEEP CHAIN POKE CSAVE PUT IF t CSAVE ` COLOR CLOSE CREATE LET =C NEW @ SCREEN SREAD SREAD IF RUN 4 MOTOR TAB($,  CLOSE IF k!Q(m  SAVE `JZ COLOR FROM PCOPY r MOTOR LOAD IF PLAY *yJ6 *;($ec)=*($fa)*Mj ELSE v PLAY ($ea)0:t'($f1) DATA BACKUP DIM " READ /DvpN4 EDIT 4 END  DELETE `l REM LLIST ($e9)^yE0} RESTORE " SUB VERIFY (AT<*Ge AUDIO ($f3)@i ($fa)($e8)!ZL DEF 2*r REM ($e8))Ly ELSE ] STOP  + PROTECT  -d(V'($f1) LOAD r* AUTO tS PAINT L R PAINT SREAD > LIST ' CHAIN D9 AND P_HNS OFF C&  RENAME ELSE - PCLS <1 SET  SET FROM END COPY >)0 VERIFY 8-- CLS o*p PCOPY C&,e RENAME CLOSE +Zhl CLOSE PUT OPEN d AND LET FWRITE V PAINT V CLOSE PCOPY + NOT CIRCLE ($f1) ELSE SWAP REM 5 MOTOR CLEAR /- PCLS  EXEC ($f1) ELSE FLREAD OPEN ,'5 12821 # PAINT FLREAD = EDIT ($ef)J^q\1 FREAD PRINT ;($f8) TROFF 8fF CLEAR SKIPF KO PUT ($f0) AND / REM REM line numbering breaks here! REM SAVE  AND ($ed)| LINE R;/" CLOSE SAVE ^ OFF SUB SAVE EXEC WAIT TROFF  BACKUP m($f6) IF D DATA LX CLS F COLOR SET SREAD DRAW #` LINE R GET ,r! BACKUP !Le< SAVE OR POKE END s) BACKUP !M9;$ i0 CLEAR `i'($f4)~($f0) RESET =t/P9h) CLS AND Dv{l BACKUP 8 DRIVE DATA IF DRIVE t($ee)Nn0 CLOSE EDIT REM CIRCLE P($ef) BEEP *+ PROTECT ! RETURN NEXT ` TROFF x SAVE  DIM PUT  EDIT DATA SUB / *H* DRAW OFF ($f9) GO PLAY $" CLOAD NOT CREATE *r DELETE '!Ar IF RhvF' HpzU EXEC  RETURN  DRAW ($ee) VERIFY v DSKINIT 8404 LLIST MERGE WAIT \JjP DRIVE 0 PCLS DATA SKIPF 2;\u DEF qZ NOT FREAD n STEP TO w ON ($ed) SUB  COLOR AND DEF FOR r STEP *M REM RENAME REM * DLOAD C SWRITE p POKE  USING !Y  PAINT Qym CHAIN p PSET TRON ! PLAY PLAY CLEAR REM ($ec) IF LET DLOAD GO PUT REM ( STEP \51 SKIPF d RETURN Bw DELETE '! FN * OR 4 TRON ^7 13482  OFF PLAY H>Q,($e8) IF j OFF ! CLEAR k2j REM FLREAD j PRINT ^AJ OFF w&+/1P($f7) LOAD LET DSKINIT SET  SWRITE HV2 DIM DELETE F VERIFY A ON HT CIRCLE NEW ]- ($f0)b MOTOR ($ee)# DLOAD  EXEC v NEW hNB AND ) DELETE kR SUB Xk=hL CIRCLE DRIVE COLOR < CIRCLE PLAY PLAY Br SREAD  SET CLOAD PRESET a; COLOR oi CSAVE gC(O ELSE ($f0) AND *h= EDIT IF ($f0)rv GO  SWAP IF KILL . SKIPF DIM ; MOTOR LOAD # RESTORE = RETURN FWRITE iXT LIST PUT ON n/ EXEC OFF ($fd) M}5T nZf SWRITE * 9R POKE DIR REM COLOR RESTORE ($eb) ELSE ($e8)~]| PCOPY DRIVE fB($fd)A: TROFF  RESTORE LET BACKUP j RETURN DLOAD < DLOAD REM END UH($ec) DLOAD NOT ($f2) NEXT NEW ON AND E` AND X REM s^4 IF b MOTOR  STEP &` PROTECT ; DSKINIT q AND LET BACKUP RESET  PRESET OFF 7 AUTO +q@ DEF P COPY TRON U(B CLOSE CLEAR 0 RETURN X VERIFY v*C FN *=-T\($f1) FS TO OFF PLAY eJ($f0) IF 9 ELSE LINE @7 OFF B PLAY $Bd RENAME +0 LINE X3 FT($e8) RESTORE TROFF  RESTORE OFF w LOAD Phb DIM MOTOR VX)c0 >s OFF Ge COPY CLOSE 6z 1b($fc) STOP  PSET & GO r PRESET  PROTECT ) DRIVE  DEF Ny ' AUDIO n/T DATA , LOAD IF NEXT hNx{1P($fe) PRINT COLOR x^-{ KILL qX FOR DELETE 4 ELSE ($f2) EXEC R STEP (q DEF J2 PSET IF H($ec) IF FQ AUTO BEEP SWRITE 0 WAIT  COLOR I STEP CLS { END FOR MERGE TRON r STEP H DIM NOT CLOAD TRON FUR;e<R MOTOR e> PMODE  LOAD T LET FWRITE IF PAINT  TRON ($f4) LIST ) CSAVE END w DELETE p4 STEP -*(Gd USING  IF $jBf CHAIN l RESTORE ! SOUND 0FS PLAY > PMODE SWRITE OK ELSE nGe# PAINT RENAME ($fa)bN SUB CJ($ee)C-0N ELSE d9 THEN }B CONT UY RENAME AUDIO AUTO >R;( FN < DSKINIT READ ) USING B2 PRESET ($f8) CHAIN  RUN ON LOAD T LET =2\ RENAME NOT PUT ($eb) DRIVE Z2($f2) MOTOR -iL CREATE e DELETE k EDIT ' DIM aWk/ DATA  END END RENAME LIST P END ($f5) CHAIN yO DIM T EDIT ELSE LET =0 ELSE B SUB DATA SREAD *+ REM K LET LIST COLOR VX+ DEF ^tm RETURN MOTOR GET ($f5)|=O) SAVE RESTORE TRON ELSE CSAVE ($f5)  COLOR PLAY SKIPF ` PSET 9`($f5)! ERROR SAVE  RETURN FWRITE )<!Z2T FOR Wd COPY DIM NEXT 7rs FREAD LINE (> THEN R *OF AND T_ SKIPF i0i`($fd) BEEP " ELSE vL 18912 lO/ END B CREATE TO T OFF ($f5) OFF TNk FOR (($f6)U REM 7($ee) DEF  PLAY | SET CLOSE REM TRON !!R;. OR  COPY RESTORE FUR;.** RUN 7 PSET ' H TRON CLS --Xr FREAD # SWRITE _1($ec)X($f6) STEP E NOT edi IF SWRITE ";&' READ *- WAIT G($ee) RETURN LOAD u TROFF DIM 9 REM PUT FOR ($f2) READ 3 AND # RETURN  EXEC W GO ($ee)M PRINT  REM REM line numbering breaks here! REM ($ec)Gm/S.a, RENAME ; CIRCLE f EDIT - REM PAINT s `($f4) AUTO X($ee)M DATA SWRITE zZ COLOR BACKUP PMODE - NEXT <,e DELETE kA DELETE ` AUDIO =CC,o BACKUP <7 LET ($f5)*ij+ CLEAR CHAIN LLIST ,X OFF ~s+| DEF 0U($f0)l($e9) RESET DEF PSET OFF RENUM ($e9)^ LET  RUN 5 ERROR POKE  DEF ^7($eb) CREATE LET BACKUP k FWRITE ($f3)L AND NOT EpNNvNj+' DSKINIT  EXEC +P+ NOT r# PUT END s LOAD CLS r DEF  WAIT g PLAY  TAB( OFF CIRCLE  CLEAR  PSET RhjR;( TAB(` SET  MOTOR PMODE RETURN c OFF B SAVE Zk SCREEN PCOPY IF T($ec) END CONT SWAP EfPV LOAD SL($f5) REM MOTOR !V PRESET 9mN($e8)X($ed)J/S THEN t MOTOR  RESTORE _B MOTOR V SREAD EXEC vY RETURN FOR DIM COLOR Q RESTORE ^2# PAINT ($e9)> SREAD LIST X MOTOR UvD" EXEC v=jh GET STEP LTW TO * DIM LLIST !`P CONT eW($ea) DIM SOUND ($f9) GO SWRITE ' SET ;H#qz FOR DRAW + REM [ g PLAY 2 ELSE VERIFY ) USING H($ec) SOUND ($fd)!`@ CLOSE +YO  MOTOR  SKIPF LET STEP !NjR;( PLAY H&($eb) DIR v GO FREAD LET =J*E DATA ($f9)+,U REM SWRITE *N CLEAR STEP }$ PLAY EDIT > LINE Ge(X>>xH CLS { DIM IF 9 TRON FUFZ($f2)N4 IF b CLOSE REM 2 LINE RETURN KILL !A]B($fd)ZC CSAVE DRIVE CONT <_ RUN  PRESET OFF 7^ CSAVE ELSE T LET >+ LOAD ELSE J($f3)x EXEC Hv0M TROFF = RESTORE W FOR CLS SUB STOP STEP # GET RESTORE COLOR W!|($f9)\=X PCLEAR R PSET ($f0)\($e9) AUDIO lS DELETE DIM DRAW Q POKE +H#!]9\P LET OR SKIPF A FWRITE 6^4 BEEP SREAD MOTOR ( AND o/ RENUM  DSKINIT ERROR LIST  TO AND + COLOR WAIT RETURN  RESTORE VGd` END iP}" TO t TRON PAINT ELSE V`" SOUND PLAY #?@SZ>a LINE / LOAD CREATE LET >/ REM  KILL ]8 EDIT  END u SKIPF 6 DELETE REM ZS1A|y TRON EH($ec) SOUND RENAME REM ($f9)($f2)QA) RENAME PLAY 9 FWRITE * REM PMODE  LOAD LET DSKINIT lv RESTORE F SWRITE ";#n DSKINIT  PRINT CLEAR z/ FN T DRIVE ($ec) CLS *Ge AUTO  5($ef)J($f3){i8]'";< BEEP >9! RESTORE EDIT R * END DATA REM ($f5) CONT ($f0) RETURN LOAD # RESTORE NEXT NEXT ,& MOTOR  CLOAD ( TAB( EE($ed)qAF GO L_F ERROR LIST D MOTOR Bjv DSKINIT DIM & BACKUP /a* AND Z DATA  IF FLREAD X?p SWRITE ! DSKINIT '($ed)0 CSAVE L ($fc) CHAIN J Ep *: LIST PCOPY d LINE L$; FLREAD DATA '"k END V RESTORE ^m NOT Pq DELETE |WJ REM 4 y `($f4)H!($e8) DSKINIT  MOTOR EDIT (O7` DATA CSAVE * SWRITE 0 CONT \(( STEP \ AND + COLOR THEN R SET STEP W,Ji CREATE CIRCLE 'A STEP  BACKUP DATA MOTOR & SKIPF r COPY 1P WAIT PCLEAR R- FOR KILL COLOR THEN SCREEN RESTORE OPEN DSKINIT  CONT T TRON r($e8)($e8)B DSKINIT -7mz+ SKIPF E OFF SKIPF A($fa) FOR K9Kjh!.Te PSET IF  VERIFY : FWRITE NOT ERROR S STEP OR CLS NOT SWAP U GO END PRINT ~ FOR FN ;:f($f1)@ LINE NEXT $($f0)C,W SET ! DELETE o8q SKIPF ` STEP ERROR < PRINT OFF LIST ($f1) COLOR \($ee)+ AND C( VERIFY 7.3 LET =Yq MOTOR ELSE REM 2` TO oXNEC@ IF PUT *qk ELSE n\f PAINT MOTOR ($f0) RENUM  SAVE DLOAD |<($f4) SCREEN SWRITE q[/E POKE a RETURN LET L AND Q *As'($f1)Q* SREAD CONT ( OFF jp ON E}t(O GO yi LLIST ($f0)M TRON oD CIRCLE REM g- MOTOR RETURN MOTOR PSET "  PLAY TROFF By SWAP STEP PAINT  8599 ELSE  TRON w SOUND EDIT  DATA ($f1)\ COLOR READ CLOSE $*C FN LIST REM  OFF r 3 RETURN @/Z iYru FOR DRAW ($f4) CLOSE ON ($ed)) FOR DIM IF FWRITE vA\ RENAME o DELETE |J0 LOAD e CLS TROFF AND IF PMODE  DLOAD TO ($f1) FREAD _ END A SKIPF m/Dv POKE P" ELSE p SWRITE 0 TAB( COLOR AND / DIM PRESET ";SAb SWRITE 0($ec)9P LOAD  DIM 1 FLREAD RETURN (C DLOAD DEF \V LLIST USING pI RETURN FOR END RENAME LIST AV.3e IF p] CONT SN\ CLS x'($f5) SKIPF Z($f0) SWRITE 0 SAVE IF OFF 9V VERIFY v PLAY DELETE X PSET 'y RENAME SOUND PRINT DRIVE LIST USING m!| RENAME EDIT  NOT ERROR SAVE  REM TO <($ed) LIST w RETURN ERROR ($f9) GO DRAW ($e9)q@ AUTO LIST 'h($f6)v($ed) BEEP ($f1) AUDIO CLEAR `m SREAD 9 AND ($ed)( PROTECT f1P($ee) DLOAD  SCREEN 2+ 5 SAVE R WAIT CSAVE LIST ($ec)7 LOAD LET DSKINIT  SCREEN !r ELSE ($f8) SWAP KILL OFF T? SAVE <8  LLIST DELETE *D+ + FN * 63631 V CLEAR `m NOT d2` LET A FN p> 65001 CLOSE  VERIFY vJD$T BEEP n- CLEAR  SKIPF ANP OPEN a SCREEN CqiO = CONT SAVE ON v TAB( ELSE ' STEP PCOPY ($f1)b MOTOR DELETE PRINT AND .2,a/a DLOAD PCOPY ($ec) AUDIO NOT LET MERGE TRON ~p RESET DEF ($f6)($e8))_ SUB ($fe) RENUM  PLAY SWAP POKE nX($ee)7b= ($f8) PUT  TRON {($f4) TROFF Y SWRITE z LOAD dGg VERIFY RESTORE * SCREEN  TO ($f0) PLAY TROFF RESTORE ($e8){+ DIM +q SAVE CIRCLE r WAIT TO 0 CLEAR Xq DEF ] NEXT CLS v SET  / SWRITE ";\h|M DEF v ELSE = NOT ; ON LOAD TRON | STEP SWAP < NEXT INPUT L OPEN DELETE  TROFF Q PLAY  FROM 0 READ AND ($ed)! POKE  CLOSE KL VERIFY 0` SAVE  DLOAD  PLAY P($fc)GzW 08+ SWRITE s-7+& PROTECT x\dGk CIRCLE P($f7)($e8) EDIT DATA T PCLEAR B CLOSE  TRON } DATA Ax PROTECT PAINT # PAINT N GO SREAD 0 MERGE EXEC G CONT PAINT  VERIFY Gl PRINT & LOAD n0 PRINT POKE ($f8))@($f1) c LOAD LET LOAD (~#rl$ CLEAR `m OFF + FOR G GO  PLAY SAVE "; PMODE  PCLS \#| NOT FWRITE D/ DSKINIT ! PLAY AND LET DSKINIT ` LOAD r*hO COLOR FROM J OR SKIPF SKIPF AXC LET A ON ($ed) RESTORE SKIPF C`8($f0)($f0)# PCOPY SREAD \f TRON } RENUM  CLOSE ($f0) RESTORE LET A^" SREAD S&+s PCOPY ($f4)=($fa)T LINE RESTORE DATA Q AND nGe DELETE d! OFF <r;#V POKE DEF U4 DEF LIST  FOR FROM BEEP 8O DLOAD 6 SKIPF pS* END DATA PRESET *hO COLOR AND / DSKINIT "($f0)' FOR v LET Cq RETURN  SET COLOR ON \r FREAD DLOAD ;| TROFF XW M($f1)' STEP ' GO  TAB(P DSKINIT CLS Bw LOAD LET DSKINIT < SCREEN + TO r SET  FWRITE I SCREEN  PLAY = EXEC 8<8ap>9 AND ($ec) DELETE DIR 'h($f6)v($ed)C($f3) NEXT  VERIFY DSKINIT * PLAY WAIT HO GO 6 TO *C($f1) STEP jw LOAD LET DSKINIT 5 OFF 7# IF ($f3) FOR COLOR V($f4) AND n*"T>* PRINT COLOR ($f0) PRESET GO fP` PROTECT LIST ($ed) REM ON \ NOT E' FOR RENUM D2 LET Cr;HJ PRINT NOT r($e8)' REM S PLAY Es& GO PAINT DRIVE 7 GO SREAD  DRAW STEP t TRON REM T2 SET !b*4 SREAD F YT# RETURN SREAD  PMODE SAVE !Q MOTOR TO C3 TO  TRON { CHAIN PLAY \#r;\T/  LIST  SAVE CONT r PRESET AND ($ec) AUDIO ON x KILL FOR ($ee)CB< PMODE b MOTOR ($ef)2l8Op RUN ($f6) AND ($ed) PLAY SKIPF &<@W9 CLEAR CLOAD TROFF IF SREAD CSAVE b. GO & TO  PLAY F VERIFY v> PRINT NEW @ LOAD OPEN CHAIN TAB( READ *I CLOSE S($eb)2 CHAIN p` RUN  MOTOR ($f9) END ,T>\2 +7`($ec)< PRINT FLREAD +Y 4320 2 TRON F VERIFY v RESTORE TRON READ OFF 9 AND ($ed) LIST  ELSE ' SREAD <($f4) LINE GET `m PLAY H/ SET ! NOT rm>($f1)&+/xo<$Ge PCOPY LIST ' LOAD OPEN PUT & SOUND DSKINIT  LOAD TRON yt END N CLOAD IF ` NOT CONT Y FOR REM V EXEC RENAME STEP SWRITE *C($f6) CREATE SCREEN '($f0)> PRINT SWRITE ($fb) SWAP ($f4) WAIT c SREAD 2 AND " MOTOR OFF yg LOAD .($f4) AUTO  RENUM  SREAD  SAVE POKE H OPEN ,VN MOTOR T;? PLAY b ERROR T8G FOR SKIPF ($ee)M- MERGE 'x($ee)9 KILL z SET - RETURN P($fb)($fd)j READ *($f9) DLOAD CLS b DSKINIT  LOAD CIRCLE BOOT PAINT ;eC RENAME 9t END *} DATA ELSE v^LT5($e9)-$ LINE P ELSE CJ($f6)h1P($fb)($fd)AqM8 CONT &($fe) RENUM n DLOAD  PCLEAR J($ee)2 AND T IF MOTOR U* v BEEP DIM ) CLS ($fb)O FREAD &$ ON p DEF TROFF CLS > PRINT 3 ($e8); BACKUP <V SKIPF OR PMODE ($ee)T4 k > PRINT - RENUM  DEF ($e8)2k ELSE nGe($f5) BEEP ($ec); PMODE  ELSE ($f8)O PCLEAR H8d*C($f1)!n RESET  GO SREAD ; CHAIN SUB COLOR PLAY d7# PAINT B DLOAD C DIM + PCOPY  COLOR v SET  PRINT FLREAD 9r# PCOPY B PCOPY ; ELSE o DEF ( DRAW OFF 9!+ KILL ELSE ($f0) DLOAD  SCREEN )I STEP END PRINT TO n2( STEP ' PUT x KILL DRAW  SWAP e BACKUP 0S GO SREAD 6($f0) SET SREAD DRAW k ELSE nGl PUT USING 9:SA($ed)7# PAINT i9B PMODE ` POKE ^ LOAD &* ON ($f0)($e8) LOAD LET = DEF ^7 SCREEN D9 VERIFY ; LOAD dGig SAVE <7* DLOAD 1P($f7)($e8) BEEP * SCREEN  DLOAD  SCREEN +b MOTOR FROM CLS TROFF  OFF 9Wq SAVE CIRCLE r DLOAD  PCLEAR DEF \W28n STEP ERROR <($ed) ERROR DATA FOR DLOAD ($f2) CLOSE ;G COLOR ($f0)# PMODE jn GO zV BEEP xT FOR {av AND PLAY <2 CHAIN CSAVE  DIM ($f0)S READ OFF 9V VERIFY v PLAY OR SCREEN  PROTECT x\ LET FWRITE P($f8) ($f3)k END NEXT ^+p READ *} SWRITE }!4+iML OR PMODE ELSE ($fb)O /V- FOR xa TAB(pi ($ef)<2x\ LET FWRITE P($f8) CSAVE SAVE  PCLS r SWRITE 0 AND ($ed)q_I` PLAY J ON H#";J LIST RESTORE MOTOR b DSKINIT  LOAD LET FWRITE P($f8) *O>7# PMODE RENAME SUB Jc*a^` GET BOOT REM 9 pM&! CONT nT> NEW @ SAVE <5 DELETE ;9 RESET CSAVE q SKIPF 9 CLS Ek REM u* REM HT($ec) CONT BOOT RESTORE S CSAVE @ FWRITE +Y NEXT & STEP  ELSE P GO N OR < NOT G 4 ERROR CSAVE PW CLOAD ($f2)@ END DRIVE P` PROTECT ; LET Dv PROTECT PRINT THEN @($ec)(/X RETURN STEP ' ELSE x VERIFY v SAVE C PROTECT LIST vB y<*/pC ERROR Ar PRESET TRtd;HR CSAVE SWAP '($f2) =` ELSE e' DRIVE ( EXEC RENAME NOT ($f8)'S SET C,2D CSAVE  FWRITE E STOP MOTOR  IF T PRESET GET n) PROTECT EXEC STEP ]}t POKE  DRAW ELSE PROTECT ) V TRON P LLIST SWAP REM LR DATA REM CSAVE V DEF d.+> PRINT 6r GO -*($fc) BEEP " DRAW / MOTOR MERGE ($f3) SKIPF `l FLREAD CLOSE j END cN+R SREAD GO Mg5 PSET REM 2# PUT DATA ($ed)C($ea)A8 MOTOR b  OR DEF Bh* BEEP RESET ; DSKINIT  POKE Li AND CLS LLIST SAVE 9 DELETE I AUTO  TROFF 7205 9T FOR o ELSE DEF TRON j POKE ?$ SKIPF a; COLOR dT>+ ELSE ($f7)& STEP BB DLOAD NOT COPY I GO SREAD 2/a}' SUB a9L LET AND  DRAW SAVE /ap READ AND ($ed) LIST  FOR PROTECT x\ NOT F($f4) PRESET *g SWRITE RETURN  PMODE MOTOR ($f6)($fa)i RENAME AUDIO > PRINT ^ ON x PMODE DEF ($f0)# PMODE CLOSE ($f0) RENAME (Q SKIPF r CIRCLE q DEF 8 CHAIN COLOR `($ed)v AND 8763 ( LIST ($fd)4 PUT 7 LET EC VERIFY DSKINIT  FROM [ NEW  DATA Gl TRON wX FREAD , ($e8) IF DIM ' CONT ($f0)Q MOTOR DATA SOUND V85+ ELSE REM TROFF < STEP ($f3),rRt CIRCLE !c(M( GET SKIPF NEXT Oqa=8h=> POKE & GO ($f8) RESTORE FLREAD SOUND ($fc) TRON cJ($ee) LOAD \a RUN ; NEXT PAINT  FWRITE &AU STEP 4dv FN ;Bs COLOR e8{ COPY } AND C-& ERROR T. AND y ($f5)l EDIT N($f7)#+`

CLOSE STEP O BEEP ($f1) FREAD * SREAD POKE .Z($fa)>4 BACKUP ON ($eb)' BACKUP 0z0Hu($f0)r FN \ MOTOR TRON ($f9)WXqHr FROM 0N! STEP -X CLS FN < DRIVE 4($ee)j LIST o($ef) y LOAD T LET =0 TO n2# PAINT ($f2) AUDIO d*/ ELSE AUDIO !~ PSET MOTOR Ug LOAD v.W\ OR l\ PSET ($f9) DELETE a VERIFY SOUND SWAP -+R= CLOAD s-3Nk DIM v PRINT V\ AND p~H+ DRAW ( STEP W CONT #* AND T LET AND *>`"($ec) Yd*/ CHAIN FOR CIRCLE SB;?~ EXEC ;$ CREATE " EXEC vQ NEW (b PRINT R STOP PRINT ! REM REM line numbering breaks here! REM X MOTOR O;& ELSE 9 TRON EH($ec) SOUND CLOAD TRON FU FN + REM J2` CONT d*GiP($f2)t EDIT DATA F7& STEP i[ END ($e9)P AND _ GO SREAD  ON I END  RENAME 2($f0) REM  CLOAD 6 DEF _iC DIM OFF AR DLOAD IF ( CSAVE L OPEN SA LOAD NOT E OFF + TRON EDIT 5 VERIFY MOTOR [ END RETURN FWRITE Ep| RENAME STEP x> LIST STEP ($e9)0C~@ DIM SWRITE ON ivFP END ($f5) ELSE FLREAD  SOUND ($ed) B CSAVE  AND PRINT 7($e8)X IF *($fb) DELETE :2 COPY 04K END q IF GO ($f1) FLREAD CLS DSKINIT  SKIPF P_0XH CREATE P LET  AND OPEN DATA T LLIST - REM rA MOTOR LOAD LET AUTO v EH($ec) CLOSE FLREAD `($fc) DLOAD L/ FWRITE -S STOP BACKUP 0A/ PUT  RENAME v CONT /CB/P SET D FREAD e<$C SET SWRITE  4570 B FN RENUM B DIM  PLAY ($eb)HsP END RETURN FWRITE E($f1) FREAD 9 TRON FU OFF L TAB("S($ea) STEP Qr GO PAINT z9 RESTORE `($f4) FLREAD MOTOR 0 END RETURN FWRITE ($f9)$ RENAME qNA# PAINT RUN $(+/ AND eC THEN yT+ LET DIM MOTOR  RETURN KILL !\ RENAME kN GO U VERIFY A ON -i($ee)Gm*{ OFF |($ef) FOR AND ELSE J* KILL  EXEC CLEAR  DELETE ;H#";'" THEN t SWRITE iU" MOTOR UH($ec) SOUND GO ($eb)J2 FWRITE B*Get- MOTOR ; BACKUP  SWRITE 0^ EXEC  THEN DELETE EC LIST + CLOSE COLOR DLOAD  SET GET STEP E RESTORE DEF FOR e' ELSE CREATE  CLEAR x+` DIM VERIFY !* LOAD d*Gg BACKUP END  LIST n*Gde DATA !v^i REM REM line numbering breaks here! REM THEN AUDIO ($f8)k'($f1) PRINT  LET BACKUP K CLEAR ; END A RESET POKE )b PUT DRAW a=` PCLEAR b^ PCOPY - PROTECT da TAB(a WAIT OFF T> ERROR <($ed) LIST -Xr FREAD *>* RUN PCOPY !($f2)mp($f2) COPY ^/5 SWRITE DATA CREATE DEF 8$P\ CIRCLE Y REM j CHAIN q SWAP I*h($fa)g-+ PSET ^3 q DATA < DSKINIT  COLOR NC TRON 8($eb) DSKINIT LINE L RUN DEF CLS ($ea)BF< LET  STEP FLREAD ($f9) RETURN STEP 'x($ee)9 KILL z BOOT DEF  CONT 8<R EXEC DSKINIT d!e($e9) SWRITE PLAY VERIFY Gm($e8)yR TRON ) SKIPF a< EDIT ELSE REM ($f1) PLAY THEN @ PSET DATA M SCREEN |B PAINT CLOSE 2fF($f9) IF x($e8)q}' NEW @]S IF b FLREAD Gk BACKUP y?B CIRCLE AND _s($eb) EXEC LOAD SOUND EXEC FREAD =' VERIFY q DRIVE PCLEAR 3`R($e8) J THEN # PAINT CONT A SREAD POKE # PAINT REM EhX TRON wr REM REM  STOP END $ FREAD .'y RENAME ($f3)@ END  FWRITE 0z NOT ERROR SREAD FOR x RESTORE ($f0) POKE ^x\P CIRCLE CHAIN p PROTECT DLOAD i RESET L\Ab SOUND ELSE v^ FOR CONT PSET COLOR vH($ee) RETURN LOAD #qB O0A .\ EXEC 1 h<' REM PCOPY LIST  END END  FWRITE ($fc)(z LET *C DLOAD  SCREEN / OR 2 SKIPF ] MOTOR X CLS U) ELSE ($f2)9` DLOAD >) SAVE CLEAR  VERIFY 2/ RESTORE WAIT jh! PCLS < ) CLS THEN c USING STEP  CLOSE CIRCLE DEF < RENAME " GO \ EXEC /N SUB SF RESTORE PLAY TAB(d) DRAW iB;\Ra CREATE PRINT g COPY POKE ($f7) SKIPF s($f2) OFF Q x IF L CIRCLE q DEF ,TP CIRCLE CONT & SOUND OR C VERIFY +Xgj BEEP COPY fG SCREEN C* CLEAR 0 SET DLOAD ($f1) ELSE ($f5)2*a; BACKUP ! USING E KILL b DATA TO LINE : DIR >o CLS ($ea),' PCLS Rt PCOPY >p($fc) TO !T# REM *=P^j ($e9) CHAIN > DATA TO _ ON E($ec) POKE FU RESTORE TROFF  DRAW ^a KILL C LET CIRCLE x FLREAD ($f1) STEP +P AUTO PRINT PCLEAR ^ PUT INPUT O!L DRAW GET FREAD +, RENAME o CLS V MOTOR F+ RESTORE jS 6) RENAME PLAY ? SCREEN IF Rz RENAME EXEC v\ RENAME Q DLOAD PLAY CLS  a PCLEAR 7 AUDIO CY REM ` VERIFY ($f3) FOR DELETE  CLOSE  CLS o DATA DLOAD TO , DIM IF H($ec) REM PLAY ($e8)+ USING STEP ($f3) MOTOR 3 CSAVE C DIM STEP X TRON hB;= ($f9)  REM 2# PAINT DIR \P' TROFF TO X PSET = DEF -d*(Gg ON L TRON kT) RENAME LIST COPY PCLEAR T STEP STEP ($ec) GO  PSET TROFF CLS ($ef)<$)0 CONT T LET AUTO A9  BACKUP USING BACKUP  CHAIN SCREEN NOT ($fa)q yr EXEC OFF Q DRIVE CLS RETURN P($e8)SAr;& REM ($fc) BEEP A FWRITE j SOUND OR PUT MOTOR  CLOAD  NEW 0J CHAIN CLOAD TO NOT STEP ($ec) FLREAD GO  CLOSE PROTECT MOTOR 9 SKIPF ; TAB( Ej ELSE vL($e9) AUDIO l($fd) AND VERIFY C SET SOUND ($fb)'B CIRCLE @ END DIR E($ed) PCLS <)0R0>((* DEF 9 RESET L($f5) COPY END ^ KILL 0W!se PSET NOT G^ FOR PRINT > LIST g( AUDIO SAVE PCLEAR x< BEEP LET AND : RENAME ($fc)B)JsJ ELSE 9 TO j BACKUP LET Dvy LIST PCOPY l IF * FREAD GET |"($fe) FU RESTORE TROFF  TO PLAY ($f9)E TO REM  BEEP VERIFY (* CHAIN # DLOAD P PROTECT )- AND  END l ON EXEC AND  EXEC a RESTORE ($ee)+Ly SCREEN `" CLOSE CLS i LOAD KILL 2 CHAIN RETURN ~ TRON  END  TO BEEP +! FN *= FOR MOTOR  SCREEN (( AUTO h \^ TRON Qd I RENAME READ GET PCOPY =-#) COPY RENUM <e REM DRIVE + PROTECT  READ KILL  DRAW SREAD ($f0)/` LIST ^h READ 3 FB EXEC vM1 ERROR SAVE \ PUT TRON n.S&'($ee)Gk RENAME DIM ($f4)8R COLOR z RESTORE uQqvJU($f4) PAINT 9 FWRITE pFX LET PLAY TO "/ DIM  !x EXEC @ FWRITE SKIPF DSKINIT I PCLEAR @ TO n2# PAINT L+ > DATA CLOAD ($f1) MOTOR SREAD @2 STEP ZS OFF U ELSE = OFF T> STEP -vNLT;($f4) SWAP REM U NEXT SCREEN \Bi CONT o<$*Ge CHAIN CSAVE g LOAD TO  SWRITE & FROM COLOR U TRON yBy RENUM S+# FLREAD GO  ERROR # PAINT AUTO  LLIST OFF + CLOSE  LIST STEP k*a WAIT CLS eJ AND / DIM ON ($ec) SOUND DSKINIT #' d READ /Dv^ ELSE FREAD =" 9'B NOT CLOAD FLREAD BC^@c* TRON ! TO w ON ($ed) TAB(UCC COLOR @ FWRITE Z RETURN STEP REM U EXEC CHAIN PCLS  AUDIO r;eC RENAME 9t7 SKIPF w DELETE REM PSET X STEP REM + DELETE i EDIT (X TRON @C( VERIFY 7# PAINT ELSE AUDIO ";HW06^D AND A ` EXEC v DRIVE DIM 2 LET Cr MOTOR FN DEF ELSE SOUND EXEC vV RESTORE FE- DELETE M DATA Ss DRAW ($e8){ READ ($fa) MOTOR  USING (Gg VERIFY FOR r AND LET =UI RENAME REM ($f5)A FLREAD F* BEEP RESET 0 SCREEN SUB ^ REM RETURN FWRITE 3 CHAIN mp READ * OFF DIM ON ($ed)q BACKUP & c SOUND PRESET " MOTOR WAIT CLS HP SWRITE (n2 PROTECT DLOAD ON ($ed)!Q <n2.3 ($f4) <R LINE  ON ] PAINT < PMODE  TRON FDvr GO SREAD k BACKUP - FOR ($f1) ($f0) OR EXEC DSKINIT  EXEC STEP f  DIM IF H($ed)& EDIT IF > PRINT NOT r($e8)80^2*, CONT ($ee)zc CLS RETURN FWRITE , POKE (] GO *= CLOSE CLS *C($ed) AND #"b= PSET 4 END RENAME CONT vI RENAME DATA / MOTOR SREAD AND ($f8)! DRAW GET NOT TB. DATA 8d STEP OFF ; LIST ($eb)+ DIM OFF ($ec)T9 SWRITE ";  PRINT ] PUT AUTO B= NOT  SOUND ]H# FN  ELSE k SWRITE RETURN P($f5)'- TROFF c*`($f6)5 TAB( a PCLEAR TO 1` LET S OFF EC DRIVE o($f0) TRON & Qp* MOTOR /av*Z G! DLOAD  PAINT MOTOR ($f0)` CONT eR DELETE ' CLEAR CONT  RETURN ERROR T< IF ($f6)'.!X0p SET  LIST -xt/ RESTORE ($f0) POKE S+!5*h; BACKUP bKl DSKINIT  WAIT SCREEN POKE SAVE <.Gk END fMp LET U LOAD nGk END A'x VERIFY Gm($e8)k($eb) CLS 8n LOAD *T BEEP e DELETE i BEEP +x!p LET U DLOAD  SCREEN 7 STEP FLREAD REM ($f4) BEEP B/=bv REM NEXT ($e9) CONT T LET OR ` CONT PJ DATA ($fd)($ed) SCREEN p CIRCLE ' FOR H RENUM CLEAR 0b MOTOR PRESET - CLS d SUB dGm SWAP ELSE IF + DIM 7 LET ECp GO > CSAVE VB DATA STEP  EXEC AUTO S& IF K NOT  OFF COLOR CLOAD xA END PRINT FREAD A ($f4) SREAD S/ 3144 ,. FWRITE ;($fa)($e8)($f8)A END PRINT NOT 2 DRAW a=b^|d;d POKE  K EXEC ($e9)ld DIR PRINT  PRINT l7`($ed)+ NOT LET MERGE TRON ~c KILL CLS y RUN TR COLOR CLOAD xA END PRINT PLAY p RUN  LOAD LET AND STEP ( FN LIST PZ ELSE o]M RENAME ERROR T MOTOR 9 TR DIR 'x FN p PCLEAR 72 STEP ($e9) CLOAD # DLOAD P($fc)a?i SAVE SREAD ; CHAIN SUB IF  ]BQ RESTORE TROFF  POKE @< CONT ($f1) AUDIO RESTORE LOAD LET AUTO ( , ELSE -*f \' PAINT BhB;( DRAW ($eb) IF *X TRON i SKIPF B SREAD ($fa)D/Xt /D- CLEAR  STEP '*W 7*/ T> OFF SOUND 7 GO COLOR LOAD # RESTORE LOAD LET LOAD ' DATA T> NEW @ SUB *(] *C($ec)2 /DvvM CONT _F xW k CLOSE IF  STEP x WAIT 06~88L CIRCLE l END PRINT RESTORE DLOAD DJ PRINT . GO < EXEC  TRON |. FOR MOTOR ( AND T LET BACKUP CLOAD CHAIN BEEP ` SUB +' CREATE CIRCLE FLREAD MOTOR P~ ELSE ;\Q|aV@8 PROTECT  LOAD  SAVE  READ DATA VERIFY v PLAY OR STOP SKIPF /f AUDIO RESTORE LOAD LET CHAIN VERIFY *C($ec);($f4) TROFF ]q TROFF rjTuk' DATA 5'($f1) AND TRON ij IF CLS STEP ERROR < DATA DATA $* RENAME V RESTORE FEC RESTORE PCLEAR @ TO r SET  FWRITE >^(0o^";oC($ec)9R PAINT  PROTECT DLOAD ON ($ed)!J+ INPUT L OPEN < RETURN FWRITE i CLS CLS GET ($f3)AzN *~P* LOAD LET LOAD ' REM PCOPY ;d@ PSET #M NOT n STEP TO ($f0) AND TRON hX+ DIM STEP D/ DIM ON ($ec) PSET B LLIST OFF 9TnGe8 GO SWRITE DATA ($ec) PRESET " VERIFY .!V PLAY TAB( STEP END PRINT TO d@2 STEP [F PRESET 0 PLAY G*($ee)7# PAINT ($e9) NEXT d\f BEEP ($f7)($e8) EXEC ERROR LIST +V DATA ;Jf=06B CLOSE REM 29\1iC DIM OFF A ERROR ($f4);($f4) /T SCREEN B DATA STEP " MOTOR SKIPF V NOT x SAVE POKE n*T PSET ;G COLOR ($f0)# PMODE j FLREAD G2l8L76($ec); COLOR p* DEF ($f6)($e8)($f1) SAVE <7 PRESET RETURN  PMODE ($f8)1b DRAW -2d CONT 8<.*C RESTORE E($f6) PRESET  PRINT  AUDIO r;eC SUB * CSAVE VA z\ COLOR * PCLEAR J($ee)*F IF DEF o SKIPF DRAW COPY vv PLAY k CHAIN  BEEP Z ^";v SET  BEEP LOAD 'NW FROM ]/ VERIFY v FN `m ERROR ($ec)7(!& PLAY PCLS  SWRITE ";^ PRINT PLAY DELETE !!I TROFF = DEF -pQJh(!( AND  LET AND BEEP CLOAD x BEEP SOUND DIM  READ SWAP ELSE REM SREAD EXEC v LIST (O!M+ END PUT EDIT DATA SUB PROTECT 5 EDIT + NEXT SAVE PCLEAR AUDIO I COLOR LIST 4 PRESET 4" PRINT `)I CLEAR 9Bo LET DIR MOTOR CLEAR /c CLS + DIM OFF SAVE CONT r RETURN KILL ! TAB(< )C ELSE ($f2)/q DEF e<2 PSET 3 FN a NEXT USING  DLOAD c TO ' ERROR xn7 END  FWRITE )m!AL IF |/ CSAVE rT CIRCLE PROTECT  SET C READ * AUTO >C@ PSET IF 6 GO COPY AZ OFF FWRITE ($ee)X($ee)/RQd SCREEN STEP  STEP * TROFF 0v FREAD + SET  DELETE e DIM IF *\C\A($f6) AUDIO S< CSAVE Wh0^7 ERROR ($f4)9R DLOAD ' RESTORE ($ef) CIRCLE rB MOTOR PROTECT  ($f0)M3 DRIVE / REM RETURN FWRITE USING DRAW  NEXT ($ed) / SREAD ($f3) Z SKIPF NEXT END  MERGE STOP  STEP  SOUND PSET X VERIFY ()'($e8) SET CSAVE ($f5)($ea) RESTORE F SWAP ON p OPEN r PRINT  CLOAD 63 COPY ($ec) STEP SWAP ;y BEEP ($f7) SET # PUT IF  DEF KI PCOPY VERIFY  FN  COPY +r;n)QAr2 PAINT ($ee)9 FWRITE tb MOTOR FROM BEEP x>aW FROM 0 CREATE LOAD )Tf PCOPY FREAD # GET ($f3) STEP <+! POKE a.($f0) TRON =W!v DRIVE DEF FOR NOT VERIFY Qs NOT J-($eb) RENAME :($f2)} OPEN ` TROFF BT;<($e9) CLOSE / LET l NEXT  IF ($e9)0 RESTORE THEN END DIR ($ec) SREAD DIM X($f3) DRIVE SCREEN NEXT H#";^ PRINT TO ' FREAD OPEN  COPY +q THEN @ LOAD r& OFF S OFF F2 SKIPF r'D RESTORE ($ef) CIRCLE r= u CHAIN o`r CIRCLE q DEF ;& DIM 8 CONT OR ON |ax AND LET = CLS REM G EXEC MOTOR `($f1)($eb) CREATE 1m OFF ; LIST E2' DIM { -P MOTOR /a CONT r< TO G!I AUTO LLIST ($f2) EDIT .A ($ef)-7($ee)Gm/T#nv SAVE DEF { PCLS N0b MOTOR FROM CHAIN  LOAD 8G FOR ($ee)Gi RENAME LIST AUTO P< EXEC  RETURN  CLEAR COLOR ; WAIT  ($f8)<8a*bP`V VERIFY 2 PRESET 4($e9)N($ef)/ ELSE V TRON  ($eb) NEW @ SAVE  DLOAD  POKE J ON e GET o|R READ OFF (; ELSE n\f PCLEAR DEF & BEEP PRESET 'x($ee)9 FWRITE CONT +! WAIT b FROM r8T CLS } COLOR LOAD 8G FOR ($ee)Gd CLOSE < REM ; DIR h! CONT r($e9)P RENAME )E LLIST +* SWAP / CLOSE t CLOSE  CREATE CSAVE ($f4) PCLS ) SREAD nv($f3) SET 0* PLAY d4 CLOSE $ NOT m NOT #r= x PRINT 1240 p DELETE REM DRAW READ RENAME m<> LIST ' DIM U PCOPY ]gM+ TO  TRON { ELSE w< PMODE  BEEP KILL LET Dv AND eXX8G DATA `m DLOAD  SCREEN ! PLAY MERGE REM CSAVE  SWRITE REM ($f4) VERIFY  PROTECT DLOAD  SWAP l PRINT , MOTOR m OFF 2>xK CONT  SAVE DATA ($ed)& LIST  ELSE + REM CLEAR dp`($f1) RUN b;x BEEP ($fb)R PLAY DELETE LIST ($e8) Td7 GO DRAW OFF 9 AND ($ed) LIST  FOR TO `G~ RENUM N VERIFY v PLAY PLAY @B($f1) PLAY DELETE |a^r EXEC H# CLEAR ($ee)C^hKL($f8) IF W PRESET `x($ec)B BOOT ($f6)< CLEAR BEEP COLOR o DEF +@($ed)0Ahq CLOAD  BACKUP DRIVE ) SKIPF P PRESET SKIPF Cx SUB TROFF [V DATA Q= SCREEN POKE ] DELETE " CSAVE  DATA Q AND TZ SAVE  RETURN FWRITE ($f6)HW: DIM ($e8) KILL B PSET  NOT LET =($e8) SKIPF  PMODE OFF T CHAIN TAB( ELSE w# PAINT VN($f0) REM TO Lr CLOSE ($f4) MOTOR ($f6)($f6)# PMODE l NOT FWRITE  RETURN STEP END PRINT PLAY /P* NEW ` TROFF 2 COLOR Z COLOR `($ec)Go RUN @ SUB rn STEP  LINE z MERGE PAINT  DELETE PRINT NEXT ?4`Ay NEW 0 TO n2# PAINT S0o END PRINT FREAD V6 SOUND PLAY By6 CLOSE ') RENAME DELETE COPY  OFF A FWRITE >!] OFF ; FLREAD  AND B7 ELSE ($ee) AND nGd DELETE DATA FWRITE r# GET DEF a8^ CLOSE B$ ON piap READ AND ($ec) LIST ON W LET S#($f0) AND V BEEP 2($f0)' FOR v END RESTORE nN SWAP NEXT ($f2) IF a` WAIT 06 TAB( INPUT ON ,D TRON p`($f3) SET FREAD ($ed) RESTORE Gq AND LET AND  CONT OFF *c3 PCLS DATA LT; DATA Q> TAB( READ AND ($ec) DRAW N SAVE CONT r< SCREEN Gl TRON i8bG, NOT KILL ! DLOAD  SKIPF IF OFF 7# DRAW *B^-* A PRINT  IF SWAP TO dLT>+!CJ COPY LIST **C($f3)' CREATE ($f0) NEW @ DLOAD  POKE F PRINT  IF USING EXEC  READ *($fd)t ELSE = TROFF w STEP H";e EXEC BBLT7 TRON Z LET SAVE  AND ($ec) TO CLS U CLEAR READ 3 GO G RESTORE b OR N CSAVE rk ELSE nGl TRON |. GO qq'($f5) DATA ,T? RETURN LOAD REM ; RENAME GO NEXT \#r MOTOR SCREEN |f ERROR Dp`($ed)v($ed)CS MOTOR ($f0)5 OFF 9Wq DLOAD  SCREEN +V'-e BEEP CIRCLE ( GO PAINT FLREAD S IF e EXEC RENAME *C^P` PROTECT 9 FWRITE ) INPUT A' ELSE w* BACKUP F END PRINT FREAD e BEEP 2 READ AND ($ec) EDIT -8 i' PAINT C PCLEAR U CLOSE EDIT REM SET ! RESTORE OR PCLEAR <X2($eb) EXEC ($fb)O ($f9)T SWRITE !* FROM ; STEP 'r MOTOR LOAD # LIST w RETURN FWRITE O AND TRON } PRINT ~ GO ERROR xe+-- GET ( VERIFY  LOAD r# PAINT NEW 8G FOR ($ee)Gn? SAVE BEEP 7 SKIPF { LET *>X PCOPY B RENUM dM+/($f0)2 R/ T= OFF 9az($f0) SCREEN  READ FREAD FOR r STEP ZA FWRITE ZD ERROR T SOUND  DIM LET 9 PCLS !R;! STEP END DATA MOTOR ) RENAME PCOPY R;I ON ($f8) NEW  ELSE TRON yBy RENUM  CHAIN PCLEAR J SREAD  READ STEP ($f4) LLIST REM Dv DSKINIT BEEP GO q PSET Vp8 SUB _ SET `" DEF y< TROFF SCREEN . AUTO S O FLREAD RESTORE COLOR EZA ERROR ( REM w SKIPF y IF SV. CREATE PSET CLS STEP DIM IF *G TRON e= SWAP IF +!}3l MOTOR R SAVE DATA ($ec)T< REM 9 CIRCLE ON U($ec)  PSET IF ($ed) TRON =P\P KILL ^ SUB u GET SWRITE ^` PCLS ($f5)+l BACKUP ` DIM EDIT REM CREATE & DEF > CREATE BEEP A FLREAD | RENAME SOUND PSET X FROM BACKUP LET n. CREATE ($ee)iZ3($f7) SKIPF # TROFF  CONT u SET ($f1) SCREEN CLOAD NEXT REM E:($e9)7 CSAVE B PAINT   STEP ($f9)lGqvB DRAW AUTO r END /+9Bs+v INPUT COLOR r- DELETE E ON ] PAINT SET `>9 AND ($ed) LIST @+ RETURN  CONT TRON kMM SAVE 8 AUDIO  AUDIO !R;J PRINT RESTORE PLAY = RESET DEF ` SWAP  PRESET P LET >;&kJszUE FWRITE ($f4)miE& CSAVE PV0 STEP ($ea) CLOSE BsOxg*9 FOR r TROFF COPY END g POKE (r CLOSE U' STOP w DATA  OFF  LET TO GO " DEF ?) IF u PSET 4 GO PAINT P CSAVE LIST  COLOR z6 FREAD 8 OFF h ($f8)j/  IF STEP " REM FROM DEF 0U- REM SCREEN ERROR GET OFF NOT LIST NEXT '($ec) VERIFY vqv MOTOR  DRAW COPY DIM OFF Q CLEAR STEP  IF d2e# PAINT CHAIN DATA PLAY #(Ez($e9)< EDIT REM RETURN KILL ) RENAME GET -`{&=/ DEF )($e8) BACKUP T SET  CIRCLE DSKINIT CLS PQ CLS S DSKINIT TAB( OFF STEP W INPUT O STEP OFF jGd PCLS CSAVE q2cd PRESET d) DRIVE  CSAVE Z COLOR ON o FREAD !V TROFF NhGd FROM 3e DELETE LIST J LIST PCOPY dhX.UT! CSAVE ($f7)# PAINT 4'< LET =N FLREAD DRAW  DIM TROFF  GO SCREEN LIST 4($ef) ^!R8 DELETE \C_JN CLEAR +_ 43193  TO PCLS PSET 8 FN ;g($ea)> RESTORE \eQR;(=8 RENAME ($f6)KeU# PAINT 2P FROM DRIVE xHV PRINT p NEXT RETURN PSET , R;/" VERIFY /<4 REM END CIRCLE c CONT ' OFF xd7 LOAD o SAVE *A PLAY VERIFY Gg>o AND +Y DATA X( PLAY CIRCLE cxNx> CLEAR FWRITE SCREEN 7 STEP ($fb) EDIT c USING jQ COLOR VB ELSE v PLAY EXEC CREATE " EXEC vCAV TROFF  DRAW EB+ DSKINIT I FROM <($e9) SKIPF PCOPY d USING x CHAIN MOTOR UJxH($ec) GET GO /@# TO ($f0) RETURN se($ef)J AUTO + REM T DIM W READ GO ($ec) REM SWAP LET CHAIN  PLAY END OFF NOT MOTOR V SWRITE !R;d+ CLOSE 9 IF W($ef) TROFF q SWRITE 0 TO R` AUTO J TRON CLS THEN VP DIM LINE EXEC vQ^($f4) EXEC ^sP END RETURN FWRITE E0s FLREAD MOTOR [ END ($ed)M LET >/ OR 9T LET AND / BEEP jkY END ($f7) DATA   FWRITE ($fc)<&# PUT COLOR DRIVE CLEAR BEEP s| OFF 0 SCREEN ` SOUND ($f4) CSAVE rP END RETURN FWRITE ($f9)'2^ CSAVE L SREAD CONT BOOT IF 9eU# PCOPY B REM PLAY 8 NEXT ($e9)m CSAVE SREAD READ GET ($f4) PSET IF E($fb) CSAVE ELSE T LET >(!( TROFF O  NEW G]8 TO l SCREEN d COLOR EH($ed)!d DEF  CLS PCLS R MOTOR PLAY DLOAD E($f3)N!L OFF 2 PRESET *H($ec) REM PSET X($f3)s FLREAD COLOR PSET r TO ($f0) DLOAD FOR DIM LINE AUDIO SCREEN r;<($f0)s PRESET ($fb) OFF s($f2) CHAIN B DIR ON <5 SREAD ($fc)B.T BEEP ^dz SREAD ($fb) REM REM line numbering breaks here! REM END `($fc) BEEP " ELSE vI RETURN FWRITE  FWRITE ` REM LLIST ($e9)^z* STEP ^Py MOTOR  CONT Y FWRITE ^ SUB BkY PCOPY zh ERROR ($f3) READ 3A DRIVE x'!u STEP s TO CHAIN  END V LINE 2d0AL s SREAD CLOSE Bs AND S TO REM PCLEAR 3| AND 9 COPY NEW T STEP ($f9) E($ec) POKE # PAINT 6 DATA DELETE ($fc)aW-^ OR FOR P WAIT OPEN AUTO CLOSE DRAW EXEC C AUTO S COPY =yE FLREAD  ON X+ DIM OFF ($ec)^q AND LET KILL BEEP ($fb)T PCLEAR  RETURN 1 46471  CLOAD 6 0 CLEAR *C AND \\ LET ERROR RUN 4 STEP FWRITE 8 RETURN CLS Ej ELSE vNP4+V^e AUTO  FROM 3N RENUM N($f3) STEP ($f0)($f2)($e9)J+ RESET NEW xW LINE ELSE Tu USING B PMODE # PCOPY B SOUND READ TROFF [fs DIM OFF ($f1) RETURN  TO COLOR  NEXT RETURN FWRITE ($eb) TROFF  DRAW FLREAD  AUTO  TROFF +2/($f0) SET ($f3) OFF SWRITE & SOUND PUT CLEAR ` STEP T,n! CLEAR H FOR ($ea) l STEP FLREAD  IF  VERIFY  ELSE MOTOR &,Rp' DRAW i=l>($ed) PRESET REM PCLS < NOT E FLREAD * ERROR DIR SAVE LET NOT ($f1) SCREEN CLOAD LOAD \"($f3)B AND Y)- AUTO  SWAP p END i DSKINIT PCLS CSAVE TZ($f3) OFF FLREAD (Gk END ($f2) ERROR DATA  OK=H($ec).) DRAW 9L CLOAD ON ($ec)($ed) PAINT GO WAIT TO * 2;K<T($e8)Ge($f5) CHAIN + FOR TRON ($ed)dv^($f0) PSET eJ FLREAD PLAY ?xzj RETURN I DELETE `m RESTORE DLOAD TY' REM  LLIST RESTORE +# PLAY TS8w IF b($f8) TRON GmY SAVE /aqp4 LINE END RENAME VERIFY v RESTORE SUB ^^ FOR REM CIRCLE PRESET 9yq SREAD VERIFY vq CREATE ($eb) PRESET DEF  t CLOSE AND TO CIRCLE - LINE X($ee)L@= COLOR LOAD ^`b^/ DSKINIT ` LLIST  SREAD ($f4)@ END END  FWRITE 'L`*C DRIVE p* AUDIO 8b* LET P CLOSE ($f0)r VERIFY !x LOAD dGeb^ZL CLEAR ,a9` SWAP L= MOTOR >+! PLAY * PMODE ($f8)Dv CLEAR 8 z NEXT @pV,u CHAIN  SKIPF _02/ AND IF DATA SREAD ERROR ($f8)p($f2) LET CIRCLE Q|8 MOTOR CLOSE ($f5) PUT * RENAME RETURN AN($f0)` LINE RESTORE ' RETURN FWRITE ($f0) CREATE PLAY <~ SKIPF DIM  TRON r DELETE Gg PAINT Sd# PAINT BEEP ($ee))J AND MOTOR = AND [ PRINT FOR o<7 ($f6).H:($e9) DIM 8< REM ($f1) RETURN  PCLEAR C PROTECT  LOAD eJ VERIFY (($f7) IF c!($f2) k=j@ POKE += PCLEAR Xb ZA ERROR ($fd)y SAVE DLOAD FOR DIM DATA ZB{ BACKUP DEF 280@ FWRITE z REM REM line numbering breaks here! REM SREAD  NOT FROM DIM 1*h= EDIT DATA ZPo REM RESTORE $ FN 6($f3) STEP -' BACKUP @ REM ]> BEEP CLOAD 4*P2($f5) GET ($f1)0U OFF / COLOR B.t GET ($f2) CLOSE CLOSE S` CLOSE ($f5)! DRIVE RUN ON T CIRCLE r MERGE ON s POKE kP CIRCLE SA PROTECT x END 0($eb) PRINT &R GO VERIFY >E PSET i LOAD BOOT NEXT m GET ( VERIFY KILL .>@+ DATA DELETE ,yZ DATA PRESET COLOR W= PROTECT ($e9)80oCP END LIST i_.`($f1) DRIVE PROTECT S DRIVE iX0o SWAP DATA SWRITE RETURN P LOAD DIM  WAIT RESTORE ELSE AUDIO !qb/ VERIFY FREAD -3 TAB(* PRINT PCLEAR wR;-iL CREATE u ON Ug REM END j AUDIO (EH($ed)*@ AND e BEEP 2 SKIPF o VERIFY STEP qZ OFF @#"^(O ELSE ($f0) AND CLS { PCOPY ($ea)X STEP END PRINT CLEAR  RETURN ERROR T/ INPUT R DIR DATA \ PCOPY =`< IF PCLS IF SREAD `p< CIRCLE  GO SREAD  PCOPY ELSE ($e9)j+? PROTECT [^x ($ec) AUTO 0o2^ FREAD s= Z COLOR FROM PCOPY < NEXT  CLOSE ($f0) RENAME 9 ($f9)mJ FOR RESTORE FROM 80\v DELETE <($f2)h1b($f6) GO SREAD  CSAVE ($f3) STEP  TRON `($f9) GO DRAW SAVE < PCLS IF *($f9)ml ON +!~ RESTORE ` TO n2* TROFF T POKE m PCLEAR W# CREATE RESET id/b SREAD S& OFF S< LET ^q AND LET KILL BEEP ($fb) BOOT LLIST GO sB PCLS ($f8)C ON 6 KILL NOT ($fb) TO LOAD u OPEN STEP NOT LOAD GO 9\dC*wb/ DSKINIT 7 PLAY ($eb)Ltb MOTOR DLOAD ERROR F FROM C~@ CIRCLE ] ($f1) PCOPY S+Q($ef) COLOR T']1( STEP 'x VERIFY T7 ON ,TP LET AUTO C^ GO s SKIPF pv MOTOR P($f5)($e8) VERIFY : RENAME  IF ]3($f2) BACKUP XbP`>.p` TO dGk BEEP ($f7)- DLOAD A' ELSE w* LET :N # DLOAD P($f5) SWRITE FLREAD PRINT AUTO Y GO PAINT V+j/9V COLOR  LOAD # DLOAD  TO g DATA ($f9) GO PAINT  RESTORE COLOR Fi DATA Qp END -" POKE CLOAD  KILL ELSE w< STOP TROFF SAVE SAVE 0=06 DLOAD  CLOSE CLOAD REM DLOAD ^p($f0) MOTOR CLS g(1b($f4) INPUT n2< PLAY SAVE ";$ SREAD  RESTORE EHsASLv CHAIN CLS ($f5) DATA !x LOAD dGd MOTOR D+ PLAY Gr WAIT N SAVE  OFF STOP LLIST - ELSE DIM CIRCLE DSKINIT  @ SREAD ($f5) ELSE SWRITE qK AUDIO #-2  COLOR TAB(HT LET AND M CLS DELETE  LIST PCLS i0e RETURN KILL * DEF !& TO ($f0)qT FOR o REM LIST FWRITE " EXEC v DSKINIT 8kJ RENAME ($ec)T; OFF { RESTORE SWAP STEP COLOR PROTECT x\u FROM  KILL  CHAIN PMODE  ERROR "($f8)($f1) LOAD r# PAINT CIRCLE c CONT '<3 OFF i FOR DATA pr TRON HT CIRCLE ELSE ($f7) SET ! USING SWAP C06Ja TO n ($eb) RESTORE LOAD dGif LOAD B($f4) TROFF i CSAVE w LOAD #r;=@E FREAD REM 2 PSET IF LS# PCOPY RENUM N  END u LET ($f5) FN  MOTOR ($f9) COLOR SWRITE 0 CONT d*Gg* CONT " EXEC v\ NOT FWRITE ($f3) AND LET CHAIN DEF F] SAVE PJi]q DATA | EXEC  CLEAR `l CLOSE PRINT I STEP GO [Bd-9R DIR PRINT - NEXT  ERROR w TROFF DRAW OFF 7# PMODE SAVE | NOT FWRITE p DIM  DLOAD l AND " LIST /a CONT ^p($e8) CLS IF SWRITE q RETURN  SKIPF SKIPF A($e9)L($f9)@Gp RUN J ELSE IF 46 ($ee) LOAD V COLOR COLOR o($f3)m^";v SET ZC PAINT  VERIFY Gl GET d BEEP X"($fa)g-+ RESTORE FU GO SREAD ($f8)c2/ LIST 9J# KILL b($f0);r VERIFY GgVA ERROR Y GO PMODE ^ CONT CHAIN TAB( ELSE w# PCOPY SREAD RETURN L= PUT 3# PUT IF :<o< DEF CREATE DIM  BEEP AUTO CSAVE ($f0)P:h)Q /($f9) GO PUT ON ($ec)' AND + CSAVE 6 STEP 2 ELSE ($ef)\=($ee) MOTOR < PMODE  FROM B6 AND \_J+ DIM OFF G ON (J2# PCOPY S STEP h($fd) AND CP AUTO @)' DRIVE NOT * LET ($f0) CLOSE ($f0)R NEW FOR e PCLS RESTORE SCREEN CHAIN # PCOPY T=z NOT FWRITE NOT 8< POKE END W TO 8/($f3) PRINT @ TO o DEF H LET AUTO p TRON =&L CLS ,TP LET OR P RESTORE TROFF  DRAW h VERIFY (v DEF e DEF 8UB*Ge FROM R RENAME ; RETURN KILL /x( PCLS @ RUN p RUN ($f6) AND ($ed) FN `m FLREAD / DRAW a; BACKUP LET DvZ& REM (|v RENAME X($f8) OFF s+ FOR DLOAD b< IF H($ec) LIST O 6- GET / SREAD PLAY =3 SWRITE END CHAIN t CIRCLE o REM iXX COLOR #S-2 LET ] SAVE ELSE CLOAD y A SCREEN  FN x($ed) RESTORE EyT 4 PCLEAR ON MOTOR SKIPF 9` CSAVE \#r;& LOAD DIM /t<+ SWRITE RETURN P LOAD ($f1)(0o END DATA ($f5)! DSKINIT CLS N CLOSE SCREEN  AND ($ec) PRINT L($ee)r PRINT  IF ($f0)@ END SA TO ($f0)J COPY 06 SAVE RESTORE PUT DIM LET DSKINIT < TAB(B} DATA SREAD ' Q AND T TRON yr DELETE / DATA FN g,T$>\ MOTOR EXEC STEP SCREEN :($ec) IF a4 GO END ($e8): CLEAR ( DIR  CHAIN MOTOR x PUT + DATA Cr/($ed)<! CLOAD c RESTORE PROTECT POKE SKIPF NEXT Mk CLOAD FREAD  CIRCLE J+; SWAP ,n2 FROM GET <91b CONT PCOPY FOR FLREAD  PCOPY TROFF ?- CLS x.B SWRITE READ 9B{ CONT ) PLAY AUDIO t LLIST - REM <.. BEEP FROM PAINT l-3 POKE \R CLOAD ELSE NEXT NOT 7 LET SWRITE PRESET 1 FWRITE a7($f4)+Q) BEEP PROTECT CLOAD ($f9)z($e9)3 CSAVE POKE a/1P($ee)TnGe DEF FX( MOTOR CLEAR d FREAD # SOUND EXEC v LIST !ZV FROM PLAY T CLS y DEF 9D IF CLS m ERROR x$ RENAME STEP XMK READ ` STEP  NEXT L($fb) HV SET INPUT OR se AUDIO  PAINT ($f2) AND LET AND BEEP SWRITE 0= STEP :B`x DATA ($ed) NOT V DEF OFF y0yV/  *b DRAW RESTORE MOTOR  POKE J DATA MOTOR NEXT (EJa# PUT TRON kJ TRON ($eb)j#jX PLAY ?=s# iX SUB FOR ($e9) CLS PLAY MOTOR P DSKINIT CLS ;2 IF SWAP <5 PCLS NOT SREAD PSET READ ,o BACKUP  COPY 7 SUB & DATA  BEEP w SET UF RENAME ($ed) WAIT b DEF k EXEC I REM EC~L MOTOR # PUT TRON j>C DIM #R CLOSE STEP ' LIST ($f4) LINE AUTO CLOSE POKE CONT " ELSE AUDIO PLAY AND T LET CHAIN ($ee) OR ^Y GO GET ($ec)e($ef) DIM ON ($ed)!zU EXEC  RETURN  EXEC /Zw} REM PRINT NOT u FLREAD Y CHAIN C PRESET *X($eb) OR + ELSE ($f2) SET XR($fe)r MOTOR OFF NOT LIST &y NOT SAVE zh0 CLOSE REM ($f1) PLAY AND LET BACKUP Rg+_] MOTOR TRON + TROFF NEXT REM !qV(Oy SAVE PLAY EDIT DELETE PSET ($f0) SWRITE 2 PMODE ($f0) AND ($ed) FN `m FLREAD ( STEP !p VERIFY J NEXT ($ec) ,r, SAVE /a& AUDIO RESTORE LOAD LET FWRITE P PROTECT DATA P7 PSET  STEP CONT r< SCREEN Gg CHAIN  a VERIFY BEEP DSKINIT  STEP ($f6) MOTOR  DRAW CLOSE 'y RENAME EXEC FREAD k PUT  POKE p LINE ELSE & SOUND FROM END OFF w SET B FWRITE END S RETURN @ LOAD = EXEC ($e9)l POKE SKIPF COLOR A CREATE TROFF :[($f5) BEEP ']" : SAVE LLIST 'K0 SET Xyi DIM ' PRINT & BEEP _hT IF STOP MOTOR PRESET FOR = LET GET SKIPF NEXT NOT 2 LET U+S COPY  DRAW FROM COLOR fC CSAVE P> CSAVE COLOR Z CONT / LET DRAW FOR CONT + CLOSE  RETURN EXEC SWAP EDIT CONT " PMODE ($f0)' FOR G! DIR ',_h CLS ($f5) EDIT - NEXT . RESTORE |t'Q DLOAD P CREATE  SREAD # GET BACKUP H0e RETURN KILL *= CLS 9 FREAD &X OFF } ON s AND s MERGE PLAY ^ ($fc) TROFF X0o END PRINT THEN @ RETURN 08 LIST  SREAD SUB Ps@ END m ON E($ed)qI RENAME REM PUT ;#/]'<WHO"b SAVE DATA S OFF ($ec)Td PUT SAVE  TRON  EXEC RENAME ,Gn COPY STEP 3 SKIPF BZ FWRITE 0^4 LET ` PUT 0V FREAD LET = WAIT ` TRON jX PAINT ELSE ^ x DATA Q AND nGi5> TO ($f0)y EXEC h+ TO o\ DATA SWRITE ";') IF *^ RESTORE V # DLOAD  TO g PRINT  TO i PRINT Z RESTORE u/ STEP r MOTOR ($f0) 12835 PCOPY ($f3) OFF B POKE Y GO SREAD |2m SWAP REM DIM END LIST NM";^ PRINT TO 8<8O PUT ($f0) LOAD R TO CSAVE SREAD REM 2 RETURN t SWAP '($ed) COLOR e DATA VERIFY v@($f5) BEEP * VERIFY !( AUDIO C INPUT L OPEN <$ CREATE SCREEN  READ SWAP ELSE GET e# GET AUTO  LLIST OFF 7# DRAW *s' COLOR DELETE RETURN / SWRITE ";( LIST q THEN @ PROTECT xn`"($f4) BACKUP = CIRCLE ' CLOSE R SKIPF  TRON f> BEEP RESTORE H TRON i DELETE # GET ($e9)>P`J INPUT P($f7)q DEF (J2C BOOT MOTOR /a TO dGk BEEP ($f7) ($ee)7($e8) DIM TROFF \ IF ($f3) FROM 8W,$]H# NOT r STEP ZEC LOAD ^ PLAY RESTORE DATA Q AND nGde TROFF  SKIPF C AND Tu ERROR  EH($ec) CSAVE \#r SWRITE 0 AND ($ed) OFF xeC= CLS p SET .$ DSKINIT  LOAD LET FWRITE P($f8) SWAP NOT oJ READ *' STEP ' ELSE w# GET CHAIN PRESET (1P($fb) ON ($ec)($fa)g* TRON ($f1) GO ^R COLOR $|$ BACKUP 0X TRON MOTOR  CLOSE YB2f AND LET CHAIN  RETURN P($f7)!m/($fd)y SAVE DLOAD FOR END 5J  PUT MOTOR /as^ OPEN y SAVE v*a RESTORE G) SAVE ";J LIST GO PCOPY ($ec) INPUT  SREAD  SAVE POKE I'* LOAD LET FWRITE P($f8)B PLAY p($f4) COPY STEP & GET  AND LET AND q CONT 8<$ RETURN 6 LIST  OFF SOUND @J RESTORE ! OFF <r;d* ($f8) BACKUP f LOAD !?($fc)g PRINT f* AND ($f0)($f6) PCLEAR ON ($f0)# PMODE V RETURN JxH\ CLS STEP ";^ PRINT *W PSET  TRON j DIM IF SWAP ; ELSE nGk END CLOSE  TRON } PRINT *W. FOR IF DIM 8<. STEP "l EDIT DATA F)H IF SWRITE q RETURN  CONT CSAVE ($f0)b MOTOR LOAD # LIST F VERIFY v PLAY PRESET `*C($ec)9R PLAY H/ DSKINIT ! PLAY AND LET >C THEN @ PROTECT xn/Cl END  RENAME STEP RESTORE SKIPF ZA CREATE dGi J2# PUT DEF #r MOTOR ($f0) CHAIN PLAY +i80. LIST IF 48 LOAD #r;=@F SAVE  DATA FROM /a RETURN KILL *($fc)[< CIRCLE ($f3) NEW @ RENAME `# DLOAD FOR READ SWAP IF ($fb)+ CONT FROM R'h FN POKE  MOTOR MOTOR FREAD $Gd PRESET CLS STEP RETURN P($f5)($f5) BEEP ELSE DEF 7 SET  DEF ($ea) BACKUP g ($f9)R COLOR 0 DELETE ' SUB p AND 2/ 33330 .3 DLOAD ERROR B SOUND T=/($fd)y SAVE *UYt'DvJ LIST + RESTORE SCREEN dp` RENAME Gn CREATE 59By ELSE  TRON yO#* SCREEN T5 PCOPY ELSE ;p SKIPF yA'x VERIFY Gg EXEC CHAIN PSET ($f5) REM SREAD DSKINIT  LOAD LET FWRITE P($ef)J($ee)7iZ CLEAR :NX POKE EC[Bp* NEXT  DEF Z\ SAVE RhNZVS h< V LIST INPUT *S+^ FROM I STEP ' PUT { MOTOR ($f9) END DIM FOR / LIST STEP X+P TROFF Bk CHAIN  GO SREAD  PRINT ELSE `($ec) IF C PLAY =AV*h)E PSET END  PLAY AUTO CHAIN ` PRESET DELETE h) EXEC &($fa)M ON Xk END SFr;8($eb)mv TRON  NOT M TROFF M(Gd CHAIN MOTOR qsFP DIM IF NEW ` IF X" GET STEP ($ea) GO U2u PRINT SOUND Z GO QZ COPY C END  LLIST STOP x&t6C($e8)A MERGE ;+ END ` GET GO * KILL e($eb) EXEC ($f2) SET  PSET NOT EG^` RETURN J DLOAD WY SWRITE Cy EXEC 1*h2 STEP REM REM line numbering breaks here! REM BEEP PLAY <($ec) CONT ($eb) DIR te($ee) REM SREAD DRAW )*Y TRON IF DSKINIT RETURN FWRITE [` PSET REM 2s END CONT > SUB r&+1P($f8)S+# AND s\ STEP g DELETE ') SAVE TROFF TO  CIRCLE TO 'r($ee)/ INPUT eY ($f5) CHAIN i REM RETURN FWRITE { CHAIN TO PROTECT 0;Q STEP ($fa) OFF CLS ($f6)As MOTOR  POKE h CREATE J THEN FOR I NEXT  SAVE 9 SAVE ,5 PCLS + TO 0|AE STEP ; ELSE FLREAD ($fd)A CIRCLE FREAD "($f6) AUDIO RETURN FWRITE ($f3)@ END DRIVE B OPEN @ SREAD PUT BEEP CqB;$ RENAME q AND PU REM L!X SUB i MERGE - 22233 REM . KILL o LLIST  EXEC , EXEC v CREATE q,f PUT CLOSE  TRON b EDIT  SWRITE PLAY VERIFY Gn COPY +z LET rk NEXT ($ec)T;+ DIM OFF SAVE  RETURN ERROR SREAD ($ec) CLOSE a RUN 4 RESTORE FDv LOAD d+UB INPUT SACY SAVE 5! AUTO ($ec)2b FN < READ 0pH EDIT ]& REM ($fb)d CONT RENAME q FN  DELETE r DEF  AND \ PRESET CLS ^7 AUTO )G`9 FWRITE j DEF > ELSE FREAD 4t- FLREAD >^ EXEC q PSET NOT EEps' NEXT )@($f5)($e9)M+(q DEF o ELSE REM 7 PSET ON ($ed)v ^" VERIFY :($f7)4 MOTOR  DRAW +_ 24152 SWRITE FROM ^ AND !6 STEP ($ea) GO ($eb) EXEC ($ef)< LET OR 0>x PRESET 3q) POKE ` IF - DELETE M ELSE DELETE >Ged FREAD +~!# DRAW OFF 7 DRAW 9_ PLAY  PCOPY k RENAME REM CSAVE T/<n2# PCOPY TO ^ SKIPF 0M!\5-($f9)<_C DIM CLS STEP "l5 NEXT IF a; RESTORE SWAP TAB(e RENAME 0\ TRON oJ STEP ^P~3 fG END RENAME ($f1)N0^ CSAVE P LET DSKINIT  LLIST Z DEF ($f3) CLEAR LLIST z PLAY G8 USING  PAINT # DRAW ** KILL R CIRCLE TRON EH($ec) FLREAD ERROR < CIRCLE &  COPY A FN ` SET RUN 4 FOR PCLS " DRAW RESTORE MOTOR  STOP LLIST FROM CLOSE C} NEXT NEW z LIST 4 STEP KILL \ SAVE 0 RESTORE DLOAD \ OPEN wg<_J($ea)x REM *E($ec)($f1)@ PSET IF <& SWRITE PRESET a7< PCLEAR * ON LOAD #r;9 CLS W DELETE My SAVE & STEP ($ea) END FB SOUND CONT \ SAVE c,WAM& REM ($f1) EXEC  FREAD DELETE & OFF ($fe) TO w PCLEAR ~ FOR my RENAME IF  DELETE LIST PLAY ($ea)"($ed) CLS VDvB($e9) VERIFY 2 X(z PUT &($f8)($ec) EXEC vpH CLS DLOAD Ei SWAP  7790 STEP W BEEP u CHAIN ) AND PRINT < DEF CIRCLE A DSKINIT CLS UB*C PCOPY S+^($ee) DSKINIT - MOTOR VERIFY P PLAY TROFF  CONT _06q}+ OR NEXT CLS (J2 FREAD ! RETURN DATA C{k8Z CLS DEF d/-* AUTO 8f 0 DLOAD Bi^A` PCLEAR KT( MOTOR FWRITE 9 COPY !y CLS ,V LINE * AND @*v PLAY PCLEAR $ STEP ($f3)H COPY 4 MOTOR  RESTORE U LINE \ PMODE  STEP FREAD + DIM ON ($ed)!M NEW  PSET 57 IF DELETE 5!l DATA M ELSE TO g REM END !x LOAD dP SET ($f3) OFF SAVE [ LLIST RESET  SET ( RESTORE MOTOR  SCREEN (+L STEP STEP " POKE STEP R PCLS REM ON += REM PAINT SWRITE HV2 AND LET KILL DIM DELETE Gi |\ LINE F MERGE ON ($ed) FREAD d2b FROM PLAY DLOAD Bi RUN <v RESTORE F($f5) PLAY AND LET AND NOT ($fc) PROTECT p8 DLOAD CLS EvAq DRIVE LIST LET DRAW pHW; END q ELSE FLREAD PUT 'K>2($f4)Z NOT SWRITE PRINT =*t PAINT cXc<+ FREAD R) DRIVE x& CREATE BEEP CqI LIST PCOPY d AUTO  CLS i>p-7ie EDIT p LINE DRIVE CONT ($ea) REM SKIPF F PSET 9'x0UiH> TO ($f2)# GET FLREAD RESTORE \ NOT FWRITE  TROFF < NOT E* NEW READ *k PUT +<5a7 FWRITE 8 COPY TO BEEP +, RENAME w RESTORE =# PAINT s) USING 3 MOTOR FREAD *)JsNT8 EDIT r($ea) ' INPUT P COPY J IF SREAD ($ec) GO ,t($eb) CREATE PSI+V|v~ RENUM NS STEP <\] REM *, ELSE v PLAY ($eb) BEEP u($f4)x0J*GiP($f2)t SKIPF E AND ($ec) READ ' PCOPY LIST NEXT ($e9) AND u($f0)($f0)I ELSE AUDIO FROM ($ef)J*G>p~)^^ NEXT FWRITE s'($ee)T5 EXEC STEP STOP STEP # PAINT r EXEC +!J NOT KILL ) RENAME REM TAB(hu($eb)*9MB*Gd PCLS ($f3)@QL>4 OFF  LOAD ' REM *O-4em PCLS N SAVE T# DRAW ($e8) CLOAD + DIM STEP AUTO !QKsP DIM LINE EXEC vC LOAD _ STOP {+i AND #* LOAD T LET BACKUP PX TRON MOTOR  CLOSE v^0^ CLOSE PUT RESET ^N MOTOR  KILL CR;,> KILL 2 PCOPY CLOSE ApNn OR -" PUT '&0 LINE u! FWRITE iFM REM B PRESET ' END RENAME DATA 9 476 #r;J PMODE  LOAD LET LOAD ' IF ($f0) RESTORE PAINT COPY STOP i0 DATA CHAIN  AND LET AND -,($fd)) SKIPF n DLOAD  PLAY *($fb) EXEC NOT E($fd) : ELSE  INPUT 0 EDIT zU RESET jx SKIPF DELETE Gm* STEP 1 STEP ($ec) REM DIM CLS , EXEC vQ| AND ($ed)qQ FWRITE ^e FROM F\ TAB(($fa) E INPUT L OPEN LJ OFF z CLEAR < CREATE #* LOAD " EXEC vQp LINE KILL f RESTORE = BACKUP PSET SAVE CSAVE 30957 "; RETURN CLEAR `#*c USING ($f9)'((FU PLAY TROFF  RESTORE ^ PSET COLOR b MOTOR ($ef) CLS TRON E FWRITE 1 FWRITE  LET BACKUP COPY CLS WZA CONT #* TROFF  CONT _t CLOSE # DLOAD P COPY CSAVE ELSE T LET >./d COLOR E($e9) PRESET CLS NOT TAB("*Ge CLOAD [f TAB(/) NOT READ E{ STEP REM TROFF U SWRITE HV<H($ec) AUDIO - TROFF MERGE { OFF | OFF TROFF SAVE '($f2)M TROFF CLS REM r SCREEN /X, BEEP  POKE  REM LET x REM e qSQgv' s DATA B' WAIT C-/ ON W LET Dv AND R LINE R PAINT ($ee)9 FWRITE B*Gg($ee) DEF ($ed) PAINT V PAINT  AND LET CHAIN FROM F RESTORE =# PAINT  SAVE t~` SWAP d FLREAD PLAY =* ON ! STEP PMODE ( STEP REM SAVE #' LOAD ' READ 9 DRIVE EXEC \vP END RETURN FWRITE +p NEXT COLOR ,P LET >, DIM  PLAY F VERIFY vD DSKINIT  PRINT  REM w DATA ^/ LET STEP W TRON DLOAD  CLOSE y< WAIT TO 0 FREAD ~Y($f9)RA| BEEP " ELSE vAL5 SWRITE SCREEN 0 CSAVE BACKUP ' BEEP T#!R;( ELSE u DIM B RENUM ' NEXT PUT & IF  BEEP d PRESET SET AND B SET '($ed)J OPEN SAVE TROFF q DEF H^hqe($eb)8 EDIT A RESTORE " DRAW LIST '!B;4d  MOTOR `Z PCLS R RUN USING &\ STEP iPAR;V PRINT a\ TO 0y CLEAR 3 i8U@R LLIST VERIFY  SUB r PCOPY CHAIN #> CHAIN i OR 0 DSKINIT 06 CREATE SREAD RESTORE 6@ LINE L0AM FWRITE a=im:($f5) LOAD ^hM MOTOR X RENAME ELSE vQ ERROR ($f3) OFF FLREAD )> PUT EDIT Td IF GO 8 OFF s AND V RESTORE PSET V SKIPF V PAINT ($eb) BACKUP !M END s AND V POKE END  FWRITE &*V FWRITE IF i RUN 0 PSET TRON CLOAD NOT BEEP ($e8) STEP RESTORE EDIT (FM PAINT CREATE READ STOP COLOR - RESTORE iPVY TROFF I EDIT p IF V LIST SWAP PCLEAR ' VERIFY  STEP v DRIVE PCLEAR  IF H($ec) PRINT  STEP E($f8) OFF 2V($f0)Y($f1)L RENAME rZ !+0>+J INPUT b CLOSE MOTOR V NEW qJ($e8)f RENAME (0)= RENUM FOR ^f# DRAW USING v ELSE i PROTECT T PCLS ($f6)($f6)# PAINT LIST PCOPY eiBs RESTORE VU OFF B DIM  CSAVE ($ed)M- GET -'($e8) FN t TRON 'xT DRIVE LIST NEXT ($f5)k ELSE o SKIPF A($ed) FOR FOR CIRCLE Z RESTORE COLOR V NEW ]' DLOAD FOR DIM DEF LET AND Ge($e8)< FOR FDvJ+I FOR WAIT CSAVE Re DIR RESTORE ^t TROFF FN i SREAD S& STEP g"1P($f2) AUTO ($ec)@9a REM REM line numbering breaks here! REM PROTECT 2 SET CHAIN * SWRITE ~ GO ! POKE nGd PRESET e< TROFF 3 FWRITE 0 SWRITE 0 WAIT ;$ NOT E(0 DLOAD CLS DELETE POKE IF OFF FROM READ /($ec)^";oC($ec).e DIM  TRON n0 FLREAD ; END R READ PAINT wW!v@M NEW fGe TROFF [f SAVE <8 PCLEAR rm RESTORE RENUM CLEAR 0b MOTOR ($f9) READ OFF 2 STEP DK:+iC+l KILL BACKUP  PSET @G  BEEP CSAVE CSAVE ($f0)S'($f3) OFF AqLL CREATE _ TO + ELSE nGk LET SOUND (S RETURN x] REM PAINT  AND LET DSKINIT ` LOAD d:($e9)m CLOAD FLREAD GO B;$($f0)L($e9) AUDIO ls END STEP END PRINT NOT T#* LOAD LET DSKINIT # PAINT < LET =\ CLEAR yl LET B($f5)A\iPZf ($eb) EXEC * NOT  POKE l TAB(k PROTECT h DSKINIT BOOT OFF /i COPY CLS > CREATE DEF \WC NEXT ($fa)> RENAME SAVE _* STEP ($f1) FOR AND  TRON yB{ COLOR G GO P($f2)($e8)+ SKIPF C( VERIFY /b DEF &`m CONT *S+ DATA  CIRCLE P($f2) VERIFY )C IF b LIST GO SREAD  READ FWRITE >j> FREAD >` CIRCLE Z TRON PCLEAR zW CSAVE  FWRITE USING 1X REM ELSE IF v! +z($ee)9R LINE C DIM  FOR TRON EDIT 5 AND Yg REM DEF  TRON AUDIO 7 ELSE SWAP ' COLOR T SAVE ; POKE ($f8)e RENAME " LIST ,J ($fa)$TWI GO PAINT [f|"($fe) ^P PRINT 5! FWRITE E($f1) SWAP 0 TO n/ SREAD @ PUT IF c*0W FOR > DELETE RETURN \ NOT DRIVE CLOAD LOAD ShV POKE ON W FOR MOTOR  STOP t ELSE W AUTO ! MOTOR SKIPF PU SKIPF  INPUT  RETURN PCOPY # FLREAD ($ec)) PROTECT \W` ($ee)) USING <U PLAY AND T LET AUTO V FWRITE SCREEN  LOAD n.x($ed), RENAME w@b*<" PLAY ? SCREEN FOR x RESTORE X] PAINT  FROM <q EXEC REM 7 ERROR B OPEN /T CREATE  SAVE  SET CLOSE @j`" SUB RENAME STEP T0 CSAVE BOOT FWRITE :($e9)4` END RETURN FWRITE ; CHAIN TO WAIT H TROFF @($f5)(q DEF T_ FOR '4b MOTOR FROM VERIFY /a!p END e0 DLOAD r SET  WAIT ($f6).\<B($f6)'l CHAIN  AND # RETURN  TAB(O u CHAIN { BACKUP ( TO FLREAD SOUND PLAY 9 FREAD h FOR CLOSE DSKINIT j#n/ AUDIO c`($fd))2lM($fc)<& DIM ON ($ed) PRESET od AUTO  REM ($f3),e< LET CHAIN  USING USING CLEAR  MB*A\ PRINT | NOT VERIFY v RESTORE ($f2) -\Yx POKE  ELSE T LET >+' PCOPY >Ge STEP ($fb) CSAVE ELSE T LET FWRITE O($f0) STEP ($fc)O]- AND OPEN O&^ RENUM O) SAVE RETURN FOR END LIST f; BACKUP  STEP ($f3) FROM ' NEXT V ^";oC($ec): RENAME SAVE _&($f2) COPY  ELSE CLS ($fc) BEEP 4 FROM PSET l ELSE BEEP " CONT ) CLS ($eb)bb($e8) ($e8)($ed)P SCREEN FN FROM PSET ($f1) SCREEN CLOAD THEN R CLOSE ($ee) DLOAD  PCLEAR DEF \^i/($f3) AND LET AND Qd0L280dGgf SWAP /a( TROFF  CLOSE (.V' DRAW 7* END PRINT CONT ' NOT PRINT >+z SAVE RESTORE G";d/ DATA `m ($f6)! BACKUP USING TAB(O OFF ELSE vAp PSET 'q LIST p{BhX CONT CqM=' THEN 4 STEP <' DIM IF +!d+Z THEN  SCREEN Gg  DELETE 'p PRESET SWAP '<" CONT ;\WKm RESTORE E AUTO  IF *v PLAY G! DLOAD  PLAY PCOPY LIST  SKIPF ^ EXEC Jw RESTORE FB DEF 8 TAB(l PLAY F VERIFY v FN t TRON n-!d. GO y RENAME ($f8)j RETURN I OFF NOT REM FROM /` LLIST i\ CHAIN s ELSE @P($ec) CONT 7 SWRITE EXEC l GO ) RENAME DELETE 2 PAINT `($ed) DATA PRESET COLOR W:T DELETE M'($e9)PR($ee)* LET FN L>- x TO +0~3# PAINT ` SAVE X RETURN '($f5)g DEF -Tu NEXT + READ 4g($eb)< NOT CHAIN SCREEN Be LET PCOPY pA{P LET OR 0r;< AND STEP *($fb) CREATE DEF *: RESTORE 1 15388 BEEP " DRAW RESTORE EDIT ]& ELSE vAv@ END CREATE u OPEN STEP 1b*6 ELSE S CONT -AF REM CONT S BEEP FOR W CSAVE @ ERROR ($f3) OFF ($f5) OFF SREAD CLOSE g-* GO  MOTOR PRESET HX+.*N= DELETE k CHAIN  OR C CONT , FROM DIM ON ($ec) SUB *Z DATA  NEXT CHAIN CLS SREAD ($ec)($fd) e READ ^;($f8)Dv LIST 3 ($eb) RESET i L[ DIM IF H($ec) CONT OPEN REM q**1 DELETE < COPY DEF  LINE RETURN FWRITE ($f3)'($e8) ERROR CLOSE B PCLEAR dI NOT SREAD EXEC v LIST 9N USING ** STEP \ IF ;+i'p DSKINIT POKE REM E AND ($ec) SWRITE PRESET a` CONT d/*!`@ END L ON  REM 7 SCREEN C" DATA Cs PUT IF ($ed)m i0Ja0r EXEC `"($f3) GO / SAVE ,_06 PLAY DLOAD IF U EXEC AND C PAINT PCOPY LIST  TRON 4 CLOAD hyR DIM EXEC ($e9) CLS DELETE 47` PCLS SAVE TRON FN 4<) CLS CLS FN AND ($fc) STEP EXEC /2 PCOPY USING RESTORE SUB &F OR *Gk BACKUP  END DIR Y($ed)qL TRON iR*hF NOT ,G AND ($e9) DEF ($f8)?zW DEF ($ea) NOT CLOSE NOT 9S LIST  RESTORE S TO 0 PLAY FN STEP YdGm/B($f4) SCREEN RENUM c COLOR J EXEC  END BOOT SWRITE ' FREAD ) MOTOR  USING &l GET q(($f8) SUB ^($fc)($f0) DSKINIT  STEP SWAP DATA FN REM REM line numbering breaks here! REM CLOSE h RETURN I< TRON (< DLOAD  TO REM N4($f4)@ END  FWRITE v. PRESET TRON =B. ($fe)]J STEP W MOTOR PSET PROTECT F($f1)# DRAW ^\ PROTECT e< POKE SKIPF COLOR qF MOTOR DATA DELETE ($f1) IF s LINE @ GO Y REM Bt CIRCLE FROM REM V LLIST OFF VERIFY - NOT rb WAIT TO *C($f6)+ ELSE o<.9l\ EXEC STEP CONT r RETURN KILL * SUB + PLAY TROFF b PUT l CLS FROM <T IF  CIRCLE DLOAD \S EXEC  MOTOR 4hN FROM END h/LJ ($f5)d 3810 GET DIM INPUT COLOR I ELSE RENUM CHAIN | FROM CLOSE y SAVE p9> PAINT ($ef)L RENAME k REM W COPY PSET +B0 TO ($f0)A DRIVE DEF GO DRAW K9 DELETE STEP CLOAD W ON c, NEXT  DRAW a=` TRON VERIFY X($f0) ELSE ($fc)g DATA X<($e9)b/ PLAY PCOPY SWRITE ,8X STEP NEXT  TROFF c TO ' ERROR x_ FROM PCOPY X END Rd* DIM ' NOT ^ PCOPY CONT .y LET $ ON ;l AUTO  DRIVE COLOR CLOSE dFe DELETE o- DELETE FROM  TROFF c PLAY FN i RESTORE H MOTOR |o DELETE w($f0) AND d CREATE ($ee)r STEP  ON ) OFF w`AzRt PCOPY \8B RENUM NEXT C LIST  REM ECB^I STEP ' PUT x FWRITE 4 TRON ^7 KILL Vxw DATA .-vL LET LIST GET ($e9)=\+";H| PCOPY GO STEP * EDIT DATA CLS USING I PUT P END < DLOAD ELSE COLOR Q^($f5)& CHAIN j>Eex($f1) RESTORE ($ec) CONT 7 DEF 4 PRINT X- EDIT REM DEF  DELETE ($f5)d CLS ($eb)g GO CIRCLE b($f6) DEF J2# GET CHAIN t DRIVE o PLAY USING KILL \($f8) OFF r CLS M FLREAD ($f9) REM <($ef)\ CLEAR  OPEN FREAD +.5FS STEP 6 DATA w SWAP j>e9 DLOAD RETURN FWRITE ($e8) SREAD FOR v DSKINIT RESTORE SAVE PRESET a DSKINIT TRON S DATA OR GO B PMODE  EXEC ($e9)l)5 STEP  J EXEC ($f0)C AUTO LIST / 5586 SCREEN x ELSE AUDIO !R;$T**+ EXEC SAVE W TRON ,P LET DSKINIT SET 6 EDIT t SWRITE :w# PAINT FOR PCLEAR ]& GET  STEP ($f4)/ CLOAD STEP ($fc)b DRAW QB TROFF KILL P DATA jR;! TRON EH($ec). DSKINIT I PROTECT x DLOAD ($ea)\Rx9 AND ($ed) LIST 0~ SUB I INPUT >hk CREATE REM qR;( SCREEN  CSAVE g LOAD CLS c&,w ELSE ($fb)O EDIT - TRON ` REM FLREAD RESTORE SCREEN ^b CLOSE xT c - GET TYiU($eb) FREAD + FREAD T EDIT O] 5781 x.p LIST ` PCLEAR a^P SUB @ KILL COLOR TRON > PRINT RESTORE OR CLS qK> RESTORE ) CONT e CLOSE q FREAD DLOAD & POKE IF n STEP PLAY THEN ^ DRAW BEEP CLOAD Ez DATA SREAD OPEN (EK OFF { BACKUP 0( EDIT ) IF SWRITE ";8 EDIT  TROFF  RESTORE T#* DIM IF z LIST Av EDIT .A^ OFF GET GO ^qZ CHAIN DIM +' PUT + DSKINIT I FROM < RENUM CLEAR 0b MOTOR LOAD #,.Gn STEP N DSKINIT SET m" MOTOR 54 OFF ($f8)?@Y=5 LINE DIM CSAVE ($f4)0\!X($ee)(QV'EC($ed) = STEP ($f0)@ END DIR ($ec)($fe) REM REM line numbering breaks here! REM CIRCLE Z MOTOR  DRAW J2 FROM 6 RESTORE SCREEN = READ KILL ELSE T+!e SET `"($f8) CONT +H TROFF O STEP 9 TRON MOTOR PCLEAR c USING B PLAY HYz RESTORE N+ DRAW *w BEEP C FOR TROFF  EXEC ;, RENAME q RESTORE C PSET COLOR Sw IF b PRESET P($ef) ELSE TROFF H SKIPF Q CONT " EXEC v AND ^ OR LIST 4 GET SWAP 278D.2 PRESET < TAB( RENAME OPEN SC END  KILL R END F` IF Z PRINT T($e9)-7# PAINT COPY Ay USING BQ NEW zW CSAVE ($f7) SKIPF y FN i B($f1)@X EXEC ($f0)L CREATE * DATA .i LOAD T LET FWRITE DIM CSAVE DATA a# PAINT ($f2)@QNA# PAINT END Oe< EDIT 7dl+ OFF aa PRESET jR;#>!Y DATA X= STOP FREAD 9($f3)Na# GET SWAP DEF 3 COPY 5 TROFF  CONT e CLOSE  RENAME i BEEP  RENAME ($fc) GO b ELSE vq SET  NOT > RENUM ($f3)+qF AUDIO ($e9) LET AND q RESTORE F($f5) CLEAR CREATE PUT ON ($ed)) FOR READ AND ($ed)! NEW x0W. GO zW CSAVE rP END RESTORE H($ed) RESTORE TRON CLS REM 3($f4) CLOSE NEXT DEF \($ec) SOUND ($fd) BEEP +!B;$ CREATE " EXEC vC]9\PQ PCOPY RESTORE ($eb) EDIT  SWRITE REM PUT 9'/ STEP !R;O RETURN FWRITE  CLOAD '($f5)($ea) GET STEP ($f3) SWRITE 0 TO dGd FROM ' OPEN (EH($ed) FROM EXEC 3z NOT FREAD x($ee)7 SKIPF o REM EB70] TROFF CLS REM CONT ! RETURN FWRITE FY NOT MERGE '8N SET TO B EDIT  SKIPF J CREATE +R CLOSE SAVE PLAY PLAY END ELSE d*Gdez($f5) PRINT y SKIPF  FOR TO iNk CLOAD n+> REM OFF SOUND ELSE vy*B TRON 0J1#) PSET NOT Eps8 REM NEXT PUT +" RESTORE ($eb)dvL POKE  *6 CLS jo/ TRON M)~ SKIPF m OPEN SCREEN B DRAW  CLOAD ?7 AUTO  FOR np LINE d(Gd STEP ($f9)N FWRITE {-* SREAD OPEN Q STOP dv DELETE d KILL ;l~($f0) DEF k= CLEAR  DRIVE COPY *($f3) ERROR ($fa)j/ PAINT V TROFF ' ON 0 TAB(S Y* FREAD " DRAW RESTORE FB CSAVE VL5 STEP ^_ ELSE AUDIO FROM DATA o BACKUP h RENAME DELETE rk CLEAR ; READ *^S i:X CIRCLE ELSE ($f8) x LET ($f8)k OR - FOR SL COPY k*B($f4)Li RESET ( CLS SCREEN 4 VERIFY  RUN / BEEP DSKINIT ON V0 REM SUB ON  PCOPY L COLOR SWRITE 0 RETURN COLOR OR SCREEN T5 CHAIN >x]'" MOTOR AND x($e9)[k INPUT / USING *xV SOUND ELSE vI ELSE IF 3 GO MOTOR DATA  CLS + RENUM w SKIPF y($eb) READ 1 FLREAD RENAME .m PRESET SET BEEP PSET o<` EXEC v}R CSAVE PU TROFF \ PROTECT TROFF / MOTOR  PCOPY CHAIN BEEP vLtk END F STOP  TRON  IF P REM TROFF 0R0ND ELSE READ v* PAINT ($f2) CLOAD 3U COLOR DEF dB AND CREATE 2*0v GO ($eb)7^ '($f5)N0^ SET B OPEN * STEP  DELETE LIST N@g REM 1f PROTECT \\ PLAY ($e8) AND CREATE  CSAVE ($f4)($f7) DATA LOAD 3 IF y VERIFY )N($f2) LOAD 4- LET ($ed) ERROR PRINT FLREAD 9R NOT i PROTECT \^ INPUT `1Aqv@ END DIR ($ed)y RENAME REM ($fd)E($f0) IF c SCREEN o^J FREAD + PLAY DLOAD M TRON y COLOR TO STEP RESET 0 PSET REM 2 FREAD !LoLy MOTOR  STOP DEF ($f3)S NEXT ($f2) AND #!qF PRESET H($ed) TROFF TO S DIM -) USING JsZS SET B DEF AUTO  OR k PSET RENUM u($eb) RESTORE CLS FF+T($eb) EXEC ($ee))m SREAD OPEN RqB/ PAINT VERIFY  SAVE \ DATA U PRINT V RENAME = GET GO TRON VB>v^($f4) PCLEAR 4 FLREAD ^b FN " POKE q IF FQ LIST n2 END RETURN FWRITE 3 ELSE BE4 DELETE DIM CLOSE NEXT iX BEEP Whs DELETE a CONT ($f0)> DLOAD /" FLREAD  PRESET  LET SREAD LLIST ($e9) BEEP jLGd STEP s GO AND ($ec) RESTORE PSET IF +QB;&p48 CHAIN CSAVE 5*zr FLREAD GO YdGgf($fa)s SWAP DRAW VERIFY ($fb)C OFF  LET ($f3) STEP FLREAD )'($f2) RESTORE FDv LOAD d7h ELSE  RESTORE PAINT BACKUP 0L5 PSET  ERROR nGd RESTORE FDv~$v SKIPF 4 PRESET OFF 7# DRAW * SREAD CLOSE a<9 PRESET !X AND DELETE  CLEAR PRINT / LLIST  TRON  READ ($ea) DRAW Qd FREAD ! READ ($ea) STEP # DRAW *' REM  CLS ($ec) CLOSE NEXT CLEAR B READ y PRESET 9'xT CONT LET C*($f3)# PAINT ` RENAME CLOSE k0 END L DLOAD &o USING PROTECT a CSAVE ($fa)($e8)F CONT g USING ) DSKINIT I EXEC NOT G) RENAME CONT 2^(d7 SUB 4 OFF ($fe)b MOTOR VERIFY  STEP <n DLOAD  SET POKE NEXT ($f2)@ PSET IF ($ec) SOUND OR J c DRAW +-, DEF =`# DEF !R LLIST VERIFY  RETURN  EXEC )' LET > LIST Vx) FOR NEXT ($f4) IF b FOR -p LET U DLOAD  SCREEN + DATA SOUND ($fb)! AUTO l($fc) RESTORE \f Ly TAB( ) AND #";!O; a PCLS ?z>;(FL EXEC v^($f0) STEP STEP " LLIST t CSAVE ($ec) VERIFY vy FOR NEXT CREATE " SREAD ($ec)Z AND TP']- GET ($f0) DLOAD FOR DIM COLOR y EXEC ,B; DLOAD SWRITE PUT FOR Q CONT " EXEC vQv CHAIN RENUM ($f4) GO STEP STEP EY*0^ OPEN RETURN FWRITE ($e9) LET SUB PROTECT R GO DLOAD  RESET CSAVE V PAINT  SCREEN PLAY CSAVE IF STEP & EDIT AUDIO SAVE FROM  DRIVE Hc COLOR d)/ EXEC + READ @E+Y u* NEXT REM B;\Rp8 VERIFY **V FWRITE PMODE d7# PAINT COPY r;&p9 T IF LINE )=jn*A ON ' SCREEN RESTORE PCLS { T CLEAR CONT USING A NEW 8 PUT ; DIM TRON `2 PRESET  OR PROTECT  STEP YNc& ($ee)2 STEP 0y CLS Ej ELSE vF ERROR ]t CLOSE ON + RESTORE DRAW SWAP ELSE COLOR ~HAz EXEC P+!Qd# DRAW *9 GO MOTOR CLS PSET 0PFXc COLOR /'J MOTOR |($ed)zs CLEAR LIST 5 DLOAD  NEW TRON M NEW i P STEP H SKIPF <`" DRAW  INPUT  CONT dX($f3) POKE T LET OFF PRESET DRAW i*{ OFF DLOAD RETURN ERROR T EXEC Wd>x-d) PAINT GO LOAD PRINT iU($ec) REM DIR EDIT 0~ FOR CIRCLE S CONT ($f0) RESTORE = TO + TRON TRON MOTOR d, GET STEP Led STEP vU REM * = LOAD KILL 6 TO C CLEAR DIR ,^ COLOR ,P; AND u/ L($f8) THEN 7hT CIRCLE JWX FREAD + DRAW , DRAW EDIT u MOTOR RESTORE SWAP v,u END S SCREEN POKE I FOR NEXT USING  SOUND ' PCLEAR ^ MOTOR Wd DELETE  FREAD & CLOAD BEEP ($f0) CREATE RENUM IF ^ KILL 4 FOR ($f2) VERIFY Gi DIR 19046 REM SREAD ERROR USING SREAD RENAME nX OFF kNLJb DIR ,V DIR PRINT - CONT DIR PCLS N@ CLOSE TROFF VM3OG CSAVE  CLEAR ) CREATE LINE DRAW &T5 STOP ON ) EDIT H>h !A AUTO ($fc) RESTORE " DRAW RESTORE EDIT ]'y SAVE s# PAINT Lr SET  DELETE p`A DSKINIT 7! FROM COLOR T7,a7 CLOAD 1 SWAP q| OFF (Gg SKIPF EDIT N$i=b CLOAD A+] MOTOR ` RENAME ; RETURN ERROR ($f4)(($f0) VERIFY SREAD - FREAD ($ed) TROFF FN SUB iV FWRITE 6 AUTO  7 VERIFY ($f3) SUB pq DSKINIT CONT  DEF PRINT Z TO 'dX> PLAY ? ELSE VERIFY B=R COPY 4 PAINT ^ CONT PRESET 4^I IF RENAME w END P LET AND + CLOSE STEP !/ CSAVE 6 SREAD SUB X* CLOSE pH POKE B PLAY _($eb)J* FROM  PSET J RENAME DIM X LOAD V STOP ($eb)J REM hq OR TRON TO TRON i LOAD OPEN g($eb)J* OR MOTOR /a+B PUT PCLS SWAP ^[V RETURN &,P CLOAD < CLS ($f4)@,e BACKUP CLOSE GO G45 VERIFY  PRESET I CHAIN -- FLREAD <0z MOTOR  PCLEAR / DATA (($ea) PLAY ;xj.M-2 OFF ($ed) CONT ($f0) POKE Q AND nGn+* END  SWRITE PCLS ihgM RENAME aMB CSAVE Br($f0) OFF CREATE BEEP u($ee) SAVE } K8M-C TO & CLOAD 'u STEP SWRITE < NEXT Xw'm x+ INPUT OFF EDIT !^A DSKINIT t FROM !~iNk\u NEXT - STEP ! PROTECT 'hqJh7 SET d# PCOPY MOTOR XW ON , CLEAR SET  PCOPY ,u($eb) ($e8)-z KILL d SWRITE USING i /U9` DRAW > LLIST BEEP * SOUND OR DRIVE  BOOT ON CHAIN p8 VERIFY  AND T PRESET GET nGm*pC FROM B6J CHAIN A\v SKIPF & LLIST SAVE IF ($f3) GO LOAD u($f7) DATA < VERIFY  SUB FDv DSKINIT DEF $P\ LET ERROR AUTO R DELETE ' TO ($f0) POKE `($f1) STEP FLREAD RESTORE SCREEN - EDIT < FOR PAINT  CHAIN DEF ($f3)AR ON #S LIST *($e8)($ec) CONT 7 COPY =sxN@\B}u8 CLS VA ERROR B CLOAD BEEP Y)D($f5) CHAIN ` TRON SKIPF `x DATA SREAD REM V FWRITE POKE E! USING E($ec) d PRESET g RUN B; ($eb) OR ($f8) BEEP STEP FLREAD F AND " ELSE H DRIVE CLOAD REM ($f2) AUDIO C=*+ PRESET A" POKE # PCOPY B REM VERIFY vz* CLOSE t` CREATE _ CONT CIRCLE q@ END BACKUP LINE  FWRITE ERROR  RETURN REM S'2/ RENAME -\ DIR DATA k:[ TROFF @($f7) SWRITE CONT ' OFF xdC SET ($ed) IF NOT oKV PCOPY OFF XJ DATA X($f0)Y($f1) FWRITE B+ CIRCLE s# GET ($ec) POKE Q FLREAD  RESTORE TRON NEXT NEXT COLOR VB ELSE v DSKINIT CLS ($f9)g SET TO RENUM ($f9)SX[ LINE EH($ec) REM  SET 0L BOOT REM REM line numbering breaks here! REM u SREAD ($fc)@P FOR T($ec) POKE E0] TROFF Q DRAW 8< READ AUTO 4 EDIT  DELETE PLAY THEN 4  LET ERROR / STEP > RETURN COLOR jw7l($f0)7 CIRCLE  CLOSE _ TO mHYB:($f3) COPY =gZ AND P LET DSKINIT  EDIT @ SCREEN B REM CSAVE r RESTORE PLAY $P\ AUDIO .( DATA /8P* RETURN  STOP LLIST VERIFY `#! NEW xT ERROR DEF ($f3) LOAD _0 DELETE 0 BEEP Y-Xg~[o' NEXT  PCLS p NEXT SAVE SCREEN p COLOR 8'G hqZ ELSE WB CLOSE B AUDIO DLOAD  POKE fGn LLIST i>ij COPY DLOAD EXEC RENAME qP\8D<+ PLAY AND X* CONT FROM  KILL ($ee)aQJ TROFF c!aZS5 BEEP BEEP T CIRCLE SWAP RETURN FOR END ($f2) BEEP DIR REM  LOAD + FREAD w($ef) ^!ZW CSAVE ` FROM INPUT F PLAY $($f0)C GET BOOT , GO 6SA($ed)<.^b MOTOR ($ee) :Z CSAVE  EDIT - TRON ` REM  CSAVE B|<0 DRAW 4M RENAME n-) SAVE , SREAD  RESTORE SCREEN 4 BACKUP LET SAVE  AUTO CONT = OFF <*; RETURN FWRITE GLy< CSAVE ` CREATE >{ NEXT CHAIN zOD PSET *Zg| RENUM CLEAR ) SKIPF a/a FN  LOAD $Gi PUT ^g END OL($ee)() LOAD RUN OPEN DATA  DIR 3 IF y END ($f3)@ END DIR ($ec) REM CSAVE r RESTORE EDIT zW7 CLOAD Z RETURN o OR  TROFF 8 SUB a' ON Z LLIST ($f2) PRESET * FWRITE *p3 STEP ($ec) REM ($fd) LINE :($f2)pH EDIT ]'y SAVE qBI FOR LET S+#$;? END DIR ($ec) POKE  AND \S6;kX REM NEXT DATA CREATE BEEP SREAD FROM SAVE C PLAY MERGE MOTOR > STEP ($f3) MOTOR OFF r NEXT CSAVE q SKIPF 9 CLS ,U POKE RETURN r CLS SWRITE N@($f5) READ 4.3 RENAME CIRCLE ^ EXEC  CLEAR # PMODE RENAME CONT PSET IF *x+kf SUB f DRAW ($f0)] CLS U RETURN De< REM SWAP  AND v.R^S DATA  EDIT p LINE DIM PCOPY CLS /} NEXT CONT TROFF CLOSE FREAD CIRCLE CHAIN m SKIPF CQ SCREEN  AND CIRCLE hq DEF ^ya THEN ELSE  TRON | PUT rd IF REM SREAD GO 9T FOR o REM ON LOAD  a"b= DEF UV~! EDIT AUDIO SWRITE `($f1) SKIPF EXEC .Q~ PUT AUDIO > STEP  ELSE R CSAVE <($f0)z CHAIN .;Q LLIST REM LINE - SCREEN RETURN #'8 TRON SUB R COPY FOR END O^4'n7 OFF Us RUN ;^ CLOSE NOT DSKINIT A CLEAR + DRIVE x. CREATE CLOSE w ($f6)*y FOR r ($ee)Ge CLOAD [f AUTO  FROM 6QV EDIT ($ef) FLREAD GiP THEN @R TO BEEP LET AND CREATE =zM* MOTOR # PAINT LET SUB PROTECT  NEXT ^($e8)ro 555 T# PAINT ON U( PCLS DEF t ($eb) PRINT LIST | PUT SREAD ($fc)t SREAD DEF >0 VERIFY SAVE Vz RESTORE PLAY ($eb) RUN 4 ($eb)<# GET READ Pq|5($eb) DSKINIT [8= REM (Gk DIM IF ($f6)@ DELETE TAB(k7'($f3)B; TO CHAIN a:S\ PROTECT  MOTOR ) RENAME EXEC 9 MERGE PAINT ,r4*P; RESTORE ($f0) NEW FOR ,($f0)S MOTOR EE($f8)< STEP 4 GET - LET STEP T SCREEN CLOAD PLAY t( TROFF u OFF M REM CHAIN TROFF 2'($f1) AND LET MERGE EDIT DATA ($f4)96 DEF E($ed)~X SKIPF 1 FLREAD /J RESTORE COLOR PRESET 4 CHAIN PAINT  VERIFY CLOSE a RUN 4 AUDIO `($fa) DELETE ($f8)($ec) TO a RUN 5 AND ^5 LOAD n KILL _ PLAY  PCOPY g PAINT B SKIPF  CLEAR J RESTORE Up~h RESTORE FD;H] RESTORE " DRAW RESTORE MOTOR  STOP CLS " REM DLOAD NOT ($f5) PSET f DIM IF FLREAD GO  PSET IF ($ec)($f4)7 PSET 6\$(X NOT STEP B7 SET REM RETURN FWRITE FWRITE :($e9)4# PAINT L# PAINT  AUDIO / DSKINIT NEXT ($ec) GO  FLREAD IF < NOT FVLpv DEF J2 LINE RETURN KILL V|v| NOT ERROR SREAD SWRITE PCLEAR EXEC + | NOT r'($f1) AND TRON r: CIRCLE c CONT 'a DELETE z CONT 1H($eb)7 Bw SET \fb AUTO  SAVE STEP GO =d: AUDIO ` NOT FLREAD 7zX CIRCLE ELSE LOAD _L AND RENAME STEP OFF ; RETURN KILL IF -nG!A*P SCREEN  SWAP RESTORE = CLS -+ REM DRAW ` STEP OFF <r;p MOTOR ($f8) RUN  GO SUB + FREAD nT BEEP | GET IF GO k REM END + DIM OFF ($f5) OFF ($ec)T>+ THEN @($ed)<$ READ /V RETURN  PMODE x OFF p DATA M ELSE TO *C PLAY -'K` READ 3 y<1id(U RESTORE FDv CLEAR `m NOT Ra( TROFF  NEW CONT 8< PRESET (1P VERIFY  RETURN B{ POKE a!Aq DEF H$\f MOTOR ELSE o BEEP 7 SET - ON d KILL BACKUP c PAINT c DIM 8<7 STEP #-, NOT FWRITE & GET  AND LET AND q# PAINT 'Vf X1t-91q DEF x SAVE + CLS /P* PMODE PRINT  CLOAD 6 LIST -w SET P SET D9($f0)n+) LOAD #y ELSE eMy SAVE ! ERROR f CLOSE EXEC  SWRITE 0 RETURN  NEW  REM READ  RENAME ^+v BOOT ($ec)< DATA PSET F CHAIN CHAIN TO a/` SUB CSAVE 6 CONT BEEP d.@ FREAD ! FREAD $Gd DELETE REM ' GET AUTO + DIM STEP M PCLEAR * OFF + CLS NEW  PRINT 3m RENAME *C LOAD # DLOAD  PMODE ,` STEP TO r*a RETURN 6S STEP B2 EXEC Aj DIM ON ($ec) DEF ) SET POKE & CLEAR (q + DIM STEP * CHAIN GO SREAD 6($f3) OFF ($ec)T9d2 BEEP RENAME STEP ERROR xd J2# PUT DEF TRON j- DELETE M DATA S ($f0)V LIST * READ -. OR MOTOR /($f9) GO COLOR EDIT @ TROFF  LOAD /Xb* DIM 8<8M0n9 dB BACKUP  CIRCLE + DIM +&T TROFF ! PLAY G* VERIFY 7# PCOPY T> SWRITE 0 RENAME C RESET NEXT y CLEAR >c NOT r($e8)Y STEP PUT LINE OPEN \" AUDIO C AND # CLEAR `m RESTORE SKIPF 8+ DIM +|>M SOUND ($f2) FROM x READ &!q RETURN t2l CLS EXEC -| CLS *CP CONT | RUN Xq) POKE `($f8) SREAD /` RENUM V RESTORE ($f8)d NOT DIM T9t' FROM C PLAY \ OPEN  ON z($e9) H|2` SAVE < CLS U FOR ($f1) ERROR x) 8<d30B AUTO FREAD ?.S,a/` DRAW EDIT * CONT <<Q INPUT PUT ON =X CIRCLE CHAIN p`q BACKUP Lvv`6*($fd)($f4) INPUT q DEF PUT PSET ' POKE ($ee)Gn=x CHAIN  READ **i MOTOR *($ea)P INPUT  DRAW * RENAME POKE ^I+ DIM STEP  8 GO PAINT PUT CLS *C RESTORE E9C DIM OFF X POKE A REM ; RENAME LIST -+ BOOT S'ECM TROFF CLS PLAY J ($f0)Q *X RENUM  SREAD CLOSE DEF #";^ DATA LIST bm"#m SWAP REM PUT PUT DELETE REM ($fb) EE)($ef)J FLREAD FROM 2* CIRCLE p SREAD CHAIN  DELETE l SKIPF =` PSET 8<$C= CLS p SET  P" LLIST `*hq DEF ( NEW  REM RETURN + DIM OFF VERIFY STEP OFF xp0I NEW  DATA XK0&f]p TAB(` DATA CHAIN ' COLOR AND #";He SKIPF A9- RENAME MERGE EDIT PRINT aA/ SKIPF /f DIR COPY .3` SCREEN dp`OER;9ANP THEN *L DATA B DEF STEP '( VERIFY 7# PCOPY T> NEW @ SUB + PLAY TRON PUT REM 2< PLAY EDIT ^ MOTOR P CHAIN GO SREAD  LOAD 2q THEN @I FREAD / SET ! NOT ri FWRITE  PCLS NEW ELSE  TRON w(O GO ~- FLREAD = TO *C($f1)8($f0) SET  1972 ($f0) FN  LOAD '2;jjP`~ SUB a/` MOTOR NEXT @($ed)<; FROM EXEC & SKIPF INPUT  SWRITE PRINT y IF CLS l IF b SWRITE 0M1hq DEF ?&Y RENAME DELETE /($eb) EXEC &M' DIR CONT MOTOR y PLAY SWRITE P SWRITE 0 SAVE REM 1g3($e8)M2b($f1)+) DATA ($f8)? EXEC 1d^A PRINT  REM m  NEXT DIM STEP )Xq DEF o REM r($e8) TROFF  SREAD 1 TAB(,=q DEF v STEP j/a SWRITE REM 5C20 SWRITE 0 DSKINIT PSET '2 SWRITE 0L($e9) CLS SCREEN x RENAME PRESET "- SOUND  DEF J PLAY e CLOSE p9 W DLOAD P BOOT PUT 'ECp* EXEC  RETURN P($f7) PUT  CLOAD bMM* CLS x DATA SWRITE v(MJ LIST AND OPEN 8O) SAVE *-B**0AiA END PRINT FREAD dr ON N VERIFY FREAD \P' IF R KILL 1 STOP mX0p LET VERIFY v SAVE CC& EDIT DATA BY OFF ~s OFF FROM BEEP / DELETE w STEP + CLOSE MOTOR \$M' AUTO  IF SWRITE , SAVE /a POKE zW` TO dT= SAVE \7! USING  PLAY F VERIFY v> PRINT NOT W BEEP PLAY 9 AND ($ed) LIST . GO zW_p* EXEC  RETURN  PCLEAR C} qb MOTOR ($f0) RENUM  END T  SKIPF MpAb-7y TO AND ($ec) SREAD READ  NEXT ($f7) BACKUP Y NOT SOUND PRINT  STEP STEP CONT u AUTO  CLS PCOPY DELETE ($f0) PSET E* DLOAD BEEP YF POKE r TROFF  CLOSE LET CHAIN  FLREAD  AND *($f4)- TAB(e<2 CHAIN CSAVE t'> PRINT NOT oJ NEXT NEXT ($e8)d) DEF Vf COPY ' END PRINT FREAD _ RESTORE Vfb($e8) > LIST m  CIRCLE #' RENAME CLEAR GO CLEAR :($f2) CLS GET ($e8) ERROR ($fa)($e8) AND U /($f5) RETURN 11284 I END PRINT THEN @> LIST DRIVE PUT ELSE d/ CLS ($ed) TRON NOT OFF S STEP I COLOR F(q DEF ] GO ($f1) TROFF q AUDIO .LT> OFF RENUM 48 CONT OR COLOR PROTECT ` SAVE COPY  RETURN bQ+~ CONT PRESET 4 ($e9)P DLOAD 6 CLOAD  TRON hc  IF FREAD RENUM l CONT +3 PCLS H#";^ PRINT PLAY AND Q CONT _jT SOUND  TRON AND T TROFF CLS ($ef)< KILL 5*L MOTOR ~ SKIPF DIM ($f6)C-* EXEC 7 LET SWRITE RETURN  PMODE MOTOR ($f6) VERIFY QAinx DATA M";H^ LLIST aT DEF H($f1) PCOPY S STEP t SWRITE 0^ RESTORE SWRITE 0 RESTORE &fP=]1 FWRITE 4- CLS x'($f2) Z SAVE  RETURN KILL * SUB * IF X1P($fb)B} DATA Ax LOAD dGghq) POKE ` GET LLIST RENAME *C($f1) ELSE nGk FLREAD  MERGE DATA Y GO COLOR TROFF SREAD  ($f0) POKE ^ BEEP | SWAP IF SWAP REM COLOR B+ OR BEEP ` AND LET KILL BEEP ($f2) SKIPF Vr LLIST RENAME *CS* PAINT . GO ERROR xd9i PCLS h STEP TO w ON ($ed) SUB  PUT ' FLREAD ^b MOTOR ($fc) ELSE { WL[ LET Dv PROTECT PRINT ERROR ($ec);($f4) TROFF ^ RESTORE =06 SAVE ($f8) RESTORE PMODE AND ($f9) CIRCLE REM REM line numbering breaks here! REM ($fb)a SWRITE < DATA GET DATA ! TO r# DRAW ($f0) AND ! DSKINIT . GO " SWRITE XW CLOAD  SKIPF Ly($ee)Gl PUT jV($fc) REM ZD7 AUTO  TROFF B STEP FN  CONT + PRINT  DLOAD DRAW ^` READ ($fc)<)"8q DEF ei IF -J PRINT SREAD 7fo SAVE *L1 CHAIN p LINE CLOSE MOTOR < NEXT NOT # CONT ($f0) TAB(($f3)! BACKUP FROM FN PRINT KILL NOT > AUDIO SWAP <$ RETURN IF SWRITE " CLEAR `m!Zu($ea)X REM ($f2) READ  CONT RENAME ` BEEP SCREEN a*N  AUDIO NOT TRON ~cq SWRITE RETURN  PMODE b MOTOR > CLS KILL + DIM +' FREAD |z SAVE  LOAD LET KILL END DRIVE  CONT ' READ SWAP  BOOT RENAME T?1($f6) FREAD DLOAD } DIM TROFF h0p*n GO FLREAD <)_ EDIT & LOAD # DLOAD P($fc)EG TROFF 8 7 x\ LET FWRITE P*J0` SAVE > DATA ($f4)I IF a/a RETURN SREAD  PAINT  TRON |BQOB/ FWRITE 0p LET VERIFY vz STEP qhq DEF ,C CONT * FWRITE GO PUT & DLOAD ($e9)XMLJ STEP -8! FWRITE TO G&. FOR SOUND BEEP `^ FOR t BEEP P9P CIRCLE '($f3) STEP m CLS e DATA VERIFY v SAVE <- CIRCLE PROTECT  SET E LET DEF DATA ($f1) LOAD r# PCOPY LT? PROTECT LIST STEP }+ LOAD # PLAY TRON ($f2) X TRON } RENUM ($f4) PCOPY SAVE  CHAIN !x PROTECT DLOAD /DvQ* SWRITE ~ GO &} EXEC T=/($fd)y SAVE SCREEN PRINT 0e RETURN KILL * SUB Ab($ec)S zB!(> PMODE  RETURN FWRITE &Q TO 8F VERIFY 9 LOAD WHq DEF Jf SAVE sd MOTOR VERIFY . CIRCLE t+l DATA CHAIN  AND LET DSKINIT MOTOR ($ee)7($e8) SKIPF r  PRINT , SOUND  SET * PUT REM (- DIM END BEEP `($ed)+ NOT LET MERGE TRON ~c KILL CLS p SKIPF |F SWAP k PCOPY LIST f LOAD T SCREEN C!F STEP GO >M-J STEP 'r;p MOTOR MOTOR SREAD \f I+ INPUT L OPEN DELETE `A.3 COLOR F' ELSE ' NOT T AND T LET BACKUP L`*CB-.)<# PAINT OChT EDIT PRINT $ STEP r MOTOR ($f0)($e8) READ ($f3)n+q RETURN  RESET I DEF VJd FREAD p DEF k PROTECT  DIM EDIT ELSE DIM | TROFF  ON ! STEP '( LOAD LET FWRITE P CREATE 57,S NOT " EXEC vz LOAD REM CLS TO PCOPY ' LET PRESET {+= DSKINIT > COLOR sB GO THEN LINE  LET /`($ec)' AUTO J DELETE n) PAINT SWAP  RESTORE  TO LOAD i DEF kCN4 BEEP SREAD DEF AUTO @ END 2 ELSE ($f2) SET  EDIT d FROM aAR ON +P STEP ; OFF CLS PUT PCLEAR 4 STEP ($fd)t MOTOR  DRAW ELSE J ^" MOTOR AUDIO  RENAME M PRINT RENAME SAVE DIM RENAME Y+ DIM STEP hx CONT SAVE /a. GO Xq DEF $@3 PRINT  PRINT l$lC CSAVE ($e9) INPUT q DEF ']f m' ($ee)L@= COLOR PROTECT xn)0($e9)e+4<"P SWRITE 0Zt PRINT  REM r IF a/a+ CLOSE 1q DEF -@D PLAY PRINT NOT _NLT1 CREATE u($e8) VERIFY v DSKINIT DLOAD  RESTORE ($eb)8f SKIPF END d AND dP RESTORE PLAY AUDIO jm PRESET ' /Dv SUB r($fb)1b($f9) IF d* DIR ,E^ DEF PCOPY STEP \ SAVE > STEP (e END ($f2) )Zr,u PSET r+ COLOR n: LET RESTORE ($f4) SWRITE PSET A# PRESET CLOSE *($f6)>x> RESTORE SCREEN SKIPF 4 SREAD U END CREATE ! USING +Ty REM  GET EDIT ,A DSKINIT 7 GO c OPEN ($f1)JT NOT _0 NEXT LET DELETE RENAME DIM ($f6) DEF ) CLOSE CIRCLE jV SREAD ($fa)B PLAY k> CLS SWRITE PRESET ^ CREATE 7 TRON E^Q< DIM  DATA ($fc) REM RENUM ($e8)q,C( AUDIO .($f4)' ELSE AND ($f5)($ee)($fc)h` LIST s PLAY ($eb)'($f1)**($f1) 30799 SET FN  DEF a VERIFY  OFF t BEEP n@7 SET  STEP USING GO ^:^P~H LINE  SUB z CLS Th{ CONT -u ERROR LLIST ! PCOPY GET CSAVE  ` SUB Hv DSKINIT 0 CLOSE 53+Zr IF b^ DLOAD  PCLEAR DATA DRAW FLREAD GO # DRAW *; STEP REM TROFF ' DSKINIT  STEP ($f4)L3 CREATE Y TRON Gg BEEP CSAVE B' PCLS < AND OFF SOUND SREAD RESTORE USING FREAD LET >44+^($ee)P DIM LINE GET  PRESET pQFg! ERROR F/\| NEXT NEXT REM  SUB z SAVE PRESET SET STEP T DEF ) CLOSE a WAIT Y USING FWRITE : FLREAD ($f9) RESTORE E0 CREATE ($ed)0 CONT T LET OR B WAIT COPY QmY REM TO t PUT DATA Xk BEEP  LET PROTECT T DRIVE  DATA ($f1)~!W ERROR POKE ON U FLREAD 70q DSKINIT hH LET BACKUP A CHAIN p PRESET SWAP REM u LET ' USING ($f0) DRIVE BACKUP i' LET TAB( RENAME ' TROFF V PAINT # PAINT 2 BACKUP  DSKINIT DEF $R LINE (.Gmg8!6 REM RETURN FWRITE FWRITE ($ed) TROFF ($fa)($e8)Sk AUDIO GET PUT +Vv MOTOR  DRAW BEEP ($f1) TROFF OFF w RESTORE SWAP TAB(p END DATA  WAIT 8** DRAW ($e8)P CLOSE INPUT COLOR S DSKINIT TO BEEP u STEP ($f1)($eb) EXEC FROM <`"($f4) BEEP e< SKIPF q($f2) PCLEAR CLEAR CSAVE ($f1) ELSE LOAD EDIT l EDIT ELSE DEF TRON j PSET `X TRON FLREAD REM RENAME RESTORE {*F[$# PAINT f FWRITE CLEAR 0 CSAVE CONT 'z RESTORE XJ CSAVE ($f3) STEP g AUDIO SAVE PRESET SET STEP S DATA DIM POKE # GET ($e9)8WR- LINE (@, DEF k($ee)L:> CSAVE ($f3) SWRITE OMf SAVE OR E> h OR CLS FN  SWAP /a( SKIPF  STOP V TRON Gd+S|X TRON k SKIPF C!p{!@ CHAIN a!r SKIPF d) AND *($fc) BEEP +!V RESTORE H($ec) ELSE hk AND DEF + PRESET J DIM & FOR (1,X TRON ~0 RESET ON PCLEAR *($e9)($f3)| SAVE PCLS @($ed) SET B RENAME ($fb)B EXEC ` GO R0I FOR ` VERIFY  RENAME ($f0) FLREAD ($f4) DSKINIT OFF ($f4) EDIT CLEAR >A/^ CLOSE u READ 'P CSAVE q EXEC  TROFF PUT 4 OPEN CSAVE REM REM line numbering breaks here! REM PAINT  FWRITE ''($f2)@ LINE  FWRITE a<5 GET ($f5) CHAIN n: POKE m PSET SWAP '($f2)v($e8)G TROFF DLOAD ELSE pY PCLS l($ed) DELETE <($f0) DSKINIT POKE k\v ($ea) FLREAD  RESTORE SUB   DIM  TROFF DATA PRESET LET = EDIT 'i ELSE AUDIO ]3 DSKINIT  SWRITE HV9 FWRITE OFF / DRAW &t` PLAY THEN - CLOSE Q TRON ` DRAW EDIT 0~($f4) PSET | PCOPY PRINT 2s($f2).($f5);kNh) DATA TO 'z DRIVE  SAVE 9 AUDIO COLOR W^($ed)N($fe)U PRINT V}vDTu FLREAD G TROFF ^ RESTORE COLOR ($eb) SKIPF REM DRAW GO ^\95=H BOOT Z PMODE NEW x*J($f3) SKIPF | COLOR ($f8) CLOSE 5 SREAD SAVE 5 TROFF  CLEAR a(M&J STEP TROFF R WAIT *h; BACKUP  CHAIN PAINT  PROTECT DLOAD DATA ($f0)($e8)Gg PSET #J PLAY FN #m DRAW -)X0e LIST P_ CSAVE B0!,a4 SCREEN # PAINT OA` LINE BEEP =($f5) BEEP +p NEXT DRIVE REM ($ed)  FWRITE  CLS '($e8)p|5 NEXT -* RENAME n@/0q| LET CLEAR N EXEC v EXEC = DEF ($ec)\ DRAW GET IF T^ BEEP PSET P"($f4) MOTOR AND \u( DLOAD SUB P] COLOR DSKINIT DEF ($eb) OPEN STEP ($f8) EXEC  GO y RETURN PLAY ' NOT READ SKIPF 3 CIRCLE P($fb) IF AND SAVE * OR '( LOAD LET BACKUP DEF E($ec)($fc) POKE DIM SAVE RUN 4 CLOAD [f LOAD * CONT MOTOR CLS ($ea)p|Ab DRAW QVx EXEC 4@ END DIR : OFF sR CLOSE COPY jN!T# DRAW *' RENAME PUT ^ DEF FU LET B RENUM q SREAD L SAVE ^y ELSE R LLIST <+ PLAY CLS SCREEN 0 VERIFY ^q AND LET =2 ON n) PROTECT  NEXT REM KILL HX2( AND v AND # RETURN  CLEAR LIST ~i' CHAIN dn STEP S PLAY FN  PSET u AUDIO - CIRCLE  NEXT CIRCLE @($ee):($f2)~4 IF b($f1) SKIPF CLOSE & SOUND FROM W CLOSE 1 VERIFY V# GET END *E($ed) PRESET a CLOAD  SREAD '* PCLEAR `Y RENAME DRAW Q ELSE CLOAD > ($fc) BEEP ^ PLAY 8 BEEP WAIT EXEC o GO FREAD DEF IF }5X RENAME ($f8) NEW B DELETE REM SAVE W FWRITE *(Gk NEXT END REM REM line numbering breaks here! REM MOTOR  PCOPY RETURN  AUDIO PAINT P LET OR <ulvP DIM IF y DATA -R;8&4<* POKE STEP  STOP PCLS LOAD TO *C LOAD " REM OR ($e8)($fb) -dQr4m" CREATE DIM  REM TRON X REM FLREAD ~ IF  DSKINIT H EXEC 8 BACKUP =3V SKIPF p@Z SUB PCOPY P END RETURN KILL ) SAVE RESTORE DRAW 1 SWAP FLREAD ** STEP WA^ex CLS EMk) FOR DIM DATA ($fb)$# DRAW *s GO THEN T ERROR CLOSE DLOAD P FOR Y&2k END gI*0{h DIM PCLS q RESTORE THEN 4 IF GO ()' CSAVE P LET AND / OR ) DRIVE PUT PAINT  FWRITE ($ea) DATA MOTOR TT LET >)' ON ,TSeB;#/rv FREAD +p READ ($f3) GO LOAD ($f2) y LOAD o'($f4) END CLOSE REM 2# PUT TAB( CHAIN PRESET PAINT END  ERROR SWRITE PCLEAR k LET STEP Y`($ec)4 CHAIN MOTOR x PROTECT PMODE  KILL X SUB GO k!Q CREATE  SET "($f5)@ END  FWRITE 0q~($f0) PSET W z PAINT u CLOSE Shr ($f0)! AUTO L CLOAD BEEP Y) BEEP * DEF kg DATA $ PLAY $ CREATE PRINT 96($f0) PSET ($f0)F  LIST !Z8e SAVE !J-3 GO  FREAD " ELSE v PLAY DELETE \Jd FREAD , STEP (r STEP 'x VERIFY T=($fa)T PCLEAR =J PRINT aFR AUTO  SAVE POKE  SAVE r($f0) PLAY FN CLOAD DATA EXEC :T/< GET AUDIO ]s MOTOR PSET " / SKIPF u7 END  FWRITE ($ec) KILL H LET Dv RETURN O TAB( RESTORE ELSE COLOR rd7<P FWRITE c PRESET  CONT + END Rqv IF c PCLEAR PCLS DRIVE ' DATA DRAW 0 PCLS COPY E($f8) CONT  SREAD FROM Cy RESTORE 8 CLS  CLOSE REM 2# PUT IF j ELSE vJ IF j($ec) GO ]Y($f1) FWRITE SWRITE N FLREAD ($fb)Br& STEP kb FN . STEP Ye COLOR B2# PUT GET GO LOAD \ LINE 2# PAINT i ON > CLOSE DRAW COPY DEF fP DSKINIT AUDIO FOR $ CREATE " TAB("R;, OFF *)U IF GO E> PUT *(h( BEEP ` DLOAD P DSKINIT +^($f1)I SAVE PCLEAR MOTOR c PRESET -Xr KILL  IF CLS -,X($fc) RUN RETURN C INPUT L DEF FOR r STEP &CC PLAY SUB Pu SWRITE * ELSE DRIVE CSAVE V DLOAD y6x ERROR ($f3) OFF SWRITE & AUDIO r;eCR REM PUT *P>+" DATA FLREAD  DIM COLOR r INPUT 4 AUDIO DRIVE ( SWRITE p` FOR =q1 / SAVE q RETURN  LIST END CSAVE ($ec) VERIFY BACKUP USING (Gg SKIPF K DRIVE /0z8($ea)4 BOOT @ RENAME m NOT u($ea) /t EXEC V RESTORE l IF - EXEC +*&*\ OFF F C PAINT U($ec) DIM Y REM w SKIPF y TAB( Ej(Gdm NOT FWRITE 2`]* GET (FGp READ /U PLAY AND Yz CHAIN DIM TAB(* STEP SA EXEC vY RENAME DELETE 2# PAINT ($f2) PRESET ) DIR F[($ee)m CLOAD pT\ OR '^` RETURN @I CLEAR CREATE EXEC W5 AND E; RESTORE ' RETURN KILL Y TO $ GO CLS < DLOAD h*vB;> SWAP *kT SOUND i[\em CLOAD *X($f3)Aj92 STEP END PRINT NOT T" EXEC vY FOR END NEXT COPY A# *($f9) E *vI RENAME ' TROFF SWRITE PMODE "4 EXEC USING SWRITE  IF REM SREAD GET \ NOT FWRITE k) RENAME CLOSE a RUN < REM TO " CLOAD NOT BEEP CHAIN LINE (+ CLOSE 4 VERIFY ($f6) AND #" LLIST EXEC )D CHAIN R AND CIRCLE SAVE BACKUP  RESTORE DLOAD f FWRITE  RESET CSAVE B NOT GO # PAINT i OR ($e9)0 COPY 7 TAB(>' PRESET 10672 B PSET B($f0) *^OP ELSE H($ec) SREAD DIM X($f3) DSKINIT DSKINIT @($eb) REM ($e9)T(> ^";oC($ec)2& OFF B CONT SCREEN DRAW DATA AUDIO  SWRITE C~HGgf AND S RESTORE F($f5) AND dGi  ERROR SREAD POKE  EDIT REM  PRESET  STEP OFF COLOR LLIST AND s TO ($f0) DLOAD FOR DIM PCLS ELSE DEF / SKIPF C FOR TRON FN NOT AUDIO L STEP L CHAIN CLEAR PSET 9m NOT x` AUDIO =` TRON & RESTORE 2 GO DLOAD Z FWRITE DEF .T5*h/ SET REM ($f5)` PSET PLAY ($e9)idGi L> > LIST CIRCLE c = zC INPUT L OPEN  DEF 8$Rd CLEAR CREATE EXEC d`" PUT ;.iU END END RENAME REM PRESET Ly DLOAD E ERROR ($f8)<+ CONT ($f5) DATA p($f2) BACKUP > CSAVE OFF (Z AND P LET DSKINIT j?T FN nhAv FWRITE BQR;( COPY 0~ FOR :($f1)~$ RESTORE DELETE /F DELETE x8 COLOR U($f4) CLOSE +rl$: SWRITE TRON HT PRINT 1 POKE  ($f0) NEW ELSE  TRON w SOUND GET STEP # PUT TRON y ($f3)@ END DIR Y($ec) PRINT AUDIO 4d< OPEN e` VERIFY CSAVE rzgF*] FOR PROTECT LIST }Y TRON z- NOT CIRCLE Z TRON MOTOR  SCREEN ) DEF k DIR POKE l($f0)>!Z RENAME LIST & KILL =*($ec)Z=` ELSE P LET AUTO X PSET 'y RENAME SKIPF CAb^(O!xf($f4)q CREATE READ 1 LLIST d` SCREEN GET ' USING ($ec) TO TROFF OR 0[B ERROR CLOSE hr ON V PLAY H* RENAME POKE PRESET * EXEC `" PLAY TPi DEF = POKE READ CHAIN ($ee) GO  LINE NEXT /BlhdqZT($f2)# DRAW *Gem" LET Dp CSAVE ($ed)J DATA p> REM REM line numbering breaks here! REM wehH($ec) RENUM u($ea)# PAINT 1f COPY CSAVE P LET > OR M4 VERIFY DEF >hB; DLOAD DELETE  OR ) DRAW & ON ,($f0)S RESTORE F SREAD 2# PUT IF E LLIST RESTORE " ELSE vA DSKINIT POKE REM x? NEXT INPUT D# CONT ($f0) DSKINIT DSKINIT HbT BEEP n FREAD kX EXEC ($f0)A] NEXT POKE REM ($f8)=p CREATE \ LINE (.Ggv DIR RESET hT TRON FROM C RESTORE PLAY TAB(p}](Qd SET LLIST 4m REM (< REM  OFF SUB IF AND V P8dv FB EXEC vq END  FOR END `($ec)($fd) PAINT  TRON k CHAIN f - PCLS  END { COPY  CLOSE 1  CSAVE F+J CSAVE RENAME CLOAD + CLOAD  STOP LINE (*X($f3)Fg# PUT EDIT DATA SUB WAIT READ i MERGE SWRITE N FLREAD RENAME POKE CSAVE Uq FOR REM ELSE T LET >(,($f3) GO / SREAD ELSE  OR ' LET PLAY <& EXEC - RESTORE PCLS  COLOR DSKINIT NOT  STEP VERIFY ERROR ^=N ($f5),`mv SWRITE RETURN P VERIFY T BEEP u/ FROM  END POKE ` LLIST B PCLEAR USING (AU SET 0AL COLOR b($e8) DATA CIRCLE ,kMs($ee)V DSKINIT PCLEAR Wn($f0)($eb) CREATE 5 GET IF ^ BEEP COLOR E($f4) SWRITE R DELETE ' PCLEAR 0N($f0) SCREEN z AUTO i8 E0}5 BACKUP DIM -E LINE d RETURN  SKIPF ($ef) y=V. VERIFY p TROFF 452  RENAME =A& OFF Z SWAP OG VERIFY GO ! FWRITE 0 CREATE SAVE LET Tb/T7^e @< DRIVE CONT USING X GET  PAINT *Z SWRITE PAINT ELSE T LET AUTO ( MOTOR FWRITE ($f9) CLS E($ec)' TRON SREAD T BEEP _dv@ LINE u CHAIN hS STEP * M0 DIR GO ($f6) > PCLEAR CLS g^J FWRITE ($f4) TROFF @($f1) CSAVE ($ec) LIST 4+= CL($f5) H($ed) SCREEN | PCOPY Zc' REM REM line numbering breaks here! REM =8jx($ec) MOTOR  READ USING ($fd)5 MOTOR ($eb)Pr*a5! AUTO ($ed) RESTORE TRON ($fc)g qxq TRON $a CSAVE V DATA O-g READ + FREAD  MOTOR BEEP '2S'Ay NEW 0 SUB p PLAY AND IF PMODE ($e8)($fc) BEEP *B8w POKE Pvz+0J.4 DSKINIT :L1 CHAIN p PCLEAR ON ($f2) ERROR Q/ CLOSE NEXT b($f0) PUT U3P|a OR SREAD ";-P LET AUTO U REM gB CLOSE STEP ($f6) DELETE REM <8 DLOAD FOR NEXT BEEP AUTO X V BEEP SET C TRON LZ PUT USING * PCLS Mz CONT 'Ml($f0)($f0)# IF NOT ERROR b AUDIO He' STOP b COLOR LLIST SWAP REM CONT !Aj STEP ' FOR DLOAD NOT =2l2 DELETE REM PSET -3V RETURN c CONT '<.9($ee)7($f0) SWRITE *_0` PRESET ^ CLEAR STEP PB($ea)X STEP END PRINT RESTORE ! STEP TAB(O ELSE rar;+i LOAD R POKE (& CLOAD AND _ RETURN  PRINT ] MOTOR X{ STEP Hv$l RENAME ($f3) SUB -+R END =` ELSE oJFB ELSE ; TRON W EXEC SET i/ SET NEW @ END DIR ($ed)qL RENAME j REM ($f9) CLS E USING ' END RETURN REM RENAME CLOAD NOT Y`S^U# PAINT PUT 0 LIST B AUDIO @ RUN LET Dv AND T ON ? FOR k($ee) RENAME ,X FROM BACKUP FOR = SKIPF V4 AUTO END  POKE 0)1 7545 REM UEv. PRESET PLAY DELETE CLOSE CLOSE LET CHAIN f($f0) DIM 90G"($e8) @+($ef) CLS COLOR G| NOT KILL pY AND CLS r SCREEN )F KILL Sx&3 COLOR J2< PLAY PCLS r ELSE ($ee)2# GET /#V /T SCREEN \f I RETURN PLAY DELETE LLIST  DLOAD C INPUT L OPEN REM 9 KILL !~ RENUM M($ed) EXEC OFF Q} CLS q DEF +4 )0ZEt TRON DELETE DATA AUTO P\e AND S CHAIN CLS LLIST @[(1P($fc)^ LET Dv>xeE EXEC SREAD CLOSE AND ($ee))8'-' LOAD LET LOAD (~# SUB */< LET /2 FLREAD `" DEF >p ON 9 CLS E}t#Z AND #"($f7)O  FWRITE Gg DELETE ` STEP T LINE NEXT ($f2) EDIT p PCLS DIM + PCLEAR H!P($ee))8im DEF *($ec) NEW " A  ` LIST PRINT ' CHAIN  CONT ($f0) RESTORE EDIT Xb CREATE SCREEN iP($ed) DIR ($f1)+ NOT LET OR PA/ SKIPF OR PLAY RENAME LLIST i8($eb)G! USING ($ea)Z($f2)y REM NEXT ($f2) MOTOR  CLOSE u PCLS NOT q FREAD LET ON KILL P($f2) CHAIN !\ IF ($f8)<$^ ON ($ed)!|vP DIM IF H($ec)($f1) PUT * ELSE r ELSE ($f2)&+) SAVE !r REM SWRITE CIRCLE TROFF 8 EDIT FN RESTORE 8$($f0)4 BACKUP DIM  DRIVE  ON Hd STEP CONT nGe VB CONT 0f READ TROFF f($ef)J RESTORE ?4 READ ; CSAVE e<kY PUT MOTOR - DELETE M DATA S dGm/\ EDIT BC. VERIFY ELSE v PLAY CLS SCREEN p< PRINT b VERIFY CSAVE ry RETURN AND  RETURN s AUTO  ELSE A($e9)C RESTORE E($fd)t 17997 v TRON E  IF B2;; DELETE Gg FWRITE a) LOAD LET DSKINIT SET A ON ($ec) CLS +8Es ELSE SWAP N($fd) IF 4 VERIFY P OPEN PAINT m(NGqS RESTORE 4 END SREAD REM DEF -eg!~ ON  RESTORE FS> CSAVE ($f3) OFF B($fe) ON C CLOSE CLOAD ($f0)I NOT SWRITE TRON SWRITE STEP ( OR EXEC AND +"l*($fb) E($ec)($fc) BEEP " ELSE vAzc CIRCLE y2 CLEAR +\_ DSKINIT @ LIST a RENAME ; RETURN ERROR SREAD SREAD RESTORE ^m DATA U AUDIO RESTORE PRESET REM Dv@ END END ($e9)Y!u;/@v@ PSET REM 2($eb) EXEC ($f7) SET # PUT EDIT ELSE GET # RUN ;K RETURN ! FREAD d7j COPY DEF K SUB + AUTO X& STEP  MOTOR c(0/^ TROFF H BEEP *4 PCLEAR 1P($f5)g ELSE iW^e SWRITE JsP DIM IF H($ec) GET  AUTO  OFF DLOAD  FWRITE STEP " CONT J TROFF By SWAP STEP NEXT ($fc) PUT r SET  REM jp CLOSE INPUT COLOR A} RESTORE 3'0 RESET DIM ($f0) RENAME P> VERIFY ` d TROFF B PLAY ($ed) TO & PLAY CONT BZN  SOUND DLOAD BEEP >=($f4)J NEXT COLOR VA l BEEP LET OR P AND ($f4) PSET  TRON |!5 EH($ed)&  SAVE SCREEN RETURN  CLOAD  USING  TRON GdL4 USING ($fa) SUB  SKIPF RUN < PRINT ^($ef)< PRINT g SCREEN FN LET Y PSET & SKIPF SAVE *+( VERIFY 7# PAINT ($e9) LLIST ^\b($fc)A($fa) NOT LINE POKE EDIT p PCLS ($ec) SUB  AUTO  LIST XMGb FROM PCLEAR FOR > LIST SWAP ,| AUDIO VERIFY  OFF )N($f2) COLOR U FLREAD REM DIM Y REM a LLIST 4m REM .i PRESET OFF 7# PAINT REM REM line numbering breaks here! REM PAINT  ERROR ($fd)t RESET SAVE NOT NOT F($f3) END  CLS AUDIO )f WAIT b DEF 8<pM+3 ($f0) RESTORE ^7< TAB( /DvvN0 CLOSE BEEP S q/ PUT CIRCLE > SAVE <2 LET { LET M DLOAD c1P($f2) SWRITE PSET a5!e CLOAD P($f7) DIM OFF CL STEP H($ec) SAVE ((t ELSE AND Yf DELETE PSET # PAINT b COLOR (>w SET < SKIPF P POKE > DATA SKIPF # ELSE ($ee) END HM) READ B VERIFY - FN  BEEP `>7# PCOPY T> NEW @P PRESET `aM3 RETURN 2 BEEP a TRON s@ LINE NEXT $($f0)Cd# DRAW ($f6) DELETE REM l($f0)^ f COLOR U TO t AUTO P NEW *L IF 9mCj*; STEP OPEN Y TO 3# RENAME CLS [($f1) DELETE LIST 0x PLAY  LIST + END DATA REM 0y NEW Y($e9)M) PROTECT A EXEC K OFF s OFF @2 DELETE REM DRAW DATA p MERGE NEXT  STEP FWRITE (Gms SREAD  RESTORE WAIT b FROM NOT R COLOR 0p6 SKIPF NOT n/D* AND R COLOR SREAD S(^a# DIM 2 COPY 5(O"($f0) VERIFY 2 NEW ELSE  TRON w AUDIO r;.=bM SAVE ON J*Gd COLOR J EXEC \v IF SREAD RESTORE - TROFF CLS CLS Ef#M READ k # GET ($f5) EXEC ($f9) DLOAD Bhv&!s MOTOR POKE  SREAD ($f4) FROM @Q PCLS EXEC  TRON n BEEP CLOSE INPUT ON ,< TRON w LOAD LET DSKINIT  SKIPF _Mi WAIT Z SWRITE b DEF DN  COLOR Z AND ShHC GO  SCREEN FWRITE C DIM +!B($eb) EXEC ($f2) SET 0 PROTECT x& LIST (N($f8)= STEP STEP ' REM 5K DELETE REM ($f6) END DRIVE B SOUND ELSE vr INPUT @ BOOT CONT " PUT / COLOR ^ T TROFF CLS TRON FN p( SUB H CLEAR s CLEAR CLOSE 1= CLOSE FOR FWRITE 0\ SAVE < LET ERROR DIM L DIM 0<: ELSE FLREAD  RENAME l,_g<*^ TO \R END T($ec) LOAD TP MOTOR PAINT DATA LIST ;E0 DIR SET / POKE ,r($f2)` RENAME 9xRk2*FY POKE l+ PROTECT LIST FLREAD Gd AUTO LIST FROM CIRCLE c SUB  POKE ( SWRITE TAB(@($fc)K OFF T7i ELSE DATA CLOAD DATA SUB LOAD # PCLEAR MOTOR c PLAY PRESET 5($f0)($f0) EDIT NEW [y[ AND DRAW DATA d SWRITE CLOSE =q''($ec) RESTORE CLS N` LLIST  PRESET ~h&Z, NOT HW ON H MOTOR ; CHAIN t PCOPY LET STEP CLOAD W q BEEP CSAVE T BACKUP CLEAR DIM ($f3) LET j Z PUT 2-W TROFF c COLOR ^y> REM 1[V PCOPY \ STEP REM LIST &a($f3),w PCLEAR  RETURN A PUT TRON y NEW ELSE  TRON !9 CHAIN PCOPY GO RESTORE SWAP FLREAD +=jp AND ($ed)* COPY  SKIPF } IF Gr DLOAD c ERROR ($f3) SET  SAVE / PRINT +*g =J FREAD + REM ($f7) PRINT @ LOAD u NEXT NOT LINE REM ($f1) DATA 0 NEW  COPY TO GET GO AND e LOAD KILL 2 RETURN FWRITE ($ec) VERIFY ($f3) GO * STEP ($f3) SKIPF L LET AUTO em CLOAD ($f9)P READ SET SKIPF DSKINIT PCLS LET *>($f9) NOT ($f2) PLAY AUDIO -B TRON DELETE CLOAD FLREAD ~($f0) STEP 9 TRON DRAW OFF EDIT NOT *(]AM REM PCLEAR FOR B RENUM GO ($eb) DSKINIT TRON G[>< EXEC  CHAIN SET ' LLIST ($eb)0Sk END COLOR ^7 ERROR ($f4)9R PLAY 8($eb)<5 OPEN NOT PROTECT (^($e9)<jn.A SOUND 4 PAINT SET  TROFF O PRINT = KILL / FN `>*P~i CLOSE 24 STEP FLREAD RESTORE STEP L>i CSAVE DIR ($f2) REM REM ERROR COLOR BACKUP qY POKE T8 FLREAD P RENAME *a\ COLOR LIST CLEAR PRINT xC COLOR LOAD TC{ ($f4) EXEC KILL | STEP REM TROFF Xb* CREATE 0 LIST B SUB +($f5) BEEP  RESTORE ($ec)/ PROTECT s 19034 COLOR FROM PAINT 1cxNx9&+\u7 IF A SCREEN / ON ,W0'! SET (N RENUM M&(.  LINE OFF w/ REM REM line numbering breaks here! REM SAVE  CHAIN * DIM ' NOT |.*+ CHAIN * DIR MOTOR REM ($f7) 31564  RETURN FWRITE 4$'iP LOAD r/ 52247 ALi RESET -* LLIST p# PAINT g PROTECT x)xQ AND nGe COPY 4;  CLOAD U LIST CLS STEP SCREEN A END  LOAD ($ed) RESTORE > COLOR b MOTOR READ AND ($f8)'@ PCLS ($f3)As@ PRINT *L IF F READ  JwAzUI ON ($f8)( PLAY DRAW By PAINT _@8 PCLS SCREEN :L REM S OFF Y NOT ($ee)!R IF +Z+ IF *t LLIST 4 STEP ,P USING ($e8)($f5) SKIPF d RESTORE TAB(l GET F($e8) ERROR Tec FROM DEF ,> ON J DEF STEP END DATA DATA KILL V CLOSE GO 9r SET  TRON l COPY LIST J --F`5 ERROR " DELETE LIST J NOT SREAD |R^I STEP '/= END PRINT ($ec)+Z RESTORE F($f8) X T5 CLOSE RENAME aMr WAIT  FREAD ' PRESET ($fa)SAB SWRITE 0J ].LT?1 CONT t* EXEC -]1b MOTOR ($fc) RUN 53465 *6 LOAD ^  PLAY SCREEN a GO COLOR ($ef)M* IF P* PMODE SKIPF E(Gg PSET 8<2 STEP HpA~ SKIPF 0Z IF SREAD PSET CONT PCLS ha NOT ^ BEEP CHAIN STEP . ELSE v LOAD SB DIM  PLAY E($f6) GO /` TO POKE 8 AUTO G DRIVE LIST AUTO T5` PCLEAR *'x STEP END PRINT SREAD ($f3) TRON THEN FN RETURN COLOR e CLOSE 8 ELSE DSKINIT F VERIFY v PLAY PSET _8,*[ CLOSE SAVE DEF E) DEF U($e9)hfB= GO RESTORE PAINT T FOR FWRITE ($f9)q($e8) POKE DATA ! CONT r< DATA VERIFY v CLEAR R6Z4 PRINT zUND9 VERIFY * LET SWRITE v OFF ($fe)b MOTOR VERIFY ^";HPU SKIPF <' CLEAR :f LLIST K1P($fc)FA DSKINIT ! PLAY SCREEN # PAINT  BACKUP EXEC SAVE [ NEW FOR FLF VERIFY v> PRINT NOT T$(:($ed) ($f3) FROM  RENAME C CSAVE w SWAP TROFF ( OFF 7# PAINT ($e9)P DRIVE p CSAVE UE@^)/ RESTORE PSET P" ELSE vApLt CLOSE +p AND Sb CLOSE BEEP ZDvy MOTOR ($f5) DIM COLOR M LLIST *0\i< READ N LET AND ($f8)q ON  CLOAD ($eb) OPEN GO PUT MOTOR R SET a* REM REM line numbering breaks here! REM WAIT A RESTORE =L WAIT 8& OPEN + REM W SCREEN B DSKINIT STEP }t RESTORE XH CIRCLE AND PRINT 4 CHAIN COLOR SET S STEP SWRITE $(FXW STEP B+08 IF W8s# PAINT NEXT FREAD * CONT CLOAD C# PLAY SWAP *R MOTOR 7,` FOR (9 AUDIO R PMODE  LOAD LET DSKINIT  FLREAD GO ELSE IF vA|($e9) AUDIO l($f4)Lv PRESET 3'; PRINT Y REM ($e9)8U: CONT SAVE DEF  MOTOR LLIST 4 RENAME DRAW DATA w FROM PCOPY SREAD POKE # PCOPY RESTORE CLOSE OPEN l NEXT  CLOSE ($f0)ZX IF PCLEAR CLS &p2 REM IF n(zc0 CLS RESTORE EDIT - TRON e END CHAIN d RESTORE CIRCLE c NOT r($f0)'p FN X BEEP p CLOSE SAVE /a SREAD ( KILL kC COPY A FN Z ON  DIM 4 LINE iU CIRCLE CHAIN TROFF J0V SREAD DRAW CLS POKE a} FWRITE !`S REM l GET STEP E* OPEN ($e9) DEF e ($f0)&+ ELSE ($f0) AND u AUDIO * x DELETE sN! CHAIN em CSAVE L REM PLAY + RESTORE .-` PRESET ]1 FLREAD ($f5)@ END  ERROR SREAD AUDIO PAINT END  PCOPY TO CLOSE  RESTORE E($ec) SWRITE PRESET ^PR AND CIRCLE POKE  ($f0) NEW FOR ,($f0)QAjT PUT USING : ($f8) CONT ^06pI SKIPF :P^ BEEP 4M= LET PRINT  AUTO DATA FLREAD ELSE v PLAY VERIFY BEEP PCLS COPY `r SOUND Jx?-'0 DLOAD b SKIPF -'K= MOTOR =($f0)z RESTORE SKIPF 1 GO PCLEAR wY AND ] STOP  RETURN 6 SET  PSET PLAY CHAIN  DIM REM 2# PUT IF - B IF INPUT @($f7)($ea)X STEP END PRINT ,A4 IF p CREATE ^ DIM IF ($f1) EDIT wLa CLOSE IF ($fd)t POKE S  SWRITE y DELETE  OR <5g TRON AUDIO ( FN OR / CSAVE d CLEAR CREATE EXEC e8o ELSE IF = LINE END P FROM AND #";J`#!N RESTORE `>9 AND ($ed) LIST  FOR TRON H^a' CHAIN PCLS - DLOAD ELSE TROFF \a SUB e DATA 3,dv RESTORE PCOPY C/ 13475 E ERROR a( SKIPF 5 CHAIN qP TROFF  CONT LET AUTO qP END END 2 NOT RUN ($f6)# PCOPY T BEEP {O PRINT r ON x LET MNJ`| FROM  RETURN KILL !Qz CSAVE ELSE e[ END ($f5) CHAIN yO# GET ON +V RESTORE A($ec) ' PCOPY >^ RENUM MH($ec) TO ON 1 SOUND SUB RENAME ;k CHAIN f $< PAINT  LINE END RESTORE  SKIPF <5($ee) SAVE  SCREEN FN  PCLS ? ELSE * CLOSE < DLOAD m FROM ]G AND C&($f2) COPY  CLOSE EDIT ($f3)@ LINE  FWRITE +aW CLS STEP ($f4)b($f1) END L COLOR B!# PAINT `($f6) CHAIN  NEXT DRIVE CONT USING /dv VERIFY Gmz($f5)B9 LUH($ed) PRESET SET STEP QL_ FN CLOAD ($f2) DSKINIT hg CLOSE # PSET RENAME USING G SREAD  SCREEN  LET >Gg! FWRITE FLREAD RESTORE FWRITE ($ec)($ec)K LET BEEP 3 > POKE DELETE LIST ($ec)X CLEAR `bT8Mz+` READ ($f3)) SAVE z LIST 4 PUT TRON , RENAME STEP XNA BEEP '";i SCREEN a ELSE END s* CLS TO MOTOR Zh2 ERROR * DIM DELETE zoJ LOAD CIRCLE GO ^'rl2($ef)]/($f8)dGii^TZ+ ELSE CREATE Zm" LET Dt BEEP WA PCLEAR HL EXEC l5 USING ($f8)<# GET ($f5) SKIPF b($f9) RESTORE ($f5) DIM COLOR L RESTORE ($ea)x($ec) MOTOR # PAINT (M SWRITE ,vR FROM ($ee)L@= COLOR PROTECT x#!z BEEP 5 PSET & DIM ($f1) AND #z VERIFY 2# PUT TROFF CLS AND _ CSAVE `($f9)($e9)YdGmG ELSE AUDIO , NOT VERIFY ) EXEC SAVE [ PCOPY LIST  END i CLOSE IF ($f6)J CHAIN CLOAD VERIFY Gl IF 0r*a) LOAD .M IF SWAP IF *J RESTORE ($ef) CIRCLE rZN CLEAR !a WAIT ;H_ CSAVE J PLAY HR COLOR g CLOAD g!Sq AND R POKE #'d DATA ;Q AND nT TROFF ERROR SREAD DRAW END d RETURN  RESTORE DIM PS Z CHAIN `R MOTOR FROM VERIFY .  SET S'Q DLOAD P BEEP NOT * EXEC  PLAY ;d SUB FDv RESTORE SKIPF ($f4) ELSE VERIFY M ELSE EDIT DATA FN  FLREAD ($fe)  CLEAR  SWRITE I CHAIN FREAD k8WZc - MOTOR < PUT USING ($f9)jP NEXT BEEP MERGE DELETE  ON O PCLS COLOR T FOR oM ELSE ($f0) CLEAR X> RETURN { DIM IF z CLEAR 0b MOTOR LOAD #, DSKINIT @ DIR PCOPY B*):X CIRCLE ELSE ($f7)=' PRINT  SREAD ri SCREEN ;6 CIRCLE *($ea) FWRITE ($ec)B;jS@ END  FWRITE ($eb)N$($fd)g REM COLOR K y ELSE Vx) FOR LET DLOAD REM E&+ REM r CLOSE V STEP AND ($ed) TROFF FN 8=3 TRON DATA 48 TAB(i RUN 0my<' OPEN '($f3)# RESTORE TO NOT ^ POKE E NEXT ($f2) MOTOR  CLOSE u SCREEN $"C LLIST ($f4) CLS RESTORE PCLS 9 ($fc) REM REM line numbering breaks here! REM ^ COLOR ` TO dT;($f4) /T LINE S TO REM 7 PSET ON ($ed)) SAVE # SAVE TRON OFF j|@ FWRITE ($f6)($e8)S DEF 8+D TAB(VB OR DATA PSET ($f0) OPEN SWRITE GET '($ed) OPEN LIST P SET X OFF DLOAD  SWAP FREAD x7b^ COLOR ($ee) FREAD o RENAME  AUDIO NOT LET FWRITE O DATA [R RETURN RESTORE = DLOAD D CLS HT PRINT 96GlJ OFF w! BACKUP v RENAME X FROM RENAME #y SAVE s FB PUT FROM  KILL ]- GET H REM PAINT STEP -!& SOUND ($ec)X OFF k=^ RESTORE ERROR INPUT 7 CSAVE NEXT LIST MOTOR /a& RETURN KILL *($e9)]*($f0) DSKINIT |!P0rA\($fc)'XM AUTO !V ERROR ~T CLOAD 4 ($ea) CLOSE p@ END DIR E RESTORE LET OR < NOT E PRESET GET {Odd SET `# PCLEAR  NOT y STEP ($f4) CLOSE U DELETE ' SCREEN .0 TROFF 12994 D BEEP `($ed)+ NOT LET FWRITE X?4 SWRITE CIRCLE T# PAINT N DATA B EXEC ` REM DIM @($f5) EXEC ($e9)l88dP OR NEXT  FROM I RESTORE AND pQ!V,\D CSAVE  BEEP PSET ON +P END S SCREEN POKE B;$ OFF Q NEW * PUT DATA SWRITE CONT ($f0) NEW zW CSAVE  DELETE ($f5) IF J CSAVE  PCOPY ' LIST ]) SAVE r PROTECT a NEXT \#r;\P PSET s-2i' BOOT END  DSKINIT ` PROTECT 9 KILL zaz BOOT @T AUDIO SCREEN DIR COPY R PCOPY =/ CSAVE W} TROFF H($f9) LET VERIFY v PROTECT d`#+ * FLREAD ($ed) COLOR WY USING 5< PRINT Zc8 CLEAR )I BEEP >! USING j STEP ($e8)($f3).!XM)b LOAD CHAIN AND .2 EXEC ($e9)b~[` NOT POKE FOR SWAP PCLEAR (M($f6)($f2) AUDIO  FLREAD ($ed) MOTOR DATA DRAW AUDIO ($f4) DEF  TRON SKIPF 4 BACKUP DEF  DELETE  NEXT E($ec) POKE EH($ec) CONT LINE  PSET ($fb)e8E* FREAD " ELSE vI ELSE AUDIO ! DELETE `($fd)($e9)^wt PSET '+[`2* ON R POKE SKIPF NEXT Oql COLOR \($f4)t CLOSE * EDIT (MyA PCOPY EXEC ($e9)l PCOPY T LLIST - ELSE PRINT v(5KH RESTORE ON U NEXT ` LINE V DLOAD { PMODE  OR COLOR = OFF T=+ ELSE T LET NEXT C DSKINIT AUDIO OFF 0p LINE SWAP J REM PCOPY STEP 0 DSKINIT TAB( OFF TO WAIT READ *w/ COPY  DELETE a\ IF OFF TRON ,($fd)`v DEF E) MOTOR ^) NOT SREAD ($f3) STEP { ELSE r SWRITE L $ STEP DEF + NOT S8Za#P4 FROM A]($f3) GO ($f0) LOAD V EXEC l LIST 16610 LLIST NOT 9 PRESET * KILL ` DEF ;EA DSKINIT BOOT TO PCOPY ($f2)(bF($f6) IF a PCLEAR 3 Tu/ IF PUT ' REM O LINE # RENAME ($fb)($f3)@ END AUTO B POKE DATA REM PRINT +( VERIFY /I NOT Q ON +P-] TO '^ PRESET DATA PCOPY TROFF B FLREAD ($f6) IF b GO Y CSAVE LLIST USING ($f6)F\gF FREAD ($fa)q LOAD V5> SOUND SUB a9 PRESET TROFF LOAD DSKINIT hw FLREAD EXEC v ELSE + COLOR PSET = TRON K AUTO  ^" CONT e PUT "* PUT DEF CIRCLE FLREAD PSET Y REM ($f7) ELSE ($f9) IF u FREAD DELETE C LLIST KILL "^Y PLAY <($f0) DSKINIT >3 Up CREATE RENAME ($f8) COPY >T EDIT '` OR PCOPY R TAB(l PLAY 9 RENAME ($ed) PCOPY TO RESET RESTORE E^Z($f4) GO +V PSET .)K>xb#($f3)($ee)M PCLEAR AUDIO BEEP ($fc) SUB ($fc) EDIT FROM RESET LIST 5 DATA ERROR ($f1)p CSAVE RESTORE GET CONT OR COLOR y REM SWAP Z TRON AND BL DEF =# DATA PLAY FOR DLOAD b DEF RENUM  PCOPY LIST 8N RENAME ($fa)SA DRIVE / END  FWRITE STEP *($f4) CLOSE * MOTOR ! CREATE & SWRITE TROFF , NOT Gy RENAME DLOAD + DEF W FOR TRON MOTOR Vx& SWAP  TROFF b RENAME x AUTO SKIPF A AND SAVE ; BACKUP 0e RETURN KILL *]@57 DATA  DRAW K& ERROR V|A6 ELSE RENAME l RENUM W PRESET B;3 NEW 4 SKIPF CLOAD  LIST # POKE 4' SWRITE <>e- SWRITE DELETE -J= PRESET + CLOAD y END COPY RESTORE V T7 ON u1 ( SWRITE R VERIFY MERGE EDIT REM  SWRITE R< LET J RENAME LIST # FLREAD  NEW @ LINE RENAME Gg6& STEP =t. RESTORE DEF ! SREAD AND + DELETE ;#l($e8) OR ($e8)B NOT x PRINT ~ COLOR d,X TRON iJE4 PSET R^ CSAVE COPY STOP `, STEP NEXT j NOT - FOR FWRITE ($fa)x OFF hT DEF ! TAB(?} INPUT 'ZF`($fc) BEEP \ CHAIN 0 STEP  SOUND <C^A PRESET ^ TRON &F($f1),_ PRESET ' USING ($f3)H, FROM LET / REM REM line numbering breaks here! REM PROTECT 2 SET 9Gb($e8). DLOAD NOT MERGE PCOPY P FOR PCOPY SAVE ^^# DIM PCLS y SAVE s AND + NOT r AUTO REM >+ PROTECT  DIM FOR [p TROFF THEN x` GO b GO ($ea). /`ND REM RETURN FWRITE ERROR  CIRCLE C,w ELSE SWAP REM T EDIT q]3|5g PRINT  IF /XK NOT 2 END 1P($f2) ELSE WAIT  CONT #!R;8'S SET B RETURN AN($f4) PCLS m'($ec)B;\ NOT F SREAD FROM ON Jf SAVE ( AND T LET OR CREATE CIRCLE 'A OFF DvC PAINT P VERIFY /J RESTORE 6 DELETE ' TO ($f0)z'($f7)& FREAD Z;k SKIPF CLS OR GET 9 CLS SUB Hv PLAY G! DLOAD  PCLEAR DEF ?@ CLOSE +^ RUN  TROFF d2($f0) SOUND SOUND PSET @2 STEP 3 SREAD r- END ($f7)xF ($ec) } CSAVE  FN   NEW !($f2)o- x ELSE PRINT ^a SCREEN 3VLR CLEAR +I CONT DEF SOUND CLS MOTOR D5 ON SUB GO b ELSE vr DIR RETURN COLOR DRIVE DRIVE  CREATE DATA  ON d: AUTO h]H# LIST FX+a SCREEN |P+ DIM ON ($ed)) FOR DIM IF ($ed)y RENAME DATA . ELSE ($ee)2` SUB * SKIPF READ SAVE = SWAP REM CHAIN t CIRCLE c ($ef) ELSE PUT # DELETE REM ' CLOSE  CIRCLE M^^LP SET DRAW \ RENAME QZ SAVE | RENAME Q LOAD CREATE P LET OR 2;;iP DIR RESET +aW<,($f5) 6 AND W06V*($f0) SET Z ($fa) END l OPEN PCOPY ($f8)xL.($fe)Xk LET GET MOTOR ($eb) RESET - CLEAR CLOAD NOT > CIRCLE ($f1) END C TRON ($eb) USING NOT BEEP ^p8 FN t6q~($f4) EXEC u SCREEN SOUND  VERIFY : GET ($ec) REM ($f9) ELSE & SWAP AUDIO 8($f9)q LET LIST ' MOTOR -7 PCOPY S STEP AND `x'< PRINT OPEN DRIVE dn ELSE FREAD >B; ($eb) DSKINIT A/  POKE & RESTORE TROFF WAIT }+ RESTORE FE CREATE CIRCLE ' SWAP k BEEP ($f7) PRINT  DATA SWRITE ~ GO TO ($f0) LOAD NOT Gq AND OPEN R DLOAD PRINT Y STEP GO J DATA FROM h0e LIST  ELSE ' NOT oE EH($ed)< DSKINIT @ TO ($f0)F STEP ' ELSE w*t*($f4) MOTOR KILL S EDIT MOTOR SA DRIVE GO TRON SREAD &  COLOR M* READ SWAP IF /D- CLEAR  RENUM  ($e9) CLS SKIPF zC DIM OFF SWAP ON p CSAVE ($ec)T> BEEP RESET a> LIST OFF Ax PROTECT DLOAD /DvAn2* SWRITE ~ FOR FROM  GO SUB & ON ! STEP EXEC STEP r;;C DATA B FOR DIR ,E SAVE LET `J PRINT PRESET 4 COPY  AND # RETURN P($fb) PCOPY PRESET 9C DIM OFF A ERROR B($f5) CHAIN * BEEP _A zD CLS NOT CONT BEEP o<.`# FROM DIM *G q FOR LIST (O ELSE ($f0) AND # RESTORE DLOAD D PAINT ELSE COPY RETURN 4&($f3) CHAIN !x TRON LIST ($fd)($f4) OPEN H PRINT 4 FROM - FOR r OFF ($ed) RESTORE OR END PRINT OFF  RENAME *A END SAVE ";V MOTOR  SET ! NOT dGeB COLOR TROFF i CSAVE ($f5) PRESET CLEAR CREATE # PAINT CONT  CLEAR PSET 9lX($f6) OFF S SKIPF COLOR Q RETURN Dtmv SUB CY COPY z GET OFF CREATE ; OFF i COLOR F PUT 4 CSAVE '@ RESTORE PLAY 3 CONT FLREAD T7 EDIT  LINE X(r BEEP R PUT MOTOR ($eb) EXEC SAVE T!o(* OR ON py RENAME SWRITE TRON jT BEEP _L($f5) DELETE ` STEP W CHAIN LINE : RENAME " COLOR ($f2) NEW (Mtj, CREATE i=h[A AND  ERROR PUT COLOR  SREAD RENUM g!($f2)($eb) PCLEAR W ELSE WAIT ON A CLOSE  DIM REM 7 SCREEN C";( IF /E BEEP 7 SET  END UB*Gl IF EZ LIST STEP ($f6) GO *= CLEAR CREATE CLOSE B FN #* LOAD #q RESTORE TROFF ByF CLOAD VERIFY C SET S+! TAB(($f1) AND LET CHAIN SKIPF ($f4);?* RETURN GET DIM # ELSE PLGd ERROR CONT iT LIST H($ec) READ  PSET RENAME jV, NOT | PRESET =f j[jT DSKINIT 7<+ VERIFY S|gF FWRITE OFF )Qq@ LOAD S CLOAD  SAVE TROFF ($f3)v< TO DLOAD ($eb) 5 CLOSE jg G>z* STEP * REM AUTO @ SOUND SREAD CLOAD COPY INPUT L REM PMODE A RENAME q VERIFY /g SOUND g ERROR # FROM DRAW 8 CLEAR :($f5) DATA -J SAVE TROFF Z^l CLS /XbZ TRON ($eb)K PLAY g AND CLS r/ SREAD RENUM  CLEAR p ERROR z($f1) CHAIN # CLOSE P PUT ` AUTO z RETURN COPY A TO ($f0)q MOTOR VERIFY . AND ( STEP # PCOPY DELETE \t FROM F-7e TRON  SREAD @l LLIST )Zh>G SCREEN ($f4)< LET ERROR ' DEF  SUB i CLS PLAY CLS O PCLS CIRCLE f EDIT ! AUTO ;-mB;jT5s# DRIVE d`($f4) EDIT 0 SCREEN B($f8)kL RENAME CREATE FROM @(k]i KILL QQ} TROFF Py+Kl KILL LET PRESET LIST  INPUT :X CIRCLE ELSE ($fb)O t{ OFF CIRCLE RESTORE ($f9)S RESTORE ($eb) RENAME .Z+lh ON ? SCREEN GO SCREEN 4 ON j GO  LINE m ON E($ed)qI RENAME REM ($f5) REM ($f1) DEF - TRON 8 LOAD d>* STEP x LOAD dX LOAD ($ed)z($f0) RESET i SAVE PLAY WAIT CLS J LIST AND P MOTOR SCREEN USING PUT ' CLOAD c LIST 'Ka PLAY SWRITE NA TROFF A REM B FLREAD T; STEP REM 7 COPY =h# DELETE z($f2) MOTOR GO PCOPY B LIST m 2! BACKUP '; CIRCLE 1061  RETURN ERROR L* CREATE n DLOAD P($f2)($e8) SKIPF w EDIT  CLEAR CLOAD ($ea) STEP  ERROR < CIRCLE r*a; BACKUP ( END g LOAD OPEN ! AUTO ($ec)X= OFF T; IF AND ($ec) RENUM f CONT 9Br DELETE ` DIR +]& AUTO >U DRIVE <$/4 SET v B!!]($ec)T; END R PAINT ,a; CHAIN C,5 SREAD VERIFY = TRON UH($ec) AUDIO SCREEN ;B CIRCLE PLAY CLS V BACKUP q MERGE ' GO P($fc)^ B DIM PRINT X NOT LET AM* MOTOR # PCOPY B GET #` SOUND VERIFY p CLOSE RUN  LOAD eR SET  OFF L > DATA SWAP - CSAVE ' ERROR D MOTOR AND CLS b SWRITE PRESET CLS k CIRCLE TO '< CREATE CIRCLE 'B FN y9 ERROR ^b MOTOR ($f8) OFF ~ COPY +-nG* LET Cr;( CLS SWAP !r FOR CIRCLE b FOR /C+RiBw` AND TRON } DATA A FWRITE ($fa) CLEAR !q{C2B9Bya CONT ($f0) AND n STEP TO w ON ($ed) SUB *VB($f4) DEF Hu DEF @*($f0) CREATE SAVE DEF e ($ee)*C AND # RESTORE AUDIO  EDIT ' IF prm TROFF :[ ym CONT , AND P4[h BEEP FREAD CLS IF READ )= PRINT FOR PMODE ON WAIT COPY , CREATE 8NU PRINT - NEXT  NOT <0^A^ FOR ($eb) BEEP DELETE GET { ELSE SWAP " GO ($f9) PLAY OFF SCREEN S CLOSE 2# PCOPY ($f4)< TROFF YPq EDIT }' Hu LLIST 5< PUT USING ($e8)$(* LET TO LINE j!M= TROFF c* SAVE PCLS  INPUT q DEF o REM PUT  TRON |4 EDIT (6 FREAD =a INPUT w($f0) SREAD IF LET PROTECT M COLOR NtJ TRON PCLEAR r LIST + SAVE CONT SWRITE OFF xjC PRESET ' RENAME v EXEC ($e9)l5hw' IF ^ INPUT CLOSE =Lv DRIVE : KILL fXjZ SET AUDIO PRESET \P' DRIVE ] REM REM line numbering breaks here! REM u@ END DIR ($ed) PCLS ?c USING )HV9 ($e8)qJ ELSE 9 VERIFY ) MOTOR N$vZ NEXT d/ DIM  SCREEN )8 VERIFY Jf PRESET 9\W DIM " ELSE --;G GO  STOP NEXT J LOAD R COLOR ($ee) MOTOR MERGE OFF PCLS LLIST  RESET PSET 1 CLOSE r ($f0) PCOPY < PRESET & EXEC RENAME | DRIVE LLIST CHAIN CSAVE [f_G DRAW  LET OR R VERIFY PUT ($ef)v FWRITE 47 ERROR CSAVE 9 SET p8 LOAD *7! FWRITE E NEW TO REM 2 SCREEN  OFF B FOR CHAIN # / SWRITE ";/@ TO R CONT FLREAD DEF  FWRITE ($f3) GO DATA LLIST  SUB REM * FREAD ($ec)JD" SWAP DELETE |B TAB( ELSE _ CONT  FOR FWRITE  SUB i\ CHAIN p OFF SAVE  CLS DRAW *t PRESET AND ($ec) CSAVE 4 DATA LGg PSET , READ ($e9) CLS LOAD P! LET AND V COLOR Wq CLEAR < CSAVE  END cJ RETURN FWRITE  POKE b0B ON ^ DLOAD ($f8) SREAD CLOSE > PSET ) CLOSE * FWRITE S RESTORE V CLOSE NOT DRIVE MOTOR  AUDIO @ SREAD Gn COPY OFF L Y;n FREAD ($ec) RETURN r= RETURN  RESET SKIPF  TO + BACKUP UJ KILL dBd SKIPF y AND ($f5)($f0) EDIT NEW H< BEEP ^ PLAY ;P4 LINE C. FOR PCOPY Z CLS "]g; END ($f7) SREAD  TROFF  CLEAR t($ee)kHV+ SKIPF b NOT " DEF +0 RESTORE PAINT ($ed) FREAD t CHAIN +H6C,+! DLOAD  EXEC }J m*s PROTECT a PRESET ;^p LET VERIFY v]*T BEEP R! BEEP 'NA EXEC ON ($ed)# PSET ; VERIFY r. GO RETURN  NEW @@ IF REM PAINT k RETURN FWRITE s FROM PUT  PRINT PMODE FOR EE NEXT 80G-{ }1&= CONT ($e8)M*` READ ($e8) LLIST a9 TRON T EDIT 5 LLIST ; VERIFY  AND LET OR `0 PRESET 4 PSET <($ed)*w AND COPY hol DATA ZO";(B7 SCREEN Q AND LET DSKINIT l REM 9 FWRITE  SWRITE EXEC ($ec)Oz` CLOSE >sI NOT AUDIO # DIM DLOAD _ RESTORE G";\e REM RETURN REM CHAIN  AND #*s AND # RETURN  PAINT V9 PUT END SAVE ";! LIST PCOPY m OFF SOUND CLOSE CLS Q RESTORE DIM COLOR < CLEAR p NOT " PUT FROM EXEC RENAME STEP *C NEW p SCREEN SAVE  AND ($ed) PLAY PRESET @GJ ELSE NEXT  PROTECT 76 LOAD # DLOAD  PMODE R:b*C TAB(,T? FOR SET RENUM Be CREATE REM )X DEF " MOTOR v LOAD # NOT T AUDIO ; IF AND ($ec) PUT ON . POKE @d PSET SUB + PUT #N($fc)2 CLS d7 AUDIO n7e+l CHAIN BACKUP CONT = TROFF c* ON F^ CONT V` CLEAR LLIST [#h0_ , DLOAD  ERROR U GO  SKIPF EDIT ^ MOTOR  COPY ON SWRITE R SREAD FXs LET ^ GO  ERROR MOTOR PROTECT ($f4)($ef) DLOAD TROFF f < DATA  TROFF USING jX($f3)]* BACKUP LET DvN RESTORE CHAIN lGe ($ee) LLIST NOT PRESET PCOPY ($ec) TAB(($f3) LOAD # DLOAD  TO g REM RETURN COLOR Ui^yV EXEC STEP PLAY VERIFY Gl DEF R LET DEF GET ($f5) SKIPF s~P PRESET 4t CLOSE ?. RENAME ($f1)sAq CREATE LET ERROR USING AND vq|57 SKIPF Te CIRCLE r LOAD \ LET AUTO (($eb) FROM ($e9) PCLEAR w DSKINIT U DRAW  DSKINIT PRESET +J06V* END  FOR ^: SAVE A COLOR DEF = FOR FROM   CLEAR  STEP Y NEW DATA COLOR PCLEAR 1 DRIVE DATA ($f8)|r DATA TO gMq END gaT LINE END ($ec)G AUTO INPUT ELSE B DLOAD DLOAD u,d PLAY AND s TAB(dX SCREEN # PAINT  RESET CSAVE B STEP x LOAD dGe PSET n(Z AND U EXEC ) DRAW * ELSE v FN CREATE BEEP A KILL X FN / END  LLIST STOP ` CONT ^ CSAVE `($f3) DELETE <($ee)z' LET MOTOR Q DRIVE BEEP 5! USING E STEP mz SAVE qN4 STEP  AND RENAME STEP CONT nT5 GET CHAIN 0 RESTORE ($eb) PCOPY SKIPF  CSAVE CSAVE S SCREEN POKE TO ($f0)Ne9 IF R`# CONT ($f0)AV PRINT 2;v SET =/ RENUM > LIST n*Gl IF E($ea) GO # PAINT w! DATA ($fb)+8Hu FLREAD VERIFY - AND PMODE f($f0)-$( BEEP SREAD S& OFF ($f3) xx TROFF qpH EDIT Xb < NOT E)j+ CLEAR FREAD ) DRAW 'K` REM PRESET "0F`r BACKUP RESTORE FOR PAINT kL+ FOR PRESET CLEAR RETURN D FLREAD RESTORE INPUT @($ef) DELETE i-!P LINE H TO (Pb($e8)  SKIPF _4 PRESET P IF PCLEAR \^ RUN >f STEP X CSAVE )' DRAW p DSKINIT 7 STEP ($f9)A PAINT  DELETE COPY  AND u7 DATA ! END ($ec) CLOSE s ERROR NEXT Zg,R MOTOR x DATA e DIM TRON e DELETE kY R COLOR pI TRON EH($ed)!ixA END DATA SOUND REM ($f6)A} CLS q DEF 9b TO OFF 2 STEP ($e9)>xa CLOSE 2 CLEAR .(@)' PAINT S`! BACKUP & LIST U PLAY MOTOR 10649 f^"/ FLREAD  END W BEEP CLOAD 0($ef) DSKINIT POKE STEP 1 STEP & DEF A OFF PCLS /($f3) LOAD Wh REM LINE + PROTECT [f\ REM SOUND POKE CLOSE + REM =( ($fc) CLS (@/R SWAP  OFF RENUM  DRAW xq DEF \V POKE REM c PCOPY DIM  END D LIST GET > X VERIFY 2;HAi($e9)r/($ed)< PCLEAR R4 DRAW k[nGm*9 FOR 6B POKE CLOSE =$ AND # RETURN  PMODE ($f2) SKIPF PCLS ($f2) NOT He RENAME G!L OFF DIM '& ($ee)7 TROFF b SKIPF 2hW DELETE DATA DSKINIT LINE  cx> DLOAD OFF i AND  SREAD TAB(N(J COLOR  RENAME ; RETURN FWRITE f(-i CREATE J PRINT TRON SAVE LET CREATE LLIST - REM 0d7,oI CHAIN FREAD -'qF PRESET ) AND + FREAD w SWRITE B LLIST OFF / ON NA l MOTOR < SET 49C DIM OFF A DRIVE B RENAME FOR DATA CHAIN IF REM ($f3) CLEAR NOT ; RESTORE ($f0)($f0) DEF CIRCLE ELSE SWAP IF ($e9)H AND PH\ MOTOR PAINT Bi SET READ CLS M CHAIN  ERROR @2*TeC TROFF @ BOOT COLOR ~hZ MOTOR  CONT vI NEW 0AN($f0) STEP SWAP - P0B DATA `m OFF ( AND ($f8) SAVE NOT R CSAVE V SWRITE !| OFF LINE 07 DELETE ;& RETURN READ *pI ELSE FOR S COPY  USING ($fd)tz CLEAR P END Q EXEC GiL DLOAD ELSE IF 0q@\P RENUM OFF k LLIST TROFF CLS FROM REM L0C.IC CONT ,+>Pm GO NEXT d PRINT 0 SUB n2# PAINT S`:X  PRINT #B ELSE ($ef)< FROM n+ TAB(h($f6)v($ed)C>a) DATA C-' ($f0)!b^ GET a KILL NOT 8O TAB( FOR TROFF ERROR SREAD AUDIO  AND U REM EC LOAD Rx! IF n PLAY FROM CIRCLE rJS CSAVE T AUDIO `AM*LT4 STEP ($fa)($e9) TRON TO "/qHq DEF - REM SWRITE ~($f0) STEP 8 CHAIN CLOSE BEEP *v ($ee)+^8( MOTOR u NOT LET >vZ RENAME STEP OFF x\W CLS ^x\ NOT FD FREAD '0 STEP ) BEEP * CLOSE TROFF VN($f4) PSET ] STOP   CLOSE IF jw CHAIN SKIPF SAVE * RENAME IF DEF \T($ec) CONT PSET MOTOR < REM B LIST DATA d PLAY & LIST IF REM AqL5g^e AND VERIFY + PROTECT LIST FLREAD RENAME DATA CHAIN  LOAD Dv RESTORE SKIPF T SAVE < ON s RENAME * LET S OFF D FREAD > AND X EDIT R8 IF R`" CONT COLOR @$9+:X CIRCLE SAVE ($ee)- CLEAR () PROTECT \\ FOR ($f1) 5 SWAP IF * SOUND  IF H($e8)B($f5)(W PMODE ELSE ($f7) STEP q(dw ON .t< READ r^! AUTO SREAD CONT CLOSE DELETE  DLOAD  SKIPF CLOSE  RENAME r9B STEP  RETURN x($f1) AND LET CHAIN  REM +Ydw LOAD P CONT N OR DATA RENUM bM' USING BACKUP  SKIPF '($f2) PLAY REM *E($ed) PCLEAR @H DELETE `m RESTORE DLOAD L TRON y < TRON hvy COPY DELETE SUB LOAD LET BACKUP 74 SWRITE Zs CLS ($ed)NN: RENAME ($f0) SWRITE 0|v y TO a' RETURN FWRITE SWAP HE($f3) FOR COLOR U REM REM line numbering breaks here! REM ERROR SREAD ($f4)($eb) DIR ($eb)I USING ^=(($f2)($f2)> COLOR SWRITE 0^ RENUM O) RENAME TO NOT 9 FWRITE s PRINT 0 SCREEN DvV, STEP 6P DELETE <($ee)/ USING ()' USING  BACKUP F RESTORE SUB Rj+ REM END @ ERROR ($fb)R RETURN PLAY DELETE CREATE AUDIO ] DRAW SWRITE /a! DSKINIT  NEXT SWRITE  CONT SWAP N 552 /Av SKIPF a1}&P SCREEN D-+ EDIT REM B PLAY kZ CLEAR ,a;($e8) STEP & SOUND DATA CHAIN ,^3 FU PLAY PLAY Br TROFF @($f8) CONT  SKIPF ON DELETE :T DIR REM REM line numbering breaks here! REM >) DEF dzf  CREATE / USING (Gg CSAVE P LET AND / OR 6 EXEC STEP ($ec) DEF =R MOTOR  STOP `" REM ($ec)~ FOR ELSE ;?p l($fc)i ^!{P LET AUTO : LIST LET IF ]y RETURN KILL Y CLEAR 07 CLOSE -X 4 IF * FWRITE ($ec) LIST STEP ($fa)*: SWAP CLOAD c CREATE PROTECT R($f0) SOUND PSET @2 STEP |A6 GO PAINT  VERIFY  RESTORE TO `l FOR l ELSE vM'MZf RENAME DIR '($f1) AND LET KILL BEEP PROTECT ERROR  FN CREATE CLOSE B SCREEN X CONT AND ($ef)241 CHAIN pAFl END  STEP ($f9) CLOAD u CLOAD [f| RENAME r NEXT POKE CSAVE AM SCREEN (BY FOR END ($e9)(& LOAD KILL 3 CHAIN t PCOPY (T; IF n+ BEEP  STOP  MOTOR SCREEN ` STEP T h- TO & OPEN SA CHAIN lY STEP GO *T BEEP W hh@)'($f2) DEF J2y? PSET CIRCLE SKIPF NAfF LOAD T2 CLEAR Ggb*b RENAME Gmj($f0) BACKUP LET POKE ' U($f1)($e9)3 DATA Q AND nGe6 TO , FROM 0^L\fP($f8)]($fa)Bi PAINT NOT ($f1) SKIPF ' TROFF T BEEP D TRON yt STEP OFF DIR #' 3 VERIFY CREATE SCREEN fP CLOSE ($f0) AND WAIT TRON b DSKINIT  LOAD PLAY CONT OR COLOR PROTECT a RETURN KILL *($fc)[ X SCREEN STEP XO ELSE ($f0)=i AND 7 ERROR P SWRITE 0 RESTORE F SWRITE ";+BbB LLIST AND ($f9)<($fd)($f4) TRON K FLREAD ELSE b DEF >p($eb)Z ) GO SREAD 6($f3) STEP f`>9  DK INPUT L OPEN FLREAD P($f2)($e8) CHAIN 0F VERIFY vM T9 CLOAD bT BEEP R RETURN zV T4($f4)('($f2) INPUT c EXEC SAVE _9 RENAME PRESET X0Gr MOTOR ($ef)J=HOy SAVE POKE ($ee)Gn4 DEF z\#r;d FREAD ? SCREEN ELSE $ NOT SREAD ($e8) STEP TO r*T PCLEAR  CLS V ON d END lGd(H($ee)*-p LET G ON n LOAD ' IF AND ($ed)qC,y'` CONT 9B($fc)f FREAD 7 BACKUP "b SAVE DATA ($fe) ERROR 9O OPEN COLOR H RENUM CLEAR 0b MOTOR ($ee) RENAME 9a DLOAD  EXEC a9 r X RENUM aR/ POKE a}) CLS > COLOR b MOTOR LOAD 2 READ AND ($ec) CSAVE B! CONT r TRON LOAD LET CHAIN  MOTOR ($f0) RENUM  RENAME ($ec) RESTORE # PLAY F VERIFY v PLAY MOTOR ! POKE & LIST SWRITE x1P($fc)F SAVE  BOOT PR;'B GO THEN HD/ DIM ON ($ec) SOUND ]y RENAME GO Q EDIT IF > PRINT & PLAY GQ SWAP ' BOOT - GET ! BACKUP &,wd AND LET AND X CONT CqY GO SREAD 6 FROM EXEC STEP VxME+ LINE ELSE \ CLOAD AJ PRINT RESTORE Gz VERIFY */R($ea)A` CONT ^`< CIRCLE ELSE DRIVE r 3qv MOTOR cH2 DEF ($ee)+(($ec) DEF > POKE GO SREAD mt COLOR Q DRAW ($ee) SREAD ($ec) DSKINIT 0yu^> PROTECT [Bp?D CLOAD b RENUM OPEN @s FN L PROTECT COLOR DELETE AND B 4305 NEXT N VERIFY -zN CLEAR ,a> FREAD e> FOR P FN X OFF n AUDIO TRON @`m RESTORE DLOAD COPY 08o< TROFF :X CIRCLE ELSE ($f7)=I FLREAD RESTORE ON O CLEAR *8 IF d KILL V CLOSE NEXT n FREAD ^ PUT FROM PCOPY XU REM x& BEEP SCREEN t2* CONT DLOAD  AND + FOR TRON CIRCLE p CLOAD r\ POKE SKIPF NEXT Oqa=r FREAD + FREAD w,{B~s+ FOR  REM REM line numbering breaks here! REM ($f1) RUN b;o DATA GET g(1c PRESET 8 CONT  SUB  STEP b DLOAD IF /E LET B SOUND PSET X VERIFY (X AND T( PCOPY PSET 9m NOT Vt CIRCLE c CLEAR ' RUN - CLS STEP PLAY > LIST AND `mx1P($ee) PLAY DELETE  AND B SREAD CLOSE AND BOOT COLOR v GO O^` LIST DRIVE p`pH CLS THEN P PSET ON ($ec)($f6) TROFF gxX8 * AND ($ec)($f3)HX/ PSET REM 2 SWRITE OD SKIPF H#, TO CIRCLE FOR ELSE IF x($e9)\ DIM MOTOR  ERROR CSAVE ) CONT \L+ SCREEN | STOP a( AND T DLOAD REM  DELETE ($f0)($eb)J FOR THEN No ON U6P END RETURN FWRITE 4 END DATA RENAME RESTORE CSAVE ($f2) FROM 0A{ FWRITE ($f6)E)0 PLAY DLOAD P VERIFY ~h@ POKE STEP  AUTO <2 MOTOR  SCREEN /Lv DEF ?* PCOPY Dv AND \Q LINE \ GO FWRITE (($fa)r~($fb) 6149 n DLOAD  SCREEN / CLS PSET ($f0) DSKINIT POKE REM E&F Uf# PCOPY FN RENUM @ FWRITE Z+ REM B($f4) PCOPY FOR ) CLS 3 AUDIO ON NEXT PUT 1 FREAD TRON IF 4 EXEC VERIFY Q RESTORE TROFF AND ug^e> PMODE  ($f5) SKIPF y TROFF  NEW 8 IF 4 BACKUP ($eb) AUTO SREAD ($fb)&P SWRITE 0@ END u CHAIN w SET 0>x= * FWRITE x REM +m RESET BhW STEP ($ed)<5($e9)FXMH($ed) PCLEAR MOTOR  LET FN @ TROFF A 5< EDIT PSET 1 IF b PSET # PAINT ($f1) SOUND *v EXEC SREAD ^e RUN 5 DEF  SCREEN `l DELETE BEEP DLOAD AE *v{*C SET ^ REM REM line numbering breaks here! REM CSAVE  SOUND FROM 5/tm FOR |s GO TRON /R *g REM DIM DLOAD S DEF  CIRCLE u($eb) PLAY WAIT CLS /B($e8) AUTO i CLS ,Vt ELSE V LINE * CHAIN IF KL($f2) OFF T(($ee)2 FLREAD EXEC vQC> PMODE # PAINT 2 NOT LET LT> MOTOR V SREAD EXEC v AND T_ DSKINIT @ RESTORE PLAY FLREAD COLOR F WAIT READ !X LOAD # LIST nGk END CLEAR 7 ELSE SWAP IF OR COLOR PLAY TAB( ,4X TROFF TRON EDIT ZW< IF 6B;KL DIR PUT ON n9 COPY AJ) CLEAR 7($f2)e MOTOR LOAD Q REM 2 PRESET *($f4) INPUT 2 q DEF > 3* ON ($ec) CLOSE a RUN < IF JsZS CLOSE COLOR @ END DRIVE B LLIST t CSAVE Z GO U PRESET 48 DELETE CREATE BEEP CqB;$ STEP POKE 80d)N SUB S RESTORE V CONT USING t&F FREAD LET >Y REM w TROFF [f RENAME 7b;? ELSE u$T#* TROFF  CONT PV ON ] PAINT SET  FROM \ RETURN KILL ) RENAME RENUM Vf IF E($f8) GO @ BEEP PRINT `A|Z RENUM f($f1) COLOR J28W.T`6(Wm" STEP MK SCREEN POKE \L WAIT J OFF o($e8)V CLOSE R PRINT  REM 8E*/m CLOAD BACKUP CLOAD  DRAW EXEC R!# GET ($f2)NAd` END RETURN FWRITE ($f4) PCOPY BACKUP MERGE (Gd AUTO  REM TAB(B MOTOR PLAY FN ($e9) RUN 5 TROFF  NEW  PAINT X" EXEC vA| CHAIN  SREAD MOTOR UH($ec) FOR CIRCLE L OFF PAINT k RETURN FWRITE 9(EL\ SREAD  PLAY TnGd COLOR J2 PSET IF H($ec) CLOSE CREATE **Gg VERIFY ($ea) GET DRIVE  RETURN y1cv OFF ($fe) 15170 PLAY ($ec) CONT \k p DSKINIT  AUTO CSAVE 6 BACKUP PROTECT CONT RUN CLEAR ~G TRON i CLOSE  CIRCLE ZC> CSAVE + CONT \y'K READ ) BACKUP FOR AND #. RENUM N\< RENUM ELSE IF 3 IF y SUB ' PSET \ CLS DIR STEP 4 USING ^P| BEEP \pvB/P SET S OFF B LIST STEP [V CLOAD AND u+. FWRITE O6P READ SWAP ELSE PCLS qR CLOSE AND s RETURN FWRITE f*. CIRCLE QJ REM 2# PUT TROFF CLS AND u FLREAD  LINE ($f5) DATA !# GET SAVE PSET RENAME qJ TROFF DEF FOR o ELSE TO *C PLAY e RETURN FWRITE hQpL` OR CLOAD cxN SREAD REM FROM ON J2 AUTO p5  NEW mI-* PRINT d SOUND SWAP FOR L DEF IF v RESTORE F SWRITE ";#q CHAIN PUT P CONT ($f0) RETURN FOR END CLEAR 7 ELSE ($f7) SET ( THEN 2;^ CLOAD /@+'($f3)' USING *hG* PSET CONT ^ CSAVE h STEP x AND TRON oD8' COLOR V NOT B BACKUP FOR wm COLOR DEF  MOTOR SET :2 BEEP DRIVE COLOR FROM PAINT RENAME t BEEP S` READ hi CLOSE e LOAD CIRCLE = OFF T?a PLAY MOTOR FOR CONT i CLOAD B|9. CREATE < PUT FROM ELSE NOT STEP  COLOR TRON . CLOSE 8 CLEAR <& STEP LET /X SCREEN NOT C CSAVE BEEP SAVE 4 BEEP / SKIPF ` STEP s ELSE BQ~I COPY J CLS 35 BEEP o<.`# TROFF SREAD DRAW ( RESTORE FDv LIST 4 b DATA + DSKINIT PSET NEXT Ov OFF CONT MOTOR FN  BEEP )($eb)Lvx<hB; SUB P* SOUND OR DRAW 4I SAVE PCLEAR '/ LIST 7 PCOPY DATA VERIFY ;< SAVE T#zt THEN END DIR N OR REM SWRITE Ly TRON FOR E*($f4) CLOSE 1 Cq LIST nC SET M IF SWAP ELSE DEF 2 READ > PRINT NOT T IF CLEAR CSAVE  DRAW -'4 FWRITE @SNDa PLAY PLAY $P\ LET BACKUP USING  SCREEN t DRAW a=` PCLEAR ^ DATA A& STEP 4 FROM B AND ^ SKIPF  PAINT C DIM STEP l 4 READ OFF 2k COPY A PLAY PRESET e DRAW 4 RESTORE EDIT ZL TRON OPEN R` IF / NEXT C PLAY EXEC ($f0)J NOT OPEN " AND r CHAIN MOTOR ,/ LOAD #r;\PSKBr BEEP 5H SKIPF PSJ DELETE  PAINT 55577 J PRINT RESTORE G";d2($e8)O RESTORE SWAP TAB(p PRESET -8 FOR CREATE d7 VERIFY 7# PCOPY T> NEW @ SUB * IF - DELETE L@<0 CONT OFF VERIFY -|L MERGE STOP  CSAVE c ^!ZD0`Zb CREATE PSET & GO  PSET END LIST TAB(a# RESTORE SKIPF PCLS ($e9) ERROR  NOT PUT DEF . CLOAD COPY A\9 CIRCLE I($e9)L RENAME r PCLEAR 9 x GO TROFF TV LIST ` USING  SKIPF :($f5),Ay`* BEEP  CONT 2 PCLS i CSAVE BEEP +( FROM DEF \ LET AND + READ K POKE & POKE '($f1) LOAD V MOTOR qN($f0) SCREEN PSET ($f0) SWRITE 0K> DELETE h CREATE RESTORE ($f1) BACKUP  MOTOR L+ PLAY PLAY 8+J (Orb($ed) DATA ($f3)+q OR REM ($f4)<*($fb)" CONT DEF -9 DLOAD P VERIFY /86; REM REM line numbering breaks here! REM DELETE DEF ($f3)zg _ LIST 4 PRESET I*6 *h AUTO BEEP COLOR Ek! CLEAR Gmt^ey COLOR T* SKIPF ON d+\/ CLOSE BACKUP H PSET , R;( SUB P" ELSE vAv@ LET SUB  PRESET DATA SUB SREAD  RESTORE F\ PUT ($eb) DRIVE C,* TO iP END ($f5) CHAIN yO DIM Wjh GET  FROM 8 LET FN SET \ DRAW 9($ea)$($fc) TO PCLS X CIRCLE PRINT  CLOAD 6<2 SET VERIFY FREAD o<.G! DLOAD  EXEC ! CONT nGi1P OFF FN "($f6) AUTO X VERIFY 9 DLOAD T GO Z RETURN RESTORE TROFF  RESET 4 PUT BEEP V SKIPF M ELSE ($f0)] TRON |!\8 B($f1) DLOAD SREAD 6 SWRITE q RETURN  NEW POKE ^ LIST PLAY TRON INPUT P BEEP RUN  AND V CSAVE ($f2),B($ed) BOOT RENAME Gn CREATE < ON ($f7) DELETE ' LIST 4 SWAP ELSE END DATA POKE CHAIN ! CONT R DEF LIST 4 OFF ($ed) REM SET ] PUT r VERIFY *CD DEF TRON ~! RESTORE SREAD T BEEP V CLOSE ($ee)M*4 LINE GET / IF 4` RETURN P FROM J RENAME GO ON @B SREAD 4 PCLEAR a^ EXEC a TO w ON ($ed) TAB( PRINT NOT r($e8) SKIPF F SREAD PCOPY ` END <1b MOTOR ($f8) END RUN *p LET VERIFY *C($f6) DELETE dpbS!jT CIRCLE r CIRCLE POKE  :b*CA EXEC RENAME STEP ($f7) CHAIN 6 AUDIO "-7 LET SWRITE RETURN Bo80!g"8T FOR x` PSET 'i PLAY FN p TROFF 4& PRESET SKIPF Cy RENAME GO 0 LLIST ERROR b DIR CHAIN B SCREEN zf SOUND  COPY ; END ($fa)' TROFF POKE  COLOR FROM J RENAME SWAP  ELSE PROTECT DEF SWRITE EDIT (1P($fc)^"($f0) COLOR NAX1t PSET `G FN `l($fc) STOP ($f3) IF ' ELSE V COLOR b MOTOR ($f6)($fa)T SCREEN  ^# DIM ON ($ec) PLAY K06JO OFF LINE q NOT ($f1) USING <81 CONT I END PRINT ERROR  POKE i CLS SKIPF C CONT *R6# PAINT COPY  SKIPF SN 8 GO PUT DELETE X STEP END DATA ($f5) ELSE J T4 iX PRESET ON X*_]I GO )h1t OFF SWRITE  SREAD CLOSE p` TROFF @($fc)Hs WAIT ^jRj@x REM CREATE PLAY DATA ($f1) LOAD o OR END PRINT SREAD <: SREAD  CSAVE ($f0) SWRITE 0 OR END PRINT SWRITE ($f8) READ OFF 9V FROM DEF dv TO ($f0) FN `l70 PLAY PRESET zA END PRINT p>9 AND ($ec) PSET OPEN WC FLREAD IF  TO nx SAVE POKE nP SET SWRITE q RETURN  PCLEAR DELETE h* LIST d*Ge AUTO  DRAW SKIPF 3]* = NOT  END bh1P($fc)($e9)YX STOP 5 TRON  DELETE CLOAD + DIM ($f0) RESTORE ^7 ERROR \ DEF TRON } PRINT -) CLS OR PUT DELETE REM TO DLOAD PC ELSE x VERIFY *C($f6)`S- ELSE r PRESET AND ($ed)q RESTORE DATA Cr MOTOR ($f0)1SAZ CLOSE J OFF j, FN READ qJ CONT & DIM A[ NEXT JxH NOT EpO OPEN ($f4) GO N SAVE  RETURN ERROR SREAD GET -2e TROFF ck ELSE nGl TRON yt END DSKINIT DIM & ELSE  DRIVE CSAVE S STEP D TRON { END PY($fb) OFF PCLEAR ($e9)' RENAME ELSE v CREATE MOTOR OPEN SREAD  DEF  TRON MOTOR  POKE CSAVE ELSE eU# PAINT < REM NEXT -\ SKIPF <$/g USING ! LET 5 TROFF 19205 ` PLAY CLS ,V PAINT ($e9) MOTOR  NEW CONT +MX RENUM D9 EXEC ($f0)JX CSAVE LIST SAVE SKIPF Ak ELSE COPY STOP RETURN FWRITE +A PMODE # PAINT SWAP dvZh>/J TROFF 1 REM REM line numbering breaks here! REM WAIT  STEP ^4 MOTOR AND + RESTORE AND PpF#($e9) pV IF o<$T=* RESTORE FOR Va` PROTECT ; END `($fe) RUN RENAME ($ea)V FWRITE CONT W DLOAD  IF u AUDIO ($f1) PRINT  CLOAD ; CIRCLE ($f0) OFF S RENAME PSET * SAVE [($f4) END END  ERROR SREAD PRESET REM L3 TO  CIRCLE ($ed) LOAD R' INPUT SREAD  CHAIN COLOR SET A PLAY TRON F SAVE  RETURN KILL FOR LOAD TF SAVE  DATA VERIFY v> PRINT OFF  SUB + PLAY EXEC RENAME Y VERIFY  AND LET FWRITE GET '-T RENUM ($f8) t CSAVE V-p`($f1)* ELSE " MOTOR ($ef) BEEP 8` READ J LOAD SJ IF SWRITE | NOT ERROR ($f5)x EXEC B*Gd+ByO  ($e9) CLS = COPY  TO o\ DATA SWRITE ";I SCREEN T> NEW @ LOAD OPEN NEXT ($f5)HH OPEN  ELSE w SET ZV VERIFY v> PRINT OFF ($f1)! BACKUP BACKUP NOT a NOT r;eC RENAME B LOAD . GO zV SREAD ($f3) IF J STEP RESTORE RENUM IF ` STEP ERROR < PRINT "*)mN DSKINIT ' SAVE  RETURN ERROR SREAD CSAVE P($f7)< * NOT ($f1) OPEN y RENAME AUDIO LET CONT BEEP d READ /Dv RESTORE CHAIN PLAY TROFF \ REM ($f1) SUB r DIM ON ($ed)z($f0) CSAVE ridGm/S OFF B CSAVE N BEEP ` SAVE  AND ($ed) SUB *.` DELETE )e ERROR LIST 4 DELETE PRINT |Cx($ef) DEF y LET Dv PLAY AUDIO Q4#+ NOT . STEP TO r* DEF NS GO DRAW OFF 9V VERIFY vSl PAINT SET b($ee)7 STEP 6 H($f8)HH# PLAY WAIT 5= SAVE 9 SAVE q\' X CIRCLE = BEEP IF ($fd)t& STEP X CLS STEP zh) CLOSE (`m PLAY PRESET X TRON |!?l LIST RENAME = PCOPY .^++ COLOR AM&C RENAME /X08 EXEC - PUT  OFF ($f3) COLOR PLAY AND RENUM ($f3) STEP ($ea) ELSE vq END DIR E4 GO PAINT ELSE AUDIO * LOAD d*Gi5*($fa) SKIPF r ($ef) TRON ($ec) DEF OFF PSET RETURN EDIT s@ END DRIVE B SOUND ELSE vJt DELETE CLOSE POKE  STEP q'/ZQ DRAW g'@zh BACKUP P($eb) REM \] RESTORE " DRAW RETURN  RESTORE LET OR DATA FN  FY GO PUT PCLS !R;yto,- SET  AUTO PRINT PRESET +] REM  DRIVE  CONT o LOAD \ BOOT ($e9) CLOSE CLS CLS STEP ]*9mA FROM PUT ' DIM CIRCLE [hZ LIST  SKIPF  SWRITE DSKINIT Hc USING B2 SCREEN / PSET  COPY PUT DEF CIRCLE LOAD T >R/ SAVE AND e80V TO +" MOTOR = CONT *- NOT RENUM r PROTECT a TO wl NEXT 0nv{fU) MOTOR GET ($f3) PSET FOR FB ELSE vy NEW R/ T?1 PLAY G! CLEAR # PAINT PUT  RENUM i SAVE " CLEAR CSAVE NEXT CLOSE a\ INPUT CLS * BEEP +x DATA <($ef) LIST T PRINT ; PAINT BACKUP 0]"9 AUDIO (E BACKUP \ DIM  CONT @($f1) 5*Js*($e9)>a TAB(p NEXT 0?$ VERIFY Gg PCLEAR 5# PAINT END 3 PAINT  BACKUP b;?@ PSET REM 2# PUT IF ($fd)( STEP "*($fc) NOT CIRCLE ELSE ($f5) AUDIO Ax<U END PRINT PLAY CLS ,TP FOR FWRITE N WAIT  PRINT  CHAIN # PAINT  PUT IF &Q@q/ CONT 7/ CSAVE TA" OPEN SJ ON E COLOR ^ CSAVE w DATA  COLOR M> RETURN r SET vA USING X_ CSAVE U EXEC ]/C, LET AND /C` CHAIN PCLEAR ($eb) CLS 3 SAVE PSET aUi AND  MOTOR 5 PLAY AND Vp8 PRESET  AUDIO "l LIST DELETE REM RENUM U SREAD CONT AUTO E SAVE *A) RENAME ($f6)@X PSET RENAME q LOAD V PAINT # PAINT `($fc) BEEP *, ELSE vI FOR CLS PLAY +w LOAD LET OR L MERGE REM :($f2)xbT BEEP \(/ PUT nQRlx U AND ,/ AND " ELSE vJU STOP PUT ^`< LLIST POKE J IF /T BEEP u TRON '\x\ RENUM RESTORE E F DIM '!} RESET STOP q DSKINIT  MOTOR  RESTORE ] REM RENUM GET + DIM STEP ($f1) FREAD  STEP !/` RETURN A} REM TRON < OFF s DLOAD u,`*C RESTORE EpC PUT IF ( EDIT (O AND PRINT > FREAD CIRCLE MERGE COLOR WAIT OFF T? RETURN RENAME  AUDIO CONT ($f0) RESTORE FDv RESTORE TRON PLAY TAB(@ DELETE POKE FU PLAY AND np FLREAD  DATA MXrR;a OR 0 DSKINIT Li CLS PROTECT x9 SWRITE PCOPY ($f4) IF REM B RENAME POKE CZh.F PAINT  ERROR ($f7)~40 NEXT ($ec)Q pz LET FN 31317 x+o SAVE FROM  DRIVE ($ec) COLOR SWRITE 0P DIM IF H($ec) SET RENUM @ READ REM (=-. FWRITE ELSE T LET CHAIN MOTOR FROM RESTORE  2t' LOAD .M REM CHAIN PMODE  END C DIM STEP y1 RESTORE +! FN * OR x) FOR DIM PRESET qO} PAINT  FROM DEF 4d STEP H($ec)($fd)z LIST s> T< REM 9 FREAD SCREEN /4 TRON PAINT  DIM LET >9 OR SCREEN X($ef) BACKUP b CLEAR SAVE * REM ($f1) PLAY AND LET OR <50F, STEP i[ END RENAME ($f9) CLS U($f9) Ej ELSE vNA FROM -2 VERIFY Gl IF iV*G PCOPY `l DRAW GO ' FREAD ^ TRON Ki *($ec) CLOAD ELSE R COLOR ;($f1) AND LET OR PROTECT  NEXT READ P SWRITE 0 RENAME `# FN  AND LET CHAIN  BACKUP DIM + ELSE eV AND LET >V5 CHAIN COLOR A TRON REM t PROTECT f LOAD LET DSKINIT  RENAME ($f5)0e DATA VERIFY v> PRINT OFF B< LET  PRINT FLREAD ) MOTOR 5 OFF 9V VERIFY v FN `mqv ELSE CREATE ($ed)0 FN POKE IF P RENUM RESTORE VX, AND OFF V CHAIN CONT PSET COLOR M3}3 SREAD  OR AND + AND ($ec) LIST Z ELSE nx DATA M TO ($f0) RETURN  CONT J PRINT ~ FOR 'g+ DATA CIRCLE xb*CR PCLEAR - PCLS  TRON @Y($f1) EXEC  SREAD ($f1) RESTORE Ej ELSE vQ FWRITE +V  LOAD LET LOAD (i/  AND #";'R0>7&*g OR END PRINT NEW @NTb MOTOR EDIT @ LLIST 9G| NOT FWRITE ($f6)F SAVE  PCLS qJS OPEN LIST C AND # RETURN  PMODE MOTOR ($f6) IF t ($f0)# PMODE  SAVE REM ($f2) CLOSE 0 LOAD # DLOAD  PMODE j NEW # CLEAR - NOT LET AUTO a RUN 7 SOUND L POKE N3 AUDIO & TO 8< CLS #p NEXT END s#}1 FU RESTORE TROFF  LIST END PRINT PLAY MOTOR / LET 3($f7) SKIPF #q CREATE " DEF ?T CLS THEN 4 MOTOR  SET h DRAW OFF 7**($ec) REM ($f9) IF ls DATA -p READ AND ($ed)qN PUT SCREEN ! DEF #n PLAY PRESET pqhq CLOAD  MERGE REM ># FREAD LET BACKUP CHAIN  CHAIN T7($f4) DATA dpb MOTOR VERIFY ($f5)x*Cp* TROFF R= LINE FOR \dx DATA SWRITE x($e9) LLIST FWRITE k VERIFY 2 AND LET >.S CLOSE REM (p PRINT NEW @ SUB + FN Gp END REM REM line numbering breaks here! REM ($ed)p LET U DLOAD  PLAY O FLREAD  MERGE IF STEP X0v RUN  MOTOR ($f0) SKIPF |E($f4) AND LET OR ` RESTORE \P SWRITE DIM IF +- PRINT m OFF ; RETURN FWRITE P CONT d*Gd` CONT u GET NOT LET A ERROR B POKE P CONT T CLS LIST DIM REM 2# PUT DELETE 2f IF * NOT ($f1) STEP B COLOR ` RENAME ; RETURN KILL IF ZB FROM DEF H($ee) FWRITE Bc TAB( LET C!J MOTOR < ON s>xHPX+ RESTORE G";d2 PSET PLAY U OR END PRINT SREAD 7  RENAME CSAVE CREATE nT5iu CHAIN s OFF C& PRINT  PRINT .Jhq NEW + ELSE nGg CHAIN p PRESET OR COLOR TO ($f0) PLAY OR '( LOAD LET FWRITE P($f8)]($f4) SCREEN ($f8)lM v PRINT  CLOAD 4; KILL / PRINT ($ec)(;8B EXEC v RESTORE OFF { READ +( LOAD LET ERROR CLEAR ;<^/ MOTOR # PAINT NEXT SWAP ^J ON o($f3)o1 LOAD \ COPY T RENAME STEP CH FOR U) CREATE 1b MOTOR PRESET + ON o($f3)o1 LOAD r# PAINT &^ 1549 SREAD DIM  FROM Pn STEP  PRESET # DELETE LLIST 1578  ON ($e8) STEP X0o^";k($ee) PUT REM 2# DRAW ($e8){ DIM IF ($e8)X IF SWRITE q RETURN  CONT FROM  PSET ON ($ec)($fa)t' TO AND SWRITE 2;k8rF F FLREAD 2# PUT TRON yBy($fb)/ NEW @>xd7! BACKUP v RENAME X VERIFY FREAD ' SOUND NOT ERROR LT5 AND T LET OR REM ELSE T LET AUTO  TROFF LOAD LET DSKINIT  TO n2# PAINT Z E EXEC  CONT NOT G ELSE ($f0) RENAME `" LLIST x DATA X] CLOSE MOTOR - DELETE M ELSE DELETE  STEP O POKE &(^ LINE + BEEP / DIM ON ($ec) CLEAR *D,9 - OPEN ($e8); BACKUP <P($fd)t! KILL FOR G GO  RESTORE v RESTORE ON ($ec) LLIST B EXEC vzB2 DELETE 0hq DEF \.T7 COPY  GO SREAD 6($f3) STEP ($f0)B;k CLOSE  FROM  PSET REM 2# PUT IF 9 REM RETURN FWRITE ! FWRITE + AUTO P SWRITE 0 WAIT dGi CREATE REM 2 OFF VERIFY v~5 GO * CLOSE "P CLOSE FOR W BACKUP ON W(! RESTORE G";d2 PSET ($ec).Go\ DATA Dv RESTORE TROFF ! TO w DIR FOR ELSE \ DIM p-/ FLREAD  MERGE DATA SWRITE ";) COLOR Ep@2 PMODE ($ef) DEF +0 TAB(ECP DIM IF 0R;=* CHAIN IF REM A EDIT IF ($eb) RESTORE AND LET CHAIN SKIPF J RESTORE CLS ELSE SOUND EXEC *C SUB *@; RENAME SOUND /P FREAD 9 q DEF ( GO PCOPY ($f0) SWRITE 0 RENAME *C($f6) ELSE ($fd) PRINT ^ CLS { SAVE  AND ($ed) PLAY AND n DLOAD P($f8)]: SWAP  LET SAVE 6 PLAY F SREAD AUDIO VERIFY 2 EXEC 1 KILL  SWRITE  ON ($ed) SUB c DELETE ! TO w NEXT INPUT L DEF FOR } COLOR SAVE 0($ed) DATA SWAP l DEF TRON ~#+ CLS -: PCLEAR @ RETURN  EDIT ' NEXT CIRCLE LN3,r GO ($f0)! BACKUP FOR VERIFY )'($f1) AND LET KILL BEEP CHAIN ^-2d DEF IF SWRITE " MOTOR ($ee)7($e8) BEEP SWRITE 0= 1P($f8) ELSE AUDIO y SAVE PCLEAR SCREEN FOR -p LET U RETURN ERROR SREAD ELSE  PRESET B($f1) FN `m FREAD n2# PAINT INPUT 0n9 COLOR EX5 TRON B/ MOTOR ($ea)0 DEF >;t DEF E SWRITE p READ AND ($ed)qMQR;8Ba SCREEN ;e3 REM TO q AND LET OR RESET  NOT ($f1) DATA Q AND nGd6 RESTORE F]t CLOSE GET d PCLEAR H1P($fb) REM ($f1) PLAY AND LET DSKINIT  LIST TAB( END 2 PUT +, NOT ERROR VERIFY v} MOTOR AND #qM:($f5) DEF 9D! PLAY FROM IF KILL " ELSE ($fb)O DATA B EXEC v]!9*: COLOR E,r' COLOR AND # CONT ($f0) RETURN  EXEC )2-7+&CY NEW 0QAi@($f1) POKE H#";_ CLS dM ELSE TROFF \ DATA B($f4) SET DIM O LIST  FOR PCLEAR @ TO n2# PAINT  LOAD n CHAIN jU+ INPUT & PRESET DIM ON ($ed)!M7# DRAW *k ON e DSKINIT I($f6) SET  DIM r VERIFY  DRAW SAVE - DELETE M DATA ($f3) ELSE o DSKINIT I($f0) SET # PCOPY ] ELSE ($f0) PLAY MOTOR V T< TROFF ^+  COLOR $ NOT SREAD  OR C READ OFF 9p RETURN ERROR SWRITE ! DATA FROM - DELETE L@>xo0 SAVE DATA ] ELSE ($f0) RENAME `"($ec) RESTORE PCLS \#r;\U REM ($f9) GO DRAW /Dv]+n POKE  LIST @ END u CHAIN hGem TRON k BEEP /<`# CONT ($f0) AND NOT E) RUN 5 PSET 8 CONT OR COLOR >av*($fd)Ax PROTECT AUDIO ";`G RESTORE G";d96 SREAD SKIPF NEXT d AND LET KILL BEEP ($fb)($fd)!]1m*AM#'($e9)6 CONT PMODE dGi f END RETURN FWRITE y1P CHAIN PCOPY -2e TRON b KILL ELSE w# PMODE $ BEEP `^@q VERIFY C DIR CLS S RESTORE W! RETURN  CONT VERIFY  SUB r ERROR B CLOSE STEP &P` PROTECT 9 KILL zT SCREEN X> A FWRITE ($f1) FREAD LET AUTO  CLOSE ON ($ec) DATA *C THEN @ LOAD NOT E($f6)# FLREAD FROM ON , STEP t CLOSE  SAVE ) SCREEN FOR LIST FA, NOT KILL FOR AND T LET BACKUP I** CHAIN  DELETE DEF ($ed)r;=a ON ^2# PUT CSAVE SAVE  LIST H AND ($ec) DELETE 3'P!5 OFF 7# DRAW *O PAINT # PAINT  TRON j!; DATA Q> TROFF Hb* BEEP  TROFF 2 ERROR COLOR ON \K CLS (($f2) [ GO t NOT LET BACKUP SKIPF NA ELSE ON ($ed)!|9 RENUM qs**X/ FWRITE ($f9)mI NEXT { KILL ^ RUN ($e9)*g>A FWRITE OFF  RESTORE FDv RESTORE EXEC DRIVE T>zW TROFF  CLEAR aQ RETURN  PMODE  SCREEN (v BEEP /Q PLAY SKIPF x IF ` STEP ERROR = PRINT GO P($fc)*BQ RETURN SREAD  READ KILL " ELSE ($f2) SET @ AUDIO VERIFY 2 / SWRITE " SREAD S&+) IF AUTO DSKINIT MOTOR PCLS H" PLAY 9yo\ DATA Dv RESTORE EXEC OFF QA EH($ed)*D- RESTORE OR REM ( BEEP CLOAD xt ELSE ($ee)C LLIST *BQR($ea)A SET DEF + DIM OFF LT4 FLREAD  END M EXEC  RETURN  EXEC + AUDIO  ELSE *@>8p!o1($ed) RENAME q RENAME + BEEP / DRIVE SWRITE ";> FOR POKE  MOTOR THEN @ LET SUB SAVE X AND #";H\ LET /J($f3)M/R` PLAY AND LET CHAIN `=}5+= SCREEN CIRCLE ($f2) ERROR  DATA RETURN +P CLS PUT  ERROR LIST ,_L RENAME * LET SWRITE RESTORE SWAP TROFF ( DRAW 8 Qq BEEP Tu EXEC AD MOTOR SCREEN CLOSE a^: SAVE DEF ( MOTOR  LLIST PCOPY AUTO E LET P RESET SAVE !($f2)./ *($f8) NOT SREAD ELSE vJ IF ($f1) IF GO ($e9) DRIVE p($e8)F PRINT DELETE 3*^\`j. PAINT B CIRCLE PLAY CLS UFL POKE STEP 3 MOTOR * _ DEF 6;C TAB( COPY  GO PAINT ($eb) PRINT '/ ON  FWRITE & DIM IF H($ec) RENAME LIST QA{ NEXT CLEAR :L2 READ AND ($ed)zh<' REM  DRAW ($ea) DIR + SUB ^` CIRCLE \ RENAME rQB;;kg DATA p PRESET &` END DRIVE B ELSE v} CLOAD B CSAVE  FLREAD + CREATE REM q CLEAR POKE >x. BEEP 8 IF w DEF UHYg REM SWAP Ae0Qr END POKE ` GET STEP E($e9)U DELETE ' CONT ($f0)M+!q DRIVE `($f3) DSKINIT 7 DEF  FN aN/d PRESET d(Gk END L! PSET CSAVE SREAD CLOAD NOT X* REM SKIPF > SOUND ($fc) LOAD A($ed) PRESET  RESTORE " DRAW # PAINT SAA DSKINIT POKE REM  ELSE T LET BACKUP A`~A# PAINT L RETURN KILL Q4 LINE NEW  REM  RESET CSAVE P LET AND )'($fa)($e8) COLOR FN RESTORE CLOSE NEXT NOT #! zBjY ELSE V EXEC ,\ * TO `|($f7)eH2 DIM END DIM SOUND VERIFY '($e9)0k LET PLAY B~^($fe)T DATA ;C CSAVE NEXT NEXT ($e8)-#q FLREAD RESTORE SWRITE FOR 'hq@ END DRIVE B PRESET * SAVE !BS PAINT L DLOAD REM `($f4)/ CSAVE * SREAD B;8! PUT IF ( SOUND SWRITE TRON k` PCLS ($e8) (C PCOPY GET  FROM 8` AND LET AND /4 SWRITE y CLS Ej IF RUN 2;p SET vA DSKINIT 7 GO SCREEN !z READ /DvZ( PCLS 9Bs+"($f7)($f0)v AND \ RUN OR +T# PCOPY DELETE ($f0) CLOSE ^4s DRIVE LLIST P" DRAW B; AUDIO S LIST *j 11138 H_4`N RENUM M($ec) CLOAD STEP '!ALYB PMODE d MOTOR  STOP `" REM PRESET Ly($eb) AND )QA CREATE ` LIST  STEP STEP NOT CLOSE t READ /C PAINT g RENAME DATA REM DIM STEP qN($f0)` LINE CHAIN RETURN r7` LINE WL WAIT Y SAVE R GO END RENAME DIM  DIM IF H($ed)*P CLOSE ($f0) AND \ ELSE B EXEC KV4 TRON U* FREAD ($ec)($fa)e a SCREEN CLEAR  FWRITE a`\`, MOTOR  OFF 2 PSET IF NEW jh EXEC ;,($f0)S y LOAD EGjE FLREAD NOT ($f9) NOT > SWAP  PRINT h>] REM  LIST 4R;,($f0)S EDIT ^ LINE + EDIT + NEXT ON ,P LET AND !  MOTOR / CSAVE 3 PAINT *E OFF ($f3) OFF SWRITE + SUB " LIST r;k MERGE ($f8) CHAIN ($f1) STEP OFF .: RENAME ($f0) CSAVE REM RESTORE PAINT CIRCLE 11862 DSKINIT ?&-8 THEN  END DRIVE E RENAME  CLEAR Ge STOP `($f1) EDIT spI AUTO b VERIFY ($f3) DELETE DIM ($f5),_ q SWAP CLS ($eb) IF e0B0Lx! FOR NEXT CLEAR `m CONT +' SAVE TRON ?]') SAVE #z($f5)B GO LOAD Ra( AND u GET ($f1) STEP ($ec) CONT ($f0)q CREATE READ *C@ END  FWRITE ) CLS CLS ($eb)0H SKIPF TP\ LET CHAIN sxB SWAP RESTORE THEN  ELSE AUDIO !R;8 RETURN NOT KILL ! POKE  SWAP  SWRITE ";&M+ DIM IF ($f9)$ OFF QMSxq DELETE DIM LIST DELETE PRINT ($ef) 4($ee)og0 PSET IF ($ec) DEF =:($f5)qvB< TO 0 RESTORE ($eb) AND E KILL J IF SWRITE PRESET a=Dd TRON MOTOR  RESET OPEN END  PAINT $wd MOTOR b EDIT d DEF J2 PRESET *H($ec) CLOSE PCLS JuL5g PRINT Z ($ec) POKE  EDIT DATA F.. STEP , RENAME a^ DIM g DLOAD < STEP E($e8) BEEP COLOR (iW TRON k LET ;B EXEC o USING  TRON Gd PSET & DLOAD GO PCOPY SREAD GO  MOTOR u,Cx($ee)9' DLOAD FWRITE f STEP (0<[X TO @ VERIFY Z EXEC OFF \aa CONT d.@' CSAVE PUT NEXT  SET `# PCLEAR XT CLOSE  ERROR B CIRCLE LOAD S DEF ";$($f0)J CLS PAINT 1 REM REM line numbering breaks here! REM SCREEN  DRIVE PUT =l($f0)LJ CSAVE OPEN  SWRITE ]d COLOR E($ec)($f4)q DSKINIT hV CONT ^ CREATE 7 CSAVE q EXEC !LgF FWRITE ) CREATE PRINT d# PAINT P DRIVE PAINT SET  FROM 8 DLOAD PAINT ELSE WjR+20 CLEAR . KILL k<5 CLOSE 8< DELETE REM RETURN QL RENAME q TROFF H#q\V*Y PSET SAVE 8C CIRCLE r RESTORE ($f7) DELETE p7 6C($e9) W 0?7 DEF ! SKIPF ; DELETE Gg AUTO DATA ($f4)5 MOTOR = DEF  PSET IF FWRITE 8 COPY BOOT t RESTORE " DRAW B; ; STEP REM TROFF '($e9)/ SKIPF M OFF LT5 E($fa)B4 LINE FREAD $Geb MOTOR CLS ( SKIPF u USING ($f8) STEP STEP _< RESTORE ~S FU PLAY AND T LET BACKUP CLS M+ CREATE PROTECT J CLEAR CLOAD FN ,]H#| LLIST TROFF CLS > PRINT RESTORE G! POKE ` RENUM B PLAY K7 END Brw SKIPF " CLOSE aiV SREAD GET FOR PAINT ($e9)[d(B;$($e8) OR CLOSE 9C RESTORE U+j^ DLOAD EDIT r^l FOR S LINE = POKE PRESET hQM+*h.M CONT -3 FN b MOTOR TROFF x RENAME ($fc) LOAD u VERIFY ($f3)# GET ($f2) DELETE *PB;&) DELETE < OFF RENUM DRIVE PAINT  SWRITE  AUTO SWRITE &,w ELSE SWAP REM S CLEAR BEEP PCOPY REM ($f1)# END P=' MOTOR FWRITE / MOTOR R CLOSE RENAME ($ed)J CONT & LIST Gd DATA  PLAY + PRESET `(Gd+Vx CLEAR / LET STEP 7 POKE < DEF 7(0 6iP RESTORE TROFF cxOy SAVE !ix CLS ($f5) DATA ,T? PROTECT LIST ) SAVE KILL G! CLEAR # GET ($e9)X0e LIST c 27 OFF RENUM ($e9) ON /( DRIVE B SOUND IF < END  IF y DRIVE 3 USING AUTO  STEP WX.. NOT DRAW 0 AND u($e9)  EDIT ELSE PCLS ELSE IF SAVE } LIST CLOSE )T# PUT IF ) SKIPF ^ LIST STEP 4 PSET REM 2# PUT COLOR L DELETE ($f7)x($e8),($fb)R SOUND Gg< EDIT 7} DATA + REM r ERROR DATA  GET DRAW \*.Gi BEEP SAVE X8($f9)c)/ END ELSE R PUT BEEP _ PCLEAR ZN9 KILL COLOR TO SAVE U($ef) $T" EXEC v@X TRON EXEC ($e9)> SAVE  END rP CSAVE `($f9)($f2)P PRESET AND ($ec) FLREAD RETURN ELSE ($ee)^ AND ($ed)|($e8)v PROTECT CSAVE *H SAVE BEEP MOTOR FREAD ($fc)E #* END RETURN FWRITE p~AjA PMODE  LINE b SET M REM  SWRITE ZwX EDIT U DATA IF DSKINIT ;$ STEP STOP MOTOR  STEP KILL `R;e< POKE SKIPF NEXT M+~5 GO F SAVE  RETURN ERROR SREAD ($fd) ($ec)V VERIFY v CREATE *d( R CLEAR (X AUDIO (E($f9)1bC CSAVE CREATE 5 FREAD # EXEC +( VERIFY 7# PAINT g 4.X($ef) BACKUP  RETURN FWRITE + SAVE G)< LET AND 9 PCLS ' IF 9mP2 PRINT LET /0< REM o CLOSE & PROTECT I OFF PMODE SET  PCOPY .] DATA B* RUN Nxp EXEC FROM / CONT FLREAD 9a PLAY = END q TRON  AUDIO A CREATE eb PSET ($f8)($ed) NOT e DRAW 4 RETURN  SKIPF CLOSE + SET B STEP \ DEF 8 AND Z CLS #* CHAIN CLOAD AND d STEP v = SUB + USING L*($fa)gAJ X STEP NOT ($f1) END CIRCLE u,xBs OFF SREAD KILL NEXT FLREAD M VERIFY .lS CLOSE  LET BACKUP CQqV VERIFY v PLAY ($eb)0 PRESET  DATA LX($eb)N SUB T" EXEC vy*H($ec)($f4) VERIFY MOTOR # PAINT 2 ELSE eU# GET ($f2) END NEXT DSKINIT  EXEC  SUB P READ !X($f0)/ END *f*(Gd5 PCLEAR ]' CONT ($f0)NECvLv LIST MOTOR X=8 ' END 2 RESTORE ($ec)($fa)j LOAD R LINE [ RETURN FWRITE EB*Ge($ee) POKE P END RETURN KILL Z+ RUN  REM Ym<5 SWRITE 0>7# PAINT r^4 EDIT 5 FB EXEC v AND eZ($f2)=lv PLAY G! DLOAD ($ef)k RENAME LLIST SWAP END SET  AUTO A ERROR B GO LET DSKINIT  VERIFY 7# DRAW ($f0)S RESTORE FDv LOAD e8e>p OFF B LLIST DSKINIT DIM '5 READ K CLS UB*+' NEW 3 SOUND CLS EXEC vL DSKINIT 8X7 END ($f2)Q ERROR  COPY POKE KJ OFF y SREAD LLIST 18894 A ERROR B CSAVE  REM VERIFY v}8 PCLEAR  DIM ON ($ec) LLIST z= BACKUP POKE 4 FROM 0]'A&+- ELSE ($f0)F#/ REM REM line numbering breaks here! REM SAVE  AND ($ed)|5 COPY DIM  PCLEAR U DEF < FLREAD MOTOR \ TRON i OR EXEC  LIST + RESTORE =J OFF y($f1) LOAD _7 FROM AND *($f5) TROFF e:h+ REM t STEP FWRITE DELETE  SWRITE AUDIO 5 SWRITE q RETURN  DRAW STEP PCOPY  DRIVE -" IF X SKIPF !X FN 4 FOR GET ($f5) IF B DLOAD ON ($ec) CONT EXEC ^ CREATE # PAINT i9 NEXT ($ed)J ON < CHAIN  AND Z MOTOR  RESTORE W CLOAD  FLREAD RESTORE 9* OR 8834 PRESET PL COPY ~S GO REM R PRESET q]!R COPY 7 LINE c PUT REM 7 KILL y SAVE PLAY >em OPEN COLOR MOTOR  RESTORE \SjT CIRCLE FLREAD CIRCLE  MOTOR >f SET S OFF A ERROR B($ec) GO # PAINT 4 STEP ($fb) OFF CIRCLE V SCREEN  SKIPF [l5* RENAME m!p ON J*Gd* VERIFY ,($f3) CHAIN !x TRON LIST ($e8)q CONT *S+, PUT 2 SET  TRON c REM PUT MOTOR R ELSE ($f8)7` LOAD ,$ DIM END PRINT PLAY WAIT CLS JxH] STOP (($f0) SET FROM RENAME  PLAY SKIPF +!A}' LOAD PRINT = KILL FOR FROM RENAME " LIST FS STEP H($ed)&  SAVE PSET `j( STEP ) RENAME SKIPF BEEP  MOTOR \ GET l MOTOR \7b MOTOR VERIFY (*C FN REM ($fa)b DIM LINE PSET T;($f4) A SREAD CLOSE B) READ FWRITE LT LET FWRITE ` VERIFY v~h RESTORE MOTOR  PCLEAR <_4 MOTOR  PCLEAR <x DLOAD THEN $ IF GO (Gg LINE  DEF ($f3) PLAY EXEC ; TAB(l KILL 06 TO 'qzt(=B BEEP ` PROTECT 9 KILL zb CREATE DIM s,V CLEAR PSET 9m FREAD e:X CIRCLE ELSE FROM DEF 0U($fc)b ELSE vM* AUTO iL LOAD 1in# DRAW ($e8){ READ ($fa)($f3)+"l CLOSE  RENAME r SKIPF r i OPEN ($f5)@($eb) DRIVE  RETURN FWRITE v DLOAD FOR END Lr0A DATA `($f3)@ PSET IF ($ec) CONT BOOT RESTORE _ EXEC , SCREEN p6,r ELSE SWAP DATA B CLOSE PCOPY SKIPF A($f8) AUTO  ON 8 \ STOP ( SCREEN READ L RENAME * END bU^I OFF PCLS I BEEP VERIFY q COPY  SKIPF S TROFF & GET BEEP SOUND PRINT > PMODE ( WAIT  EXEC STEP 9sq DEF . CLOSE fX EDIT SCREEN RESTORE 6&'@A j READ X OFF PAINT EDIT "/ CREATE PROTECT J LOAD MOTOR ; NEXT * SOUND ELSE vAp PUT &8 GO SREAD S SKIPF dM ELSE IF ($e9)U' DIM  TRON { OFF } ON s LOAD P+0 PROTECT x( MOTOR q) POKE  0 FN vV. GO TO ($f0) LOAD NOT Gq AND DEF FOR xa 19144 e REM i LOAD OPEN  DELETE REM ($ec) FOR x DATA Q AND nGi1SABe< PMODE ELSE ($fb) COLOR ($f8) PCOPY > PLAY TROFF ELSE ($f2) SCREEN  COPY I($eb) OR SAVE Xq DEF I'( FROM <20 AND nGl TRON |!l RENUM ($e9)]*>$. AND ($f1) MOTOR b GET CLOAD P COPY L WAIT I SWRITE COLOR V($f5) ELSE ($f2)($eb)($ea)($fa) CREATE ($f1) AUDIO RESTORE OR END Q` PRESET ($eb)CB9 P MOTOR PRESET a AND in DATA QX NEW "l< OPEN ($ea) RETURN DELETE h/`Xd.P CSAVE REM REM line numbering breaks here! REM EDIT T DRAW a=d DELETE 'y SAVE s AUTO PRINT !zN CLEAR ,a; RENAME ($fc) FOR ERROR VERIFY aqz STEP XL WAIT EXEC SCREEN ( ,B($f0) SWRITE 0 FN p< FOR ($ee)2# PAINT <($ed)qV SKIPF FZD NEXT DEF c PUT PRINT 9Q TROFF ]F'($fa)($e8)X GO COLOR  CONT & SREAD T; LET PSET ($fc)a RUN ; NEXT END cP($ee)($ec) 15196 Ra(=06 RENAME 2 PRESET /B EXEC v}9k SKIPF ` ERROR ($f4)V REM REM line numbering breaks here! REM = KILL im" CLEAR U ELSE ($ef)<. FREAD (J2 SET Gi6 :($f7)xX CIRCLE p END UE AND ($ec) SWAP PCLEAR AUDIO OFF NOT p TROFF @ LOAD  AND s~Tgh 2 FLREAD T4 MOTOR FN RESTORE CLOSE INPUT COLOR THEN FOR FS STEP ($f0)($f2) ERROR x STEP CONT EDIT REM RENAME ($f8)($f3)P END /d PCOPY  GET ($f3) READ ; CSAVE CSAVE DRIVE B AUDIO .A PRINT h GO MOTOR O;&0I PRESET ; LOAD +s DELETE o CSAVE q DEF ^7 FWRITE b SUB a ON G ELSE ($f0) CLEAR POKE QNT SOUND V DEF ($f3)As PCOPY BEEP $ FLREAD DIM PLAY ? X PSET NOT FX( MOTOR  SET CIRCLE Q@\kN[($f2) PSET WjN!^ OFF DRAW # PAINT sQJrP; ELSE nGiVB>@ GET STEP LTv SKIPF + SREAD .< PLAY F VERIFY v SAVE PUT EDIT [ NEXT ($f4) END CSAVE DIR E($ed)q~($e9)50 A SAVE DIR * EXEC vQF ERROR A";'@ RESTORE TO R$vAp4 VERIFY EXEC ;(($f3)#J TRON EB*Ge.i8<($fa) EXEC DRIVE  WAIT CLOAD  CONT #, TROFF >( STEP [ ELSE n) BEEP  RETURN FWRITE AUTO V GO ($f0) FROM COLOR V9 CREATE RENUM ($f5) PLAY SKIPF pq DSKINIT mK RUN Ln SAVE  CLOSE d RETURN  EXEC (/ DIR CONT #* END RETURN FWRITE f*+' AUTO jGl IF E($f3)L OFF PMODE # PAINT RETURN FWRITE pAsN40@Z TRON SKIPF DELETE # DRAW SWAP REM  CREATE RETURN i'($f2)N4 IF b RENUM  SREAD  LOAD LET OR CLOSE 2l IF 9e[ END RETURN FWRITE v PRINT N($f5) y($ee)L!X VERIFY /P FLREAD EXEC vI DATA >2 DEF @q FWRITE FWRITE ($fa)d RETURN  SKIPF DATA PUT ELSE CREATE _j LIST T LET FWRITE O($ef) FOR ($f1)H RENAME RENAME POKE DATA ! RESTORE DELETE p FLREAD AV TROFF  PLAY DEF =($ec) CLOSE BOOT CONT +qR;d/ OR 9 FOR r ($f0) CLOAD ud VERIFY R; EDIT zT PROTECT CLS TO J CIRCLE Y RETURN DATA SREAD SOUND ELSE vCFXX2/ OFF [@($ec) DELETE dv($ec)2 BOOT PAINT  PLAY F VERIFY v LIST d, TAB(@ SWRITE PLAY Eg REM DEF  TRON AND PRESET GET |Ld CREATE VERIFY SUB SAVE BEEP  STOP ERROR *($f4) CLOSE d AND # RETURN  PAINT #(EH($ec) SOUND ($fd)b GET RESTORE FB ELSE v~($e9) DIM 4($ee)hZ AND #- REM  RETURN  EXEC (Gk END g PLAY ($ec)\ CONT 9b 8b ZS4+Z NOT ($f9) EDIT # PLAY Eb SUB dGe($ee) CIRCLE RESTORE Jx)>.A AUTO A FWRITE : PAINT Nr AND LET CHAIN 0 CLEAR RESET $0 RESTORE PCLEAR 9B STEP ";HS CLS N SAVE  RETURN ERROR SREAD ($f4) CHAIN 2 EDIT @}8 PCLEAR  SCREEN )e COLOR EE CLOSE FOR ($f5) COPY j/ IF n DLOAD  SCREEN 7 STEP ($fa)($f5) DEF _ READ !X PROTECT 2# GET CSAVE EH($ec) REM DIM MOTOR d READ ; SET B CONT BOOT RESTORE Q REM PMODE SWRITE SKIPF SCREEN  PLAY TROFF  CLEAR ax AND LET ERROR RENAME ($f3) DELETE <($ee)P4 STEP <\X+ VERIFY Z+0 DSKINIT ON T MOTOR sr CLOSE SET dv PLAY FN qr CLOAD @($f2) STEP ($f9) EDIT  END  AND #";-P PRINT d DEF .`" LIST SKIPF 3 DRIVE . SWAP qN4 IF c PLAY SCREEN LIST 1LaU ERROR ]*" CLOSE =i2 PCOPY USING # IF hvL RENAME j CLOSE ON 1 TRON Bh+ DRAW ; PCLS , IF { NEW F PSET 1 FLREAD LLIST SAVE >y COLOR # ON VBGg DEF ,\+ C ELSE IF ($ec)g PRESET a!qh?@Z LET SUB Y(Gmm PAINT P LET AND (>R;,($f0)Q RESTORE  PAINT TRON FN psHNA ERROR ($fe) 4814 !V SKIPF p CLEAR LIST *8 CHAIN  END V SOUND PSET IF CREATE CIRCLE GO SREAD  PUT ($f0)($ec)7 VERIFY 2 OFF VERIFY vS PAINT R PAINT REM r CLS PCOPY B' PSET SAVE `p PRINT RESTORE THEN &,o ($ef)<.C LLIST * KILL  SKIPF / CONT SWAP READ /Dv~($e8) CREATE SET ) END RETURN FWRITE pAp($eb) DIR E AND ($ec) REM ($f3)($eb) EXEC ($ef)<j POKE /]' CONT ($f0) AND NOT EE($f3)L OFF *Gd EDIT  DEF ' STEP USING "] VERIFY vN PUT CLOSE E&(aU STEP  PRESET GET ?$($f7) DATA < COPY RESTORE FU PLAY TROFF  RESTORE ^ DLOAD RESTORE ($ed) RESTORE Gz LET SWRITE RETURN  RETURN CONT " EXEC vQqvAF TROFF  BACKUP LOAD !]t RESET 4 CSAVE SWRITE J.| CREATE u STEP ($f8) CHAIN l($f8)+ POKE - RENUM  FWRITE STEP ($fd) SAVE RUN 0 LET U CLOSE + AUTO VERIFY vB PCOPY USING RESTORE TROFF ' DRIVE DEF ($f3)q/ COLOR VERIFY  RENAME / PROTECT  END ($f4) STEP *LGo)($eb)/ RUN 5 PLAY F VERIFY v LIST T LET >/g#~` CIRCLE y COPY 7 USING 3 TROFF  CLOSE SREAD  PLAY V($f4) BEEP n)de TROFF  CONT _ STOP r TROFF  RESTORE U NEXT n;(FB EXEC vv@X PRESET S` LINE 0E($f4) PCOPY < LOAD # FN CREATE BEEP Cr;?@Z AND #,P CIRCLE Q FWRITE ($fb) FN GmBi NEW V@ END u ELSE FLREAD EXEC  END AUTO  NOT P LET OR LLIST 8 CONT STEP 9N LLIST BEEP Wj DRAW + CSAVE a SCREEN CLOSE S ON EH($ec)($f8)($f3)~ SUB W READ = 10924 STEP ($ec) CLEAR DEF ^)<< TROFF PSET 9 CLS E($ec)($fc) RESTORE U TRON ` RENUM DS LINE P LET ERROR ($f1)~!# DRAW SWAP ' IF T" EXEC vY RENAME ($f5) l DSKINIT @gq-* FROM 2l0Y AND PRINT < OPEN r/($ec)a1P($f2) SWRITE PLAY >x 4' RETURN 41059 C DELETE e END AUTO CLEAR ,a? SAVE PLAY PMODE a= FLREAD GO i  CIRCLE x<@ FROM < PUT USING ($e9) SET : PRINT @ SCREEN SUB ` LIST AvN0 CLOSE BEEP A DRIVE Dv RESTORE PRESET TY' REM  EDIT xT CONT LET PCOPY PCOPY  CONT BEEP " REM ($f5) REM REM line numbering breaks here! REM RESTORE ($eb)($ef)M*w ($ee): USING SAVE ON J)U-3x CLS VA FWRITE +r;^x\o' REM bC CSAVE O< VERIFY M IF ($fc)S STEP  IF  IF =k ELSE nGk CHAIN DLOAD h< n7 CHAIN RETURN XT OPEN . EXEC |$ FREAD ,($f0)QI COPY DSKINIT B($f0) COLOR NBC CSAVE 4 MOTOR * RENAME RENUM D2 SOUND  DRAW *3 MOTOR CLS PLAY CIRCLE b EDIT  REM 1P($f2)($e9)# PAINT *O$ DSKINIT # PCOPY DLOAD STEP  CIRCLE ~!T TRON J PUT pN4 LET ` OPEN S RENUM P STEP 9N REM Ta EXEC KILL GO  PLAY GO RETURN PCOPY # PAINT CLEAR a RESTORE EDIT } CLS CHAIN DATA SREAD ($f9) ELSE AND * SWAP ($f8)($e9)80nC CSAVE R`x DATA M TROFF TO * READ FWRITE 8 OFF >U END CHAIN CLOSE COPY SCREEN POKE AV DLOAD b FLREAD !L LLIST a- OPEN  STOP DIR DATA iX)1 42626 SREAD ($fa)t PRINT lv DRIVE DATA GO Wd FWRITE BQR;e<a FOR W FOR ($eb) OR ($f6)! AUTO Mr/ 1($f1)*CJc0 GO VERIFY + LLIST * LET E NEXT CHAIN SKIPF CREATE CIRCLE ~Dvz NOT ($e9)qq DRIVE PLAY IF B PAINT STEP SREAD QpI RENAME DATA (* BACKUP m PUT USING ($e9)Rb FN  OR END DATA ($f5) MOTOR REM REM line numbering breaks here! REM PAINT S TO RENUM ($e9)9 `($ec) GO  S PAINT  AUDIO SCREEN RUN / SKIPF ($eb) CLS 3($f5)($eb)0{l BACKUP 4($eb) EXEC ($ef)<\ SREAD MOTOR UH($ec) GET STEP LW LIST iN LINE / OR 0z DELETE !!H COPY Kl POKE STEP / BEEP 0M NEW READ 48 TRON @[p TROFF > EDIT RESTORE W FOR VERIFY C DEF =($ea)A8 PSET RENAME q^P($ee) SOUND SUB SAVE X AND  PMODE OPEN ($f4)* VERIFY :($f4) GO X($f7) KILL  i SUB WAIT ON Nx9 CLOSE ($f5)($f4) DSKINIT  SREAD ; RUN NEW -`($f8) REM SWRITE Xue END ($f5) CLOAD [f\ RENAME kY DIM PCOPY .R BEEP OPEN q^($f0) LINE & EDIT k END COPY A AND NOT E SREAD /m GO DEF CLOSE READ USING -0 TO P MOTOR X TRON MGd FLREAD EXEC vC TROFF  RESTORE ^ TRON # PAINT sP END CLEAR PSET 3 SAVE =k FLREAD  SAVE R/($fc) PCOPY AUDIO S0` PCLEAR USING K LET 4 FROM ELSE PUT USING 4 CLOSE +v SWRITE RETURN  PMODE MOTOR ($f6)($fa)i SAVE LIST + NOT ^.($ed) Lx EXEC W READ >R SET ;-3 TRON SCREEN CLOSE NEW TO 0\s^$q > CSAVE T#* LOAD T LET FWRITE END h| OFF SCREEN qP TRON TROFF  CONT U PCOPY TROFF udg SCREEN o MERGE ($ed)q DSKINIT ` TRON HT CIRCLE ELSE DRIVE IF  CHAIN `.G NEXT W COPY R-*)'-+,& REM ($f6) AUDIO H_ DEF ,T^sP DIM LINE EXEC vQFsHc PAINT USING #0 CLEAR  0VC PRINT 0 LINE IF n &R; COLOR U($eb) AND #"; ( MOTOR 4 REM 2i ($ee)C RESET +y SAVE PLAY TAB( /]& CONT MOTOR AUDIO  FWRITE f AUTO  PUT AUDIO N SWAP READ /Dv CLEAR < AND " DEF (E NOT  EDIT ELSE TROFF SKIPF T CIRCLE r-# PAINT H+ RESTORE G!=  FWRITE EX LET BACKUP F^k ELSE r CHAIN PCOPY hSXq DEF PSET  LIST T LET >2 FROM J GET ($f3) GO REM  CSAVE DIM GET GO LOAD AUTO STEP ( AND T LET = REM +p READ AND ($ed)q=b VERIFY READ l2 DELETE ' ERROR x=: EDIT 5 STEP & EXEC vCP END ($f5) CHAIN oXD CIRCLE @QFRi CONT e DIM  SKIPF CLOSE q FREAD DLOAD \]($ea)LvI FOR END LIST PCOPY m*#* TROFF  NEW  BEEP BB DIM MOTOR # PCOPY DRAW GO  REM 2;'y AND #";& R;( PLAY B2 AND LET CHAIN +. USING y RENAME PRINT iq EXEC +u CLOSE dGi DEF GET  SWAP 0>7# PAINT PUT REM ( NOT ($f4)^ DEF 2h CHAIN  AND LET BACKUP DELETE !( MOTOR FWRITE ($f0) DSKINIT L STEP USING 9 SUB P TROFF CLS MOTOR TRON EE*R; AUDIO ;s PLAY AUDIO n DSKINIT  PUT RENAME " VERIFY v($f2)($f5) PCLS k EXEC 8($f1) DEF d7# PAINT EkC AND oL CREATE Re CLOSE IF iT8 IF r SKIPF BQ CONT ($f0) RESTORE CLS ($ed) DIM ON ($ed), CONT U REM 2# PAINT w^n SWAP DIM ON ($ed),r AND LET CHAIN < PRINT m<P, REM REM line numbering breaks here! REM FN x AND LET OR *Ge4-$+ PUT END DATA RETURN XV9 ELSE  TRON | PUT x KILL !^8) CLEAR LLIST z=F^E AND B6Q POKE  FLREAD LLIST iX EXEC +($f0)'($f2)M COLOR LLIST 1 DELETE 8($e8))0 RESTORE TROFF  SET TROFF / RESTORE PSET S EXEC  CLEAR f FOR CIRCLE QN EXEC ;! POKE CSAVE BACKUP  DEF 2 LIST PCOPY i IF *R;.(> LIST T LET =0 TO dGm SWAP REM END ($e9)> SREAD LLIST *CP CONT T LET AUTO ;(E] RESTORE + DRAW 4Y FOR DIM COLOR \ NOT KILL qZ CHAIN CLOAD TRON AND SOUND  AUTO  TO = DEF n;+ GO PCLEAR r ON !b EDIT e MOTOR PROTECT  OFF SAVE  PCLS FN  AUTO  STEP [ END NEXT \ CIRCLE PROTECT ($ed)<7(($ee))J DELETE RESTORE SCREEN ($fa)($e8)f TRON ( AND X.2 SKIPF p} SCREEN  BACKUP BEEP / REM P LET AND : ELSE " SUB `- TO ($f0)R PROTECT PAINT SET 0\ CSAVE END MB LINE Gem SCREEN S OFF ($f8)&k/ RESTORE e> LINE S OFF Ge PRESET '0 LINE LET * OR OFF )5> SOUND DLOAD + DEF UEp CONT + VERIFY MOTOR VB=0 FN ;@B SWRITE , PCLS  ELSE T LET >.F($f3) CLOSE *($f9) DELETE a PCLS < NOT EE& END RETURN FWRITE ($ed) CLOSE $ BEEP DLOAD x<U CSAVE INPUT 5 SREAD Um PLAY TROFF SSe TRON FN zN KILL READ FREAD 7 LET SWRITE RETURN  PMODE MOTOR ($f6) TROFF \$R BEEP \($ec) EXEC vQ\ CSAVE ($f1) CHAIN >Ge STEP ($f9)*9LI STEP 'q AND TRON oT CLOAD  STOP MOTOR # PCOPY S+!]9\P] CIRCLE ERROR A LET PUT ^h ) USING a^5 EDIT 0 LINE ($ed)I-+ FREAD T LET FWRITE ($f2)) DATA DvZ CHAIN CLOAD TRON SCREEN  IF b($f1) PCOPY X TROFF j/<+W DEF ) MOTOR FS STEP ($f3) DATA ;\S STOP ELSE T LET AUTO ` CIRCLE ] FOR ($ec) + PROTECT ) RENAME DEF =" CLEAR M9(EH($ec)($fc) STOP BEEP VERIFY POKE +l OR N GO \ IF 9B STEP RESTORE TRON FUR; EDIT x6;=a`@X PCLEAR Z BEEP FWRITE v DELETE REM y FOR r ($f6) PRESET ) CSAVE END FB EDIT d FLREAD CLOAD PCLEAR hqP END RETURN FWRITE EpLda PLAY PCLS  FLREAD }g'($f4)($ee) RESTORE COLOR /x` GO k/a CONT r RETURN FWRITE : REM RETURN FWRITE -i DATA Q> AUDIO r;![f> SAVE DATA A SWAP NOT # NOT LET LOAD . PUT PCLEAR xV9w DATA r AND LET CHAIN i d RETURN  EXEC +` TO ($f0) DLOAD FOR READ ($eb) RESTORE LOAD ZS AUDIO -'CNK0^A FWRITE E COLOR g PLAY TRON X CIRCLE PROTECT  SET  ($f0)R($ea)X STEP END PRINT RESTORE F($f8)J DIR PRINT - COLOR Z- REM CLS RENUM f LLIST ^ SET MERGE x IF j@; RENAME SOUND DEF (EE OFF  VERIFY  RESTORE SCREEN r SREAD  RESTORE F($f5) RETURN  SKIPF 0k RETURN ELSE xVCr ON 4 CIRCLE IF wL PRESET GET He PROTECT  FLREAD C GET m RESTORE  15216  IF t DELETE ' TO ($f0)NMLi LET :  AND #q NEW ]'";#c DRAW OFF 9W! DLOAD  POKE RENUM OPEN CLEAR < NOT DIR EXEC  CHAIN SET  CHAIN MOTOR PLAY EXEC BF CHAIN # PAINT u FLREAD  SWRITE P PRINT 0 PSET TROFF AUDIO HT LET FWRITE O;H#s^ CSAVE x^ PAINT # PUT DATA X' FB TO REM 7 TRON TRON PCLS  S CLS H VERIFY *Gl IF ($e9)-' READ 9D DEF J2# PAINT Nr AND LET AND v RESTORE V SREAD CHAIN ERROR POKE DIM EDIT REM r VERIFY  RETURN  POKE CLS > DEF ($f3)V CHAIN COLOR RESET SAVE RESTORE o^"; PRESET 0>9 AND ($ec) CLOAD PCLEAR d;#+dGg+ DIM DIM 5 COPY END q PSET STEP iS>xd`" PLAY FN 8 BOOT 9 TO S READ ) USING "R; \P REM 2 EXEC DATA ZS STEP 0R;?^ LINE R;.6. PLAY dGg BACKUP DIM OFF ($f1) PLAY AND LET OR OR a`P END RETURN FWRITE EpsK'40 END RETURN KILL ) RENAME DIM SOUND ($fc)' SCREEN # PAINT CLOSE i CLS MOTOR F@-"b= O SKIPF ^ CIRCLE STEP ,7f ($eb) ELSE STEP b SOUND ELSE vQ ERROR Mr*| *C RESTORE ^)E DRAW a=n CSAVE FLREAD A( SUB @ OFF SWRITE FROM EXEC 8 CONT OR COLOR I REM RENAME ($fd) COLOR DSKINIT NEXT OFF NOT x SAVE vI COLOR T CHAIN PLAY CIRCLE b MOTOR  ($f8) BACKUP jfX EDIT @ PSET ,- LET BACKUP DIM RENAME # RETURN u STEP ) SET d<.P* CONT ^ DELETE ' SWRITE <$-`mz+($ec)Gn CREATE LINE i6 CHAIN CLS ($f1)!- DLOAD L DIM  MOTOR D.C($ec)) CLS J2# GET GO DRAW p~ SKIPF m* LIST REM REM line numbering breaks here! REM ($f0)# GET ERROR PUT  CLEAR CLOSE PAINT  FREAD ! RETURN FWRITE 4 AUTO  RETURN 6F STEP ^ RESTORE OPEN ($fb) DATA -p READ > PRINT NEW @ SAVE <7!o RENAME FREAD \SKA'" MOTOR TROFF SREAD * BEEP  CLOAD  AUDIO L PROTECT `KV CLEAR BEEP CSAVE p` PROTECT ; LET Dv RESTORE ^2# ELSE DIR REM COLOR SCREEN MOTOR OFF PLAY >p^b0Z RETURN DATA ($f5)* PCOPY AUDIO r;HB FROM /` IF READ h8 COPY RETURN b DELETE Pm* "T> NEW @V RESTORE OR REM 7# GET LLIST + CLOSE &($f4) PCLEAR hMbG BOOT ($ec)<)W FROM OFF DIR PRINT - EXEC OFF CONT  DATA A IF ($eb)KA END DATA RENUM 1p/ IF j\Cx($ef)^ RETURN  PCLEAR OR PMODE * SREAD GO NEXT  FOR PCLEAR SCREEN FOR m OFF x-z! STEP LIST RESTORE SOUND  DIM END  ($f0) PLAY ($fc)x= PLAY ! TAB( je END r DATA ! RESTORE TRON b@( BEEP COLOR 0 GO MOTOR 4 OFF )0 LIST d-| PSET 1l REM 9 KILL z PCOPY  END COPY RETURN c DELETE  REM SREAD ($fa)W DIM CLS ya WAIT NOT #" ELSE IF ($fa)D TRON yt& PLAY F VERIFY v~($f0) OFF C SCREEN 8 FOR F SAVE  RETURN ERROR SREAD SOUND 7 THEN ]' OFF x\ TRON yt OFF ($f4) SCREEN SWRITE +b VERIFY ELSE x PCOPY S STEP ) SKIPF SI GO PAINT SWAP / SAVE  RETURN FWRITE ($f6)I NEW 0~hZ AND P LET OR 0R;=h ($ec)T=cPx GO >xH NOT E*($ed) TRON  NEW @ PLAY ($ea)X CONT B SREAD SWAP gd PRINT  CLOAD 6 DEF _/ *E($ec) CONT PSET IF Y($f5) REM A4 PSET NEXT  FLREAD GO ) RENAME EDIT d STEP FLREAD ) RENAME DEF ) RESET CLEAR ERROR V FROM NEXT PUT B LIST +\ PROTECT  FN p TROFF 3156 <'x($ee)9 ERROR X+ +YmM$2b< LET > CHAIN SCREEN C RESTORE FB($fc) OPEN Jh.: OPEN ($f1) PRINT 0 END PCOPY AND  USING (f CSAVE T($ee) BACKUP  SAVE !@ LINE 'qJw4 TROFF REM REM line numbering breaks here! REM SCREEN  CREATE PRINT d LLIST ; IF ^ OR 8 FOR THEN 4y+>HV FWRITE LIST RESET 8 CLOAD  POKE  TROFF ) DIR * POKE hD2 CLOSE d` CLOSE TRON AND DIR EDIT 0v GO FN CLOSE RESET y8U`g EXEC  DIM EDIT REM SWRITE PUT +` PSET END eMT8($e9) NEXT BlRb/P DRAW  TROFF bP RESET bl;O OJh+ CIRCLE [n($f0)+-e DELETE p5,($f9)PC PUT {;H FREAD = FOR KILL FREAD eJ VERIFY M DATA B GET '@($ec)+ CLOSE +< COLOR TROFF STEP PUT PSET ' SREAD C CLOSE TROFF \ SAVE 9i DEF V STEP yPB9 G NEW  WAIT POKE v($f6)# PUT REM ! TO nbL]T2/LLT?($ed) CLS PROTECT RENUM b ERROR T CLS FD! TO w ON ($ed) SUB *W FOR ($f0) STEP AND OFF S STEP ($f9)d(F 8d AND LET >< PLAY B} PCLS PRINT 15216  TROFF @ ERROR X NOT KILL &# PMODE  REM 7 SCREEN Cq\$Gd SKIPF Z SAVE  PCLS PLAY LOAD LET FWRITE t END ON ^9O DIM ON ($ed)v*aJ FOR LET A END DATA ($f5) REM p- IF PAINT OFF Ay SAVE PRESET _ FOR REM m FREAD  TROFF Tx#`($fd)R IF SWRITE s DIM CSAVE  LOAD 8 CHAIN  END 5 OFF /`X PRESET  SREAD DRAW STEP MN BACKUP <2 TO n)M PAINT  DLOAD +0~P PLAY E' CLS LOAD *BG! DLOAD  PLAY O TRON Bd9($ee) LOAD N!] OFF ; RETURN FWRITE y11SA($f3) SET KA GO t8 VERIFY  AND LET MERGE IF ERROR  RUN BEEP s GO SREAD ELSE REM 2# PUT TROFF Y Hq) POKE ay VERIFY B MERGE PRINT ! RESTORE ^7 ERROR T SCREEN C TRON NOT WAIT  VERIFY *- DELETE M DATA ($f3) ~A NEXT \#r;\T SWRITE p LET U LOAD d!r MOTOR ($f0) CHAIN TAB( RENAME IF INPUT P($f7) PUT  STEP ERROR w LOAD LET DSKINIT  GO SREAD  PCOPY LIST . GO 6.($f0) SWRITE -"($f1) DIM STEP ($ec) FOR CLEAR LOAD #r;>*2r7 CLOSE ($e9) PROTECT SAVE  RETURN ERROR SREAD ($f9) MOTOR ' TROFF  CLEAR p8 TRON SCREEN i USING pI NEW 0A~O\ CREATE " EXEC vQF] COLOR q FWRITE x($e9) RUN 9 IF Q NEXT CLOSE  POKE  EXEC  OPEN (J*Ga|" ELSE v CREATE !U# PAINT END 2($f1) GO *B2 PRESET *H($ec) AUDIO CIRCLE U PCLEAR NK'- CREATE P PRINT gJR;e<2 PRINT 0e LIST d, TAB(* LOAD HvY RENAME DELETE + AND SOUND ($f3) CSAVE ELSE T LET FWRITE END 0V VERIFY v~L($f5)($e8) END RETURN KILL R($ea)>=< NOT E($ec)($f3) OPEN FLREAD CLOAD IF EH($ec)' MOTOR 3 CLOSE f DIM ON ($ec) FOR CLEAR R;( SCREEN C GET ($f2) END  FWRITE ($eb)5 TROFF  CLOSE vP END PCOPY ;K DIM SAVE  SUB !X AND #q RETURN  POKE NOT +8_ CLS NC PRESET '07 MOTOR EDIT  TROFF  CONT ^ CIRCLE ^ EXEC ;(=8 RENUM f SWAP o,8 CONT ($f5)/ CHAIN CLS ($f4) FROM PUT PMODE ,{Bs+q DRIVE &k9+ INPUT bM IF ($fa) CLEAR 0b MOTOR >a RESTORE =AJX PRINT 7($e9) DSKINIT >A!JNE LET P RESET SAVE q BACKUP &($f8)($f1) LOAD r# PUT IF ($f3) TROFF c TO ' ERROR x_ FROM  FREAD  CIRCLE ($ed) BACKUP RESTORE ^ OFF ; RETURN ERROR ($f8)& CREATE 2^  RENAME CONT  COPY 4jgx1cq CREATE SAVE j[@ LOAD S RESTORE IF *($f1)M PCLS C! BACKUP 1P($f8)h($f6) TRON FROM M, CLOSE CLS *Cx CLEAR 0` PROTECT ; LET ECJ COPY 0p PRESET ON s OR NEXT  EXEC P($f0) AUTO ($f4) BEEP xO READ ($f0)NBB($ed) X CIRCLE PROTECT ($ed)< BOOT 6!= NOT 8G FOR ($ee)Gi1c PLAY ($eb)=b CLOAD P($f5) TROFF ANB PRINT `}9. NEXT COLOR g(1c OFF  SET ($f8)A END PRINT NOT ;G GO  EXEC X WAIT OFF T9+C NEXT IF N<8 <.3 AUDIO m NOT Te> CONT >t RESET DEF ($f0)i ($f7) IF A(Q PLAY SUB ( SOUND SREAD ($fa)N PSET DEF 2 READ > PRINT NOT u^jf L1 IF bPre SET SKIPF M($f9) CLS E($ec) POKE `($f4)vN RENUM M ByO <`"`" CSAVE Bw SET ^ LIST &z($f5) REM a PRESET SET STEP # GET LET TAB( CLS z POKE USING 8+ih0! STOP em CLOAD )YPW RETURN  OPEN (E($fb) NOT ($f5) FLREAD iN SUB n+ BEEP * REM VERIFY v RESTORE ($eb)0Cid(/ USING * BEEP " DRAW B; DELETE 4 MOTOR REM REM line numbering breaks here! REM SKIPF ; DELETE DRAW ="($f4)1 DSKINIT 8L READ 4 TROFF 89 RESET STOP dGmM SREAD  SUB RESTORE $ DSKINIT (N SREAD IF /a|a( SKIPF S FLREAD RESTORE PSET P+!As PRESET P READ ERROR / PROTECT ; LET Dv($ed)<:hl LIST COPY ; LET PUT r DIR EXEC .:($f2)x NOT ($f1) END UB*Gdj RESTORE ($f0)r VERIFY V RESTORE MOTOR  SET PUT DELETE rgj($f0)6 CHAIN px CONT ($f0)S STEP STEP ($ec) !r($eb) DIR < PRINT k ELSE ^ DIM ($fc) MOTOR AND *]&G PLAY SKIPF ($ea)L STOP  CLEAR < OFF  TRON ($f3)L RENAME ,A| RENAME e CLOSE IF FREAD + DSKINIT I PSET NOT EE($ec) DEF j AUTO STEP YRa& ELSE STEP )Iu BOOT ($ed) GET 9 PAINT ELSE T LET FWRITE Od EXEC ($e9)l5($e8)9 SUB SWRITE \($f0) DSKINIT BOOT SAVE /a, END DATA SAVE $/R!\($f0)@ END  FWRITE  AND /C DELETE x?(` AND dGmp LLIST +!($f2)^h:txyU POKE e LOAD d*Gl IF 4 VERIFY ($f6) IF b($fb)SA IF ($f9) CLS 3L SUB ) USING (Gd AUTO  COLOR W!N($f4) PCLEAR 7 FROM Fz EXEC kNI DSKINIT I PROTECT x! POKE LOAD +<* REM SREAD FOR CIRCLE B;'*S SCREEN POKE DLOAD FROM DSKINIT I($f6) IF FREAD u^d2/ LOAD DEF FOR {a TO ($f0) DLOAD @($f8) SUB t *i READ a LET  LLIST ,X OFF ~s+| TRON e ON ($eb) LET T BEEP o<L($f5) USING ($ec) REM FLREAD RESTORE COLOR ^ DLOAD RENAME DEF ? ` PSET ON ($ec) OPEN () STOP READ VERIFY  DSKINIT OPEN ^Y PLAY cL($f3) BEEP =1P CHAIN DIR DATA y ($f9)m PLAY G IF { FROM RUN  PCOPY ($f8)'K0 SET X'(6* RUN Nxe REM ($ed)C SWRITE PLAY VERIFY Gl COLOR TAB(Qg  EXEC l LIST 3 VERIFY STEP Ti AND 7 LET SWRITE RETURN c DLOAD FWRITE j SAVE AND 2 TAB( CREATE DEF * LLIST C( LOAD TRON i($e8)($f3)@ PSET IF ($ec) REM READ DATA DLOAD IF I COLOR ~AYB($f9) GO DRAW BACKUP  TAB(($f3)+-* DATA A NEXT _Jh)80(HR NEXT XO) SAVE z CONT ($f0)=  FOR ( AUDIO , TRON |B2 LINE RETURN KILL ) RENAME AUDIO TROFF TO 8< DELETE ' TO ($f0) POKE ` PRINT LET CHAIN  END T($f1)  SAVE &*h+Ye DRIVE CONT il PCLS d^) BEEP LET ($f8)H NOT E($ec) CONT 1Ap SWRITE Zh) DEF d(>/ DRIVE POKE NEXT CSAVE 4285 * SOUND SREAD FOR CIRCLE Y RENAME SOUND IF 0S PAINT BEEP ($ef) LOAD LET DSKINIT DEF  LOAD S LIST  FWRITE ! DIM +!V. GO TO ($f0)M CONT P LET AND / SKIPF 4 BACKUP  TRON J:($f2) REM REM line numbering breaks here! REM (($eb)($eb) MOTOR N DIR RENAME CREATE LLIST ,@; RENAME RENAME 0| BEEP " ELSE p SET Cv SWRITE PLAY VERIFY Gm($e8)yR PAINT PUT TROFF :X CIRCLE ELSE ($f8)a-X^ COLOR \B($f1) PLAY TROFF *jZf FOR -R ELSE BEEP PLAY 83,| SAVE 9 SAVE FLREAD 2 DATA -R/]i\ OFF <($ed), STEP REM SUB PRINT z CLEAR <0 RETURN ($e9) DIM OFF  NEW " DEF ^p,eP PCOPY POKE 'R PAINT  PUT  FOR G GO b</WA@QB VERIFY P< IF ($f0)H EXEC FLREAD LIST ($e8) CONT 3#|y TRON  OFF 9TnGk DIM PCLS !i5*g REM DEF ($ee) SOUND SAVE DIR : PCLS ELSE IF H($ec)($f6) FWRITE x BEEP STEP E SWAP 1|($f8)< BEEP >) USING B PMODE # PAINT END O0 DIM PCLS !# GET DRIVE +<PZA` DIM y6>@7m NEW i' PCOPY STEP ]i CLOSE  AUTO BACKUP Xz CD5 STEP ) SKIPF PCOPY = READ B9u IF C-r DRAW ($ed) CONT ($f0) AND NOT E-D PCOPY CHAIN k($f5) CHAIN |' PRINT <{O END 9M PMODE  DRIVE COLOR  EXEC  SUB \!q IF BA ERROR B PRESET < REM 9 KILL PUT ($f0) AND d( DRIVE POKE END DIM CIRCLE SKIPF BT<v RESTORE FDv LIST '*; DLOAD b DIR SKIPF REM Nr PROTECT AUDIO ";HS CLS J2# GET CHAIN ! CLEAR *x ELSE dGdL($f8) BEEP B9 MOTOR ELSE IF l DIM COPY AUDIO r;& CLEAR ERROR ($f4) BOOT PCLEAR =F THEN x` LLIST DRIVE  SAVE REM ($f1) DATA < CREATE * EXEC vSQ}vV RESTORE VDv RESTORE EDIT xaq DSKINIT H EXEC H($ec) REM ($f6)A|($f8) TRON EH($ec) EDIT  CSAVE DIM CIRCLE TRON wV DATA < COPY STOP ELSE T LET AUTO q WAIT READ & DSKINIT /p FROM FREAD w DELETE RETURN PLAY F($fb)#r;^ CSAVE ^jw VERIFY CREATE SCREEN { DSKINIT Ly SUB Ec u($ef) y SKIPF ZA KILL \0z STEP PCLS CJn.!> FN E +^ = DSKINIT  FLREAD GO  LINE PUT IF ($ec) POKE EHvA DRIVE 0 OPEN ($f1)& RESTORE PLAY EDIT x0U AND " POKE STEP V OFF ($f8)! DRAW  NEXT DIR (./ EDIT -z($f5) DRIVE STEP U FWRITE CONT  SAVE  RETURN ERROR U RESTORE PAINT ($f5)!` END BACKUP  PRESET 9 END ($f7) ELSE ^ CLS " ELSE :($fb)($e9) DATA GET  END USING !`@ END DIR ($ec)($ec) GO  FWRITE ($ec)' SCREEN o-+ DIM ON ($ed)) NOT SREAD 7# T)< RESTORE U&*F+ REM r - LINE (( BEEP SWRITE 0 LOAD S SUB *i($e8) FROM & STEP g REM  RESET < LIST DELETE REM READ PCOPY  OPEN SREAD ERROR T!Yq EDIT AUDIO FOR THEN Z PROTECT NOT POKE # GET RESTORE ?0 PSET ON ($ed)!I ELSE SOUND EXEC vs# PAINT `($fc) EDIT  SOUND SREAD L OR PCOPY vHq DEF E)Pf SOUND a AND  y=:($f5)~A# PAINT LQ REM TROFF ' DRAW Dv RESTORE ($eb)XD$.  SET `" POKE  EDIT REM COPY 0r;j.: PRINT Vx CLEAR 2 COPY 5 TRON FN NOT SOUND FROM I STEP GO g# GET <*/ LLIST 4z STEP END DATA SREAD ($ec) RESTORE FN POKE IF | EDIT RUN RETURN PMODE LIST 5 ELSE P FOR PZ CONT CSAVE ` EXEC 9 PLAY PAINT ELSE eU# PAINT SWAP ` SCREEN TO a LET 4 DLOAD RESTORE GET CHAIN DRIVE GO ($eb) LET 0hk` SOUND ($f1) DEF TS A($f6) EXEC SREAD SWAP  OPEN LET SUB z FOR kg''l AND NOT E($ec) STEP ^R CSAVE U SKIPF \$2`A DELETE a PCLEAR 0CR PCLEAR CSAVE NEXT SAVE Mg + DIM +,$x IF ERROR LF VERIFY v> DATA ($f3)@ END Z DRAW 4Aqja SCREEN o MOTOR WAIT CSAVE 5$($fc)Re< DEF PCLS P+q|` AUTO ($fd)iI IF p| AND  SKIPF kN($fa) OPEN OFF jL@7 STEP g' REM LR TRON /d BEEP  STOP b SOUND CLEAR FWRITE CLOSE SAVE `qB CLOSE DELETE  DRAW 3 OFF VERIFY -)J CONT &($f8)kG DIM STEP ($f9) TO BEEP LET OR CLOSE 9 IF P] POKE e DATA ;($f1) SCREEN ' PAINT ($f2) FOR COLOR H CIRCLE FLREAD AUDIO L STEP pA DSKINIT POKE SWRITE H5*($ed) AUTO  AUTO X PSET & SOUND ($f3) AUTO  OR Ag:6;=-Xr FREAD CIRCLE WAIT  VERIFY Z END  ERROR SREAD POKE EH($ec) SREAD RESTORE ) MOTOR D.)B SET DRAW DATA BACKUP LET > RENAME VERIFY ($f9) GO DRAW OFF 9TnGg4 ELSE ip MOTOR DRAW  RESTORE F NEW B END R PCLEAR ($eb) CLS =@ ERROR FROM LOAD P SOUND SREAD T4 SOUND NEXT PAINT  SWAP  MOTOR d) SKIPF 4 TRON ^7+Q TRON MOTOR  DRAW hMB*Gi 2hT CLS ~$9 WAIT  DEF FX( PLAY &jX TAB(dGmt^e READ ; SET SREAD MOTOR ( AND T LET >-C PLAY = PCOPY P9VB>`" SOUND ($fe)($f4) CHAIN SOUND ($fc) FOR  TRON B;( DRAW * GO PMODE P STEP K DSKINIT @d ELSE SOUND ($ed) PCLEAR w IF c!~4' ELSE RjGe LINE RETURN FWRITE E($f6)E USING z CHAIN | DSKINIT b FROM RESTORE SCREEN p9 PCLEAR EDIT )'($f2)'m PCLEAR CLS fPr*i:[=pr;9($f1) q($f2) PSET 1 PRINT  REM *j*) COLOR A($ed)qNk / LLIST USING B*Ge DEF  TRON AUDIO ,8< TRON kJ LOAD T^ CIRCLE \ SAVE ^{ END DRIVE B AUDIO , RENAME w NEW EDIT ) REM  FWRITE X TRON { OFF } ON s($f3)ob^ FREAD ||= EDIT DATA SREAD CSAVE b DSKINIT TROFF c~a COLOR D FOR e REM 2 ELSE SWAP ELSE TROFF CLOAD b FROM 5 SWRITE 8xT#* LOAD T LET >(j RESTORE \v.C* TROFF  CLEAR t ELSE W8 END r RETURN  RETURN CLEAR LIST SUB 4 END NEXT ($fb) DATA -J RENAME ($f9) DELETE a4 VERIFY MOTOR  DEF ^2# PAINT CHAIN d` SWAP ON HS DSKINIT B SET D FREAD o RENAME  PCLS SREAD 9L OPEN b FWRITE  COLOR OR EDIT b*q($e8) DLOAD ^p RUN -;7 DIM '($ec)C RESET COPY  VERIFY v LOAD eCb06 ELSE FROM R SREAD # NEW & RENAME T>-& ERROR VX($e9) ON o^ SUB B DLOAD nx DATA T PCLEAR > COLOR SET SAVE  AND ($ed) RESTORE AND SUB J SWAP TO  TRON { ELSE xW COLOR ($ee)Gm/ZdT> OFF PCOPY TRON ($f0)($f0)* RESTORE ! POKE n2 SKIPF x FOR pI SCREEN T> RESET = CLS , RENAME STEP TO w ON ($ed) SUB  COLOR FROM J=L@($f1) FREAD pe< ELSE K DIM + IF ($ed) RESTORE VERIFY BEEP SWRITE 0 LOAD # OFF TAB( RETURN ERROR Z4 TRON yV DEF ELSE CIRCLE CLEAR w FROM GO SWRITE PRINT  RETURN V Gn CREATE <'x VERIFY GiN LOAD !/a NOT # NOT LET CHAIN SKIPF [x1P($f7)($ee)Gm/ SREAD ^"b MOTOR TRON ($ec)\ GET e($e8)Nxn' IF * ON s RENAME STEP SREAD = ON s\' CHAIN P~IR DLOAD  FOR J IF  VERIFY  LIST T LET FWRITE ($ed)J1 CLOSE v}3 ELSE DEF CIRCLE ~ RESTORE ) CLS NA DSKINIT ! RETURN  SKIPF 0 LET U LOAD nGiR ERROR  RESTORE PRESET D2 READ AND ($ec) SOUND FREAD ?y TRON U($f0)A CREATE ! LET STEP R> CSAVE X$T LET =0\>sA MOTOR PROTECT f DELETE REM RENUM T2 LET U AND n@9 PCLEAR REM 2 ELSE T FOR dv RESTORE REM FLREAD  KILL END END RENAME ($fc)f RETURN FWRITE STEP &\ STEP  CLOSE SCREEN / USING 9 ELSE ^s! PLAY SWAP /ax LOAD dGi` FOR q DELETE ' OFF x'E LINE i:h; BACKUP [^ AND KILL ELSE ($f0) PLAY PCLEAR B PSET  CLS 2; POKE `($fd) NOT 9 BACKUP i ON  NEW 8< FLREAD MOTOR REM COPY STOP NEXT SWAP / DATA  AND Y9=9(V SREAD AUDIO - NEXT CLEAR SREAD ($fc) PCOPY  STEP Br CHAIN '=` TRON ;#eW COPY DIM OFF ($f1) FN p FLREAD  PLAY FROM DRAW ( PROTECT !\ TROFF DEF H LET OR m EXEC (x REM r V SREAD SOUND  BOOT ($fb) ELSE WAIT t GO GET SREAD USING a`X CREATE RENUM T#* LOAD T LET =:B*) EXEC NOT ($f1) CLOAD SWRITE ` CONT \` IF X" LIST Ag($eb) DRIVE ` VERIFY 9 TO ($f0)|($f9)(5 OFF LINE .x STEP '( SCREEN STEP CH<$Gd FLREAD SOUND SREAD * DIM MOTOR ^- NEXT STOP ($f5) CHAIN yO# PCOPY S STEP E{ CHAIN PRESET PCOPY ' PCOPY = DSKINIT I FROM <20Q DSKINIT # GET NEXT y * ELSE 9($f9)6Zqx8W' FROM A!Zh*(.Gg CHAIN p LINE ELSE PRINT \y CLS Ej ELSE vq MOTOR ($eb)WPqH+ z PAINT  PCOPY ~4'= REM (GmI END PRINT PSET RENAME ` FROM OR E/ SWAP /a( PROTECT LLIST AUTO U RESTORE TROFF  CLOSE SOUND ($f9) RENAME ($f4) CHAIN PAINT  CHAIN m-) CLS ($ea)pN3 READ ` RENAME RETURN N RENUM N FLREAD )0>x SUB IF FOR LOAD CIRCLE C PAINT CONT .na9d: DSKINIT DIM  OFF SREAD CONT DATA -R*z NOT DSKINIT LOAD yV CLOSE POKE I GO SREAD 3 FOR ($f5){\ READ ($f9) CLS a!B RESTORE _0 TROFF b CONT ) DLOAD EXEC 8 COPY FZ COPY C END q COPY s/ RESTORE d PRESET e REM  ERROR SREAD TO EXEC )<0Ju($ea) RENUM 5*zS RETURN s IF X DELETE  BEEP SWRITE 0~@lFM EXEC A($fd)t MOTOR =A EXEC . COPY q DATA SOUND ($f3)($ea) KILL '@sb TAB(l PLAY jX'/3 PAINT X" REM ($f3)+l OR 74 END X$)< DELETE Ge DEF H LET AND /Y TRON FUR;e<YB2 LINE RETURN FWRITE EpvLv RESTORE FDvF LOAD #r;? AUDIO kG($eb)I**) DEF ;dv($f2)+P($f5)# PCOPY TO GO 1 FOR PAINT E:+Jh AND + READ K POKE (5 FREAD + RETURN  POKE SUB I'z($f0) ON ($ed) POKE  FN CREATE ( PRESET 4,a; POKE ay RENAME LLIST H" PLAY H LET AND vAg SOUND Z COLOR FROM COLOR Wr^ PUT ' FN :[ k2/ THEN FOR Ki COPY = OFF ($f8) COPY INPUT z($e8)MM>1 ($f9)u EDIT LIST PCOPY DRIVE dQd0|< PCOPY DSKINIT PCLEAR NEW =k2 GO ($ee):($e9)0 DEF yO LINE STEP '( LOAD TRON c TRON COLOR WV LIST * FROM CLOSE 2 SET  COPY 7 PSET  IF zA NEXT CLS /X*C PRINT  REM ($ec)V FWRITE s IF H OFF De CHAIN MOTOR *D*j42^ ELSE '<8 ($f4)8 PCLEAR B EXEC STEP TO GET SREAD z STEP l CLOSE 2yA FREAD ($fc) RUN Xq FOR ($ec)V EXEC STEP *Q COLOR E($f1)-948< CLOAD ($f2) GO RESTORE FZC DIM +^ OFF + CLS DRAW 3 DELETE -!/a RESTORE E9 LLIST ;<#` END z($e9)6 TO }($f4) SKIPF *a CHAIN l'S MOTOR E($fa)($f5) X" LIST GO E($ed)j FOR INPUT t( ELSE ^d3 CIRCLE ELSE Rt/f NOT " DIM  PRINT ' SWAP - PRESET MOTOR 6SA($ed)<A DLOAD OFF xxP GET & OFF T BEEP w SET t BEEP ($f1) CLS ($f7) ELSE _ NEW FOR + DIM + PCOPY P- CLS STEP  SCREEN jq ERROR  ELSE w SET <" REM V0 DIM IF REM + DELETE dvvhc COLOR FDp SWRITE 0P8 ELSE V COLOR * NEXT CLS > READ COLOR 2 SKIPF K NOT "($fd) S PRINT  IF AND ($ec) CONT (+ DIM + DATA  PROTECT  DEF  LOAD u SWRITE NOT ($f1) SREAD SAVE + DIM +| MOTOR /a 4/ CLOAD RETURN FWRITE 9 LLIST ; SET SREAD OR 2 PMODE ($e9)3 FREAD d AND LET AND q RETURN  LIST CLOSE CLS ! DIM @ BEEP SREAD ($f3) AND v TRON ON E($f9) RETURN KILL ELSE ($f0)Jc<" CSAVE -vzM EXEC J CSAVE hq PLAY E($ea) SWAP 3(<" CONT FLREAD ($fa)c AUTO ` LLIST z IF B)X GO VERIFY S AUDIO 5\a9 ELSE P BACKUP  VERIFY CSAVE E OFF Gm SWAP REM T3 MOTOR LIST 4h($ef)<7b SAVE ELSE NEXT TROFF _h PSET FLREAD ` END LLIST REM fF VERIFY vZ FREAD #& TRON COLOR c<" LIST !b GO DLOAD W3- ELSE " LLIST w/ 1432 EG LIST AND ($ec) FOR COLOR ; BACKUP UO PAINT  TRON SKIPF , PRESET COLOR . RETURN  DELETE DIM STEP P NEXT BEEP EDIT ";$($e9)P END g/f DRIVE LIST hq DEF x SAVE PLAY Es&` DIM TRON yO he DIM  RENUM ($f2) CLOSE  AND ($ed)#p READ AND ($ec) ELSE | SAVE /`($fa)N F VERIFY v> DATA PLAY >v CREATE 0 END PCOPY DSKINIT  PROTECT x REM CONT ($f0) RETURN FOR END RENAME ($f8) BEEP ($e9) CLOAD c OFF x($e9) DIM "($f9) BOOT END PRINT EDIT ) COPY LET Y GO GET CLOSE H($ec) RENUM Vf KILL hb*4f <# PAINT lB CLS STEP  DSKINIT NL($f3) SET BEEP DEF " PUT RESET @ NEXT BEEP CREATE PRINT 9x NEXT ($fa)($e8) SET 0qD MOTOR TAB($*P= AND s LOAD e REM *N= RENAME  END `($fd)!06@ TRON OFF { RESTORE PMODE INPUT c STEP COLOR SAVE RENAME  BACKUP / SAVE rb WAIT } SAVE RUN 0` NEXT ($e8)-"($ea)P SWRITE 0 LOAD #) SAVE PCLEAR 0 BACKUP POKE 9\($e9) LOAD LET KILL BACKUP ^Y+ CONT T LET OR DEF Pv AUDIO c PAINT hq ELSE S THEN ]& SAVE  ELSE V EDIT p END LET DSKINIT  LOAD LET = BEEP " REM (< EDIT @ DEF E=1 EDIT 0 CONT =jR7 STEP 3& MOTOR ELSE W DEF E+ RENAME ($f4) ELSE d RETURN  EXEC ) RUN 9dGi PB FLREAD LLIST 2 SET  DELETE <>xK s ELSE A,e CREATE REM )<e INPUT SAC IF REM f COLOR >+< OFF GET STEP +<" DRAW END 9Q CIRCLE FREAD " MOTOR  SREAD ]t CSAVE  STEP b MOTOR + DIM STEP AND SWRITE DSKINIT I CLS PUT 9+ DIM + PCOPY *h0E=/H NEW R EXEC NOT X" DIM ] STEP ($e8) CREATE SAVE DEF C DIM OFF QF CHAIN COLOR SET ($f3)+s @F) SAVE + ELSE R SUB Dvz1bM*C COLOR E($f4) BACKUP ON T# PRESET  ON IF zQ CLS G3 SCREEN REM ] PUT ($f0)|q COPY RETURN _ PCLEAR R- MOTOR > STEP ($f9) ELSE ^ CIRCLE ELSE R BEEP 2($f0) MOTOR X LET m TROFF zk>($f3) RETURN  STOP 1 MOTOR EM MOTOR /` DRAW  SKIPF a9 ELSE OFF +2< \ ON `h DIR *1b LLIST .J SREAD  BEEP " AUDIO Cr DEF ! TO SAVE m(p SET  nJw DELETE CLEAR \($f8) ELSE ^ CLOSE PUT CLOSE *($f5) B lX CLEAR -2l;L DEF STEP NEXT CLS > CLOSE fC COLOR E PRINT ` LET FN RENUM Be CREATE REM = EDIT REM  SWRITE COLOR EE END PRINT 3<8 KILL AUTO x!kXt PLAY B0 SWRITE 0 CLEAR 9 SWAP POKE = MOTOR 9 SAVE v STEP F PRINT CONT 8<;a RESTORE G";Ht TROFF  EDIT REM cKxC DIM + FOR FF-]1` DIM RENUM a/` RETURN 33074 ;'Y DATA ,]6TB)80EB RETURN CIRCLE  CONT MOTOR - DELETE M DATA S @ END g ($f3) PRINT  REM POKE 1 POKE RESTORE @ FWRITE =t& CLS IF zxO EXEC ($fa)W LIST K CLS +J COLOR # LOAD CIRCLE ` RUN DIM ($f0)N GO RETURN FWRITE ; OFF CIRCLE # GET NEW Y ELSE S RESTORE 'HL"($f4) SREAD 9 AND " CLOAD NOT FREAD CIRCLE }:($f5) DEF E&\5u( EXEC FREAD " DIM C DRIVE  DRAW + REM ($e9)X0E:R PLAY >0m REM ) DRAW )0 END R*+ ($f8)<; LOAD #r;. CLOSE PUT LLIST 4NA8<9 RENAME DELETE CLEAR TRON Z I($f5)! KILL y RENAME LIST ($e8)Sf DEF e RETURN FWRITE ($f6) DATA < FLREAD AUTO f ^@a($e8) DLOAD CLS A PCOPY ON ($ec) CIRCLE Y<#& ELSE P REM q DLOAD [f SET a>p SWRITE 0~e9 ELSE o DSKINIT I FN e2;o< SAVE OR k7 EXEC SWRITE LINE ($f4) EDIT - ON X CIRCLE 'SKl>q~P TROFF  RESTORE ! AUTO f INPUT u DIM CSAVE ($e9)8U)< Y REM )X`] AUTO BEEP SWRITE 0R0 END ($f2) DEF EjGdD EDIT IF ($f0)B OPEN R CLS "]1m* RETURN FWRITE 4^ CSAVE - REM + DSKINIT SCREEN  EDIT h& DEF SREAD =t RESET DIM ($f0)Bhq DEF o ELSE REM (vN\ TROFF V PRINT  DATA SAVE  TRON .t BEEP ERROR f >!A NEXT  FWRITE ($f0) BACKUP CONT `b^V DATA a;LKl AUTO ^d CLOSE SAVE /` PRINT 3 _hw@ AUTO X MOTOR 8q DEF \ LET AUTO Q# STEP b POKE L OFF x=qM1 ERROR f EDIT xV/Xc<" CIRCLE &*& EXEC a BACKUP 0 DEF E B DELETE FOR SOUND MERGE ($e9)V FREAD DIM |pV FWRITE ($f4)0F SKIPF B/ LOAD DIM Y($f0) VERIFY  DSKINIT A DELETE RESTORE LLIST SWAP ' GET a/a+ ELSE u($e9) CLOAD  STEP  NOT LET AUTO 9P FREAD EDIT  SUB  LET SUB RENAME ] EXEC vC` END V COLOR 6 PRINT  DATA SAVE  STEP :H($ed)<" POKE / CLOAD '($ed)I FOR COPY 0r ^ CLOSE AND ($ed) TO ($f0) LOAD NOT E2# PAINT T CONT ($f0)Fb;o< CLOAD NOT SWAP REM R TO SAVE /` GET DIM ($f0)SV KILL  BEEP SWRITE p NEXT DRIVE  RESTORE RUN CLOSE OFF *< SCREEN  INPUT  DRAW ($f0).K AND # FROM =^!z NOT SOUND ELSE v# PCOPY PLAY ($ed) DELETE < PROTECT CLOAD RETURN KILL X STEP REM QR;=a DIR DRAW  LET PCOPY PSET " DIM ON ($ed) SCREEN STEP  RESTORE CSAVE N.S OPEN CHAIN q RESTORE TdGi NEXT w($ef) DATA TO NOT 9k8d.][\($e8)- PRESET ^A LINE SWRITE  N9 NOT ($fb)=F\($e8), VERIFY FREAD kX ELSE \!W+l AND EXEC v AND S CLS U($e9) AND TROFF CLS ($f0) SET F RESTORE E($f4) DRAW QV# GET ($ec)]Y( CHAIN (' PUT , U8 RETURN FWRITE j> NOT LIST f PUT FLREAD  SKIPF l LOAD 92 KILL V PRINT 0} PCLS CLS GET LIST PCOPY d< LLIST USING ($ea) CHAIN EDIT LET SUB SAVE X AND \ LET >U GO CLEAR CLOAD ($eb)/ CLS EXEC 9 OR REM ($f8)K OFF T; DATA Q DSKINIT  ON ($f5)>em CLS a RESTORE ($eb)`H MOTOR SREAD @2 STEP ZS STEP  AND ($ed)! CREATE LET  RESTORE =!Z RENAME PSET  OPEN LET PUT LLIST - DATA RENUM [Ha VERIFY : STEP ($f8)< PCLS FREAD u PRINT '*($fa)($e9)9O  TO NOT F($f3) OFF FLREAD /Tv TRON GR;j5 DSKINIT HMg' CREATE * IF M9(E0($f2)ma PCOPY CLS bS PLAY SUB h CSAVE  SKIPF 2hT CLS } ON s RETURN REM REM line numbering breaks here! REM =($f0)'Ax LOAD dGms CLS PCOPY PUT VERIFY P RETURN LOAD PRINT ; DIM PRINT V PSET  LOAD T" EXEC vY RENAME DLOAD BEEP [ SWRITE EXEC 5/ INPUT 25696 CONT T TRON yG";e8r- LET  KILL z GO >s'($e9)M4 AUTO A KILL [C READ 9 T FOR W# ELSE DELETE ($f5) GO SWRITE ELSE CLOAD ($f4) SET `" SOUND ERROR CONT LOAD CHAIN COPY SKIPF J CSAVE X$($f0) DRIVE p DATA MOTOR AUDIO  <4 +s{^ RENUM M>LA DATA ($f4) USING i CLS DELETE REM ($ec) GO ) STEP 'x($ee)9 KILL zT LINE VR/a PLAY >t($f5) BEEP PRINT > DELETE LIST ELSE REM ($f1) PLAY FROM L OFF D($fa) DRAW DATA MM REM aq~) AND TO S STEP X GET B IF GO ( PSET  REM ($f1) GO PAINT ,($f6),Y"X OFF i CREATE CIRCLE 'A STEP ' REM fS& CHAIN READ 3 STEP ($f3)) LIST M(l RENUM 6 AUTO i t CLOSE * GET B PLAY NOT EDIT 0b DEF dM REM *E TROFF c* COLOR Z*4` SWRITE XdO& FN ON X OFF yO DRAW  CLS > INPUT c0]' THEN PSET IF -'!vHM(\t DEF - GO N OR DEF d)\ CLOSE 4 TRON j AUTO  GO LOAD T LET ( ON ($ef)' BOOT :($fa)< TRON w BEEP \" REM VERIFY v($f2) KILL PCLEAR RETURN A($f8) CONT OR COLOR I'^LY SWAP PCLEAR  PSET $> STEP x AND LET DSKINIT MOTOR > NEW SCREEN  SREAD ($f0) LINE LIST 4 CLOAD s PRESET 0Ar2l CSAVE <PD OPEN H PRINT a~aQ CLEAR ' CIRCLE f^ TO d)J AND MOTOR RETURN ($ee)7 SUB 4 OFF Xi8& RESTORE LLIST *($f4)8kM OFF END BEEP VERIFY '*< RENAME CLS SREAD ($ed) READ  AND p AUTO RENAME !r($f0)' ($fb) CLS Ek!B;$ NOT E9P READ PMODE lSX!v AND 2! USING < GO ($e9)Zh9O CHAIN RENUM ($f3)# PUT PRINT Y NOT \ RENUM SAVE ";< RENAME PCOPY DSKINIT ! PLAY TROFF ($e9) CLS LOAD o DATA EDIT / ^" MOTOR OR NEXT CLS 8 MOTOR T OFF  LET B($ed) U($f0) SET PUT CLOSE  REM ($f1) PLAY AND LET DSKINIT MOTOR ($ee)( ON I PCLEAR < EXEC (G,Bs EXEC ON [q RESTORE ($eb) OR OFF RENUM DRIVE {> RETURN C# LOAD n FREAD 9L OPEN  EXEC ($e9)l PUT ELSE ($ef)<$+A& OFF ($f4) CLEAR REM ($fa)L TAB( ($ea)/ COLOR >!X^hQJ RENAME ,X($f8) POKE ` DLOAD 'TI COLOR ] EXEC . 2 FLREAD \Jd FREAD ] COLOR Y ELSE COLOR KQ PCOPY  MOTOR > OFF B DIM COLOR b MOTOR ($f0) TROFF  CLEAR LIST PLAY TRON SUB *($ed) CHAIN  RETURN xA END PRINT RESTORE o/S+V REM MI COLOR NEW FOR ,($f0)QL AND ($ee).P` TO n/P DELETE REM IF DSKINIT  EXEC ($ee)X SKIPF  DELETE ($fa)r STEP '^ RESTORE LJ CSAVE OPEN  CLOSE I>+< NOT E: RESTORE EpNP PRESET 4* END PRINT PCLEAR CLS  FN ($f2) DELETE 0 SWRITE EXEC SAVE R WAIT  CSAVE CLEAR 2($ee) FWRITE TO *C PLAY ,($f0)QF*P RESET ($f8)O. MOTOR Zh<' PRINT c AUTO  KILL @ CREATE CIRCLE  END <W LIST H FWRITE E SREAD REM ($f3) DATA GET x1L.^b MOTOR FN 02/T PLAY DLOAD 1P WAIT DEF ($f7) IF FOR ($f8) <0 NEW Nn OR  COLOR \T CIRCLE LIST A3 CLS FN CLOSE f DEF Hd DIR ,xBs STEP H($e9) CLS MOTOR PUT *S+,$] OFF ; RETURN KILL qNM EXEC + IF ($e9) CLS ($eb) CLOAD 2 RETURN KILL ZF CONT RETURN z DRIVE  LIST 4 SWAP ' COLOR zj BEEP SCREEN   LINE END RETURN FWRITE : RENUM c PAINT IF n*Geu ^^($ee)I TRON DLOAD  CLOSE u OFF  VC-+ RESTORE PLAY i_.^C VERIFY PROTECT Z GET /"($f0) SREAD ($f6) IF dC LLIST KILL ($f8) DEF VJd FREAD e0v CHAIN MOTOR FROM GO  FN ;+ DIM mq SWAP DATA CIRCLE x ELSE P LET OR 0pH SKIPF \u($ea)~ GET PCOPY PCOPY pH SKIPF P^ STEP # PAINT LET OR 0 CONT T LET AUTO Gg MOTOR TRON ($ea)S@ END  FWRITE z H\/i ELSE \ LET AUTO AND B; Z THEN  REM RETURN FWRITE (f ($f1)@9 V CLOSE BT USING v.N DRAW 4 LOAD r# PAINT ($f5) IF A' PRESET RESET ` ELSE \ EDIT '<P DLOAD REM SkX FN hZ DELETE STEP COLOR E($ec) AUDIO PAINT O MOTOR FREAD + DLOAD  RESTORE Q PCOPY M99 CLS Ej ELSE v TO ($f0) PLAY CLS THEN $'l GO # PAINT NX\#q FN SB;-+qqHwM NEXT LIST * FWRITE 0JT BEEP S+Q} STOP f /F PUT IF c.($f3)LgF FWRITE +Yw DELETE p5 ERROR CSAVE ! SCREEN 7jSFJ CHAIN CLOAD CLS PUT ( ERROR qN($f4) AUTO  DEF 9 GET ($f2)B PCLEAR < MOTOR `@^0`=($eb) EXEC DRIVE p8 PCLEAR (r TRON PCLEAR x0U($ec) LIST ($ea) FREAD ($ec) TO `q\` CIRCLE SKIPF CONT #* LOAD d+ DSKINIT I TROFF  PAINT  AUTO  OFF PMODE 9 PCLS S PLAY U{ CHAIN CIRCLE p LINE ($f1)> LIST 0 CLEAR LIST STEP q EXEC ($e9) SKIPF { PMODE COLOR ($f6)($e9)Q VYB+ DRIVE  SET SWRITE ) COPY PLAY > LLIST SWAP * BEEP FWRITE H($ec) GET # R DRIVE  PROTECT NEXT CLOSE + AUTO A:($f2) EDIT p PSET PCLS Ju RENAME Gel LOAD dQ s, ON ($ed).T BOOT LIST END KILL 2($f7) DATA  PCOPY REM REM line numbering breaks here! REM CLOSE TROFF ^b PLAY ;$, 0 RESTORE ($eb) BEEP ) DRIVE LIST BACKUP !I GO FWRITE PCOPY RENAME )U# GET SAVE PCLEAR AUDIO ELSE P LOAD LET BACKUP PROTECT LIST FLREAD / DATA PLAY ? CLOSE WAIT PSET *y NOT SOUND PLAY 9' END A($fb) OFF CIRCLE JW? DRIVE  BEEP A ERROR B DRAW Qd CLOAD  NEW 0 AND  FLREAD KILL H FOR ZX9 CLS E($ec)($fc) TRON r DEF > PLAY H^ TRON B PSET ($f0)SYF CLOAD REM ` EXEC vq TAB(l TO 8 CONT OR COLOR THEN ' FROM HV7/ DEF ($f3) DLOAD  PCLEAR CLOSE ($fc) PCLS Ju PLAY VERIFY DIR .O BEEP  LINE (Gmx THEN  END  FWRITE * REM RENUM * SREAD B;\^ NOT CIRCLE y COPY n`1 DATA  LET CLS ($f1)@ END `($fc) CHAIN 0 STEP SWRITE qI RESTORE RENAME REM ($fc) RESTORE LET ERROR ($f5)mJ KILL (EH($ec) SOUND PRESET DIM ON ($ed)) FOR RUN  COLOR z EXEC Vx ($eb) GO BEEP * PRESET E COPY LIST zW DLOAD 6 KILL OFF n KILL PZ DATA  STEP K CONT :_ PCLEAR U DEF = RESTORE ^` REM BACKUP CSAVE r LOAD LET AND *X OFF k' DEF ,P LET AND d\ STOP N PCOPY @) AND #* INPUT + NEW PSET CLOAD H($ec) REM COLOR ($ef)p NEXT DIR & MOTOR + EXEC v^T EXEC DSKINIT DLOAD WX SKIPF T LET AUTO < CREATE #* LOAD #q CLEAR Ge STEP 9n DLOAD  PLAY *ax PROTECT PAINT # GET PAINT  SWRITE K DRIVE  ELSE ON v] CLS U TROFF AND #q ERROR B SOUND PRESET  CSAVE ($f7) FOR ($ed) PLAY EpM REM TRON Gdi'($f8)' FOR EH($ed) PRESET  CSAVE FL SAVE BEEP *($f3) FREAD !V($f8) BACKUP 0Q CONT & CREATE eL STEP {($ec)d SET  CSAVE @ LINE  CLS U($e9) OR H($ec) GET REM  BACKUP = RESTORE TT LET BACKUP PQI TRON EE*( RENUM RENAME ($fd)iP" DSKINIT h CONT ($f0) RETURN FOR END DRIVE ]($e9)^j CHAIN b j NEW $ SET LLIST 4m REM (j LIST TR TRON < LINE  END GET COPY RENUM ELSE eU ERROR CONT END NEXT PCOPY >: ELSE SREAD MOTOR U<*:($f5) SET  FWRITE ($ed)0 CONT eU# PAINT RENAME ($f9)+ DEF U($fb)+=f($fc)t PCLS *1'] REM TRON  RETURN FOR END NEXT 'R TRON -; USING &]ApC~ RENUM NS STEP FLREAD GO ($eb) EXEC ($ef)< MOTOR CSAVE ELSE IF N DSKINIT SET 0 PLAY SKIPF ; AND e REM r EDIT p LINE ` SWRITE C RETURN @ MERGE RESTORE "($f8)jo ON ,SeB;Cr CLOSE COPY RETURN r PRESET ) DIR v CLOSE V LIST V SKIPF s^ SAVE OR POKE NI PROTECT  END ` RENAME CLEAR PRESET ; IF S` ELSE S LIST @Ev EDIT ' PAINT q DATA < CHAIN $v@ END  FWRITE 3 GO CLS PCLEAR ( LINE  NEXT ($f3)@ END  FWRITE &0s AND P LET DSKINIT  VERIFY Jwz PLAY SKIPF 3 PCLS COLOR VAZ CLS ";_ NOT $2b< PLAY k AND .Gmj  ERROR \ REM )0AF PRINT '# GET SAVE TRON FN 41#x COPY 7 DATA 5/ COLOR ^ SET SAVE  END O= FOR GET SKIPF PY($f6)N40@ END END u CHAIN hGg VERIFY REM DEF ;u CHAIN w SET  GET SWRITE PAINT SWRITE Xue SAVE !R;> OR EXEC k($f9)By KILL # RESTORE w@ PSET REM 2# PUT IF 6 *i8 VERIFY Gd#Jh AND - LET SWRITE *R/0s ELSE r RETURN FWRITE * FREAD " IF INPUT jv TO ($f0)L5($e8) PCLEAR ELSE +W($f9)S RUN  ELSE SOUND EXEC v\5 SREAD  MOTOR '($f5) CHAIN r SET ($f3) g($ea) ELSE ;^x?@ TROFF (($eb) CLOSE v SKIPF " EXEC ;/28 PSET = DEF K SREAD RENAME k DRIVE POKE SWAP TROFF TO B PAINT = SCREEN POKE PROTECT xn`#";o<8e DEF HR PUT BEEP r SET  AND  DRIVE RUN /($e8)] PUT ^ CSAVE COPY kXue BOOT SCREEN STEP ^ GO 9w IF A-X RETURN FWRITE ' END BOOT POKE 8r y IF T DELETE ]:($f5)A] REM + CLOSE T FLREAD REM w# END CHAIN TO ($f2)# PAINT ` COLOR PSET \"($fd)P*($f3)@4 PUT ` TROFF  STOP x'zW DEF T_+ y8($eb)X CLS E($ec) POKE  RENAME CLOSE EDIT U0p~i3 SWRITE Hy'(;-) AUTO ^ INPUT ` GO  PSET IF 6 SKIPF D CLS REM  ERROR ($f9) NOT ($f2) PLAY DELETE p;< DLOAD IF ^b VERIFY CLS iM SREAD CLOSE ON 1 PRESET ) CSAVE ($ec) CHAIN EDIT , IF yCF PRINT ' AUTO * SET + LOAD SOUND  CSAVE mI REM ` FLREAD CONT BOOT SET EXEC  TO ($f0) RESTORE TRON COPY 0L LET = PROTECT gS RESTORE FB OPEN + ELSE r PRESET ($fa)($e9); RETURN ERROR ($fc) REM ; CREATE r# PAINT 2 ELSE ] PCOPY Re DEF ($ee)`" SUB ($f6)) REM SAVE SCREEN POKE END OPEN 9*B*Gez SUB ($fc) PCLS y TRON EH($ec) SWAP i IF SWRITE z THEN $ IF i MOTOR *9e[ END RETURN FWRITE  KILL e($eb) EXEC ($f5)sF ERROR Ax AND _k  ELSE eU# GET CSAVE c PUT REM 7 FWRITE * CLEAR aq RETURN  PMODE lv RESTORE G#J DRIVE DEF ^ TROFF GET 9 FWRITE B LINE ) AUTO ax LOAD e' NEXT /V`>+ PROTECT LET AUTO AND Y END ($e9) OR 6 EH($ec) ELSE v PLAY CLS AUDIO ($eb)C PAINT / GO [ RETURN FWRITE B+ DSKINIT I SCREEN STEP  ELSE Vx( TAB(($e9)m OPEN ] ERROR RENAME ($f3)+= fGo RUN @:r ERROR CLOSE J DRIVE CLEAR PSET 9m REM zyg($f2) PSET 0($f2) OFF a OPEN COPY CLEAR CREATE 0 LOAD ~0 DATA ;2 IF EH($ec) AUDIO , RENAME w DSKINIT jS^z< FOR u USING ($f3) ($ea)| BEEP " MOTOR !B; ($eb)= RETURN  DRAW PSET R SCREEN i CLOSE  REM TRON ** RUN 74 PRESET ;($eb) PROTECT nhGg '($ec)($f5)N4 EDIT 4 CLOAD  CLEAR PRINT e STEP B*Gl EDIT DATA B REM SREAD >+' COLOR ($eb)9 CLS E($ec) CONT ($ef) DIM ON ($ed)q FWRITE ($f9) E($ec)' TROFF ($eb)L RENAME z NEXT LIST @ REM CIRCLE DATA  NOT !][ AND AUDIO  DRAW *B*GmO^^Y SWRITE *D& EXEC v DRIVE BEEP r}* ERROR ($f3) CSAVE LET GET SWAP TROFF TO B PCLEAR <*: CREATE  CSAVE d: ON fL($e8)($f1)y USING AUTO > RESTORE PAINT RESTORE ($ec) SOUND STEP ]*($ea) FOR REM MOTOR > PMODE ($e8)($ed) PAINT ($f5) CHAIN j/ BEEP 5($ee)($f3) DSKINIT yW=L` BEEP =mA CLOSE :dP DRIVE ` DIM Q s BACKUP .($f8)+ SWRITE OFF P DSKINIT > CREATE ($f0) SWRITE ($eb)= AND !4 GO *(= CLS PROTECT xk/ COLOR CREATE CSAVE NOT B ERROR OPEN POKE m PCLEAR .A2=kD CLS ($ea), LLIST t RESET RETURN Z FREAD ? ELSE -+ KILL Y< TRON z SET /mhhC CLOSE DEF u VERIFY ($fc) REM +T+V FREAD + FROM H CONT 1 CONT ' TRON k RESET   EDIT PLAY $P\ LET BACKUP <# PRESET t CIRCLE c LOAD ZX>hGd-*X($ed)($FFFF)($FFE5)   NOT  ? S   ZS  ~  44 LL 65 ,LM 10 ,MMC \ ,RJ \date\ re: Election of \edate\ Mr. \pres1\ \pres2\ White House Washington D.C. Dear Mr. \pres2\ As a loyal member of the \party1\ party, I wanted to write and tell you how pleased I was to learn that you have received \vote1\ electoral votes. I hope you won't mind having \vpres1\ \vpres2\ of the \party2\ as your vice-president. \^\ \^\ I am sorry that I am so late in replying but I have been busy \' 560  SET  READ . COPY  MERGE # OR REM REM line numbering breaks here! REM DSKINIT " DATA 4 SET # DRIVE " READ a CLEAR 4 READ []' 0 READ ($f7)($FF77)*2b RESET &9 DATA o SREAD J&($fb) PCLEAR VERIFY SWAP b PCLEAR c($ec) VERIFY 'DV($ed) VERIFY $ ($ec)c SWRITE f($ed)f DELETE b TROFF e EDIT e($ec)cXI($ed)c DELETE bI EDIT b MERGE 2e5 CONT 4d VERIFY fafb5 OR 7681 OR 9960 9 *0 READ ($FF10) LET REM REM line numbering breaks here! REM "($FF1C) ELSE WAIT GO Y' GO N& SWAP 9 CLEAR /? LET ($fd)E< 844 NEW  READ X0 OR 863 ' F& & '> '> CLEAR '> CLEAR /? LET ($fd) PROTECT REM REM line numbering breaks here! REM DRIVE \ DSKINIT  BOOT  STEP LOAD + 784 POKE  GET 9 SET ($ec) MOTOR ' SWAP FOR J&($fb) ($f5) CLEAR  IF NOT '  SET 0 OR REM REM line numbering breaks here! REM PCLEAR READ FLREAD 9 SET DRIVE  F& & & SET DRIVE  RESET  DSKINIT DSKINIT  READ ]0 OR PCLEAR READ NOT  RESET  READ PLAY &($fa) DELETE CLS  RESET  RESET ;1 OR )v RESET  INPUT ($ed) GO CLOSE ($fa) SET ($ec) MOTOR MERGE =($ec) EXEC MERGE ? 0 OR 15665 OR REM REM line numbering breaks here! REM PRINT 0 NEXT LOAD ($ed) ELSE DRIVE DELETE SKIPF \ DSKINIT DRIVE  F'L($ed) CLEAR RETURN $ LOAD ? RENAME 94$ DEF DRIVE  STEP ""0 OR PRINT 1 DATA DRIVE &0 READ ($f5) BOOT "($f5)@46O EDIT ELSE L RETURN &2f5 EXEC DRIVE : PSET d FLREAD VERIFY 0 IF PSET b& FLREAD 0 PCLEAR b RENAME o LOAD #($ed) DRIVE " SWAP ELSE LOAD ($ed) ON  SWAP  CLEAR EDIT O DRIVE & ''+ 1 + 2383 ' END  DRIVE  STEP ' END  ' END  EDIT ON  LOAD &($ed) DATA LOC 0 OR 16149 0 OR 51303 m EXEC ' DELETE CLS EDIT FOR *($fa) 30 READ  CONT  LET REM REM line numbering breaks here! REM ($fd)`0 OR AUTO  LET 4159 NEXT $ GO COPY & SWRITE 0 READ  PUT G 0 NEXT o REM Z' COPY DELETE REM END FOR EDIT ELSE 0 OR REM REM line numbering breaks here! REM OR 1 ON @4 < 33196 VERIFY ($fa)2b($ed) OR REM REM line numbering breaks here! REM SUB ($ec) READ ($fa) RENUM ($ed) OR  RESET ($ec) READ ($fa) PUT ($ed) OR  MOTOR ($ec) READ ($fa) SCREEN ($ed) OR  AUDIO CLEAR / 238 ? READ /? LET ($fb)90 OR 670 CLEAR ? RUN 0 AND G DATA ? ELSE  560 OR REM REM line numbering breaks here! REM PCLEAR  LET  ? INPUT  528 ? RUN 0 AND G DATA ? ELSE  569 CLEAR C IF FOR '0 READ  PCLEAR  LET REM REM line numbering breaks here! REM ($fc) LINE ELSE WAIT GO Y' GO N&($eb) NEW C LOAD  MERGE O_ MERGE 4 MERGE  MERGE  MERGE 0 DSKINIT / NEW :0 OR  PCLEAR RESET 6&0 INPUT  RESET 8O/ MERGE 2 CLEAR NEW )(O DRIVE & ''+ 9 + REM REM line numbering breaks here! REM  MERGE + CLEAR D+,$($f7) ,&($f3) + ($ef) DRIVE , DSKINIT - CLEAR = MERGE +'  BEEP & REM 4109 ''' 10765 C&. CLEAR 0 OR REM REM line numbering breaks here! REM PCLEAR  LET  ? INPUT $? SWAP DATA RIGHT$ ( /& SET 0 CLOSE +" 0 READ W($fb)($f9)_($fa)> LOAD +  MERGE  POKE 9 C&& DATA 4 CLEAR  END 4 CLEAR  1055 A LET REM REM line numbering breaks here! REM ($fb)> DELETE b GO F&($fb) DLOAD 2d LOAD + 988  MERGE  )& READ 9 (& SET 40 RESET 4( CLEAR NEW ) DRIVE / SET 00&\ BOOT " CLOSE #$ DSKINIT / RESET 0($FF5B) DATA RIGHT$ (1 OR  PCLEAR  CLOSE 6'? READ  ($f7) SET 6 CLEAR (Fi FOR : CLEAR : GO : RESET 6 CLOSE 8& READ f0 OR  PCLEAR RESET 6 8073 DDDD-+00 GO 9# NEXT  STEP 9#=9($fb)/0 READ ($fc) LET REM REM line numbering breaks here! REM ($fb), DRIVE O SET 44Thbiai VERIFY ($f5)5/ 4 DEF READ RENUM 4 READ PUT 4 READ SCREEN 4A($fa)($f5)2g94 O/ POKE 2&0 OR  PCLEAR O DRIVE -_?($fe) DSKINIT  NEW 0 OR  PCLEAR  8720 POKE / " DRIVE $ BOOT 1$ REM REM line numbering breaks here! REM CONT LOAD 2+ 12853 CLS < 13021 2 READ l0 OR  PCLEAR READ P0 OR  PAINT ?0 OR  PCLEAR DATA THEN EDIT ELSE DATA  EDIT O/@($ed) DRIVE *Z SWAP ON  LOAD 2+ REM REM line numbering breaks here! REM ($ed) ON  READ 0 READ "<. SCREEN ($ed) ELSE SWAP ON LOAD 2($ed) ON ($ed) ON > READ  READ  DRIVE *Z&94 READ 5 ($f4)0 OR 24487 NEXT Z&($fb)9 CLEAR  LET  35344 ($f8) PRINT 9O DRIVE 2 CLEAR 3_ CLEAR ? ON PROTECT REM REM line numbering breaks here! REM ($f8)q9 SET / CLEAR 1_+ 9448 0 VERIFY ($ec) EXEC 3 OR REM REM line numbering breaks here! REM PCLEAR 0 READ > LET / 1 TROFF  9464 SWRITE GO 4($ec) ELSE  ' LET /0'0 & LET /  DEF EDIT NOT 5 FREAD EDIT NOT DATA EDIT - PROTECT 12489 REM REM line numbering breaks here! REM PCLEAR ($f9) BEEP 9'($e8) d 204 3621 &($fa) MERGE &< REM REM line numbering breaks here! REM  MERGE 94& FLREAD FOR NOT 0 STEP $ DATA  LET SWRITE VERIFY 1?&($f8)($ed) VERIFY ($fb)5 DELETE 5 DELETE DATA ?0 DIM $ LET T DATA ? DIM _? DRAGON FORMAT UTILITY Use: FORMAT /devname opts: R - Ready "disk name" Formatting drive y (yes) or n (no) Ready? ABORT Interleave value out of range Disk name: How many Cylinders (Tracks?) : Bad system sector, FORMAT ABORTED Cluster size mismatch Double density? Change from 96tpi to 48tpi? Double sided? Number of good sectors: $Both PHYSICAL and LOGICAL format? Physical Verify desired? DIM POKE DRIVE FROM FROM / /  BOOT  SUB  135 USING  BOOT REM REM line numbering breaks here! REM  GO ($fb) EDIT aFre FROM  Use: Free [/diskname] tells how many disk sectors are unused " created on RENUM Capacity RENUM sectors TRON -sector clusters TROFF Free sectors, largest bloc($eb) sector($f3)1M RESET ' '. DELETE FOR GO '( GO /'0 READ ($FF52) LET 528 ? DIM 04?5 FROM DELETE FOR B NOT $($f7) DATA @940M RESET  DATA ? ELSE NEW  0 AND ] LET REM REM line numbering breaks here! REM ?? INPUT  BEEP " DATA "1 AND | DATA THEN EDIT OR 251 1 READ ($FF35) 374 1 READ ($FF35) REM REM line numbering breaks here! REM FROM 0 AND ]"1 READ ($FF31) FREAD  LOAD c4o SREAD 0 VERIFY 2c1 READ ($FF25) 213 O_ NEW  MERGE  NEW MERGE NEW  MERGE  CLEAR  LET 16590  REM REM line numbering breaks here! REM ? ON 5@0 OR RESET <  POKE a# LOAD a1 NEXT  RESET LLIST  CLEAR ? INPUT G DELETE FOR READ F SWAP SREAD ' LOAD  COPY c MERGE $ j VERIFY &($f2)2a CLOSE LLIST VERIFY LOAD a' 8895 READ @0D REM REM line numbering breaks here! REM LLIST 1 READ ($fe)^ READ T0G STOP 1 READ ($fe) FREAD READ I READ ] CLEAR ? RUN _?_ GO ($FF27) READ READ READ H\4 LOAD COPY c MERGE $ 5 DATA 4 LOAD  POKE "& DRIVE BOOT # NEW  LOAD MERGE    5 DATA DELETE EXEC ELSE  READ  DELETE CLS *($f6) DATA 4 SET  EDIT FOR RESET 5 RESTORE 42 DATA READ ($f0)0M RESET  LET P DATA ? DIM 5 PAINT DEF CLEAR FOR B@ DATA CLS ' ($e8) d 1 DATA 461 DIM SAVE  REM REM line numbering breaks here! REM FLREAD ELSE SCREEN  DATA ($FF4C) AUDIO ! SREAD EXEC $($f5) READ N SWRITE !($e9) EXEC 1#j VERIFY ' DELETE VERIFY GO & NEW 9943 j VERIFY REM REM line numbering breaks here! REM ' BOOT DATA , READ INPUT =5 PCOPY 0 AND w READ  READ 6143 y REM REM line numbering breaks here! REM FLREAD FOR DATA ($FF4C) NOT d$($fb) READ DATA NEW 2596 ($fb) READ  DEF M' NEW REM REM line numbering breaks here! REM &9 NEXT 0($FF50) SWAP  LLIST FROM FROM FROM ORIENTATED