BEEP  Z   ($FF36)($FF02)  S Dragon 64 Dynacal SWRITE   (   THEN ~ 255 ($FFFF)($FFF8) REM REM line numbering breaks here! REM ($FFC0) ($FFFF) THEN S     . SCREEN  SCREEN demo_home.ca($ec) CMD COPY SY COPY demo1.ca($ec) 3demo_ind.ca($ec) =demo_cir.ca($ec) @demo_plt.ca($ec) Cdemo_npv.ca($ec) Hdemo_fwd.ca($ec) Kdemo_col.ca($ec) Ndemo_row.ca($ec) Rs($f3) dynacalc.co($f2) ef SWRITE demo_ad1.ca($ec) THEN  '  U  / )  BOOT d  / * CLEAR g   a FN    SCREEN   T  ' T  191 REM REM line numbering breaks here! REM S   RENAME S !  . SCREEN  SCREEN dynacal SWRITE )dynacalc.tr($ed) { ynacalc.tr($ed) SCREEN go5 CIRCLE SAVE di($f2) ($ec)de($ec) ($f0)cop($f9) ($f2)renam FROM ($f6)backu($f0) ($f9)lis($f4) ($FF69)nstall.d SWRITE fre FROM forma($f4) 28 ? REM REM line numbering breaks here! REM S  PS * Q 135 USING P REM REM line numbering breaks here! REM  FOR a C5 Dynacal SWRITE gd BEEP /($ee) B TAB( BEEP ) 833 .- DATA  NEW a PCLEAR  LET j LOAD j9/ SAVE ELSE & DELETE  ELSE ($f7) EDIT 9 RESET PCLEAR  DIR NOT INPUT DSKINIT PUT 1 OR  INPUT DELETE OR Na/ FOR EDIT SKIPF PROTECT 3 OR ($f8) WAIT AUTO *_3H*Z PROTECT  CREATE v FWRITE ($fd) CLEAR BEEP 'c GO '1 NEW v NEW ($fe) GO $ FOR H40 READ ($fa)($ec) DATA 0 NEXT 5 RESET COPY GO  DATA NEW ($f1)| FOR "($fe)($fb) ($fe) DRIVE BOOT  FWRITE NEW 6 CLEAR v' GO #E GO "!'z ($fe)&9 GO #/ FOR \ COLOR RESTORE / FOR  PRESET  DRAW FOR H40 READ  TROFF ($ec) DATA 0 NEXT 5n ELSE L) POKE  DIM Z FLREAD SKIPF DSKINIT ($fd)9 DSKINIT TIMER COPY PRESET ELSE DRIVE ($FFD1) CHAIN '{ ($ef) CLEAR v FOR # TO DRIVE ($f1)0*J'$J&) DSKINIT ($ef)) LET CLEAR ($fd)0/)]' DATA ($fb) REM REM line numbering breaks here! REM NEW CLEAR ($f1)8 ($ef)' THEN RETURN )E 35146 '9($ef) READ BEEP RESET ($f2) REM REM line numbering breaks here! REM DLOAD SET ($f2))W DATA  USING 0H)M SET ($f8)) DATA  FN )^ SET ($f2) GET &)  CHAIN )1 DATA  EDIT 0H)')E DATA  CSAVE DATA  LIST DRIVE LOAD DSKINIT BOOT CLEAR PROTECT  BOOT READ )($FF2B) CLEAR ($fd)0/) FWRITE ' CLEAR ($fd)0/,"9 FWRITE ' CLEAR ($fd)0/$($f2) DATA RIGHT$ FWRITE CLEAR ($fd)0/( TAB( READ BOOT OT ($f1) 10449 DRIVE ($f1)0*4( SET O?5( OPEN READ PROTECT VERIFY ( DRIVE READ ($f7)( CREATE READ  SET ($f8)( PSET O# SET ($f8)(0H( SET DATA  CLEAR 6 GO &O($fe) CLEAR BOOT NEW LOAD DSKINIT BOOT DELETE H+O NEW GET ($ea) NEW PROTECT RESET ($f8) DATA  NEW v($fe)A0 READ (O 0 READ ( IF 0 READ (v 0 READ (s4($ec) ELSE 0 NEXT 5 DATA DATA ($ea)4 CLEAR 6 GO &mH+($ed)mO'($e9) DATA NEW 6 READ DSKINIT DATA  READ i'" 0 READ c$ 6&($f6)  READ DRAW 0 READ U# 6&($f6) & THEN '($e8)($fa) RESET ($f8)5($fe) 18484  ELSE  EDIT H SET ($f8)'($f9) DATA o POS '($ee)Oe TIMER ($f8)' SREAD 5 ELSE FOR LINE H EDIT H DATA P($fd)($f1)4@ DATA  NEW 4@ PROTECT 3H DELETE - ELSE FOR 4 DELETE ELSE ELSE FOR MOTOR RENAME &M* DELETE G MOTOR & _ DELETE * MOTOR IF &\ BOOT &($f5)5 NOT PROTECT  FLREAD ELSE 4T3 OR  21513 }O MERGE l GO 5 CREATE 3H DELETE SKIPF \M+ 4D($ee) SKIPF READ 5D= 0 SKIPF = GO NOT NOT  DELETE SKIPF READ $\ FLREAD SKIPF 4'\5 ELSE 3Q' DELETE 0 IF & IF &9($fe) USING 94 FOR DDD SET 0 INPUT ($FF6F) DATA 5 SET 0 DATA 9 READ SOUND 3X  REM REM line numbering breaks here! REM LIST O BOOT CHAIN , KILL DELETE SKIPF ELSE ? GO ($f0)&mO&* ($e8) DATA  653 t DATA  READ w FWRITE ($fe)' 2598 PCLEAR ($fe)+ REM REM line numbering breaks here! REM TRON 4D\ SCREEN SKIPF NOT ($ec) SKIPF RESET l RESET ($f2) RETURN ($f2)# NEW ($f2) CLEAR l BOOT ($f3)# DSKINIT ($f3) DRIVE m RENAME &3 DSKINIT ($fc) MERGE ($f4) PROTECT ($f4)($FF66)& PROTECT & RUN SET COPY PRESET ELSE LOAD ($f4)\' BOOT ($f3)# FROM DRIVE ($fc)L' RETURN ($f2)# LOAD 5D=2b($fc)($ee) READ  NEW ($fd)9($fe)&ew NEW 6($FF03) CLEAR 64T ELSE H30 READ &\($ec) DATA 4  SET 1 TROFF P PRESET NEXT 5 CLEAR 3' DRIVE +& READ < FLREAD *' MOTOR ' EDIT  DELETE  ELSE WAIT END  EDIT  [q5 CREATE DATA  KILL DATA  DSKINIT 3'C9 DATA m ELSE '+($fe)($ea) *O OFF DATA 3 FN J# SET PCLEAR 9 +&) READ ($f4)/ PROTECT 3H DATA ($FF31) SCREEN STEP PSET MOTOR ' DATA WAIT PCLEAR >Z&($f3) READ KILL FLREAD *' DATA WAIT EXEC  ELSE ($f7) EDIT + PROTECT AUTO READ /9=3 READ 5578 PROTECT  DRAW &* DRIVE THEN \ DSKINIT DATA DRIVE NOT \ DSKINIT PRINT SCREEN +' READ PRINT &($f6) DATA &($ed) >I DELETE 4@ DELETE  IF &($fb).5 NOT DRIVE NOT O+ 34648 ISC+ REM REM line numbering breaks here! REM  MERGE RENUM 3^ WAIT CIRCLE CLEAR THEN L NEW DATA SCREEN -' READ BEEP LOAD RENUM 3= DATA &($f2) PROTECT CIRCLE PRINT & SWRITE I' READ POKE  PSET y / FOR  BEEP READ ) BOOT PUT , DELETE SKIPF ELSE ? GO & DSKINIT CHAIN 9 GO ' GO  SWAP GO )$ MERGE BEEP WAIT '($FF1D)($FF1D) DELETE SKIPF \ GO ?#= GO # = GO THEN # NOT  FLREAD SKIPF 9 DRIVE BOOT Z DELETE SKIPF END NOT EDIT SKIPF CLEAR ($fd)& READ \ EDIT SKIPF \ CLEAR CHAIN L EDIT SKIPF 9O0 OR ($FF4C) GO '($fe) SOUND m DATA &($f5) EDIT DATA HHH NEXT 0/$ DIR 9Recalc ... 5883  DELETE O FOR FOR "$($eb)9 FOR 8$($fb)/ NEXT .o*Z ($f7) FOR '($ec) NEW 6d*L&($fb) CLEAR 6h*L&($fb)9e. RENAME COPY - DATA  FWRITE READ OPEN NEW ($f1)0H$ TROFF READ X DATA ($fe)($fc)=$ CLOSE O($fe) DATA ($fe)0H$ LET CLEAR ($f1)($fd)ImG& FWRITE & $R DATA ($fd)($f2) DATA ($fd)($ed) FWRITE ' READ ($fc)$fO($fd) MERGE ]& 0 READ TIMER $W DATA ($fd) USING ($fa)n DELETE H ON FOR EDIT H9 READ &($FF2E) DATA ($fd) DLOAD $;$ RESET l0-$ SET l DATA ($fd) SKIPF $' DATA ($fd) LLIST AUTO 4 ]& 0 READ ($FF5A)$ DATA ($fd) INPUT 5 REM DATA ($fd) REM 0 READ REM REM line numbering breaks here! REM $ 6141 v EDIT ] READ MERGE LINE TRON SCREEN REM DELETE H ELSE  EDIT H NEW FWRITE ($fb) FOR 4# MERGE O($fd)T($fe) STEP RESET ($fa)($fe) TO RESET ($f8)($fd)25 CLEAR 6 GO &($fd) FOR DELETE SKIPF NEW ($fc) ELSE NOT GO @&($fd)t\($ee) SKIPF = DELETE SKIPF GO J&($fd)g\ SCREEN SKIPF = DSKINIT GET ($fb)' BOOT CHAIN &($fd)V RESET ($f6) POKE ($f6) & ($fb)'($fd)C WAIT ($f6)10 LET REM REM line numbering breaks here! REM  RETURN ($f6)' BOOT ($f7)&($fd)0 LET  6140  FWRITE ' DATA ($fb) NEW & * ($fb)& 64394 '($fc) WAIT ($f4) LOAD ($f2)3= POKE ($f6)# DRIVE PROTECT  ($fb)&($f9)^ ($fc)&($fd) PROTECT ($f4) LOAD ($f2) INPUT WAIT STEP 3= DRIVE GET BOOT CHAIN '! DELETE SKIPF GO K&($fc) WAIT \ SCREEN SKIPF = BOOT CHAIN &($fc) CREATE  ($f2)& DRIVE OFF  CLEAR STEP '( DELETE  IF '' +&($fc) BOOT DELETE  IF ' m* AUDIO ' ($ef) PROTECT  DATA ($FF16)($fc) PRINT ($fc)($eb)($fa)d ($fb) REM PROTECT " EXEC ($f8)($ea)4@ PROTECT " CSAVE SET ($f8)" THEN DATA ($fc)5($f9) FREAD SET ($fa)" PAINT SET ($f8)"' DATA ($fc)#" GO 5@($FF4C) FWRITE &($fd) ELSE RESET ($f8) NEW FWRITE ($f9) TAB( SET ($f8)($fa) THEN "($fc)]9($f9) RESET ($f9) PCLS SET ($f8)($fa) PCLEAR #($f2)2b($f8) LIST ]($fc) PRINT ] LET ]3 READ 65495 4PC SET 5F0 NEXT @_3 READ REM REM line numbering breaks here! REM DELETE ELSE & DRIVE 3D SWAP ELSE aOff On Radian mode ($f9)Q($f9)9($f9)+($f9)Y($f9)q ASC ($f9)u($fd)p($fd)n($fd) ERROR ($fe)($fd)5($fe)1($fe)9($fe)X($fe)=($f9) BOOT ($f9) INPUT DSKINIT  294  PMODE  ELSE  j LINE  b MOTOR R d PCLEAR k DATA e CLS  LET  AND  SUB ~V'V VERIFY   SCREEN  NEXT - CIRCLE cm RESET ($fd)  PCLS  ELSE ?4v DATA FOR  NEW GET 0 READ REM REM line numbering breaks here! REM ?? ELSE $ GET &($ef)4 DATA 0 READ 4624 ? DIM 5?1 LET 2 35109 SWRITE Q? RUN LOAD <sn OR Can't load Dynacalc.trm  SET / RETURN 0 TROFF Wo FOR Z&($fb)/>0 TROFF  REM REM line numbering breaks here! REM PROTECT ERROR ($ef) IF NOT *($fa) SET ($ef)' RESET *($ef) TROFF  FOR ($ef) TROFF ($fe) LOAD  NEXT  NEW DIM 3 TROFF 1023 0 TROFF  RESET SOUND CLEAR  NEW POKE <# NEW - DSKINIT STOP SWAP D BOOT ($ed)'0 SWAP  PROTECT  DATA RIGHT$ DIR ($ed) LET  3985 2 OPEN < PSET - PSET 4 FOR  WAIT 4 TO ($ee)'($ef)0> PROTECT n PLAY CLEAR RETURN & AND L NEW T DIR STOP '  STOP READ K PROTECT 3 OR  PLAY y AND ' SREAD <& DIM READ ; PROTECT 3 OR  DEF WAIT W_O MERGE + MERGE CSAVE DSKINIT SREAD DSKINIT 3 DSKINIT u MERGE RENAME DSKINIT x DSKINIT a\ READ + &= PROTECT SOUND SCREEN \ b RENAME ` LET  USING  LET SET m INPUT 11150  REM REM line numbering breaks here! REM ($ed)O NEW h NEW NEXT NEW SKIPF J NEW < NEW Z NEW ` NEW Y NEW [ NEW PRESET NEW TAB( SET  EDIT TROFF J NEW \ SET ($e9) =94 u& LET  FN v 2727 TROFF ? SET ($e9) NEW a5 NEW CSAVE GO (' POKE GO @' c GO #' 11536 ' INPUT GO +'' GO A, GET  DIR LET -7 SET ($e9) CLEAR d NEW NEXT GO ''j RETURN & REM REM line numbering breaks here! REM DIR SKIPF & CSAVE n GO .'/ GO ,&' h&#($eb) 19495 ($f6) DRIVE Y\ FLREAD SKIPF MOTOR SKIPF '($ed) h'($e9) TAB(' / DSKINIT a u' READ  21543  READ READ ($FF17)# TAB(&  AUDIO /($FF30) READ REM REM line numbering breaks here! REM \ MOTOR IF &($fb)+ SET 0 INPUT K/ O EDIT IF Z,($fb) NEW : NEW /9+-*/^><=().,?2b CLEAR POKE 3 DRIVE Y CLEAR [Z DSKINIT Y u&K NOT Y PROTECT n  GO #&* L'& j PROTECT j  GO #& T' T PROTECT p DATA  NEW SUB NEW 3 NEW Ud($f4)B$g CLEAR POKE ($e9) a' 7 u'{ DRIVE [4 DRIVE r DSKINIT [ F RETURN ' / LEN l w+' ($f7)5 USING ($fd) SET SOUND SCREEN 6 PCLEAR <" SET ~&0 READ ($FFEC)0 DELETE ELSE ELSE & LINE ) NEW " DELETE 8 NEW NEW !^d^ AND 9 u&($FF3E)4 RETURN '_ USING DRIVE \ STEP ($fe)& 23388 + EDIT SKIPF DSKINIT [ BEEP - READ  :` 5 DATA ^ CLEAR  NEW w REM \ DELETE SKIPF Q BOOT [$ w*($f2).Q DRIVE [ BEEP * CREATE [// LEN DIR  DATA , _ DATA ($fe) NEW \ READ WAIT 5 CLEAR CLEAR [ DRIVE Y MOTOR SKIPF / [ RETURN , CHAIN DATA CREATE  REM REM line numbering breaks here! REM ($ef) SWRITE 2| NEW \ DELETE SKIPF DELETE DELETE GO (& h GO )& h READ 6 NEW [ NOT @ DELETE SKIPF NEW a($fe) RETURN [+ PSET ($FF64) BOOT [& U' GET BEEP * NEW DRIVE [ BOOT * RETURN CLEAR ZL NEW FN READ ? BOOT Z' DRIVE Z($FF69) CONT DRIVE Y\* DSKINIT Y DELETE SKIPF NEW Z9 LET   LET 6679 LLIST - PAINT RESET l m NEW - LOAD l SET 3 PCLS  g LET  13396 RENAME &- LOAD SUB GO " -& TROFF DSKINIT FROM COPY PROTECT 3 OR REM REM line numbering breaks here! REM COLOR m-+ DRIVE 4 DRIVE  EDIT *5 DRIVE EDIT * READ K VERIFY DATA 5 CREATE CLEAR POKE READ Q($FF25)4 CLEAR Y DRIVE [ BOOT Z'#J u' GO GO -($fd)($FF20) GO STEP -($fd)($f7) FOR @ DRIVE a SWAP DELETE NEXT @ NEW Y DRIVE [ SWAP DELETE DSKINIT Z5 DATA 4 INPUT O PROTECT 3=5  READ Q DELETE NOT *($fa)O STEP CREATE # VERIFY 9 READ - RENAME &84 GO & SUB GO & FROM  VERIFY GO  VERIFY GO ' READ -$ MOTOR IF # EDIT IF SET m INPUT 5671 GO a GO z" ELSE _ RENAME ' GO  ELSE 4, PUT 5 RESTORE CLEAR VERIFY OPEN FROM SET 0 INPUT REM REM line numbering breaks here! REM ($f2) DRIVE SUB STEP 94O_ SET 0? READ 5 DATA 4O_ SET 0? LET 5 CLEAR  3248 READ +'($f6) READ : FLREAD \*_ SWAP  DELETE IF MOTOR INPUT ($fa)($f7)'9# GO ' DLOAD CSAVE ' GO a GO z" ELSE _9 READ 4 READ  FLREAD  SAVE 94O/? READ 5 DATA SET 0 INPUT  REM REM line numbering breaks here! REM 94dO LET 6704 OR ^? INPUT $ STEP COPY ' PMODE CLEAR ^ ELSE 5 VERIFY READ BOOT READ PROTECT 8 CHAIN READ CHAIN FLREAD  RETURN ' FLREAD \*_ SAVE & CLEAR POKE  REM REM line numbering breaks here! REM SWAP  EDIT IF 9 RETURN &,< 4887 ($FF66)4 NEXT &`' READ `5 REM 9 PROTECT SOUND SCREEN \ AUTO REM REM line numbering breaks here! REM `' READ +0 READ ($ea); READ ($fe)2 DATA  DRIVE [\ BOOT  DRIVE  AUTO 3467 +F NEW AND PROTECT SOUND DRIVE [\ SCREEN \ RETURN &Z0 SAVE X$. READ CHAIN CLEAR d0 RETURN &0 DATA PCLEAR \($fe) ELSE \ SAVE X& ($e8)' CLEAR d DRIVE [\ EDIT SKIPF DSKINIT [ CLEAR  ( DATA ($fe)i READ SOUND CLEAR d($fc) DRIVE u' DRIVE [\ DELETE SKIPF DSKINIT [ GO .& \ MOTOR SKIPF '($f5) +Y($FF4B) PROTECT W NEW d_ GO E' GO e'!\ GO A- GO [-\ GO 9. GO /.\3Am-+,m-+($f5) MOTOR NOT &($f8)4 PRINT NEXT &c0 READ 25062 IF 0 READ 34100 FOR SWRITE SAVE ($ed)c SET 0 INPUT  RESET W5 PRINT a& NEXT ' RETURN ' TRON C' GO :'($f9) CONT GO & SUB ($f8) REM REM line numbering breaks here! REM ($f8) PMODE RETURN & NEXT &($FF19)($FF60) GO ($FF5D) NEXT &($FF0A) a&($FF51)/ NEW 2e STEP &($fe)($f8) PRESET &* MOTOR NEW ON  RESET INPUT DRIVE [\ DSKINIT t_ CLEAR  END  NEW SCREEN  S002024:860          $$"" 252 ($fb)($f4)($fb) FLREAD  FLREAD | REM REM line numbering breaks here! REM ($f8) COPY @($f0)4($fb)9k CREATE  SUB INSTR  LIST  LLIST ($ec) DSKINIT ($f0)4($f0)4($f0)4($f0)4($f0)4($fb)#($fa) PROTECT / BACKUP RENUM =/ DSKINIT a GO 0- GO 9. NEW S($fe) CONT GO E' GO e' GO .& N&$ NEW S NEW O($fe)} S'($fe)w  N& DATA e($fb)E($fc) FOR S NEW N NEW O($fe)c($fa) CREATE GO ,& h'($f5) GO ('($f1) PROTECT 3 OR  0 AND  RESET ($fd)1 CLEAR Z RETURN [' PROTECT N'($fb) LOAD u' [ READ @ DRIVE P DSKINIT < RETURN ["^JL RETURN ["] FLREAD DELETE STEP .& DSKINIT Q ($f1) STEP e'8 STEP E'4 STEP 0& M& Q' MERGE R FWRITE Q& V M CLOSE ($fd)' USING SWAP FOR OR L+($fa) FLREAD DELETE STEP +'($f5) STEP -'9P ($ec)P READ ($e8)J RETURN [' 11769 ($f8) P'P _o ELSE KILL V KILL RZ1 DSKINIT '*P STEP - NOT (P BOOT M$ DSKINIT Mo IF DRIVE 'P STEP &,($f9)> CLEAR M GO / DATA  NEW M STEP - NEW K DRIVE ' BEEP M\ DSKINIT 94 PROTECT 1 OR P BACKUP  BACKUP 5 u'$ SET s CSAVE DATA FOR O07 [ ,/ DATA  NEW " CLEAR NEW e DSKINIT NEW J PROTECT 9 READ ($ed) DRIVE Z\0 SKIPF RESET ($f8)1 TROFF  BEEP h SET ($f8)K READ $ DRIVE e DSKINIT /2 DSKINIT a CLEAR d($fd)I0 READ  DATA ($ec) ELSE 0 NEXT  SET ($e9)($fa) STEP PROTECT 3Hf LLIST DRIVE [ DSKINIT \  SET ($e9) POKE ($e9)M&($f9).]+($f9))Z DSKINIT [($f9) BOOT CLEAR Zo SREAD 4l VERIFY DELETE VERIFY FLREAD DELETE NOT 0 STEP #_ ($eb)a DSKINIT k RETURN [$ DATA = SWAP aM' MERGE DATA ($f0)2b9/ DSKINIT a T& REM REM line numbering breaks here! REM ~ FOR @ NEW j DRIVE L' NEW L DATA = KILL L'k DSKINIT LM&f Y DSKINIT j CLEAR d NEW L CLEAR d($f9)t($fa) PCLEAR ($fc) DEF &) SKIPF ' DATA ($FFD6)Z BOOT [& L&A}M+ PAINT GO .'L Y u'($FF3C) READ .($FF37) L'$ S& GO 0' NEW S NEW LL($f9).($FF5A), ]'($f9)($ef)($f8)t k($fc)E($f8) PCOPY DRIVE jZ SET s DATA @ READ  READ  DRIVE k SET s SWAP FOR  SCREEN 4 SET 0 INPUT ($f3) PSET VERIFY 5($f8)G RESET s9]' LINE  EDIT 9 CSAVE  NEW 9 GO (& OFF h  GO )& RENUM h' PCOPY h/2 DSKINIT a($f7)($fa) CLEAR d($fa) u'($f7) RENAME ($f7) OFF GO #' CSAVE 0 READ  CLOAD v CLEAR ZL1 DELETE RESTORE [@ u'J NEW i FLREAD FOR _ DELETE IF MOTOR SKIPF &u\ i,($f5) CLEAR v GO $($fe) IF u& DELETE IF EDIT SKIPF \ IF ($f0)&($f7)Z1 SKIPF DATA 2 DRIVE v STEP , u& DATA ( EDIT CLS h DATA NEW a u&,($fe)o($f9) CLEAR u' [ CLEAR d($f9) NEXT GO ('L GO )' u& GO & DRIVE v STEP -: Z($fb)x SET ($e9) DRIVE v= RESET l($FF1B) SET l [ * v DRIVE v STEP 0:#($FF71) Y SET ($e9)($f7)_ GO @&R($f8)/( DSKINIT a($f9);($fb)$/ BOOT a' T& RETURN '7Y SET n RESET p SET SOUND SCREEN ELSE RESET PLAY 9 READ ($f3) GO '# GO 'B SET 3 INPUT  369 /($fe) DSKINIT @ MOTOR NOT 'S*($f9)0 @&($f3) ($f7)P DEF >($eb) ELSE ELSE 4 TRON RENAME  END $6 CLEAR AUDIO 3 DATA SAVE OR  CSAVE , SWAP ELSE a'/ T'($f8)W NEW \ CLEAR Z NEW [ READ t($f7) FOR /2 TAB(' DSKINIT a DSKINIT L($f8) CIRCLE PROTECT p READ <($fa) CLEAR a& GET CLEAR POKE ($f8)($ef) MOTOR 4" PROTECT n LOAD PLAY  SET SOUND ($ef)" AUDIO EXEC '" SAVE !'o; MOTOR EXEC 'o:4 AND 5($ed) EXEC  PAINT ($f9)($fc) 4" SET SOUND SCREEN " LOAD p46 SOUND 56 PCLEAR " MERGE pu5 SOUND LET REM REM line numbering breaks here! REM 5022 n RESET p NEW u READ + CLEAR qL' DATA ]' STEP - NEW 6 DEF x READ ( CLEAR 6 READ $ DEF "< READ  READ  DATA   DRIVE p DATA ?L NOT $($fb) GO @' READ =[ DEF  INPUT NEXT 0 u' x& IF ($f8)M NEW T NEW U4 DRIVE [\+ EDIT SKIPF DSKINIT [5 ELSE /($fe) DSKINIT \2e($f5)($f6) NEW +  [+x NEXT &($fa)wu SKIPF '9 u&1 CLEAR  ELSE ? NEW  DATA NEW u NEW SCREEN DRIVE [ DSKINIT r\* NOT  DSKINIT [ ($f5) EDIT SKIPF SET 0 INPUT  6132 SOUND [ CLEAR d NEW ON DELETE EXEC ($f4) FN +' LET d SCREEN & PROTECT 1 OR  DRIVE t NOT  DSKINIT PUT CLEAR ($ea) +($f4)su +'($fb) KILL + DATA @($f6)#1!_0 READ  FOR ($fd) LIST  ($eb) EXEC INPUT 50816 DSKINIT USING DSKINIT READ LOAD ($e9) MERGE [ PROTECT 3 OR  CIRCLE FLREAD ! DSKINIT *& REM REM line numbering breaks here! REM WAIT DATA RIGHT$ PMODE / 1" DATA V SAVE >'1( DATA E SAVE & 7361 @( STEP FOR t/K($fb) NEW !1(J4  SET 1 TROFF P 5 DRIVE e DSKINIT b FLREAD CLS 0 READ ($f4)($ef)-? STEP ,&/ DELETE IF STEP - NOT O0 READ }0 DATA DELETE FOR Z*($f9) DATA @ READ P GO .& READ J READ H DELETE FOR GO @.($f0) GO . REM REM line numbering breaks here! REM DELETE ? ELSE ? GO ), DATA ( READ 0 FLREAD ? CLOSE z PRINT #($fc) READ  TO ' + PROTECT ($fa) CLEAR READ FOR GO EDIT NOT WAIT ($fa) CLOSE z$ FLREAD NEW DSKINIT x/($FFD7)u($ee) MOTOR WAIT p($fe)+ READ *4 SET DIM EDIT ELSE 5 READ y'($f6) PCOPY y9 EDIT C DELETE NOT '($f9) READ ($ee) ($f8) PMODE / SAVE EXEC ' DATA L READ ($ea)1" DELETE CLS READ < CLOSE z($f7)9 CLEAR [L NEW [/ SWAP DELETE ($f1)9 SET ($e9) CLEAR READ FOR GO NEW [ LET  5062 ($FF16)($f5) CLEAR |_ PRESET & DRIVE Z\ DSKINIT | RETURN #m READ SWRITE ($ec) DSKINIT [ DATA EDIT SKIPF  IF READ I | READ ^ LET  36276  READ COLOR NEW |($f6) CIRCLE DRIVE [ RETURN 'B RETURN REM REM line numbering breaks here! REM ' STEP DRIVE | RETURN ' BACKUP RETURN '" RETURN ' GO '($fd)($ef) RETURN ' CLOAD RETURN ' TO GO .? USING ($f5)v#\ BOOT [" OFF Z+ SUB PRESET & BOOT Z# DRAW DSKINIT | BOOT "& RETURN & BEEP Z($f4) DRIVE | BOOT # DRIVE  DATA  READ AND TO ' RETURN 9 NEW 6 ($f1)' BOOT [& DRIVE [ STEP $1\ DSKINIT [0!:o ELSE Z DELETE SKIPF EDIT REM Z BOOT |,($f7)\ CLEAR 6 EDIT SKIPF \ DSKINIT | BOOT $ DLOAD ($f1)'Z DATA ($f5) FN CLEAR 6($f5) INPUT ($FF4C) NOT  CLEAR | RESTORE @($f4) LLIST ($f1)&($ed) DRIVE |'($e9)Z DSKINIT | SET ($e9):\ DELETE SKIPF EDIT FOR BOOT [&($f7) [ DATA ERROR ($f5)= DRIVE | BOOT $($FF71)Z USING LET ( PROTECT SUB ($f4) TAB(1($f1)' 3 READ 530 m($FF2D) TROFF - Overlay 38753 ($fb) PSET ($f4) BEEP ($ef)u TAB( N GO 'd GO .&($fa) PROTECT p DRIVE T&!($f9) EXEC k DRIVE T ERROR S& PROTECT n WAIT p WAIT j j CLEAR [ NEW \($fc)O($f3)[ j PROTECT j WAIT j ($ef)&($f2)[ DATA . WAIT CIRCLE NEW ($ef)YZ($f2)7 PROTECT j d& BOOT ($f6)c RETURN & SET SOUND  CSAVE GO !& FLREAD ($ef) GO & SCREEN  SWRITE  PROTECT 4n($f4)qSUMMINMAXCOUNTAVERAGECHOOSESQRTEXPLNSINCOSATANASINACOSTANLOGINTABSINDEXLOOKUPNPVROUNDSTDDEVLNLNNAERRORPI REM REM line numbering breaks here! REM _\ EDIT ELSE DELETE REM NEXT  EDIT ELSE FOR *($f2)4 A 6707 OR 50192 *($f3)($ec) PROTECT SUB 4@&_ CLEAR J INPUT ($f3)] DATA ($f3) FLREAD Z*($fa)5 NOT NEW SUB  FN ($f3)N READ  CLEAR SUB L RETURN &($f0)5@ WAIT SUB ($f3)>4($f4) DRIVE  : MOTOR ELSE $ FLREAD ELSE EDIT ELSE RENAME ELSE NEW FN PROTECT 3 OR 50219 5($f3) POKE DATA ($f3) AUDIO Z&($fa)($f3)  SKIPF 5 CONT PROTECT l DRIVE 4D PROTECT SUB LOAD SUB  INPUT DATA  READ " DATA [ READ  SUB READ  DATA ; READ 0 READ  DATA H READ  VERIFY WAIT SUB DATA 5D DSKINIT WAIT l5 CREATE ($f3) RESET O\ DSKINIT - CSAVE O DRIVE (' M' LET  READ Wk REM REM line numbering breaks here! REM OPEN  DRAW V CLS  ] RESTORE ] /x= LLIST  0sE K LIST q PROTECT  RUN ($fe)($f1)< SKIPF y4U ($f4)Y DEF  E f8 PLAY  COPY  9 ($f0)&@ READ  CREATE ($f0)'74B DATA DIM 4B DATA ON RENAME &($ee) ($f0)5 OFF READ 5869 ($fb) READ ($fb) DEF ($ed) DRIVE 0 READ XI MERGE l LOAD  POKE l$O_9 MERGE l= KILL l INPUT REM REM line numbering breaks here! REM KILL m INPUT 313 3T PCLS WAIT ($f8) LOAD ($f8) BEEP NOT #4 DSKINIT ($f1) LOAD THEN MERGE ($fd) DRIVE ($f9) DSKINIT NOT LOAD THEN READ STEP READ H CLEAR ($fd) DRIVE ($f1) SET ERROR PCLEAR MOTOR Z&($fb) NEW ($fd)' DRIVE ($fe) READ PSET  CLEAR ($fe)L($ee) GO ($ef) MOTOR J&($f9) CLEAR ($fd)J PROTECT PROTECT ($f8) LOAD ($f8) RESTORE THEN #J DRIVE NOT READ MOTOR XI4 LOAD * AUDIO SAVE READ O_($ed)' CLOSE *"($fa)0 NEW THEN 9 SET * RESET *90 SET ERROR 4 BOOT NOT " RETURN THEN #_5 CLS DSKINIT m_ DSKINIT lM' NEW g DRIVE NOT = COPY f COPY l+ REM REM line numbering breaks here! REM ($FF4B) MERGE l SCREEN EXEC ' PROTECT _Z2 LINE 5 CLS  SET l'($ec) GO ($ed) STEP 1?&($f8) }' DELETE ELSE EDIT NOT 9 SET 0 INPUT  RESET INPUT 0 READ |($ec) ELSE 0 NEXT SCREEN 't SET INPUT PROTECT 3H END  SCREEN CLEAR  ELSE ($ef)/4 DRIVE TO ERROR RETURN &1 FOR '- DEF  IF & DELETE VERIFY IF &! PROTECT ~ DELETE - GO & t'  t& RESTORE ' 3 READ jF& 1687 = KILL t DSKINIT ($FF17)21 CLEAR ($FFD6)- WAIT ($ed) GO TO +>*& PROTECT INPUT 3X0 PROTECT INPUT CLEAR t'# TO ' NEXT ' 32068 } NEW '($ec) STEP ($ed) GO &($f8) }' FLREAD NOT SWAP FOR RETURN & TO '9 AND SCREEN ' CLEAR FOR CONT PMODE ' PCOPY ' SET ~ SWRITE .  SWRITE /($ec) READ _ NEW FOR CLEAR ON GO & CLEAR SWRITE &  REM REM line numbering breaks here! REM ` PROTECT 4Wn($f4) NEW SWRITE  LOAD 2b WAIT l POKE l DEF SET PCLEAR  FIX RESET PCLEAR SET 0 ON 41 INPUT : RESET Q SET ($ec) ON d POKE n MERGE ($f2)0_#!$ BOOT READ BOOT ($ec) STEP m($f4)& POKE ($f2)($ed) GO la RESET PCLEAR 1 SWAP LET  GO 1P READ ($f5) PROTECT h 3660 NEW y NEW x DATA FOR NEW READ ($eb)] SET ~'($eb)O CLEAR y' ELSE 9 LET  REM REM line numbering breaks here! REM S3 READ OFF  LLIST /, DATA C DRAW ' DATA R($fd) OPEN DATA A PCOPY ' DATA M($fd) READ 3 READ TROFF ~ LINE CLEAR ($ed)' SET n INPUT L NEW ($ef)" TO */T PROTECT n READ Y READ IF 3 READ AB WAIT n($fd)($f6)0 SWAP RESET ~ DSKINIT FOR ' FLREAD -w DSKINIT 9 SET n RESET pa NEW u($ea)= MERGE 3 READ STEP  BACKUP  CSAVE  SREAD ! SET SOUND MOTOR  SAVE $3 READ  MOTOR  PROTECT SOUND ($ee)J  PROTECT p DIR T READ SCREEN FOR &($ea) CLS  791 ($FF2D) SET SOUND DATA RIGHT$ DSKINIT PROTECT n($ef)"&(  DRIVE &` SET SOUND SCREEN  REM /($FF0D)T'9 DSKINIT DIR PCLS ' w' FN ($fe) LIST ($ef)-($ec):($ed)<_ DSKINIT DSKINIT o: DELETE -S CLS EXEC  CLS >$ DATA  EXEC < EDIT : DELETE EXEC EDIT -1!]+ VERIFY 1>($ee)- READ .($ef) EXEC PCLS ]+ DELETE - CLS >L EDIT - FROM DELETE / NEW GET NEW CONT l- DELETE -JFj- GET ($f2) GET '=j- ^ LOAD NEW '*4P($ec):4& DSKINIT CSAVE & m5&/($f0) SWAP 5 SWAP 3/($FFE7)9O REM 5&o3o4($ed):5 BEEP 4P LET  REM REM line numbering breaks here! REM  MERGE  PSET ($fa) USING 5 BEEP 4@($fa)+ DATA 5 NOT Commands A SOUND BO-P,($f8)R NOT S BEEP T]W READ ? REM Formats 27975 mR mL mP mI m$ mC m? ON Windows 28742 9H RETURN N xS LLIST U SUB V LINE ? END In Titles REM REM line numbering breaks here! REM B ($fe)H 13910 ? DIM System REM REM line numbering breaks here! REM C CHAIN L($f1)S($f4)X($f7)#,($f8)? LET Column width 49751 '? RESTORE Quit REM REM line numbering breaks here! REM O($f9)S? STOP LET  USING NEW STOP 93 READ ($FFE6) 3 READ ($FFCB) 3 READ ($FFAD) 3 READ EOF  SET SOUND 3 READ ($FF13) 3 READ ($FF60) 3 READ ($fe) BACKUP READ > NEW CSAVE  SWRITE  VERIFY WAIT LET DATA :($fa) FROM DELETE - GO ?& &($fa) FREAD 3C GO ?&($ed) p'($e8) RETURN _ SET LET MOTOR FOR & GO ?'#4 DATA ($ec) ELSE 0 READ ($fa) 4 SWRITE SAVE 1($ed)b5 DATA \0m* MERGE FLREAD  STEP ?& DSKINIT BACKUP & PROTECT 4@ PRESET ($f1) +3 READ 384  REM REM line numbering breaks here! REM ELSE ($e8)k PUT HELPS NOT AVAILABLE. & 7731 C5($fe)- LET  REM REM line numbering breaks here! REM  SWAP ($e8) LET  POKE 3 READ  COPY DRIVE  WAIT G LET  RESTORE 3 READ  DSKINIT  WAIT : LET ($e8)3 READ  FWRITE ($f4) DRIVE AUDIO DATA  LET ($FFF2)0 NEXT 3 READ  FROM  SAVE ($FFE2) SAVE C3 READ  FROM ($fe)($f0) NOT READ  SAVE '9 TO '* RETURN  PROTECT ($ee) #4  GET  LET  272 ?  SWAP RENUM &1?&($f1)5 CLS  PCOPY  DRAW ($fc),($fb) PCLS FOR '($f9)3 READ  SREAD  61574 NEW ON CLEAR  END _ DSKINIT t NEW SCREEN ($fa) BACKUP Clear Worksheet REM REM line numbering breaks here! REM 3 READ ($fe)t READ 4& AND ($ed)($ee) SWAP IF M DATA CLS  SWAP DEF _J? SWAP s SWAP g SWAP 3 READ ($FFC5) READ ' SWAP ($fb)J3 READ 2327 ($fe)H READ g3 READ 24855 ($fd)7 NEW CSAVE  SWAP ) GO Y9: Sure? REM REM line numbering breaks here! REM ($fe)($fa)($fd)! DATA ($f9)IZ*($fa)9 FOR '($FF61) USING &($fb)h($fe) 3 READ  POKE READ '3 READ  LIST SET ~ FLREAD ELSE STEP ' FLREAD *' DSKINIT NEXT  CSAVE 3 READ  IF READ ($fe) CIRCLE  USING  FLREAD DRAW ($f9) DELETE NOT &($f9) PLAY +($fa)=& DRIVE  NOT  DSKINIT CONT 9($ee)$($ef) EXEC ($ef)"O_($ed)& DATA - READ n ($f3) DRIVE DEF READ SREAD DATA  NEW ux NEW SUB  FN DELETE : CONT PSET &3 1047 ($FF75) DELETE &' NEW CLEAR DELETE $ NEW p READ F&* CLEAR CONT GO  THEN EDIT / OPEN & PLAY DELETE EXEC NEW po> CLEAR READ . DRIVE !'($FF4A) CLOSE M& SET O CLEAR DEF & CLEAR NEW ' READ RUN NEXT  PRESET NEW FN DRIVE DEF BEEP P POS SKIPF DATA < FLREAD to> CLEAR p READ 7$m>&! CLEAR  CONT l> READ T DATA [($f8)Z READ  FLREAD  DRIVE CLOAD READ DATA ]($f8)L p CLEAR & DIR 9Z'($fc) STEP ($fe)($ed) KILL FN DSKINIT FN  FROM SWRITE  RENUM SET 0 INPUT  FOR RESET F FLREAD FOR ' MOTOR FOR &($f8) RENUM RENAME (($eb)( DSKINIT ! DSKINIT DRIVE CONT BEEP !$ CLEAR CONT NEW NEW ! DSKINIT CONT 9 DRIVE !TZ DSKINIT OR REM REM line numbering breaks here! REM DSKINIT CLOAD CLEAR p FOR $ CLOAD BOOT ' DSKINIT CLOAD DRIVE 9 SET 1 TROFF 0 RESET O1 TRON RENAME  RESET M9 PSET ($f6)t($fe) CREATE 2d($f7) GET +^ OPEN &($fe) PROTECT O READ DIR / DSKINIT u NEW FN NEW LIST DRIVE NEW & DRIVE NOT  DSKINIT SET / DSKINIT SUB ($fe) CLEAR PSET EXEC ; EDIT ; DELETE '' NEW MOTOR FLREAD DSKINIT ($f9) READ K'; CLEAR SET EDIT ? DELETE ! NEW ($f9) MOTOR ($fe) READ ; DATA  EDIT : EDIT ; FLREAD 5 VERIFY 9 SWAP 5 DATA ($f0) EDIT 3o9 CLOSE O' SET O CLEAR NEW ' RESTORE C FOR  NEW SET SUB GET CLEAR DEF & RESET DATA RIGHT$ PSET ^* FROM  RENAME '# CSAVE  LLIST } DELETE ; OPEN LIST NEW FN SUB OPEN &>m;&: DRIVE DIR VERIFY 9' NEXT  NEW FN .x($fe)($e9) NEW } DATA - FROM  CLEAR ($f9) NEW q GO b" / GO "\($fd) DLOAD /  VERIFY TRON DATA -($f6)($fc)($fe) GO CLEAR ($fe)C LINE ; NEW EXEC ($fd) DELETE &' NEW TRON NEW CLEAR DATA FOR NEW CONT DELETE $ NEW ($f8) READ ' TRON DELETE / NEW CONT ($fd) DELETE EXEC NEW ($f8) CLEAR EXEC EXEC : NEW EXEC DELETE > NEW CLEAR READ  ($f9) SET ' MOTOR &($FF6C) MOTOR 9 CLEAR ($f8)($fe)| PROTECT ($f8) AUDIO "& CLOSE SOUND & DRIVE LLIST KILL FN CLEAR SUB ($ed)<($ed)6 DRIVE SWAP 8 &($f7).' DSKINIT ^0 DELETE ELSE EXEC ' PSET 'm9& IF ' DRIVE LLIST KILL DSKINIT LLIST  DRIVE NEW ERROR DEF '  CLOSE O' CONT ' END EDIT ELSE ELSE & LINE ) NEW " READ ] ($f8)' CLEAR & EOF TRON &G VERIFY 'B\ DELETE IF RETURN ' RETURN ' RETURN ' RETURN &/ FLREAD 9 ERROR DIR &) CLOSE SOUND &$^ CLEAR T DRIVE SET SUB 4R SWRITE MERGE ($f8)= DRIVE 5R NEW T RESET SUB CLEAR DSKINIT '($fe)/Jx9 DRIVE KILL FN DSKINIT FN 9($ee)3&m9'2b9 DRIVE LLIST ' RENAME '($f5) PROTECT Z&($fa)  READ PROTECT ($fd) LLIST NEW } LLIST }'($f5) READ BACKUP m9'3_($ef)3 GO 3A($ef)3 DELETE ELSE IF &qm2'4 CLEAR NEW SAVE J NEW y^1($f5) MOTOR  SWRITE 5 USING  SAVE DRIVE y($fc)G5 CLS IF & PROTECT 0($f3)KJ4 1 OR P($e9)5 CLS m+* DRIVE NOT T DSKINIT OR 7046 >($f5)f DELETE  GO # DATA H3 READ REM REM line numbering breaks here! REM h($ec)/($f5)W DATA <($f5)O ($ee)($f5) FROM 0 FLREAD  NOT & DRIVE ($fb)($eb) CLEAR " GO ', BEEP $P DSKINIT GO &($fb) COPY FLREAD  NOT  DSKINIT DRIVE 0 DELETE FOR ($f5)Z&($f8) DRIVE '($fb) RENUM 90 RESET l FLREAD  NOT  DELETE FOR ($f4)($fc) '($ee)Z&($f4) SET l ($ec)NAD0SNRNOVNRLNEXREAEXAHOER4& DATA RIGHT$ | 4&1 TRON 4&|($ef)-/($fe) DELETE &' |& PCLS $ MOTOR -# DELETE $ MOTOR -# DELETE EXEC MOTOR -" PCLS >J MOTOR -1!\ DSKINIT & FREAD DSKINIT 5 DELETE CLEAR POKE ($f4) CLEAR ($f6)\ PROTECT 1 OR ($f9)Z READ " FOR '($fa) PRESET SET ~ DELETE  ELSE FREAD CSAVE EDIT ($f6)> SET SOUND ($f9)? SAVE READ  PSET ($f6)/ FOR '3 READ H($fb)L FLREAD )0 READ ($f8) CLOAD - DATA = DELETE IF ($f4)K($f4)=3 READ ($f8) FOR ($f9)K DELETE ) ELSE ($f8) DSKINIT CSAVE EDIT )9 LOAD NEW &{ PROTECT 1 OR 3 TRON  DATA o NOT J&($fb)($ec)(($ed)X9 READ FROM FLREAD <\ BOOT $] NOT #Y DSKINIT ' DELETE EXEC FLREAD # SAVE !#O READ < FLREAD ='G DSKINIT ' BEEP P NOT  DSKINIT CONT DELETE "($fb) GET 7 DELETE " MOTOR EXEC '1 FLREAD !1! PROTECT 3 OR 0($ed)- DELETE & EDIT TRON & DELETE $ EDIT TRON $ DELETE * EDIT TRON * DRIVE ' SWAP TROFF ($fc) PRINT 0 AND RENAME WAIT SOUND ($ec)($ed)B($ec) ELSE ($ed)($fb) COPY 3 READ $($f9) RESTORE READ 1! READ  SET SOUND o:($fa) GET  SET SOUND c:($f5)cm&& WAIT DELETE " CLS EXEC ' FWRITE EDIT & CLS >@ EDIT > DELETE EXEC EDIT $ DELETE " EDIT EXEC PROTECT SOUND ($ec)D SWRITE F($ed)J9 PROTECT ERROR ($ec)&($ef)& SCREEN *($ef)* PSET EXEC & ($ee)$($ef) EXEC SWRITE >($ed)> PCOPY ($ef):($fb)w LOAD SOUND STEP 0&/($f0)= 9 PROTECT NEW ' PRESET READ ($ed) DSKINIT AUDIO ($ee)"($fe)c'($f6)&($ee) EXEC ($ef)"($f6) DRIVE AUDIO STEP ' PROTECT 3 OR  0 AND RENAME / DELETE * EDIT IF Z&($f9)/ DSKINIT AUDIO  DEF  NEW  PCLS ($fb)- PROTECT SOUND READ PAINT  NEW w LOAD NEW ']'3A0 DELETE B EDIT ($ee)" DATA RIGHT$ PCLS ($f5)($f8) PCLS ($f4) DRAW /C 28183 ($fa) SKIPF DELETE  RESET PLAY SET F3 ON @ WAIT Fm GO &($fc) RESET CIRCLE RENUM ' READ h DATA D RENAME po ELSE RESET PLAY READ W' SET PLAY CLOSE F 3 READ  PSET  REM REM line numbering breaks here! REM E($f8) STOP CLEAR n EDIT  SWAP  SET SOUND CLEAR n EDIT ELSE ($fa) DLOAD RENUM ' LINE SET PLAY 01($ee) MOTOR ($ef) GO CLOSE CIRCLE ($f8)o ELSE SAVE 3 READ 5910 ($f8)d LET 0($f8) DEF ($f2)j($f8)3 READ X READ   READ ' STEP # CREATE 9J NEW qu CLEAR [ NEW \ WAIT ($ee) WAIT ($f7) DATA  WAIT ($f2) WAIT ($f2) FREAD CLEAR ZL DELETE DELETE GO D' LOAD GO 'T WAIT SREAD - EDIT ($fb)9/W READ TROFF SET SOUND DELETE  READ FN &/  SET SOUND 4o:o;($f5) SET 5 SWAP (($ee) EXEC ($ef)"($f4) MOTOR ($f4),($f3) OR NEW - LET  38963 READ 63714 CLEAR -/ ($f1) FLREAD  WAIT TRON GO " SWRITE GO &($f5)($f3) SKIPF 3 READ 65387  CSAVE hZ DELETE SKIPF END FOR EDIT SKIPF 0/ DATA ? DATA $ SAVE OIR DRIVE OPEN Graph is : REM REM line numbering breaks here! REM Edit : Value Label NOT VALID ! Signal Goto : Protection Label entry Type mismatch Formula dump CELL TABLE OVERFLOW ! OUT OF MEMORY ! is Width is : NO MORE ROOM Blank cell Mode= Memory= New directory? PROTECT STEP ($f8)x/ STOP PROTECT j SET CIRCLE LOAD j RETURN CIRCLE ' BOOT PAINT & LOAD  POKE CIRCLE 90 READ  GET READ FREAD "19 ICG($ec)E SREAD ^ SOUND ]($ed)E($ec)C SREAD \ SOUND [($ed)C($ec)A SREAD Z SOUND Y($ed)A DELETE - SOUND X EDIT - DELETE -$c-cAcBcCcDcEcF DELETE !'($ec) DELETE . EDIT ,o! DELETE -+0 LINE A LINE B LINE C LINE D LINE E LINE F'3($ec)-mG'0jG&j EXEC h!iFiEiDiCiBYI* FLREAD SWAP A FLREAD G' FLREAD , ELSE - FOR 4 PCLS RENAME EDIT -m EXEC &9 EDIT G9 DELETE EXEC FLREAD G POKE ERROR '(+& MOTOR n' DELETE _' REM REM line numbering breaks here! REM zO FLREAD G($eb)_ INPUT ' FOR SWAP G EDIT EXEC READ LET DELETE !* AUTO mO EDIT G 325 FLREAD _& DATA nM'($eb) REM REM line numbering breaks here! REM SCREEN O FLREAD G RENAME _ REM + GO EDIT EXEC SWAP G DELETE 'CGf-fAfBfCfDfEfFf!($FF4A) DELETE !*!)($ec)E($e9)^ TROFF ]($ed)E($ec)C($e9)\ TROFF [($ed)C FLREAD B($e9)Z SWAP B($ec)-($e9)Y TROFF X($ed)-9 READ F/8 SWAP ( DELETE 'D$($ec)E SWRITE ]($ed)E($ec)C($e9)\ TROFF [($ed)C($ec)A($e9)Z TROFF Y($ed)A DELETE - TROFF X EDIT -f-fAfBfCfDfEfFf!f"f#f$ff&f'j(& THEN 9($ec)-($ed)!($ec)B($ed)#($ec)D($ed) FLREAD F SWAP 'O_($ed)-($ed)B($ed)D EDIT F9 READ SWRITE /9 SWAP ( FLREAD ! SAVE X*($ec)& AUDIO ]($ed)>($ec)$ SREAD \ SOUND [($ed)* FLREAD # SREAD Z SWAP )($ec)! SREAD Y SOUND X($ed)! DELETE ) EDIT #($ec)*($ed)$($ec)>($ed)&iFiEiDiCiBiAi-i'i&ii$i#i"i!j(" COLOR '($ec)& AUDIO ]($ed)&($ec)$ SREAD \ SOUND [($ed)$($ec)" SREAD Z SOUND Y($ed)" DELETE ! SOUND X EDIT !O THEN f!c-cAcBcCcDcEcF90-3Ho EXEC DELETE X EDIT . END FOR FLREAD X EDIT X($e8)- SWAP , DELETE - EDIT - END FOR EDIT - DELETE G9lF&)lE&lD&!lC&lB&lA& FLREAD - DEF ELSE L*lG ELSE - FOR 4 PCLS RENAME EDIT -94V3H($ec) STEP ($ed) GO ($ec) STEP ($ed) GO ($ec) STEP ($ed) GO ($ec) STEP ($ed) GO 5 DRIVE o= DELETE H+, LINE I LINE J LINE K LINE L LINE M LINE N'/($ec)HjO& :h=iNiMiLiKiJYI*($ea) SWAP I FLREAD O' DRIVE < ELSE - FOR 4 PCLS RENAME EDIT H :&9 EDIT O9 CLEAR : FLREAD O POKE ERROR '+ y DELETE 4' s 4P 64967 5 BEEP 4P 64998 5 BEEP O EDIT O EDIT H EDIT I EDIT J EDIT K EDIT L EDIT M EDIT N9($ec)M($e9)F TROFF E($ed)M($ec)K($e9)D TROFF C($ed)K FLREAD J($e9)B SWAP J($ec)H($e9)A TROFF -($ed)H9($ec)($ed)F($ec)($ed)D($ec)($ed)B($ec) ELSE ($ed)-90Hooooooo ELSE o9 SET F0 RESET F9 DATA  NEW 39($f0)0 TROFF ($fb) RETURN PCLEAR 0O EDIT < NEW / NEW & NEW +L EDIT 2 FLREAD O'4 DSKINIT 9 NOT FOR *P DATA N= INPUT 9+P\ DSKINIT /($fa) OFF 0 READ ($f7) DELETE O GO GO $($FF4E) / ($f3)($ec)($FF4C) / ($f4) FLREAD H* DSKINIT &- SWAP H/ DSKINIT 0 READ , RESET Fo540 READ  PAINT PSET VERIFY 5&_ 17952  PCOPY l5 ($f4) FLREAD 5 REM REM line numbering breaks here! REM ($FF69) +. BEEP CLEAR + NEW 6 > SCREEN 0 + SWAP FOR '+ PCLEAR 09 DRIVE J ERROR RETURN & DATA  FREAD `/ BEEP 6 DSKINIT + DRIVE Z &'Z DSKINIT !_ DSKINIT ( DSKINIT ) DSKINIT , DSKINIT ' DSKINIT * CLEAR "/ K& LOAD DRIVE /. oP GO -8 FOR /L NEW (LL RESTORE !.($fb)@ NEW * + DELETE TROFF ($fb) POKE EDIT TROFF ($fb) CONT DELETE TROFF ($fb) STOP EDIT TROFF ($fb) POKE DELETE TROFF ($fb) RETURN EDIT TROFF ($fb) STOP o TROFF ($fb) RETURN Z* WAIT ) l ! DSKINIT , KILL +& / DSKINIT ) DRIVE ! DSKINIT * 8495  CLEAR , GO .z RETURN !- PSET P DSKINIT *_ BEEP +P DSKINIT ( 10704 !.[P GO - GO & DATA  STEP - PRINT ]' CLEAR + RESTORE // NEW (Z& DSKINIT (\ BEEP ( DSKINIT ** KILL + BEEP / DSKINIT (* DRIVE ) KILL (o TROFF ($fb) RESTORE 0 TROFF ($fb) RETURN DATA BEEP BOOT +//: FLREAD ELSE EDIT ELSE = STEP /$_\ EDIT ELSE DELETE REM NEXT  EDIT ELSE FOR *($f2)455 GO RENAME & // SWAP TROFF ($fb) RETURN ($fe)($ed)_\ DELETE REM '($fb) CLEAR " GO ' ('Z DSKINIT CLEAR * OPEN NEW * BEEP (P DSKINIT (. KILL *\ DSKINIT *(0 TROFF ($fb) RETURN CLEAR " GO &I &' DRIVE Z REM REM line numbering breaks here! REM DELETE _ CLEAR )J+($fa) '& FLREAD FOR J+ & DATA =($eb) ELSE */ BOOT  DRIVE NOT  DSKINIT & CLEAR DSKINIT RESTORE J NEW * CLEAR - 9767  * DATA > REM REM line numbering breaks here! REM = c GO ' DRIVE * DATA  RENUM * &' DATA - GET DRIVE )' 11990 ,'  12311 REM REM line numbering breaks here! REM CSAVE O DRIVE (' M' 120 DRIVE '& $ DATA e REM REM line numbering breaks here! REM IF ]* DATA - 8088 ($f8) DIM ]'  INPUT NEXT 0 REM REM line numbering breaks here! REM m INPUT NEXT 0 f DRIVE * CREATE ^ DATA  1324 9 CLEAR /J NEW '*@,/ DSKINIT ) DRIVE ! GO /Z NOT - 10238 PUT BEEP +- DSKINIT *_ KILL +Z& * DSKINIT ( DRIVE K'Z DSKINIT (($fe) CSAVE DATA > DRIVE Z REM REM line numbering breaks here! REM  DELETE FOR NEXT 0&0 DATA 0 9968 9 11002 9 J' DRIVE + DIR ($f3) PROTECT ($f8) EDIT NOT WAIT ($f8)94V3H($ec) GO ($ed) STEP ($ec) GO ($ed) STEP ($ec) GO ($ed) STEP ($ec) GO ($ed) STEP 5 DRIVE DELETE H TRON ELSE +c DELETE H+6 DELETE O', FLREAD '[4 MOTOR RENAME &Y($ec)H AUDIO ELSE &R($ec)J AUDIO &K($ec)L AUDIO &D DELETE N ELSE ($fe) FLREAD -($fe)4 MOTOR RENAME 9 DELETE &4O9 DELETE  MOTOR O'9($ec) ELSE  AUDIO H&#($ec) AUDIO J&($ec) AUDIO L& DELETE  ELSE ($fe) FLREAD N-($fe)4 MOTOR RENAME 9 DELETE ELSE * DATA ($fe)9O GO 94P($fc)($f8)r5 BEEP 4P($fc)($f8) EXEC 5 BEEP 0H DATA RESTORE EDIT ooooo DELETE ELSE  INPUT ($ea)'($fc) FLREAD M*CS+ 1642 XI*($fa) ELSE m ELSE * END FOR EDIT ELSE SWAP 9lN&)lM&lL&!lK&lJ&lI& FLREAD H DEF ELSE L*lO ELSE - FOR 4 PCLS RENAME EDIT H9/DVfffff$/ 9&($ec)90 READ O4($ec) ELSE ($ed)H($ec)($ed)J($ec)($ed)L($ec)($ed)N5 REM 0H FLREAD '8 NOT GO ,P='3+" DSKINIT 9($ec) ELSE *9 READ PLAY /&m' ' FOR REM REM line numbering breaks here! REM ' + 1859 S+ 9494 ($fb)u DELETE ELSE *($fb)c/($FF1F) DEF  DELETE ELSE *($ed) IF &($e9) FLREAD & FROM USING END FOR DV 9&($fa) SWAP  EDIT ELSE 99 DATA ($fb)J DELETE H+($f7) DELETE O'($f2) EDIT 3 ELSE  INPUT NEXT FOR EDIT O($f7)0 READ O]'0 READ ` RESET F($fe) FREAD ($f7)0($fb)($FF5B)0 AND ($fa) SCREEN ($fb) ($fe)+($f7)($f6)($ee)0 AND ($fa) CLOSE ($fe) PUT jO($f7) ($f6) MERGE 0 AND ($fa) NEXT ($fe) AUDIO jO DELETE 3 FOR FOR G PCLS O EDIT O9 DATA ($fa) WAIT l4 DELETE H+($f5) DELETE O'($f1) GO GO J EDIT 5 DATA GO EDIT Oo3 EDIT 5 DATA FOR EDIT O DATA  EDIT 3($f6) ON ($f6)- DELETE AND  NEXT  EDIT AND 0 AND ($fe)($fd)($eb)3- SWAP 3 SWAP AND ($fe)[ DELETE AND  FOR  EDIT AND ($fe)D($f6) PRINT ($f6)o0 AND  DELETE N ELSE ($f0) EDIT N DELETE  ELSE ($f0) EDIT ($fe)"0 AND ($fa) ($f6)?0 AND ($f9)($f8)($f6)u0 READ  CIRCLE / REM REM line numbering breaks here! REM C0 AND ($f9) FLREAD 0 AND ($f9) RENAME DELETE 'l($fd)($fc) FLREAD 3 NOT XX0 READ  PRESET :($fd) VERIFY ($f6)O FLREAD 5 NOT FOR *C($ed)H($fd)($e8)0 READ  LIST ($f9) PAINT 0 AND ($fd) BOOT o494 RESET F($fe)S0 AND ($fd) STEP ($f6) SET F0 RESET F($fe)A0 AND ($f9) CONT j VERIFY ' SET F0 RESET F($fd) SOUND FWRITE 5 ELSE 0 READ *($f9)r($f5) COLOR  ] DELETE H ON FOR EDIT H0 AND ($fd) IF ($f5) SET 0 AND ($f9)W($f5) CREATE 0 READ x/ LOF 0 AND ($f9)E0 READ  INPUT ($fd)c0 AND ($fd)Sm'l($f5) PCLEAR ($f5) REM 0 AND ($f9)00 READ "($fd)D FLREAD OO SWRITE 5M& SWAP O9 DATA ($f9) GO DELETE H EDIT 5 ELSE  EDIT H0 READ  OPEN ($fd)($fd) OFF ($ec)Hm5*CS+ 13591 ($fd) DELETE 5 ELSE FOR LINE H EDIT H9($f5)L0 READ 5($f8) VERIFY ($FFC8) DELETE H ON FOR EDIT H0 READ ($f8)>0 AND ($fc)($e9)($f5)0 AND ($f8) TAB(($f5)8O  DATA  EDIT 2($FFCA) FLREAD 2($eb)6 SWAP 6*&0 READ /($fe)($f2)0 AND ($f8) LIST 0 READ  RETURN ($fc) GET 0 AND ($f8) ON 0 READ /($fe) CREATE 0 AND ($f8)w0 READ s($fc) LIST DELETE 6 IF ' DELETE O' DELETE H ON FOR EDIT H9 DELETE O'($fb)o3 FLREAD H SWAP 2- SWAP H($f4) RUN GO GO L($fc)($f4)/ ELSE SWAP O0 AND ($f8)G($FF2B) FLREAD O' NOT  SWAP O($f4) PCLEAR 0 AND ($fc)N($f4) RETURN ($f4)y0 AND ($f8) DELETE H ON FOR EDIT H0 READ ($fc)50 AND DELETE O GO `"oO($f8) c3 9 NEXT  EDIT O($fe)($e8) DELETE O' FOR  EDIT O($f4)l0 AND ($f7) FLREAD 0 READ REM REM line numbering breaks here! REM SREAD ($fc)($f4)G($f4)/0 AND ($fb)($ee)0 AND DELETE O GO `"oO($f7) BACKUP ($f4)0 AND ($f7) TO ($f4)90 READ }/($fe)($f8)($fb) BACKUP 0 AND ($f7) EXEC ($f8) ($fb)+0 AND ($f7) DEF 0 AND ($f7) STOP ($fb) PUT FLREAD 6XXX0 READ n:($fb) EDIT m3' DELETE H ON FOR EDIT H0 READ <($fb) CLEAR DELETE 2 ELSE FOR TRON H EDIT H9 FOR ELSE H PRINT z END @ LET CP RETURN t$ 148  CLEAR FOR 152 > TO 155 nk( 158 ($f9) 162 -x($eb)* PSET b REM REM line numbering breaks here! REM +I($f2) OR USING gO VERIFY GO L<<<<< USING }# DSKINIT =p AUDIO DSKINIT zn NEW READ O WAIT wQ PMODE X SREAD es'* PSET GG ELSE p7 SUB  PCLEAR ljmV THEN CONT DIR FROM zCi+a EDIT + REM CSAVE USING u PRINT =($ec)'" LINE 6 KILL PRESET  REM  AND >a EDIT +' ERROR ($eb)($e9) IF SUB h ELSE f ($fb)($f5) NEXT  AUTO REM ($f9) PUT ($fc) SWRITE RESET $ GO NEXT b GO AUDIO CLOAD  AND GO PSET ($fe) @] USING REM PCOPY ($fb)($f7)7TUk GO 1r($f7) BOOT BACKUP | FOR K INPUT DELETE LOAD AUDIO  VERIFY  FN < CREATE BOOT ~ BACKUP CLOAD e($fc) OFF ` RUN B($fa)($f3) REM  REM FOR SET H CLOSE LET PSET TO FN LINE hP&f LET (H^LDBDjV;_ DIR A DIM ON WAIT ON ($f7) TO BACKUP + IF FOR RESTORE + DSKINIT SAVE WAIT ERROR TRON 1 END ! TROFF C KILL z RUN ($ee) DATA 8 LINE ;)\($f0) REM 8 LINE ;)\($f0) GO I ERROR SOUND !h OFF GO I ERROR SOUND !h OFF REM DRAW M($f0)b SET  ELSE 3#g($f6)($f3): DIM CIRCLE  TROFF ($f3)) STEP ($ee) PRINT  INPUT P DRAW RESTORE RESTORE  PAINT 'Q DIR ($ec) INPUT CREATE BEEP *# ERROR ~Y IF C($fa) REM ELSE , NEW TAB( GO 5$7 CREATE [ NEXT POKE  CLS PCOPY CHAIN DIR > PRINT , INPUT REM " DSKINIT / RUN IT NEW PMODE B FWRITE T ON SREAD MOTOR 9! MOTOR CIRCLE PRINT $ SOUND y READ < GO r> DEF -XE~+ DEF VERIFY  PRESET INPUT { LINE LINE LINE LINE LINE GO ($ee) 126 PRESET CREATE DIR a{m}z KILL PCLEAR OR d DATA ($eb)~7 COLOR >&($f7) ELSE mc8+ ERROR } REM REM line numbering breaks here! REM ]^($f7)($f5) CLS FOR $ TO }4($f7) FOR 8>+ OFF 1 SET FOR I ERROR SOUND !h OFF FOR 22  CLS  82  LINE  955  FLREAD  DRIVE  REM REM line numbering breaks here! REM EXEC \A  LINE " 283  KILL  1104 GO & DRIVE [\*Z EDIT SKIPF 5 RESTORE  NEXT 4 USING < ` PRESET  USING EDIT  SET ($e9) USING TO DELETE NOT &($f6)ZY USING  SKIPF  USING PCOPY 9 DATA  NEW a USING TRON ($FFDD) j PROTECT j9=/* CLS TAB( AUDIO  ($f8)m AUTO REM REM line numbering breaks here! REM FOR WAIT STEP 3 READ ($FFEA) SET ERROR O0 FLREAD NOT + 6687  ($ef)& DELETE EXEC *  EDIT EXEC DIM REM REM line numbering breaks here! REM WAIT OFF * DIM DRIVE 9 SAVE 3 READ M READ Z$ STEP =&  &A SET 04_? READ 5? RUN SET 0 DELETE ELSE & SAVE DATA NEW BEEP DATA /0-?'V OJ& O3 READ /($e8) CSAVE  USING $ GO Y&  USING >h0-? PRINT 2 = READ  DELETE R($ef)0- DATA ? ELSE 9 PROTECT NEW SAVE 3 READ  CREATE READ ($e8)/ DSKINIT BEEP LET 3311  NEW ($ee)9 &N4 ($ef) LOAD ($ed) MERGE STEP ($ed)O]'  DEF ? RUN ($ee) REM REM line numbering breaks here! REM CONT  PROTECT AND  MERGE RESTORE 5 DSKINIT 3 READ  AUTO s DSKINIT uZ DSKINIT q< NEXT & SET 0 PRESET ELSE  PROTECT ` CLEAR STEP CSAVE OFF ' CLOAD  LOAD SOUND READ / LOAD NEW READ OFF ($fe) COLOR PROTECT O_3^ R\' BOOT NOT #($f4)_L' RETURN THEN #($ec) DATA LEN < READ :O READ 7($fd)4 LOAD ($ed)' CLEAR BEEP GO &tO($ee) DEF ? RUN ($FF35) LET  4007 &($FF7A) ($ed)&=^ ($ef)'/5 DATA  RESET 4 SCREEN -' SKIPF READ ($f2) DEF READ ($ee) DELETE ELSE FLREAD FOR READ ($e8) DELETE FOR READ VERIFY NOT ' DELETE FOR READ LOAD Z&($f9)5 CLEAR SAVE + MERGE g GO /'($f9)0 TROFF @m ELSE '($f1)3-= m DRIVE ($ed)& DRIVE ' DSKINIT [ SET ($e9) ($fd) DIR 3 READ w($fd) AUTO  CSAVE ($fd) DRAW STEP ' OFF SAVE 'GZ STEP ' DELETE SKIPF GO /&($f5) DSKINIT SAVE DRIVE [ BEEP SAVE STEP $ SAVE CLEAR [ STEP # CLEAR SAVE NEXT  INPUT J LET .c AUTO al AUDIO DELETE & FOR  PSET DELETE ' DRIVE SAVE & DRIVE [ NOT = PCLEAR SKIPF =($ef) SKIPF \\o SKIPF DSKINIT 6 SAVE &\ CLEAR  FOR !3- ($ed)&=U DATA - EDIT + LOAD LOAD CLEAR  FOR # READ  DRIVE 6 DATA EDIT SKIPF 9 NEW y DELETE C>($f3) REM REM line numbering breaks here! REM f($fe) PROTECT n WAIT h READ '($FFFF)&L READ 4@ SET 3 INPUT  FOR READ  EDIT NOT ' READ  EDIT NOT ($f4) READ  INPUT READ  INPUT 9 DATA 3 INPUT ($FFC6)A READ ($f5) EDIT NOT Z&($f9) READ SWRITE WAIT h READ WAIT 0 DSKINIT AUDIO READ FWRITE WAIT NEW 5@' 791 ($fd) READ > TO WAIT ($f4) REM REM line numbering breaks here! REM CLEAR EDIT & OR 4v PROTECT 3 OR  40516 0 INPUT ($f9) REM REM line numbering breaks here! REM '; LOAD ($ed)O]&/ DSKINIT BEEP / DEF SET BOOT DRIVE BEEP STEP &? INPUT ? END ($fd) NEW  ' ' SET 0 INPUT  o NEXT c NEXT LET  13814 EDIT &-4 SET D DIM REM REM line numbering breaks here! REM & READ SOUND SET D4 LOAD 0 NEXT 5 ($ee)' DRIVE BEEP STEP & EDIT ELSE  DELETE ELSE SET D0 RESET D5 CONT 42 DATA 0 VERIFY  LET 16266 5 PAINT ($FF2D) POKE ($f4) REM REM line numbering breaks here! REM c WAIT ($f4) KILL ($e9) READ GET M'1 INPUT READ PSET STEP & FOR ' RENAME ELSE  NEW 6 SET ~ DELETE  ELSE FREAD CSAVE 6 EDIT  BEEP NEW  KILL < DRIVE ($FFC0) LOG EDIT NOT Z&($f8) TAB( PROTECT n'($FFFF)& 6704 OR  STOP 3 OR  NOT READ ! PROTECT h KILL DEF ($fd) NEXT  NOT LOAD  DRIVE  TO  OR v($fd)~3 READ REM REM line numbering breaks here! REM LLIST READ h KILL g OR d_ DELETE IF EDIT *\ GO ' STEP ?&($f3)o-o*9 OR SUB oo ON o ON o  OR GET  OR A DATA ?  OR RETURN READ 33 READ X READ *O SET 0 INPUT  4238 ($FF10)? NEXT  DIM REM REM line numbering breaks here! REM '*0 READ !< 805 <?]&/ BEEP  ERROR ($f3) KILL G SET 00 ON /O_? LET 9SHEL< File? REM REM line numbering breaks here! REM Load : Save : OS9> Wrong Format ! Delete original? Error! #  SET l'($ec)+($ed)'1?&($f8) }' DELETE OFF EDIT REM 9 READ ($e8) ERROR e ERROR \ 32 Aw GO S&j ERROR ?3 READ 68 PROTECT 1 OR  THEN _ ERROR = ERROR Max Col/Row - 26656  SET AUTO PCLEAR EXEC ($ef)" AUTO  REM REM line numbering breaks here! REM DELETE EXEC MOTOR "& AUTO ($ef)&($ec) EXEC AUDIO &($ed)$ DATA LOC (9 FWRITE ($f7) AND < ERROR B SET 3 ON WAIT ($f4)3 ON ` WAIT AUTO 3 OR  CLS WAIT h9 GO R& BACKUP READ WAIT 3 READ ($f9)($f4)3 READ 9 END READ PSET WAIT lO_ POKE l MERGE >3 READ y READ CLEAR ($ee)" PLAY $ FWRITE NOT  FWRITE SOUND 3 READ ($f0) READ TRON  SET AUTO t3 READ  READ CLOSE  SET hh^($f9)($f9)- PROTECT n4@ TO  9939 > MERGE > OR & REM REM line numbering breaks here! REM COPY  FWRITE ELSE DSKINIT NEXT DSKINIT SCREEN '($e8) FLREAD ELSE DELETE  NEW 0 IF &f NEXT STEP '`4 FLREAD O WAIT n13 PCLS WAIT Q DELETE 0.$=< PROTECT ($f4) WAIT ($fa)y^Q SET ERROR ^Ix^M3 READ  DLOAD ($FF2E) FREAD A^s PROTECT ($f4) FLREAD -C^n^b GO S' GO R&($f5)O EDIT NOT  POKE ($fa)& SWAP 5 PROTECT ($e8)($ec) SCREEN NOT 0 NOT  DSKINIT tO NEW }T} MERGE l PROTECT 3 OR  38428 EDIT _ FREAD ($ee) READ O OR &($FF53)($ec)$ COPY > FREAD RENAME RESET ~ WAIT n NEXT & FREAD RESET SREAD CLEAR _ t' FREAD TRON DRIVE DIM REM REM line numbering breaks here! REM 33799 NEW 6 DELETE  ELSE FREAD CSAVE 6 EDIT  +5@ TO  FREAD THEN  FREAD ' PCOPY & SUB ($f6)($fe)] SET h  SET AUTO  OR ($ec)$ SWRITE &$m('o( AUDIO "# OR ($ec) EXEC AUDIO &l(($ed)$93 READ REM REM line numbering breaks here! REM / SET STEP RESET STEP ($f8) FOR ($fe)g PROTECT STEP ($f8)x/ STOP PROTECT j SET CIRCLE LOAD j RETURN CIRCLE ' BOOT PAINT & LOAD  POKE CIRCLE 90 READ  GET READ FREAD "19 9 DRIVE PROTECT PCLEAR READ 3 READ  CIRCLE ($fc) ($fb) BOOT ($fc)0 READ }3 READ 3($fd) CONT '($ed) SAVE  GET PROTECT 1 OR  FOR RETURN CIRCLE &1! CLEAR PAINT  GET DELETE TRON 1 FLREAD TRON ($ea) SAVE & INPUT MERGE INPUT DSKINIT MOTOR PROTECT THEN WAIT s DELETE TRON 1 MOTOR TRON ($ea)" DELETE TRON ($ea) EDIT 3 PROTECT s($fe) JOYSTK SAVE &($fe)7 PROTECT j WAIT CIRCLE ($fd) RENAME PROTECT 3 READ  WAIT PCLEAR ($fd)]'($fb)f4P($FF7F)5P4P($fb)q5P($fb)g($fc)($fa) SET h($fb)x($ef)"($fc)($ef) WAIT OR &($fe)+ WAIT STEP WAIT READ ^'X MERGE ($f6) '($fc) CHAIN OR &L CLEAR ($f6) NEW ($fc) READ J'* BOOT ($f7)&& PROTECT ($fa)]& DATA  NEW  RENUM DRAW  DELETE FOR READ T4 DELETE NOT READ N MOTOR RENAME & CLOAD 'C ($fc)&($e9)\'* TRON DEF PROTECT  END $ SUB SET  SCREEN ON d($ee)$ RESET CIRCLE WAIT j CLEAR j($FF22) PROTECT STEP INPUT  DIR '($ec) GO - FOR ' NEW CLOAD ]' DATA MOTOR ELSE &0 CLOAD &($f6)9 CLEAR CLOAD 9 GO ' GO @ NEW 6 ELSE WAIT GO Z# CLEAR 6 END FOR 93 READ REM REM line numbering breaks here! REM SREAD ($f4)($f3) CSAVE ($f4)($eb) NOT ' LOAD n MERGE ($f1) RETURN THEN & BOOT NOT # SAVE O_ !($fa)} LOAD ($f1)  GO '($f8) LOAD n BOOT NOT / CHR$ THEN & DATA ($FF0D) SAVE & VERIFY L\ MERGE n POKE ($f1)' DRIVE CLOSE ($f1) DIR PROTECT n CREATE SOUND  CREATE READ ' COPY ($ec) GO *' USING FOR # OR  INPUT PROTECT ($e9)3 OR 50304 @&3A NEW GET READ N& 4T READ H&Z&($f9)5TZ& PROTECT AUDIO 2g< CLEAR  NEXT  NEW DIM  CREATE ] CLEAR  NEXT  NEW DIM  CREATE -3 READ REM REM line numbering breaks here! REM k($fa)2 Range? From...To < R(elative) or S(ame) ? Working... NO ROOM ! 32 | PROTECT  POKE  1742  1673 GO P&3 READ 3 COPY @3 READ  ($f7) RENAME ' GO &  STEP Y GO &2b9 GO ' GO &($ee) SKIPF  STEP S READ :3 READ  IF READ 4 COPY 0 STEP 3 GO ' STEP  DRIVE [\o SKIPF  CHAIN STEP DATA - EDIT .# RENUM  STEP ' STEP O_ MERGE CIRCLE LOAD THEN MERGE j3 READ ^ READ  FWRITE ($f2)>3 TROFF ($fe)y DELETE - NEW i3C($ec) STEP NEW ; DSKINIT ?($ec)- MERGE b NOT DRIVE  &I0 TROFF  10020 3-($f2) BACKUP ($f2) OR NEW ($ee) READ   LET  32279  SWAP CLEAR  FOR 43 TROFF  REM REM line numbering breaks here! REM ($f2) LINE READ ($ea)3 READ #($f2) OPEN NEW ($ee) DRIVE SAVE Z DSKINIT 0-3 TROFF  ($f2) LIST  READ COPY DATA NEW BEEP NEW CSAVE READ *3 READ =($FF46) CLEAR  NEW SREAD b&D NOT RETURN 3 READ  SWRITE ($FF73) CSAVE `($f2)6 CLEAR ? FOR .o SKIPF NOT  DSKINIT 0 TROFF  FOR 1(o DELETE _($ee) SKIPF ($ef) IF = BOOT #($f6) RESTORE "O NEXT  ;' NEXT  NEW ($f1)d ($f4)($f5) DSKINIT DRIVE  DSKINIT ($ee) DATA TRON READ a RENAME  LOAD CIRCLE SET j PMODE , MERGE j SET PROTECT NEW O_ MERGE NEW 4P SET 0 INPUT  4300 ($fb)( READ B_($ed)& PROTECT SOUND  WAIT AUTO ($ec)H($ed)( LOAD j($ed) EXEC LOAD ($f2) POKE j= DSKINIT M* DATA  NEW 6 CLEAR j DRIVE ? ;& NOT  DSKINIT CONT o>l> BOOT RENUM L 6*($f4)  SREAD & THEN ($f2)3 NEXT DATA FLREAD FOR SWAP NOT J&($f9)9j>&l>/ NOT  BEEP ?P DSKINIT  PSET SWAP / b& READ H CLEAR ; NEW OPEN  BOOT Z PROTECT AUTO SET 0 ON (< FREAD READ ^5P RESET WAIT NEW PSET READ h RENAME DATA PSET READ COLOR ($ee) SET ($e9)m TROFF ($fe),* THEN ' & KILL  DELETE DATA ($f1)8Z&($f8)($f1)> BOOT  RENAME 3 READ f READ ($f5) RENAME PROTECT 3 OR  REM REM line numbering breaks here! REM READ ($eb) DRIVE ($f1) READ LOAD PROTECT 3 OR b READ WAIT RETURN &.3 READ 4 ;'/ READ -3 READ 5 READ OR ($f5) DRIVE ($f5)O7 READ 36111 SREAD & DATA  REM REM line numbering breaks here! REM SREAD RENAME  FN ($f0)9 DATA  DSKINIT b& DRIVE ($f4) NOT  BEEP i DSKINIT ($f4)$ READ DEF READ  ;&4  BEEP USING 5 DRIVE i DSKINIT LLIST READ + LLIST *($fa)9 CLEAR c FOR  ;&J NEW ($f4)9 GET EDIT ($FF67)1 TROFF ($FF70)3 READ d WAIT LOAD 3 READ u($fd)P ($ef)'($ea) GO /& PLAY  CREATE ELSE _ GO R'  NEW DSKINIT CLEAR ($ec) GO ($f0)'1!3 READ / WAIT LOAD  RESET ($eb)93 READ ($f0)` READ PAINT 3 READ -($fd)9($ef) SET CIRCLE LOAD j RENAME  DRAW w MERGE ($f6) MERGE ($f4) LET Q($e8) DATA  NEW " RENAME ^ RETURN  EDIT 3 READ  RENAME ($fe)($f6)($FF0C) READ  PROTECT LOAD ($fe)($ec) READ  PROTECT ($f4) BACKUP ($fb)' DELETE ELSE FOR & DATA > READ READ  6($FF26) READ 13463 60 DELETE ELSE IF '($ee)m+ DIR PROTECT / IF ' DELETE  READ Y& DATA ' READ KILL DRIVE 6 DSKINIT  SET SOUND  BACKUP SOUND READ > PROTECT ($eb) GET lD DELETE D' MOTOR B# EDIT DELETE F EDIT D GET & GET READ  DATA @ READ CIRCLE READ LINE SREAD 3A STEP ($f1)'3^9 RENAME  RETURN ($ef) SET o TROFF  53399 ($ef) DRIVE  MERGE ($ed) NEW  ($ec) GO '' GO *' GO 9" GO 0$ GO .' GO -' GO +&93 READ ($ef)v DSKINIT  SREAD RETURN ($fe) PLAY PROTECT n WAIT ($f4) WAIT ($f6) 55055 USING GO /& DSKINIT  168 GO @'M GO 'C GO >&_4  READ PRESET 4 GO '& READ b GO & NEW DSKINIT DATA  SET ($e9)_ EDIT SKIPF \* READ n  READ K GO &($f1)Z DSKINIT [ PROTECT ($f4) AUTO ($fa)5'O SUB @  SUB > PROTECT ($eb)lD PSET _ READ )($FF69)& FOR 0 4 DATA =($eb) RENAME ($ec) GO ' READ 0\ PROTECT ($eb) DELETE F EDIT D($FF1D)($eb)D SWAP D SGN CLEAR DSKINIT &($ee) COPY M+ DSKINIT 9 PROTECT ($f6)K WAIT n PCOPY & GET ($eb) ($ed)($FF08)4 READ MERGE GO &($fa)5 REM READ ($f4) READ COPY GO *'($f8)9Print REM REM line numbering breaks here! REM Block : Range ? Entire NO DRIVER ! Title ? Output Save : Load : *DYNACALC Data File /Col /Row Data file 59219 /($f4)? DATA Order 59460 /^R/($f0)? SOUND Printer 28483 0 PMODE L2 LOAD P2fS3W2 COPY ? CONT LET REM REM line numbering breaks here! REM ($fe)3 READ 1934 REM REM line numbering breaks here! REM ($fc)3 READ 20503 USING AUDIO SET 5F0 NEXT ($fc) CLOSE _3 READ REM REM line numbering breaks here! REM PMODE DELETE ELSE &S3C SWAP ELSE  USING OFF /= USING r DATA Ym FOR ' DATA N($fd) PCLS DATA ($fd) EXEC DATA B0 TROFF ($fe)| READ SWRITE DATA W READ DATA P READ KILL DATA L READ 0/ /Borders now Pagination now On Off Printer width is : Lines per page : Line spacing : DYNACALC PAGE 3949 0 READ 4461 ELSE *($fa) DEF 4 m NEXT 0($ec) AUDIO 5 REM l l AUDIO ELSE $($fa) SWRITE GO 4 CLEAR lJ& FLREAD m& SREAD & FROM DATA ($f0) LOAD '($e8) 2815 DATA  NEW ($FF0F)1 TRON 0 READ REM REM line numbering breaks here! REM , NEW m EDIT CLS DELETE FOR &($f8) AUTO  13344 ?  5 READ LLIST WAIT D LOAD 3=/ DELETE NOT EDIT CLS Z&($f9) SAVE ($ec)/dyna. 61439 ($ef)($FFEF)($FFEF) REM REM line numbering breaks here! REM $9($FFFF)7 167  REM REM line numbering breaks here! REM ' DLOAD ($fb)9($FFFF)9($FFFF)9($FFFF)9($FFFF)! RESET ($fa)9 LOAD A POKE *+ 1756 GO POKE  SWRITE SAVE ($f8) EDIT O SET ~' RESET ELSE RENAME ELSE '' REM 36204 $ CLEAR TO &=/ SET GO RESET ELSE 1 NEXT  RESET GO READ X$ RESET GO = SUB SET ~' READ  PROTECT n= LOAD = AUDIO PROTECT l SET ELSE RESET ~ PCLEAR -9 FLREAD ELSE : RESET l LOAD ELSE POKE l}DV} SET l MERGE l READ =} WAIT ELSE 94P RESET ($f8)0 POKE ($f8) MERGE ($f2) SET *($ec) GO  POKE ($f8) COPY ($f2)($ed) CLOSE ($f1)5 BEEP 4V SET # CLOSE GO $ SET GO 0 RETURN THEN $ CLEAR THEN BOOT NOT $ DRIVE NOT =v RESET l POKE l$ READ $($f0)5 DRIVE 4v< REM REM line numbering breaks here! REM MERGE F LOAD A POKE  C'+X 477 l COPY F?$ CLEAR F FOR  NEW F$ SAVE C5($f6) POKE l MERGE FDV COPY # MERGE # LOAD F COPY  MERGE  LOAD A POKE *+ REM REM line numbering breaks here! REM }DV} MERGE l LOAD F COPY * MERGE * PROTECT A0? RESET A!3A($eb) O5($f6) LOAD  MERGE GO 9 SET Q FLREAD ELSE O3 NEXT WAIT Q CLOSE GO 9> SWRITE  OR +OK BAD Y DELETE Y? S  2 S | 2 Y DELETE Y PRINT A @ DYNACALC, Version 4.7:3 Copyright (C) 1982,1983 by Scott Schaeferle. PRINT C FOR ' ' ' REM ($FFFF) 255 REM REM line numbering breaks here! REM ($FFFF) 1551 6978 6986 REM REM line numbering breaks here! REM F G 8  REM REM line numbering breaks here! REM   255 O REM REM line numbering breaks here! REM 9   2 97 ($f0) REM REM line numbering breaks here! REM X ($FF04)($FF04)($FF04)($FF04)($FF04) 26422 [1g6($fa)U"g@($fa)pg@($fa)U CREATE CONT 26446 ($fa)pgN($fa)U CREATE REM REM line numbering breaks here! REM 67 gc($f2) GET  WAIT NOT ($fa)$gc($fa)U CONT  REM REM line numbering breaks here! REM SWRITE DLOAD : PMODE ($fc) THEN  DLOAD :($f9) SKIPF ELSE 1 "g ON ($fa) CLS ($fa)pg ON ($fa)U BEEP g SREAD REM REM line numbering breaks here! REM 49255 DELETE ($f3)= BEEP g SREAD REM REM line numbering breaks here! REM b WAIT NOT g DELETE ($f3)=($fa)pg DELETE ($fa)U ELSE 99 SWRITE REM REM line numbering breaks here! REM PMODE ($ea) BACKUP * AUTO DSKINIT USING >= KILL PMODE # MOTOR   FOR FOR  GO ELSE ELSE   MOTOR  _ 128   1792 REM REM line numbering breaks here! REM ELSE ` 497  REM REM line numbering breaks here! REM ($FF30) .......SOFTWAR0 dollar rate =0 duty =2* CRASMB with 68092* additional CPM's2* addit CPM's with sce268000 macro cross ass 2with source2+ SuperSleuth2+ Z80 SuperSleuth2+ 6805 simulator2+ 6502 simulator2* HDS200 utility2 development package2+ 6502 to 6809 trans2+ 6800 to 6809     5 RESET PRINT O job control l     5 128 FOR FOR FOR FOR ($FF2B)-.($FF2F)*^,($FF28))($FF23)@($FF21)($FFFF)"($FF2B)-(.@#($FF3E)($FF58)! FOR SGN FOR FOR FOR ($FF2F)($FFFF) (X) REM REM line numbering breaks here! REM Ready Value Label l Merge2+ Spell Check2+ Stylo/MM/Spell 2+ Dynacalc2* RMS database0E PR AUDIO @ GO AUDIO ELSE 0dolla0price CLS H PRINT 0ICE 0 00r 0 7.0 LIS0 end0 useI  PRINT H  ON H PRINT @ 'H PRINT C FOR ' ' ' REM '0T D0 0r 7.0ECEM3 D0 1 -0 4 -010 -050 -0 0 1-3L  PRINT H  ON H PRINT A@ 'H PRINT C FOR ' ' ' REM 131 0BER 0ISCO0 3 0 90 49 December 13, 1983 REM REM line numbering breaks here! REM  0 1980UNT CLS IF CLS DATA CLS DATA CLS 4 DATA 0ler 0 4-9L \ DATA H  ON H PRINT A@ 'H PRINT C FOR ' ' 131 REM 256 12339 0T LET REM REM line numbering breaks here! REM N0 READ 528 ? END O0 READ REM REM line numbering breaks here! REM  LET ? INPUT ($ee) READ ($FF50)n OR : DIR OUT OF MEMORY- Worksheet not completely loaded. Press any key to continue.0-4L H /P H  ON H PRINT A@ 'H PRINT C FOR ' ' ' REM '0 09 7.0 050-9L 4 DATA H  ON H PRINT A@A (Press any key to continue) ($FF09) REM '0 09 7.0 OEM CLS p DATA L DATA H  ON H PRINT A @ 'H PRINT C FOR ' ' ' REM ' CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT I  PRINT H  ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H  ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H ON H PRINT @ CLS Y ($fd) CLS CLS YY FOR ?Y READ COPY  FOR ?YX 2 READ = DIM FROM d[ 22 4Q0 INPUT SKIPF ($f1) PCLEAR READ ($fb)^ DATA LOC OR C5 S's'C DATA 0 READ REM REM line numbering breaks here! REM  LET ($FFFF)? DIM _?DYNACALC and DYNACALC.TRM are different versions. 0 INPUT ($f6) SET PCLEAR READ ($fb)5v($ed) OR  STEP  PLAY L NEXT RESET A WAIT 0 OR  FOR RESET ($e9) LET  4077 ($ee) EDIT o READ ($fc)( PROTECT 0 OR ($f0) RESET 0 OR 1 RESET 00 ON /O_? READ REM REM line numbering breaks here! REM 0 READ ($fb)> DATA ? ELSE $0 READ ($fb) THEN DATA /?'$o READ ($fb) PAINT 5 NEW  SET 0_? READ SET 0_ DELETE ELSE 'J& CLEAR /? READ ? ON /($FFD7)& o READ ($fb) REM CLEAR ? RUN  SET 0?1 READ ($fa)T DELETE J GO #O/ =3 READ  AUTO 3=/ DELETE NOT EDIT CLS Z&($f9) DATA EDIT CLS FLREAD  READ <, ($ed) MOTOR <19($ed) MOTOR SET 0 FLREAD ELSE READ o EXEC O AUTO  WAIT D($ee) READ ($fa)' PRESET OR G FOR AUTO  WAIT D LOAD 3=($ec)C($ed) MOTOR 9 SCREEN READ ($fa) PRESET TROFF / FLREAD & FLREAD READ ($f5) PRINT ' SWAP READ ($f5)'o C& oo ON o ON o ON o PRESET TROFF : AUTO ($f1) WAIT ($eb) RENAME ($e8)-m READ ($f5)* m READ ($f5)R& DATA  EDIT READ ($f5)J DATA RESTORE  SCREEN READ ($f9) STEP PRESET TROFF PCLEAR DATA RIGHT$ ($f0) PRESET TROFF ! LOAD ' &DT MERGE SUB /3 READ  ON PRESET TROFF B PRESET TROFF  EXEC SUB SUB Z&($f1) PRESET TROFF B LOAD STEP ' 19216 SET A DELETE EXEC GO -'2/ SET ($e9) DELETE CLS GO ' GO ' \ DSKINIT ($ed) EDIT IF STEP /&($ed) ($ed)''3 READ  PCOPY  SCREEN READ ($f9)^ PRESET TROFF  EXEC > DELETE CLS GO '($fa)1? FLREAD !-_'-H& KILL EDIT READ ($f4) AND DIR  SCREEN READ ($f9); PRESET TROFF  EXEC / DSKINIT o READ ($f9) DLOAD o READ ($f9) PUT PRESET TROFF  COLOR & &($f6) C'' SKIPF /0 READ ($f4) RESET 3 READ REM REM line numbering breaks here! REM f SET  DELETE FOR 4($ec) STEP 0 PCLS DELETE VERIFY EDIT ELSE ($ec) STEP 0 PCLS 5 EDIT ELSE 5Z& SWAP SCREEN READ ($f8)($f0)1 TROFF  ($ec)& NEW }DV} MERGE l($ec)&3 PCLS SET A04 SET m INPUT 4134 0 SCREEN READ ($f8)+ PRESET TROFF :($ea) MERGE  POKE DV COPY  MERGE #($ee) READ ($f8) SCREEN n OR N PAINT  GO  TROFF  REM  LINE ' PCLS  ELSE  PSET  EDIT  EDIT  EXEC  EXEC  FOR  FOR  FOR  FOR January February March April May June July AugustSeptember October November December **** DYNACALC **** REM REM line numbering breaks here! REM for the Dragon 64 (Press any key to continue) Loading FOR ' ' ' REM 'I  PRINT H( ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H) ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H* ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H, ON H PRINT @ 'H PRINT C FOR  7 g}g9 PROTECT  SCREEN OR u3 READ REM REM line numbering breaks here! REM D PRESET TROFF  EXEC PRESET TROFF ($ef) GO Y'n TROFF  INPUT PROTECT  SET A0 RESET 4P LOAD A POKE DV COPY  PRESET TROFF N DRAW 0 POKE * MERGE l LOAD  POKE l MERGE * LOAD l}DV} MERGE l5Pn TROFF : SAVE Delete helps: Are you sure? 4  SET  SCREEN TROFF u FLREAD ELSE STEP ON & SAVE '/ CSAVE  SAVE DSKINIT PROTECT CIRCLE CLEAR GET DRIVE u4F 2733 TROFF 0 READ  DRIVE :($ec) ELSE 3 READ REM REM line numbering breaks here! REM NOT 3= DELETE NOT '3 GO &# PRESET TROFF : PROTECT PRESET TROFF  FLREAD \ DELETE IF 4o IF PRESET TROFF ($ef)5 GO 'G4@ READ h5@  PRESET TROFF GO & USING DATA ($f4) PRESET TROFF : PROTECT PRESET TROFF  CLEAR GO FOR & FLREAD \ DELETE IF GO @&/ CLOSE  GO >& / SET DSKINIT PRESET TROFF ($ef) ON ELSE _ GO G&/ ELSE ($ee) READ # PSET PRESET TROFF  TO  SET  SCREEN TROFF u LET  2233 PRESET TROFF : PROTECT 5F NEW GET WAIT CIRCLE DSKINIT u5 CLS n TROFF  PROTECT  SCREEN OR u<, PRESET TROFF  DIM DRIVE 0 READ { NOT AND STEP 5#/6X:($ec) ELSE 3 READ U3= PRESET TROFF ? SCREEN 9A set Attributes B Blank current cell C Clear entire worksheet D Delete current column or row E Edit contents of current cell F set Format of current cell I Insert new column or row at current position L Locate specified label (?="Wild card", @="Don't ignore case") M Move column or row to new position P Print all or portion of worksheet to system printer or textfile Q Quit DYNACALC and go to Sleep or to OS-9 R Replicate cell or group of cells S call System function T set column or row Titles W adjust display Window(s) Hit @ for help with FUNCTIONS > for help with ERRORS G for general helps REM REM line numbering breaks here! REM Set Attributes: B toggles Bell on/off (default = on) D toggles Degree/radian mode (default = degrees) G allows changing Graph character (default = #) H deletes Help messages & increases user space L toggles Label entry mode flag (default = off) M re-write (Modify) screen O toggles Column/Row calc Order (default = C) P allows changing Printer/textfile parameters R toggles Auto/Manual Recalculate (default = A) S reports Size of worksheet T toggles Type protection (default = off) W allows changing column Width(s) Delete column/row: C deletes current Column R deletes current Row Set Format of current cell: C Continuous - characters repeated throughout cell D Default - uses window format G General - labels left, numbers right I Integer - rounds DISPLAY to nearest integer L Left justify - forces number to left of cell P Plot - uses cell's integer value as number of graph characters to print R Right justify - forces label to right of cell $ Money - rounds DISPLAY to nearest penny Insert new column or row: C inserts new blank Column at current position R inserts new blank Row at current position Quit: O leave DYNACALC and return to OS-9 S puts computer to Sleep until any key is struck System: C Change the current directory L Load worksheet from disk - overlays current sheet S Save current worksheet to disk Save and Load both default to .cal in current directory X eXecute OS-9 command # data file save/load - for data exchange both default to the current directory Save data: L Load labels and CALCULATED Values from disk S Save labels and CALCULATED Values to disk Titles: B set up Both horizontal and vertical titles H set up row(s) above cursor as Horizontal title area N No titles V set up column(s) to left of cursor as Vertical title area Windows: D toggle value/formula Display flag (defaults to value) F sets default Format of all cells in current window H divides screen Horizontally into two windows at current location N No division - returns display to single window S Synchronizes motion of two windows U Unsynchronizes motion of two windows (default) V divides screen Vertically into two windows at current location Set default format of current window: C Continuous - characters repeated throughout cell D Default - general format (see) G General - labels left, numbers right I Integer - rounds DISPLAY to nearest integer L Left justify - forces number to left of cell P Plot - uses cell's integer value as number of graph characters to print R Right justify - forces label to right of cell $ Dollar - rounds DISPLAY to nearest cent Printer attributes: B toggles Border flag on/off (defaults to off) C Clears the printer file name L sets Length of page (defaults to 58 lines) P toggles Pagination flag on/off (defaults to on) S sets the Spaces between lines W sets Width of page (defaults to 80 characters) All of these default values may be permanently modified by the user, using "Install.dc" Width: C allows changing width of current Column (defaults to Window value) W allows changing default width of all columns in current Window (defaults to 9 characters) Move column/row: A Sort columns/rows in the given range in Ascending order D Sort columns/rows in the given range in Descending order M Manually move column/row C loads/saves data by Column D loads/saves data by Default order R loads/saves data by Rows Trigonometric: @SIN @ASIN @PI (3.14) @COS @ACOS @TAN @ATAN Logarithmic: @LOG(x) logarithm of x to base 10 @LN(x) logarithm of x to base e (2.718...) @EXP(x) e raised to x power @SQRT(x) square root x General: @ABS(x) absolute value of x @INT(x) integer part of x @ROUND(d,x) x rounded to nearest d (d must be even power of 10) Hit any key to see page 2 Series: (in range x...y) @COUNT(x...y) number of cells @SUM(x...y) sum of values of cells @AVERAGE(x...y) average value of cells @STDDEV(m,x...y) standard deviation of cells, m sets method: <0 = population; >=0 = sample @MIN(x...y) least value of cells @MAX(x...y) greatest value of cells @NPV(r,x...y) Net Present Value at rate r Indexing: @CHOOSE(n,x...y) value of nth cell in range @LOOKUP(n,x...y,z) '>' search - z optional - see manual @INDEX(n,x...y,z) '=' search - z optional - see manual Error: @ERROR causes >NA< message (not available) @NA causes >NA< message (not available) Hit ESCAPE key to exit Help Arithmetic operators: x+y adds x and y x-y subtracts y from x (use 0-x for monadic minus) x*y multiplies x by y x/y divides x by y x^y raises x to y power Maximum number of terms is 11 Parentheses in terms may be nested to any depth To enter expression, first character must not be alphabetic For example, to enter A1+A2, type '+A1+A2' To enter numeric as a label, use leading single-quote (') Hit ESCAPE key to exit Help DYNACALC Error Messages >AE< Bad argument error >D0< Divide by zero attempted >ER< General purpose error >EX< Exponent too large >HO< Holder overflow error >LN< Negative or zero logarithm attempted >NA< Not available >NR< Negative root attempted >OV< Arithmetic overflow error >RE< Reference error >RN< Range error >SN< Syntax error Hit any key to exit Help Path table full. Illegal path number. Interrupt polling table full. Illegal I/O mode. Device table overflow. Illegal module ID block. Module directory full. Memory full. Unknown service request. Module busy. Bad boundary. End of file. Returning non-allocated memory. Non-existing segment. No permission- access denied. Bad path name. The file/device cannot be found. Segment list filled. Creating existing file. Illegal block address. Illegal block size. Link to a non-existing module. Sector number out of range. Deallocating stack memory. Illegal process ID. Illegal signal code. No children. Illegal SWI code. Keyboard abort. Process table full. Illegal fork parameter area. Known module. Bad module CRC. Unprocessed signal pending. Non-executable module. Unit number out of range. Sector number out of range. Write protect. Checksum error. Read error. Write error. Device not ready. Seek error. Media full. Device/media type mismatch. Device busy. Device/media ID changed. Indirect file error. Indirect file was accessed. Unknown error code.  & D V m DATA LLIST LINE + BEEP PROTECT 2817 !?No ELSE  CLOSE  GET ^ FLREAD 1FSeu INPUT  DELETE  PUT - RENAME ($f7)-<LXew' RUN  PCLS  PLAY  BOOT  FLREAD  REM REM line numbering breaks here! REM } COPY  RESTORE  FWRITE NOT ($fe)_($fc)  RUN  VJ CLOSE 7 FLREAD DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H  ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H" ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H# ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H$ ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H& ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H' ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H( ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H) ON H PRINT A @ 'H PRINT C DYNACALC Customization program, Version 4.7:3 INSTRUCTIONS- INSTALL.DC is a program for changing some of characteristics of DYNACALC. To use it, you must have the file DYNACALC.COR in your execution directory, and you must delete your old DYNACALC.TRM, eg: OS9: del /d0/cmds/dynacalc.trm INSTALL will prompt you for various attributes of your printer. Pressing ENTER will retain the existing setting, otherwise enter the setting you require. Pressing ENTER in response to a YES/NO question will be taken as NO. Don't worry if you make a mistake entering anything. You will be given another chance before INSTALL changes DYNACALC on the disk. Printer characteristics Enter the printer default characteristics. If the displayed value is correct, simply hit space. Note that these are defaults only, and can be changed while in DYNACALC using /AP. Printer device pathname- Printer device currently: T CLS Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it? e Do you wish to change it? e Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it?  Do you wish to change it? Lines per page- 77 Printer strings Enter the character sequences needed for your printer. When all characters in a sequence are entered, hit period (.). If you need to enter period as a character, type $2E. You should note that most printers don't need these strings. If this is your case, simply hit period for each string. Sequence to turn on printer (3 Char.): 1> $68 h $63 c 2> $65 e $1B ^[ 3> $20 (S) $1B ^[ Sequence to turn off printer (3 Char.): 1H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT CLS H PRINT I  PRINT H  ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H  ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H ON H PRINT @ CLS Y ($fd) CLS CLS YY FOR ?Y READ COPY  FOR ?YX 2 READ = DIM FROM d[ 22 4Q0 INPUT SKIPF ($f1) PCLEAR READ ($fb)^ DATA LOC OR C5 S's'C DATA 0 READ REM REM line numbering breaks here! REM  LET ($FFFF)? DIM _?DYNACALC and DYNACALC.TRM are different versions. 0 INPUT ($f6) SET PCLEAR READ ($fb)5v($ed) OR  STEP  PLAY L NEXT RESET A WAIT 0 OR  FOR RESET ($e9) LET  4077 ($ee) EDIT o READ ($fc)( PROTECT 0 OR ($f0) RESET 0 OR 1 RESET 00 ON /O_? READ REM REM line numbering breaks here! REM 0 READ ($fb)> DATA ? ELSE $0 READ ($fb) THEN DATA /?'$o READ ($fb) PAINT 5 NEW  SET 0_? READ SET 0_ DELETE ELSE 'J& CLEAR /? READ ? ON /($FFD7)& o READ ($fb) REM CLEAR ? RUN  SET 0?1 READ ($fa)T DELETE J GO #O/ =3 READ  AUTO 3=/ DELETE NOT EDIT CLS Z&($f9) DATA EDIT CLS FLREAD  READ <, ($ed) MOTOR <19($ed) MOTOR SET 0 FLREAD ELSE READ o EXEC O AUTO  WAIT D($ee) READ ($fa)' PRESET OR G FOR AUTO  WAIT D LOAD 3=($ec)C($ed) MOTOR 9 SCREEN READ ($fa) PRESET TROFF / FLREAD & FLREAD READ ($f5) PRINT ' SWAP READ ($f5)'o C& oo ON o ON o ON o PRESET TROFF : AUTO ($f1) WAIT ($eb) RENAME ($e8)-m READ ($f5)* m READ ($f5)R& DATA  EDIT READ ($f5)J DATA RESTORE  SCREEN READ ($f9) STEP PRESET TROFF PCLEAR DATA RIGHT$ ($f0) PRESET TROFF ! LOAD ' &DT MERGE SUB /3 READ  ON PRESET TROFF B PRESET TROFF  EXEC SUB SUB Z&($f1) PRESET TROFF B LOAD STEP ' 19216 SET A DELETE EXEC GO -'2/ SET ($e9) DELETE CLS GO ' GO ' \ DSKINIT ($ed) EDIT IF STEP /&($ed) ($ed)''3 READ  PCOPY  SCREEN READ ($f9)^ PRESET TROFF  EXEC > DELETE CLS GO '($fa)1? FLREAD !-_'-H& KILL EDIT READ ($f4) AND DIR  SCREEN READ ($f9); PRESET TROFF  EXEC / DSKINIT o READ ($f9) DLOAD o READ ($f9) PUT PRESET TROFF  COLOR & &($f6) C'' SKIPF /0 READ ($f4) RESET 3 READ REM REM line numbering breaks here! REM f SET  DELETE FOR 4($ec) STEP 0 PCLS DELETE VERIFY EDIT ELSE ($ec) STEP 0 PCLS 5 EDIT ELSE 5Z& SWAP SCREEN READ ($f8)($f0)1 TROFF  ($ec)& NEW }DV} MERGE l($ec)&3 PCLS SET A04 SET m INPUT 4134 0 SCREEN READ ($f8)+ PRESET TROFF :($ea) MERGE  POKE DV COPY  MERGE #($ee) READ ($f8) SCREEN n OR N PAINT  GO  TROFF  REM  LINE ' PCLS  ELSE  PSET  EDIT  EDIT  EXEC  EXEC  FOR  FOR  FOR  FOR January February March April May June July AugustSeptember October November December **** DYNACALC **** REM REM line numbering breaks here! REM for the Dragon 64 (Press any key to continue) Loading FOR ' ' ' REM 'I  PRINT H( ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H) ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H* ON H PRINT @ 'H PRINT C FOR ' ' ' REM 'I  PRINT H, ON H PRINT @ 'H 135 C FOR REM REM line numbering breaks here! REM ($FFFF) FOR 240  REM REM line numbering breaks here! REM      .   #  9O 3 0($FFFF) REM REM line numbering breaks here! REM e helps: Are you sure? 4  SET  SCREEN TROFF u FLREAD ELSE STEP ON & SAVE '/ CSAVE  SAVE DSKINIT PROTECT CIRCLE CLEAR GET DRIVE u4F 2733 TROFF 0 READ  DRIVE :($ec) ELSE 3 READ REM REM line numbering breaks here! REM NOT 3= DELETE NOT '3 GO &# PRESET TROFF : PROTECT PRESET TROFF  FLREAD \ DELETE IF 4o IF PRESET TROFF ($ef)5 GO 'G4@ READ h5@  PRESET TROFF GO & USING DATA ($f4) PRESET TROFF : PROTECT PRESET TROFF  CLEAR GO FOR & FLREAD \ DELETE IF GO @& T   RUN T  NOT  ($FFFF) FOR 240 v REM REM line numbering breaks here! REM ( ( .   #  9O  0machines 0matr 0div 0d.hrdw  0''''''''''' 0tot 0jan  CLS CLS READ  CLS z@ DIM  CLS Q` READ  CLS , LET  0''''''''' E PROTECT 143 PJ  REM REM line numbering breaks here! REM 0feb CLS  INPUT  CLS T FOR DIM  CLS  COLOR READ  CLS  LET  0'''''''''  CLS 143 PJ  0dette er  0av hva ma 0kostnader  0maskin(dr 0disketten 0operativs 0Dynacalc: 0totalt:0ekstra:----- 0skjerm: 0tekstbh.: 0skriver: 0totalt: 0medlemmer 0rabatt i  REM REM line numbering breaks here! REM 0mar CLS  CLS W@ DIM  CLS X DIM  CLS ; DIM LET  0'''''''''  PAINT 143 PJ  0bare en l 0n kan gj0 0 for et v 0agon64):0het:0ystem: 0 av Drago 0Faktum Da REM REM line numbering breaks here! REM 0total   READ PKK  PLAY POKE PJ  + 147 PJ   SOUND FOR 148 PJ  0'''''''''' ` NOT 149 PJ  0iten demo 0re med Dy 0anlig Bus CLS N@ REM REM line numbering breaks here! REM DIM  CLS  BEEP READ  CLS FOR END  CLS 5@ END  VERIFY LET P J  CLS ; FOR DIM  CLS FOR NEXT  CLS z DIM  I, 143 P J  0n Brukerg 0ta (ca.15 0''''''''''0=total 0nstrasjon 0nacalc. 0iness-sys 0kr0kr0kr0kr0kr0kr0kr0kr 0ruppe Sta0) 0tem: 0vanger fa0ar($FFFF) REM REM line numbering breaks here! REM hroughout cell D Default - uses window format G General - labels left, numbers right I Integer - rounds DISPLAY to nearest integer L Left justify - forces number to left of cell P Plot - uses cell's integer value as number of graph characters to print R Right justify - forces label to right of cell $ Money - rounds DISPLAY to nearest penny Insert new column or row: C inserts new blank Column at current position R inserts new blank Row at current position Quit: O leave DYNACALC and return to OS-9 S puts computer to Sleep until any key is struck System: C Change the current directory L Load worksheet from disk - overlays current sheet S Save current worksheet to disk Save and Load both default to .cal in current directory X eXecute OS-9 command # data file save/load - for data exchange both default to the current directory Save data: L Load labels and CALCULATED Values from disk S Save labels and CALCULATED Values to disk Titles: B set up Both horizontal and vertical titles H set up row(s) above cursor as Horizontal title area N No titles V set up column(s) to left of cursor as Vertical title area Windows: D toggle value/formula Display flag (defaults to value) F sets default Format of all cells in current window H divides screen Horizontally into two windows at current location N No division - returns display to single window S Synchronizes motion of two windows U Unsynchronizes motion of two windows (default) V divides screen Vertically into two windows at current location Set default format of current window: C Continuous - characters repeated throughout cell D Default - general format (see) G General - labels left, numbers right I Integer - rounds DISPLAY to nearest integer L Left justify - forces number to left of cell P Plot - uses cell's integer value as number of graph characters to print R Right justify - forces label to right of cell $ Dollar - rounds DISPLAY to nearest cent Printer attributes: B toggles Border flag on/off (defaults to off) C Clears the printer file name L sets Length of page (defaults to 58 lines) P toggles Pagination flag on/off (defaults to on) S sets the Spaces between lines W sets Width of page (defaults to 80 characters) All of these default values may be permanently modified by the user, using "Install.dc" Width: C allows changing width of current Column (defaults to Window value) W allows changing default width of all columns in current Window (defaults to 9 characters) Move column/row: A Sort columns/rows in the given range in Ascending order D Sort columns/rows in the given range in Descending order M Manually move column/row C loads/saves data by Column D loads/saves data by Default order R loads/saves data by Rows Trigonometric: @SIN @ASIN @PI (3.14) @COS @ACOS @TAN @ATAN Logarithmic: @LOG(x) logarithm of x to base 10 @LN(x) logarithm of x to base e (2.718...) @EXP(x) e raised to x power @SQRT(x) square root x General: @ABS(x) absolute value of x @INT(x) integer part of x @ROUND(d,x) x rounded to nearest d (d must be even power of 10) Hit any key to see page 2 Series: (in range x...y) @COUNT(x...y) number of cells @SUM(x...y) sum of values of cells @AVERAGE(x...y) average value of cells @STDDEV(m,x...y) standard deviation of cells, m sets method: <0 = population; >=0 = sample @MIN(x...y) least value of cells @MAX(x...y) greatest value of cells @NPV(r,x...y) Net Present Value at rate r Indexing: @CHOOSE(n,x...y) value of nth cell in range @LOOKUP(n,x...y,z) '>' search - z optional - see manual @INDEX(n,x...y,z) '=' search - z optional - see manual Error: @ERROR causes >NA< message (not available) @NA causes >NA< message (not available) Hit ESCAPE key to exit Help Arithmetic operators: x+y adds x and y x-y subtracts y from x (use 0-x for monadic minus) x*y multiplies x by y x/y divides x by y x^y raises x to y power Maximum number of terms is 11 Parentheses in terms may be nested to any depth To enter expression, first character must not be alphabetic For example, to enter A1+A2, type '+A1+A2' To enter numeric as a label, use leading single-quote (') Hit ESCAPE key to exit Help DYNACALC Error Messages >AE< Bad argument error >D0< Divide by zero attempted >ER< General purpose error >EX< Exponent too large >HO< Holder overflow error >LN< Negative or zero logarithm attempted >NA< Not available >NR< Negative root attempted >OV< Arithmetic overflow error >RE< Reference error >RN< Range error >SN< Syntax error Hit any key to exit Help Path table full. Illegal path number. Interrupt polling table full. Illegal I/O mode. Device table overflow. Illegal module ID block. Module directory full. Memory full. Unknown service request. Module busy. Bad boundary. End of file. Returning non-allocated memory. Non-existing segment. No permission- access denied. Bad path name. The file/device cannot be found. Segment list filled. Creating existing file. Illegal block address. Illegal block size. Link to a non-existing module. Sector number out of range. Deallocating stack memory. Illegal process ID. Illegal signal code. No children. Illegal SWI code. Keyboard abort. Process table full. Illegal fork parameter area. Known module. Bad module CRC. Unprocessed signal pending. Non-executable module. Unit number out of range. Sector number out of range. Write protect. Checksum error. Read error. Write error. Device not ready. Seek error. Media full. Device/media type mismatch. Device busy. Device/media ID changed. Indirect file error. Indirect file was accessed. Unknown error code.  & D V m DATA LLIST LINE + BEEP PROTECT 2817 !?No ELSE  CLOSE  GET ^ FLREAD 1FSeu INPUT  DELETE  PUT - RENAME ($f7)-<LXew' RUN  PCLS  PLAY  BOOT  FLREAD  REM REM line numbering breaks here! REM } COPY  RESTORE  FWRITE NOT ($fe)_($fc)  RUN  VJ CLOSE 7 FLREAD DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H  ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H" ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H# ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H$ ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H& ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H' ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H( ON H PRINT A @ 'H PRINT C FOR ' ' ' REM 'L DATA H) ON H PRINT A @ 'H 135 C/ REM REM line numbering breaks here! REM S  SET S SREAD 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 ($ed)  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 ($f1)  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 ($f3)  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 ($f7)  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 ($fa)  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 / S  OS   135 USING 3345 GO g 36172 is($f4) RESET  DATA ? ELSE . NEW REM REM line numbering breaks here! REM RESET  CLEAR 4238 16267 DATA ? DIM $($ec)  STEP COPY & CLEAR REM REM line numbering breaks here! REM ? RUN SET  DELETE ELSE GO &>_?I PSET 6 FROM / S  O & SREAD 0 READ w RESET * & DIR 4m-* DELETE -0 READ DSKINIT GO ON '#0 READ ^ 1 & DATA $ DRIVE 1 33921 & 0 READ =($f6) " 4  DATA ^ PUT 5 END @ PRESET   REM REM line numbering breaks here! REM 5 RESTORE READ 5635 LLIST '3 READ  REM REM line numbering breaks here! REM 4@ PSET SAVE &0 READ  RESET 3 READ 4@ PSET SAVE &0 READ F RESET * TROFF ($ec) GO +L3 PCLS DELETE FOR ELSE &a DATA LOC TROFF X EDIT TROFF \ WAIT # RESET !  TO  3 TROFF ($fc)/($FF5C) DELETE **($fb) GO ON & m TROFF X*1 SWAP TROFF X ($eb) GO CLOAD & m TROFF \*! SWAP TROFF \ KILL m TROFF \+m TROFF X* {0 READ SG PROTECT # SET ! SKIPF 0 READ ($f1)J&($FF09)^ & GO '] GO ' EDIT -($fe)($f9) KJ&_4 ($fb)$S SWAP -5 9738 DELETE - REM REM line numbering breaks here! REM = EDIT - )J&) J& DELETE - 1063  EDIT - REM REM line numbering breaks here! REM J& PCOPY 0 READ " COPY m ELSE *($fe)($FF39)L 'J94P NEW 0 EXEC _($fe) RENAME  ERROR GO & &M5P2b9 GO & 0 EXEC _($f7) CLEAR  5 BEEP RETURN 5' RETURN 6' NEW  FWRITE BOOT  INPUT CLEAR J DSKINIT  DRIVE  DATA =M& KILL $ SET *h CLEAR  SOUND DSKINIT  DRIVE \ DSKINIT  STEP & TRON CLEAR 5 BEEP 0 READ  SAVE N USING 3 TROFF */0 TRON L DELETE FOR GO ' EDIT NOT Z&($f5)  DATA EDIT NOT NOT .($fa) DATA  EDIT TROFF :943 TROFF  DATA  DRIVE Z DELETE ** GO CLS "3*($fd) DATA DRIVE  REM REM line numbering breaks here! REM ($f3)Z*($fa)5 NOT RESET * SET * DATA ? SREAD DATA  187 GO & REM REM line numbering breaks here! REM 0 READ =_ ELSE _ GO Y'" GO N' GO 'M& BACKUP '= DELETE -& DATA Y PSET O9 DATA N SKIPF C94 1807  GO &' GO $&C NEW  1831 : DRIVE  STEP $' GO @0 ELSE  , REM REM line numbering breaks here! REM ($ed) FLREAD HHHH4 DATA $ k CLEAR  d 211 ($f8) PCLS RENAME 4 CLEAR  644 5 CONT 4`O_ PROTECT (0 OR <? READ l? LET O0 AND L LET  REM REM line numbering breaks here! REM ? NEXT  h0 OR   ($FFFF) FOR 240 h REM REM line numbering breaks here! REM   K  #  9O CLS 129 REM REM line numbering breaks here! REM  CLS 129 REM REM line numbering breaks here! REM  CLS 130 REM REM line numbering breaks here! REM  CLS @ 130 REM REM line numbering breaks here! REM  CLS 131 REM REM line numbering breaks here! REM  CLS 131 REM REM line numbering breaks here! REM 0DEMO-IND 0Note that  0Use @INDE2AL2BILL2FRED2JIM2ROGER*($FF01)K J b K 6  0is an exa 0 an exact 0X(A1,A3..2SMITH2JONES 2ROBERTS2COOK2FISHER 0mple of t 0 match is 0.A7,C1 to 0he use of 0 required 0 see last 0 @INDEX. 0. 0 names.($FFFF) REM REM line numbering breaks here! REM FROM FROM  S   PMODE S A  ($FFFF) FOR 240 h REM REM line numbering breaks here! REM    K   #  9O 0DEMO_CIR ` REM  FOR 129 REM REM line numbering breaks here! REM `@ REM  FOR 129 REM REM line numbering breaks here! REM  0A3 and A4  0repeatedl  0calculate 0This is O 0Circular  0 each ref 0y hitting 0d numbers 0K if it i 0reference 0erence ea 0 '!' will 0 to chang 0s intende 0 demonstr 0ch other, 0 cause th 0e each ti 0d, but be 24948 ion0 so0e0me. 0 careful!($FFFF) REM REM line numbering breaks here! REM FROM  S  +S D  128  REM REM line numbering breaks here! REM  240  1792  REM REM line numbering breaks here! REM  K   # 7 255 REM REM line numbering breaks here! REM 0DEMO_PL  0degrees 7-  CLS  CLS p ELSE p 132 @ 1301 CLS p REM REM line numbering breaks here! REM IF p 132 @ 1557 CLS 4 REM REM line numbering breaks here! REM DATA p 132 @ 1813 CLS p REM REM line numbering breaks here! REM DATA p 132 @ 2069 CLS  REM REM line numbering breaks here! REM PRINT p 132 @ REM REM line numbering breaks here! REM   CLS 4 PRINT p 132 @ REM REM line numbering breaks here! REM   CLS R PRINT p 132 @ REM REM line numbering breaks here! REM  CLS p PRINT p 132 @ REM REM line numbering breaks here! REM  CLS  ON p 132 @ REM REM line numbering breaks here! REM  CLS  ON p 132 @ REM REM line numbering breaks here! REM  CLS ON p 132 @ REM REM line numbering breaks here! REM  CLS 4 ON p ELSE @  0T Plot2sin7- & 3  &'($ee) DEF 2($ea)Y 1293 &($f3) SAVE Y 1549 &5($f3)3($f9)= END FOR Y 1805 &] GET DSKINIT B OFF eH FOR Y 2061 &wF($ea):E($f8) CLS FOR Y 2317 & REM REM line numbering breaks here! REM 129 Y 2573 &wF($ea):E($f8) EXEC FOR Y 2829 &] GET DSKINIT B OFF eT FOR Y 3085 &5($f3)3($f9) PROTECT j FOR Y 3341 &($f4)Y 3597 &'($ee) DEF 3Y 3853 & REM REM line numbering breaks here! REM MY  0ting Format Demonstration7-d  REM X IF d_ SET MOTOR DRAW @ DIR ($eb)' REM X IF dW($f5)/ ELSE  REM X IF d TO -3 ERROR + TO IF  REM X IF d; SUB CLS Tu IF  REM X IF dP AUDIO DIR MOTOR + ^ IF  REM X IF  dX IF  REM X IF  dP AUDIO DIR MOTOR + > IF  REM X IF  d; SUB CLS T IF  REM X IF  d TO -3 ERROR COPY TROFF IF  REM X IF  dW($f5) VERIFY ELSE  REM X IF d_ SET MOTOR DRAW @ DRIVE +' REM X IF d R REM X 133 ($FFFF) REM REM line numbering breaks here! REM FROM  S   DSKINIT S I  255 512  REM REM line numbering breaks here! REM ($f0)N     K   # 7 255 REM REM line numbering breaks here! REM 0DEMO_NPV  0Discount  0Initial o  0Payback -  0Payback -  0Payback - 0Payback - 0Payback - 0Net Prese 0 Net Pre 0rate ()0utlay 0 - Year 1 0 - Year 2 0 - Year 3 0 - Year 4 0 - Year 5 0nt Value 0sent Value Demo CLS 0 ELSE  CLS ($ea)` READ  CLS @ NEXT  CLS z NEXT  CLS z NEXT  CLS z NEXT  CLS z 140  `I REM COLOR EXEC AUTO < BEEP INPUT  643 H REM REM line numbering breaks here! REM 135 KJ  28275 tration($FFFF) REM REM line numbering breaks here! REM FROM  S  ($ef)S L  ($FFFF) FOR 240 = REM REM line numbering breaks here! REM     K   #  9O 0DEMO_FWD ` ' REM 130 REM REM line numbering breaks here! REM  0Cell A4 c  0Mode=C,A.  0will see  0B3 is cha 0Mode=R,A. 0 Forward  CLS 129  0ontains a 0 Hit '!'" 0that A4 c 0nged. Th 0 The for REM REM line numbering breaks here! REM 0Reference` REM  REM 130  0 forward  0 repeated 0hanges on 0en type / 0ward refe REM REM line numbering breaks here! REM 0 Demonstr 0reference 0ly and yo 0ce after 0AO to set 0rence dis 24948 ion0 if0u 0appears.($FFFF) REM REM line numbering breaks here! REM FROM  S  "S O  ($FFFF) FOR 240 ) REM REM line numbering breaks here! REM     K   # 7 255 REM REM line numbering breaks here! REM 0DEMO_COL 0Name 0Miller  0Edwards  0Phillips 0Austin  0Alberts 0Talbot 0Thomas 0Johnson 0Hawkins 0Rogers  0Use /MD i 0 Column S2Age CLS , DATA  CLS d DATA  CLS ( IF  CLS h IF  CLS ` IF  CLS  PRINT  CLS  PRINT  CLS  DATA  CLS  DATA  CLS @ 133  0nstead of REM REM line numbering breaks here! REM 0ort Demon2 0 /MA to r 29556 ration 0To sort b 0type /MA  0To sort b 0type /MA  0everse so 0y name,0A5.A14 0y age, 0B5.B14 0rt order.($FFFF) REM REM line numbering breaks here! REM FROM FROM  S  $S S  ($FFFF) FOR 240  REM REM line numbering breaks here! REM     K   # 7 255 REM REM line numbering breaks here! REM 0DEMO-ROW 0Row 0Sort 0Type  0/MA B1.E1  0by Name 0Type 0/MA B2.E2 0by Age 0/MD 0Reverses 0 Miller 0 Age 43 0 Talbot 0 Age 67 0 Edwards 0 Age 57 8272 hillips 0 Age 21($FFFF) REM REM line numbering breaks here! REM ($FFFF) FOR 240 E REM REM line numbering breaks here! REM    . ($f0) * *     # 7 255 REM REM line numbering breaks here! REM 0MONTHLY B 0ITEM  0--------- 0food  0rent/morg  0Car rep  0Car ins 0gas 0elect 0telephone 0rates 0clothes 0holidays 0milkman  0insurance 0t.v.  0sundries  0MONTHLY.... 0INCOME  0cash flow 0UDGET0JAN 0--------- CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS  CLS DATA  CLS  CLS IF  CLS IF  CLS  INPUT  CLS p REM  CLS ELSE  CLS  CLS ELSE  0 END PJ  `z 137  REM REM line numbering breaks here! REM ` FOR NOT 136 A REM REM line numbering breaks here! REM 0 PLAN0FEB 0--------- CLS H PRINT  CLS z PRINT  CLS T IF  CLS ELSE  CLS  CLS  CLS  CLS IF  CLS IF  CLS  CLS p REM  CLS ELSE  CLS  CLS ELSE   CLS INPUT PJ  `z 137  REM REM line numbering breaks here! REM `8 NOT 136 A REM REM line numbering breaks here! REM 0 0MAR 0--------- CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS p PRINT  CLS  CLS DATA  CLS IF  CLS IF  CLS  CLS p REM  CLS ELSE  CLS  CLS ELSE  b RENAME INPUT PJ  `z 137  REM REM line numbering breaks here! REM `9 134 A REM REM line numbering breaks here! REM 0INCOM0APR 0--------- CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS  CLS N($f5) OFF RUN \(($f6) IF  CLS  CLS IF  CLS IF  CLS  CLS p REM  CLS ELSE  CLS  CLS ELSE  "O\(($f5) OFF RUN INPUT PJ  `z 137  3936 /aG SCREEN z SREAD ON A REM REM line numbering breaks here! REM 0E =0MAY 0--------- CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS  CLS  CLS  CLS IF  CLS IF  CLS  CLS p REM  CLS ELSE  CLS 8 DATA  CLS ELSE  ,` INPUT PJ  `z 137  REM REM line numbering breaks here! REM `@ 136 A REM REM line numbering breaks here! REM CLS z INPUT 0JUNE 0--------- CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS PRINT  CLS  CLS DATA  CLS IF  CLS IF  CLS z ON  CLS p REM  CLS ELSE  CLS  CLS ELSE  ($f0) END PJ  `z 137  REM REM line numbering breaks here! REM ` AUDIO NOT 136 A REM REM line numbering breaks here! REM 0/MTH0JULY 0--------- CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS  CLS P IF  CLS  CLS IF  CLS IF  CLS  CLS p REM  CLS ELSE  CLS  CLS ELSE  "` INPUT PJ  `z 137  REM REM line numbering breaks here! REM `/@ ON A0AUG 0--------- CLS H PRINT  CLS z PRINT  CLS  FOR ON  CLS ELSE  CLS  CLS  CLS  CLS IF  CLS IF  CLS  CLS p REM  CLS ELSE  CLS  CLS ELSE  ` INPUT PJ  `z 137  REM REM line numbering breaks here! REM `O DATA A 0SEPT  0---------  CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS p DATA  CLS CLS DATA CLS IF CLS IF CLS CLS p REM  CLS ELSE  CLS  CLS ELSE  D RENAME INPUT P J   `z 137  REM REM line numbering breaks here! REM `T FOR PRINT A  0OCT  0---------  CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS  CLS L<<<<< USING IF CLS CLS IF CLS IF CLS CLS p REM  CLS ELSE  CLS  CLS ELSE  ",<<<< USING INPUT P J   `z 137  REM REM line numbering breaks here! REM `/ DELETE fffff ON A  0NOV  0---------  CLS H PRINT  CLS z PRINT  CLS  CLS ELSE  CLS  CLS CLS CLS IF CLS IF CLS CLS p REM  CLS ELSE  CLS  CLS ELSE  ` INPUT P J   `z 137  REM REM line numbering breaks here! REM `I@ ON A  0DEC  0---------  CLS z ON  CLS z PRINT  CLS  CLS ELSE  CLS \ PRINT  CLS CLS DATA CLS IF CLS IF CLS CLS p REM  CLS ELSE  CLS  CLS ELSE  p END P J   `z 137  REM REM line numbering breaks here! REM ` TAB( FOR PRINT A  2TOTALS  0--------- "( NOT NEXT PJ   ; FOR NEXT PJ   0 ON PJ   p PRINT PJ   9 INPUT PJ   j($f0) AUDIO DSKINIT =p PRINT PJ   ON P J  p ON P J  p ON P J  FOR END P J  4 DATA P J  p PRINT PJ   8 DATA PJ   p PRINT PJ   s OFF RUN \(($f6) READ P J   ; FOR 141 P 3090  ]a($eb) IF  PLAY R END PJ  ---------($FFFF) REM REM line numbering breaks here! REM FROM FROM PRINT USING  BOOT  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 9729 9 NEXT 0($FF50) SWAP  LLIST FROM FROM FROM PRINT USING CLEAR REM REM line numbering breaks here! REM  GO PUT OPEN +9Forma($f4) FOR FROM FOR FROM 40 ($FF06) REM REM line numbering breaks here! REM ($fc) 1 ($fe) 2815  REM REM line numbering breaks here! REM ($fb) FOR FROM FOR FROM ($f7) C(PN ($f6)($fc) N 3 ($f5)($fe) REM REM line numbering breaks here! REM ($f7)N ($f5)($fb) FOR FROM FOR FROM ($f7)N N RESTORE R N 3 ($f5)($fe) REM REM line numbering breaks here! REM ($f7)N ($f5)($fb) FOR FROM FOR FROM ($f7)N 44 P WAIT 36142 READ w($ef) TRON ($fd) ERROR   PROTECT D? GO _?1B4 1 OR 41488 PSET VERIFY "($f9)5 CLS DELETE FOR GO /'/ DSKINIT  ? DATA / MOTOR EXEC '($ee) RESET 1 AND G EDIT CLS DELETE FOR Z*($f9)0 AND H DATA EDIT EXEC O? FOR  SAVE WAIT D PROTECT REM REM line numbering breaks here! REM DATA @/ ($ed) EXEC DATA 0 AND G? ELSE EXEC NEW 9 READ  READ ? ($f5)90 OR  PCLEAR _? READ RUN FLREAD  DSKINIT  FLREAD 4- DSKINIT 5T- DSKINIT ($ec) MERGE  FLREAD  DSKINIT - DSKINIT F($ec) MERGE ($ec) MERGE  FLREAD DSKINIT / DSKINIT _9 SET 1 READ 4389 4($ec)"1 PCLS 5 PRESET EXEC $($ec)($FF45) DELETE FOR MOTOR EXEC & FLREAD !O91$m EXEC &($f2)C9RY REM REM line numbering breaks here! REM ,rY (" -: ]C "c ( ) , 215 9 DSKINIT 9 DSKINIT 9 F91 AND g/ DELETE FOR GO "' EDIT CLS Z&($f5) FLREAD FOR STEP "' STEP $($f6)  DATA STEP '1? DELETE EXEC NEXT FOR EDIT EXEC _9+ LOAD  MERGE 9 TAB( LOAD M'/ DSKINIT 9 SCREEN LOAD M'/ DSKINIT PZ CREATE '/ DSKINIT _90 READ  WAIT  REM REM line numbering breaks here! REM U1 OR  PCLEAR SCREEN + ' SCREEN ) RESET 0 READ  LET 64 0 AND G DELETE CLS GO @&($fa)4 DATA EDIT ? REM REM line numbering breaks here! REM (5 DATA @ EDIT ? CLEAR & TROFF 0 READ   LET 29 ELSE WAIT GO Y' DEF _ GO N'($fe)O FLREAD 0 READ  LLIST  LET 272 ? DIM 94v READ ($f6)0 VERIFY  LET REM REM line numbering breaks here! REM O? INPUT ($fe)- READ PROTECT 5v ELSE 90 READ ($fd) GO RESET DRIVE * NOT & DRIVE F'0 READ ($fd) USING 0 READ ($fd)q RESET '0 READ ($fd) RESTORE RESET O DRIVE _ SET  READ >' 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 ($FFFF) FOR 240 1033 REM REM line numbering breaks here! REM  .  #  9O ($FFFF) 0jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj M0bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 0 12386 oren<0boren2<0boren3($FFFF) REM REM line numbering breaks here! REM FROM FROM FROM