BEEP  Z   ($FF41)($ef)  / CONT T 5Dragon 64 OS- DLOAD   (    FN ~ ^  ($FFFF)($FFE0) 31 ($FFFF)($FFBF)($FFFF)($f1) FOR ($FFFF) RENAME REM REM line numbering breaks here! REM ($FFFF)($FFFE)($FFFF) SGN 255 ($FF4F)S($FF03)($FF01) PMODE ($FFDF)/ LET ($FFC6) EDIT GO Z&($fb) EDIT  LET FOR 512 DATA ` EDIT FOR 1?&($fa) LET GO 1 DIM */ DELETE CLS EDIT FOR Z&($f9) r'3 READ ($FFC3) LET  REM REM line numbering breaks here! REM  LET ($f0) DELETE NOT EDIT CLS 0&($f8)~($f0)O0 DIM ($ec) n NEXT OSy`BOOT PRINT USING  SWAP STEP GO  79 S DLOAD CCINI CREATE OS9P PAINT      n RESET REM REM line numbering breaks here! REM ,n RESET .n RESET 4n RESET 6n RESET 2n RESET 697 U DLOAD IF  AND  DSKINIT :p SWRITE 3 DATA TRON o TROFF  TO PSET  EXEC PRESET C SCREEN *2C FOR LET 36355 RENAME O_($ed) GO 1>&($fa)LL MERGE = MERGE "= MERGE F=p MERGE D_L MERGE & RESET (2 INPUT  REM REM line numbering breaks here! REM 1 ELSE ($ec) EXEC LET 42156 EXEC & LET REM REM line numbering breaks here! REM PCLEAR EXEC PSET EXEC & ($ed) EXEC 0 TROFF  37 WAIT 1 ELSE 0 EXEC RESET $400 READ ($FF50) LET  REM REM line numbering breaks here! REM /) DELETE FOR EDIT CLS Z&($f9)50d($ec)0 NEXT  STEP SWAP '0&($ed)1 READ ($f7)0 READ ($FF0A)4 LET 41443 VERIFY ($ed) GO DIM REM REM line numbering breaks here! REM 6#($f5)2b0 READ 15408 READ , RESET @0 READ 16031 80 READ E RESET B RESET .0 READ 14896 READ 33073 READ ($FF11) DELETE DATA NOT 0 READ ($fe) DRIVE ? REM REM line numbering breaks here! REM ($FF32) WAIT *($ec)J_ POKE $$ MERGE $ SET /($f8) SWAP ELSE O DRIVE $PP FLREAD 0 READ ($fe) GET DATA STEP ? ($FF09)n EXEC 4 CONT / 4 CONT / ;n RESET 84 CONT / FN K SCREEN IF PCLEAR c5 CONT 1 DIM O NEXT SET K LOAD B MERGE . LOAD > MERGE 83 VERIFY ($ef) DELETE END FOR EDIT n EXEC PRESET RESET 1766 VERIFY > SWAP VERIFY  REM REM line numbering breaks here! REM LIST O NEXT PRESET RESET 1766 VERIFY > SWAP VERIFY ;S9 SET Q'' DELETE IF @'!($ee)($ec)D' 17446 ($ee) READ /0-' DELETE IF @'($ee)($ec)D'($ec) RESET Q H& CLEAR [ NEW H SET K' DELETE END EDIT *;1 READ REM REM line numbering breaks here! REM ? FOR SCREEN D4` AUTO 2022 L\' SWAP L($ee)N&($f5) AUTO 2983 P1-($ee)N' MOTOR L#($f6)($ef) PCLEAR ._5 RENAME 1 DIM P($FF4A) PCLEAR  SET D READ # SET K'aP FLREAD - SWAP * 'l- WAIT SWAP READ PCLEAR MO NEXT 3 VERIFY  SET F READ ;4@ SCREEN J FLREAD FOR PCLEAR JX$V SCREEN >  STEP n$ SCREEN SKIPF ' PRESET ELSE 5@ TRON $ SWAP B FLREAD --($f0) SWAP - ELSE  LINE - EDIT -9S/ BEEP FLREAD FLREAD > FOR SWAP FLREAD ON 6 PCLEAR ?O_ MERGE K < PCLEAR P SET M'($f8)($ec) MERGE M RESET K($ee) FLREAD +3*& COPY FLREAD ON 6'!Z'($ee) ON 7'/ SCREEN ON 9($ec)f4f($ee)j DELETE ON 6 FLREAD i($ec)f4f_ SWAP ON 6($ec) ON  MERGE . LOAD < MERGE 8;4@($ec)A SCREEN D1$/ MERGE  SCREEN - FLREAD '* FOR & mB'S/ BOOT lB($ee) VERIFY PCLEAR D PCLEAR H($ec)&($ed)A($ec))0 PCLS PCLEAR F5 NOT 4@ SCREEN D READ 5 ($ef)(9 READ WL DELETE 4($ec)0 NEXT 5 4133  SWAP /($FFE7) S5 ELSE 4@ SET K($ee) ON ?($ee) VERIFY READ 5 NOT SET K4P LOAD @($ed) ON ($ed) ON ($ed) ON O_ EDIT ON 6($ed) ON 7 DELETE A SCREEN D? REM REM line numbering breaks here! REM $?o SET K($ef) TRON  GO ' GO STEP 'S/($ea) \1-($ee)b PCLEAR D DELETE B_ AUDIO +$($ec)++ 16 ?B' 17957 9 SCREEN H($ec)F4' 0 NEXT DELETE REM EDIT SOUND PSET H"($f8) SET K PCLEAR 814 PCLEAR  DELETE _($ed)( EDIT # PCLS ($ed)&5($ed)!/ FOR SWAP EXEC ($ee) ON ($ec)I3=($ef)*_/ FLREAD 5 BEEP ($ec)A+ REM REM line numbering breaks here! REM ($FF5F)($ed)A SET "<($FF34) ja FLREAD ah VERIFY $i VERIFY 0 CLOSE  DELETE ELSE EXEC VERIFY &($ea)ja RENAME a SAVE AF($eb)aI SREAD FLREAD aO\2b SET  FLREAD AO READ + INPUT ($ed)HO9S/ BACKUP 9($ec)A+ 35151 ($ec)H'($ec)]'S/ CHAIN 9 INPUT SET Y($ec)A3D7046 READ 2M4+ DELETE ELSE LINE VERIFY 1?'d VERIFY $($f6) EDIT FOR  EDIT VERIFY DATA ($FF20) EDIT FOR NOT $($fa)j VERIFY *($f6)H\&($fc) LINE ELSE EDIT ELSE O2a5 PCOPY 4DVDVDV0 NEXT 5 DATA FOR -'DZ&($fc)9($ec)A3D7046 READ WAIT C4* DELETE ELSE EXEC VERIFY 1?'g VERIFY ($f6) EDIT FOR  o FOR ' REM REM line numbering breaks here! REM "($f9)'H\&($fc)C EXEC ELSE EDIT ELSE o RENAME 5 PCOPY 4@($ec)A SCREEN D SCREEN F($ee)H READ 5@($ed)A PCLEAR F94v4&ohoi READ RETURN 4 1! PCLEAR ed VERIFY $f VERIFY 0 PSET k$ DELETE ELSE EXEC VERIFY &($e9)1! AUDIO e AUDIO c$ AUDIO i# PROTECT ($ed)i($ec)e($ed)a DRIVE ($ec)a($ed)eC ($ed)i2e5($f6) SCREEN D READ ($ed)A PCLEAR D PCLEAR F9 DELETE ELSE GO /&01 ELSE _ DELETE CLS ELSE  READ 4\ DELETE ?+ DELETE CLS ELSE  READ $($f3) DELETE SOUND ($fe)9 GO ,& DELETE CLS GO '($fa) DELETE SOUND S/($eb)9 GO .'C GO 0 GO 9#; GO _'7 GO A GO Z#/ GO a GO z#'9 FLREAD B3D7046 DELETE CLS + Z' TRON FOR ELSE WAIT '($f3)5 PCOPY Z&($f9) TRON ELSE ELSE _&($f3)56($fe)9 SCREEN F  DEF ELSE  GO ' GO 7S/ SWRITE 9X PROTECT F3*($ec) MOTOR 0 PCLS PCLEAR - PCLEAR AND p FLREAD CLS STEP FOR & ERROR 9fx AUDIO >ou{| FOR { PRINT USING ($fc) STEP GO 79 S9p PAINT  GO  223 * SKIPF   CLS * P 2Vn PCLEAR  PRINT COLOR  EDIT CIRCLE  FOR 1 READ ($FFCE)?2 SET I?02 RESET I RESET K@J/($ed)' DATA FOR EDIT - PROTECT * READ "$S READ  READ '$J READ ($ec)N0= DATA _ LET 16133 n RESET ($FFFE)_($ec) AND '0= DATA ? DATA 9_($ec) AND 0= DATA ? ELSE  SET K EDIT ON &? REM EDIT ON '? REM EDIT ON (9($ec)H'C SET & AUDIO ELSE '0 CLOSE (($f5) 4 DELETE 'J EDIT &+ SCREEN ELSE  CLOSE f$# FLREAD & STEP BEEP ?3$l O_($ed) ELSE ($ed) EXEC ($ec)"F INPUT SET ?O9 SET K SET I DELETE #&S/ SREAD 9?/ DELETE - IF & DELETE "&($f3)oA SET KP LOAD O($ed) RESET O SET K DELETE EXEC FLREAD TRON 6($ed)A4r1 SET I ?/ DELETE " MOTOR VERIFY &($f7)($ee)c FLREAD B SWAP "?15($f2) SET K FLREAD B SWAP ON 6/1 ON & DELETE CLS '4? RUN 5Z&($f2) DELETE  DELETE ?)($ee) ON ? PROTECT K1A SET I o"?/ DELETE - IF ' DELETE EXEC ?1o! DELETE "&($ea) LET 16678 SET I DELETE -?1 " MOTOR ELSE '1 ELSE SCREEN &($f6) DELETE M END  EDIT M ($ec)($ed).?,1-($ee)($ee)A($FF64)O_ MERGE K9 SET K($ec)A'Z READ g RENAME 'T2 SCREEN 4p FLREAD VERIFY '($eb)a SET PROTECT "?G SWAP b FLREAD VERIFY '($eb)a SAVE b&; FLREAD b?($ec)b CLS a($eb)a5p SET K PP($eb)($eb) SAVE "S/ WAIT 9 SET ? P SET K($eb) DELETE ($ed) DELETE _($ed)A PCLS ($ed)F9S/ BACKUP 5($f0)+ 7817 9 DELETE A&L SET K MOTOR ELSE ' READ L&($f5)_9 SET I?/$/ RENAME 9P4" FLREAD B& DELETE - END  EDIT - DELETE TRON 6'J'S/($e9)5 SOUND SWAP TRON 6 LET 9900 a&" DELETE IF @'/($ee)($ec)D')($ee)'4 DELETE M IF @5'($ee)D SWRITE D($ed)D 1 ELSE SCREEN .& CREATE LET REM REM line numbering breaks here! REM A1 ELSE SCREEN .' PSET a&($f6)($ec)($ed). DELETE ON 6J& EDIT ON 6?,_5 SOUND SET KP DELETE ON 6' J& EDIT ON 6?, _($ec)D'H' 17447 ($f0)4P LET REM REM line numbering breaks here! REM C1 ELSE SCREEN '4 DELETE IF @5'($ee) AUDIO D$($ea) SWRITE D5P($ed)D($ec). PCLEAR .($ed) DELETE END @ EDIT SCREEN '# DELETE IF @' SCREEN ($ec) AUDIO D($ed)  DELETE ELSE THEN EDIT < 748 .&($fa) PCLEAR .($ed)1 DIM 4  SET K($ec)$ SCREEN D4($ef)$?-($ed)$ PCLEAR D_9 SET K($ec)D($ed) ON 7($ec)H($ed) ON 9_9 DELETE A SET I?/ SET K($ec)  AUDIO )& DELETE B EDIT +9S/ RENAME 9 SET K DELETE ELSE EDIT A($ec) ($ed)F_9 SET K1 ON  FLREAD AZ STEP $X SCREEN D PCLEAR SKIPF 9S/ SWRITE 9Cloc($eb) SCREEN D($ec) ELSE MERGE S($ec) MERGE U($ec) MERGE W DATA STEP 0 DIM ($e8)? REM REM line numbering breaks here! REM n EXEC _9 DELETE A SCREEN D READ  PCLEAR F94M'_DVDV DELETE DATA 'm EXEC &C5 DATA SCREEN D& READ  PCLEAR ELSE PCLEAR D READ  EDIT A PCLEAR F94@< 10288 -5@O_ EDIT NEXT \&($fb)94PO4_ DELETE DATA ' Om PCLS '=@$($f8)1 PCLS 5$L GO @ SAVE Om DATA ' L GO @($f7)/ AND C 4 READ DRAW 1 ELSE  INPUT 5 SWAP DATA _XIXI/?o SKIPF Z&($fb) EDIT EXEC 5 BEEP 2c5 BEEP DELETE A SCREEN D4v_DVDV4 DELETE DATA 'o EXEC _Om=& =@&($f8)L?) DELETE VERIFY o DATA o RENAME 5($f6)IOMA AUTO 4v PROTECT * READ $ READ  READ  PRESET EXEC 5v SCREEN >n ELSE 5($f6)0 READ ($FFDD) DATA STEP ? 16467 '&5 '($ec) AND '.0= DATA STEP ? REM REM line numbering breaks here! REM PRESET EXEC ! RESET $ RESET f3 NEXT WAIT h($ec) ELSE ' PRINT USING & ?.($ec)0 NEXT 0 CLOSE h SWAP 5 NOT FN ($f6)($ee) PRINT USING .  NOT GO < ($f8)   10057 ni($f4)SysG($ef)/D COLOR /Ter($ed)Boo($f4)v[6 PRINT USING  REM REM REM line numbering breaks here! REM STEP GO {  Boo($f4)O/4Z&($fb)C LET ($FF40) DATA BEEP EDIT ELSE R DELETE ELSE PCOPY ($FF22) DATA LOC D0 READ 266 DATA ~ PMODE  DATA  PMODE ($FF48)<+P' REM REM line numbering breaks here! REM &($f9)4VO_ LET 8414 "?A INPUT ($ee)d($ed)B_ LET 21029 3($ec) TRON ($ed) VERIFY ?()($ef)b($ee)d SCREEN b PCLEAR B SCREEN TRON ($ec) TRON '4_ READ 15lB0' 24373  2d2b5P2e9o-oD DATA /C4 READ 5J&($f5)/ REM REM line numbering breaks here! REM PCLS DATA RETURN DIM & READ  SCREEN B_9$4 READ CREATE 54 READ 5$($ef)D&($ed) READ =($e8) SCREEN BP4) DATA ($FF1F) NEXT DATA 4 NEW  DATA 7 NEW # CLEAR "/ ON DSKINIT @/$ DSKINIT H CLEAR C DRIVE " EDIT FOR ($f7)2l DATA  NEW H DATA 4 NEW # DRIVE @5)*'GS/($f4)9o-' 3951 SREAD l VERIFY ' REM REM line numbering breaks here! REM $($f9)=5\($f7)($FF42) READ >($f1)($FF42)&($f6) FLREAD D($f7)($FF41) MOTOR D' EDIT D PMODE ($FF43)/ READ 4 LET ".0&($fc)5_9* DEF & DRAW _9 READ ($f6)($FF40)T($fa)9 DATA  PMODE ($FF48)($f7)($FF40)9 READ ($f5) 57 DIM STOP ^ REM REM line numbering breaks here! REM THEN ,    . SCREEN  SCREEN  BEEP CMD COPY KSY COPY DEF COPY )STAR CREATE u($f0) Zrun3 PAINT Trun5 CIRCLE Uprogra($ed) Vtes($f4) Wtest PAINT XLIST.ME^ YSTARTU BEEP fTELEFO AUTO REGISTE CHAIN h kop($e9) jstia($ee) kTempBoo($f4)  ORTE AUTO  CIRCLE  M COPY  ASCA<  .A.-  AS AND  TOC=  election CIRCLE  election PAINT  NIMATO CHAIN  ountai($ee) 1 AUDIO REM REM line numbering breaks here! REM ragonselection PUT 1 SKIPF REM REM line numbering breaks here! REM ues($f4) 1 EDIT REM REM line numbering breaks here! REM inotau($f2) 1 TROFF REM REM line numbering breaks here! REM omputavoic FROM 1 PCLS REM REM line numbering breaks here! REM xample($f3) 1 PRESET REM REM line numbering breaks here! REM alixt($ef) 1 PCLEAR REM REM line numbering breaks here! REM anctu($ed) 1 CIRCLE REM REM line numbering breaks here! REM iabler($ef) 1 GET REM REM line numbering breaks here! REM oseido($ee) 1 DRAW REM REM line numbering breaks here! REM ountdow($ee) 1 PLAY REM REM line numbering breaks here! REM oo($ed) 1 TAB( REM REM line numbering breaks here! REM ikin SWAP 1 SUB REM REM line numbering breaks here! REM tala SWAP 1 THEN REM REM line numbering breaks here! REM reakou($f4) 1 OFF REM REM line numbering breaks here! REM agi SWRITE 1 - REM REM line numbering breaks here! REM hampion($f3) 1 / REM REM line numbering breaks here! REM aterpilla($f2) 1 OR REM REM line numbering breaks here! REM nvasjo($ee) 1 < REM REM line numbering breaks here! REM har($eb)  BACKUP  102 or a=-1 to 100 print a; next a print"DETTE PROGRAMMET HAR JEG LAGET HELT SELV!!!" end &`($ee) SAVE 0 DIM USING & READ X0 DIM = LET 3878  READ OO0 AND  LET REM REM line numbering breaks here! REM AND ? NEXT $ STEP COPY '- &3? FWRITE  DIM 2608 READ TIMER  LET REM REM line numbering breaks here! REM  BEEP ' READ  END $ FN ]& FWRITE DLOAD eof &0 DIM ($f5) READ _? LET 528 ? DIM 9o*Z*($fb)9 PMODE LINE  INPUT DSKINIT  POKE CH- END CH FREAD _E FREAD  FWRITE KIL< LIST FREAD  CLEAR - FREAD ~ BEEP ~- BEEP  CREATE  FOR - CREATE ($ea) 1293 3 REM REM line numbering breaks here! REM W  80 ROCEDURE test pRINT CHR$(12) FOR i=0TO20 PRINT i NEXT i LOOP INPUT i EXIT IF i>24 THEN END EXIT a$=CHR$(27)+CHR$(65)+CHR$(i)+CHR$(13) PRINT a$; "Morten" ENDLLOOP END /? REM FLREAD VERIFY DELETE *'o*? RUN 5 REM WHAT? READ BACKUP 0 DIM ($f5)($fd)($f9)_C9< REM REM line numbering breaks here! REM  < SWAP   DATA / m/& WAIT 4 m/& DSKINIT 4/ SWAP ? REM  FLREAD VERIFY EDIT * DELETE VERIFY ? RUN DELETE a IF &? ELSE / ?' SWAP a5 DATA / SWAP  DRIVE & EDIT  COLOR ON K ELSE WAIT &0 DATA =M& CLEAR DSKINIT ($fe) TO 0 LIST  4375 ($FF53) READ  ($fe) DELETE GO &2d_($FF42) REM REM line numbering breaks here! REM s($f8) READ ($f6)/&< SWRITE O4? ' DRIVE  STEP &# DELETE VERIFY '?o VERIFY ($e8) MOTOR VERIFY 'm VERIFY ']' KILL 4 READ +/- 5]'C5 REM DATA  DRIVE  SET  SET  PROTECT 9 DATA ? ELSE W0 AND  LET ? INPUT 4? RUN 5 1552 SCREEN  DATA EDIT 4pO SET ? REM REM line numbering breaks here! REM BACKUP  SCREEN K? GO 'J RESET 0 READ ($fc)1m ELSE 'w MOTOR FOR 'm FOR *($fc) ($f2) LOAD  POKE  COPY  MERGE  LOAD  MERGE  SET 0 RESET  SET ($ee)d($fe) FN R PROTECT  p A SCREEN (($ec)/($ed) ($ec) TRON ($ed) o* SOm"&# FLREAD !*'# }($ec) TRON 4& DELETE TRON 6' READ READ CHAIN  LINE $  TRON 9/ DRIVE C5 4($ee)('< 10549 IF  RENUM ($ee)( DELETE H40C?5 EDIT H94 DELETE ! END FOR EDIT !($fe) CHAIN BEEP SET K DELETE TRON !($ee) TRON 5 FLREAD !*' FLREAD TRON 4($ed) ON ($ef) ON  FLREAD !*' FLREAD TRON 4($ed) ON "($ef) ON $_ EDIT 4  VERIFY CLS ($ec) TRON 5&m TRON 4' CHR$ DATA B DATA m($ee)& PCLEAR D Sd SCREEN (j' SOUND &O_($ed)/($ed) TRON M FLREAD TRON 4 SCREEN TRON 5 SWAP TRON  PCLEAR TRON  SCREEN (($ec) ON + REM REM line numbering breaks here! REM ($ed) TRON  PUT 1 PRESET  ON DELETE TRON 7 EDIT TRON 4($ec) TRON 8($ed) TRON 5m ($fe)z($ec) TRON :($ed)+($ec) TRON <($ed)- USING o ELSE  O($FF1D) FLREAD **' DELETE E FLREAD H AUDIO ,& DELETE D SOUND +'  e($ec)D($ed)+($ec)H($ed)-9 READ : READ !4v LET 3377 ! MOTOR FOR 'Z&($f7) SCREEN f READ Q PCLEAR j5v($ec)b0 NEXT 9 READ a DELETE REM GO '($ec)b&]($ee)&($ec)F AUDIO b($ed)F2h9($ec)F READ '($ed)F94($ec) TRON  AUDIO -($ec)/ SREAD , SOUND +& ]& PSET VERIFY $ PCLEAR VERIFY '_5 DATA S/ COPY 2b9 52109 4v READ ($f1)5v0 NEXT 9 READ & _2h9($ec)D SCREEN F4 DELETE * IF &+($ec)m.&mb' 0 DIM p PSET f& STOP k COPY ($ee)(O FLREAD .3=P REM ($FFAE) VERIFY  AUDIO b#($ec)b4 PRESET ($f8) PCLEAR b FLREAD a($eb). SWAP .& 'l-&l,&l+($ec)d AUDIO SAVE ($ed)bn($f8)4 _ SCREEN F' SCREEN D1?' DELETE FOR GO &($f6) @P REM REM REM line numbering breaks here! REM SWRITE F($ed)F5 ($ec)F' READ  READ 4& READ H5&0 NEXT DELETE * END  EDIT *9($FF60)&($FF62)2h_9 SWRITE -($ec)+ OR 4259 /($ef)" PSET TRON #($e8)4@($ee) TRON  PCLEAR TRON  SCREEN /($ed)/4P SREAD 5P$ PCLEAR /($ef) TRON 5 NOT 4p($ec)b'#1=T$ DELETE FOR EDIT NOT T$($ec) GO ($ed) STEP 4  7&($ed) GO  PCLEAR GO PSET VERIFY ($f5)2b5($f0) FLREAD B STEP 49414 &oBO/($fe) DELETE STEP &oB9 STEP & ($ec)/($ed)D($ec) TRON ($ed)H9 STEP & ($ec)+($ed)D($ec)-($ed)H9 STEP & 60966 ($ec)FM'< 60968 ($fe) DEF DATA  FLREAD B STEP 44612 03 TRON " LET REM REM line numbering breaks here! REM ($FF6E) STEP &<($ec) TRON 5&m TRON 4'7 DELETE ! IF '(($ec)D SCREEN H AUDIO / & PSET TRON ($FF1F)($ed)/ PCLEAR TRON ($ec)+ SCREEN -4t5P PCLEAR +($ef)-9S/=9 DATA  COLOR S/ BEEP 9< 4159 (($f5)($ef)( SCREEN & SCREEN 4p2|O_ EDIT TRON 4($ed) TRON 5($ed) TRON  DELETE ELSE EDIT VERIFY GO /&Z EDIT VERIFY  42000 SCREEN f # ELSE  GO @' DATA / EDIT VERIFY 0 DELETE ! PROTECT K3 AND  IF $'3F FLREAD C SWAP TRON 4($ec)D($ed) TRON 5($ee)#($ef) TRON > DELETE TRON ! FLREAD READ ($f9)($f3)= SWRITE B+ 43038 DELETE VERIFY ELSE  GO @&0 "($fa) 10476 N($ed) TRON ($ec) TRON 5& DELETE TRON 4& DELETE H EDIT TRON 4($ec)I($ed) TRON 5 PCLEAR d PCLEAR hyHy DELETE VERIFY GO /&Uoboc DELETE ! END FOR  24087 ($fb)E SCREEN h0 REM REM line numbering breaks here! REM FN ($ed) VERIFY PCLEAR d PCLEAR h SCREEN fH 1165 L READ t=m ELSE '($f6)1 ELSE SCREEN d FLREAD aO? SCREEN f($e8) READ @ DELETE ON  EDIT TRON 4($ec) ON ($ed) TRON 5 40366 hM+?0 EXEC  SCREEN f PCLEAR dO DELETE VERIFY 2d5($f0) STEP COPY & READ / FREAD C ($ef)4 DELETE d GO /' ($ec)f&54 PCLEAR f DELETE TRON 4 EDIT TRON 7($ec) TRON 5($ed) TRON 8($ec)+($ed) TRON :($ec)-($ed) TRON <5 DATA FLREAD .= SWAP .$ +l-&l,&l+< REM REM line numbering breaks here! REM ($fc) SET  DELETE * IF &  NEXT d FLREAD . DELETE (_9?4$(_4 ELSE  GO .5&\0M+ DELETE ELSE STEP ($ea) DATA /Z0]&S/ DSKINIT 5 RESTORE 1 ELSE ($fe)5 RESTORE  INPUT ELSE - NOT 4="($ee)( SET K($ec) ' AUDIO A5'HHH LINE VERIFY ELSE THEN 4 END FOR EXEC - MOTOR VERIFY ' / DRIVE 2bC5 RESTORE /($fd) ($f7)5 CLEAR O_($ed)+($ed)- EDIT TRON ($ed) TRON 94P READ Z& PSET TRON N& DELETE TRON 'Gz? SCREEN +($ee)-4P($ec)/($ed)+($ec) TRON ($ed)-($f5)5P PCLEAR +($ef)-$( STEP DIR &! READ '& m TRON '0& LET ($FFFF)M& SAVE TRON .$ FLREAD TRON . READ $ PSET C5 BEEP  TRON 5 BEEP ($ec) TRON  AUDIO TRON  FLREAD / SREAD TRON 94P SET 50($ee)(O_($ed)I($ed)K0 AND ($ec)'i($ec)(L4 _($ec)' SWRITE J($ed)J$lI0 PSET VERIFY ($ed)S/ FWRITE 2b0c($ec) SWRITE 4 FLREAD  OR 5685 &5 AUDIO TRON &/($ee) TRON ($ec)F($ee)(' REM REM line numbering breaks here! REM CS4($ec) TRON TRON ($e8) TRON DVDVDV EXEC RENAME VERIFY RENAME ($ed)~& ($ec) SWRITE TRON ($ed) ($ec) TRON ($ed) ELSE DELETE TRON  EDIT ($ec) TRON ($ed)($ec)J SWRITE TRON ($ed)J$lI LOAD 5 BEEP 4v/ o SREAD Z&($fb) SCREEN TRON ($ec)($ed)e($ec)($ed)c($ed)k SCREEN # SCREEN 0 ON ' 3721 17494 dkfl$($f8)($ed)a($ec)c($ed)k' REM REM line numbering breaks here! REM  SWRITE m$<($FFFF) DVdkfl$($f8) GO < ($ed)m2 ($f1) SCREEN TRON ($ec) ON  AUDIO & DELETE ON  MOTOR &($ec)m AUDIO a DELETE ON  MOTOR $ EDIT g@ PCLS e EDIT e ($ec)($ed) ON  DELETE  EDIT ON o ON lg FLREAD g7 COLOR ($ec)eM'< SCREEN (3 NEXT  SCREEN mO_?4mc&  PSET d DELETE j EDIT c5$/ PSET i#  PCLEAR i($ed)k DELETE g EDIT h SCREEN ($e8)me'je PUT FLREAD h'iO SAVE g' SWAP g VERIFY SCREEN (($ec)k SCREEN i($ed)k PCLEAR i? SCREEN ($e8) FLREAD g PUT G DELETE VERIFY ' SCREEN TRON J EDIT ON  DELETE gJ_HYHYHY SWAP TRON  LINE k FLREAD l SCREEN i SCREEN ($e8)($ed) TRON  PCLEAR TRON ($ec)c h TRON i TRON i TRON h TRON i TRON DV$($ed)_($ec) TRON  /($f8) SCREEN ($e8)kC2o5($f0)O DELETE ! IF FOR &[($ec)/($ed)+($ec) TRON ($ed)- EDIT $ STEP DIR A($ec) TRON  AUDIO , SWRITE TRON m.'' 1774 TRON ($ec)F' 21412 RENAME VERIFY RENAME ($ee) TRON ($ed) TRON '0 AUDIO TRON 4 SWRITE TRON ($ed) TRON $l TRON  READ k$ 2d STEP KILL &<$ C9*T5($ed)($ee)(($ec) TRON ($ed)K($ec)/($ed)I_L04 &($ec)'/($ed) TRON ($ec)($ed) TRON  DELETE  EDIT TRON  READ +& PCLEAR b RESTORE  SCREEN bO_($ed) EDIT ($ed) KILL  SCREEN b0 PSET VERIFY USING O_ EDIT TRON ($ed) TRON 2d94r SCREEN TRON ($ec)' REM REM line numbering breaks here! REM  SWRITE TRON ($ed) TRON ($ec)$l TRON  d TRON f TRON f TRON d TRON f TRON DV$($ed)_($ec) TRON '>($ec) TRON DVDVDV DEF / KILL MOTOR ", MOTOR ON $ EDIT ON L EDIT VERIFY READ "($fc) FLREAD VERIFY READ b SCREEN (($ec) TRON  ELSE  SCREEN TRON ? SCREEN c FLREAD VERIFY READ 3$C5($f2) INPUT ?+ READ  SCREEN TRON  DELETE ON &($f1) DELETE EDIT ON 9 PROTECT K FLREAD AND 6' STEP #O DELETE M IF 'C9O_)4 SCREEN TRON  DELETE MOTOR ON &o ON 5 GO O_ <4P READ   SUB  DELETE * END  EDIT *5 BEEP 4P 1702 * ELSE ($fe) EDIT *5 BEEP ($ec), AUDIO TRON  FLREAD + SREAD TRON  SAVE TRON " PSET TRON $_94@ READ mTO_($ed) TRON  SWAP TRON ($ee)(0 AND  DELETE (/($fc)4($ec)'! SWRITE TRON  FLREAD TRON  OR REM REM line numbering breaks here! REM SAVE +" & AUDIO ," SWAP TRON ($ef) TRON 0 PSET VERIFY KILL O_ EDIT TRON ($ed) TRON S/ DIR ($ec) ELSE ($ed) TRON  DELETE  EDIT TRON ($ec)($ed) TRON 2b5 NOT 4 2143 LET 9508  SWAP VERIFY 5 CONT FLREAD **& PRINT  REM REM line numbering breaks here! REM INPUT o FLREAD *> SWAP * FLREAD TRON 4 SCREEN TRON 5  READ w] READ \ DATA 4v($ee)#($ee)B ?+ DELETE D&($f9) DELETE EDIT D($ec) VERIFY SCREEN b4@ READ 5@ DATA 9218 SWAP a5($f6)4 CLEAR SCREEN #($ec) ELSE SCREEN ELSE SWRITE ($eb) VERIFY INPUT REM REM line numbering breaks here! REM ($ed)d5 CLEAR FLREAD TRON 4 SCREEN TRON 5  READ  DATA 4($ec) TRON ' SCREEN TRON  AUDIO 5' LINE S/($fb)9($ec), AUDIO TRON  FLREAD + SREAD TRON  SWRITE TRON ($e9) TRON 9_4P FLREAD *-' DEF ($e8)* SWAP *-' ($e8)* SWAP * IF ' READ GET 5 BEEP CLS CHAIN T PRINT USING 8689 GO > 9983 ($FFFF)@ REM REM line numbering breaks here! REM  ( 18 D COLOR RB/DDis($eb) LOAD 6 PRINT USING 8689 GO > 9983 ($FFFF)@ REM REM line numbering breaks here! REM  ( 18 D CIRCLE RB/DDis($eb) BOOT 2| PRINT USING 8689 GO > 9983 ($FFFF)@ REM REM line numbering breaks here! REM  ( 18 D PAINT RB/DDis($eb)/> LOAD PRINT USING 8689 GO > 9983 ($FFFF)@ REM REM line numbering breaks here! REM  ( 18 D GET RB/DDis($eb)=: TO PRINT USING  SWAP REM REM line numbering breaks here! REM STEP GO  73 OMa($ee) SET * DELETE / =4 DELETE / = SWRITE VERIFY + 4159 (*0-o FOR ' REM REM line numbering breaks here! REM "($f9) WAIT b($ec) SAVE 0= RESET ` SET d?0 RESET d?10 READ $ RESET :1 DIM ?29n RESET ($FFFE) ($f5)3 CREATE PCLS  1155 GET REM REM line numbering breaks here! REM  FOR SCREEN D4p PROTECT * FLREAD M4 PROTECT ` | mH& o3IZ&($f0) PROTECT ` FLREAD VERIFY  h \mH& M4D SCREEN BoBoC PROTECT ` FLREAD c PSET B'03IZ&($f7)($ee)a SET K FLREAD EXEC SWAP H SCREEN D($ee)-($ec) 0 NEXT 4@ PRESET 5@ SCREEN a SCREEN ELSE ($ec) + 4159 ) SCREEN a SCREEN ($ee)aoDoEoH($e9)5D SCREEN a3IZ& INSTR O5($f2)S/ BOOT 5($f2) PSET D' PSET -' PSET F'3IZ&($ef)S9 REM REM line numbering breaks here! REM _u RUN //($ef) H LOAD ($ea)($ea)  LOAD ZN 21249 ELSE  PMODE  PMODE  USING ($ea)& THEN  USING ($ea) USING ($ea) THEN G,0 DIM DLOAD 0 DIM DRIVE STEP RESTORE " 4X($ec) IF 0 NEXT 5n ELSE S/ BEEP 9/o SREAD Z*($fb)($ef)($e8) DELETE A EDIT i SCREEN D DATA ($f0)? 61284  SCREEN ($e8) PCLEAR $($ec)O($ed)l($ec)K0= DATA RENAME ? 61412 ($ee)d($ec)I0= DATA BEEP ? REM REM line numbering breaks here! REM $ SWAP ($e8)3 VERIFY ? GO 2($e8)S5 ELSE ($ef)f SET * FLREAD DELETE PROTECT ` SCREEN D'1 PSET d& SCREEN B& 4 DELETE H'?+5 SWAP ($ef)n SCREEN D SCREEN  PSET l& SCREEN - PSET VERIFY & SCREEN B PCLEAR bmH' EDIT j3IZ&/($ee)n& 24750 D'3IJ&($f7)/< CLOAD /= LIST /($fa) RETURN SCREEN b& REM REM line numbering breaks here! REM 1($ef)n SCREEN VERIFY ($ec) + 4159 (($FF7A)($ef)bo NOT ' REM REM line numbering breaks here! REM "($f9)($ec)l($ee)bo-($ed)A SCREEN d SCREEN VERIFY ($ec) PRESET NEXT ($FF5C)($ee)n/ DELETE FROM EDIT *Z*($f9) SCREEN D FLREAD  DELETE i EXEC SCREEN - EXEC MOTOR i& HIMEM mj' VERIFY * FOR ' TIMER lH SCREEN ($e8)($ef)2($e8)_9($ee)HjH SCREEN F SCREEN -($ee)D?3 EXEC ?3 ELSE ?_9 READ 4 DELETE A DELETE DATA READ 5 SWAP A EDIT IF 95 STOP DELETE Ail"9 SET K0 ON &Om DATA ' L GO ($f7)S/ AND 9($fe)9 READ ($e8)4R READ 5R FLREAD A SWAP DATA EDIT A94 FLREAD A READ w 5 PRESET  DELETE EXEC EDIT A95 REM 4/ REM READ a($f6)5 NEW 4($ee)#? GO DELETE EXEC SET d?15 IF 4 FLREAD A> FOR READ B DSKINIT 5x WAIT PROTECT K FLREAD !*' RENAME SWAP ($ec)F($ed)($ec)H($ed)5 GO 2d SCREEN H PSET '0 Z&($f6)_94P  FLREAD SWAP FOR J&($f9) DATA ja&($f3)o FOR J&($fb)5'2dS/>9 SET b SET * FLREAD 1)Z'($ee) DELETE PUT TRON " SKIPF #'($f3)($ee)&4$ PRESET PLAY 5$($e8)94@ SCREEN D READ lB SCREEN -($ee) VERIFY PCLEAR D PCLEAR H DELETE & FLREAD '($ed)A($ec))0 PCLS PCLEAR F5 NOT DATA ? ELSE o2v AUTO 4p EDIT f($ec)d&($ef)d DELETE f0g LET ? INPUT ?($ec) ELSE ' PRINT USING &5($ec)i?(0/ DELETE FOR EDIT NOT Z&($f9) DELETE f0-($ee)i1W? INPUT 0?.$ STEP 4D3 ELSE ($ec)?)5D STEP SWAP ' PAINT / USING 5p DELETE VERIFY SWAP VERIFY ? RUN FLREAD VERIFY 2j' 323 9ERROR #/:0 SET K DELETE ON ('/2u0 DIM ($e9)1 VERIFY DELETE FOR EDIT CLS GO &($f8) FLREAD Blg NOT d$($fa)jh= $($fa)=0 SWAP i SET K0 VERIFY PROTECT K DELETE AND (? DIM 2k9 SET K DELETE TRON ' MOTOR A&o TRON  SET I?/_o TRON /?  SET I?/$ LOAD DELETE A SET I?/E DELETE TRON &($f4) SET K DELETE ELSE EDIT TRON  DELETE EXEC EDIT ON  LET 16138 PROTECT K DELETE AND '$ SET I?/ DELETE TRON ' DELETE AND  EDIT TRON 'o AND  SET I?/ DELETE AND  EDIT TRON o AND 9 SUB y PRINT USING f REM REM line numbering breaks here! REM STEP GO RESET  31091 G($ef) OS-9 LEVEL ONE VERSION 1.2 COPYRIGHT 1980 BY MOTOROLA INC. AND MICROWARE SYSTEMS CORP. REPRODUCED UNDER LICENSE TO DRAGON DATA LTD. ALL RIGHTS RESERVED. Cmds ,,,,,,,,,,Shell ,,,,,,,,,,STARTUP -P ,,,,,,,,,,U 32767  PMODE ($FFDF)~($f0)0 READ REM REM line numbering breaks here! REM W? 0 READ ($FFE8) AUTO q/ DELETE FOR EDIT NOT Z&($f9)0 READ ($fe)($f1) LET GET DATA ? END 0 READ RIGHT$ DATA ? DATA 0 READ INSTR 3 READ ($FFA9)<  LET ??0 READ LOG <  LET 805 ?$($eb) ($fe);gJo PRINT USING REM REM line numbering breaks here! REM PCLS STEP GO S u Cloc($eb) 31 O NEXT Y&F LOAD W\ STEP <9L GO <3 LOAD U\ STEP )L0 READ ($FFD4) DRIVE T STEP & DRIVE S'-&J DRIVE T MOTOR IF # LOAD S\ STEP L/ MERGE S DATA _ MERGE UO_ MERGE W CLEAR Z NEW Yn RESET 2383  NEXT DATA 2 NEW Z NEW Y DATA  NEW [ NEW HP0 READ MID$ THEN REM REM line numbering breaks here! REM k1 READ SGN ?25 INPUT SCREEN D LOAD S($ed) ELSE LOAD U($ed) LOAD W($ed)_9E8= PRINT USING  BOOT GO ($fa)  SC/ $ ! PCLEAR  165  252 E 202  9135 TRON ;($ee)& SCREEN D4 ? DELETE ?+0 EXEC ?$t PCLEAR D5 DATA  SKIPF !'>< REM REM line numbering breaks here! REM ?(f($ef)(_ READ bYkee* B lbm1 I r|j+ 121 5O TRON FOR EDIT NOT Z GO &($f7) EDIT NOT Z&($fb)($ee)#') SCREEN B DELETE TRON ( EDIT  SCREEN D($ec) TRON 6'0 NEXT DELETE ! ELSE G4 DELETE ! ELSE H LINE RENAME ? FOR ($ef)*O95 CLS S/ DSKINIT 9m"&($ee)*'? GO ($ee)('< REM REM line numbering breaks here! REM ?)O9 SCREEN & DELETE  GO '04< 9198  SCREEN ELSE SWRITE 0 NEXT 5n ELSE SCREEN & DELETE  GO 13314 < REM REM line numbering breaks here! REM SWRITE SCREEN 1 TRON / DELETE FOR EDIT CLS Z&($f9)_9S/ BEEP 9($fa)l, SCREEN F'=4 LET 17431 G M' MOTOR TRON ,&/ COPY 2b4 READ !S5 ELSE /($f2)m TRON $'=0 EDIT NOT ' MOTOR TRON +' PSET VERIFY VERIFY 2b($ee)& PCLEAR F` GET PCLS SCREEN F'($f0)mF' LET  REM REM line numbering breaks here! REM 4<($FFFF)($ed)- 240  REM REM line numbering breaks here! REM IF M' /) MOTOR SKIPF '.\ STEP 1#($f7) PSET -# PCLEAR -0 PSET VERIFY DELETE TRON 3 7968 DIR  REM REM line numbering breaks here! REM FLREAD EDIT NOT GO  RUN DATA  ($e8) OFF 4 RESTORE 0 READ NOT )X0 IF PCLEAR b5 PRESET ($f1) PCLEAR Y F ) o v5 FOR : 82b EDIT - 9776  PCLEAR F SCREEN D($ee)( DELETE NOT EDIT FOR MOTOR TRON +&($f7)2b REM REM line numbering breaks here! REM -2b0 ELSE '($FF2C) INPUT 4 DATA EDIT - READ 25($FF1F) READ 0 ELSE 'm TRON #'($f5) READ LET 10297 0 ELSE ' REM REM line numbering breaks here! REM FOR 3_0m TRON "' READ  DATA READ  DELETE TRON 2 u DATA q DELETE TRON + EDIT - READ DIR READ ` PSET -'0 PSET b$ DELETE NOT '($f0) MOTOR TRON +&($eb)3_094p SCREEN *($ee)# 4p SCREEN #($ee)*'($ee)B FLREAD TRON ( SWAP G0 ELSE ' 0($ee)($ed)I AUTO 354 5($f0)m TRON !' GO a GO z" FOR 9m TRON $& GO &m TRON &9 GO $ GO & 646 . READ ($f7)5 REM SET K DELETE ELSE SCREEN # READ  SCREEN *' SCREEN  MOTOR &o94 SCREEN  DELETE ' MOTOR VERIFY '24 READ KILL 5?+l/ SET K FLREAD ON 65' RENAME C9 DELETE VERIFY EDIT  EDIT  DELETE TRON / EDIT ($ec) TRON 0($ed) ($ec) TRON 8($ed) DELETE TRON 4' EDIT O5 STOP SET K DELETE ELSE o/ SCREEN # READ DRAW  SCREEN *' READ PRESET m/&($e8)o,($ee)&9 READ SAVE  READ MERGE l, SCREEN D($ee)F'; DELETE FOR m,&($FF44) GO & DATA m TRON & READ :& DATA READ 4 3_' 5542 ' DRIVE MOTOR TRON +& BOOT m,& USING ($ee)& AUDIO D($ed)F($FF41)4 READ ($f1)5 IF 4R SCREEN *'Z GO &X /4R SCREEN # GO &N($ee)mH&m,&m TRON ''jG& ($fe) PUT  MOTOR TRON /&($f6)($fe) LINE MOTOR TRON /'($f8)($ee)oH DATA READ #m,& FLREAD TRON &4m TRON ' DATA READ  DATA 10998 O2a5 CHAIN READ 5 CHAIN AUTO 29422 oE SCREEN ELSE ($ec) SWRITE e0 NEXT DELETE RENAME PRESET ELSE 5($f0)w READ PRINT USING  SWAP REM REM line numbering breaks here! REM  SAVE GO 4  >KBVDI BACKUP  k' Q 118  RESTORE  282  50 ($fd) REM REM line numbering breaks here! REM k0 READ 50 LET REM REM line numbering breaks here! REM PCLEAR AND ;O_($ed) AND H EDIT  EDIT ELSE EDIT S SWAP AND = SWAP  SWAP AND ? SWAP AND @ SWAP AND A DATA 4 EDIT  DATA ? EDIT  DELETE 5 GO /($f5)9 GO & DELETE AND I CLS AND H&0/($f6)  GO '( GO 'X GO ' USING GO '5/ BEEP 94 FN 50 5 GO \ STEP #_9($fe) REM REM line numbering breaks here! REM m SCREEN AND ; DELETE +n RESET 646 LOC  DELETE ELSE C ELSE & o DELETE ELSE C ELSE &OC EDIT AND ? EDIT AND @ EDIT AND A PCOPY 2378 PMODE 951 ($FF48)n RESET REM REM line numbering breaks here! REM k READ L+($ea) EDIT AND G GO &c AND = PROTECT FLREAD AND H0 AND J: READ RESET SAVE AND I' SWAP AND H EDIT ELSE ' MOTOR M& SCREEN I' EDIT  / MOTOR K'/ MOTOR L& DELETE C / DELETE E'?oE CLS O EDIT AND > EDIT AND E EDIT AND FC EDIT AND B EDIT AND C EDIT AND DJ EDIT  DELETE ELSE C ELSE ' /($FF5C)D$ READ J STEP ($f6)l AND >i VERIFY  14208 $ NEXT  FLREAD AND F& NEXT @ FLREAD AND E($e8) AND =-& NEXT 9/= DELETE AND E'\  DELETE AND F'=40 READ REM REM line numbering breaks here! REM LIST O DELETE NEXT 594 STEP ' STEP "=  NOT XXX($eb) AND > STEP 1&l AND F5 ELSE STEP 7&c AND E5 ELSE 40 AND B READ 55 ELSE 4 DELETE ELSE * SWAP ELSE 5 REM DELETE * SWAP 5 REM SWAP 5 REM 440 AND ?/41 AND B/ DELETE ELSE + MOTOR EXEC &o EXEC c EXEC 1!Z&($f1) DATA LOC ELSE 0j VERIFY & PROTECT 2a0 AND B DATA  FLREAD FOR *J&($f9)5 PUT 0 AND ? READ TRON  DEF 5 PUT    001!|2" 3#~4$ 5 6& 7'^8([9)]:* ;+ ,<{-=_.>}/?\ 1283 0 AND J FLREAD AND I SAVE AND H' : DELETE ELSE ($fe) SWAP AND I($ee)9 DELETE D EDIT E($ef) LET REM REM line numbering breaks here! REM 2671 E SET K FLREAD ON 6' CHAIN STEP $ AUTO C940o AND o AND ,4@< 10271 01 IF '0 INPUT  REM REM line numbering breaks here! REM 3 OR  16 ?)5@ PCLEAR AND O_ READ  PCLEAR AND !0 INPUT  7959 a DATA ` EDIT AND # EDIT AND +_5 COLOR 4 PCOPY ($FF22) ELSE  LINE RENAME PMODE ($FF22)]&($f7)($FFC0)($f7)($FFC2)($f7)($FFC4) DELETE AND  ($f7)($FFC0)($f7)($FFC3)($f7)($FFC5) DELETE AND -/ LET ($FFC6)DD EDIT FOR 0 0 EDIT FOR Z&($f0)_5 RESTORE FLREAD AND &=M+$ GO #k GO |& DATA a  GO ~& DATA m  GO ` FOR END @  GO @ FOR @ SCREEN AND ! ON @ EDIT FOR PCLEAR AND ! PSET AND  READ  14785 ' o AND EDIT AND )n FREAD & EDIT AND (l AND _9 SCREEN AND 0 ON ($ec) GO ($ed) ON PROTECT PSET AND ($f6)0 ON RENAME PCLEAR AND ! DATA /` SWAP FOR J&($fb)9 GO $($fb) GO  FLREAD AND ,&/($f6)90 DIM H($ec) DATA n NEXT ($FFC4) REM REM line numbering breaks here! REM RETURN SKIPF BEEP ($FFC4)($FFC4) u($FFC4) g SREAD N($FFC4) ' 6 ($f2)J. NYr WAIT  ERROR  INPUT  ELSE  TRON READ d- RENAME SWAP AND " SCREEN AND ! DELETE ELSE EDIT AND # DATA EDIT ELSE ($fe)9 READ L0 ON PSET AND  0 ON RENAME 4($FF66)5 PCLEAR AND ! FREAD READ 3 PSET AND #0 PCLEAR AND ! > READ 0 PSET AND $ PCLEAR AND ! TO READ DATA ` EDIT FOR PSET AND ($f9)($FFAE) READ SCREEN AND  PCLEAR AND ! FREE SCREEN AND ! DELETE AND # EDIT ELSE 90 DIM > READ ($ef) FLREAD AND ) NOT DATA =($eb) AND ( INPUT 8419 AND  AUDIO AND $($ed) AND !($FF73)_($FF6F)($FF63)/ DATA ` SCREEN AND ! EDIT FOR Z&($fb)($FF5D) READ PLAY 0 ON RENAME PSET AND  PCLEAR AND !($FF4D)O_($fe)6 SCREEN &($ec) AND ($ed)($ec) AND !($ed) FLREAD AND = SWAP _9 REM REM line numbering breaks here! REM U LINE HIMEM AND ,&/($f6)9($ec) AND 4 RESTORE  INPUT VERIFY ELSE IF & DTm AND $+($f5)DT ($f1)4 FLREAD AND :-($fc)($ea) RENAME SCREEN & SWAP ($ec) AND 4($ed)($ec) AND -($ed)_90 DIM  FLREAD AND ,&;4@< 10271 05@L INPUT IF ' NEXT  =4B DEF _< 10549 B/_($ed) AND -+ 12140 AND , REM REM line numbering breaks here! REM FN DELETE AND ) EDIT AND : ELSE 0 READ ($FF6E) DELETE DATA EDIT AND 6 EDIT AND 7 DELETE AND ( GO #/=9M'< NOT ($ed) AND 8 DATA  EDIT AND $ DATA RENAME FLREAD AND )-' DATA ($f0)/0 DIM / < FOR ($ed) AND 8 DATA LOC AND 6 EDIT AND 7 EDIT AND $ DATA ($f0)/0 DIM  SWAP AND 3 PCLEAR AND 1 FLREAD AND )-X4 LINE RENAME /($fd)0 NOT 0  FOR @ 0 DIM  CLOSE o AND ( DELETE AND $+l AND (($FF73)4@($ee) AND -< ?)5@o AND ,90 DIM w DELETE AND )m AND $*/ RND ' ELSE 0 READ ($fe) NOT FLREAD DATA _ SCREEN AND - SWAP FOR PSET AND /($f9)O_($ed) AND 49($ec) AND ( STEP NOT / THEN m AND $+D($ed) AND (90 DIM  PCLEAR AND &l AND _9 READ RENAME ($ed) AND 4_9o AND 6 544 SWAP READ BACKUP ($ed) AND 4 READ  DELETE AND 7 EDIT AND 6_9 READ  INPUT S VERIFY ELSE SWAP ELSE EXEC AND 6 LINE ELSE EDIT ELSE 94& FLREAD AND $*DDD4/ THEN RENAME b DATA =($eb) RENAME INPUT REM REM line numbering breaks here! REM  SCREEN AND -1 PCLS DELETE VERIFY  PCLEAR VERIFY EXEC AND 3 SCREEN AND 1 DELETE DATA 5 COLOR o AND 6 544 RETURN ($FF78)2r($ed)l READ STEP PCLEAR b EDIT a($ec) AND 4 READ PLAY EDIT VERIFY O_($ed)d DATA THEN CLS AND 5 EDIT AND 5 DATA THEN CLS AND ) EDIT AND ) DATA LOC fO FLREAD AND 4 RENAME AND ( REM 16464 REM REM REM line numbering breaks here! REM `f($ed)h&<($FFFF)($ed)d DATA RENAME EDIT gO FLREAD AND 5 RENAME AND ) REM 16464 REM REM REM line numbering breaks here! REM `g($ed)j  EDIT VERIFY ($ec)d AUDIO j($ed)d DELETE VERIFY  INPUT EXEC AND 6S VERIFY ELSE 4 LINE RENAME EDIT ELSE PSET b& DELETE VERIFY MOTOR a'4($ec)d* SWRITE h($ed)d DELETE g0 DATA FREAD DELETE VERIFY FLREAD f*H FLREAD AND $+H$ STEP DELETE AND 90 RENUM D FLREAD AND $+D$ CIRCLE DELETE AND 80 LINE ($ec)l($ed) AND 42n DELETE AND 7 EDIT AND 6_90 DIM  PCLEAR AND &c AND _92| FLREAD AND ) SWAP aO EDIT VERIFY ($eb)a INPUT @P REM 1005 b DELETE VERIFY MOTOR a$, FLREAD a READ 6O FLREAD b* FLREAD VERIFY XIXI+ 4202 aO FLREAD VERIFY RENAME a REM 22601 + 25325 bl VERIFY AUTO DELETE VERIFY MOTOR a& FLREAD a READ 2d_92x EDIT VERIFY O($ed)b@P REM REM REM line numbering breaks here! REM ($ed)f FLREAD VERIFY O($ed) VERIFY @P REM ($ed)d SCREEN f READ -($ec)d SCREEN b READ '($ec) VERIFY SCREEN b READ !($ec) VERIFY SCREEN f READ ($ec)b SCREEN VERIFY READ ($ec)b SCREEN d READ ($ec)f SCREEN d READ ($ec)f SCREEN VERIFY READ S/ BEEP 99 ma PRINT USING 11505 GO COPY 12291 REM REM line numbering breaks here! REM   B  _ 208 SC/PRINTE CHAIN GET FN ($f7) PRINT USING  REM REM line numbering breaks here! REM BOOT GO ($ee)  PipeMa($ee) * '      > s SUB   60 S/ BEEP 9_9($ee)& SCREEN D4 ?& DELETE ?+0 EXEC ?$ PCLEAR D5 < 10277 ($ef)(($ef) TRON ($ef) TRON 3=($ef) TRON 9S/ DSKINIT 5 CLS DELETE "& ($ee)(< 10528  MOTOR +&0*  MOTOR /&0. DELETE ELSE ' FLREAD 'o?_9/ SWAP - o-0* REM REM line numbering breaks here! REM RESTORE 9($ec)F'5 SCREEN D SWRITE D4 40* DELETE 5($f0) EDIT FOR m-' MOTOR -' PSET VERIFY ($ed) AUDIO SAVE SWRITE F($ed)F&/ COPY _0* 3559 TRON  o TRON 0. REM REM line numbering breaks here! REM A;($ec)F'7 SCREEN D SWRITE D4 40. 4133  DELETE ELSE  REM REM line numbering breaks here! REM CSAVE ($ee)0m TRON ' MOTOR TRON ' PSET VERIFY ($e9)_4 AUDIO b SWRITE F($ed)F50. ] DELETE ELSE '! MOTOR '!l FLREAD  SAVE "&($FF41)?+j4 SET K FLREAD ON 65' MERGE C9 FLREAD SWAP ELSE _9 FLREAD \ SAVE "'' SWAP / SWAP o4 AND ($FF0F) LET 2718 K FLREAD ON 65j]&_9/($f5)C94E PROTECT K DELETE AND & FLREAD & EDIT ELSE  AND ($fe) WAIT 5*4 SCREEN TRON  FLREAD TRON ' PSET TRON &S5 CONT / SWAP TRON  EDIT FOR PSET TRON  SCREEN ( PCLEAR TRON _5 CONT DELETE TRON &S94 SCREEN TRON  DELETE FOR PSET TRON  SCREEN ( PCLEAR TRON  PSET TRON &o TRON ($fe)5 RESTORE _r PRINT USING 3809 GO ($f3) 1539 Pipe($f2)_9_9_9_9_9_9[+V PRINT USING 5105 GO ($f0) REM REM line numbering breaks here! REM   258 Pip FROM PipeMa($ee)Pipe($f2)< PCLEAR THEN 526 ! REM REM line numbering breaks here! REM  CLS T L  . SCREEN  SCREEN KGO51 AUTO datt($f2) lbacku($f0) pbine($f8) vbuil VERIFY zcm($f0) |cobble($f2) LET cop($f9) STOP dat FROM CLEAR dchec($eb) DEF GO51N.KB- ede($ec) =deldi($f2) USING di($f2) BOOT displa($f9) DIR dsav FROM DSKINIT dum($f0) ($f3)ech($ef) 247 REM REM line numbering breaks here! REM di($f4) ($f9)exbi($ee) forma($f4) fre FROM go5 CIRCLE #iden($f4) .lin($eb) 6lis($f4) 8loa VERIFY :logi($ee) 255 26400 nameLOAD RUNB LOAD ECHO DISPLAY 0C ECHO ** PLEASE WAIT UNTIL DISK ** ECHO ** DRIVE LIGHT GOES OUT ** ECHO ** AND THEN CHANGE DISK ** ECHO ** THE PROGRAM WILL THEN ** ECHO ** AUTO START ** ECHO UNLINK ECHO SLEEP 1500 CHX /D0 CHD /D0 EX RUNB PROGLINK ELSE -4 TRON RENAME '/2b($fa) GO 5HHHH LINE RENAME NEW c9/ DSKINIT F FWRITE  REM REM line numbering breaks here! REM MERGE OFF CSAVE c NEW c DELETE FOR GO ,'($f1)09 DATA  NEW F0/1 READ ($fc) PRINT ($fa) DEF $2b($f8) PSET DELETE EXEC NEW b 663 F 0 POKE @' REM REM line numbering breaks here! REM ' .' SGN ,/ ($fa)#/($fe) DSKINIT c93 DIM   DRIVE +*'/($fa)3 DIM #r DRIVE bX($ec)*n=3 DIM ( ($f1) TRON GO51 LOAD RUNB LOAD ECHO DISPLAY 0C ECHO ** PLEASE WAIT UNTIL DISK ** ECHO ** DRIVE LIGHT GOES OUT ** ECHO ** AND THEN CHANGE DISK ** ECHO ** THE PROGRAM WILL THEN ** ECHO ** AUTO START ** ECHO UNLINK ECHO SLEEP 1500 CHX /D0 CHD /D0 EX RUNB PROGLINK +' GO +'' 454 '  READ (/ REM DSKINIT c0 READ *$/($f8)V_ ERROR c DSKINIT c ?/ GO 0  READ / FOR 0 ERROR c DSKINIT c - M'/ ($f8)49 DELETE FOR ELSE __ GO X'/ GO Y' /@ GO U'/` GO S&($fe)909/ ERROR b DSKINIT b F N M'/ ERROR c DSKINIT c DELETE FOR PROCEDURE Program LOOP INPUT j PRINT CHR$(12) EXITIF j>24 THEN ENDEXIT FOR i=0 TO 50 PRINT CHR$(27); CHR$(65); CHR$(i); CHR$(j); "*" NEXT i ENDLOOP END  F MERGE d/ READ TO READ <4 COPY & MERGE & READ ?' DATA  READ A READ READ 5' READ L SWRITE SAVE 4 CLEAR + ELSE  END 1 NEW +5 Z' MERGE @9 MERGE B ,9 Z' LOAD @9 LOAD B MERGE D9 KILL $($f7)O_94 CLEAR + IF 5 REM PROTECT - FLREAD H+ STEP &PROCEDURE test PRINT CHR$(12) FOR i=0 TO 20 PRINT i NEXT i LOOP INPUT i EXITIF i>24 THEN ENDEXIT a$=CHR$(27)+CHR$(65)+CHR$(i)+CHR$(13) PRINT a$; "Arnulf" ENDLOOP END 5 STOP READ &E DEF READ 6 DELETE FOR GO ,'($f3)09 READ -4 READ $5 READ DELETE FOR GO ,'($ef)094 DELETE FOR GO ,'($f7)o RESET 3 GO & EDIT ELSE 5 RESTORE DRIVE F STEP  READ 4 PLAY /b5 EDIT *program test2; var i:integer; begin for i:= 1 to 20 do write(chr(27),chr(65),chr(i),chr(5),'abcdefghijklmnopqrstuvwxyz'); end. ELSE GO ,&, READ REM REM line numbering breaks here! REM READ ^4 INPUT READ 5 DEF FREAD P DSKINIT P($FF48)P ($f2) DELETE FOR GO ,' 0/($f5)D2b9($fe)( MERGE D($fd)($FFD6)+-> DSKINIT +($f4)& DIM $2d9/' PROTECT  INPUT CLEAR >& DELETE -& DELETE FOR GO ' EDIT NOT Z&($f5) DATA MOTOR FOR &($fc)o-0/0 DSKINIT +9/O PROTECT NORSKE PROGRAMMER : GO51N :=================== GO51N : NORSKE BOKSTAVER P] SKJERMEN ISTEDET FOR BLANT ANNET KLAMME-PARANTESER. GO51N.HKBD : NORSKE BOKSTAVER FINNES P] 1 TIL 9. 0 FLREAD  STEP '($f8) PROTECT  DRIVE 6 WAIT  NEW /0 DSKINIT +9 READ *&9 READ ' 9 READ ,9 READ .9 READ -9 READ / ?  SET STEP ?  SET ($f9)  &    T  OR T     TAB(  GO  W * '   OPEN  AUDIO  / V 7 V   SKIPF  / T   IF T m  135 USING  IF REM REM line numbering breaks here! REM  GO PCLEAR TAB(DAtt($f2) Use: Attr {[-]} opts: -d s r w e pr pw pe -a You do not own that file. Use Makdir to create a directory ERROR; the directory is not empty dsewrewr PPOINT O? ELSE $ SET  DATA GO ? ELSE $ SET  DATA FOR ? ELSE ; NEW 12360 / REM REM line numbering breaks here! REM ? READ ._ DELETE ELSE GO & SUB SET 1 AND H DELETE FOR GO /& EDIT CLS DELETE FOR GO . GO /&($f4) DATA @/ ($ed) MOTOR 0 AND H DATA ? ELSE  406 7988 @ SCREEN AND ($ee) AND  CLEAR ? ON 5@|0 AND h LET REM REM line numbering breaks here! REM ? INPUT p?  DIM 1552 PSET AND i&v SET  REM REM line numbering breaks here! REM USING 9 AND $($fb)_ DELETE ELSE GO &N4@ SCREEN AND ($ee) AND  CLEAR ? ON 5@=0 AND h LET 16266 1? RUN , CLEAR REM REM line numbering breaks here! REM ? RUN DRIVE '3 FLREAD AND h0 READ ($FF20)1 AND x DELETE FOR X DATA - EDIT CLS DELETE FOR *($f5) DATA EDIT CLS 0 AND x_ 0 READ ($fe)b4 DATA  LET  ? DIM S5?_0 READ ($fe) DIM ($e8)0 READ ($fe) MOTOR _ SAVE 4p CLEAR 206 16264 ($ee)d PROTECT 0 AND ( LET 16265 m ELSE '($f0)0 READ ($fe) OPEN _ DLOAD 5p STEP COPY & PCLEAR 9($FF41) SGN D($FF40)S($FF01)R($FF02)W($FF04)E($FF08)PR($FF10)PW($FF20)PE REM REM line numbering breaks here! REM  DELETE FOR GO '($fa) GO ,'($f6) GO -& DELETE FOR 01 READ ($FFC7) FLREAD CLS 40'B DELETE FOR TRON CLS ELSE WAIT '($f8) DELETE ?+50 DELETE CLS *($fc) FLREAD DELETE REM GO 0$( STEP ($FF27)* FOR ' '($FF63)($FF67)5& DELETE AND h DEF  LINE ? DEF  EDIT AND h_9 FREAD  DSKINIT _5 DELETE C5 COLOR SREAD FOR GET FROM FROM FROM / T   PAINT T q  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 / T  xT w  135 USING x REM REM line numbering breaks here! REM  GO R 0*Bine($f8)Copyright 1982 Motorola, Inc. RESET  DATA ? ELSE $? NEW RESET  DATA /?'($f0) NEW  RESET < 1757 MERGE / LET S0 RESET - LET 00 RESET 1 RESET 30 READ  CIRCLE DATA  LET REM REM line numbering breaks here! REM "? END 0 AND 1 DATA 5 ? NEXT 1? DIM REM REM line numbering breaks here! REM 4236 REM REM line numbering breaks here! REM " FWRITE ' 4Z0 AND 11 DELETE IF EDIT SOUND Z*($f9)/ RENAME RENAME DATA 0 EDIT SOUND Z.($fb) AUTO 0 READ K DATA  LET ? END 0L DATA 21 ? NEXT 1? DIM REM REM line numbering breaks here! REM &V CLEAR 4238 16265  REM REM line numbering breaks here! REM PRINT  DIM 127 CLEAR &;  DATA 1 NEW . SET  RESET SCREEN L DIM PRINT USING '*0 READ ?4  LET 272 ? END 0 AND 5 LET 16 ? NEXT 5 DELETE AND 5 ELSE WAIT GO Y'_? RESET  = DSKINIT 0IO FLREAD ELSE PCLS FOR Z&($fb)C EDIT ELSE 0I1 AND / FLREAD ELSE \ READ vZ&($fb)/ SWAP EXEC 0 AND - LET 272 ? DIM ($fe) SREAD LOAD COPY  MERGE ($FF6A) STEP COPY &($fe) COPY DATA 9 RETURN .' COLOR NEW . SET  RESET  LET REM REM line numbering breaks here! REM TRON READ  NEW  DELETE FOR READ HHHH ELSE ($f0)4 DELETE FOR READ PCLS RENAME NEW  OPEN , NEW , CLEAR 9 FOR 0+ GO / FOR  GO "90 READ 528 LET REM REM line numbering breaks here! REM ($FF10)? DIM ($FF66)4 DELETE FOR  INPUT DDDD READ EDIT CLS  DEF READ  EDIT CLS 5 DATA ELSE  NEXT 0 GO 9# NEXT 9** NON-HEX CHARACTER ENCOUNTERED Enter name for header record: Enter starting address for file: $ ** Not a binary load module file. Proceed anyway (Y/N)? CHAIN P SUB / T  TT {  135 USING 3345 GO | REM REM line numbering breaks here! REM CBuil VERIFY < ?'1 NEW 12428 - LET REM REM line numbering breaks here! REM ? DIM O0A LET FOR ? NEXT  DIM 2454 35876 KILL  CLEAR 36645 _?? U// REM REM line numbering breaks here! REM T  T }  135 USING  33057 K CLOAD cm($f0)2($e9)($FF7A)@+ 58143 @+ 58348 ($e9) REM REM line numbering breaks here! REM DIM ($ed) SWRITE  Y2f@($ed) SWRITE  ERROR 2b2($e9) 13033 ($FF7A)@+ 58143 @+ 58348 ($e9) REM REM line numbering breaks here! REM LET ($ed) SWRITE  26348 ($e9) REM REM line numbering breaks here! REM ON ($ed) SWRITE @+ ($ed) SWRITE  LINE 2d2($e9) 8000 + REM REM line numbering breaks here! REM ($ed) SWRITE ($ec)d($ed) SWRITE ($ec)h($ed) SWRITE  26169 2|2~($ec)h($ed) SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e' FLREAD e($ed) SWRITE < REM REM line numbering breaks here! REM  AUDIO SAVE &($eb)($ec)h($ed) SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e FLREAD e($ed) SWRITE < REM REM line numbering breaks here! REM LINE RENAME ($ea) RENAME ($ed) SWRITE < - AUDIO SAVE & <  O_ 1172 ' 26861 SWRITE + 27372 SAVE  FLREAD ELSE  SWAP eO_($ed) OR &($ed) OR ,< REM REM line numbering breaks here! REM SWAP OR  DEF FLREAD e($ed) SWRITE < 0 AUDIO SAVE & 48 SWAP OR  DEF ($ec)h($ed) SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e FLREAD e($ed) SWRITE < REM REM line numbering breaks here! REM 0 AUDIO SAVE . 25885 ($ed) SWRITE < 41953 - REM REM line numbering breaks here! REM 9($ec) OR ,($ed) SWRITE < 1353 ($ed) SWRITE FLREAD g($ed) SWRITE < 4148  AUDIO SAVE SWRITE SAVE ($ed) OR ,($ec)h($ed) SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e($FFA9) FLREAD e($ed) SWRITE < REM REM line numbering breaks here! REM . AUDIO SAVE & 26861 SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e FLREAD e($ed) SWRITE < REM REM line numbering breaks here! REM 0 AUDIO SAVE . 25885 ($ed) SWRITE < 41953 - REM REM line numbering breaks here! REM 9($ec) OR &($ed) SWRITE < 1233 ($ed) SWRITE FLREAD g($ed) SWRITE < 4148  AUDIO SAVE SWRITE SAVE ($ed) OR &($ec)h($ed) SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e($FFA9)O_($ed) VERIFY FLREAD e($ed) SWRITE < REM REM line numbering breaks here! REM LINE RENAME ($ea) RENAME ($ed) SWRITE < l AUDIO SAVE & <  O_ 1170 ' 26861 SWRITE + 27372 SAVE  FLREAD ELSE  SWAP e($ec)l($ed) SWRITE ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed)n($ec) SAVE ($ec) ELSE ($ed) VERIFY 0 READ  PCLEAR SWRITE FLREAD g($ed) SWRITE < 57578 RENAME #@+ 58316 58348 ($e8)($ed) SWRITE ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed)($e8)($ec) SAVE ($ec) ELSE ($ed) SWRITE ($ec)f($ed) SWRITE 2h 16579 58316 58348 ($e8)($ed) SWRITE ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed)($e8)($ec) SAVE ($ec) ELSE ($ed) SWRITE ($ec)f($ed) SWRITE  ($f0)2h 16579 58316 58348 ($e8)($ed) SWRITE ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed)($e8)($ec) SAVE ($ec) ELSE ($ed) SWRITE ($ec)f($ed) SWRITE  STEP 2h 27373 SWRITE + 27884 SAVE ($ed) SWRITE ($ec)n($ed) SWRITE ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed)($e8)($ec) SAVE ($ec) ELSE SWAP ($f1) 27885 SWRITE ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed)n($ec) SAVE ($ec) ELSE ($ed)b($ec)b($ed) SWRITE + 25836 SAVE  FLREAD ELSE  SWAP e' 27373 SWRITE + 27884 SAVE ($ed) SWRITE FLREAD g SWAP ($f1)($FFD5) 27373 SWRITE + 27884 SAVE ($ed) SWRITE FLREAD g SWAP ($f1) 1535 ($eb) REM REM line numbering breaks here! REM d($fe)($f5) o($FF24) x($FF53) c ABS s FRE$  27373 SWRITE + 27884 SAVE ($ed) SWRITE FLREAD g SWAP ($f1)($fc) KILL ($ec)j($ed) SWRITE O_ SWAP ($f1)< 26169 2t2z($ec)($e8)($ec) ELSE ($ed)($e8)@+ 28334 ($e8)($ec)($e8)($ed) SWRITE PCLEAR SWRITE O_ LET 57638  AUDIO VERIFY 2b/ 59416 ($ed) SWRITE < REM REM line numbering breaks here! REM  AUDIO SAVE & <  O_ ($ed)b'  SCREEN ($e8)($ec)($e8)CSCS0'+ 431 ($e8)($ed)($e8) SCREEN ($e8)($ec)($e8)($ed) SWRITE PCLEAR SWRITE O_ LET REM REM line numbering breaks here! REM 9731  AUDIO VERIFY 2b& 28397 SWRITE + 59408 ($ec) SAVE ($ed) SWRITE < REM REM line numbering breaks here! REM 0 SWAP ($f1) PRINT SCREEN ($e8)($ec)($e8)' } SCREEN ($e8)($ec)($e8)($ed) SWRITE PCLEAR SWRITE ($ec)($e8) LET 860 SCREEN SAVE ($ec) SAVE ($ed) VERIFY ($ec) VERIFY ($ed) SWRITE < 41953 / REM REM line numbering breaks here! REM ($ec) VERIFY ($ed) SWRITE < 57837 VERIFY  58605 SWRITE < REM REM line numbering breaks here! REM A($ed) SWRITE < 4148  AUDIO SAVE SWRITE SAVE ($ed) VERIFY ($ec)n($ed) SWRITE + REM REM line numbering breaks here! REM ($ed)($e8)($ec) SAVE ($ed) SWRITE ($ec)b SWAP ($f1) SCREEN ($e8)($ec)($e8)($ed) SWRITE PCLEAR SWRITE ($ec)($e8) LET 765 2d PCLEAR ($e8)($ed)($e8)($FF79)($ec)n($ed) SWRITE @+ 4148  AUDIO SAVE ($ed)d($ec) OR ,($ed) SWRITE ($ec)f54 AUDIO SAVE ($ed) OR ,($ed) SWRITE O_ AUDIO SAVE , REM REM line numbering breaks here! REM FOR ($ec)b' 8($ec) OR ,($ed) SWRITE ' ($ed) OR ,($ec) SAVE FLREAD OR  DEF ($ed) SWRITE < 41953 & 59408 ($ed) SWRITE + 59410 ($ec) SAVE ($ed) SWRITE < REM REM line numbering breaks here! REM - SWAP ($f1)O_($ed)b($ec) OR  CONT ($ed) SWRITE O_ AUDIO SAVE & 3($ec) OR ,($ed) SWRITE ' 51460 ,($ec) SAVE ($ed) SWRITE O_ AUDIO SAVE , 59408 ($ed) SWRITE + 59410 ($ec) SAVE ($ed) SWRITE FLREAD OR  DEF  SWAP ($f1)($FFCD)($ec)b' 59408 ($ed) SWRITE + 59410 ($ec) SAVE ($ed) SWRITE < REM REM line numbering breaks here! REM - SWAP ($f1)($ec)d($ed) SWRITE ' 26348 SAVE ($ed) SWRITE O_ AUDIO SAVE , 59408 ($ed) SWRITE + 59410 ($ec) SAVE ($ed) SWRITE ($ec)($e8)' REM REM line numbering breaks here! REM ($ed)($e8) FLREAD ELSE  SWAP ($f1)($FFC8)($ec) OR ,($ed) SWRITE ' 51460 ,($ec) SAVE ($ed) SWRITE O_ AUDIO SAVE , 59408 ($ed) SWRITE + 59410 ($ec) SAVE ($ed) SWRITE FLREAD OR  DEF  SWAP ($f1)($FFCD)($ec)($e8)($ed) SWRITE ($ec)($e8)($ed)($f1)2($e8)9O_($ed) SWRITE X2b9< REM REM line numbering breaks here! REM ($ed) SWRITE FLREAD e($ed) SWRITE m2d9($ec) OR  CLEAR  FLREAD ELSE 9($FFF3)($ed)~' 51460 CLEAR ($ed) SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE  FLREAD ELSE 9O_9($FFD6)($ed)~' ($ec) OR  CLEAR ($ed) SWRITE + ($ed) OR  CLEAR ($ec) SAVE  FLREAD ELSE 9O_9 SCREEN b SCREEN ELSE ' 0 AUDIO ELSE '1?&($f5) SCREEN b($ec)'w SWRITE b($ed) VERIFY po SREAD M*c VERIFY SC+ ($ec)c*c VERIFY SC+  LET 44 READ {m RENAME 'FSC+ 574 SCREEN b4 LET REM REM line numbering breaks here! REM 4 READ b0o SREAD M- c VERIFY CSCS+ 560 mc*c VERIFY cfcecdcc($ec)e+ 26092 c OR REM REM line numbering breaks here! REM INPUT ($ed)c($ec)e4($ec)e4 READ m RENAME '($ec)CSCS+ $ MERGE 0 FREAD  LET 4 4 PCLEAR ~&($ed)~'&DVFV$4($ec)d SWRITE j($ed)d($ec)b($e9)i TROFF h($ed)b5hiihigif CHAIN 55 OPEN o SREAD M*c VERIFY SC+ ($ec)c*c VERIFY SC+  LET 44  TRON SCREEN b2dmc*($FF19)SC+ 4118 ($FF0D) SCREEN b4 LET 4119 REM REM line numbering breaks here! REM DATA SCREEN b2dFo SREAD M*c VERIFY SCSC+ 560 mc*c VERIFY cfcecdcc($ec)e+ 26092 c OR REM REM line numbering breaks here! REM INPUT ($ed)c($ec)e4($ec)e4 READ >md*SCSC+ 560 mg*cccbcac VERIFY ($ec)b+ 25124 ($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($ec) SAVE ($ed)e($ec) SAVE ($ed)e2a 9 LET 4 4 PSET f"  AUDIO h# SCREEN SAVE ($ec) SAVE 91! PSET f" AUDIO h" 'XIYI SWAP DVFV1?4 SCREEN j($ed)j($ec) VERIFY PCLEAR VERIFY SCREEN h($ed)h5hcibiai VERIFY PSET f" AUDIO h AUDIO h SREAD g SOUND flcdffgfhfi1?& DIR PCLEAR f($ed)h SCREEN SAVE ($ec) SAVE 9($ec)b0 ELSE '@DV0 ($f8) SCREEN b($ec)d1 EXEC '7DVFV1? ($f2)($ec)b0 ELSE 'XI0 ($f8) SCREEN b($ec)d1 EXEC 'XIYI1? ($f2) SCREEN SAVE  PCLEAR VERIFY 9 SCREEN SAVE  PCLEAR b2b90 READ 9/d0/include/ 14796  CLOAD 9@4@ AUDIO SAVE ' CLOAD 9 FLREAD ($f8) DATA  STEP r' DATA  STEP w'< REM REM line numbering breaks here! REM 9 SCREEN b4? ELSE $ DELETE VERIFY IF '/ SCREEN c?'5 SREAD  INPUT O9 DELETE c? RUN 9 DELETE c2~A LET ? INPUT $/($FF20) FLREAD VERIFY -2b STEP ' SREAD STEP &/ 9 DELETE e FLREAD c STEP &/ READ /) FLREAD OR 294 ($f2)9 STEP ' STEP & / SWAP OR REM REM line numbering breaks here! REM / h OR 1132 OR 1572 /($FF1D)940a LET REM REM line numbering breaks here! REM ? DIM 5 DATA O  DELETE g SCREEN b SCREEN d? NEXT 1? o NEXT ($ec)b9<($FFFF)9 DATA   DELETE e SCREEN b1 ELSE FLREAD FOR ' STEP ' STEP &($f4)4 READ 0 READ ($FFE1) LET 16268 5 WAIT 4"0 AUDIO a51 EXEC '? DIM 9_/ SWAP OR REM REM line numbering breaks here! REM DELETE FOR GO '($fa) GO '\14 DELETE FOR GO &o SWAP GO &($f2)o0 READ ($f5) DEF 4O0 VERIFY 4 NOT #0X1 IF DELETE ELSE FLREAD EXEC EDIT EXEC SWAP FOR DELETE ELSE FLREAD ! EDIT ! SWAP FOR 1>4 PSET SAVE ($e8) 4159 2|2|0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE 0 OR ($ed) SWRITE O_ SWRITE SAVE ($ed) SWRITE 0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE 0 OR &($ed)($f1)($ed)($f1)($ed)($f1)0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE 0 OR ($ed) SWRITE O_ SWRITE SAVE ($ed) SWRITE 0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE 0 OR &($ed)($f1)($ed)($f1)($ed)($f1)0 OR 4333 SWRITE < REM REM line numbering breaks here! REM SWRITE SAVE ($ed) SWRITE 0 OR 4333 SWRITE < 57837 SWRITE < REM REM line numbering breaks here! REM ($ed)($f1)($ed)($f1)0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE 0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE O_($ed)($f1)($ed)($f1)< 26348 f($ed) SWRITE ($ec)l AUDIO SAVE / PCLEAR ($ec)l($ed) SWRITE ($ec)h($ed) SWRITE + 27372 SAVE ($ed) SWRITE < REM REM line numbering breaks here! REM ($fd)j SWRITE SAVE ($ec) ELSE ($ed) VERIFY ($ec) VERIFY ($ed) SWRITE ($ec) SAVE  FLREAD ELSE ($ed) SWRITE < 41953 & REM REM line numbering breaks here! REM s($ec) VERIFY ($ed) SWRITE <  SWRITE SAVE  FLREAD ELSE ' 1 ($ed)d($ec) VERIFY ($ed) SWRITE ($ec)f($ed) SWRITE + 26860 SAVE SWRITE SAVE  FLREAD ELSE  SWAP c' REM REM line numbering breaks here! REM =0 READ 2 PCLEAR SWRITE FLREAD e($ed) SWRITE < LINE RENAME ($ea) RENAME ($fa) CLEAR  " FLREAD c($ed) SWRITE 0 READ ($f3)($ed) SWRITE ($f4) 2dO_($ed) SWRITE ($fe) POKE 2b 255 SREAD  LOC ($ec) VERIFY ($ed) SWRITE ($ec) SAVE  FLREAD ELSE ($ed) SWRITE < REM REM line numbering breaks here! REM - AUDIO SAVE & 0 READ  CHAIN ($ed) VERIFY O_($ed)d 36098 CHAIN ($ed) SWRITE ($ec)b($ed) SWRITE ($fc)($fc)2d($ed)d($ed) SWRITE O_ AUDIO SAVE & REM REM line numbering breaks here! REM ($ec) VERIFY ($ed) SWRITE 0 READ  PAINT ($ed) SWRITE ($f3) MOTOR 2dO_($ed) SWRITE ($fe)(2b0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ec) ELSE ($ed) SWRITE O_ AUDIO SAVE & )0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE ($ec)b($ed)($f1)0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE ($ec)f($ed)($f1) `0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ec) ELSE ($ed) SWRITE O_ AUDIO SAVE & )0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE ($ec)b($ed)($f1)0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ed) SWRITE ($ec)f($ed)($f1) 36098 #($ed) SWRITE < REM REM line numbering breaks here! REM ($ed) SWRITE ($f3)'2dO_($ed) SWRITE ($fd)'2b($fe)DO_ LET 1064 ($ed) OR * PCLEAR OR REM REM line numbering breaks here! REM "($ed) OR $0 READ  ($ed) SWRITE ($f2) AUTO 2b0 OR 4333 SWRITE  OPEN 2b($ed) OR REM REM line numbering breaks here! REM ($ed) SWRITE <($FFFF) AUDIO SAVE ' PMODE 0 OR 4333 SWRITE ~2b($ed) OR REM REM line numbering breaks here! REM ($ed) SWRITE <($FFFF) AUDIO SAVE ' CSAVE ($ec) OR ($ed) SWRITE ($ec) OR 41953 ' REM REM line numbering breaks here! REM k SCREEN OR (($ec) OR *($ed) SWRITE PCLEAR SWRITE + 457 7681 PCLEAR OR (($ed) OR * SCREEN SAVE ($ec) SAVE ($ed) SWRITE PCLEAR SWRITE O_ LET REM REM line numbering breaks here! REM 9731  AUDIO VERIFY 2b& 36097 NEXT ($ed) SWRITE ($f2)=2b($ec) OR REM REM line numbering breaks here! REM ($ed) SWRITE ($ec) OR ($ed) SWRITE SCREEN OR "($ec) OR $($ed) SWRITE PCLEAR SWRITE 0 READ  ON ($ed) SWRITE ($f2)2j SCREEN OR "($ec) OR 1  OR 7681 PCLEAR OR REM REM line numbering breaks here! REM "($ed) OR $($FF2C) SCREEN OR (($ec) OR *($ed) SWRITE PCLEAR SWRITE O_ LET 9731  AUDIO VERIFY 2b& 36097 Q($ed) SWRITE ($f1) BACKUP 2b SCREEN OR REM REM line numbering breaks here! REM "($ec) OR 58287 SWRITE 0 READ F($ed) SWRITE ($f1) PCOPY 2f SCREEN OR (($ec) OR *($ed) SWRITE PCLEAR SWRITE 0 READ G($ed) SWRITE ($f1) LLIST 2f($ec) OR 58316 ($FFFF) AUDIO SAVE & REM REM line numbering breaks here! REM H0 OR 4333 SWRITE Z2b($ed) SWRITE <($FFFF) AUDIO SAVE & 24557 SWRITE ($fb)($fb)2b REM REM line numbering breaks here! REM 0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ec) ELSE ($ed) SWRITE 0 READ  ($ed) SWRITE ($f1)H2d 0 OR 4333 SWRITE < REM REM line numbering breaks here! REM  SWRITE SAVE ($ec) ELSE ($ed) SWRITE 0 READ 4333 SWRITE ($f1)2d2h9Cmp: unknown option -c REM REM line numbering breaks here! REM standard input r cannot open: s use: cmp {-opt} path1 path2 Differences byte #1 #2 ======== == == 08lx 02x 02x None ... Bytes compared: 08lx Bytes different: 08lx s is longer s is longer  SCREEN b SCREEN EXEC PSET $ DELETE ) SCREEN " SCREEN *? INPUT   SCREEN b($ed), SWRITE "($ed)$ SCREEN " FLREAD FOR O PCLEAR EXEC 9<($FFFF)9Kf FROM FROM FROM / T   GO T RUN  135 USING  GO REM REM line numbering breaks here! REM  GO PCLS 3395 obble($f2) Use: Cobbler to create a new system disk Error writing kernel track Warning - Kernel track has not been allocated properly. Track not written. Error - OS9boot file fragmented This disk will not bootstrap. OS9Boot ($FF5F) DATA / MOTOR ELSE &/?( DATA / MOTOR EXEC ' 1 AND + EDIT CLS DELETE FOR Z*($f9) RESET ) DATA @/ ($ed) MOTOR 0 AND + DATA ? ELSE NEW  REM REM line numbering breaks here! REM TIMER )1 READ ($FFB8) DATA / EDIT FOR DELETE CLS *($fa) CLEAR 4@ LET 21 ? ON 5@ REM REM line numbering breaks here! REM ($f0)0D LET ? INPUT  SWRITE LOAD '0 AND +? PRINT O_ NEW  MERGE  MERGE  FLREAD DATA /0 AND +?' NEW  104 GET 733  FN 16 ? END  18886 REM REM line numbering breaks here! REM ? READ  16 ? RUN  16558 AND  DELETE AND _ CLEAR ? ON 5@ REM REM line numbering breaks here! REM ~0 AND K LET  ? INPUT  p($ec) AND c& l FLREAD AND [ DSKINIT ($ec) AND \ MERGE  56 0 AND K LET  REM REM line numbering breaks here! REM ? INPUT ? DELETE ELSE ELSE ? ON ?&V DELETE  ON ($FF26)P DELETE  ELSE RESTORE ON RESTORE &H LET ($f0)  LET  CLEAR ? END 3? RUN $_ !4@ CLEAR  LET 16 ? ON 5 NOT 0 READ ($fd) ERROR 4 DATA  LET  REM REM line numbering breaks here! REM ? DIM S5?0 READ ($fe)f_ ($e8)0 READ ($fd)($f7)_ SAVE 0 READ ($fe) _ ERROR 4@ LET 21 CLEAR ? ON 5@ DSKINIT 0D LET REM REM line numbering breaks here! REM ? END <9($f1)R FROM FROM FROM / T   LOAD T POKE  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 / T  ($fd)T NEW  135 USING 3345 GO DIR REM REM line numbering breaks here! REM p NOT Dat FROM , 1 DLOAD ??? CLS January CLS February CLS March CLS April CLS May CLS June CLS July CLS August CLS September CLS October CLS November CLS December CLS 40-3H WAIT ? READ 4 DELETE ($f1) ON T ELSE WAIT &< ($ed) STEP READ  DATA EDIT NOT DATA  SET  LET 16268 _? DRIVE  READ - DRIVE  READ  DRIVE  DATA : EDIT NOT !1 READ ($FF61) DRIVE ' STEP " DELETE CLS *($fc)Z&($f9) READ ) DRIVE  READ 1 READ ($FF44) READ  DRIVE REM REM line numbering breaks here! REM DATA /L NOT d$($fb) EDIT NOT GO 0&3_ DATA :J= $($fb) EDIT NOT =0 SWAP NOT 9 DELETE EXEC ELSE  EDIT NOT DELETE CLS *($f6)9($f0)pq FROM FROM FROM / T  '/T CLOAD ( 135 USING '/' TO  GO _ CLEAR REM 42($e8) PROTECT o($e8)_ SWAP ($e8) SWAP ($e8)_O($ed) TRON 0($ed) TRON ,($ed) TRON *($ed) TRON (($ed) TRON &< REM REM line numbering breaks here! REM ($ed) TRON 0 READ  EXEC 40 TRON p2b0 READ  DEF 40 TROFF 4119 ($f6)2b($ec)($e8)"' REM REM line numbering breaks here! REM ($ed)($e8)"' 243 SCREEN ($e8)&0 PCLEAR ($e8)& SCREEN ELSE FLREAD ELSE STEP -& REM REM line numbering breaks here! REM SAVE ($ec)($f8)&+ ($ed) VERIFY FLREAD ($f4)' BOOT FLREAD ($f4)O OFF SWAP b STEP b' w STEP d' RETURN STEP m' b STEP o' } STEP p' o STEP s' a STEP w' y SCREEN VERIFY FLREAD  STEP =&, SCREEN VERIFY FLREAD '&($ec) VERIFY + 40 TRON pu2b($ec) VERIFY + 1584 TROFF REM REM line numbering breaks here! REM PSET c2b \0 READ ($f5)4 LOAD Y2b_OU 1 ($ed) TRON  REM REM line numbering breaks here! REM >_O($ed) TRON  1 ($ed) TRON  .< REM REM line numbering breaks here! REM ($ed) TRON  & KILL _O)< 11808  FLREAD ($f4)O40 READ  COPY 4 LOAD 2d_O($ed)($e8)" FLREAD b STEP w'($FF06)($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($FF27)($ec)($e8)"' 2071  CSAVE _O($e8)($ec) TRON ' _O($ed).($ed) TRON ($ed) TRON < REM REM line numbering breaks here! REM ($ed) TRON 6($ec) TRON & ($ec) TRON 6' ($ed) TRON 6($ec) TRON ' ($ec) TRON 6' ($ed) TRON 6($ec)($f8)& PUT ' 4656 READ ~4 LOAD  LLIST 2b_O CLOAD _O($ed)($e8)($ed)($e8)($ec)($f8)& SCREEN ($e8) FLREAD NEXT STEP /'($ec)($e8)+ REM REM line numbering breaks here! REM ($ed)($e8)' 25392 NEXT // SWAP ELSE ($ec)($e8)+ 59415 ' REM REM line numbering breaks here! REM  SCREEN ($f8)& FLREAD NEXT SWAP b]'($ec)($e8)+ ($ed)($e8)' 25392 NEXT FLREAD b SWAP ELSE CREATE ($ec)($e8)0b FLREAD NEXT STEP @'($ec)($e8)($ed)($e8) ($ec)($e8)+ REM REM line numbering breaks here! REM ($ed)($e8)' 25392 NEXT /@ SWAP ELSE ($ec)($e8)+ REM REM line numbering breaks here! REM ($ed)($e8)' 0c0 NEXT o ELSE < 1584 e2b($ed) EXEC '($FFFF)&0c40 READ  VERIFY 4 LOAD  FLREAD 2d LOAD  SREAD _O4_O4_O4($ec) EXEC  ERROR 2f0 TROFF x PMODE 0 TROFF x FLREAD O40 TROFF x FLREAD O DEF _ SWRITE SAVE ($ed)*($ec)* INPUT O($ed) TRON 2($ec)* ELSE REM REM line numbering breaks here! REM -($FFED) TRON 40 TROFF x FLREAD O40 TROFF x FLREAD O DEF _ SWRITE SAVE ($ed)&($ec)&+($FFFF)($ed)(0 TROFF x FLREAD O40 TROFF x FLREAD O DEF _ SWRITE SAVE ($ed),($ec),4($ec)& CLOSE ($ed),0 TROFF x+ 1584 TRON O FOR 2b_O($ed)($e8)($ec)($e8)' 8428 ($e8)0 TRON L0 NEXT 4($ec)($e8)0 TROFF x FLREAD NEXT SWAP ($f1)($ec)($e8)+ REM REM line numbering breaks here! REM ($ed)($e8) DSKINIT ($ec)($e8) 0c0 NEXT o ELSE ($ec) TRON & PRINT 0c40 TRON O40 READ  2d($ec)*40 READ ($f6)2b($ec)&' & 0 READ # SWRITE ($ec)&40 READ * CREATE 2b0 TRON 840 TRON L GO 2b0 TRON 840 READ # DRAW 2b0 TRON 840 TROFF x+ 862 2b0 TRON 840 READ  STOP 2b0c DIM '($FFFF)&0 READ ,4 LOAD i2b LOAD e($ec) TRON & REM REM line numbering breaks here! REM o< j($ed) TROFF x' 5612 TRON ''< REM REM line numbering breaks here! REM U($ed) TROFF z' &< 40 READ 4 LOAD &2d_O"_O40"40 TRON p4($ec) TROFF x MOTOR 2f($ec) TRON '< 1584 $40 TROFF 4332 TROFF z ELSE 2f0 TROFF x FLREAD O+ REM REM line numbering breaks here! REM ($ed)($e8)0 TROFF x FLREAD ' ($ec)($e8)+ ($ed)($e8)_O4< 1584 TROFF x+ 1772 EXEC  USING 2f< 1584 ($e8)4($ec) EXEC  THEN 2d'($FFFF)& LOAD  CSAVE ($ec)($e8) SWRITE ($e8)($ed)($e8)($ec) TRON &($ec)($e8)40 READ  POKE  END 2b_O($ed) TRON .0c PCLEAR TROFF ($ec) TRON &$($ec)($e8)40($e8)4_O4($ec)"4($ec) TROFF x PSET 2h0 READ  OPEN T0cb($ec) TRON & 36112 LINE = y($ec) TRON ' ($ec) TRON *&($ec) TRON &'< REM REM line numbering breaks here! REM ($ed) TRON .0 READ  LINE 0c*0 READ  STEP  ($ec) TRON *'+($ec) TRON *40 READ  COLOR ($f9)2b($ec) TRON *' ' 0 READ + FROM 0 READ  TO  LOAD ($ec) TRON &'+($ec) TRON &40 READ  PCLS  OR 2b($ec) TRON &' ' 0 READ  SOUND  DRAW 0 READ  OPEN  PSET ($ec) TRON ('+($ec) TRON (40 READ  PCOPY  CLOAD 2b($ec) TRON (' ' 0 READ  PRESET  IF 0 READ  DELETE |($ec) TRON ,'+($ec) TRON ,40 READ  STEP i2b($ec) TRON ,' 2352 READ =U0 READ -L($ec) TRON &10 TRON O40 READ  GET 92b($ec) TRON ,& ($ec) TRON *&($ec) TRON &' 0 READ  PAINT 0 READ  SCREEN ($ec) TRON $' 2864 READ  EXEC  ($ec) TRON $40 READ  MOTOR ($f4)2b($ec) TRON "' 2864 READ  LLIST  RENAME ($ec) TRON "40 READ  LIST  BEEP 2b($ec) TRON & REM REM line numbering breaks here! REM __O4<($FFFF)4_O4($ec)"4($ec) TROFF x }2h($ec)" PMODE ($ec) TRON &0 TRON p PRESET ($ec) TRON '._O4<($FFFF)4< 1772 $4($ec) TROFF z K2h($ec)$ IF ($ec) TRON & 0 TROFF 4119 z_OW2($e8)$90 READ 4 LOAD E2b0 READ ($ea)4 LOAD 82b94 SCREEN VERIFY FLREAD O4 SCREEN b FLREAD O DEF _ SWRITE SAVE 4 FLREAD ($f8)O40 READ ($f5)4($ec)j32h94< REM REM line numbering breaks here! REM 4($ec)b4($ec) EXEC 2d' 12429  FWRITE 4 LOAD ($e9)2b LOAD  FROM < REM REM line numbering breaks here! REM 2b942($e8) DRIVE ($ec) TRON ' '-< 1584 READ  AND 4 LOAD  FN 2d_O RENUM ($ec) TRON + 43032 ($ec).'2< REM REM line numbering breaks here! REM ($ed) VERIFY ($ec) TRON +($FFFF) AUDIO VERIFY /0 READ + CLS ($ec) VERIFY + ($ed) VERIFY SWRITE ($ec)($e8)*40 READ  PCLEAR  INPUT 2b($ec) TRON .& ($ec) TRON $+ 43044 ($ec)($e8)*v'($FFFF)&($ec)($e8)*40 READ  ON 4 LOAD N2d , LOAD G READ ($ed)d($ec) TRON 6' 43062 < REM REM line numbering breaks here! REM 4< @4_O4($ec)j/2f< 1584 TROFF 4332 h,2d($ed) VERIFY '($FFFF)'$ FLREAD TROFF REM REM line numbering breaks here! REM ($e8)' PROTECT ($ec) TRON "+ ($ed) TRON "0 TROFF 4144 TROFF X2b($ec).' STEP ($ec) TRON & REM REM line numbering breaks here! REM R($ec) TRON .' &#($ec)&40 TROFF ($e8)+ 1740 1772 $4($ec) TROFF z 2h &($ec)&40 TROFF REM REM line numbering breaks here! REM ($e8)+ 1631 O4($ec)"4($ec) TROFF x($e9)2h($ed)~&($FF64)_O4_O40 TROFF REM REM line numbering breaks here! REM ($e8)+ 1772 EXEC  IF 2f0 TROFF x($fe)V0 TROFF x REM REM line numbering breaks here! REM PAINT ($ed)~'($FF32)0 TROFF 4144 h~2b($ec) TRON XI0 TROFF 0 NEXT 3f($ef) ELSE ($ec) TRON 6& REM REM line numbering breaks here! REM C0($e8)(40($e8)(4($ec)hF2d($ec)d6($ec) TRON 6+ ($ed) TRON 60f($fe), Q($ed)d_O4($ec)($e8)*4($ec)($e8)*4($ec)j($fc)2f($fe)>0f($fe)($fe) NOT ($ec)d($fa)'($FFFF)& LOAD  CREATE ($ec) TRON 6+ ($ed) TRON 60 READ  BOOT '($FFFF)& LOAD  PMODE ($ec) TRON ' 43032 2($e8),942y_O($ed)b< REM REM line numbering breaks here! REM ($ed) VERIFY ($ec)g SWRITE VERIFY LET 0 NEXT FLREAD ELSE ]& 26595 VERIFY LET REM REM line numbering breaks here! REM 0 NEXT FLREAD ELSE ]& 26542 VERIFY FLREAD NEXT ' REM REM line numbering breaks here! REM SCREEN ($ec) VERIFY ' 164 ($ec)g SWRITE VERIFY LET REM REM line numbering breaks here! REM 0 NEXT FLREAD ELSE O4($ec)i SWRITE b LET 0 NEXT FLREAD ELSE O DEF _ SWRITE SAVE 40f4($ec)k SWRITE dd2d0 TRON L4($ec)i SWRITE bY2b' 22 0 TRON L40fC2b' REM REM line numbering breaks here! REM 64 ($ec) TRON .&40 TRON 84($ec)i SWRITE b($fc)/2b0 TRON B40f($fc) PLAY 2b0 TRON B40 TRON 840 READ 2 SWAP 2d PCOPY <($FFFF)($ed)b ($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($FF28)($ec)b'($ec) TRON .& ($ec) TRON ,+ ($ed) TRON ,_O2i9($ec) TRON & 16 ($ed) VERIFY ($ec)g SWRITE VERIFY LET REM REM line numbering breaks here! REM 0 NEXT FLREAD ELSE ]& 26595 VERIFY LET REM REM line numbering breaks here! REM 0 NEXT FLREAD ELSE ]& 26542 VERIFY FLREAD NEXT ' REM REM line numbering breaks here! REM LIST ($ec) VERIFY ' 139 ($ec) TRON .&C($ec)g SWRITE VERIFY LET REM REM line numbering breaks here! REM 0 NEXT FLREAD ELSE O4($ec)i SWRITE b LET 0 NEXT FLREAD ELSE O DEF _ SWRITE SAVE 4($ec)i SWRITE b4_O4($ec)"4($ec) TROFF x 26861 ~'@<($FFFF)($ed)b 9($ec)g SWRITE VERIFY LET REM REM line numbering breaks here! REM 0 NEXT FLREAD ELSE O4($ec)i SWRITE b LET 0 NEXT FLREAD ELSE O DEF _ SWRITE SAVE 4($ec)i SWRITE b4< 1772 $4($ec) TROFF z 26860 VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($FF41)($ec)b'_O2i9 FLREAD ($f8)- FOR NOT 50689 O2i94 SCREEN d FLREAD FOR PCLEAR d SCREEN VERIFY SWAP FOR PCLEAR VERIFY STEP FOR ($f0)o($f4)($ec) VERIFY ' 58598 ($f4)- SWAP ($f4)2b942($e8) VERIFY ($ec)($e8)& EXEC ( VERIFY )($ed)~'($ec)(40l4($ec)($e8)( COLOR 2d($ec)($e8)& AUDIO (($ed)($e8)& _O40l4($ec)($e8)( CLEAR 2d0 VERIFY 40l($fb)*2b0($e8)40($e8)40($e8)4($ec)&40($e8).40($e8)m2j($ec).';0 VERIFY 40l($fa)($f7)2b($ec)($e8)&40b40 READ DEF '2d($ec)($e8)4($ec)($e8)4($ec)($e8)40 READ CLS  2f($ec)o4($ec)o4($ec)($e8)&4($ec)($e8)&4($ec)($e8)$ STEP 2h($ed)~'<($FFFF)2($e8)9< 59409 'GV0&($fa) SWAP ($e8) FLREAD ($e8) STEP FOR ' 59419 ' 59430 ' REM REM line numbering breaks here! REM q($ec)($e8)"XI0 TRON  FLREAD OPEN VERIFY ($e8)]'"< 1772 ($e8)$XI0 TRON  FLREAD OPEN VERIFY ($e8)O4($ec)($e8)4($ec)($e8) COLOR 2f($ec) TRON .&($ec)($e8)"XI0 TRON 0 NEXT 4($ec)($e8)$XI0 TRON  FLREAD OPEN ($ea)($e8) SCREEN ($f1) SWAP ELSE FLREAD ($e8) DATA 'TJ&($fc) SWAP ($e8)($ec)($e8)&' 59430 + REM REM line numbering breaks here! REM  INT ($ec)o+ 28652 ($e8)"XI0 TRON 0 NEXT ($ec)-+ REM REM line numbering breaks here! REM ($ed)-($ec)($e8)&'  OPEN ($ec)o' 11871 O($ed)o($ec)o4($ec)o+ REM REM line numbering breaks here! REM ($ed)o4($ec)($e8)&4($ec)($e8)&4($ec)($e8)$ USING 2h($ed)~'<($FFFF)2($e8)9($ec)($e8)"XI0 TRON  FLREAD OPEN ]'< 1772 ($e8)$XI0 TRON  FLREAD OPEN O4($ec)($e8)4($ec)($e8) 26348 TRON .&($ec)($e8)"XI0 TRON 0 NEXT /($FFE7) CONT ($ec)($e8)"XI0 TRON 0 NEXT ($ec)-+ REM REM line numbering breaks here! REM ($ed)-($ec)o+ 28652 ($e8)&' REM REM line numbering breaks here! REM ($ed)($e8)&($FF5A)($ec)($e8)&' 8 AUDIO ($e8)&4< REM REM line numbering breaks here! REM ($FFAE) SAVE 'XI0&($fa) SWAP ($e8)($ec)o' 11871 O($ed)o($ec)o4($ec)o+ REM REM line numbering breaks here! REM ($ed)o4($ec)($e8)&4($ec)($e8)&4($ec)($e8)$2h($ed)~'<($FFFF)2($e8)9($ec)($e8)"XI0 TRON  FLREAD OPEN VERIFY ($e8)]'"< 1772 ($e8)$XI0 TRON  FLREAD OPEN VERIFY ($e8)O4($ec)($e8)4($ec)($e8) 26348 TRON .&($ec)($e8)"XI0 TRON 0 NEXT 4($ec)($e8)$XI0 TRON  FLREAD OPEN ($ea)($e8) SCREEN ($f1) SWAP ELSE _O2($e8)942x FLREAD o SWAP d_O($ed) VERIFY FLREAD d' FLREAD d- FOR ]' 58420 ($ec)n4($ec)l4($ec)&40m BEEP 2h0 TRON 840g($f8)Z2b($ec) TRON .& 59408 ' 7216 TRON 840 READ 5 ~2b($ec) TRON *+ REM REM line numbering breaks here! REM ($ed) TRON * ]($ec)($e8)' 6960 TRON 840 READ 5 Y2b($ec) TRON &+ REM REM line numbering breaks here! REM ($ed) TRON & 9($ec)($e8)' 12524 TRON '0 TRON 840 READ D 02b($ec) TRON (+ 43048 0 TRON 840 READ a 2b($ec) TRON '4($ec) TRON .&,($ec) TRON 0&*< 43056 ($ec)&40g4< 1772 $4($ec) TROFF z($fc)32h_O($ed) TRON 0  SCREEN ($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY FLREAD d DATA 'XJ&($fc) SWAP d($fe)($f2)2j92v_O4< 24399 4($ec) EXEC  LINE 2f_O4_O4_O4($ec)"4($ec) TROFF xb2h0 TROFF x($f7)n_O($ed)d($ed)f_O($ed) VERIFY ($ec) VERIFY  AUDIO *$ 26160 TROFF x FLREAD NEXT ($e8) PLAY  SWAP h]' REM REM line numbering breaks here! REM READ ($ec) VERIFY +  AUDIO *&$($ec), ELSE 13318 < REM REM line numbering breaks here! REM  AUDIO SAVE 4< ($FFAE) SAVE 'XI0&($fa)4 FLREAD i VERIFY RENAME SWAP h($ec)f0 TROFF x FLREAD NEXT VERIFY h SWAP i]'#< 1766 kO4($ec)h4< REM REM line numbering breaks here! REM  F4($ec)j INPUT  SWRITE TRON ($fe)(2f FLREAD h VERIFY PLAY  SWAP i]'#< 1766 kO4($ec)h4< 6452 ($ec)j INPUT  SWRITE TRON ($fd)($fb)2f($ec) TRON + REM REM line numbering breaks here! REM ($ed) TRON ($ec)d+ ($ed)d' -!_O($ed)d($ec)d4($ec) TRON + 1631 O4($ec)"4($ec) TROFF xp2h($ec)f+ REM REM line numbering breaks here! REM ($ed)f' 24399 ($ed)f0 TROFF x($f6)k($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($fe)($fd)2j942($e8)($e8)($ec)($e8) 4 POKE 40 READ  OFF 40j r2f0d4($ec)($e8)e2b FLREAD ($f8) STEP /&< 1772 ($e8) g2b($ed)($f8)'($FFFF)&($ec)($e8)40 READ  POKE 4 LOAD  2d LOAD  _O($ed) VERIFY ($ec) VERIFY ' REM REM line numbering breaks here! REM ,($ec) VERIFY + 58499 59416 0 NEXT o ELSE FROM ($ec)* INPUT ODVDVDVDV($ed)b($ec)*4< 6637 ~'($ec)b+ REM REM line numbering breaks here! REM ($ed)b_O4($ec)dXIXIXIXI DEF _+($FFFF)4_O4($ec)($f8)$ DRAW 2f< 1772 ($e8)4($ec)($f8)" COPY 2d'($FFFF)& LOAD  READ _O4_O4_O4($ec)($f8)$ ELSE 2f< 58604 VERIFY  AUDIO b.&< REM REM line numbering breaks here! REM 4($ec)($e8)4($ec)($f8)" CLEAR 2d'($FFFF)& LOAD P($ec) VERIFY + 58400 COPY ($ec)($e8) XI0 TRON 0 NEXT _O($ed) ELSE ($ec)($e8) XI0 TRON 0 NEXT ($ec)($e8)($ed) ELSE 2($e8)94($ec)h AUDIO TRON 2-($ec)j AUDIO TRON 4-($ec) TRON .& 0 READ  EXEC  REM REM line numbering breaks here! REM SWRITE <($FFFF)2b9($ec)fXI0 TRON ($ec) NEXT  AUDIO h. 26200 I0 TRON ($ec) NEXT + REM REM line numbering breaks here! REM  AUDIO h, 20276 ($ec)hXI0 TRON ($ec) NEXT  DEF _4_O4($ec)j AND 2f< REM REM line numbering breaks here! REM 4($ec)b4($ec)h($e8)2d'($FFFF)& LOAD  SOUND ($ec)fXI0 TRON 0 NEXT 4($ec)jGVGVGVGVXIXIXIXI($ed)($f1)($ec)h'($FFFF)'8_O4($ec)hXI0 TRON ($ec) NEXT  DEF _4_O4($ec)ji2f< 4($ec)b4($ec)hh2d'($FFFF)& LOAD C($ec)fXI0 TRON 0 NEXT 4($ec)j4< 1901  DEF _ SWRITE b SWRITE l($ed)($f1)_O2b92~_O($ed) VERIFY ($ec) VERIFY  AUDIO TRON , ($ec) VERIFY XI0 TROFF ($ec) NEXT 40 READ  FN  2b($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY FREAD 0 TROFF X40 READ  TRON ($ef)2d942| SCREEN d FLREAD FOR PCLEAR d]&($f7)($ec)d' ($ed)d FLREAD ($f8) SCREEN d SWAP FOR PCLEAR d SCREEN h FLREAD FOR PCLEAR h]&($ee)2f92~< 1584 READ p PRESET 2b($ed) VERIFY '($FFFF)&"0 READ _4 LOAD  RUN 2b0 READ u4 LOAD  REM 2b($FF60) LOAD {($ec) VERIFY 2b9/D0 REM REM line numbering breaks here! REM /D0 dcheck: -w= requires pathlist argument dcheck: illegal option 'c' dcheck: no device specified dcheck: cannot open s Volume - 's' on device s $04x bytes in allocation map 1 sector per cluster d sectors per cluster s total sectors on media Sector s is start of root directory FD dcheck: cannot chd to root directory No memory available for bitmap buffer (dK req.) $04x sectors used for id, allocation map and root directory Building allocation map work file... Checking allocation map file... Pathlists for questionable clusters: d previously allocated clusters found s d cluster s in file structure but not in allocation map d cluster s in allocation map but not in file structure d bad file descriptor sector s 's' file structure is not intact 1 directory d directories 1 file d files Usage: dcheck [-opts] device_name -w = pathlist to directory for work files -p = print pathlists for questionable clusters -m = save allocation map work files -b = suppress listing of unused clusters -s = display count of files and directories only $02x04x dcheck: fatal read error dcheck: directories nested too deep (d) s dcheck: cannot chgdir to 's' .. *** Bad FD segment (s-s) for file: --> setbits: Start=s Count=$04x Sector=02x Byte=02x Bit=1x <-- Cluster s was previously allocated Cluster s in file structure but not in allocation map Cluster s in allocation map but not in file structure Cluster s in path: /dcheck02xd dcheck: cannot open workfile 's' *** Segment out of range in file: s/ s . dcheck: cannot open '.' directory Pathlist is:  <  2636  \ - gN ($ec) a T ( 3107  ($eb) ($fd) [ TROFF   SET  U CSAVE  o x_ SWAP STEP DELETE FOR GO ' READ ~'($f6)0 PCLEAR STEP REM REM line numbering breaks here! REM DELETE FOR GO ' READ n&($f6)o SREAD o REM CLEAR NEW O_4 ' 13318 ($f4)40 VERIFY 40~40-o FOR PSET VERIFY ($fa)53^0 AND  RESET RESET 0 AND  RESET RESET 0 AND & RESET  RESET # DATA  NEW  DATA  NEW ! DATA  NEW ,O NEW L NEW "L NEW -($ec)-+ REM REM line numbering breaks here! REM  RESET 253  VERIFY ($f1) 8231  GO 94 LOAD ' LOAD  REM REM line numbering breaks here! REM ($f5)($ec) VERIFY  25145 N c40f4($ec)f4($ec)d 25650 b9 REM REM line numbering breaks here! REM b42($e9) 262 4($ec)($e9)40d REM REM line numbering breaks here! REM 2d($ec)($e9) 40b 2b2($e9)9 0X42($e9) 260 4($ec)($e9)40d 25648 VERIFY  REM REM line numbering breaks here! REM 2($e9)9 966 42($e9)($fe)($f3) SCREEN ($e9) FLREAD FOR PCLEAR ($e9) SWAP VERIFY ]' FLREAD VERIFY STEP '($ec)($e9) + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 b SWAP ($f1) COPY 0m PCLEAR i< 25711 g/ SWAP hof FLREAD ($f9) STEP -&($ec)($e9)+ REM REM line numbering breaks here! REM ($ed)($e9)/ SWAP g FLREAD ($f9)O]+ 6630 ($f9) STEP 0&/0 SWAP h0($e9)F($ed)b _O($ed)b FLREAD ($f9) STEP .&($ec)($e9)+ REM REM line numbering breaks here! REM ($ed)($e9)0($e9)"($ed)d/ SWAP f SCREEN ($e9) FLREAD FOR PCLEAR ($e9) SWAP VERIFY FLREAD VERIFY O STEP d' STEP u'H STEP x' H STEP o' H STEP c' l STEP s' 320 ($ec)($f9)' 9196 i+ REM REM line numbering breaks here! REM ($ed)i' 4/- SWAP ($f1)($ec)($f9)@P REM 275 ($ec)b' 25286 SWAP a / SWAP a / SWAP a FLREAD aO4 SCREEN ($e9)($ec) GO PCLEAR ($e9)40m 2dO4($ec)d AUDIO SAVE ($ed)b 27075 REM REM line numbering breaks here! REM ($ed)i' 1710 ($e9)($ec) GO PCLEAR ($e9) SWAP ($f1)($ec)b' REM REM line numbering breaks here! REM ($ed)b 26150 < REM REM line numbering breaks here! REM ($ed)d SCREEN ($e9)($ec) GO PCLEAR ($e9)($ed)k FLREAD ($f8) '(($ec)d'$($ec)i+ ($ed)i' 1710 m FLREAD FOR PCLEAR m SWAP ($f1)($ec)d' REM REM line numbering breaks here! REM ($ed)d($ec)b' 25120 COPY o($f8) 0m PCLEAR i FLREAD g&&($ec)b' 25283 REM REM line numbering breaks here! REM ' 5868 ($e9) + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 j SWAP ($f1) ERROR SCREEN i FLREAD FOR PCLEAR i SWAP ($f9) ]' ($ec)($e9) + REM REM line numbering breaks here! REM ($ed)($e9) FLREAD FLREAD g'($fe)($ec)b' 25283 REM REM line numbering breaks here! REM ' /($fe) 269 + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 j SWAP ($f1) FREAD ($ec)($e9) + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 b SWAP ($f1)($fd) COPY o($f9) 2($e9)942}($ec)($f8)($ed) VERIFY ($ec)g4($ec)k 25324 ($f8)+ REM REM line numbering breaks here! REM ($ed)($f8)' 1766 d STEP $ FLREAD d=0  FLREAD d=7 SWAP ($f1)($ec)g4($ec)k REM REM line numbering breaks here! REM V($ed)g+ 11756 g4($ec)k 25324 ($f8)+ REM REM line numbering breaks here! REM ($ed)($f8)' 1766 d STEP $ FLREAD d=0  FLREAD d=7 SWAP ($f1) + SCREEN ($f8)o ELSE ($ec) VERIFY  REM REM line numbering breaks here! REM ($ec)($f8) AUDIO VERIFY O2e9 NOT  1489   IF  SET 42{_O($ed)b LOAD ($ed) VERIFY ($ec) VERIFY ' REM REM line numbering breaks here! REM ]($ec) VERIFY  AUDIO e& G($ec)b'($ec)b+ 1710 b($ec)($ed)($f1)  SCREEN VERIFY ($ec) MERGE od($ec)e 26086 O REM REM line numbering breaks here! REM l'($FFFF)&/ SWAP d($ec)e 25639 <($FFFF)2g9< 26425 ($ec) VERIFY ($ed)b SCREEN VERIFY ($ec)($ed) VERIFY  INSTR <($FFFF)2g94($ec) VERIFY + 486 ELSE -]' SCREEN VERIFY ($ec) REM REM line numbering breaks here! REM &($ec) VERIFY  POKE '($ec) VERIFY  POKE '($ec) VERIFY  POKE &2b9($ec) VERIFY  2b9_ IF E42~_O($ed) VERIFY SCREEN ($f8) FLREAD ELSE O (+ ' SCREEN ($f8) FLREAD FOR PCLEAR ($f8)O4($ec)b4< 17 SWRITE SAVE ' REM REM line numbering breaks here! REM 0($ed) VERIFY CREATE ($ec) VERIFY 2d9 NOT ?4 LOAD 4($ec)b 2b2b9 R42{_O($ed) VERIFY ($ec)e 1 ($ed)b($ec) VERIFY  AUDIO b, 58542 e FLREAD NEXT SWAP d($ec)e SWRITE VERIFY 4($ec)d SCREEN g FLREAD NEXT SWAP ($f1)($ec)e SWRITE b4 FLREAD f SWAP ($f1)($ec) VERIFY + 58604 b' 25110 ($FFC6)2g9 FN 42($e9)($fe)($f9)($ec)($e9)  59649 ($ed)a0g PCLEAR c FLREAD ($f8)' REM REM line numbering breaks here! REM RESTORE FLREAD ($f8) STEP & 3559 ($f8)< 12393 4 SCREEN ($e9) FLREAD O 25616 '($FFFF)&<($FFFF)2($e9) 90g PCLEAR c REM REM line numbering breaks here! REM N FLREAD ($f8) STEP &6($ec)c0g4 AUDIO SAVE 4< 141 4< REM REM line numbering breaks here! REM  AUDIO SAVE ($ed)e($ec)e'*($ec)c+ ($ed)c' 1734 SWAP ($f1)($ec)e' REM REM line numbering breaks here! REM ($ed)e SWRITE ($ec)c+ ($ed)c' 1766 ($f8) SWAP ($f1)($ec)a+ 24854 ($FF69)o($f8)($ec)c0g4 AUDIO SAVE ' 26399  1584 i4 SCREEN ($e9) FLREAD O REM REM line numbering breaks here! REM 2d'($FFFF)&<($FFFF)2($e9) 9($ec)($e9)2($e9) 9-3- 4 LOAD 4($ec)b 2b2b94($ec)d+ 492 ELSE ' REM REM line numbering breaks here! REM ($ed) ELSE ' 5612 ($f8)+ REM REM line numbering breaks here! REM ($ed)($f8)' 1766 c SWAP ($f1)O < 1772 f4 FLREAD eO REM REM line numbering breaks here! REM 2d2b94 LOAD 4($ec)b($FFB6)2b2b942} FLREAD d SWAP b($ec)g+ 486 ELSE - STEP REM REM line numbering breaks here! REM '($ec)g+ 486 ELSE -0 STEP REM REM line numbering breaks here! REM '<($FFFF)2e9 FLREAD j'< 607 O4($ec)i+ 1740  REM REM line numbering breaks here! REM AUDIO ($f1) AUDIO SAVE ($ed) VERIFY ($ec)g+  FLREAD ELSE - STEP 46 SCREEN g($ec)&(($ec)g+ 1740  237 ($f1)' REM REM line numbering breaks here! REM &($ec)g+  FLREAD -> SWAP - _O($ed) VERIFY ($ec)g+ 486 ELSE -]' REM REM line numbering breaks here! REM 4 FLREAD j' 1 40d4 SCREEN k FLREAD O 25616 '($FFFF)& 26563 998 -> SWAP -<($FFFF)2e9($ec) VERIFY '-($ec) VERIFY 4 SCREEN i($ec)4 SCREEN k FLREAD O REM REM line numbering breaks here! REM LET 2d'($FFFF)&($ec)g+ 998 -> SWAP -<($FFFF)2e9($ec)g+ 1772 i+ 486 ELSE -]'_O < REM REM line numbering breaks here! REM ($ed)($f1) SCREEN g($ec)($ed)($f8) FLREAD j'-($ec)g+ 486 ELSE - STEP 60664 + REM REM line numbering breaks here! REM ($ed)($f8)' 4 FLREAD f SWAP ($f1)($ec)g+ 1740 REM REM line numbering breaks here! REM ($FFED)($f1) FLREAD dO2e94_O4($ec)b4_O($fe) DEF 2d2b9 1070 42x($ec)h+ 22084 V+ REM REM line numbering breaks here! REM ($ed)f($ec) TROFF  FOR ($ed)b' 5168 TROFF | PCLEAR b PCLEAR TROFF  FOR PCLEAR TROFF |_O($ed) TROFF ~($ec)($f8)($ed) VERIFY SCREEN VERIFY ($ec) AUDIO f REM REM line numbering breaks here! REM K SCREEN VERIFY ($ec) AUDIO f&($ec)($f4)($ed)($f8) -($ec) VERIFY + ($ec)- AUDIO f($ed)-($ec) VERIFY + 492 ELSE XIXI4($ec)b SWRITE SAVE ($ed) VERIFY ($ec) VERIFY + 1772 h($ed)($f1)($ec)b($ed) TROFF  FOR ($ec) VERIFY + REM REM line numbering breaks here! REM 2j9($ec) VERIFY  AUDIO TROFF  FOR & /($ec)fXIXI FROM ($ed)d'($FFFF)&_O2j9($ec)d+ 4($ec)h($ed)($f1)($ec)d+ 17 ($ec) TROFF  FOR ($ed) VERIFY ($ec) VERIFY ($ed)b($ec)($f4)($ed) VERIFY ($FF65)42|($ec)d' REM REM line numbering breaks here! REM ($ed) VERIFY ($ec) TROFF  FOR ($ed)b($ec) VERIFY  AUDIO b#($ec) VERIFY  AUDIO ($f8)($ec)b AUDIO ($f8)($ec) VERIFY  AUDIO b"($ec) VERIFY  AUDIO ($f8)($ec)($f8)($ed)b($FFD2)($ec) VERIFY + 492 ELSE XIXI SWRITE VERIFY  AUDIO ($f8)&($ec)($f8)+ 1772 b+ REM REM line numbering breaks here! REM ($ec)- SWRITE ($f1)($ed)- SCREEN ($f8)($ec) ELSE ($ed)($f4) ($ec)($f8)($ed)($f4)($ec)b+ 492 ELSE XIXI SWRITE b AUDIO VERIFY &($ec) VERIFY + 1772 d+ REM REM line numbering breaks here! REM ($ec)- SWRITE ($f1)($ed)-($ec)($f4)($ed)($f8) ($ec) VERIFY ($ed)($f8)($ec)b($ed) TROFF  FOR 2f9d4 FLREAD a STEP 0 FLREAD a STEP 9"/ _O2b94 FLREAD aO + ' FLREAD a=  FLREAD aO2b9 1766 a STEP A FLREAD a STEP Z"/ _O2b94($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ' 1710 f FLREAD FOR PCLEAR f SWAP ($f1)]&($e9)2b942~($ec)b($ed) VERIFY FLREAD ($f4)' ($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($f3)($ec) VERIFY AUDIO b2d92{o VERIFY READ 3($ed)a($ec)g READ -($ed)g DELETE b FLREAD h=($ed)c DELETE a FLREAD h= DEF _ SWRITE c($ed)c DELETE b FLREAD g= DEF _ SWRITE cm VERIFY *@P REM 12905 n ELSE M*cb@P REM REM REM line numbering breaks here! REM 9 SCREEN b READ {4 PCLEAR c5 ($f7)4 LET 288  SCREEN b READ b4 PCLEAR c LET ($FF35)  LET ($FFFF)($f6)2}4($ed)b&5 > DATA  EDIT amb+hcibla ($f4)($ec)fofog AUDIO b$ SWRITE b($fe) igifdbfcja&($e8)54($ec)f5*@P REM REM REM line numbering breaks here! REM SCREEN c2gn ELSE 4@4 TRON SAVE ($fe)4 READ 0 READ 5 STEP M*@P REM 1584 TROFF ($FF03)@P REM REM REM line numbering breaks here! REM COPY 13344 ?5 5 LOAD REM REM line numbering breaks here! REM 0 NEXT RESET 9O MERGE <($FFFF)9 DATA ? DATA $ MERGE <($FFFF)9O_92|($ee)f($ec) ELSE ($ed) VERIFY DELETE  EDIT b($ec)h d VERIFY fafb$ lb&la&l VERIFY d-fADV$ FLREAD O FLREAD b-($ee)n($ed)-($ec)aDVDVDVO($ee)l($ed)-($ec) VERIFY DVDVDV($ee)j($ed)-2d9O_($ed) ELSE SWAP ($ec)dXIXIXI($ed) ELSE ($ec)fXIXIXI SWRITE ($ed)$l ELSE SWRITE h($ed)$l ELSE ($ec)b hii ELSE GV&($f6)9($ee)b FLREAD ELSE SWAP -($ec) SWRITE d($ed)A$l-O_9($ee)b FLREAD ELSE SAVE -" ($ec) AUDIO A" O_9<($FFFF)9< 9 DEF /? READ  SCREEN d($ef) ELSE SCREEN b($ed) ELSE O_ <($FFFF)9 DELETE c? ELSE b INPUT O9 DEF ? RUN WO_94  DEF SCREEN d SCREEN f? INPUT 5B94  DEF SCREEN d SCREEN f? END 5-94  DEF SCREEN d SCREEN f? NEXT 594  DEF SCREEN d SCREEN f? DIM 59O MERGE <($FFFF)9 DATA  FLREAD c+ DEF ELSE >4?'5P$4? PRINT 5 DSKINIT 0?' BEEP  INPUT O94 SCREEN d($ec) ELSE ($ed)d_ DELETE  SWRITE f($ed)f5 DEF FLREAD g SCREEN b($ee)dZ& /? READ TROFF Z&/? READ LLIST  SWRITE d($e9)c TROFF b? ON END O_9? PRINT FOR O_9? READ  INPUT O9 READ 94 ? !5 9dchec($eb)($f4) DIR MERGE FROM FROM PRINT 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 KILL ` &"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) ~($fa) COLOR {($fd) RENAME f RESET RESTORE 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 29152 $($f0) REM REM line numbering breaks here! REM j($f0)  SUB ($f0) yp  CLS ($FFFF)($FFF0)0123456789:;,-./@abcdefghijklmnopqrstuvwxyz  0!"#$&'()*+<=>?|ABCDEFGHIJKLMNOPQRSTUVWXYZ | ~ ^[] {_}\    SAVE TO FROM FROM / T  SKIPF T <  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 / T  |T AUTO  135 USING | REM REM line numbering breaks here! REM  GO V  CSAVE Deldi($f2) READ :* READ w$ 8471  RESET  CLEAR ? RUN  SET REM REM line numbering breaks here! REM ? PRINT  DELETE ELSE GO & DIR _ 4 CLEAR ? RUN 5? RESET DATA ? ELSE  NEW  , SET 4159 ELSE * NEW  SET 4175 \ MERGE F DELETE EXEC GO /& DATA EDIT CLS DATA  SET REM REM line numbering breaks here! REM ? DATA  RESET WAIT 0 AND VERIFY RESET D9 CLEAR / 4159 READ  SET D DELETE ON 3 ELSE FOR '_ _9 Deleting directory file. List directory, delete directory, or quit ? (l/d/q) Continue? (y/n) ]&/ DATA 0 DIM DEF  LET REM REM line numbering breaks here! REM O? DIM ! READ Z DRIVE  STEP &_  READ 0 DIM > LET 272 ? DIM  READ ;9DIR E 4@3 AND J4@/0 DIM ($f2) SET REM REM line numbering breaks here! REM LOAD FZ DATA EDIT NOT 0 AUDIO VERIFY 5@0 DIM CREATE DATA _?5@ OR ?90 AND J LET P DATA ? NEXT 1 DELETE FOR GO '($fa) ON Y ELSE WAIT ' DELETE REM ON L ELSE WAIT ' DELETE ELSE ON D ELSE WAIT ' / / / DSKINIT _ /9DELDIR .. DRIVE *'G CLEAR 4@ AUTO @ LET ? ON 5@ READ ;- SET 4159 DATA / SET H_ DATA 4@3 AND $0 DIM /?5@?0 DIM FN DATA ? DATA $ BACKUP STEP COPY &_ /9 CLEAR 0 AND $ LET REM REM line numbering breaks here! REM ? INPUT  DELETE ELSE '($ee)? DELETE ? ELSE  EDIT ? DATA EDIT EXEC O\ MERGE H9ATTR -d 4@3 AND J4@ LOAD FZ SET READ 0 DIM ($eb)/ READ 0 AUDIO VERIFY 5@0 DIM DSKINIT _ DATA ??5@9Z DELETE FOR EDIT NOT ]&($f8)9 SUB V/ T   DEF T CHAIN  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 / T  ELSE T DRIVE  135 USING 3345 GO PSET REM REM line numbering breaks here! REM  OFF Displa($f9)' #41 ELSE READ  SWAP FOR ($f8) AUDIO VERIFY 5 DATA ? END _? FLREAD CLS STEP ,& FLREAD CLS STEP '($fa)1? READ 4 READ  h VERIFY h VERIFY h VERIFY h VERIFY ($eb) VERIFY SWAP VERIFY _59 FLREAD EXEC NOT 0 STEP # STEP 1 NOT NOT  STEP " STEP ($fe)1!9S9_ RENAME J/ T  T FREAD  135 USING  GO 2 Q42z_O($ed),($ed)*($ed)(($ed)&($ed)$($ed)"($ed) EXEC o TRON )o TRON Qo TROFF  / SWAP TRON $0 TRON $+ 367 ELSE 0 TRON $+ 367 ELSE 0 READ d PCLEAR TROFF I($ec)f' REM REM line numbering breaks here! REM ($ed)f' 12033 j($ec)j+ REM REM line numbering breaks here! REM ($ed)j($ec) ELSE ($ed) VERIFY  FLREAD ELSE STEP -&S($ec) VERIFY + ($ed)b FLREAD ($f8)' AUTO FLREAD ($f8)> SWAP ($f8) FLREAD ($f8) STEP i' STEP v'$ STEP m'( STEP s', STEP l' TRON STEP b' 250 < 8799 O($ed) TRON < REM REM line numbering breaks here! REM ($ed), ($fb)< ($ed)& 1 ($ed)(_O($ed)d($ec)d+ 25731 REM REM line numbering breaks here! REM 0 TRON $4 SWRITE SAVE 4/# SWAP ($f1) SCREEN b FLREAD  STEP 05 SCREEN b FLREAD  STEP 9"-($ec)d' 9708 d+ 25731 REM REM line numbering breaks here! REM 0 TRON $4 SWRITE SAVE 4($ec)d+ ($ed)d' 486  SWAP ($f1) +($ec)d+ 25731 REM REM line numbering breaks here! REM 0 TRON $4 SWRITE SAVE 4/K SWAP ($f1)0 TRON $ SWRITE do ELSE  1 ($ed)$ REM REM line numbering breaks here! REM i SCREEN b FLREAD  STEP =& 20461 d($ec)b+ 25119  FLREAD  STEP REM REM line numbering breaks here! REM '($ec)d+ 25731 REM REM line numbering breaks here! REM 0 TROFF DLOAD 4 SWRITE SAVE 4 SCREEN d FLREAD  SWAP ($f1) DIR 0 TROFF 4323 do ELSE < REM REM line numbering breaks here! REM ($ed) EXEC < ($ed) EXEC  FLREAD ($f8)O40 READ (4 LOAD  92d POKE ($ec)b+ 25219 REM REM line numbering breaks here! REM ($fe) PUT ($ec)f' 26307 REM REM line numbering breaks here! REM ' 46 ($ec)($f8) ($ed) VERIFY  FLREAD ELSE STEP /'0 READ 40 TRON )V2b($ec)($f8) 40 TRON )G2b 0 READ ($e9)40 TRON )52b($ec)f' 26307 REM REM line numbering breaks here! REM ' 53 < 10926 j($ec)($ed) VERIFY  FLREAD ELSE STEP /'0 READ  PLAY 40 TRON Q REM REM line numbering breaks here! REM 2b SCREEN j($ec)40 TRON Q($f0)2b 0 READ  DEF 40 TRON Q PROTECT 2b($ec)f' 4144 READ  ELSE 4 LOAD  m2b^o TROFF O< REM REM line numbering breaks here! REM ($f9)($ed) TRON ($ec) TRON ' 43026 + 43265 O4 SWRITE SAVE o ELSE 0 READ q @($ec)*'0 TRON Q40 READ b .2b0 READ _ #0 READ g ($ec),' 0 READ e  SOUND ' 9729 H($ec) TRON  ($FF30) TRON y FLREAD ON O($ed) TRON 0 TRON y FLREAD ON O($ed) TRON 0 TRON y FLREAD ON O($ed) TRON 0 READ :40 READ 12b< REM REM line numbering breaks here! REM ($ed) TRON ($ec) TRON ' 1365 + 1375 O($ed) TRON ($ec) TRON  FN ' 4656 READ 4 LOAD  CLOAD 2b LOAD  OPEN 0 TROFF REM REM line numbering breaks here! REM CLOAD FLREAD ON O AUDIO TRON &($FFD2)0 TROFF CLOAD FLREAD ON O AUDIO TRON &($FFC2)0 TROFF CLOAD FLREAD ON O AUDIO TRON &($FFB2)0 TROFF CLOAD  MOTOR 0 TROFF 4119 0 READ  BACKUP 0 TRON y FLREAD ON O($ed) TRON 0 TRON y FLREAD ON O($ed) TRON 0 TRON y FLREAD ON O($ed) TRON ($ec) TRON  )0 READ  EDIT 40 READ  SET M2b($FF4B)0 TRON ) BEEP ($ec) TRON + REM REM line numbering breaks here! REM ($ed) TRON 0 TROFF O4 SWRITE SAVE 40 TROFF OG2b< ($ed) TRON ($ec) TRON + 43026 ' 43265 O FLREAD NEXT STEP /&($ea)0 READ S40 TROFF O SWRITE TRON ($f4)2b 0 TRON )40 TROFF O2b($ec) TRON  EDIT _O($ed). 11303 0 READ  RESTORE 0 READ ! PRINT 0 READ  ~_O 2h92($e9)($FF02)($ec).+ 11907 REM REM line numbering breaks here! REM ($ec)"' Z($ec) TRON + 43024 ' 43265 4 SWRITE SAVE 4/ SWAP ($f1)($ec) TRON + 43024 ' 43265 4 SWRITE SAVE 4/ SWAP ($f1)0 TROFF   SWRITE TRON o ELSE ($ec) TRON ' REM REM line numbering breaks here! REM /0 READ /4 LOAD  2b < 1584 READ  DSKINIT  2b($ed) TRON ' 4656 READ *4 LOAD  SAVE 2b LOAD  SWRITE _O($ed) TRON < REM REM line numbering breaks here! REM @($ed) TRON "($ec) TRON ($ec) TRON  DSKINIT ' 405 < 1584 TROFF 4119  DLOAD 2b($ed) TRON ' REM REM line numbering breaks here! REM 360 ($ec)$& COPY < 1584 TROFF 4119  CSAVE 2b($ed) TRON ' REM REM line numbering breaks here! REM 45 LOAD 40 TROFF REM REM line numbering breaks here! REM CLOAD 4($ec) TROFF Is2d LOAD 40 TROFF CLOAD 4($ec) TROFF I4 LOAD Y2f ATN 0 TROFF 4119  POKE ($ec)&&0 TROFF 4144 TROFF  40 READ 252d($ec) TRON 90 TROFF 4119 i0 TROFF 4144 TROFF  40 READ 2d0 READ 40 TROFF 4119 42bo VERIFY 0 TROFF O40bF2b0 READ ($f8)40 TROFF O52b0 TROFF 4144 TROFF O$2b($ec) TRON ($ed)($e9) REM REM line numbering breaks here! REM ($fa)($ec) TRON "($ed)($e9) ($fc)($ec) TRON  STEP ($fe)<0 TROFF  40 READ  TAB( AUDIO 2b0 READ  SUB 40 READ  PUT  AND 2b< 1584 READ  TROFF  NEXT 2b($ed) TRON ' 4656 READ  NEW 4 LOAD i2b LOAD k($ec)($e9) 43040 ($ec)($e9) 43042 ($ec) TRON  43265 O0 VERIFY 40 TROFF O CLOAD 2b($fe)o($ec) TRON A0 TROFF REM REM line numbering breaks here! REM CLOAD  TRON ($fe)]($ec) TRON /($ec)"'!($ec) TRON ' ($ed) TRON + ($ec) TRON ' ($ed) TRON 0 TROFF  4 SWRITE SAVE o ELSE ($ec).' 11971 REM REM line numbering breaks here! REM 2($e9) 13318 o TROFF REM REM line numbering breaks here! REM CLOAD FLREAD TROFF 10220 TRON "+ REM REM line numbering breaks here! REM ($ed) TRON "< 1584 TROFF 4332 d FWRITE 2d' REM REM line numbering breaks here! REM ' FWRITE <($FFFF)2b9< 2b94_O4($ec) TRON "4($ec) TRON 4($ec)f GET 2f' 4656 READ  DSKINIT 4 LOAD  NEXT 2b LOAD  READ 2b94($ec) VERIFY  REM REM line numbering breaks here! REM OFF ($ec).' & n0 READ -4($ec)b~2b' 89 ($ec) EXEC ' REM REM line numbering breaks here! REM &"0 TROFF O40 TROFF  40 TRON Q40 TROFF  40 READ  DEF 62h($ec) EXEC ' &"0 TROFF 4144 TROFF  40 TRON Q40 TROFF  40 READ  INPUT  2h_O2b9($ec) VERIFY 4($ec)b40 TROFF O40 TRON $40 TROFF  40 READ s SWRITE 2j($ec),'($ec) VERIFY 4($ec)b40 TROFF O40 TROFF  40 READ d NOT 2h2b942|_O($ed)b($ed) VERIFY ($ec)d SWRITE VERIFY  FLREAD ELSE - FOR STEP REM REM line numbering breaks here! REM &($ec) VERIFY ' 3308 VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ' 57068 d SWRITE VERIFY 4($ec)f SWRITE b FLREAD ELSE - SWAP ($f1)($ec) VERIFY + 58499 REM REM line numbering breaks here! REM ($ec)d SWRITE VERIFY o ELSE 2f9< GO 40 READ c2b($ed) TRON < 1584 TROFF REM REM line numbering breaks here! REM CLOAD 4($ec) TRON S2d< 40 TRON y4($ec) TRON A2d0 TRON y+ 1584 TROFF REM REM line numbering breaks here! REM CLOAD FLREAD ON  SAVE ($f1)&.0 TRON y+ 1584 TROFF REM REM line numbering breaks here! REM CLOAD FLREAD ON  SAVE ($f1)&0 TRON y+ 1584 TROFF REM REM line numbering breaks here! REM CLOAD FLREAD ON  SAVE ($f1)&< 24399 942}_O($ed)a($ec)a SCREEN c FLREAD NEXT ')($ec)c SWRITE a FLREAD ELSE > SWAP VERIFY ]'($ec)a+ 24963 26420  FLREAD b SAVE ($f1)' DIR < 25913 ($ec)a SCREEN g FLREAD NEXT O2e942|_O($ed) VERIFY ($ec) VERIFY SCREEN d FLREAD NEXT ' ($ec) VERIFY + 58499 REM REM line numbering breaks here! REM  ($ec)_O($ed)b($ec) VERIFY + ($ed) VERIFY '  SWRITE d4($ec)d SCREEN j FLREAD NEXT SWAP ($f1)($ec)b+ 25219 26854 NEXT STEP REM REM line numbering breaks here! REM '($ec) VERIFY ' ($f9)- BEEP ($ec) VERIFY ' 4656 READ ($fc)4 LOAD A2b_OC2f942~_O($ed) VERIFY ($ec) VERIFY SCREEN b FLREAD NEXT ' ($ec) VERIFY + 58499 REM REM line numbering breaks here! REM  ($ec)($ec) VERIFY ' /.($ec) TRON ' 9708 TRON ' 43026 + 43265 O4 SWRITE SAVE 4($ec)b' REM REM line numbering breaks here! REM ($ed)b SCREEN d FLREAD NEXT SWAP ($f1) >($ec) TRON ' 4656 READ  TRON 4 LOAD  BOOT 2b_O COPY 2d94($ec) VERIFY  FREAD ' 5868 VERIFY 40 READ  SET 4 LOAD  PCLS 2d LOAD  PRESET 2b90 READ  PCLEAR 4 LOAD  CLEAR 2b0 READ >4 LOAD  INPUT 2b0 READ  PROTECT 4 LOAD |2b0 READ ($f3)4 LOAD o2b0 READ  4 LOAD b2b0 READ 4 LOAD U2b0 READ +4 LOAD H2b_OJ9* Skipping directory: 's'. Error #d REM REM line numbering breaks here! REM dsave: unknown option- c / /D0 / /D1 dsave: unprocessed arguments t chd s tmode .1 -pause load copy load cmp .. r dsave: error in reading path / .. r r unlink cmp unlink copy tmode .1 pause dsave: dir level too deep for indent . dsave: cannot open directory sMakdir s sChd s r / sChd .. .. r . dsave: cannot open directory dsave: seek error os9boot sOS9Gen s ss/OS9Boot sOS9Gen s ss sCopy s s/s s sCmp s/s s . dsave: error path too long dsave: error path too long dsave: cannot change directory to s Use: DSAVE <-opts> opts b = include bootfile i = indent dir levels l = only one dir level m = omit makdirs s = alter mem size v = verify copied files  245 ($f1) 2847  ) 0 / _ SWAP STEP DELETE FOR GO ' READ ~'($f6)0 PCLEAR STEP REM REM line numbering breaks here! REM DELETE FOR GO ' READ n&($f6)o SREAD o REM CLEAR NEW O_4 ' 13318 ($f4)40 VERIFY 40~40-o FOR PSET VERIFY ($fa)53^0 AND  RESET RESET 0 AND  RESET RESET 0 AND & RESET  RESET # DATA  NEW  DATA  NEW ! DATA  NEW ,O NEW L NEW "L NEW -($ec)-+ REM REM line numbering breaks here! REM  RESET 253 ($f1)| 8231  GO 94 LOAD ' LOAD  REM REM line numbering breaks here! REM ($f5)($ec) VERIFY  2b97 V42($e9) 262 4($ec)($e9)40d REM REM line numbering breaks here! REM 2d($ec)($e9) 40b 2b2($e9)9 0X42($e9) 260 4($ec)($e9)40d 25648 VERIFY  REM REM line numbering breaks here! REM 2($e9)9 966 42($e9)($fe)($f3) SCREEN ($e9) FLREAD FOR PCLEAR ($e9) SWAP VERIFY ]' FLREAD VERIFY STEP '($ec)($e9) + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 b SWAP ($f1) COPY 0m PCLEAR i< 25711 g/ SWAP hof FLREAD ($f9) STEP -&($ec)($e9)+ REM REM line numbering breaks here! REM ($ed)($e9)/ SWAP g FLREAD ($f9)O]+ 6630 ($f9) STEP 0&/0 SWAP h0($e9)F($ed)b _O($ed)b FLREAD ($f9) STEP .&($ec)($e9)+ REM REM line numbering breaks here! REM ($ed)($e9)0($e9)"($ed)d/ SWAP f SCREEN ($e9) FLREAD FOR PCLEAR ($e9) SWAP VERIFY FLREAD VERIFY O STEP d' STEP u'H STEP x' H STEP o' H STEP c' l STEP s' 320 ($ec)($f9)' 9196 i+ REM REM line numbering breaks here! REM ($ed)i' 4/- SWAP ($f1)($ec)($f9)@P REM 275 ($ec)b' 25286 SWAP a / SWAP a / SWAP a FLREAD aO4 SCREEN ($e9)($ec) GO PCLEAR ($e9)40m 2dO4($ec)d AUDIO SAVE ($ed)b 27075 REM REM line numbering breaks here! REM ($ed)i' 1710 ($e9)($ec) GO PCLEAR ($e9) SWAP ($f1)($ec)b' REM REM line numbering breaks here! REM ($ed)b 26150 < REM REM line numbering breaks here! REM ($ed)d SCREEN ($e9)($ec) GO PCLEAR ($e9)($ed)k FLREAD ($f8) '(($ec)d'$($ec)i+ ($ed)i' 1710 m FLREAD FOR PCLEAR m SWAP ($f1)($ec)d' REM REM line numbering breaks here! REM ($ed)d($ec)b' 25120 COPY o($f8) 0m PCLEAR i FLREAD g&&($ec)b' 25283 REM REM line numbering breaks here! REM ' 5868 ($e9) + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 j SWAP ($f1) ERROR SCREEN i FLREAD FOR PCLEAR i SWAP ($f9) ]' ($ec)($e9) + REM REM line numbering breaks here! REM ($ed)($e9) FLREAD FLREAD g'($fe)($ec)b' 25283 REM REM line numbering breaks here! REM ' /($fe) 269 + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 j SWAP ($f1) FREAD ($ec)($e9) + REM REM line numbering breaks here! REM ($ed)($e9) ' 1766 b SWAP ($f1)($fd) COPY o($f9) 2($e9)942}($ec)($f8)($ed) VERIFY ($ec)g4($ec)k 25324 ($f8)+ REM REM line numbering breaks here! REM ($ed)($f8)' 1766 d STEP $ FLREAD d=0  FLREAD d=7 SWAP ($f1)($ec)g4($ec)k REM REM line numbering breaks here! REM V($ed)g+ 11756 g4($ec)k 25324 ($f8)+ REM REM line numbering breaks here! REM ($ed)($f8)' 1766 d STEP $ FLREAD d=0  FLREAD d=7 SWAP ($f1) + SCREEN ($f8)o ELSE ($ec) VERIFY  REM REM line numbering breaks here! REM ($ec)($f8) AUDIO VERIFY O2e9 NOT  1489  i REM 42{_O($ed)b LOAD ($ed) VERIFY ($ec) VERIFY ' REM REM line numbering breaks here! REM ]($ec) VERIFY  AUDIO e& G($ec)b'($ec)b+ 1710 b($ec)($ed)($f1)  SCREEN VERIFY ($ec) MERGE od($ec)e 26086 O REM REM line numbering breaks here! REM l'($FFFF)&/ SWAP d($ec)e 25639 <($FFFF)2g9< 26425 ($ec) VERIFY ($ed)b SCREEN VERIFY ($ec)($ed) VERIFY  INSTR <($FFFF)2g94($ec) VERIFY + 486 ELSE -]' SCREEN VERIFY ($ec) REM REM line numbering breaks here! REM &($ec) VERIFY  POKE '($ec) VERIFY  POKE '($ec) VERIFY  POKE &2b9($ec) VERIFY  2b9_ RUN E42~_O($ed) VERIFY SCREEN ($f8) FLREAD ELSE O (+ ' SCREEN ($f8) FLREAD FOR PCLEAR ($f8)O4($ec)b4< 17 SWRITE SAVE ' REM REM line numbering breaks here! REM 0($ed) VERIFY CREATE ($ec) VERIFY 2d9 NOT #4 LOAD 4($ec)b 2b2b9 R42{_O($ed) VERIFY ($ec)e 1 ($ed)b($ec) VERIFY  AUDIO b, 58542 e FLREAD NEXT SWAP d($ec)e SWRITE VERIFY 4($ec)d SCREEN g FLREAD NEXT SWAP ($f1)($ec)e SWRITE b4 FLREAD f SWAP ($f1)($ec) VERIFY + 58604 b' 25110 ($FFC6)2g9 SOUND 42($e9)($fe)($f9)($ec)($e9)  59649 ($ed)a0g PCLEAR c FLREAD ($f8)' REM REM line numbering breaks here! REM RESTORE FLREAD ($f8) STEP & 3559 ($f8)< 12393 4 SCREEN ($e9) FLREAD O 25616 '($FFFF)&<($FFFF)2($e9) 90g PCLEAR c REM REM line numbering breaks here! REM N FLREAD ($f8) STEP &6($ec)c0g4 AUDIO SAVE 4< 141 4< REM REM line numbering breaks here! REM  AUDIO SAVE ($ed)e($ec)e'*($ec)c+ ($ed)c' 1734 SWAP ($f1)($ec)e' REM REM line numbering breaks here! REM ($ed)e SWRITE ($ec)c+ ($ed)c' 1766 ($f8) SWAP ($f1)($ec)a+ 24854 ($FF69)o($f8)($ec)c0g4 AUDIO SAVE ' 26399  1584 i4 SCREEN ($e9) FLREAD O REM REM line numbering breaks here! REM 2d'($FFFF)&<($FFFF)2($e9) 9($ec)($e9)2($e9) 9-= TRON 4 LOAD 4($ec)b 2b2b94($ec)d+ 492 ELSE ' REM REM line numbering breaks here! REM ($ed) ELSE ' 5612 ($f8)+ REM REM line numbering breaks here! REM ($ed)($f8)' 1766 c SWAP ($f1)O < 1772 f4 FLREAD eO REM REM line numbering breaks here! REM 2d2b94 LOAD 4($ec)b($FFB6)2b2b942} FLREAD d SWAP b($ec)g+ 486 ELSE - STEP REM REM line numbering breaks here! REM '($ec)g+ 486 ELSE -0 STEP REM REM line numbering breaks here! REM '<($FFFF)2e9 FLREAD j'< 607 O4($ec)i+ 1740  REM REM line numbering breaks here! REM AUDIO ($f1) AUDIO SAVE ($ed) VERIFY ($ec)g+  FLREAD ELSE - STEP 46 SCREEN g($ec)&(($ec)g+ 1740  237 ($f1)' REM REM line numbering breaks here! REM &($ec)g+  FLREAD -> SWAP - _O($ed) VERIFY ($ec)g+ 486 ELSE -]' REM REM line numbering breaks here! REM 4 FLREAD j' 1 40d4 SCREEN k FLREAD O 25616 '($FFFF)& 26563 998 -> SWAP -<($FFFF)2e9($ec) VERIFY '-($ec) VERIFY 4 SCREEN i($ec)4 SCREEN k FLREAD O REM REM line numbering breaks here! REM LET 2d'($FFFF)&($ec)g+ 998 -> SWAP -<($FFFF)2e9($ec)g+ 1772 i+ 486 ELSE -]'_O < REM REM line numbering breaks here! REM ($ed)($f1) SCREEN g($ec)($ed)($f8) FLREAD j'-($ec)g+ 486 ELSE - STEP 60664 + REM REM line numbering breaks here! REM ($ed)($f8)' 4 FLREAD f SWAP ($f1)($ec)g+ 1740 REM REM line numbering breaks here! REM ($FFED)($f1) FLREAD dO2e94_O4($ec)b4_O($fe) DEF 2d2b9 824 42x($ec)h+ 22084 V+ REM REM line numbering breaks here! REM ($ed)f($ec) TROFF O($ed)b' 5168 TROFF K PCLEAR b PCLEAR TROFF O PCLEAR TROFF K_O($ed) TROFF M($ec)($f8)($ed) VERIFY SCREEN VERIFY ($ec) AUDIO f REM REM line numbering breaks here! REM K SCREEN VERIFY ($ec) AUDIO f&($ec)($f4)($ed)($f8) -($ec) VERIFY + ($ec)- AUDIO f($ed)-($ec) VERIFY + 492 ELSE XIXI4($ec)b SWRITE SAVE ($ed) VERIFY ($ec) VERIFY + 1772 h($ed)($f1)($ec)b($ed) TROFF O($ec) VERIFY + REM REM line numbering breaks here! REM 2j9($ec) VERIFY  AUDIO TROFF O& /($ec)fXIXI FROM ($ed)d'($FFFF)&_O2j9($ec)d+ 4($ec)h($ed)($f1)($ec)d+ 17 ($ec) TROFF O($ed) VERIFY ($ec) VERIFY ($ed)b($ec)($f4)($ed) VERIFY ($FF65)42|($ec)d' REM REM line numbering breaks here! REM ($ed) VERIFY ($ec) TROFF O($ed)b($ec) VERIFY  AUDIO b#($ec) VERIFY  AUDIO ($f8)($ec)b AUDIO ($f8)($ec) VERIFY  AUDIO b"($ec) VERIFY  AUDIO ($f8)($ec)($f8)($ed)b($FFD2)($ec) VERIFY + 492 ELSE XIXI SWRITE VERIFY  AUDIO ($f8)&($ec)($f8)+ 1772 b+ REM REM line numbering breaks here! REM ($ec)- SWRITE ($f1)($ed)- SCREEN ($f8)($ec) ELSE ($ed)($f4) ($ec)($f8)($ed)($f4)($ec)b+ 492 ELSE XIXI SWRITE b AUDIO VERIFY &($ec) VERIFY + 1772 d+ REM REM line numbering breaks here! REM ($ec)- SWRITE ($f1)($ed)-($ec)($f4)($ed)($f8) ($ec) VERIFY ($ed)($f8)($ec)b($ed) TROFF O2f9H4 FLREAD a STEP 0 FLREAD a STEP 9"/ _O2b94 FLREAD aO + ' FLREAD a=  FLREAD aO2b9 1766 a STEP A FLREAD a STEP Z"/ _O2b942~($ec)b($ed) VERIFY FLREAD ($f4)' ($ec) VERIFY + REM REM line numbering breaks here! REM ($ed) VERIFY ($f3)($ec) VERIFY AUDIO b2d92{o VERIFY READ 3($ed)a($ec)g READ -($ed)g DELETE b FLREAD h=($ed)c DELETE a FLREAD h= DEF _ SWRITE c($ed)c DELETE b FLREAD g= DEF _ SWRITE cm VERIFY *@P REM 12905 n ELSE M*cb@P REM REM REM line numbering breaks here! REM 9 SCREEN b READ {4 PCLEAR c5 ($f7)4 LET 288  SCREEN b READ b4 PCLEAR c LET ($FF35)  LET ($FFFF)($f6)2}4($ed)b&5 > DATA  EDIT amb+hcibla ($f4)($ec)fofog AUDIO b$ SWRITE b($fe) igifdbfcja&($e8)54($ec)f5*@P REM REM REM line numbering breaks here! REM SCREEN c2gn ELSE 4@4 TRON SAVE ($fe)4 READ 0 READ 5 STEP M*@P REM 1584 TROFF ($FF03)@P REM REM REM line numbering breaks here! REM COPY 13344 ?5 5 LOAD REM REM line numbering breaks here! REM 0 NEXT RESET 9O MERGE <($FFFF)9 DATA ? DATA $ MERGE <($FFFF)9O_9 DELETE c? ELSE b INPUT O9 DEF ? RUN WO_94  DEF SCREEN d SCREEN f? INPUT 5B94  DEF SCREEN d SCREEN f? END 5-94  DEF SCREEN d SCREEN f? NEXT 594  DEF SCREEN d SCREEN f? DIM 59O MERGE <($FFFF)9 DATA  FLREAD c+ DEF ELSE >4?'5P$4? PRINT 5 DSKINIT 0?' BEEP  INPUT O94 SCREEN d($ec) ELSE ($ed)d_ DELETE  SWRITE f($ed)f5 DEF FLREAD g SCREEN b($ee)dZ& /? READ TROFF Z&/? READ LLIST  SWRITE d($e9)c TROFF b? ON END O_9? PRINT FOR O_9?dsav FROM Y INPUT / T  NT ($f4)  135 USING N 33124 $Dum($f0)Addr 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 2 4 6 8 A C E ---- ---- ---- ---- ---- ---- ---- ---- ---- ---------------- 0 1 2 3 4 5 6 7 0 2 4 6 ADDR 8 9 A B C D E F 8 A C E ==== +-+-+-+-+-+-+-+- + + + + 4 DELETE FOR GO '($fa)0 GO -&" FLREAD  STEP L' STEP l& 0 REM REM line numbering breaks here! REM / DSKINIT RENAME STEP H' STEP h&0 CHAIN GO 5 ELSE DATA ? NEW < 215  MERGE  READ SUB ' DATA ? ELSE  653 SCREEN ' DATA / ?' 972 1037 '1 REM REM line numbering breaks here! REM &*?&) ]&$0 READ ($FF25) RUN 0 READ ($fe) CLS 12429 ($FF17) REM REM line numbering breaks here! REM FOR 0 READ ($fe) BEEP &0 READ ($FF48) READ r0 AND  DATA DRIVE EDIT FOR Z&($fb)0 AND  RESET  CLEAR  READ o CLEAR  READ k0 AND # RESET 0 AND L RESET  LET 38 0 AND " RESET 0 AND 3 RESET  LET 19862 ? INPUT : DSKINIT  READ ^Z' READ Y 34336 READ GZ&($ee) DATA NEW \ REM REM line numbering breaks here! REM & NEW ;0 AND  READ  LOAD  KILL  INPUT ($FF57) LET P CLEAR ? DIM 9 STEP COPY &_?4DDDD READ  DELETE VERIFY READ 5 REM ELSE  GO # NEXT  NEXT 04 SET  EDIT FOR RESET 5 RESTORE DELETE FOR READ ERROR 4 ELSE  GO  GO ~ DATA . SET EDIT FOR RESET 5 STOP J($f9)($f5) FROM FROM / T  "T ($f8)  135 USING 3345 GO REM REM line numbering breaks here! REM  OFF Ech($ef) DATA ? DIM _?($f5) INKEY$ FROM FROM PRINT 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 KILL ` &"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) ~($fa) COLOR {($fd) RENAME f RESET RESTORE 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 29152 $($f0) REM REM line numbering breaks here! REM j($f0)  SUB ($f0) yp  CLS ($FFFF)($FFF0)0123456789:;,-./@abcdefghijklmnopqrstuvwxyz  0!"#$&'()*+<=>?|ABCDEFGHIJKLMNOPQRSTUVWXYZ [\]^~`{|} {_}\    PLAY [ SUB ELSE 0 NEXT CLOSE 5 DATA A& COPY SCREEN E DELETE FOR 4($fd) MERGE ($fb)($ea)' SUB ($ec) EXEC SET 4 RESET # LOAD  AUDIO VERIFY MERGE  LOAD  AUDIO VERIFY MERGE  LOAD  AUDIO VERIFY MERGE 554 AUDIO SAVE MERGE 7 NOT 4@ SCREEN E($f8)B0 DIM  DATA / 784 LINE  2563  REM REM line numbering breaks here! REM @ V   DELETE 7  CLS W   W  TROFF   PMODE U6 U  DEF 78 ORSKE PROGRAMMER : GO51N :=================== GO51N : NORSKE BOKSTAVER P] SKJERMEN ISTEDET FOR BLANT ANNET KLAMME-PARANTESER. GO51N.HKBD : NORSKE BOKSTAVER FINNES P] 1 TIL 9. SCREEN E FLREAD FOR SAVE ELSE & LOAD REM REM line numbering breaks here! REM MERGE 7 NOT  ($ec)&> DATA ? ELSE +/ MERGE 7 NOT LOAD  POKE ' ]' ? RUN  PSET PRINTERR /D0/SYS/ERRMSG SETIME J&^ READ  NEW  FOR  NEW NEW READ q '4 SET CLEAR ' CLOSE ' 0 READ BACKUP  SET  DATA  NEW  DRIVE : RESET 5 READ P EDIT CLS *($f8) CLEAR L'0 READ 528 LET 16268 _($FF4E) CLEAR & DATA EDIT SOUND DATA  LET REM REM line numbering breaks here! REM ($FF30) AND ? DIM ($FF63) CLEAR  SET 0 AND ? END $($FF54)($FF25) STEP COPY ' BACKUP ($FF1E) READ  NEW  DELETE FOR READ HHHH ELSE ($f0)4 DELETE FOR READ PCLS RENAME NEW  OPEN  NEW  CLEAR 9 FOR 0+ GO / FOR  GO "90 READ  RUN ** NON-HEX CHARACTER ENCOUNTERED ** CHECKSUM ERROR DETECTED ** NON-CONTIGUOUS ADDRESS SPACE DETECTED  FWRITE 4 FROM FROM / T  CLEAR T  135 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 / T   BOOT T   135 USING  BOOT REM REM line numbering breaks here! REM  GO ($fb) EDIT aFre FROM  Use: Free [/diskname] tells how many disk sectors are unused " created on RENUM Capacity RENUM sectors TRON -sector clusters TROFF Free sectors, largest bloc($eb) sector($f3)1M RESET ' '. DELETE FOR GO '( GO /'0 READ ($FF52) LET 528 ? DIM 04?5 FROM DELETE FOR B NOT $($f7) DATA @940M RESET  DATA ? ELSE NEW  0 AND ] LET REM REM line numbering breaks here! REM ?? INPUT  BEEP " DATA "1 AND | DATA THEN EDIT OR 251 1 READ ($FF35) 374 1 READ ($FF35) REM REM line numbering breaks here! REM FROM 0 AND ]"1 READ ($FF31) FREAD  LOAD c4o SREAD 0 VERIFY 2c1 READ ($FF25) 213 O_ NEW  MERGE  NEW MERGE NEW  MERGE  CLEAR  LET 16590  REM REM line numbering breaks here! REM ? ON 5@0 OR RESET <  POKE a# LOAD a1 NEXT  RESET LLIST  CLEAR ? INPUT G DELETE FOR READ F SWAP SREAD ' LOAD  COPY c MERGE $ j VERIFY &($f2)2a CLOSE LLIST VERIFY LOAD a' 8895 READ @0D REM REM line numbering breaks here! REM LLIST 1 READ ($fe)^ READ T0G STOP 1 READ ($fe) FREAD READ I READ ] CLEAR ? RUN _?_ GO ($FF27) READ READ READ H\4 LOAD COPY c MERGE $ 5 DATA 4 LOAD  POKE "& DRIVE BOOT # NEW  LOAD MERGE    5 DATA DELETE EXEC ELSE  READ  DELETE CLS *($f6) DATA 4 SET  EDIT FOR RESET 5 RESTORE 42 DATA READ ($f0)0M RESET  LET P DATA ? DIM 5 PAINT DEF CLEAR FOR B@ DATA CLS ' ($e8) d 1 DATA 461 DIM SAVE  REM REM line numbering breaks here! REM FLREAD ELSE SCREEN  DATA ($FF4C) AUDIO ! SREAD EXEC $($f5) READ N SWRITE !($e9) EXEC 1#j VERIFY ' DELETE VERIFY GO & NEW 9943 j VERIFY REM REM line numbering breaks here! REM ' BOOT DATA , READ INPUT =5 PCOPY 0 AND w READ  READ 6143 y REM REM line numbering breaks here! REM FLREAD FOR DATA ($FF4C) NOT d$($fb) READ DATA NEW 2596 ($fb) READ  DEF M' NEW REM REM line numbering breaks here! REM &9 NEXT 0($FF50) SWAP  LLIST FROM FROM FROM / T  SET T $ 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 / T   SWAP T /  135 USING  SWAP REM REM line numbering breaks here! REM  GO OR = CLOSE Iden($f4) Use: Ident [-opts] [-opts] to display module header. -m to display module in memory. -s for short form. -v for no CRC verification -x for file in execution directory Module header is incorrect MOTOR Header for: CLS Module size RENUM Module CRC: CLS Hdr parity: CLS Exec. off: CLS Data Size: CLS Ty/La At/Rv RENUM Edition: CLS mod PSET re-en PSET non-shr PSET R/ BACKUP R/ DSKINIT (Good TROFF (Bad) PRINT  $)-27 DRIVE * FOR ' 1 READ ($fc) ELSE 1 1 READ ($fc) GO (*@'1 READ ($fc) GO 1 READ ($fc)x*9 '  SET ($ec)$1 PCLS 1 OR 255 DELETE EXEC NEW 9/M SET  FLREAD &$ READ 2 ' DATA  READ 8M& DATA . 320 READ STEP SET REM REM line numbering breaks here! REM 40 AND " RESET 3096 OY5 RESET REM REM line numbering breaks here! REM  BEEP 9 DATA $ NOT LOAD ! DRIVE 9<($FFFF) MERGE  DSKINIT 4p3 AND  ' SET  SCREEN ?($fe)c 4P SET  PROTECT CLEAR ? ON 5P($fe)P LOAD 4 READ 75 MERGE 5p CLEAR  GO FOR & LOAD ' SWRITE &  DATA ?9O9 CLEAR  SET  SET  CLOSE # SET ? INPUT  RESET 9 READ ($e8)($fe) SET '($f5)? LOAD  POKE  MERGE &($ea) MERGE 94 READ R/ READ z5 READ k READ 294-($f0)TTTT DATA $ READ  653 `5 DATA 4- ($ed) DELETE EXEC ELSE  READ  DELETE CLS *($f6) DATA 4 SET REM REM line numbering breaks here! REM EDIT FOR RESET 5 RESTORE 42 DATA READ ($f0)0 AND " RESET 80 DATA ? DIM 5 PAINT 4 DATA $ READ ERROR 5 READ .94 DATA $ READ BACKUP 5 READ '94 DATA $ READ -5 READ :94 DATA # READ DLOAD 5 READ ?94]/ READ PCLS Z ($f8)5 DATA READ  READ 4 DATA READ CLOSE 5 REM  INPUT READ  INPUT 4-($f0)TTTT READ 5- STEP #==0 INPUT ($FF79) INPUT 94d3 DIM , LET REM REM line numbering breaks here! REM o VERIFY AUDIO -l VERIFY ($f8) SWRITE STEP 4 FLREAD a INPUT READ  INPUT 5 DIM 524 1?& LOAD 5 VERIFY '($e8) REM REM line numbering breaks here! REM d M' NEW  & ' DATA 9 NEXT 0($FF24)T NEXT PAINT FROM / T  ,T 7  135 USING 3345 GO  REM REM line numbering breaks here! REM  OFF Lin($eb)O_? DELETE FOR GO ,'($f3) DELETE REM GO &($ed)_?($f6)= CLS / T  OT 9  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 &>_?X TO  FROM / T  $T ;  135 USING 3345 GO REM REM line numbering breaks here! REM  OFF Loa VERIFY ? DELETE ELSE GO &($f5)_?&s GO / T  ($e8)T =  135 USING ($e8) 33219 !($f9)Logi($ee) SYS/PASSWORD ,,,,,,,,,,,,,,, OS-9 Level I V1.2 User name?: Who? Password: Invalid password. Process # logged on Welcome! Directory not found. Syntax Error in password file It's been nice communicating with you. Better luck next time. SYS/MOTD ../../../../.. 2 OR  1 OR  INPUT  RESET ($ed) SWRITE ' DELETE FOR EDIT CLS GO &($f8) DATA 0 READ ($FFD4)? DATA DATA 0 READ ($fe)<? ELSE  NEW REM REM line numbering breaks here! REM DATA  NEW ($ec) SAVE ' SET  DELETE ELSE GO &(0 READ ($fe)= LET + 0 READ ($FF59)+0 OR  INPUT RESET 0 READ ($fe)/ LET 287 c$ 0 READ ($fe) STEP  REM REM line numbering breaks here! REM ($f8) DIR {$7 SET  DELETE ELSE GO & DATA , EDIT FOR RESET 0 READ ($fe) LINE  LET 254  288 DIR U$0 OR  INPUT RESET 2$>0 READ ($fe) RETURN THEN CLEAR REM REM line numbering breaks here! REM ? RUN  INPUT  FN K($ed)) FOR M& CSAVE ]' 16140 ? NEW  DATA 0 READ ($FF0E)? ELSE $O NEW  DATA  READ W DATA  READ S0 READ ($fe)d LET 31536 C EXEC 0 READ ($fe)_ READ v0 READ ($fe)e READ f"_ SET 3 ELSE DELETE NOT GO 0$($fa) GO ,'3_ DELETE NOT GO '($fa)3_4@ LET REM REM line numbering breaks here! REM DELETE NOT 1! GO &($f8)5@< 1296 ?? SET ? DATA  SET  DELETE FOR GO ' GO ,&($f6) DATA MOTOR FOR '($fc)0 REM RESET 90 READ ($fe) 0 READ ($fe)& READ _? LET  4159 DIM 9 READ ($f8)0 READ ($fd)($f6) LET REM REM line numbering breaks here! REM  READ ($ee) ($eb) READ ($e9) SET  LET 4159 NEXT 940 OR  FWRITE / 16269  DELETE ELSE GO 42500 4o READ 5 EDIT 5 CLEAR DATA LOC ELSE 5 CLEAR 40 OR  FWRITE DELETE ELSE GO REM REM line numbering breaks here! REM &/ O? LET 5 NEW 4@ CLEAR 51 ELSE ? ON 5@ CLEAR 265  LET REM REM line numbering breaks here! REM FOR ? NEXT  RESET  READ ($eb) RESET 9 SET  SET  DELETE FOR GO ,' GO ' TRON CLS ELSE WAIT '($f0)S90 DELETE CLS GO ,' GO 0$($f2)1? DELETE CLS GO '($fa)1? RESET  RESET _9($FF41) CLEAR '0 OR  INPUT  LET 16267 $($ec) CLEAR ? RUN _9 SET O_46 FLREAD FOR NOT 0 STEP "O LET REM REM line numbering breaks here! REM SWRITE VERIFY ($FF06)1?&($f6)($ed) VERIFY FROM DELETE  GO ,&($fe)($f6) RESET 5 PCOPY 0I? READ  DATA READ  READ  DATA 46 DATA  LET 0 VERIFY ? DIM 5 PCOPY READ  READ 8198 READ  READ REM REM line numbering breaks here! REM DATA / READ SAVE FLREAD FOR DATA /L NOT d$($fb) READ  DATA :J= $($fb) READ = DEF NEXT 0 *  GO 0& THEN & TAB(9j:/ T  "T B  135 USING 3345 GO REM REM line numbering breaks here! REM  OFF Makdi($f2)/ THEN ? IF _?o5 FROM FROM / T   DELETE T D  135 USING  DELETE REM REM line numbering breaks here! REM  GO RUN f'Mdi($f2) Module Directory at ADDR SIZE TY RV AT UC NAME ---- ---- -- -- -- -- --------- RESET 0 DIM EDIT  LET  DATA ? DIM 0I?0O RESET 0L 229 FN 252 560  SET  DELETE CLS ON E ELSE WAIT &30 READ SIN  LET 272 ? DIM SET REM REM line numbering breaks here! REM f SCREEN ELSE '"($ec)$1 PCLS  144 DRIVE  NOT  STEP " NOT "($fc)&($ef)  REM REM line numbering breaks here! REM OPEN 1O RESET 0 CLOSE  COPY  READ 81O RESET  SCREEN ELSE '(($ec) ELSE READ .($ec)" READ * DELETE & READ . DELETE ' ELSE  READ ( FLREAD ' DATA r READ W READ I READ G DELETE  READ ($ec)$1 PCLS READ P READ Y0 CLOSE  AND _? READ  DEF READ  ) READ  4DDDD READ  DELETE RENAME ELSE M' NEW  & DATA NEXT 0 GO 9# NEXT   DATA 4 SET  EDIT FOR RESET 5 RESTORE Y($f3) DATA . ($ef) DELETE EXEC ELSE  READ ($e9) DELETE CLS *($f6)942 DATA READ PROTECT 0O LET 272 ? DIM 5 PAINT READ  READ REM REM line numbering breaks here! REM DATA : READ OR FLREAD FOR DATA /L NOT d$($fb) GO 0' READ RENUM DATA :J= $($fb) READ CIRCLE  DEF NEXT 0 PCLS -Y TO FROM FROM / T  hT G  135 USING 3345 GO @ REM REM line numbering breaks here! REM  ^Merg FROM 4@ RESET ' AUDIO SAVE MERGE 3G WAIT  SET  READ 4_ GO ', DATA ? ELSE NEW RESET  CLEAR 1438 ? INPUT DATA ? END $($ed) STEP COPY & CLEAR REM REM line numbering breaks here! REM ? RUN $ ..reads (std input) pathnames until eof, merging paths into new OS9Boot file. Can't find: Error writing kernel track Warning - Kernel track has not been allocated properly. Track not written. Error - OS9boot file fragmented This disk will not bootstrap. RENAME TempBoot ($FF4F)S9Boot ($FF5F) DSKINIT  WAIT REM REM line numbering breaks here! REM DATA / MOTOR ELSE &($f8)?($f1) DATA / MOTOR EXEC '($e9)1 AND 1 EDIT CLS DELETE FOR Z*($f9) RESET / DATA @/ ($ed) MOTOR 0 AND 1 DATA ? ELSE NEW  AND SET /1 READ ($FFAA) DATA / EDIT FOR DELETE CLS *($fa)1 READ FRE$ DELETE CLS EDIT FOR *($fa)0 AND 14 AUDIO SAVE MERGE DATA /?' NEW  TROFF LET 1742 @ 4159 LET  DEF PROTECT REM REM line numbering breaks here! REM O0 AND Q LET  ? NEXT K DELETE ELSE / COPY GO 'C DATA ? ELSE + NEW  CLEAR 0 AND Q LET  ? INPUT  COPY  MERGE  CLEAR ? END $ FROM Z STEP COPY &T? RUN DLOAD 40 AND Q LET  DATA ? DIM > STEP COPY &($f9)0O/ CLEAR ? READ - CLEAR  LET 1734 ? LET  PROTECT REM REM line numbering breaks here! REM ? RUN  SCREEN AND # DELETE AND _ CLEAR ? ON PROTECT  20752 LET  REM REM line numbering breaks here! REM ? INPUT  ($f2)($ec) AND i& ($ee) CLEAR  LET 21 ? ON PROTECT 218 0H LET REM REM line numbering breaks here! REM ? INPUT  2855 " SET /1 READ ($fe) EXEC DATA / EDIT FOR DELETE CLS *($fa)0 AND 1? PRINT SET /1 READ ($fe) DATA DATA / EDIT FOR DELETE CLS *($fa) DATA _0 READ ($fe)p SET 3 AND 1? REM REM line numbering breaks here! REM POKE ? DIM ]& PRINT PROTECT FLREAD AND a DSKINIT ($ec) AND b MERGE LOAD  MERGE LET 21 CLEAR ? ON PROTECT 102 0H LET REM REM line numbering breaks here! REM ? END  96 0 AND Q LET  REM REM line numbering breaks here! REM ? INPUT = DELETE ELSE ELSE ? ON ?& 392 ($FF10)& 644 RESTORE ON RESTORE & REM REM line numbering breaks here! REM G LET ($f0)  LET  4159 END ? RUN _ 0 READ ($fd)<_ 0 READ ($fc) DRAW 4 DATA  LET  REM REM line numbering breaks here! REM ? DIM 5?0 READ ($fd) INPUT _ ($e9)4@ CLEAR  LET AUTO  ? ON 5 NOT 0 READ ($fd)'_ COPY ($e9)C SWRITE FROM / T  ($f6)T Q  135 USING 3345 GO PROTECT REM REM line numbering breaks here! REM = VPrinter($f2)/D0/SYS/ERRMSG ,,,,,,,,,,,,Error #($FF0F)  FOR O0 DIM <? 12684 ($f0)?2_? SET K DELETE ON ('42($e8) LINE FLREAD B3 VERIFY EDIT - SWAP B READ D DATA 0 READ ($FFAC)? ELSE EDIT A READ & READ [ READ ! FLREAD ELSE STEP 0($f4) DELETE A? RUN 2($e8)V_9 READ READ K GO 0$($f6) SAVE B&($f2)9 DELETE A0E LET 16267 90 READ SQR 1E DELETE FOR EDIT CLS DELETE FOR *($fa) FLREAD B DATA /L NOT d$($fb) EDIT CLS DATA :J= $($fb) EDIT CLS  DEF NEXT 0/ ($ed) CLS 0E LET REM REM line numbering breaks here! REM P DELETE -? DIM 9_ DELETE FOR FOR 0 GO " 4 DATA =($eb) RENAME $($ef) DELETE 9 FLREAD p FROM FROM / T  ($e8)T S  135 USING ($e8) REM REM line numbering breaks here! REM  GO STEP 5456 roc($f3) Usr # id pty sta mem pri mod ----- --- --- --- --- ------ PRESET act CLS wai CLS sle CLS  34885 ELSE WAIT & REM REM line numbering breaks here! REM 0L RESET P FN 446 958 1470 2525 4@3 OR S DATA  SET  DATA  SET  DATA  SET  REM REM line numbering breaks here! REM ($fc) PCLEAR O_665@1 READ ($FF64) READ Y READ b1 READ ($FF7B) READ Q READ Z0 OR S0($ec)'A($ec) 128 FLREAD ELSE READ Y 909 R DELETE 1 READ ($FF71) GO ' 1 READ ($FF6E) GO '1 READ ($FF6B) READ  FLREAD  READ 6 REM REM line numbering breaks here! REM V SCREEN ($ec)$1 PCLS READ READ K READ  DLOAD _? DELETE EXEC ELSE  READ A DELETE CLS *($f6)942 DATA READ 60L RESET  LET 272 ? DIM 5 PAINT  DATA ($FF4C) NOT d$($fb) READ  DATA J= $($fb) READ  DEF NEXT 0 M' NEW & DATA ($f0) NEXT 04 SET EDIT FOR RESET 5 RESTORE '($e8) REM REM line numbering breaks here! REM d 511 460 DIM ($f0) LET / 1 TROFF  REM REM line numbering breaks here! REM AUDIO ELSE $($f8) SWRITE GO 4 m ELSE + LET /0'0 & LET / DATA READ FN 5 FREAD READ PLAY 2b5 PCOPY 4&0 ELSE '&($ec) 4243 &6 DELETE FLREAD VERIFY  SCREEN ON 6& DELETE 6 DELETE ELSE FLREAD ON &6 SCREEN & ERROR 5 DELETE 4 FN REM REM line numbering breaks here! REM dM'_DVDV DELETE DATA 'm EXEC &C5 CLEAR DSKINIT =4/ T  0T V  135 USING 0 REM REM line numbering breaks here! REM  GO  5 OR pw VERIFY pwd: bad name in path .. read error 0 OR 3495 ELSE RESET 0 READ ($FFE5) READ Q NEW 33756  MERGE CLEAR  NEW READ r'#0 READ ($FFCD) READ 4 CLEAR REM REM line numbering breaks here! REM ? RUN *0 READ ($FFC1) READ - READ b READ ; READ s LOAD  MERGE CLEAR  NEW FWRITE   SET  LET 272 ? DIM CLEAR REM REM line numbering breaks here! REM ? RUN _? DATA GO ? DATA 9 DATA GO ? ELSE 9 CLEAR 4238 REM REM line numbering breaks here! REM ? INPUT 9 CLEAR 9569 0N0 ON 1I READ &($ef)9($ec) GO  AUDIO MOTOR & DELETE ELSE MOTOR EXEC 90C1F READ ($ee)9 READ USING LOAD + MERGE  CLEAR - NEW  READ + LOAD + MERGE  CLEAR - NEW 90N? SET  DELETE SOUND ELSE  EDIT REM Z&($f7) DATA / EDIT REM RESET 9 CLEAR 12489 REM REM line numbering breaks here! REM PCLEAR ? READ READ LOAD 90 READ ($FF04) 0 READ ($FF17)  DATA ? END 9 READ ($f6)0 READ ($FF06) DATA ? DIM / ?($fb)\ NOT / T  0T Y  135 USING 0 REM REM line numbering breaks here! REM  GO  5 OR px VERIFY pxd: bad name in path .. read error 0 OR 3495 ELSE RESET 0 READ ($FFE5) READ Q NEW 33756  MERGE CLEAR  NEW READ r'#0 READ ($FFCD) READ 4 CLEAR REM REM line numbering breaks here! REM ? RUN *0 READ ($FFC1) READ - READ b READ ; READ s LOAD  MERGE CLEAR  NEW FWRITE   SET  LET 272 ? DIM CLEAR REM REM line numbering breaks here! REM ? RUN _? DATA IF ? DATA 9 DATA IF ? ELSE 9 CLEAR 4238 REM REM line numbering breaks here! REM ? INPUT 9 CLEAR 9569 0N0 ON 1I READ &($ef)9($ec) GO  AUDIO MOTOR & DELETE ELSE MOTOR EXEC 90C1F READ ($ee)9 READ USING LOAD + MERGE  CLEAR - NEW  READ + LOAD + MERGE  CLEAR - NEW 90N? SET  DELETE SOUND ELSE  EDIT REM Z&($f7) DATA / EDIT REM RESET 9 CLEAR 12489 REM REM line numbering breaks here! REM PCLEAR ? READ READ LOAD 90 READ ($FF04) 0 READ ($FF17)  DATA ? END 9 READ ($f6)0 READ ($FF06) DATA ? DIM / ?d@/ T  T \  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'd FROM FROM FROM / T  gT _  135 USING 3345 GO O REM REM line numbering breaks here! REM +Sav FROM 1?40 PSET b$F</?'? NEW 33037 & SCREEN VERIFY DELETE FOR GO '($fa) GO ,'($f6)0O? REM REM line numbering breaks here! REM # PCLEAR VERIFY 0- SCREEN  CLEAR ? END 4?f RENAME 5 SCREEN VERIFY PSET b BOOT ? RUN _? RUN v CSAVE FROM / T  T a  135 USING  REM REM line numbering breaks here! REM  GO 1  OFF Setim FROM  >> No Clock module found <<  >> Clock Initialization Errors << yy/mm/dd hh:mm:ss Time ? ' $2($e8)($ec)0 READ ($FFD2) LET 272 ? DIM 0 VERIFY DATA EDIT ELSE  LET REM REM line numbering breaks here! REM O? NEXT 2z READ < SWAP VERIFY READ 8 SWAP a READ 4 SWAP b READ 0 SWAP c READ , SWAP d READ ( SWAP e0 VERIFY ?$ STEP ($ea)& 0 READ ($FF48) LET " 0 READ ($FF60) LET ( DATA ? DIM _?_ READ  READ  DELETE FOR GO ' GO /' GO :' GO ,' GO .'09 DELETE ELSE FOR 0 GO " 04 DATA =($eb) RENAME 9 SWAP CSAVE AUDIO / T  ($fa)T d  135 USING ($fa) 33238 REM REM line numbering breaks here! REM = DRAW Shel($ec)Pascal COPY Run+"Run OFF 10 Shell OS9: DSKINIT ;2{46/$ REM REM line numbering breaks here! REM '0 DIM ($f1)? 5 MERGE '  LOAD e &`($ee) SAVE 0 DIM USING & READ X0 DIM = LET 3878  READ OO0 AND  LET REM REM line numbering breaks here! REM AND ? NEXT $ STEP COPY '- &3? FWRITE  DIM 2608 READ TIMER  LET REM REM line numbering breaks here! REM  BEEP ' READ  END $ FN ]& FWRITE DLOAD eof &0 DIM ($f5) READ _? LET 528 ? DIM 9o*Z*($fb)9 PMODE LINE  INPUT DSKINIT  POKE CH- END CH FREAD _E FREAD  FWRITE KIL< LIST FREAD  CLEAR - FREAD ~ BEEP ~- BEEP  CREATE  FOR - CREATE ($ea)SETP CHAIN  TAB( REM REM line numbering breaks here! REM ^ MOTOR ' TAB(= DELETE  READ  PLAY > FN  PCLEAR TO  PLAY FN ($ef) AUDIO 10281 ($FF0D)!#&;<>($FFC6) READ CONT 1 DIM POKE  REM REM line numbering breaks here! REM ELSE Q GO 'M NEW GO (&$1 READ ($fe) FN  RESET 0 RESET  1 DIM > READ ~ GO ('($f5) GO )& &($ef) DATA EDIT   READ $1 DIM GET READ c POKE  MERGE 01 DIM PRINT READ >  SET &0 GO & AUDIO  ($fa) RESET  READ  READ $($fc)1 READ ($FF73) READ  RESET 9?$ DELETE FOR GO .& MOTOR FOR '10 EXEC O9S0/ DSKINIT 9 READ $4 READ C ($ec) EXEC PRESET PCLS 5 $($f0)9O DELETE ELSE 5 CLS 5 4 DELETE FOR m EXEC +($f6) MOTOR CLS &($f8)5 CLS 4 DELETE FOR GO ' GO ,' 0 READ ($FF30) MOTOR FOR "($fc)5 RESTORE 2b DATA MOTOR FOR '($fc)0($fe)9401" SCREEN VERIFY DELETE FOR GO a FOR TRON CLS H&$($f1) DELETE ? GO STEP  READ NOT O5 DELETE 1? DELETE CLS *($fc) PCLEAR b($ec) MOTOR & DIR S5 COLOR ($FF54)O READ  READ  READ  READ <0 POKE  MERGE 2 OR 315 ??L4 G DATA ELSE  DATA '? DATA 9O  DATA  NEW 9 DATA  O NEW 9 DATA  O NEW 9 DATA MOTOR FOR &($fc) MOTOR REM 94O READ L GO #($f9)f RENAME 5 DATA 4m/'? RUN DELETE /? REM FLREAD VERIFY DELETE *'o*? RUN 5 REM WHAT? READ BACKUP 0 DIM ($f5)($fd)($f9)_C9< REM REM line numbering breaks here! REM  < SWAP   DATA / m/& WAIT 4 m/& DSKINIT 4/ SWAP ? REM  FLREAD VERIFY EDIT * DELETE VERIFY ? RUN DELETE a IF &? ELSE / ?' SWAP a5 DATA / SWAP  DRIVE & EDIT  COLOR ON K ELSE WAIT &0 DATA =M& CLEAR DSKINIT ($fe) TO 0 LIST  4375 ($FF53) READ  ($fe) DELETE GO &2d_($FF42) REM REM line numbering breaks here! REM s($f8) READ ($f6)/&< SWRITE O4? ' DRIVE  STEP &# DELETE VERIFY '?o VERIFY ($e8) MOTOR VERIFY 'm VERIFY ']' KILL 4 READ +/- 5]'C5 REM DATA  DRIVE  SET  SET  PROTECT 9 DATA ? ELSE W0 AND  LET ? INPUT 4? RUN 5 1552 SCREEN  DATA EDIT 4pO SET ? REM REM line numbering breaks here! REM BACKUP  SCREEN K? GO 'J RESET 0 READ ($fc)1m ELSE 'w MOTOR FOR 'm FOR *($fc) ($f2) LOAD  POKE  COPY  MERGE  LOAD  MERGE  SET 0 RESET  SET ($ee)d($fe) FN R PROTECT  FLREAD N EDIT SKIPF \ SWAP N LOAD SWAP NO0O LET  35620  STEP COPY '"C L? DIM mN' FROM _1A DELETE SKIPF 0O LET  35877 \ SAVE N&($ec) AUTO _? RESTORE FROM FROM FROM / REM REM line numbering breaks here! REM T   PROTECT T n  135 USING  PROTECT REM REM line numbering breaks here! REM  GO ($f4) ->Tmod FROM 257 up SWRITE ($FF01)bs SREAD REM REM line numbering breaks here! REM  bs($ec)($FF01)ech($ef)($FF01)l FLREAD 110 ul($ec)($FF01)paus FROM 112 a SWAP  REM REM line numbering breaks here! REM bs($f0) de($ec) eo($f2) eo FLREAD  28786 in($f4) REM REM line numbering breaks here! REM du($f0) ps SWRITE  abor($f4) 27124  REM REM line numbering breaks here! REM bs FROM  27884  28901 98 au VERIFY  REM REM line numbering breaks here! REM xo($ee) xof FLREAD 1 ELSE READ 9O STEP .& 1! DELETE CLS FOR 0 GO $ 198 4159 READ  READ  STEP ' REM REM line numbering breaks here! REM SREAD READ $o STEP &($f8) CLEAR 4159 LET _? FLREAD CLS STEP ,& FLREAD CLS STEP '($fa)1?($fe)9 DELETE EXEC GO -& 1! RESET 0 READ ($fe)($f0) DATA 5 DELETE ELSE * FLREAD  DELETE  FREAD 0F SWAP DATA ^ &! FLREAD EXEC STEP =&($ea)1!M&?_ DELETE EXEC FOR 0 GO "M41! DATA =($eb) RENAME INPUT REM REM line numbering breaks here! REM '($eb)0 DIM  LET  READ  SET  READ _?SYNTAX Error:  LET 272 ? DIM 9 READ COPY 4 READ 5$_ INPUT HHHH4($eb) RENAME DELETE EXEC GO ' NEXT GO ' PRINT GO ,'' COLOR FLREAD EXEC NOT 0 STEP # STEP 1 NOT NOT  STEP " STEP ($fe)1!9S9 DATA / REM REM line numbering breaks here! REM PMODE SCREEN AND ! SCREEN ($ec)0 NEXT READ G DATA  EDIT 0 READ ($fe),1F_ DELETE SKIPF READ \ STEP ($f7) DATA  4159 4v SCREEN  SAVE ' 0 DELETE FOR *($fc)1?&($f2)5($f6) READ um ELSE *" DELETE VERIFY MOTOR ' DATA - READ i READ 5($f6)4 40 DELETE ELSE ELSE  READ W DELETE FOR *($f6)5 RESTORE READ ($ee) DATA = READ Km ELSE &) FLREAD VERIFY DATA /L NOT d$($fb) READ  DATA :J= $($fb) READ  DEF NEXT 0 READ +5($f6)  GO 0&# &9 DELETE VERIFY ELSE ($f0)DDDD READ  DELETE VERIFY ELSE  READ 5($f6) NEXT 0 GO 9# NEXT   DATA 460 AND & DRIVE  EDIT IF GO ' \ STEP  GO & DATA EDIT IF ($fe) DIR _ DSKINIT 5 PCOPY 4p($ee) SCREEN b PCLEAR VERIFY 0 DELETE FOR TRON CLS ELSE WAIT H&$($f5) PCLEAR bO5($f0)0 DELETE FOR *($fc)3_' REM REM line numbering breaks here! REM & ERROR C5($f0) SWRITE DLOAD A FROM FROM / T  REM T r  135 USING 3345 GO LINE REM REM line numbering breaks here! REM ^Tsmo($ee)LOGIN ; RESET  MERGE ' 9126 ELSE GO 'O? RUN L? RUN L? RUN DATA ? ELSE ?? REM :? REM 50 DIM BACKUP ? O0 SREAD  LET REM REM line numbering breaks here! REM ? NEXT 2a($f2) DATA _0 DIM PAINT 3 DIM PUT  LET 805 RENAME NEW 1169 REM REM line numbering breaks here! REM &($f9) SET  LOAD  SOUND ? PLAY FROM SREAD FROM FROM / T  8T t  135 USING REM REM line numbering breaks here! REM 8  GO  85 nlin($eb)O_? REM REM line numbering breaks here! REM ?? DELETE FOR GO ,'($e9) DELETE REM GO & SWRITE _? CLOSE NEW {/ T  rT v  135 USING r REM REM line numbering breaks here! REM  GO [ ($ee)Verif($f9)2 OR  WAIT  POKE  MERGE  DELETE FOR GO '($fa) ELSE _ GO U& < MERGE  4624 DIM 5356 ELSE ' PRINT USING & READ  VERIFY STEP COPY &_?/ USING ($f9)_ DATA ($e8) FOR J&($fb) CLEAR &($e8) ELSE \'0 READ REM REM line numbering breaks here! REM STEP 0 READ 148 S SWAP ELSE SET  SCREEN 1= RESET <($FFFF) MERGE REM REM line numbering breaks here! REM DSKINIT  READ G CLEAR &#< 909 < CLEAR REM REM line numbering breaks here! REM GO FOR & LOAD ' SWRITE '0 READ 1072 READ REM REM line numbering breaks here! REM CSAVE READ W  770 DATA 0- LET 16266 INPUT O? INPUT '9 READ $($FF7C) SET '($f5)? CLEAR ' DATA ? END ($FF67) LOAD  POKE MERGE & MERGE MERGE 9O SET  SET  CLOSE # SET ? INPUT  RESET 9 DATA  LET 16268 9Header parity is correct. Header parity is INCORRECT ! CRC is correct. CRC is INCORRECT ! END q DIM FROM FROM / REM REM line numbering breaks here! REM T   RUN T y  135 USING  RUN REM REM line numbering breaks here! REM  GO EXEC <AXmod FROM Use: Xmode [options] to change dev descriptor Descriptor too small to change. Syntax Error, couldn't process: 257 up SWRITE ($FF01)bs SREAD REM REM line numbering breaks here! REM  bs($ec)($FF01)ech($ef)($FF01)l FLREAD 110 ul($ec)($FF01)paus FROM 112 a SWAP  REM REM line numbering breaks here! REM bs($f0) de($ec) eo($f2) eo FLREAD  28786 in($f4) REM REM line numbering breaks here! REM du($f0) ps SWRITE  abor($f4) 27124  REM REM line numbering breaks here! REM bs FROM  27884  28901 98 au VERIFY  REM REM line numbering breaks here! REM xo($ee) xof FLREAD 1 AND y4@o SOUND  PSET VERIFY "($f9)2b READ } STEP /& CLOAD 04@ DATA ($f1)? 138 WAIT 4657 AND 5@ GO REM REM line numbering breaks here! REM &~40I FLREAD CLS DSKINIT  DELETE CLS EDIT FOR NOT "($f8)5 READ H STEP ' READ tT STEP &($f8)0I SET 4822  DELETE FOR EDIT CLS NOT "($f8) SET REM REM line numbering breaks here! REM ($ec)' 563 NEXT <($FFFF)($ed)A EDIT -?c-cAcB PROTECT REM REM line numbering breaks here! REM '?_ DRIVE ? FLREAD FOR STEP ,& FLREAD FOR STEP '($fa)0O90 READ ($fe)n READ 0 READ ($fe) ON READ  SET   DSKINIT 0 READ ($fe)$ READ  OR  LET 272 ? DIM 9 DELETE ELSE GO -& 0 RESET 1 READ ($fe)~N= DELETE EXEC * FLREAD ! DELETE " RETURN " DLOAD FREAD 1I SWAP DELETE MOTOR & GET FLREAD ELSE STEP =& FLREAD 0M&_ DELETE ELSE FOR 0 GO "&40 DATA =($eb) RENAME INPUT 8336 READ & DIM 4 READ 5$_ INPUT HHHH4($eb) RENAME DELETE ELSE GO ' SCREEN GO ' LINE GO ,' DELETE ($FF68) FLREAD ELSE NOT 0 STEP # STEP 1 NOT NOT  STEP " STEP ($fe)09S90 READ ($fd)($f1)1I_ DELETE SKIPF READ \ STEP ($f7) DATA  REM REM line numbering breaks here! REM RETURN ($FF0C)4v SCREEN  SAVE ' 0 DELETE FOR *($fc)1?&($f2)5($f6) READ um ELSE *" DELETE VERIFY MOTOR ' DATA - READ i READ 5($f6)4 40 DELETE ELSE ELSE  READ W DELETE FOR *($f6)5 RESTORE READ ($ee) DATA = READ Km ELSE &) FLREAD VERIFY DATA /L NOT d$($fb) READ  DATA :J= $($fb) READ  DEF NEXT 0 READ +5($f6)  GO 0&# &9 DELETE VERIFY ELSE ($f0)DDDD READ  DELETE VERIFY ELSE  READ 5($f6) NEXT 0 GO 9# NEXT   DATA 460 AND ) DRIVE  EDIT IF GO ' \ STEP  GO & DATA EDIT IF ($fe) DEF _ DSKINIT 5 PCOPY 4p($ee)> SCREEN VERIFY  PCLEAR b1$ DELETE CLS TRON FOR ELSE WAIT H&$($f5) PCLEAR VERIFY O5($f0)1? DELETE CLS *($fc)3_' " KILL C5($f0)< OR BACKUP FROM / T 2 +T 3 REM REM line numbering breaks here! REM 135 USING + REM REM line numbering breaks here! REM  SAVE GO  ACIA5 CIRCLE   224 "L REM REM line numbering breaks here! REM FOR SCREEN A SWAP / SWAP AND "($ec) TRON &-0 DIM A FLREAD IF ELSE ($f0) EDIT F SCREEN A($ed) DELETE ELSE DELETE ELSE m+ 24557 AND ($ed) AND EDIT AND # EDIT AND ($ed) AND $($ec)A+ REM REM line numbering breaks here! REM 0 READ ($FFBE)1 READ '?* SCREEN A FLREAD F> SWAP _9 READ P DELETE AND #/ FLREAD AND  STEP " FLREAD O> FOR SWAP AND # FLREAD F> SCREEN A SWAP m AND $&, FLREAD AND 0 AND 'P SAVE AND ' BOOT : DELETE ELSE j AND \ STEP O#_ SWAP AND _ FLREAD N' SWAP TRON :oNS/($f4) PCLEAR 9S/($f6)94 DELETE D EDIT E PCLEAR LET 2718 K FLREAD ON 6' STEP # O DELETE IF &5 CLEAR 2fC9 READ FREAD 0 AND w FLREAD AND : EDIT ELSE \ STEP NEXT #_P SAVE AND !'($e8) SWAP AND DELETE AND "' ELSE ($fd) EDIT AND "& DELETE F END  SCREEN A EDIT  PCLEAR _9 GO & FLREAD AND ' CSAVE SCREEN & SWAP _9 GO '($eb)S/ BEEP 9 GO & DELETE SCREEN & FLREAD Pm AND &($ed) AND $ BACKUP  PCLEAR  6950 MERGE DELETE MOTOR AND $& BEEP o AND $9($FF63) SET K DELETE ELSE EDIT D EDIT C FLREAD AND P SAVE AND !&($eb) DELETE F SCREEN A EDIT  PCLEAR LET REM REM line numbering breaks here! REM ?*9 SCREEN A INPUT -` SAVE AND &' SWAP AND &*`& 2086 N DELETE AND #* ELSE  EDIT ELSE TRON O EDIT AND # DELETE AND "&(_91 AND w FLREAD AND ! SAVE AND 'O DELETE PCLS \ STEP NEXT #_ SWAP AND ! EDIT ELSE SAVE AND & DELETE AND " END  EDIT AND " FLREAD F> SWAP / DELETE E'oE?_9 IF ' INPUT m ELSE ELSE  LINE N EDIT N DELETE  EDIT  EDIT  ($e8) DELETE ELSE ' MOTOR K'p MOTOR L'p MOTOR M'` MOTOR O'u MOTOR AND ' REM REM line numbering breaks here! REM FOR 0 AND ' FLREAD AND : EDIT ELSE \ STEP O#_ SAVE AND &/($ea)N SWAP N DELETE SWAP AND l AND m AND $'($ec) AND $o AND $ OPEN DELETE AND ' LET FLREAD AND  STEP F PRINT FLREAD AND #& REM ELSE  EDIT AND  END FOR EDIT AND # FLREAD F> SCREEN A SWAP ($FF6D) SCREEN I' EDIT EDIT  AUDIO / /4 DELETE C($FF5C)5 STOP DELETE AND " ELSE ($fe) EDIT AND "& DELETE F END  EDIT _9 DELETE AND "& FLREAD F> SWAP  END  EDIT AND "_9 RENUM PAINT } FROM STIAN WIX0E 598274 EVA WALVIK 557730 MORTEN TAKSRUD 598841 SIV TUNGE 597472 ANNIKEN HOSTVEDT 597703 HENNING B0 598692 MERETE TUNGE 599202 STIAN ANGELL OLSEN 597844 JAN DYSKELAND 598554 ODD INGE RYGG 597281 ANNE LENE 597268 BJ0RN CHRISTOFFER BORE 523591 VIBEKE JOHANNESSEN 526624 MARIAN JENSSEN 558057 KNUT AAGE CLAUSSEN RESERVED. END 4 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR  SKIPF  OPEN  PRESET  AUDIO  CHAIN PRINT GO AUDIO  PCOPY  * : NOT * LLIST  LLIST  LLIST  LLIST ! LLIST ================================================= Special selection 1 108 special selection 2 108 graphic animator 108 dragon mountain 108 dragon selection 4 108 quest 140 madness and the minotaur 140 computavoice 140 examples from the manual 140 calixto island 140 black sanctum 140 el diablero 140 poseidon adventure 140 final countdown 140 mansion of doom 140 viking 140 stalag/eno 140 breakout/middle kingdom 140 monsters & magic 140 champions 140 ================================================ ================================================ katerpillar attack 140 planet invasion 140 spacewar 140 flipper * 140 whirlybird run * 140 shark treasure 140 shutle zap 140 composer ** 250 storm arrows ** 140 program pack 3 140 donkey king ** 140 invaders revenge 140 phantom slayer 140 racer ball 140 defense 140 flag 140 galax attax 140 block head 140 lunar rover patrol ** 198 junior revenge ** 198 synther 7 140 flight 140 shaft 140 devil assault 140 eight ball 140 intergalactic force 140 dragon hawk 140 jumpjet 140 crazy painter 140 space shuttle 140 cuthbert in the jungle 140 talking android attack 140 space fighter 140 official frogger 140 morrocco grand prix 140 danger ranger 140 golf 140 astrology 140 dungeon raid 140 buzzard bait 140 pengon 140 cuthbert in space 140 cuthbert in the mines 140 touchstone 140 beam rider 140 ossie 140 ================================================ circus adventure 140 school maze 140 hide and seek 140 number gulper 180 let's count 198 cranky 140 words,words,words 198 ================================================ berserk 294 meteorids 294 cosmic invaders 294 cave hunter 294 starship chamelon 294 astroblast 294 rail runner 294 ghost attack 294 chess ** 450 brigde master 450 ================================================ personal finanse 140 typing totur 140 timscript 140 dream 180 light pen 250 forth 290 pixel editor 180 dreambug 140 teletotur 1 290 telewriter 590 filmaster 200 mst database 200 mailer/adresse book 200 mst stock controll 200 mst home accounts 200 mst buisness accounts 200 mst calc spreedsheet 200 mst invoices & statements 200 ================================================ edit + (modul) 490 super dragonwriter II 580 alldream 450 logo 450 dynafast basic (modul) 450 ================================================ os9 operativsystem 580 os9 system manual 280 ================================================ basic 09 850 stylograph 1150 dynacalc 880 rms (record management system) 980 editor/assembler/debugger 850 stock recording system ca 850 cash & vat registersystem 850 dynafast basic (diskett) 299 edit +(diskett) 360 ================================================ B0KER........................................... DRAGON 64/32 NORSK MANUAL 140 DRAGON COMPANION 74 LOAD AND GO WITH YOUR DRAGON 89 LEARNING TO USE THE DRAGON 32 COMPUTER 98 THE WORKING DRAGON 32 89 DRAGON 32 GAMES MASTER 98 ENTER THE DRAGON 98 INSIDE THE DRAGON 135 DRAGON MACHINE LANGUAGE FOR THE ABSOLUTE BEGINNER 110 DYNAMIC GAMES FOR YOUR DRAGON 69 GAMES FOR YOUR DRAGON 49 ================================================ HARDWARE........................................ DRAGON 32 2500 DRAGON 64 3250 DRAGON DISKETTSTASJON 4250 DRAGON JOYSTICK 2 STK 290 ================================================ ANDRE SPILL/PROGRAM............................. DROIDS 140 CRUSADER 140 MANIC MINER 140 DEMON SEED 140 DRAGON TREK 140 THE RING OF DARKNESS 140 RETURN OF THE RING 140 DECATHLON 140 ALCATRAZ 140 ROW OF FOUR 140 MINEDOUT 140 EVEREST 140 HORSE RACE 140 FLIPPER 140 SUBMARINE COMMANDO 140 ================================================ spak. deretter "spilles"filmen av i onsket hastighet. BRUK AV STYRESPAK DLOAD DATA   17549 SCREEN  REM REM line numbering breaks here! REM CIRCLE '($f4) DATA ($fc)($fa) READ n +z1! FOR 0'" GO & ERROR READ  DATA 6  SET PCLS `Ol ELSE DELETE CLS GO &($f5)1?0 SET PRESET RESET PCLS CLEAR AUDIO 9 CLEAR EXEC os9 operativsystem c-compiler super dragon writer II chess lunar rover patrol composer droids crusader dragon trek the ring of darkness storm arrows the king manic miner demon seed dynafast basic back track grabber shenanigans ninja planet invasion invader revenge cashman time bandit downland pedro whirlybird run hunchback alldream everest submarine commander alcatraz row of four horse race minedout flipper 'S READ Y BACKUP CLEAR AUDIO ($ed)' RESET D9 CLEAR AUDIO GO N'($f9) DATA ($fb) ($fb) OPEN CLEAR AUDIO 4 READ + FLREAD VERIFY ($f9)($f5)0 DIM 4 ELSE '* GO '6"; FLREAD b STEP STOP 'D STEP CONT '@ STEP FN '1  READ /5($fe) CLEAR AUDIO GO M' PMODE DATA " TO 2b5 READ ($ed)O($fe)Stian Tunge wixoe skrekkfilm (x) blode laeber pornofilm (x) big & willing pornofilm (x) knee or knights pornofilm into the deep pornofilm (x) gisseltarnet actionfilm 0rneredeStian Tunge wixoe actionfilm caligula pornofilm (x) madmax I actionfilm (x) madmax II actionfilm (x) omen I skrekkfilm (x) poltiskolen I komifilm (x) forfulgt skrekkfilm de fordomtes 0y skrekkfilm gatepikene voldsfilm (E) indianer blod cowboyfilm (E) flykten fra alcatraz actionfilm (E) greystoke actionfilm (x) kill and kill again actionfilm jakten pa den gr0nne diam. actionfilm gremlins skrekkfilm paris,texas dramafilm jakten pa den forsv. skatt komifilm (E) diamanter varer evig actionfilm Doctor No actionfilm the man with the golden g. actionfilm War games dramafilm (E) star wars I s.fictionfilm star wars II s.fictionfilm star trek II s.fictionfilm tron s.fictionfilm skattejakten komifilm (E) blind terror skrekkfilm (OIR) staying alive dansefilm first blood cowboyfilm (G) octopussy actionfilm galaxina s.fictionfilm 8 glass actionfilm sloane actionfilm hevnen actionfilm (J-h) grease I actionfilm smokie and the bandit actionfilm smokie and the bandit II actionfilm thriller night skrekkfilm beverly hill cop komifilm hulk actionfilm convoi actionfilm blue brothers actionfilm dogkiller skrekkfilm streets of fire actionfilm helvete ar 2019 actionfilm warroirs actionfilm halloween I skrekkfilm (x) jonatans forste eventyr komifilm (E) rocky I boksefilm rocky II boksefilm rocky III boksefilm king kong skrekkfilm arabian nights actionfilm alone in alaska gulltida moon racket actionfilm never say never again actionfilm the spion who loves me actionfilm the wanderers actionfilm *************************************************** demonene i monteville skrekkfilm the elevator skrekkfilm poltiskolen II komifilm verdens sproeste sexkomedie komifilm exorsisten I skrekkfilm exorsisten II skrekkfilm omen I skrekkfilm omen II skrekkfilm omen III skrekkfilm ungkarsfesten komifilm faces of death skrekkfilm midnight express actionfilm froggers skrekkfilm star trek I s.fictionfilm star wars III s.fictionfilm dypet actionfilm pa stram line actionfilm terror bak murene voldsfilm framkensteins sonn skrekkfilm fredag den trettende I skrekkfilm fredag den trettende II skrekkfilm evil dead skrekkfilm de ti bud east of eden lovefilm return of eden lovefilm footlose dansefilm footlose pornofilm flashdanse dansefilm woman in red komifilm ticket to heaven 17 actionfilm in japan actionfilm het ungdom I sexkomedie het ungdom II sexkomedie halloween II skrekkfilm halloween III skrekkfilm a wiev to a kill actionfilm the day after dramafilm ************************************* 74 OYSTICKEN LIGGER BAK KASSETT- SPILLEREN aregar ombord i cruise skipet SS Poseidon. et undersjoisk jordskjelv har forarsaket en tide- vannsbolge som forer til at skpiet kantrer. videre ma du komme ut av skipet med livet i behold. SPILLET HAR TRE VANSKELIGHfelleslinjen 543311 4@ PROTECT >4B0 LLIST 5H3 DIM n/  ! .  M p($ec) ELSE COPY 140 LLIST  FLREAD " SWAP ($f1)9($ec) ELSE COPY 140 LLIST ($ec)!($ed)($f1)9($ec) ELSE COPY 140 LLIST 5@($ec)!($ed)-($ec)#($ed)B DELETE EDIT D9($ec) ELSE COPY f($ec)- COPY 14($ec)B40 LLIST 5F]&J NEW > SCREEN ! RESET H DELETE CLS EDIT NOT GO ($FF27)Z&($f5) >*($f1)O9($fc)f($FF6E)5F AUDIO ##($ec)# SCREEN !#($fc)I LLIST ($ec)!4 LLIST  FLREAD " SWAP ($f1)9t CLEAR . NEW 0 READ ($fc) SAVE r($fc)($fc)`($fc):($ec) ELSE 0 SET 1($ee) TRON  POKE J"/5($ee) PCLEAR +($ef) TRON  WAIT F COPY ^We want a multiply,are you gonna do it ? I know you qualify,are you gonna do it ? Don't be so circumscribet,are you gonna do it ? Just get yourself untied,are you gonna do it ? - feel the heat,pushing you to decide. feel the heat,bumping you up,ready or not. - Some like it hot and sweat when the heat is on. Some feel the heat and decide that they can't go on Some like it hot,but you cant tell how till you try Some like it hot,so let's turn up the heat till fry - The girl is at your side,are you gonna do it ? She wants to be satisfied until you do it. ($ec) ELSE COPY ^ RESET 95 RESTORE STEP ?' STEP >9 CLEAR .($FF5B) LOAD FOR MERGE REM FLREAD FOR STEP I'> READ ($e8)'" STEP K' STEP Q'0 LLIST  FLREAD EXEC = READ FLREAD  FLREAD / READ  FLREAD FOR READ AND & RENAME / READ / REM REM line numbering breaks here! REM READ  CLEAR PROTECT  PROTECT M&9($f9) STOP $($fa)Z LLIST  LOAD J MERGE LET MERGE DIM PROTECT F4F CONT LOAD H MERGE J FLREAD  READ CLEAR ' FLREAD FOR READ RESTORE '0/($f9)h$($eb)5F MERGE J WAIT F AUTO 1 DIM RENUM 1 DIM CIRCLE 5F MERGE J WAIT Fn EXEC CLEAR .($fe) BACKUP PROTECT FOR WAIT REM FLREAD FOR ($FF5F)'" STEP K' 0 O/($f9)0 SET LLIST  FLREAD EXEC =($f9) POKE FLREAD ($FF3D)& FLREAD ($FF74) U U  TO 109 ansion of doom et ordspill av adventure typen,hvor du skal redde den skjonne prinsessen fra den grusomme greve. 9($f7) NEW 4 DRIVE BACKUP STEP CLS '! SET H SET > DELETE NOT 0' EDIT CLS GO ($FF26)($f4) DELETE AUDIO END FOR EDIT EXEC  SET H($f7)`@3 ELSE ($ec)-& SET CHAIN 1#($f7)P0($ec) ELSE ($ed)- SCREEN VERIFY ($ed) VERIFY PROTECT 1 CLEAR 4 EDIT - DRIVE C SWAP B LOAD J($ed)M LOAD @($ed)O LOAD 9($ed)I READ { PCLEAR K5 DELETE '7 GO "'3 GO !'/+($FF02)($ec)E4($ef)E2 EXEC LOAD @4 AUDIO SAVE DVDV4($ec) 1 READ ($f7) OR PRESET NEXT PROTECT 1541  REM REM line numbering breaks here! REM U  FN viking na er vi tilbake til vikingetiden.du kan arbeide deg opp til a bli vikingekonge.men pest,invasjon, sult etc ma overvinnes. ADVENTURE SPILL 1 < SREAD  FREAD  DLOAD  REM REM line numbering breaks here! REM EXEC EXEC EXEC EXEC GET GET GET GET  AND  PROTECT ^ SREAD  PROTECT END END CLOSE CLOSE < . ($ed) ($f5)N OFF  USING ($fa) r GET N PCLEAR ($f9) ($f6) ($ea) @ @N  ; DATA N U  U  NOT 100 ette er spill av adventure typen STALAG du er fange i en tysk fangeleir i 1944.leiren skal snart bli bombet av de allierte og alle i leiren har flyktet.du har selv blitt glemt i det varme rommet.dette er et rom hvor fangene blir oppbevart den forste uken av fangetiden. du ma prove a komme deg ut for leiren blir bombet ENO: her leter du etter pengene som din avdode tante har etterlatt.men du ma bevise at du fortjener formuen.pengene er gjemt et eller annet sted i dagligstuen. HVOR? '1*'@0& READ {m!'. AUDIO $ SREAD # SOUND "$8CS 1541 # REM REM line numbering breaks here! REM U + 66 REAkOUT:et labyrint spill. MIDDLE KINGDOM et adventure spill der du skal finne de magiske ringene og bli hersker over middle kingdom. o VERIFY SWAP + DELETE * FLREAD "= SWRITE a($ed)a$l VERIFY DELETE ) FLREAD #= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD $= SWRITE a($ed)a$l VERIFY FLREAD b SCREEN VERIFY PCLEAR ao VERIFY SWAP * DELETE ) FLREAD "= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD #= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD "= SWRITE VERIFY + h+i*ibYIj')($ed)( DELETE b FLREAD *+ REM REM line numbering breaks here! REM $l)&l(& f( U& U * 77 ONSTERS & MAGIC et adventure spill med 52 forskjellige m0nstre og over 1000 kombinasjoner  FLREAD -O1:($ed)! DATA  EDIT EXEC 9 FLREAD ( VERIFY " FLREAD (($ea)"  FLREAD (($e8)"1&($ed)!9c"940 SCREEN ! SCREEN ' RESET H DELETE CLS MOTOR FOR & GO ($FF26)($f6)Ll MOTOR 5 COLOR READ SWRITE N P READ MERGE #H J READ DSKINIT 'B D READ BOOT &< > READ =$6 8 READ *"0 2($ec)' AUDIO !-( *($ec)' AUDIO !/ "($ec)' AUDIO !& ($ec)' AUDIO !' ($ec)' AUDIO !, ($ec)' AUDIO !//($FF20)/ REM REM line numbering breaks here! REM O1&($ed)! DATA  EDIT EXEC 9 FLREAD ( U- U ^ 67 HAMPIONS provd a lede et fotballag noen gang?hvis ikke har du muligheten her.du er leder for et 4 divisjons fotballag.formalet med spillet er atdu skal laget til seier i 1 divisjon og komme til europacupen underveis finner du ut at det ikke er sa enkelt a lede et lag.pengeproblem,spillerproblem etc er daglig kost.spillet er skrevet i vanlig basic,og kan lett forandres til norske forhold. DVS LAG,SPILLERE ETC. &($f7)2b1T($fb)o READ ($fa) ($f8) FROM DELETE !. O_($ed)!($ed)# SWAP 9 GO $($fb)3& FLREAD _-4D3!3A FOR $($fa)' /($FF58)L&($fc) VERIFY - SWAP NOT 3A EDIT NOT  AUDIO a&($f9)5D($ea) SWAP 91:($ec)'($ed)!($f7) GET 1:($ec)*($ed)$($ec)(($ed) 1541 1 REM REM line numbering breaks here! REM U > 107 aterpillar attack spillet krever rask reaksjon.om du ikke skal bli spist opp av en katerpillar som beveger seg ned- over mot deg.prov a overliste soppene som hjelper katerpillaren,og kjemp mot farlige edderkopper og vampyrm0ll.alt du tenger er STYRESPAK og RASKE BEVEGELSER. ($ec)!'`' FOR . & ($ec)#& DELETE ' 1665  REM REM line numbering breaks here! REM REM 1 TRON ($ec)0 TRON 3 EXEC xp0 TRON  9668  DSKINIT m($e8) SWAP 93 DIM @4P READ ($ee)($ec)!' REM REM line numbering breaks here! REM CLOAD ' FOR . AND &($ec)#& OFF DELETE & FN CLEAR m&_($ed)!5 BEEP 1&5Pn READ 41 TRON ($ec)0 TRON 3 EXEC *"0 TRON  9605 ' PROTECT 1mA'3 DIM ($f5) DRIVE A($f5)($ec)9 PUT REM REM line numbering breaks here! REM CLEAR m41 TRON ($ee)<($ed), DATA FOR _($ed).O($ed) TRON ($ec) TRON ($ed) EXEC ($ed)&($ec) TRON ($ed)"($ed)(($ec) TRON ($ed)$($ed)*($f6) CREATE ($f5) COLOR ($fb)($f7)5 NEW m94($FF55) FLREAD ! STEP - 1& ($f0)j! S U5 U  USING 80 LANET INVASJON i dette spillet kontrollerer du et jagerfly som flyr horisontalt over skjermen. malet er a skyte inntrengerne som forsoker a fa tak i caloxin krystallene dine. til hjelp har du en langtrekkende scanner og smarte bomber. alt du tenger er STYRESPAKER. AfBfCfDZ&($f3)9 DELETE * TRON EXEC C  DELETE TRON M*0 EXEC 3/ READ P0*3 READ f0 TRON 3 TRON  B0 EXEC 3/ READ X0*3 READ 60 TRON 3 TRON  J0 TRON 3 TRON  READ B+$& ($ec)&($ec)&/ DSKINIT CLOAD 0 EXEC 3 0 EXEC 3 READ GO $"0 TRON 3 TRON ($ec) SWRITE C($ed)($ec)$+ 620 ELSE SWRITE A($ed) DELETE ELSE TROFF - EDIT ELSE 9($ec) AUDIO C($ed)($ec)$' 618 ELSE AUDIO A($ed) DELETE ELSE SOUND - EDIT ELSE 9 FLREAD -o-=,P($FF4B)hDiCiBiAi-Z&($f3)9 DELETE -* O_($ed)-($ed)B EDIT D9< ZhDiCiBiAi-+J&($f0)_($ed)-9 DELETE - SWAP - FLREAD A EDIT A DELETE B SWAP B FLREAD C+ REM REM line numbering breaks here! REM -  U  BEEP 83 HARK TREASURE du har oppdaget det sunkne skipet santa maria ryktene sier at skipet har tusenvis av gullbarrer ombord.den eneste hindringen mellom deg og en formue i gull er de mange haiene.til a forsvare deg har du tre gramater som holder haiene pa midlertidlig pa avstand. SPILLET KREVER STYRESPAKER. DELETE FOR EDIT NOT GO ($FF27) Z&($f5)j!*($f1) DATA LOC NOT WAIT H1,5 RESTORE PROTECT H3_ AUDIO !' DELETE OFF GO '($f5)3A DATA LOC NOT WAIT H940 LOAD H AUDIO ! SWRITE '+ 10000 SCREEN !($ec) RESET $O_  SCREEN b AUDIO + REM REM line numbering breaks here! REM 50($ed)' DATA  EDIT &1&9/ / CLEAR } PROTECT REM 4R($ec)| SET REM DATA LOC ELSE SCREEN c($f4) DSKINIT 5R NEW } WAIT REM 9/C($ec)`4($ec)!-($f5) RESET D PROTECT H($ef)! DATA BOOT }# EDIT NOT Z POKE D($f4)($f4) FREAD 4 DATA LOC NOT WAIT H DATA  EDIT EXEC 5 RESTORE 41:0: PROTECT H($ef)!? FROM READ  DATA / READ  DATA / READ  DATA READ DATA : READ  DATA : READ  USING EDIT NOT DELETE FOR //\ FOR $($fb) SWAP NOT /:ZL&($fc) SWAP NOT 9 DELETE "/? READ $ STEP COPY &/($FF20)/ O($ed)! DATA  EDIT EXEC 9/44 PLAY /P0 READ ($fd)p($ec) GO ($ed) MOTOR j VERIFY &($f8)0 READ ($ec)K RESET 0 READ ($ec)* RESET  DATA ~ NEW 0 READ ($ec)^ RESET 0 READ ($eb) PAINT RESET 5 PUT 4 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR RENUM  LLIST ' LLIST ' LLIST ' LLIST '4 CLEAR X0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR _++ PMODE  GET  LINE JXk5 SOUND ($f9)($e9)x  ERROR  RENUM bY'($e8) d  CLS 1992 2810 3740 @ REM REM line numbering breaks here! REM +P ($f4)$ 39062 FOR REM REM line numbering breaks here! REM  FN TO ($ee)k( 761 REM REM line numbering breaks here! REM RENUM C PMODE @(($e8) CREATE SKIPF , RETURN ELSE SWAP */ DRAW FLREAD ($f4)2 SWRITE _ TROFF 26 LET  OR NOT 9 CIRCLE SOUND TO .< PROTECT k:@ END ^#True($FF46)alse($FF34)@1:O_ NEW u NEW v NEW w NEW x NEW y($ed)$($ed)" EDIT !)$ 0 GO ,&o 9232 ': GO +' GO -& x DELETE FOR GO .& w&R w ($f2)KP4 v($ec)$($ee)" READ ,($ed)$($ef)" READ & READ $ SWRITE $($e9)# TROFF "'($eb) RENAME INPUT 13121 ($ef)"'($ed)$($ef)" w' TAB( y PMODE XIYI92b2a/< /; DSKINIT 6C5 NOT ON E ELSE WAIT '#0 v& ($eb) w&E($ec)"&A($ec)$+= x'@P REM REM REM line numbering breaks here! REM ($ed)! DATA  PRINT DELETE ELSE GO +' GO -& u0 SUB SUB  INPUT  PCOPY $0 4 DATA =($eb) RENAME u&P KILL y DSKINIT y/ SWAP !($ec)"&  AUDIO $&o! FM+ j!hi$YI*($f6)($ed)"u DRIVE y')*P u STEP # NOT 43 READ ($fe)= READ &5($FF5F)Z DATA =3 READ ($fe)a3* READ ($FF4F) DELETE ELSE ($fe) CSAVE x EDIT DATA  EDIT EXEC ($fe)5 NOT 1:($ec)-($ed)!($ec)B($ed)# FLREAD D SWAP CLEAR u'($fd)($ef)($fd)($ef)'$ GO a FOR GO A GO F" FOR 7 v/h"i!($FF07)Z&($f5) PCLS " EDIT " DRIVE 0 v'($fe)($fa)($FF22)4 SET REM ($fe)`$5 RESTORE GO '($fd) SOUND  1990 = DSKINIT 6C5 RESTORE RESET REM O5 RESTORE 4 SET REM ($fe)= MERGE GO &m!' PROTECT 4 SET REM ($fe)*> GO ' BACKUP /: DSKINIT 6C5 RESTORE 4P1: PROTECT J($ef)! DATA  EDIT EXEC SET REM DELETE FOR READ S EDIT NOT ($f6) RESET REM DATA LOC NOT WAIT HO5 BEEP 41: DATA  EDIT EXEC o" SET REM READ . GO T' GO t' ON F ELSE WAIT ' /: DSKINIT 6C5 RESTORE c" READ $($fc) RESET REM O5 RESTORE DELETE FOR GO & READ $  DELETE FOR GO '($fa) RETURN MERGE ' GO ' GO ($FF27)($fe)9094PO EDIT # NEW v NEW x DATA  NEW ~($ec)!*@P REM REM REM line numbering breaks here! REM x3 READ ($fd)z3B AUDIO - z ($f8) SWRITE - z&m#' l#4 CLEAR z5 ~& KILL  DEF  ($fb)1&5 BEEP 4Pux|{yv3 ELSE < 0 SWAP NOT J&($fb)($ec)!&L 9669 ' DSKINIT x-($fe) SWAP ($ec)!* u@ GO #-/ CSAVE =D INPUT u'P DSKINIT y GO # 43 READ ($fc)($fb)($fe)U5 FOR 3 READ ($fc) CLEAR J/=3=($fe)D($ec)"m!'&*DVf$f|l!&($f4)($ed)" hi$YI {j!&($f4)($ed)" y CLEAR { READ g($ec)"($ee)${ READ f($ed)"($ef)$4 CLEAR { NEW |5 READ X READ V SWRITE $($e9)# TROFF "4 CLEAR { CLOAD | READ = CLEAR v GO 5' ' REM REM line numbering breaks here! REM 4483 REM REM line numbering breaks here! REM &/ EDIT EXEC CLEAR v GO  FLREAD EXEC * DELETE REM L EDIT ELSE GO 9# DATA 0 EDIT ELSE PSET VERIFY &($ef)l ELSE y DATA NEW v1&5 BEEP END 0 EDIT FOR v9XIYI {940 SET FOR RESET REM DATA  NEW } LET  CLEAR ? NEXT 40 LOAD REM POKE FOR ' SET FOR RESET REM CLEAR ? DIM $ DSKINIT 65 COLOR 4P DELETE EXEC GO '($ee)!  DELETE !. AUTO 32  SCREEN "($ee)$ FOR /NC DVFVL&($f1) CLEAR ? ON $ DSKINIT 65 BEEP 4P2v0 VERIFY ($fe) GO 4 DATA 0 FLREAD REM STEP 0&J GO &($f5) NEW v5 DRIVE y.!P DEF STEP "4 KILL v STEP ".4 REM REM line numbering breaks here! REM DELETE O READ r5]' 30240  STEP " REM REM line numbering breaks here! REM RESTORE  DEF READ J READ Y CLEAR v RESTORE y# READ @2jO5 BEEP READ { DATA  READ 5 READ D CLEAR vJ&L READ + READ  SWAP DATA E READ 6 CLEAR yJ4*` VERIFY READ ^  READ ^5O NOT L ($f9)= READ  DEF NEXT 0  INPUT ]' DELETE FOR READ Z&($f9)9 DATA  DATA .4B3($e8) NOT  POKE REM " GO ' DATA P NEW 6 NEW PROTECT  PROTECT REM EDIT NOT WAIT REM }5 OFF DATA 0]' READ FWRITE Z&($fb)9 x'= x'($f7) DATA - OR DATA + * DATA SWRITE READ THEN DELETE FOR GO ($FF26)($f8)94 SCREEN ! READ ($f3)O5 RESTORE 40 READ ($fa) FREAD DELETE "&($f1)0 READ ($fa) DIR ($eb)4P2{0 VERIFY ($fd), READ + CLEAR v0 VERIFY ($FF7A)2eO5 BEEP  INPUT 4@ PROTECT REM BEEP }# READ PMODE O5 NOT ($FF70) CLEAR } ELSE  GO ' ($FF65) ($f3) DATA }($FF62)O94@ DATA 3 EXEC m-&G3A NEW DATA  INPUT W CONT 5 NOT _ DSKINIT PRINT GO <' GO >&\  GO ^&Z DSKINIT PRINT DELETE FOR GO ,'8 GO ($FF26) CLEAR CONT '0  SET LET LOAD ' LOAD " GO )'9 CLEAR CONT '($f9) STOP & PROTECT F7" NEW STOP  RESET RESTORE WAIT F DELETE FOR CONT / SET RESTORE RESET DIM ($fe)9I WAIT H 207 E 211 B REM REM line numbering breaks here! REM BEEP T X '  9572 DRIVE DATA ($FF46) ( READ CLEAR Y DRIVE DATA ($fe)($fc)  GO ($FF27)N GO '& DELETE FOR READ GO D ($fe) PSET DELETE FOR ($e9)40 LOAD LOAD SET DIM READ L GO (&/ CLEAR STOP DSKINIT STOP ') CONT PROTECT F SET RESTORE 6" WAIT F RESET RESTORE DELETE FOR 1 READ STR$ _4 TRON EXEC ELSE WAIT 5'1#\m EXEC &($ef)/? /> DSKINIT 6C5 COLOR DSKINIT IF ($ec)!1 PCLS READ $/ DSKINIT DATA n EXEC READ  INPUT READ  READ READ  READ M'_ DELETE FOR DELETE FOR GO 0 GO 9" FOR 0($fe)994 DATA =($eb) RENAME INPUT REM REM line numbering breaks here! REM 9 GO .& PCLS READ - EDIT DSKINIT INPUT ($fe)/ CLS 50 LOAD DRIVE IF ' SOUND Z'Z'PZ'($f2)Z' 222 LLIST  GO ($ee)!_ DELETE NOT GO ($FF27)\&($f7)($ee)! !3! DELETE EXEC GO &/  GO &/ BOOT DATA /3A DEF H RETURN DATA "6 PRINT '(+ 4X4 DRIVE DATA RENAME RENAME  4X4 DRIVE DATA RENAME RENAME W4 CLEAR DATA CLS RENAME NEW DATA ($fd) AND 5 DELETE -DDDD READ ' DELETE NOT READ 'Z&($ed) DRIVE DATA ($fd) SCREEN O9 ELSE  GO # NEXT ($fd)O DATA 9C9 LLIST  GO &($f6)($f7) ERROR 4P2{0 VERIFY ($fa) SWRITE DRIVE DATA Z BEEP v*2e5P2 PRINT ' +($fd)q($fd)^ ($fd)Y4 CLEAR v($fd)5($fd)] ($fd)H($fd): CLEAR v($fd)2eO5 BEEP LLIST  GO & EDIT 4P0 READ ($f8)3/ DELETE "&0 READ ($f8)./  LLIST  GO & READ 4P SCREEN ! LOAD H AUDIO !' 9732 BOOT DATA # DRIVE DATA  DEF P KILL DATA PRINT '+4($fd)5($fc) PUT 4 T$\4($fc)($f3)5($fc) CLS 5($fc)($e9)O5 BEEP LLIST  GO '$($FF3E)($f7)4P2v0 VERIFY ($fa)t CLEAR y GO . REM REM line numbering breaks here! REM SREAD CLEAR DATA FOR + RESTORE INPUT + RESTORE END *2j5P k NEW ON 0 VERIFY DRIVE PRINT '+ READ A READ  READ  READ 9  READ 5 READ ($fc) DATA 2jO5 BEEP ($fc)~ CLEAR END ($fc);($fc)I DRIVE y*,P BOOT INPUT # DRIVE INPUT 4($fc)[ DRIVE INPUT RENAME RENAME DSKINIT INPUT CLEAR NEXT RETURN INPUT # CLEAR INPUT  DRIVE ON ($fc)a($fc)N CLEAR END ($fc) ($fc) CLEAR NEXT ($fc) DRIVE INPUT BEEP NEXT / ($fc)- DRIVE DATA DATA *($fc)(O9 LLIST  GO '$($fe) NEW ($f6)~4P2v0 VERIFY ($f9) USING CLEAR y4 DATA  NEW y READ :5 DRIVE y STEP 'L/ DSKINIT END NEW y CLEAR DATA FOR + RESTORE INPUT + RESTORE END *2j5P PUT NEW ON DRIVE PRINT ' READ LET READ RETURN ($fb)z  READ END ($fb)s($FF4F)4 CLEAR y OPEN INPUT & DELETE ELSE GO 5$J+0 GO ",0 DATA FLREAD  STEP 5$l ELSE FLREAD ELSE STEP 9#/0 SWAP ELSE 0 PSET VERIFY $($ee) SCREEN VERIFY 0 DELETE REM EDIT  PSET VERIFY "($f8) DATA 1 EDIT ELSE y5 CLEAR y*O NEW END @ NEXT *O RETURN INPUT # CLEAR INPUT NEW NEXT 9/0 DSKINIT 6C9 SWRITE - READ FROM FROM FROM  T / CLOAD S  PROTECT 0 135 USING / CLOAD REM REM line numbering breaks here! REM  GO ON  LIST  1128  FREAD ($eb) WAIT Q REM REM line numbering breaks here! REM Run OFF  BASIC09 RS VERSION 01.00.00 COPYRIGHT 1980 BY MOTOROLA INC. AND MICROWARE SYSTEMS CORP. REPRODUCED UNDER LICENSE TO TANDY CORP. ALL RIGHTS RESERVED. END 4 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR  e[)|v DEF J LLIST  LLIST  LLIST  157 $ 1181 $ LLIST *Read($f9)What THEN fre FROM Progra($ed)PROCEDUR* Name Proc-Size Data-Siz FROM Rewrite?: RANGE PRINT BREAK: CLS called b($f9)o($eb)D RENUM E RENUM B RENUM can't find RENUM DELETE c NEXT DSKINIT 54C4;4@3 OR  REM REM line numbering breaks here! REM O_($ed)+ AUDIO VERIFY "($f9)53 ELSE MERGE L NEW FWRITE MERGE FOR MERGE REM NEXT  MERGE F MERGE DL MERGE L MERGE  MERGE J0 POKE MERGE O/ MERGE - NEW SUB DATA ? RUN L GO ($f8) DATA ? REM NEW FN 540 DIM AUDIO ? SET O_($ed)' CLOSE "($fa)0 READ ($fe) 4 SET 6961 READ ($fe) DATA ~ EDIT FOR ($ec) MOTOR SWRITE VERIFY ($ed) GO ($ec) EXEC &($f2)2b($fe)($f2)5 READ SET ($ec) ELSE MERGE / 35894 5@ READ 4@4 LOAD 37640 POKE MERGE 3b WAIT F WAIT D2($e9)($FF02)n FREAD ($fe) PROTECT PMODE 5 MERGE PMODE  REM REM line numbering breaks here! REM _ LOAD PMODE 4 WAIT PMODE ($ec)b PCLEAR b READ * ($FFC6), TROFF ($FFDC)/+ ($f6) FLREAD CLS STEP ,' STEP '1?9($fe) REM & SET /'($ec)$1 PCLS 91 READ ($fe) NEW 9 PROTECT F WAIT D SET ($ec) ELSE '0($ed)+&($f4) WAIT D DELETE EXEC GO '1! RESET REM 9} }4 SET FOR RESET REM 5 RESTORE ($fe)B&4 ($FFB6) SCREEN VERIFY DELETE CLS EDIT FOR *($fa) DATA EDIT ELSE 5  ASC SCREEN ELSE RESET / DELETE ' ELSE  GO &t  DELETE ON Fl($fe) SET J FLREAD EXEC STEP ='` RESET ^ RESET \ SET PCLS RESET ` RESET J LOAD 4&($fd)($f7)5& MERGE  RESET J SET / DELETE ON F>2($e9) LOAD 7938 MERGE F MERGE D AUTO 12767 GET PUT 6 LOAD J SET 40 READ REM REM line numbering breaks here! REM ($FF0C) SET J($fd)+($FF63) SET /($fd) FN 5 MERGE J RESET ($fe)($ea)/3($FF03) READ _?($fd) CLEAR ' 3806 FO_6L NEW 5 READ 59S/+9 SET REM DATA * EDIT EXEC NEW 5 3888 PROTECT F WAIT D  SCREEN ELSE 4@3 ELSE ?5@<($FFFF)($ed) CREATE SCREEN +&($ec) SET ($ec) GO '($FFFF)'($f8)($ed) MOTOR &($f4) AUDIO EXEC &($f7)9/ ($fe) CLOSE 4` SET  SCREEN VERIFY ($ee) GO '($ec)D3= DELETE CLS TRON NOT ELSE WAIT &($ed)Om_*($f3)05/C ($f9) READ KILL 94p FLREAD a STEP ($fe)'=0 EXEC O_? REM REM line numbering breaks here! REM $ SCREEN bO_? PCLEAR b($ef)($f4)5($f0)?94 40 DELETE FOR GO ($FF27) MOTOR CLS '($f6)501! PSET VERIFY #($eb)C5 DATA 50O5 DATA 40 DIM DELETE CLS MOTOR GO ($fc) FLREAD REM n IF ($f2) STOP  RETURN  RESTORE  RUN LET READ U K > 9009 !1! DIR m CLS *($fc) BACKUP 5 CLEAR 4 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR REM REM line numbering breaks here! REM LIST  LINE 0 LLIST  LLIST  LLIST  LLIST * 971 K PSET =M TRON =N TROFF CREATE INPUT SCREEN ! RESTORE  SOUND REM REM line numbering breaks here! REM RETURN  EXEC =? READ CLEAR 4 SET EDIT DATA h ELSE d ELSE MOTOR FOR &($f8) SET EDIT READ 6 LOAD DLOAD POKE EDIT 4 SET PCLEAR RESET PCLS  SET EDIT DATA =6 DATA ?1 DATA SET FOR EDIT FOR j VERIFY *($fa)<^ ($ed) SET FOR READ 5 EOF SET F RESET D CHR$  LET  CLEAR .? DIM 9 RESET EDIT SET J RESET PCLEAR RESET PCLS  TAB( TO 9 READ ($f0) CLS  3343 CLS CLEAR AUDIO GO ?& ATN  19750  READ ($f7) LOAD PCLS  REM REM line numbering breaks here! REM = DRIVE EXEC STEP &  18 '($eb)4 REM REM line numbering breaks here! REM 9 44447 PCLS CLEAR AUDIO 9 CLEAR AUDIO GO K99 CLEAR AUDIO GO N'($f9) DATA ($FF50) READ ($f3)5 REM REM line numbering breaks here! REM AUDIO ($FFDB) DATA ($ef) LOAD PCLS MERGE PRESET  MERGE  RESET DLOAD DELETE EXEC  9264 READ ($FF0F) DATA FOR #' RENAME FLREAD ELSE 3 DIM 7n*($ec) DSKINIT EXEC NEW AUDIO  REM REM line numbering breaks here! REM p DELETE EXEC  -($f0)1? READ *&< RUN  NEW AUDIO READ Q DELETE FOR Z*($f9) DATA  NEW EXEC 9< LET m ELSE &($eb)< READ 0 VERIFY 1? READ < RETURN  KILL  FOR 0 EXEC  SET D($fe) PAINT  DELETE FOR GO 9 DATA   READ TRON  READ  DELETE CLS GO ' GO "&($f4) MOTOR CLS '($f0)1? DATA ($FF20) DATA )($fe) LINE DATA 1 ($f9)4 SET PCLS EDIT FOR RESET PCLS LOAD PCLS POKE J STEP ($FF24)O5 CLEAR DATA ($fe)a($fe)d READ +4 / DSKINIT SKIPF _ READ =1!\ DELETE CLS READ &$($f9) GO $&\1! DATA  NEW SKIPF 1? DATA FOR LINE ? EDIT ? DSKINIT DELETE 5 CLS DELETE CLS GO '($fa) GO '($f6)1?9 READ $ GO 0! GO 9#  ELSE  GO A GO Z# GO _' GO a GO z#9($fe)940=4*' DELETE NOT EDIT CLS Z ($f5)7($ed) MOTOR PCLEAR MOTOR  AUDIO VERIFY ($f5)o SAVE 5 CLEAR DATA 4r($ee) FLREAD  PCLEAR a' 8243 _ SCREEN c0 IF DELETE FOR TRON CLS ' MOTOR VERIFY '0 DELETE FOR *($fc) WAIT m*($ea) PCLEAR c5($f2)4 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR 13334 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR ERROR 14855 SAVE  CLOSE DN LLIST  LLIST  LLIST  LLIST  LLIST  REM REM line numbering breaks here! REM LLIST  LLIST  LLIST  LLIST ' LLIST ' LLIST ' LLIST ' LLIST ' LLIST ' 519 ($f1)($f1)($f1)($f1)($f1) DIM  LLIST   CLS ($fd)-a ERROR o DATA  CSAVE  CSAVE  INPUT a INPUT a INPUT  MERGE  SOUND ($f9)($f9) EXEC * POKE  CLOAD (53<jv READ  OFF  OR ($f5)Kg MERGE  RENAME ($e8)($e8)J__($ee)($f9)^^($fe) ($fe)5hSTOP Encountered HIMEM ON  IF '/3 @' 32804 /9  LOAD AUDIO ' REM REM line numbering breaks here! REM $/  PROTECT MERGE  AUDIO ($ef)E($ed)G PCLEAR C<  MERGE B EDIT A EDIT AND ($ef) AND  READ ,($ec) ON ' COPY ^ MERGE 9($ec) 1=4 ($ec) ON 1=O_ ($ed) MOTOR  PSET VERIFY ($f9)2b SET / LOAD ^ SWRITE ON  2 RESET / WAIT 1($ec) COPY / MERGE b($ec) COPY / MERGE f MERGE `($ec) COPY / MERGE ^($ec) AND  MERGE F MERGE D9 RESET \ CLEAR 4' * ELSE  NEW 4 DRIVE 5 ' READ  CLOSE `($ea) FLREAD ELSE  PCLS ' PRESET  TO PROTECT 1($ee)E($ee)G90 FLREAD FOR *=@XO PROTECT ($ec)=n= LLIST m"' 0 FLREAD ELSE STEP ;& SAVE 0($ec) ELSE COPY ^909 LLIST m"'($f0)09 & ? { 36085 FLREAD FOR X($ec) SKIPF PROTECT 1n PCLS ($ec) ELSE 1= ($ec) ELSE 1=($ec) DELETE =* +($ec) ELSE 1=($ec) EXEC + REM REM line numbering breaks here! REM ($ed) EXEC ($ec)0($ec)= AUDIO EXEC , CIRCLE 09($ec) ELSE 1=($ec)($ec)=4 SWRITE EXEC ($ed) EXEC m RENAME * RENAME ($ec)0($ec)= AUDIO EXEC / RETURN 09 SET F_ READ J 8 SET F_ READ B($ec)+ 12710 =D$& r SET F_ READ .1:< FOR ($ed)!O_($ed)# EDIT ($fd) AND READ j($ec)!($ed)-($ec)#($ed)B DELETE EDIT D/ READ 0($fd) PUT /($FF41)09($ec) IF COPY 11: DATA  FLREAD -($ed) EXEC ($ec)A($ed)"($ec)C($ed)$9 SET F_ READ SWRITE WAIT CHAIN / READ MERGE DELETE D NEW BOOT ($fd) FOR READ " PROTECT CHAIN ($ec)!($ed)-($ec)#($ed)B DELETE EDIT D BOOT $ PAINT / READ FN 0($fd)f,($fe)($f3)09 DRIVE 49($FF14)($FF1A)($FF5F)($FF67) FLREAD FOR STEP REM '" READ k READ  FLREAD  STEP G& READ ($fe) BEEP 1 DIM RENAME ($fe)($e8)($ec) GO COPY 14 LLIST ($ec)!($ed)($f1)9 READ X READ FLREAD  STEP G& RENAME READ  LOAD ($ec) GO COPY 14 LLIST  L LLIST  GO 4@ PROTECT >4B0 LLIST 5H3 DIM n/  ! .  M p($ec) ELSE COPY 140 LLIST  FLREAD " SWAP ($f1)9($ec) ELSE COPY 140 LLIST ($ec)!($ed)($f1)9($ec) ELSE COPY 140 LLIST 5@($ec)!($ed)-($ec)#($ed)B DELETE EDIT D9($ec) ELSE COPY f($ec)- COPY 14($ec)B40 LLIST 5F]&J NEW > SCREEN ! RESET H DELETE CLS EDIT NOT GO ($FF27)Z&($f5) >*($f1)O9($fc) DATA ($FF6E)5F AUDIO ##($ec)# SCREEN !#($fc)i LLIST ($ec)!4 LLIST  FLREAD " SWAP ($f1)9r CLEAR . NEW 0 READ ($fc)($f5)p($fc)6($fc)6^9($ec) ELSE 0 SET 1($ee) TRON  POKE J"/5($ee) PCLEAR +($ef) TRON  WAIT F COPY ^9 SET 1 PSET TRON "/6 CREATE ($ee) TRON  SCREEN STEP ($ef) TRON  WAIT F9($ec) ELSE GO '5 LLIST ($ec) ELSE XIXI+ REM REM line numbering breaks here! REM 3 NEXT 4@($ec)!/  AUDIO GO "' 18776 I+ REM REM line numbering breaks here! REM ($ec) NEXT 4 FLREAD ELSE STEP "5' NEW COPY ^95 RESTORE PROTECT 1 STEP &($ec) COPY ^($ed) AND  DATA  EDIT AND 09o AND 09 READ / ?'  READ ? ELSE a5D STEP &o NOT EDIT -5 RESTORE 0 413  DATA  STEP J& DELETE GO ($ee)c PCLEAR c SCREEN !n- 5830 ($fb) INPUT 09? ($FF2A)* Input error - reenter ** LEFT$ . 11415 MERGE 4 SCREEN VERIFY FLREAD ELSE STEP RESTORE & LLIST 4 SCREEN ! 40 DIM NOT READ O5 CLEAR  RETURN .& CLEAR - NEW /($fb)1$ STEP & CREATE ($f7)6 OR READ $0 DIM CSAVE READ & FN FLREAD FOR STEP K'($ef)5 DATA READ 4 FLREAD VERIFY = SET F($fb)$($fd)($ec) DELETE VERIFY GO 2b2cC94 2z1 VERIFY PCLEAR ! LOAD FOR MERGE REM /($fa) SREAD / REM REM line numbering breaks here! REM ($fa) MERGE 2f5 CLS DELETE FOR GO & LLIST  FOR FOR GO '($fa) PLAY ($ec) GO COPY f($ec)B MERGE >($ec)- ($ec) GO COPY 1 DELETE  FOR FOR 5 GO 4@ PROTECT >4Bn EXEC FLREAD ELSE STEP T& 0 LLIST  STEP K'0 DELETE " NEW 9 FLREAD ELSE STEP T&$ READ SWRITE  MERGE STEP K&0/($fa)r$ STEP VERIFY '($f5)($FF57)($f8) FLREAD FOR STEP K'($f5)9 READ X'9 READ  FLREAD FOR STEP K'($f8)9($FF74) READ - DELETE VERIFY &L MOTOR EXEC '($fd)- GO '/G DELETE EXEC GO &($f6)($fa)$($fd) MOTOR EXEC ($ec)($fa)($fd) 04 SET 9&/O TO LLIST  STEP K'($ec) ELSE COPY ^ RESET 95 RESTORE STEP ?' STEP >9 CLEAR .($FF5B) LOAD FOR MERGE REM FLREAD FOR STEP I'> READ ($e8)'" STEP K' STEP Q'0 LLIST  FLREAD EXEC = READ FLREAD  FLREAD / READ  FLREAD FOR READ AND & RENAME / READ / 38622  PROTECT M&9($f9) PUT $($fa)Z LLIST  LOAD J MERGE LET MERGE DIM PROTECT F4F CONT LOAD H MERGE J FLREAD  READ CLEAR ' FLREAD FOR READ RESTORE '0/($f9) END $($eb)5F MERGE J WAIT F AUTO 1 DIM RENUM 1 DIM CIRCLE 5F MERGE J WAIT Fn EXEC CLEAR .($fe) BACKUP PROTECT FOR WAIT REM FLREAD FOR ($FF5F)'" STEP K' 0 O/($f9)R SET LLIST  FLREAD EXEC =($f9)G POKE FLREAD ($FF3D)& FLREAD ($FF74) READ ? INPUT  READ ? END 0-$" REM REM line numbering breaks here! REM BOOT ($fe) INPUT ($fe)I3 ELSE 5 GO $ 0 READ  FLREAD DATA O 5 5 CLEAR 9($fe)i? RUN DIR STEP K'($f4)9 FLREAD FOR STEP ;' PROTECT /($ec) AND  COPY ^ MERGE 99($ec) ELSE + 800 ($f2) LLIST 4 SCREEN !? PRINT PSET 5 RESTORE LLIST  DATA 4 SCREEN !? DATA ($ef) LLIST  DATA  ($f1)($fd) FLREAD  SET F1: DRIVE O($ed)!($fb) RESET LLIST  SCREEN !4p($f8) ELSE 5p READ 2 WAIT CIRCLE  PROTECT FOR ? PROTECT CIRCLE ? LLIST 4P SCREEN ! READ ?14? MOTOR VERIFY &($f9)2a] BEEP SHELL SET H DATA EDIT 0 READ ($FFEE)3 EXEC 4 AUDIO SAVE O_9 LLIST  FLREAD " DSKINIT 6 PROTECT 1'm AND '($ee)E SCREEN AND ($ec) AND  MERGE F($f9)s READ READ P($f8) ($f8)($f8)($FF30) DIM ($fb)($fd)6($f8) DRIVE 6?9_ /O MERGE B09 FLREAD FOR O0 NEXT 991 ELSE ($f7)($ef)0 EXEC 9/3 TROFF DATA  O PROTECT 1 EDIT A09 CLEAR 4 IF & END   CLEAR 4 IF ' ELSE ($fe) NEW 4 LOAD 4 LOAD  MERGE 5 MERGE 9($f7)-4 DRIVE BACKUP STEP CLS '! SET H SET > DELETE NOT 0' EDIT CLS GO ($FF26)($f4) DELETE AUDIO END FOR EDIT EXEC  SET H($f7) READ @3 ELSE ($ec)-& SET CHAIN 1#($f7)}0($ec) ELSE ($ed)- SCREEN VERIFY ($ed) VERIFY PROTECT 1 CLEAR 4 EDIT - DRIVE C SWAP B LOAD J($ed)M LOAD @($ed)O LOAD 9($ed)I READ { PCLEAR K5 DELETE '7 GO "'3 GO !'/+($FF0D)($ec)E4($ef)E2 EXEC LOAD @4 AUDIO SAVE DVDV4($ec) 1 READ ($f7)($ea) PRESET NEXT PROTECT 1($ee)E5 PCLEAR E$ COPY ($FF4D) CLEAR 4 ELSE  NEW 4($f7) BACKUP DELETE - IF '($FF31) DELETE - NEW 4($ec)M MERGE J($ec)O MERGE @($ec)I MERGE 9 FLREAD B MERGE B SCREEN C($f8) SCREEN K LOAD D POKE J MERGE 94@ FLREAD FOR O4 STEP M&w1 VERIFY 4 FLREAD ELSE STEP '/ LLIST 0 GO ' GO '($ec)!($ed)$ DELETE EXEC /3 DIM BEEP RENAME /3 SKIPF WAIT F ($ee)! LOAD H POKE J MERGE > LOAD H MERGE J DATA  0 LLIST 5 l EXEC GO 4@ PROTECT >4B FLREAD FOR STEP K' CIRCLE 0 PCLEAR !0 DIM CLOAD PROTECT F WAIT @5 STEP 5  FLREAD IF O($ed)+5($ed)+j EXEC &($e9)1-  SET F RESET @ POKE J($f7)4 MERGE 5 CHAIN LLIST  SCREEN !4($f6)E5 RESTORE ($f6)X0 READ ($f6)Z RESET 94 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR 4d LIST  PMODE -  SWAP LLIST  LLIST $ LLIST *i-E($ef)($f3)C DATA ($eb)($f2)N RENAME ($f3)($ef)= BOOT  DSKINIT J LET "p($fe)2|h: REM  `B ON *v($fa)($fc)0($f6) gx GO  GO REM REM line numbering breaks here! REM PMODE PMODE PMODE PMODE SUB SUB SUB SUB 1 < SREAD  FREAD  DLOAD  REM REM line numbering breaks here! REM EXEC EXEC EXEC EXEC GET GET GET GET  AND  PROTECT ^ SREAD  PROTECT END END CLOSE CLOSE < . ($ed) ($f5)N OFF  USING ($fa) r GET N PCLEAR 2806 ($ea) @ @N  ; DATA N ; P Y * j($f6) > ERROR CHAIN PUT DLOAD  FOR  LINE Rh^? SOUND  STEP  SET F LOAD J MERGE H X PROTECT ($ec)* PRESET = FLREAD FOR +($f5)O DELETE EXEC 9 READ 4 NOT PROTECT H($ec)/3=($ef)b5 NOT READ  ($ef)2b DATA ($f2) 2b DATA ($f6)  DATA INPUT NEW AUDIO ;  DATA IF NEW AUDIO NEW ;($ec) GO COPY b MERGE CHAIN PROTECT CHAIN DELETE - ELSE RENAME NEW BACKUP ON FOR NEW AUTO DELETE - ELSE  FLREAD  BEEP AUDIO 4 DELETE - ELSE ' REM REM line numbering breaks here! REM LIST ($ec)A COPY f($ec)- MERGE < DELETE a& DATA  EDIT VERIFY ($ec)B MERGE >O_ S1:O_($ed)!3D ($ec)-($ed)! ($ec)($ec)' POKE B AUDIO STEP /7($fe)L SWRITE !($ed)'ja& SWRITE DELETE VERIFY ' GO ' GO ($ec)- MERGE > ($ec)' ($ec)'XI1, < ($ed)! SCREEN ($ec)!1& AUTO &4 LOAD < COPY 1 POKE @$R5 AUDIO B"I SWRITE - @ COPY < ;&8 SWRITE !1& 4 DELETE VERIFY GO ($ec)A COPY f($ec)B MERGE >($ec)- ;' VERIFY COPY 1 AUTO & POKE @$ LOAD > AUDIO B($ec)B MERGE >($ee)-  COPY 1O5 DATA /8($fd) PAINT 3 FOR ($ec) GO COPY 1 FLREAD -O1:($ed)! DATA  EDIT EXEC 93 GO ($ec) GO COPY 1($ec)-1:($ed)! DATA  EDIT EXEC 9O_ AUDIO !($ed)!9($ec)' SWRITE !1&($ed)!9($ec)' AUDIO !1&($ed)!9($ec)''5' 1260 ! ($ec)!' ' 2284 'XI($ed)'  DELETE (= EDIT # DELETE ( SWAP ( FLREAD !=($eb)# DELETE ' SWAP ' FLREAD "=($eb)' SWAP '1&9o EXEC ($ec)'*@P REM REM REM line numbering breaks here! REM ($ed)'c EXEC ($ec)!*@P REM 25508 ' REM REM line numbering breaks here! REM 9 READ WAIT &($ec)''GV($ed)'< 8247 ($ec)!&/-($fc)($f8)($ec)'&1&($ed)#9M& INPUT ($ed)'/ / SWAP #O_h(i'YI AUDIO !+l(  SWRITE !j#&($ec)($ed))m EXEC *@P REM REM REM line numbering breaks here! REM ($ed))($ec)'@P REM ($ed)'1&91: FLREAD FOR DATA ($ed) EXEC ($ec) GO ($ed)"($ec) GO ($ed)$9($ec) GO COPY 11: DATA  FLREAD -($ed) EXEC ($ec)A($ed)"($ec)C($ed)$9 DELETE ON  EDIT 9 FLREAD AND  SWAP 4m"'m(&($ec)!($ed)'($ec)#($ed)) DELETE EDIT +1&5 RESTORE DELETE ' CLS !(*($e8) ($f2)+ GO / ($ea) GO SAVE - ERROR FLREAD ! SWAP ' FLREAD +- SWAP EXEC ($e8)- SWAP ! FLREAD +-($fe) SWAP + FLREAD -($fe) SWAP M'1*'@0& READ {m!'. AUDIO $ SREAD # SOUND "$8CSCS+ 292 + REM REM line numbering breaks here! REM j EXEC $0 EXEC READ U PCLEAR "($ed)$ SCREEN (($ec)*m!& CHAIN SWRITE $($e9)# TROFF "$ FVFVl'M+j') PRINT XIYI*($f0)+ 292 + 838 l'($ed)(-($fe)m EXEC '\($ed)*1&5 RESTORE FOR  FOR 4O FLREAD   NEXT 4($ec) LET REM REM line numbering breaks here! REM m VERIFY '+  NEXT $4O FLREAD  SCREEN m VERIFY &  NEXT 4($ec) SCREEN  DVFVj VERIFY &($f4)2a9 READ ($fb)]94 DELETE "* DELETE (+ O_($ed)'($ed)) EDIT +1&5 RESTORE DELETE ! PCLS '(*($ec)S/25 RESTORE EDIT ' FLREAD +($e8)- SWAP EXEC DELETE + ELSE ($fe) EDIT + FLREAD -($fe) SWAP = EDIT SREAD o SREAD o SREAD DELETE + FLREAD $= SWRITE a($ed)a$l VERIFY DELETE * FLREAD = SWRITE a($ed)a$l VERIFY FLREAD b SCREEN VERIFY PCLEAR ao VERIFY DELETE + FLREAD #= SWRITE a($ed)a$l VERIFY DELETE * FLREAD $= SWRITE a($ed)a$l VERIFY DELETE ) FLREAD = SWRITE a($ed)a$l VERIFY FLREAD b SCREEN VERIFY PCLEAR ao VERIFY DELETE + FLREAD "= SWRITE a($ed)a$l VERIFY DELETE * FLREAD #= SWRITE a($ed)a$l VERIFY DELETE ) FLREAD $= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD = SWRITE a($ed)a$l VERIFY FLREAD b SCREEN VERIFY PCLEAR ao VERIFY SWAP + DELETE * FLREAD "= SWRITE a($ed)a$l VERIFY DELETE ) FLREAD #= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD $= SWRITE a($ed)a$l VERIFY FLREAD b SCREEN VERIFY PCLEAR ao VERIFY SWAP * DELETE ) FLREAD "= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD #= SWRITE a($ed)a$l VERIFY DELETE ( FLREAD "= SWRITE VERIFY + h+i*ibYIj')($ed)( DELETE b FLREAD *+ 4972 )&l(& f(l'(2c($fe) BACKUP -($fe)($ea) EXEC ($ed)*1&2c_5 RESTORE READ ($f9)($fc)9S/-m"'($f8)4m('($fe) CSAVE DELETE ' CLS !)($fe) EXEC EDIT ' DATA ! FLREAD ($e8)+-($ed) EXEC d"f#f$f($ec)( SCREEN *DVFVo+  AUDIO $$' REM REM line numbering breaks here! REM  AUDIO "'/+)j EXEC 'ti+i*i)i(XIYI$ DSKINIT  SWRITE $$+  SWRITE "'* DSKINIT ($fe) DIR 0 ELSE & BACKUP FLREAD EXEC Z NOT - NOT - SWAP EXEC DELETE +/ FOR )= SWAP EXEC < FOR SCREEN * =- SWAP EXEC SCREEN ) DELETE +/ FOR = SWAP EXEC SCREEN (($ec)*YIYI($fe)j EXEC *($f2)M  SCREEN *($ec)(+YIYIj')($fd) BOOT + 292 + 1862 l')($fd) AUTO ($ed)(-($fe)($ea)!($ed)*l')($fd) FN 1&_5 RESTORE 4($ec)''($f5) SCREEN !&1&< FOR ($ed)!o#o$o5 RESTORE ($ed)! PCLEAR '($ec)) SCREEN #($ed)# PCLEAR ) DELETE + FLREAD EDIT SWAP +5C($fd)a($f6)($ec) GO COPY 1 FLREAD -O1:($ed)! DATA  EDIT EXEC 9 FLREAD ( VERIFY " FLREAD (($ea)"  FLREAD (($e8)"1&($ed)!9c"940 SCREEN ! SCREEN ' RESET H DELETE CLS MOTOR FOR & GO ($FF26)($f6)Ll MOTOR 5 COLOR READ SWRITE N P READ MERGE #H J READ DSKINIT 'B D READ BOOT &< > READ =$6 8 READ *"0 2($ec)' AUDIO !-( *($ec)' AUDIO !/ "($ec)' AUDIO !& ($ec)' AUDIO !' ($ec)' AUDIO !, ($ec)' AUDIO !//($FF20)/ 9965 ! DATA  EDIT EXEC 9 FLREAD ( SAVE "'($ea) ($ec) FLREAD ( SAVE "& SREAD VERIFY READ "- LOAD PROTECT READ / DRIVE FREAD READ & BEEP CHAIN READ '> < READ ,- / READ . FN NOT 4 ($f0) DELETE (& DELETE "' DELETE ELSE &($f0)5 CLS DELETE "& DELETE + ON  ($ec) DELETE + TRON ELSE & SREAD 3& DELETE ELSE '2($ec)A AUDIO !& KILL ($ec)C AUDIO #& DELETE E MOTOR ' AUTO AND ($f0)5 CLS _ DSKINIT > PROTECT H1:($ef)! RESET D POKE D$ DELETE FOR EDIT NOT GO ($FF27) Z&($f0) >*($ec) DATA LOC NOT WAIT H DATA  EDIT EXEC 9//($f7)h($ec) GO COPY f($ec)- COPY 1($ee)B WAIT >4 DRIVE ?& >0- READ PMODE 5 RESTORE ($ee)!1& DELETE NOT EDIT ^ GO ($FF26)($f8)3_ WAIT H9 LOAD >1:($ed)#($ef)! DATA  EDIT EXEC 9O_($ed)$($ec)!& SWAP # DATA  EDIT EXEC 9 AUTO M*@P REM REM REM line numbering breaks here! REM lM& AUTO  INPUT M+3_XI*($fa)($ed)"($ef) EXEC 91& READ =1:9 FLREAD !.+ DELETE "*< 18255 _ K NOT ":&($ec)"f$?' FOR REM REM line numbering breaks here! REM &,m$*5 & STEP ($f8)"4($ec)"($ed)#o"5=' d"f#f$\&($f7)($ec)"m$* + 1478 4($f6) SET f$@P REM REM REM line numbering breaks here! REM ($ed)! DATA  EDIT EXEC 91& READ NEW 1:91, READ RESTORE 149 DELETE ELSE ($fe) EDIT 9($ec)!*@P REM 14671 FLREAD PLAY ($ed)!9 DELETE "' DELETE ELSE & / ($ec)!+&($f6)_ /($FF1D)  DRIVE 66O1:($ed)! DATA  EDIT EXEC 9 DRIVE } ($f2) FLREAD W =/ DSKINIT n($ec)!'($ec)LG EDIT !($ec)" DV($ed)<($ec)$FV ($ed)<($ec)$($ed)>O_($ed)"($ed)$($ed):($ed)8 ii$i#i" n'D READ W FLREAD < NOT @ SWAP <($ec): SREAD SOUND $($ed):($ec)8 SREAD # SOUND "($ed)8* FREAD ($fe)ii$i#i" n' READ / FLREAD <= NOT SWAP <($ec):($e9) TROFF $($ed):($ec)8($e9)# TROFF "($ed)8+ FREAD SCREEN ($ec)" j!)($fa)Yhi$YI*($f2)($ed)"9 READ REM REM line numbering breaks here! REM h?i>i=i($ed)! MERGE < 972 REM REM line numbering breaks here! REM 1:($ed)! DATA  EDIT EXEC 9c!c"9($ec)! EXEC ' VERIFY ( ($ec)! TRON '($e8)( ($ec)! LINE '($ea)(($ed)'1&9($FFDE)[ FREAD LINE READ 3 READ ($FFF5)($f7)($eb)($f9)!4 FLREAD W($ec)!' 4/ SWAP !1 TRON FLREAD 0 TRON 3 EXEC ($f9)O_($ed) TRON ($ed) TRON  EDIT TRON 0 READ  SOUND PCLEAR TRON &0 TRON 3 TRON  RENAME ($f2)1 TRON / SWAP EXEC FLREAD > SWAP 5 READ 5($f7) PSET 6136 *P ELSE 43 READ ($FFEF)($f7)z FLREAD DELETE a GO ';= SWAP FLREAD $ EDIT $ DELETE a=($eb)$ INPUT REM REM line numbering breaks here! REM SWAP $ FLREAD # EDIT # DELETE a=($eb)# INPUT SWAP # FLREAD " EDIT " DELETE a=($eb)" INPUT 27681 DVf#f$fM&($f3) SWAP " FLREAD -($fe)($ea) VERIFY SWAP 5 DATA 4 FLREAD !' STEP / FLREAD VV AND FOR  REM REM line numbering breaks here! REM SKIPF STEP VERIFY /($fa)*]* o SREAD FLREAD -'E 1 DATA q= PCLS ! FLREAD -4($e8) SWAP FLREAD VERIFY ($FF6C)($f7) FLREAD !/($eb) VERIFY SWAP VERIFY FLREAD ! ($ee)54]'@ EDIT VERIFY ($ea) SWAP 3 READ ($FF46)($f6) BOOT ($f6)($ec)j VERIFY FLREAD -&($ee)1 TRON FLREAD 0 TRON 3 TRON ($f3)($eb)< 20461 " EDIT $0 READ w PCLEAR TRON  READ 0 EXEC 3 TRON  DIR  SWAP 1 TRON 5($eb)!) DATA ($ed) EXEC 5 RESTORE DATA  NEW CSAVE 0 READ ^ RESET LIST 0 INPUT REM REM line numbering breaks here! REM _ RESET NEW {1:*($f7) TAB(/2($f3)4 READ 2($ec)!'`' FOR . & ($ec)#& DELETE ' 1665  REM REM line numbering breaks here! REM REM 1 TRON ($ec)0 TRON 3 EXEC xp0 TRON  9668  DSKINIT m($e8) SWAP 93 DIM @4P READ ($ee)($ec)!' REM REM line numbering breaks here! REM CLOAD ' FOR . AND &($ec)#& OFF DELETE & FN CLEAR m&_($ed)!5 BEEP 1&5Pn READ 41 TRON ($ec)0 TRON 3 EXEC *"0 TRON  9605 ' PROTECT 1mA'3 DIM ($f5) DRIVE A($f5)($ec)9 PUT REM REM line numbering breaks here! REM CLEAR m41 TRON ($ee)<($ed), DATA FOR _($ed).O($ed) TRON ($ec) TRON ($ed) EXEC ($ed)&($ec) TRON ($ed)"($ed)(($ec) TRON ($ed)$($ed)*($f6) CREATE ($f5) COLOR ($fb)($f7)5 NEW m94($FF55) FLREAD ! STEP - 1& 8480 S1 TRON FLREAD < 20461 " EDIT $ FLREAD TRON  g EXEC f!f"f#f$Z STEP .($f1) SWAP TRON 0 TRON 3* INPUT  GO O_($ed) TRON ($ed) TRON  EDIT TRON 0 READ  DSKINIT PCLEAR TRON .0 TRON 3 TRON hz1 TRON  DELETE CSAVE m EDIT PROTECT 1mA'3 READ REM REM line numbering breaks here! REM ELSE ($f5)($f6)L 4 '0* READ DELETE DEF CLOSE EDIT DATA  EDIT EXEC 5 RESTORE 3 TRON /A1 TRON 0 READ +3! ($f6)4 READ W0 EXEC READ RENAME DELETE DEF OPEN CHAIN 4 READ I0*3 TRON 0 EXEC 1 TRON 3! 520 ($ec)!&1&<($FFED)! DATA ($FFED)#J ($f7)? DELETE DEF OPEN CLOAD  OR  ERROR SOUND ($fb) LET ($fa)5 FROM . RENAME CREATE 3 READ ($FFED)($f4) INPUT PROTECT 1mA' 3 READ ($FFE5)($f4)|($f5) PAINT  OPEN FLREAD - DSKINIT CLOSE ($e8) SWAP READ KILL l!($f9)-($fb)x READ BACKUP j!($f9)- OPEN CLEAR CLOSE ON  NEW CLOSE ($f4)c READ DLOAD j!($f8)($fa)/ CLEAR OPEN ON  NEW OPEN l! DELETE + END  EDIT +($f4)O1:1 TRON ($ec)0 READ REM REM line numbering breaks here! REM AND PCLEAR TRON 0 TRON 3 TRON  READ VN< 20461 " EDIT $($ed)*($ed), EDIT .0 READ  CLOSE RESET LIST 0 INPUT REM REM line numbering breaks here! REM A RESET NEW  CSAVE / DSKINIT CLOAD  LLIST 3 TRON  SET LIST CLOSE NEW $ READ $0 RESET LIST / READ l0 EXEC 3 READ & CSAVE &0*3/ READ  PRESET PLAY  LLIST CLOAD & CHAIN 940 DELETE ELSE  SCREEN  SCREEN  EDIT - PCLEAR A PCLEAR C5 COLOR FLREAD ELSE  DRIVE LLIST TTT$\4' EDIT NOT Z&($fb)/ RENAME RENAME ' DELETE FOR EDIT NOT Z&($f9)3[ DRIVE LLIST -'$ STEP  NOT  DELETE ELSE HiDiCiBiAi-\&($f2)9g-fAfBfCfDZ&($f3)9 DELETE * TRON EXEC C  DELETE TRON M*0 EXEC 3/ READ P0*3 READ f0 TRON 3 TRON  B0 EXEC 3/ READ X0*3 READ 60 TRON 3 TRON  J0 TRON 3 TRON  READ B+$& ($ec)&($ec)&/ DSKINIT CLOAD 0 EXEC 3 0 EXEC 3 READ GO $"0 TRON 3 TRON ($ec) SWRITE C($ed)($ec)$+ $l ELSE SWRITE A($ed) DELETE ELSE TROFF - EDIT ELSE 9($ec) AUDIO C($ed)($ec)$' 618 ELSE AUDIO A($ed) DELETE ELSE SOUND - EDIT ELSE 9 FLREAD -o-=,P($FF4B)hDiCiBiAi-Z&($f3)9 DELETE -* O_($ed)-($ed)B EDIT D9< ZhDiCiBiAi-+J&($f0)_($ed)-9 DELETE - SWAP - FLREAD A EDIT A DELETE B SWAP B FLREAD C+ REM REM line numbering breaks here! REM -($fe)($ed)C$ lB&lA&fAl-9 RESTORE ($fd) LINE "k STEP X($eb)n THEN &($fd)[ TROFF PCLS ($FFAA) MERGE DLOAD 22255 43703 REM REM line numbering breaks here! REM ($FFD5)V 64171 65365 65515 65533 REM REM line numbering breaks here! REM  155 t($ed) TRON !~| AND ($fb)0 RETURN ($fe)($f8)($f3) SREAD pv SWRITE REM REM line numbering breaks here! REM ($f8)Q DATA  ~ l: ? GO Qb  RENAME *k ($f8)Q 170 REM REM line numbering breaks here! REM  SGN  ($FFE0) ($FFF8) ($fe) 16383 FOR 65504 65528 65534 REM REM line numbering breaks here! REM 14  SOUND TAB(@ FLREAD -6b($e9)O_ MERGE L MERGE N4 DELETE "' FLREAD *&c VERIFY =($fe)($eb)! DELETE $ MERGE R($ec)" MERGE P CLEAR S DRIVE W= MERGE N CLEAR R DRIVE W= COPY M$ L MERGE M CLEAR S DRIVE V= COPY M$ L MERGE M CLEAR Q DRIVE W= COPY L MERGE L CLEAR R DRIVE V= COPY L MERGE L CLEAR S DRIVE U= COPY L MERGE L CLEAR P DRIVE W= KILL L DSKINIT L CLEAR Q DRIVE V= KILL L DSKINIT L CLEAR R DRIVE U= KILL L DSKINIT L CLEAR S DRIVE T= KILL L DSKINIT L LOAD N COPY Z MERGE R LOAD L FWRITE Y CLOAD X MERGE Pm RENAME &* LOAD P($ed)" LOAD R($ed)$o! DATA 4($ec)"+j VERIFY ' j!hi$YI*($f2)($ed)" FLREAD -($fe) SWAP 5 ELSE LOAD R-($fe)($ed) AUDIO LOAD P($ed) AUDIO O_($ed) AUDIO READ BEEP ($f2)! LOAD H($ee)! AUDIO !' 18669 ! DATA  EDIT EXEC 9($ec)! MERGE H FLREAD PLAY O ($ef)($ec)!M& 18671 ! SWAP NOT  RESET D POKE D$($f5) SAVE 9($ec)!/ SWRITE ' POKE H$ READ 1&91&($ee)! v($ec)!/($f6)4 LOAD H AUDIO !' 41767 #($ee)' DELETE FOR EDIT NOT GO ($FF26)($f8) WAIT H1&5 RESTORE ($ec)!/($ec)'.($ec)!1&($ed)! PUT ' REM REM line numbering breaks here! REM '($f3) SWRITE - POKE H1& PCOPY 4 FLREAD "($ee)- DELETE FOR EDIT NOT GO ($FF27) Z&($f5)j!*($f1) DATA LOC NOT WAIT H1,5 RESTORE PROTECT H3_ AUDIO !' DELETE OFF GO '($f5)3A DATA LOC NOT WAIT H940 LOAD H AUDIO ! SWRITE '+ 10000 SCREEN !($ec) SOUND $O_  SCREEN b AUDIO + REM REM line numbering breaks here! REM 50($ed)' DATA  EDIT &1&9/ / CLEAR } PROTECT REM 4R($ec) SET REM DATA LOC ELSE SCREEN c($f4) DSKINIT 5R NEW } WAIT REM 9/C($ec)c4($ec)!-($f5) RESET D PROTECT H($ef)! DATA BOOT }# EDIT NOT Z POKE D($f4)($f4) FREAD 4 DATA LOC NOT WAIT H DATA  EDIT EXEC 5 RESTORE 41:0: PROTECT H($ef)!? FROM READ  DATA / READ  DATA / READ  DATA READ DATA : READ  DATA : READ  USING EDIT NOT DELETE FOR //\ FOR $($fb) SWAP NOT /:ZL&($fc) SWAP NOT 9 DELETE "/? READ $ STEP COPY &/($FF20)/ O($ed)! DATA  EDIT EXEC 9/44 PLAY /P0 READ ($fd)p($ec) GO ($ed) MOTOR j VERIFY &($f8)0 READ ($ec)K RESET 0 READ ($ec)* RESET  DATA ~ NEW 0 READ ($ec)^ RESET 5 PUT 4 FLREAD ($f8)0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR RENUM  LLIST ' LLIST ' LLIST ' LLIST '4 CLEAR X0 DIM ($ec) IF 0 NEXT PCLEAR d5 CLEAR _++ PMODE  GET  LINE JXk5 SOUND ($f9)($e9)x  ERROR  RENUM bY'($e8) d  CLS 1992 2810 3740 @ REM REM line numbering breaks here! REM +P ($f4)$ 39062 FOR REM REM line numbering breaks here! REM  FN TO ($ee)k( 761 REM REM line numbering breaks here! REM RENUM C PMODE @(($e8) CREATE SKIPF , RETURN ELSE SWAP */ DRAW FLREAD ($f4)2 SWRITE _ TROFF 26 LET  OR NOT 9 CIRCLE SOUND TO .< PROTECT k:@ END ^#True($FF46)alse($FF34)@1:O_ NEW u NEW v NEW w NEW x NEW y($ed)$($ed)" EDIT !)$ 0 GO ,&o 9232 ': GO +' GO -& x DELETE FOR GO .& w&R w ($f2)KP4 v($ec)$($ee)" READ ,($ed)$($ef)" READ & READ $ SWRITE $($e9)# TROFF "'($eb) RENAME INPUT 13121 ($ef)"'($ed)$($ef)" w' TAB( y PMODE XIYI92b2a/< /; DSKINIT 6C5 NOT ON E ELSE WAIT '#0 v& ($eb) w&E($ec)"&A($ec)$+= x'@P REM REM REM line numbering breaks here! REM ($ed)! DATA  PRINT DELETE ELSE GO +' GO -& u0 SUB SUB  INPUT  PCOPY $0 4 DATA =($eb) RENAME u&P KILL y DSKINIT y/ SWAP !($ec)"&  AUDIO $&o! FM+ j!hi$YI*($f6)($ed)"u DRIVE y')*P u STEP # NOT 43 READ ($fe)= READ &5($FF5F)Z DATA =3 READ ($fe)a3* READ ($FF4F) DELETE ELSE ($fe) CSAVE x EDIT DATA  EDIT EXEC ($fe)5 NOT 1:($ec)-($ed)!($ec)B($ed)# FLREAD D SWAP CLEAR u'($fd)($ef)($fd)($ef)'$ GO a FOR GO A GO F" FOR 7 v/h"i!($FF07)Z&($f5) PCLS " EDIT " DRIVE 0 v'($fe)($fa)($FF22)4 SET REM ($fe)`$5 RESTORE GO '($fd) SOUND  1990 = DSKINIT 6C5 RESTORE RESET REM O5 RESTORE 4 SET REM ($fe)= MERGE GO &m!' PROTECT 4 SET REM ($fe)*> GO ' BACKUP /: DSKINIT 6C5 RESTORE 4P1: PROTECT J($ef)! DATA  EDIT EXEC SET REM DELETE FOR READ S EDIT NOT ($f6) RESET REM DATA LOC NOT WAIT HO5 BEEP 41: DATA  EDIT EXEC o" SET REM READ . GO T' GO t' ON F ELSE WAIT ' /: DSKINIT 6C5 RESTORE c" READ $($fc) RESET REM O5 RESTORE DELETE FOR GO & READ $  DELETE FOR GO '($fa) RETURN MERGE ' GO ' GO ($FF27)($fe)9094PO EDIT # NEW v NEW x DATA  NEW ~($ec)!*@P REM REM REM line numbering breaks here! REM x3 READ ($fd)z3B AUDIO - z ($f8) SWRITE - z&m#' l#4 CLEAR z5 ~& KILL  DEF  ($fb)1&5 BEEP 4Pux|{yv3 ELSE < 0 SWAP NOT J&($fb)($ec)!&L 9669 ' DSKINIT x-($fe) SWAP ($ec)!* u@ GO #-/ CSAVE =D INPUT u'P DSKINIT y GO # 43 READ ($fc)($fb)($fe)U5 FOR 3 READ ($fc) CLEAR J/=3=($fe)D($ec)"m!'&*DVf$f|l!&($f4)($ed)" hi$YI {j!&($f4)($ed)" y CLEAR { READ g($ec)"($ee)${ READ f($ed)"($ef)$4 CLEAR { NEW |5 READ X READ V SWRITE $($e9)# TROFF "4 CLEAR { CLOAD | READ = CLEAR v GO 5' ' REM REM line numbering breaks here! REM 4483 REM REM line numbering breaks here! REM &/ EDIT EXEC CLEAR v GO  FLREAD EXEC * DELETE REM L EDIT ELSE GO 9# DATA 0 EDIT ELSE PSET VERIFY &($ef)l ELSE y DATA NEW v1&5 BEEP END 0 EDIT FOR v9XIYI {940 SET FOR RESET REM DATA  NEW } LET  CLEAR ? NEXT 40 LOAD REM POKE FOR ' SET FOR RESET REM CLEAR ? DIM $ DSKINIT 65 COLOR 4P DELETE EXEC GO '($ee)!  DELETE !. AUTO 32  SCREEN "($ee)$ FOR /NC DVFVL&($f1) CLEAR ? ON $ DSKINIT 65 BEEP 4P2v0 VERIFY ($fe) GO 4 DATA 0 FLREAD REM STEP 0&J GO &($f5) NEW v5 DRIVE y.!P DEF STEP "4 KILL v STEP ".4 REM REM line numbering breaks here! REM DELETE O READ r5]' 30240  STEP " REM REM line numbering breaks here! REM RESTORE  DEF READ J READ Y CLEAR v RESTORE y# READ @2jO5 BEEP READ { DATA  READ 5 READ D CLEAR vJ&L READ + READ  SWAP DATA E READ 6 CLEAR yJ4*` VERIFY READ ^  READ ^5O NOT L ($f9)= READ  DEF NEXT 0  INPUT ]' DELETE FOR READ Z&($f9)9 DATA  DATA .4B3($e8) NOT  POKE REM " GO ' DATA P NEW 6 NEW PROTECT  PROTECT REM EDIT NOT WAIT REM }5 OFF DATA 0]' READ FWRITE Z&($fb)9 x'= x'($f7) DATA - OR DATA + * DATA SWRITE READ THEN DELETE FOR GO ($FF26)($f8)94 SCREEN ! READ ($f3)O5 RESTORE 40 READ ($fa) FREAD DELETE "&($f1)0 READ ($fa) DIR ($eb)4P2{0 VERIFY ($fd), READ + CLEAR v0 VERIFY ($FF7A)2eO5 BEEP  INPUT 4@ PROTECT REM BEEP }# READ PMODE O5 NOT ($FF70) CLEAR } ELSE  GO ' ($FF65) ($f3) DATA }($FF62)O94@ DATA 3 EXEC m-&G3A NEW DATA  INPUT W CONT 5 NOT _ DSKINIT PRINT GO <' GO >&\  GO ^&Z DSKINIT PRINT DELETE FOR GO ,'8 GO ($FF26) CLEAR CONT '0  SET LET LOAD ' LOAD " GO )'9 CLEAR CONT '($f9) STOP & PROTECT F7" NEW STOP  RESET RESTORE WAIT F DELETE FOR CONT / SET RESTORE RESET DIM ($fe)9I WAIT H 207 E 211 B REM REM line numbering breaks here! REM BEEP T X '  9572 DRIVE DATA ($FF46) ( READ CLEAR Y DRIVE DATA ($fe)($fc)  GO ($FF27)N GO '& DELETE FOR READ GO D ($fe) PSET DELETE FOR ($e9)40 LOAD LOAD SET DIM READ L GO (&/ CLEAR STOP DSKINIT STOP ') CONT PROTECT F SET RESTORE 6" WAIT F RESET RESTORE DELETE FOR 1 READ STR$ _4 TRON EXEC ELSE WAIT 5'1#\m EXEC &($ef)/? /> DSKINIT 6C5 COLOR DSKINIT IF ($ec)!1 PCLS READ $/ DSKINIT DATA n EXEC READ  INPUT READ  READ READ  READ M'_ DELETE FOR DELETE FOR GO 0 GO 9" FOR 0($fe)994 DATA =($eb) RENAME INPUT REM REM line numbering breaks here! REM 9 GO .& PCLS READ - EDIT DSKINIT INPUT ($fe)/ CLS 50 LOAD DRIVE IF ' SOUND Z'Z'PZ'($f2)Z' 222 LLIST  GO ($ee)!_ DELETE NOT GO ($FF27)\&($f7)($ee)! !3! DELETE EXEC GO &/  GO &/ BOOT DATA /3A DEF H RETURN DATA "6 PRINT '(+ 4X4 DRIVE DATA RENAME RENAME  4X4 DRIVE DATA RENAME RENAME W4 CLEAR DATA CLS RENAME NEW DATA ($fd) AND 5 DELETE -DDDD READ ' DELETE NOT READ 'Z&($ed) DRIVE DATA ($fd) SCREEN O9 ELSE  GO # NEXT ($fd)O DATA 9C9 LLIST  GO &($f6)($f7) ERROR 4P2{0 VERIFY ($fa) SWRITE DRIVE DATA Z BEEP v*2e5P2 PRINT ' +($fd)q($fd)^ ($fd)Y4 CLEAR v($fd)5($fd)] ($fd)H($fd): CLEAR v($fd)2eO5 BEEP LLIST  GO & EDIT 4P0 READ ($f8)3/ DELETE "&0 READ ($f8)./  LLIST  GO & READ 4P SCREEN ! LOAD H AUDIO !' 9732 BOOT DATA # DRIVE DATA  DEF P KILL DATA PRINT '+4($fd)5($fc) PUT 4 T$\4($fc)($f3)5($fc) CLS 5($fc)($e9)O5 BEEP LLIST  GO '$($FF3E)($f7)4P2v0 VERIFY ($fa)t CLEAR y GO . REM REM line numbering breaks here! REM SREAD CLEAR DATA FOR + RESTORE INPUT + RESTORE END *2j5P k NEW ON 0 VERIFY DRIVE PRINT '+ READ A READ  READ  READ 9  READ 5 READ ($fc) DATA 2jO5 BEEP ($fc)~ CLEAR END ($fc);($fc)I DRIVE y*,P BOOT INPUT # DRIVE INPUT 4($fc)[ DRIVE INPUT RENAME RENAME DSKINIT INPUT CLEAR NEXT RETURN INPUT # CLEAR INPUT  DRIVE ON ($fc)a($fc)N CLEAR END ($fc) ($fc) CLEAR NEXT ($fc) DRIVE INPUT BEEP NEXT / ($fc)- DRIVE DATA DATA *($fc)(O9 LLIST  GO '$($fe) NEW ($f6)~4P2v0 VERIFY ($f9) USING CLEAR y4 DATA  NEW y READ :5 DRIVE y STEP 'L/ DSKINIT END NEW y CLEAR DATA FOR + RESTORE INPUT + RESTORE END *2j5P PUT NEW ON DRIVE PRINT ' READ LET READ RETURN ($fb)z  READ END ($fb)s($FF4F)4 CLEAR y OPEN INPUT & DELETE ELSE GO 5$J+0 GO ",0 DATA FLREAD  STEP 5$l ELSE FLREAD ELSE STEP 9#/0 SWAP ELSE 0 PSET VERIFY $($ee) SCREEN VERIFY 0 DELETE REM EDIT  PSET VERIFY "($f8) DATA 1 EDIT ELSE y5 CLEAR y*O NEW END @ NEXT *O RETURN INPUT # CLEAR INPUT NEW NEXT 9/0 DSKINIT 6C9 EXEC BEEP P FROM FROM FROM THEN  RENAME T   . SCREEN  SCREEN errms SWAP PASSWOR- MOT- g ASSWOR- f AS COPY WOR- g  T  dT  200 - Path Table Full 201 - Illegal Path Number 202 - Interrupt Polling Table Full 203 - Illegal Mode 204 - Device Table Full 205 - Illegal Module Header 206 - Module Directory Full 207 - Memory Full 208 - Illegal Service Request 209 - Module Busy 210 - Boundary Error 211 - End of File 212 - Returning non-allocated memory 213 - Non-existing Segment 214 - No Permission 215 - Bad Path Name 216 - Path Name Not Found 217 - Segment List Full 218 - File Already Exists 219 - Illegal Block Address 221 - Module Not Found 223 - Suicide Attempt 224 - Illegal Process Number 226 - No Children 227 - Illegal SWI Code 228 - Process Aborted 229 - Process Table Full 230 - Illegal Parameter Area 231 - Known module 232 - Incorrect Module CRC 233 - Signal Error 234 - Non-existent Module 235 - Bad Name 237 - RAM Full 238 - Unknown Process ID 239 - No task number available 240 - Unit Error 241 - Sector Error 242 - Write Protect 243 - CRC Error 244 - Read Error 245 - Write Error 246 - Not Ready 247 - Seek Error 248 - Media Full 249 - Wrong Type 250 - Device Busy 251 - Disk ID Change 252 - Record is locked-out 253 - Non-sharable file busy 1 - Unconditional Abort 2 - Keyboard Abort 3 - Keyboard Interrupt 10 -- Unrecognized Symbol 11 -- Excessive Verbage 12 -- Illegal Statement Construction 13 -- I-code Overflow 14 -- Illegal Channel Reference 15 -- Illegal Mode (read/write/update) 16 -- Illegal Number 17 -- Illegal Prefix 18 -- Illegal Operand 19 -- Illegal Operator 20 -- Illegal Record Field Name 21 -- Illegal Dimension 22 -- Illegal Literal 23 -- Illegal Relational 24 -- Illegal Type Suffix 25 -- Too-large Dimension 26 -- Too-large Line Number 27 -- Missing Assignment Statement 28 -- Missing Path Number 29 -- Missing Comma 30 -- Missing Dimension 31 -- Missing DO Statement 32 -- Memory Full 33 -- Missing GOTO 34 -- Missing Left Parenthesis 35 -- Missing Line Reference 36 -- Missing Operand 37 -- Missing Right Parenthesis 38 -- Missing THEN statement 39 -- Missing TO 40 -- Missing Variable Reference 41 -- No Ending Quote 42 -- Too Many Subscripts 43 -- Unknown Procedure 44 -- Multiply-defined Procedure 45 -- Divide by Zero 46 -- Operand Type Mismatch 47 -- String Stack Overflow 48 -- Unimplemented Routine 49 -- Undefined Variable 50 -- Floating Overflow 51 -- Line with Compiler Error 52 -- Value out of Range for Destination 53 -- Subroutine Stack Overflow 54 -- Subroutine Stack Underflow 55 -- Subscript out of Range 56 -- Parameter Error 57 -- System Stack Overflow 58 -- I/O Type Mismatch 59 -- I/O Numeric Input Format Bad 60 -- I/O Conversion: Number out of Range 61 -- Illegal Input Format 62 -- I/O Format Repeat Error 63 -- I/O Format Syntax Error 64 -- Illegal Path Number 65 -- Wrong Number of Subscripts 66 -- Non-record-type Operand 67 -- Illegal Argument 68 -- Illegal Control Structure 69 -- Unmatched Control Structure 70 -- Illegal FOR Variable 71 -- Illegal Expression Type 72 -- Illegal Declarative Statement 73 -- Array Size Overflow 74 -- Undefined Line Number 75 -- Multiply-defined Line Number 76 -- Multiply-defined Variable 77 -- Illegal Input Variable 78 -- Seek Out of Range 78 -- Seek Out of Range 79 -- Missing Data Statement  uT &  ,,0,128,/D0/CMDS,.,SHELL USER1,,1,128,.,.,SHELL USER2,,2,128,.,.,SHELL USER3,,3,128,.,.,SHELL USER4,,4,128,.,.,SHELL FROM FROM FROM  T  T ( 13 WELCOME TO DRAGON COMPUTER OS-9 FROM FROM THEN 526 * REM REM line numbering breaks here! REM NOT T *  . SCREEN  SCREEN )OS9Def($f3) 2RBFDef($f3) SCFDef($f3)  STOP SysTyp FROM  SET  T  K RESET T 3 L opt -l ttl OS-9 System Symbol Definitions pag ************************************************************ * * System Service Request Code Definitions * ORG 0 F$Link rmb 1 Link to Module F$Load rmb 1 Load Module from File F$UnLink rmb 1 Unlink Module F$Fork rmb 1 Start New Process F$Wait rmb 1 Wait for Child Process to Die F$Chain rmb 1 Chain Process to New Module F$Exit rmb 1 Terminate Process F$Mem rmb 1 Set Memory Size F$Send rmb 1 Send Signal to Process F$Icpt rmb 1 Set Signal Intercept F$Sleep rmb 1 Suspend Process F$SSpd rmb 1 Suspend Process F$ID rmb 1 Return Process ID F$SPrior rmb 1 Set Process Priority F$SSWI rmb 1 Set Software Interrupt F$PErr rmb 1 Print Error F$PrsNam rmb 1 Parse Pathlist Name F$CmpNam rmb 1 Compare Two Names F$SchBit rmb 1 Search Bit Map F$AllBit rmb 1 Allocate in Bit Map F$DelBit rmb 1 Deallocate in Bit Map F$Time rmb 1 Get Current Time F$STime rmb 1 Set Current Time F$CRC rmb 1 Generate CRC F$GPrDsc rmb 1 get Process Descriptor copy F$GBlkMp rmb 1 get System Block Map copy F$GModDr rmb 1 get Module Directory copy F$CpyMem rmb 1 Copy External Memory F$SUser rmb 1 Set User ID number F$UnLoad rmb 1 Unlink Module by name ORG $28 Beginning of System Reserved Calls F$SRqMem rmb 1 System Memory Request F$SRtMem rmb 1 System Memory Return F$IRQ rmb 1 Enter IRQ Polling Table F$IOQu rmb 1 Enter I/O Queue F$AProc rmb 1 Enter Active Process Queue F$NProc rmb 1 Start Next Process F$VModul rmb 1 Validate Module F$Find64 rmb 1 Find Process/Path Descriptor F$All64 rmb 1 Allocate Process/Path Descriptor F$Ret64 rmb 1 Return Process/Path Descriptor F$SSvc rmb 1 Service Request Table Initialization F$IODel rmb 1 Delete I/O Module F$SLink rmb 1 System Link F$Boot rmb 1 Bootstrap System F$BtMem rmb 1 Bootstrap Memory Request F$GProcP rmb 1 Get Process ptr F$Move rmb 1 Move Data (low bound first) F$AllRAM rmb 1 Allocate RAM blocks F$AllImg rmb 1 Allocate Image RAM blocks F$DelImg rmb 1 Deallocate Image RAM blocks F$SetImg rmb 1 Set Process DAT Image F$FreeLB rmb 1 Get Free Low Block F$FreeHB rmb 1 Get Free High Block F$AllTsk rmb 1 Allocate Process Task number F$DelTsk rmb 1 Deallocate Process Task number F$SetTsk rmb 1 Set Process Task DAT registers F$ResTsk rmb 1 Reserve Task number F$RelTsk rmb 1 Release Task number F$DATLog rmb 1 Convert DAT Block/Offset to Logical F$DATTmp rmb 1 Make temporary DAT image F$LDAXY rmb 1 Load A [X,[Y]] F$LDAXYP rmb 1 Load A [X+,[Y]] F$LDDDXY rmb 1 Load D [D+X,[Y]] F$LDABX rmb 1 Load A from 0,X in task B F$STABX rmb 1 Store A at 0,X in task B F$AllPrc rmb 1 Allocate Process Descriptor F$DelPrc rmb 1 Deallocate Process Descriptor F$ELink rmb 1 Link using Module Directory Entry F$FModul rmb 1 Find Module Directory Entry F$MapBlk rmb 1 Map Specific Block F$ClrBlk rmb 1 Clear Specific Block F$DelRAM rmb 1 Deallocate RAM blocks pag ************************************************************ * * I/O Service Request Code Definitions * ORG $80 I$Attach rmb 1 Attach I/O Device I$Detach rmb 1 Detach I/O Device I$Dup rmb 1 Duplicate Path I$Create rmb 1 Create New File I$Open rmb 1 Open Existing File I$MakDir rmb 1 Make Directory File I$ChgDir rmb 1 Change Default Directory I$Delete rmb 1 Delete File I$Seek rmb 1 Change Current Position I$Read rmb 1 Read Data I$Write rmb 1 Write Data I$ReadLn rmb 1 Read Line of ASCII Data I$WritLn rmb 1 Write Line of ASCII Data I$GetStt rmb 1 Get Path Status I$SetStt rmb 1 Set Path Status I$Close rmb 1 Close Path I$DeletX rmb 1 Delete from current exec dir ************************************************************ * * File Access Modes * READ. equ 00000001 WRITE. equ 00000010 UPDAT. equ READ.+WRITE. EXEC. equ 00000100 PREAD. equ 00001000 PWRIT. equ 00010000 PEXEC. equ 00100000 SHARE. equ 01000000 DIR. equ 10000000 pag ************************************************************ * * Signal Codes * ORG 0 S$Kill rmb 1 Non-Interceptable Abort S$Wake rmb 1 Wake-up Sleeping Process S$Abort rmb 1 Keyboard Abort S$Intrpt rmb 1 Keyboard Interrupt ************************************************************ * * Status Codes for GetStat/PutStat * ORG 0 SS.Opt rmb 1 Read/Write PD Options SS.Ready rmb 1 Check for Device Ready SS.Size rmb 1 Read/Write File Size SS.Reset rmb 1 Device Restore SS.WTrk rmb 1 Device Write Track SS.Pos rmb 1 Get File Current Position SS.EOF rmb 1 Test for End of File SS.Link rmb 1 Link to Status routines SS.ULink rmb 1 Unlink Status routines SS.Feed rmb 1 issue form feed SS.Frz rmb 1 Freeze DD. information SS.SPT rmb 1 Set DD.TKS to given value SS.SQD rmb 1 Sequence down hard disk SS.DCmd rmb 1 Send direct command to disk SS.DevNm rmb 1 Return Device name (32-bytes at [X]) SS.FD rmb 1 Return File Descriptor (Y-bytes at [X]) SS.Ticks rmb 1 Set Lockout honor duration SS.Lock rmb 1 Lock/Release record SS.DStat rmb 1 Return Display Status (CoCo) SS.Joy rmb 1 Return Joystick Value (CoCo) SS.BlkRd rmb 1 Block Read SS.BlkWr rmb 1 Block Write SS.Reten rmb 1 Retension cycle SS.WFM rmb 1 Write File Mark SS.RFM rmb 1 Read past File Mark SS.ELog rmb 1 Read Error Log SS.SSig rmb 1 Send signal on data ready SS.Relea rmb 1 Release device SS.AlfaS rmb 1 Return Alfa Display Status (CoCo) ttl Structure Formats pag ************************************************************ * * Module Definitions * * Universal Module Offsets * ORG 0 M$ID rmb 2 ID Code M$Size rmb 2 Module Size M$Name rmb 2 Module Name M$Type rmb 1 Type / Language M$Revs rmb 1 Attributes / Revision Level M$Parity rmb 1 Header Parity M$IDSize equ . Module ID Size * * Type-Dependent Module Offsets * * System, File Manager, Device Driver, Program Module * M$Exec rmb 2 Execution Entry Offset * * Device Driver, Program Module * M$Mem rmb 2 Stack Requirement * * Device Driver, Device Descriptor Module * M$Mode rmb 1 Device Driver Mode Capabilities * * Device Descriptor Module * ORG M$IDSize M$FMgr rmb 2 File Manager Name Offset M$PDev rmb 2 Device Driver Name Offset rmb 1 M$Mode (defined above) M$Port rmb 3 Port Address M$Opt rmb 1 Device Default Options M$DTyp rmb 1 Device Type * * Configuration Module Entry Offsets * ORG M$IDSize MaxMem rmb 3 Maximum Free Memory PollCnt rmb 1 Entries in Interrupt Polling Table DevCnt rmb 1 Entries in Device Table InitStr rmb 2 Initial Module Name SysStr rmb 2 System Device Name StdStr rmb 2 Standard I/O Pathlist BootStr rmb 2 Bootstrap Module name pag ************************************************************ * * Module Field Definitions * * ID Field * M$ID1 equ $87 Module ID code byte one M$ID2 equ $CD Module ID code byte two M$ID12 equ M$ID1*256+M$ID2 * * Module Type / Language byte * * Field Masks * TypeMask equ 11110000 Type Field LangMask equ 00001111 Language Field * * Type Values * Devic equ $F0 Device Descriptor Module Drivr equ $E0 Physical Device Driver FlMgr equ $D0 File Manager Systm equ $C0 System Module Data equ $40 Data Module Multi equ $30 Multi-Module Sbrtn equ $20 Subroutine Module Prgrm equ $10 Program Module * * Language Values * Objct equ 1 6809 Object Code Module ICode equ 2 Basic09 I-code PCode equ 3 Pascal P-code CCode equ 4 C I-code CblCode equ 5 Cobol I-code FrtnCode equ 6 Fortran I-code * * Module Attributes / Revision byte * * Field Masks * AttrMask equ 11110000 Attributes Field RevsMask equ 00001111 Revision Level Field * * Attribute Flags * ReEnt equ 10000000 Re-Entrant Module * * Device Type Values * DT.SCF equ 0 Sequential Character File Type DT.RBF equ 1 Random Block File Type DT.Pipe equ 2 Pipe File Type * * CRC Result Constant * CRCCon1 equ $80 CRCCon23 equ $0FE3 pag ************************************************************ * * Machine Characteristics Definitions * R$CC equ 0 Condition Codes register R$A equ 1 A Accumulator R$B equ 2 B Accumulator R$D equ R$A Combined A:B Accumulator R$DP equ 3 Direct Page register R$X equ 4 X Index register R$Y equ 6 Y Index register R$U equ 8 User Stack register R$PC equ 10 Program Counter register R$Size equ 12 Total register package size Entire equ 10000000 Full Register Stack flag FIRQMask equ 01000000 Fast-Interrupt Mask bit HalfCrry equ 00100000 Half Carry flag IRQMask equ 00010000 Interrupt Mask bit Negative equ 00001000 Negative flag Zero equ 00000100 Zero flag TwosOvfl equ 00000010 Two's Comp Overflow flag Carry equ 00000001 Carry bit IntMasks equ IRQMask+FIRQMask Sign equ 10000000 sign bit true equ 1 useful name false equ 0 useful name ttl Error Code Definitions pag ************************************************************ * * Error Code Definitions * org 200 E$PthFul rmb 1 Path Table full E$BPNum rmb 1 Bad Path Number E$Poll rmb 1 Polling Table Full E$BMode rmb 1 Bad Mode E$DevOvf rmb 1 Device Table Overflow E$BMID rmb 1 Bad Module ID E$DirFul rmb 1 Module Directory Full E$MemFul rmb 1 Process Memory Full E$UnkSvc rmb 1 Unknown Service Code E$ModBsy rmb 1 Module Busy E$BPAddr rmb 1 Bad Page Address E$EOF rmb 1 End of File rmb 1 E$NES rmb 1 Non-Existing Segment E$FNA rmb 1 File Not Accesible E$BPNam rmb 1 Bad Path Name E$PNNF rmb 1 Path Name Not Found E$SLF rmb 1 Segment List Full E$CEF rmb 1 Creating Existing File E$IBA rmb 1 Illegal Block Address rmb 1 E$MNF rmb 1 Module Not Found rmb 1 E$DelSP rmb 1 Deleting Stack Pointer memory E$IPrcID rmb 1 Illegal Process ID rmb 1 E$NoChld rmb 1 No Children E$ISWI rmb 1 Illegal SWI code E$PrcAbt rmb 1 Process Aborted E$PrcFul rmb 1 Process Table Full E$IForkP rmb 1 Illegal Fork Parameter E$KwnMod rmb 1 Known Module E$BMCRC rmb 1 Bad Module CRC E$USigP rmb 1 Unprocessed Signal Pending E$NEMod rmb 1 Non Existing Module E$BNam rmb 1 Bad Name E$BMHP rmb 1 (bad module header parity) E$NoRam rmb 1 No Ram Available E$BPrcID rmb 1 Bad Process ID E$NoTask rmb 1 No available Task number rmb $F0-. reserved E$Unit rmb 1 Illegal Unit (drive) E$Sect rmb 1 Bad SECTor number E$WP rmb 1 Write Protect E$CRC rmb 1 Bad Check Sum E$Read rmb 1 Read Error E$Write rmb 1 Write Error E$NotRdy rmb 1 Device Not Ready E$Seek rmb 1 Seek Error E$Full rmb 1 Media Full E$BTyp rmb 1 Bad Type (incompatable) media E$DevBsy rmb 1 Device Busy E$DIDC rmb 1 Disk ID Change E$Lock rmb 1 Record is busy (locked out) E$Share rmb 1 Non-sharable file busy E$DeadLk rmb 1 I/O Deadlock error page ************************************************************ * * Path Descriptor Offsets * ORG 0 PD.PD rmb 1 Path Number PD.MOD rmb 1 Mode (Read/Write/Update) PD.CNT rmb 1 Number of Open Images PD.DEV rmb 2 Device Table Entry Address PD.CPR rmb 1 Current Process PD.RGS rmb 2 Caller's Register Stack PD.BUF rmb 2 Buffer Address PD.FST rmb 32-. File Manager's Storage PD.OPT equ . PD GetSts(0) Options PD.DTP rmb 1 Device Type rmb 64-. Path options PDSIZE equ . * * Pathlist Special Symbols * PDELIM equ '/ Pathlist Name Separator PDIR equ '. Directory PENTIR equ '@ Entire Device page ************************************************************ * * File Manager Entry Offsets * ORG 0 FMCREA rmb 3 Create (Open New) File FMOPEN rmb 3 Open File FMMDIR rmb 3 Make Directory FMCDIR rmb 3 Change Directory FMDLET rmb 3 Delete File FMSEEK rmb 3 Position File FMREAD rmb 3 Read from File FMWRIT rmb 3 Write to File FMGSTA rmb 3 Get File Status FMSSTA rmb 3 Set File Status FMCLOS rmb 3 Close File ************************************************************ * * Device Driver Entry Offsets * ORG 0 D$INIT rmb 3 Device Initialization D$READ rmb 3 Read from Device D$WRIT rmb 3 Write to Device D$GSTA rmb 3 Get Device Status D$PSTA rmb 3 Put Device Status D$TERM rmb 3 Device Termination page ************************************************************ * * Device Table Format * ORG 0 V$DRIV rmb 2 Device Driver module V$STAT rmb 2 Device Driver Static storage V$DESC rmb 2 Device Descriptor module V$FMGR rmb 2 File Manager module V$USRS rmb 1 use count DEVSIZ equ . ************************************************************ * * Device Static Storage Offsets * ORG 0 V.PAGE rmb 1 Port Extended Address V.PORT rmb 2 Device 'Base' Port Address V.LPRC rmb 1 Last Active Process ID V.BUSY rmb 1 Active Process ID (0=UnBusy) V.WAKE rmb 1 Active PD if Driver MUST Wake-up V.USER equ . Driver Allocation Origin ************************************************************ * * Interrupt Polling Table Format * ORG 0 Q$POLL rmb 2 Absolute Polling Address Q$FLIP rmb 1 Flip (EOR) Byte ..normally Zero Q$MASK rmb 1 Polling Mask (after Flip) Q$SERV rmb 2 Absolute Service routine Address Q$STAT rmb 2 Static Storage Address Q$PRTY rmb 1 Priority (Low Numbers=Top Priority) POLSIZ equ . opt l opt -l ttl Direct Page Definitions page ************************************************************ * * Direct Page Variable Definitions * org $20 reserve first 32 bytes D.FMBM rmb 4 Free memory bit map pointers D.MLIM rmb 2 Memory limit D.ModDir rmb 4 Module directory D.Init rmb 2 Rom base address D.SWI3 rmb 2 Swi3 vector D.SWI2 rmb 2 Swi2 vector D.FIRQ rmb 2 Firq vector D.IRQ rmb 2 Irq vector D.SWI rmb 2 Swi vector D.NMI rmb 2 Nmi vector D.SvcIRQ rmb 2 Interrupt service entry D.Poll rmb 2 Interrupt polling routine D.UsrIRQ rmb 2 User irq routine D.SysIRQ rmb 2 System irq routine D.UsrSvc rmb 2 User service request routine D.SysSvc rmb 2 System service request routine D.UsrDis rmb 2 User service request dispatch table D.SysDis rmb 2 System service reuest dispatch table D.Slice rmb 1 Process time slice count D.PrcDBT rmb 2 Process descriptor block address D.Proc rmb 2 Process descriptor address D.AProcQ rmb 2 Active process queue D.WProcQ rmb 2 Waiting process queue D.SProcQ rmb 2 Sleeping process queue D.Time equ . Time D.Year rmb 1 D.Month rmb 1 D.Day rmb 1 D.Hour rmb 1 D.Min rmb 1 D.Sec rmb 1 D.Tick rmb 1 D.TSec rmb 1 Ticks / second D.TSlice rmb 1 Ticks / time-slice D.IOML rmb 2 I/O mgr free memory low bound D.IOMH rmb 2 I/O mgr free memory hi bound D.DevTbl rmb 2 Device driver table addr D.PolTbl rmb 2 Irq polling table addr D.PthDBT rmb 2 Path descriptor block table addr D.BTLO rmb 2 Bootstrap low address D.BTHI rmb 2 Bootstrap hi address D.DMAReq rmb 1 DMA in use flag D.AltIRQ rmb 2 Alternate IRQ vector (CC) D.KbdSta rmb 2 Keyboard scanner static storage (CC) D.DskTmr rmb 2 Disk Motor Timer (CC) D.CBStrt rmb 16 Reserved for CC warmstart ($71) D.Clock rmb 2 Address of Clock Tick Routine (CC) * TABLE SIZES BMAPSZ equ 32 BIT MAP SIZE SVCTNM equ 2 NUMBER OF SERVICE REQUEST TABLES SVCTSZ equ (256-BMAPSZ)/SVCTNM-2 SERVICE REQUEST TABLE SIZE page ************************************************************ * * Process Descriptor Definitions * DefIOSiz equ 12 NumPaths equ 16 Number of Local Paths ORG 0 P$ID rmb 1 Process ID P$PID rmb 1 Parent's ID P$SID rmb 1 Sibling's ID P$CID rmb 1 Child's ID P$SP rmb 2 Stack ptr P$CHAP rmb 1 process chapter number P$ADDR rmb 1 user address beginning page number P$PagCnt rmb 1 Memory Page Count P$User rmb 2 User Index P$Prior rmb 1 Priority P$Age rmb 1 Age P$State rmb 1 Status P$Queue rmb 2 Queue Link (Process ptr) P$IOQP rmb 1 Previous I/O Queue Link (Process ID) P$IOQN rmb 1 Next I/O Queue Link (Process ID) P$PModul rmb 2 Primary Module P$SWI rmb 2 SWI Entry Point P$SWI2 rmb 2 SWI2 Entry Point P$SWI3 rmb 2 SWI3 Entry Point P$DIO rmb DefIOSiz default I/O ptrs P$PATH rmb NumPaths I/O path table P$Signal rmb 1 Signal Code P$SigVec rmb 2 Signal Intercept Vector P$SigDat rmb 2 Signal Intercept Data Address rmb $40-. unused P$Size equ . Size of Process Descriptor * * Process State Flags * SysState equ 10000000 TimSleep equ 01000000 TimOut equ 00100000 ImgChg equ 00010000 Condem equ 00000010 Dead equ 00000001 page ************************************************************ * * OS-9 Level I Definitions * * Definition of Level I V1.1 symbols * renamed under Level I V1.2 * F$UNLK equ F$Unlink Unlink Module F$CHAN equ F$Chain Chain process to new module F$SLEP equ F$Sleep Process Sleep F$SPRI equ F$SPrior set process priority F$PNAM equ F$PrsNam Parse Name F$CNAM equ F$CmpNam Compare Two Names F$SBIT equ F$SchBit Search Bit Map F$ABIT equ F$AllBit Allocate Bit Map F$DBIT equ F$DelBit Deallocate Bit Map F$STIM equ F$STime set current time F$SRQM equ F$SRqMem System Memory Request F$SRTM equ F$SRtMem System Memory Return F$APRC equ F$AProc enter active process queue F$NPRC equ F$NProc start next active process F$VMOD equ F$VModul Validate module F$F64 equ F$Find64 Find process/path descriptor F$A64 equ F$ALL64 allocate process/path descriptor F$R64 equ F$Ret64 return process/path descriptor F$IODL equ F$IODel delete i/o module I$ATCH equ I$Attach device to system I$DTCH equ I$Detach device from system I$CREA equ I$Create create new file I$MDIR equ I$MakDir make directory file I$CDIR equ I$ChgDir change default directory I$DLET equ I$Delete delete a file I$WRIT equ I$Write write data I$RDLN equ I$ReadLn read line I$WRLN equ I$WritLn write line I$GSTT equ I$GetStt get status I$SSTT equ I$SetStt set status I$CLOS equ I$Close close path S$ABT equ S$Abort Keyboard abort signal S$INTR equ S$Intrpt Keyboard interrupt signal COBOL equ CblCode COBOL module type SS.RST equ SS.Reset Reset Device SS.WTK equ SS.WTrk Write Track SS.SIZ equ SS.Size File size SS.FEE equ SS.Feed Form feed SS.DCM equ SS.Dcmd Hard disk command M$STAK equ M$Mem Module Stack Requirement P$PCNT equ P$PagCnt Memory page count P$PRIO equ P$Prior Priority P$STAT equ P$State Process state P$QUEU equ P$Queue Queue link (process ptr) P$PMOD equ P$PModul Primary module ptr P$SIGN equ P$Signal Process Signal P$SIGV equ P$SigVec Signal intercept vector P$SIGD equ P$SigDat Signal intercept data address E$PTHF equ E$PthFul path table full E$IID equ E$BMID Illegal module ID block E$DIRF equ E$DirFul Module directory full E$MEMF equ E$MemFul Memory full E$USVC equ E$UnkSvc Unknown Service Request error E$MODB equ E$ModBsy Module busy E$RNAM rmb E$EOF+1 returning non-allocated memory E$BBND equ E$BPAddr Bad page address E$BPN equ E$BPNam bad path name E$LNEM equ E$MNF Module not found E$DESP equ E$DelSP deleting stack ptr memory E$IPID equ E$IPrcID illegal process ID E$ISC equ E$IPrcID+1 E$NOCH equ E$NoChld No children E$PRCF equ E$PrcFul Process table full E$KMOD equ E$KwnMod Known module E$BCRC equ E$BMCRC Bad module CRC E$USP equ E$USigP unprocessed signal pending E$IFKP equ E$IForkP illegal fork parameter E$RD equ E$Read Read error E$WR equ E$Write Write error E$NRDY equ E$NotRdy Device Not Ready REVMSK equ Revsmask INISTR equ InitStr TYPMSK equ TypeMask LANMSK equ LangMask IRQM equ IRQMask FIRQM equ FIRQMask NPATHS equ NumPaths SYSTAT equ SysState TSLEEP equ TimSleep *************** * * Defs of Level I V1.1 renamed under V1.2 * D.MODD equ D.ModDir Module directory ptr D.BASE equ D.Init ROM base address D.ISVC equ D.SvcIRQ Interrupt service entry D.UIRQ equ D.UsrIRQ User IRQ routine D.SIRQ equ D.SysIRQ System IRQ routine D.UREQ equ D.UsrSVC User service request routine D.SREQ equ D.SysSVC System service request routine D.USVC equ D.UsrDis User svc dispatch table D.SSVC equ D.SysDis System svc dispatch table D.SLIC equ D.Slice Process time slice count D.PRDB equ D.PrcDBT Process Descriptor Block table D.APRQ equ D.AProcQ Active process queue ptr D.WPRQ equ D.WProcQ Waiting process queue D.SPRQ equ D.SProcQ Sleeping process queue ptr D.MNTH equ D.Month D.TIC equ D.Tick D.TSLC equ D.TSlice Ticks / Time-slice opt l FROM T  ($FF54)  FOR  opt -l ttl Random Block File Manager Definitions *************** * Modification History * 82/07/13 PD.Exten added to path descriptor by RFD. * 82/07/13 PE entries defined by RFD. * 82/07/15 V.FileHd inserted in drive static by RFD. * 82/09/10 Level One/ Level two cond added by WGP. * 82/09/17 Record Lock cond added by WGP. * 82/09/17 PD.SLE renamed to PD.Creat by RFD. * 82/09/17 V.DiskID, V.BMapSz, V.MapSct added for smart * multi-sector bitmap searching by RFD. * 82/09/20 reserved areas added in static storage. pag ************************************************************ * * Random Block Path Descriptor Format * org PD.FST PD.SMF rmb 1 State flags PD.CP rmb 4 Current logical byte position PD.SIZ rmb 4 File size PD.SBL rmb 3 Segment beginning lsn PD.SBP rmb 3 Segment beginning psn PD.SSZ rmb 3 Segment size PD.DSK rmb 2 Disk id PD.DTB rmb 2 Drive table ptr org PD.OPT rmb 1 Device type PD.DRV rmb 1 Drive number PD.STP rmb 1 Step rate PD.TYP rmb 1 Disk device type (5" 8" other) PD.DNS rmb 1 Density capability PD.CYL rmb 2 Number of cylinders PD.SID rmb 1 Number of surfaces PD.VFY rmb 1 0=verify disk writes PD.SCT rmb 2 Default sectors/track PD.T0S rmb 2 Default sectors/track tr00,s0 PD.ILV rmb 1 Sector interleave offset PD.SAS rmb 1 Segment allocation size PD.TFM rmb 1 DMA Transfer Mode PD.Exten rmb 2 Path Extension (PE) for record locking rmb PDSIZE-.-13 PD.ATT rmb 1 File attributes PD.FD rmb 3 File descriptor psn PD.DFD rmb 3 Directory file descriptor psn PD.DCP rmb 4 File directory entry ptr PD.DVT rmb 2 User readable dev tbl ptr * State Flags BUFMOD equ 1 Buffer modified SINBUF equ 2 Sector in buffer FDBUF equ 4 File descriptor in buffer EOFSEC equ 8 End of file sector EOF equ 16 End of file ifne LEVEL-1 ************************************************** * Random Block Path Extension Format org 0 PE.PE rmb 1 PE path number PE.PDptr rmb 2 back ptr to this PE's Path Descriptor PE.NxFil rmb 2 Drive Open-File list ptr PE.Confl rmb 2 circular File Conflict list PE.Lock rmb 1 Path lockout status PE.LoLck rmb 4 Low Locked Logical addr PE.HiLck rmb 4 High Locked Logical addr PE.Wait rmb 2 PE ptr to (next) locked-out PE PE.TmOut rmb 2 Max ticks to wait for locked segment PE.Owner rmb 1 Process ID of owner of locked segment * PE.Lock status codes Unlocked equ 0 no portion of file is locked RcdLock equ 1 record from LoLck to HiLck locked FileLock equ 2 entire file locked EofLock equ 4 End of file is locked endc * * Device Descriptor Format * org 0 DD.TOT rmb 3 Total number of sectors DD.TKS rmb 1 Track size in sectors DD.MAP rmb 2 Number of bytes in allocation bit map DD.BIT rmb 2 Number of sectors/bit DD.DIR rmb 3 Address of root directory fd DD.OWN rmb 2 Owner DD.ATT rmb 1 Attributes DD.DSK rmb 2 Disk id DD.FMT rmb 1 Disk format; density/sides DD.SPT rmb 2 Sectors/track DD.RES rmb 2 Reserved for future use DD.SIZ equ . Device descriptor minimum size DD.BT rmb 3 System bootstrap sector DD.BSZ rmb 2 Size of system bootstrap DD.DAT rmb 5 Creation date DD.NAM rmb 32 Volume name DD.OPT rmb 32 option area * * File Descriptor Format * org 0 FD.ATT rmb 1 Attributes FD.OWN rmb 2 Owner FD.DAT rmb 5 Date last modified FD.LNK rmb 1 Link count FD.SIZ rmb 4 File size FD.Creat rmb 3 Segment list extension FD.SEG equ . Beginning of segment list * Segment List Entry Format org 0 FDSL.A rmb 3 Segment beginning physical sector number FDSL.B rmb 2 Segment size FDSL.S equ . Segment list entry size FD.LS1 equ FD.SEG+((256-FD.SEG)/FDSL.S-1)*FDSL.S FD.LS2 equ (256/FDSL.S-1)*FDSL.S MINSEC set 16 * * Directory Entry Format * org 0 DIR.NM rmb 29 File name DIR.FD rmb 3 File descriptor physical sector number DIR.SZ equ . Diectory record size **************** * * Static Storage * * * Overall Disk Static Storage * * Note: This does Not reserve Any memory for Drive Tables * Each Driver is responsible for reserving sufficient * memory for the appropriate number of tables. * org V.USER Reserve required V.NDRV rmb 1 Number of drives rmb 8 reserved DRVBEG equ . Beginning of drive tables * * Global Storage For Disk Drive Tables * Each Table Contains The First 'DD.Siz' Bytes * From Sector 0, And The Current Track, Stepping Rate, * Bit-Map Use Flag, And Disk Type * org 0 rmb DD.SIZ Device descriptor, sector 0 V.TRAK rmb 2 Current track V.BMB rmb 1 Bit-map use flag V.FileHd rmb 2 open file list for this drive V.DiskID rmb 2 Disk ID V.BMapSz rmb 1 Bitmap Size V.MapSct rmb 1 lowest reasonable bitmap sector rmb 8 reserved DRVMEM equ . opt l FROM  T  T  POKE opt -l ttl Sequential File Manager (SCF) Definitions page ********** * Static storage requirements * SCF Devices must reserve this space for SCF ORG V.USER V.TYPE rmb 1 Device type or parity V.LINE rmb 1 lines left until end of page V.PAUS rmb 1 immediate Pause request V.DEV2 rmb 2 attached device's static V.INTR rmb 1 Interrupt char V.QUIT rmb 1 Quit char V.PCHR rmb 1 Pause char V.ERR rmb 1 Accumulated errors V.XON rmb 1 X-On char V.XOFF rmb 1 X-Off char V.RSV rmb 12 Reserve bytes for future expansion V.SCF equ . total SCF manager static overhead *************** * Character definitions C$NULL set 0 null char C$RPET set $01 (ctl A - SOH) REPEAT LAST INPUT LINE C$INTR set $03 (ctl C - ETX) KEYBOARD INTERRUPT C$RPRT set $04 (ctl D - EOT) REPRINT CURRENT INPUT LINE C$QUIT set $05 (ctl E - ENQ) Keyboard Abort C$BELL set $07 (ctl G - BEL) Line overflow warning C$BSP set $08 (ctl H - BS ) BACK SPACE C$LF set $0A LINE FEED C$CR set $0D CARRIAGE RETURN C$FORM set $0C (ctl L - FF ) Form Feed C$XON set $11 (ctl Q - DC1) Transmit Enable C$XOFF set $13 (ctl S - DC3) Transmit Disable C$PAUS set $17 (ctl W - ETB) PAUSE charACTER C$DEL set $18 (ctl X - CAN) DELETE LINE C$EOF set $1B (ctl [ - ESC) END of FILE C$SPAC set $20 SPACE C$PERD set '. C$COMA set ', *************** * FILE DESCRIPTOR OFFSETS * ORG PD.FST PD.DV2 rmb 2 OUTPUT DEV TBL PTR PD.RAW rmb 1 READ/WRITE OR RDLIN/WRLIN MODE PD.MAX rmb 2 READLINE HIGH BYTE COUNT PD.MIN rmb 1 DEVICES ARE "MINE" IF CLEAR PD.STS rmb 2 Status routine module addr PD.STM rmb 2 reserved for Status routine ORG PD.OPT rmb 1 DEVICE TYPE PD.UPC rmb 1 CASE (0=BOTH, 1=UPPER ONLY) PD.BSO rmb 1 BACKSP (0=BSE, 1=BSE,SP,BSE) PD.DLO rmb 1 DELETE (0=BSE OVER LINE, 1=CRLF) PD.EKO rmb 1 ECHO (0=NO ECHO) PD.ALF rmb 1 AUTOLF (0=NO AUTO LF) PD.NUL rmb 1 END of LINE NULL COUNT PD.PAU rmb 1 PAUSE (0=NO END of PAGE PAUSE) PD.PAG rmb 1 LINES PER PAGE PD.BSP rmb 1 BACKSPACE charACTER PD.DEL rmb 1 DELETE LINE charACTER PD.EOR rmb 1 END of RECORD char (READ ONLY) PD.EOF rmb 1 END of FILE char PD.RPR rmb 1 REPRINT LINE char PD.DUP rmb 1 DUP LAST LINE char PD.PSC rmb 1 PAUSE char PD.INT rmb 1 KBD INTR char (ctl c) PD.QUT rmb 1 KBD QUIT char (ctl q) PD.BSE rmb 1 BACKSPACE ECHO charACTER PD.OVF rmb 1 LINE OVERFLOW char (BELL) PD.PAR rmb 1 PARITY CODE PD.BAU rmb 1 ACIA BAUD RATE (Color Computer) PD.D2P rmb 2 OFFSET of DEV2 name PD.XON rmb 1 ACIA X-ON char PD.XOFF rmb 1 ACIA X-OFF char OPTCNT set .-PD.OPT Total user settable options PD.ERR rmb 1 most recent I/O error status PD.TBL rmb 2 Device Table addr (copy) opt l FROM T  BT  RESET  67 olor equ $0A CPUType set Color ClocType set 0 DPort set $FF40 FROM FROM 519 $ REM REM line numbering breaks here! REM T  MOTOR SETIME