BEEP  Z   ($FF58) TROFF   S Dragon 64 RM COPY   (   THEN PRINT ($FFFF)($FFFC) ($FFFF) THEN S   FOR   . SCREEN  SCREEN CMD COPY SY COPY #sample.di SWRITE PSET prlist.re($f0) PCLEAR address.di SWRITE CIRCLE book.re($f0) PUT names.nd($f8) ^sample.rm($f3) OR phones.re($f0) ERROR descrip.nd($f8) LOAD 191 REM REM line numbering breaks here! REM S   S    . SCREEN  SCREEN go5 CIRCLE ,di($f2) 7de($ec) ;cop($f9) =renam FROM Abacku($f0) Dlis($f4) Jrm($f3) Zrmscop($f9) vrmsne($f7) ELSE repor($f4) ON inde($f8) SET rms.tr($ed) LINE fre FROM PMODE forma($f4) 187 THEN REM REM line numbering breaks here! REM S  `S  $  . SCREEN  SCREEN #errms SWAP L 229 FROM FROM FROM / REM REM line numbering breaks here! REM S   SET S  - 135 USING 3345 GO > REM REM line numbering breaks here! REM " &go5 CIRCLE KBVDI BACKUP drvr5 CIRCLE ter($ed)0 READ ($FFEC) SOUND  OPEN PCLEAR - EXEC 0 READ ($FFE2) STOP  NEXT PCLEAR B($ec)($ed)D4AP FN 50  SCREEN - SCREEN D($ee)B DELETE NOT EDIT CLS 0&($f8) LET 35376 ELSE ($f7) EDIT  DELETE  ELSE ($f6) END 0 EDIT  LET ($FF20) DELETE  END 8 EDIT 5A SCREEN B REM REM line numbering breaks here! REM W SCREEN -($ec)0 NEXT 1 READ COS / DELETE CLS EDIT FOR Z&($f9) DATA / 4159 READ +o DATA  EDIT  DATA / REM REM line numbering breaks here! REM ? LET 0 READ ($FF6E) DATA ($f1)4@? 13632 o ON  DATA  EDIT ON  READ _?4@ DATA SAVE ? 13760 4@?5 NOT PUT  PRINT USING  TO REM REM line numbering breaks here! REM  SAVE GO o  SET drvr5 CIRCLE  211  1181  SUB  REM REM line numbering breaks here! REM x4B($ee) AND < ?)($ee)am AND ,' ($ee) AND -< ?)($ee)a/ GO 0 AND o FOR Z&($fb)< 10277 F0($ee)a IF '0 INPUT  REM REM line numbering breaks here! REM  NEXT  PCLEAR AND "< 10734 a DATA  EDIT AND 74P1 READ REM REM line numbering breaks here! REM + THEN 2 LET DELETE  END  EDIT l READ 279  MERGE (_5 OFF REM REM line numbering breaks here! REM 4P FN 50 5_9($fe) REM REM line numbering breaks here! REM m LET DELETE +n RESET 694 2378 PMODE 951 ($FF48)n RESET 5286 D EDIT E LET 16138 SET K FLREAD ON 6' STEP "C5 STOP 5m READ ($FFAC)&($FF30)#0 AND : FLREAD AND  SAVE AND '< DELETE IF \ STEP d_ SWAP AND ($ee)mN'oNS/($f4)9m READ ($FF7D)& 4($fe)($FF35) FLREAD AND &4 GO &l AND _9 GO  GO $ /0 READ &m ELSE &o AND 9 MOTOR FOR & ($ec) ELSE 0 READ 0 NEXT PCLEAR AND n ELSE 0 SWRITE l AND 0 READ  STEP ' FREAD n FREAD l AND 2 READ ;m AND 9' DATA ($f8)1 TRON NOT  REM REM line numbering breaks here! REM CIRCLE DELETE AND $L GO 3o AND $ DELETE AND L GO  AUDIO  EDIT AND  EDIT AND $o AND 3($ec) AND $($ed) AND 0j AND 2_9 INPUT NOT O0 READ  VERIFY XIXI0 NEXT / DELETE AND $=4DVDVDV5 ELSE 4 EDIT AND &m AND 4&! INPUT DATA ($f8)]'DZ"($fc)&V 4/ FOR DVj VERIFY &($fa)2aCS($ed) AND 5 SCREEN AND " DELETE AND FLREAD RENAME 1 PCLS DATA 4l AND 2 DELETE ELSE ELSE ($f0) READ  DELETE FOR ELSE  READ j VERIFY &($f0)j AND 2_5 ELSE FLREAD AND & NOT " ' H\&($fc)  FLREAD AND &'DZ"($fc)&V 4/ FOR DVj VERIFY &($fa)2am AND 4&m AND 8'CS TRON AND 5($e8) AND 64($ec) AND 5 EXEC EXEC VERIFY ! SWRITE SAVE ($ed) EXEC 1 TRON 9 TRON EXEC ($e8)! ($f4) LET ($FF20)/d DELETE ELSE ON NOT EDIT ELSE DATA J&($fb)Z&($f0)($fe) TAB(j AND $* DATA 2 EDIT AND $j AND *o AND  475 ($fe) CLS DELETE AND L GO  935 AND ($e8)o AND $ SWRITE  SCREEN AND "1 TROFF 6196 l AND 2 READ @j VERIFY &($fa)2aO_ EDIT AND 3($ed) AND 0($ed) AND $j AND 2 LET ($FF20) DELETE  END ($f0) EDIT  LET ($FFC0) DATA / READ DELETE AND "D/ READ ($fe)GD$0 EDIT FOR  EDIT GO Z&($f2)9 DATA 4 DELETE AND 8 INPUT ($ed) TRON FOR ($ed) TRON CLS ($ed) TRON NOT ($ed) TRON RENAME ($ed) TRON ($ed) TRON @($ed) TRON `($ed) MOTOR j VERIFY & FROM 1 TROFF 33808 SCREEN AND "l AND 24@3 TROFF  36141 5@j AND 11 TROFF REM REM line numbering breaks here! REM FOR READ RENUM j AND 29 SCREEN AND "1 TROFF ($f0)l AND 24@3 TROFF DATA ($f0) READ 1-5@l AND 1 FREAD /4/ SCREEN - PCLEAR EXEC SCREEN B PCLEAR " SCREEN D PCLEAR $ SCREEN F PCLEAR & SCREEN H PCLEAR ( SCREEN J PCLEAR * SCREEN L PCLEAR , SCREEN N PCLEAR .1 DELETE 3/Z& FWRITE j VERIFY & COPY 5 ELSE l AND 2 READ j AND 2($fd) STOP o AND 3 FLREAD AND $4*& DATA = ( DATA 4 DATA ($fd) WAIT DELETE AND $L EDIT AND $ GO 32a *j VERIFY *($e8) DELETE AND $/=*& PROTECT 2aTTT SCREEN AND " DELETE AND 1 PCLS 1 TROFF 8244  CLS RENAME D($FF09)5 EDIT AND $9l AND 2 READ SOUND DATA  CLS AND # 4($fe)($f0)j VERIFY &($f9)2aj AND 2($fd)o AND $o AND ($fe)m FLREAD AND  NOT &_9Z& GO 3 DATA 2 EDIT AND $_9 GO  DATA  EDIT AND ($fe)Jl AND $ DELETE AND $ GO 3($f3)o AND $($fe)@ DATA ($FF43) EDIT AND 8($fc) DSKINIT DATA ($FF20)($f6) DATA LOC AND 9($fc)=O ($f7)($ec) AND $l AND 2m AND 3&($ed) AND 0 4($ec) AND 0l AND 4]+ STEP $($ed) AND $ DATA ($fd)5($ed) AND $($ed) AND 0o AND 3j AND 4j AND 2_9 GO & DELETE AND  MOTOR AND '_9S/($f6)9 GO '($f6) GO & SCREEN &($ec) AND "($ed)_9S/ BEEP 9m AND 2&(j AND 7&# DATA  EDIT AND 7l AND 4($ec) AND $4($ec) AND 0($ed) AND $ DATA ($fc) PSET 5($ed) AND $c AND 3j AND 4 LET REM REM line numbering breaks here! REM DATA LOC  READ ELSE &O EDIT  READ &o AND 'o AND (9m AND (& EDIT AND (_9_ SWAP 9 DELETE ELSE C ELSE 9 MOTOR AND (& RENAME o AND *o AND +o AND ,o AND -o AND ./S SWAP  READ WAIT 'C IF @'! STEP &l AND -  STEP ($fd)&l AND . m AND ,& FN SWAP AND ,c AND , ELSE ?'4_D$\M&($f9) STEP 5& EXEC m AND *& RESET EDIT AND * SWAP AND +c AND +SX& PAINT SWAP  FLREAD AND ,' m AND *& ELSE DATA @ FLREAD AND + DELETE AND *'($FF67)4m AND '' j AND '' 5 12832 / SWAP AND ' REM REM line numbering breaks here! REM NEXT XXX54 GO ($ea) RENAME SWAP AND )0 READ 1 DELETE IF m AND .'0 READ  DIM DELETE IF m AND -'0 READ L DELETE IF GO &c AND / Sm AND /' GO a GO z" FOR 0 AND : FLREAD AND  EDIT IF \ STEP d_ SAVE AND &lN  SWAP AND M' MOTOR M& SCREEN I' EDIT  / MOTOR K'/ MOTOR L& DELETE C / DELETE E'?oE_9_\D&($fc)Z9($fc) ($fc)# ($fc)> ($fc)P ($fc)U ($fd) OFF A($fd)=B($fd)AC($fd)($ee)D($fc)-E($fc)>F($fd)($fe)G($fe)H($fe) I($fe)J($fd) SKIPF D@@ U oo` 7712 RETURN $ INPUT REM REM line numbering breaks here! REM JJ BEEP D $D B"@ CLEAR ($f6) RESTORE D VERIFY @ $ ($f0) 1 $ FOR REM REM line numbering breaks here! REM i SUB ` &"p i,($f0) SAVE a RENAME & PCLEAR ($f8) SAVE RENAME x($e9)` ($f1)$@ ii` iq` @@ $ $ ELSE  B@ i" i TAB( PRINT i($f9) RESTORE ($e9)($e9) RENAME x ON p ($e9) CLOAD RENAME ($f8)($e8)($f0) ($f8)($e8) FOR x DLOAD p CLOAD ($f9) RESTORE VERIFY D RENAME ($f2)*@ CSAVE > RESTORE ON ON ($f0) ($fd) FWRITE RESTORE LLIST DLOAD RESTORE i CLOAD ` ($e9)($e8) FOR i OPEN p ($e9)($ea) RESTORE xa RENAME VERIFY D@ CLOAD CLOAD ` CLOAD CLEAR ` CLOAD MERGE ($f0) CLOAD i RESTORE CLOAD q RENAME ($f1)h($f0) ($e8) ON RENAME B qp i  " 1945 p REM REM line numbering breaks here! REM LET CLOAD RENAME  ON p  CLOAD p  PSET p 4($f4)@  CLOAD q RENAME LET CLOAD RESTORE @D@ 8896 END > RESTORE REM REM line numbering breaks here! REM DD@  MERGE RESTORE  CLOAD RESTORE  CLOAD `  CLOAD ($e8) FOR  CLOAD q ON FOR + RENAME OD0 CLOAD p CLEAR ` MERGE ` f RESTORE CLOAD q RENAME $($f0) 4-0 D@ OFF 2 NOT  CLS ($FFFF)($FFF0)0123456789:;,-./@abcdefghijklmnopqrstuvwxyz  0!"#$&'()*+<=>?|ABCDEFGHIJKLMNOPQRSTUVWXYZ | ~ ^[] {_}\   C AUTO  FROM FROM / S    DEF S  8  135 USING  DEF REM REM line numbering breaks here! REM  GO PAINT 29764 i($f2) Directory of CLS . CREATED ON OWNER NAME ATTR START SIZE =============================== 1 AND \ RESET  FROM DELETE REM GO &0 READ CHR$ RESET REM REM line numbering breaks here! REM DATA GO CSAVE ? ELSE  564 1 READ ($FF6D)` SET 5889 3 PSET VERIFY ($f7)2b GET "0I?0LvH 'C CLEAR / 12048 ? READ  REM REM line numbering breaks here! REM PMODE SET M SCREEN ($ec)1 NEXT DATA / ($f8) DATA @ 235 0 AND \ RESET  DATA ? ELSE  1328 READ ($FF1A) LET 272 ? DIM CLEAR  LET REM REM line numbering breaks here! REM 4@ AUTO @? ON 5@ _ '[ &1O 173 DRIVE  NOT \ STEP "D NOT "($fc)&($ef) ?4@ CLEAR ._ SET , CLEAR ? ON 5@?0 AND O LET 16265 3 REM REM line numbering breaks here! REM * LOAD P READ 5 READ t1O 159  REM REM line numbering breaks here! REM ~ READ g READ e READ  READ , RETURN 0O LET CLEAR ? INPUT $ CONT STEP COPY &_ READ }? CLEAR , READ & LOAD - READ $ DEF READ   READ  5 LOAD X READ  DEF READ  READ + LOAD Z FLREAD 4DDDD READ 5 REM  READ ($f2) ELSE M' NEW  & DATA NEXT 0 GO 9# NEXT   DATA 4 SET  EDIT FOR RESET 5 RESTORE dsewrewr($FFD6)O0 DIM ($f2) DELETE FOR X DATA - READ WAIT DELETE FOR *($f5)9 DELETE EXEC ELSE  READ CREATE DELETE CLS *($f6)942 DATA READ OR 0 AND \ RESET  LET 272 ? DIM 5 PAINT 0 AND R READ  READ READ  READ PSET READ  READ  DELETE DATA /  READ  READ REM REM line numbering breaks here! REM DATA : READ CLOSE FLREAD FOR DATA / STEP d_L NOT d$($fb) GO 0' READ ON DATA :J= $($fb)($FF7E) DEF NEXT 0($FF77)($ec) FOR GO '($fa) GO ,'($f6) ON E ELSE WAIT & STEP 0$  ($e8) DELETE  ON X ELSE WAIT & STEP 0$ DATA  NEW  DRIVE 9 CIRCLE e READ / S   SKIPF S  <  135 USING 3345 GO READ REM REM line numbering breaks here! REM 5+De($ec) Use: Del [-x] {} [-x] DELETE ELSE GO 'X DATA  NEW 12319 CLEAR REM REM line numbering breaks here! REM ? RESTORE  DELETE ELSE GO &($f3)_? DELETE FOR GO '($fa) GO ,'($f6) GO -& READ "094 DELETE FOR GO '($fa) GO ,'($f6) GO -' GO &($ee)59 READ  DATA EDIT  ($f5) DELETE FOR ON X ELSE WAIT & DATA  NEW 90 READ ($FF7A) LET PO? DIM _ PCLEAR RUN p- FROM FROM FROM / S    LOAD S  >  135 USING  LOAD REM REM line numbering breaks here! REM  GO ($f6) 67 op($f9)Ready SOURCE, hit C to continue: Ready DESTINATION, hit C to continue: Use: Copy [-s] -s = single drive copy (Path2 must be complete pathlist) Error - write verification failed. 2 OR  REM REM line numbering breaks here! REM 4@3 AND o OFF  AUDIO VERIFY "($f9) AUDIO SAVE ' 1076  DELETE FOR GO -' GO &($f6) ($ec) FOR ON S ELSE WAIT & STEP 0$  VERIFY c5 DATA ? ELSE $ STEP DSKINIT 'TX NEW REM REM line numbering breaks here! REM ' DELETE ELSE / DSKINIT GO /&H4 CLEAR 4294 REM REM line numbering breaks here! REM ? READ 8 DELETE ELSE NEW / GO &4P CLEAR /? READ ! RESET  WAIT 5P FLREAD ON  DSKINIT 5 DATA  DATA  DRIVE ?'$  DATA  DRIVE ?' 304 AND / REM REM line numbering breaks here! REM ? READ  33985 '  A & / SWAP / REM REM line numbering breaks here! REM ? LET  641 &*4@ CLEAR / SET  PROTECT ? LET  REM REM line numbering breaks here! REM DLOAD 5@0 AND  LET  CLEAR /? READ  CLEAR /? LET 0 OR  165 CLEAR 1040 ? INPUT k DATA  272 ? END  806 L4` SET PROTECT CLEAR ? ON o($ee)b3 OR  REM REM line numbering breaks here! REM ($ec) VERIFY COPY MERGE ($ec) VERIFY $0 RESET  LET  ($ed) VERIFY M& SCREEN b0 INPUT  4159 INPUT C DELETE NOT MOTOR FOR &+1?&($f6)($ec) VERIFY ' REM REM line numbering breaks here! REM " DSKINIT 5` CLEAR /? READ $ PRINT STEP COPY ' STEP COPY & DATA  READ ( CLEAR ? RUN $ 0 READ ($fe)E READ S/ 0 READ ($fd) RENAME READ _? LET  DATA ? DIM 9 '9404M& 0 READ ($fd)y LET 2096 READ ($fd) RESTORE  LET REM REM line numbering breaks here! REM & READ KILL 0 SREAD  LET 4159 INPUT DELETE RENAME ON C ELSE WAIT ' READ 5& BACKUP READ 550942 DATA 0 READ ($fd) INPUT  LET REM REM line numbering breaks here! REM P? DIM 5 PAINT ^] GO / S   S  B  135 USING  REM REM line numbering breaks here! REM  GO 4  BOOT Renam FROM '  134 ? ELSE $ STEP DRIVE &| SET 4159 ELSE s RESET / REM REM line numbering breaks here! REM 0 AND ? READ g? RUN b DRIVE STEP &_ READ cX SET  DATA EDIT  SET 4159 DATA I SET  DRIVE Z DELETE IF END FOR EDIT IF \ BOOT & 1 ELSE SET ?$ SET  DATA ? ELSE $* STEP FREAD &&0 DIM ' DATA '? ELSE  SET : PROTECT <? ON  SET  SET ? END ? RUN _?/ DSKINIT ($f9). SET REM REM line numbering breaks here! REM READ D PROTECT DELETE - GO /' DELETE EXEC GO /'3 DIM ($e9) WAIT 0 EXEC READ + RESET  DSKINIT 0 EXEC READ !$($f6) DRIVE ' SET ? DELETE EXEC GO /' STEP $ RESET O MERGE 9S/ DSKINIT 9?$_3 ELSE DELETE NOT *\ GO SCREEN &\ GO .'($f2)Z' 1_ STEP $_ C9 OR NP FROM FROM FROM / S    PAINT S  E  135 USING  PAINT 33182 vPBacku($f0)/d0 /d1 Use: Backup [e] [s] [-v] [/dev1 [/dev2]] e - abort if read error s - single drive prompts -v - inhibit verify pass READ Ready to backup from CLS to CLS Ok ?: CLS Ready Source, hit a key: CLS Ready Destination, hit a key: CLS Sector EXEC Sectors copied: EXEC Verify pass READ Sectors verified: EXEC is being scratched READ Disks not formatted identically Backup Aborted READ 2 OR ($FF34)4@ AUDIO SAVE 'P NEW     1 AND W RESET U($ec) SAVE 'J($ec) FOR GO '($fa) GO ,'($f6) ON E ELSE WAIT & STEP 0$ ($e8) DELETE  ON S ELSE WAIT & STEP 0$ FREAD ($ec) GO -& AND V- WAIT & ($ec) FOR STEP 0$ OFF DELETE REM GO /' GO &+0 READ ($fe)-1 READ ($fe) PCOPY ] SET U RESET C DELETE FOR GO '($fa) GO ,'($f6) GO & SET  DELETE FOR GO /&($fd)01 READ ($fe) RESET 1 SET U RESET 1 READ ($fe) LIST ($f7)S ON Y ELSE WAIT & PRINT SET <@ SAVE FOR &($fc)($ed) SET  DATA ? ELSE 50 OR P LET  35109 (? RUN SET  DATA ? ELSE  NEW 12744  FLREAD FOR SWAP CLS STEP &($f8)<@ ($ed)?0 AND  DATA ? ELSE / NEW  LET CLEAR 0 OR P LET  REM REM line numbering breaks here! REM ? INPUT 4P LET 33808 ? ON 5P DRIVE ($ec) INPUT  33830  FLREAD INPUT  SAVE '1 READ ($fe) DIM  REM REM line numbering breaks here! REM ($f8)0 OR P DATA THEN EDIT ON ?1 ON ~1 READ ($fe)a REM 1 READ ($fd) SREAD FS ON Y ELSE WAIT & 304 OR P LET  REM REM line numbering breaks here! REM ? END  16526 REM REM line numbering breaks here! REM 4159 ON 5@0 OR P? INPUT  REM REM line numbering breaks here! REM AUDIO ? RUN 0 AND  DATA ? ELSE  304 AND 5/ 36294  SWAP / 36368 REM REM line numbering breaks here! REM }1 READ ($fd) END  VERIFY CLEAR  NEW 0 OR P THEN  CHAIN LOAD 0 OR P RESET  POKE '  CLEAR ? END S CLEAR GO COPY & BEEP 1 READ ($fd) CLOAD  &M1 READ ($fd) MOTOR  16 ? RUN 4 CLEAR ? RUN -0 AND  DATA ? ELSE # NEW REM REM line numbering breaks here! REM  CLEAR  NEW 0 OR P READ c CLEAR GO COPY &($f0)1 READ ($fd)u 2832 ?1 READ ($fd) CIRCLE  REM REM line numbering breaks here! REM LLIST S/ 1552 LET  REM REM line numbering breaks here! REM CLEAR ? INPUT $ DSKINIT STEP COPY '= 3341 & DRIVE ? LOAD + 3876   '4@ SET  DEF _ CLEAR 34869 @ SET 0 INPUT  REM REM line numbering breaks here! REM RESET  CLEAR  FOR  NEW $ PAINT 90 AND W RESET U1 READ ($fc) LLIST 1 READ ($fc) TO ' READ 3460 VERIFY  LET O? INPUT 1 READ ($fc)m READ !56 ELSE 94?5= DELETE FOR READ ^Z*($f9)9 DELETE EXEC ELSE  READ T DELETE CLS *($f6)9 READ ($f3)42 LOAD U0 AND W RESET U POKE U DATA ? DIM 5 PAINT 1 READ ($fc) PRINT READ FWRITE CLEAR  READ  CLEAR  READ CLEAR  READ 1 READ ($fc)1 BEEP  4DDDD READ 5 ELSE M' NEW ' PLAY NEXT 0 GO 9# NEXT 4 SET U EDIT FOR RESET U5 RESTORE  CLOSE + FROM FROM / S   OS  K  135 USING 3345 GO g 36172 is($f4) RESET  DATA ? ELSE . NEW REM REM line numbering breaks here! REM RESET  CLEAR 4238 16267 DATA ? DIM $($ec)  STEP COPY & CLEAR REM REM line numbering breaks here! REM ? RUN SET  DELETE ELSE GO &>_?I PSET 6 FROM  S   dS  M 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 / S   GO *& READ 8 GO &($fa) ($f2) GO '($ee) GO '($f0) GO A FOR HHHH NEW CLEAR READ  GO 0 GO A FOR  ELSE  OPEN CLEAR SET POKE EDIT FOR RESET POKE LIST & OFF  LET 662 STOP ? INPUT  VERIFY SET  DELETE ELSE E9 CLEAR STOP ? RUN SET REM REM line numbering breaks here! REM RESET STOP  ($e9) RESET CONT DATA ./R($ed) ELSE DATA M/S($ed)o0 RESET SET STOP DATA C? ELSE 2 NEW  PLAY // LET 1552 ? INPUT ) CLEAR / GO U&' LOAD 2' REM REM line numbering breaks here! REM /' 2069 DATA ($FFD6)0+ DATA *@& DATA ? NEW GET LOAD REM REM line numbering breaks here! REM MERGE +($e8) MERGE +($e8) MERGE  COPY 2 MERGE  DIM ' COPY 2 MERGE  COPY 2 MERGE  DIM ' COPY 2 MERGE  COPY 2 MERGE 528 $ SET CONT DATA ./D($ed) ELSE DATA I/C($ed)o SET STOP DATA A? ELSE  PRESET NEW  PMODE  SET REM REM line numbering breaks here! REM  4& DATA ./N($ed) ELSE DATA D/X($ed)o SET 4159 ELSE  RESET NEW  SET DATA  NEW 8 READ N SET DELETE ELSE ' PRINT SET  READ B($ed) SET  DELETE EXEC GO & DATA 9 GO ' GO ,&1! ($eb)/P DELETE EXEC GO ' GO ,' GO #1! EDIT FOR Z&($eb)1! RESET  DATA 19795 .TR USING RESET o ELSE RESET ;& AUDIO GO '($f5) GO & 8 ($ed) GO "&. STOP LOAD REM REM line numbering breaks here! REM MERGE POKE MERGE SET  CLOSE ' MERGE & GO "' STOP SET POKE EDIT FOR RESET POKE CLOSE ($e9)) SET POKE o FOR RESET  STOP CLEAR STOP GO 1.($fa)($e8)&P GO '($f5) GO ;'($f1) GO & 8 ($e9) GO $': SET  RESET POKE  LIST oooooooo SET POKE  EDIT FOR RESET POKE LIST CLEAR LIST GO ' EXEC & DRAW GO ' GO ,' GO & LOAD 8  READ & SWAP GO ' GO ,' GO &($ef) 8 POKE x& CHAIN GO '($f7) GO ;'($f3) GO & 8 ($eb) GO 0-* GO 9.& ELSE  NEW CONT CLEAR POKE GO ./ = KILL CONT DSKINIT POKE J& GO ,' GO ' GO & DRIVE 8 Q CLEAR POKE '($f9) SET  EDIT *&#($f1) GO ,'($f4) GO '($f0) GO & 8 ($e8) GO D' GO M' GO A'" GO N'$ SET  FLREAD  STEP &,  SET  FLREAD  STEP .0 READ w SET  EDIT o  PROTECT & DSKINIT GO *& DATA TIMER  EDIT  BACKUP &($f3) GO & 8 ($f1) GO '($ed) GO ,'($e9) GO "& MERGE SET  LOAD ($ed) o  LINE & AUTO GO & 8 ($f1) GO "' SET 9475  THEN EDIT FOR RESET REM REM line numbering breaks here! REM SET l ERROR SET 9453 o FOR RESET REM REM line numbering breaks here! REM z'0 READ @ GO & 8 ($ec) GO '($e8) GO ,' VERIFY GO ;' TAB( GO [' GO ('I GO <'O0 READ ($f2) FREAD DATA ] NEW POKE SET  DATA  EDIT  LOAD 4119 6'k GO & 8 ($f0) RETURN POKE ' SET 9475 J EDIT FOR RESET REM REM line numbering breaks here! REM MERGE SET 9457 o FOR RESET REM REM line numbering breaks here! REM Q DATA ) NEW POKE SET  DATA  NOT SET  DATA  EDIT o ON  9733 * GO & 8($FFF0) GO >' GO 0-($FFA9) GO 9. FREE ELSE  NEW POKE SET  DELETE ON / = KILL POKE SWAP ON  USING SET  DELETE ON  MOTOR "($f9) 9983 : GO & 8 ($f1) GO '($ed) GO ;&($FF28) SET 0 ON  RESET  STOP ($fd) MOTOR SET o ELSE SET  LET 33831  DELETE  IF FOR ' ELSE 1 TROFF REM REM line numbering breaks here! REM FOR 1 DELETE 0 ON  ($e9)1" CLOSE 2" TO SET  STOP DATA  NEW POKE DELETE ELSE 'L DELETE  PCLS OPEN n OPEN n NEW LIST CLEAR STOP ' CLEAR ; RESTORE STOP # RESTORE LIST $ POKE  STOP CLEAR POKE EDIT CLEAR STOP EDIT  CLEAR LIST OPEN STOP RETURN ; RESTORE ; POKE ($f6) GO 3438 & NEXT  RETURN ; RESTORE ; POKE NEW STOP 0 ON ($FFB0) CLEAR POKE RETURN :.& CLEAR STOP RETURN ;-Y94 PUT & LET 6550 ? INPUT  SET  DELETE ELSE _5 RESTORE DATA  NEW PUT 5 RESTORE INVALID FILE NAME@CAN'T OPEN .RMS FILE@CAN'T OPEN .DIC FILE@RMS FILE IO ERROR@INVALID RMS FILE PREFIX@NO PRIMARY DICTIONARY@CAN'T OPEN INDEX FILE@INVALID TITLE IN DICTIONARY@TOO MANY FIELDS IN DICTIONARY@INVALID FIELD NAME IN DICTIONARY@INVALID FIELD LENGTH IN DICTIONARY@INVALID TYPE CODE IN DICTIONARY@INVALID PROMPT IN DICTIONARY@INSUFFICIENT MEMORY@DATE FIELD NOT LENGTH 8 IN DICTIONARY@INVALID VALIDATOR TYPE IN DICTIONARY@MISSING ; IN DICTIONARY@INVALID VALIDATOR IN DICTIONARY@VALIDATOR LENGTH OVER FIELD LENGTH, IN DICTIONARY@INVALID VALIDATOR LOOK UP FILE IN DICTIONARY@CAN'T OPEN VALIDATOR FILE IN DICTIONARY@TOTAL FIELD LENGTHS OVER RECORD LENGTH@DICTIONARY TOO LONG FOR SCREEN@KEY FIELD DIFFERENT IN PRIMARY AND SECONDARY DICT@SECONDARY DICT HAS ONLY ONE FIELD@MONEY FIELD LESS THAN LENGTH 4 IN DICTIONARY@CAN'T ACCESS RMS.TRM FILE@CAN'T CREATE SEQUENTIAL OUTPUT FILE@ DATA READ H DELETE FOR GO @' READ @ ($f6) CLEAR 8'/0 READ REM REM line numbering breaks here! REM  DELETE FOR ' READ 0 ($f8) LINE CLEAR 8_ GO - FOR \ ($f7) MERGE STOP CLEAR POKE ' END 0 READ  CLEAR STOP END 0 READ DATA READ  DATA READ  RESET  PLAY 0 READ ($fc)= PCLS 0 READ ($fc)I .0 READ ($fc)X (0 READ ($fc)g "0 READ ($fc)s 0 READ ($fc) IF 0 READ ($fc) LIST 0 READ ($fc) SKIPF 0 READ ($fc) TAB( 0 READ ($fc) COPY ($FF74)0 READ ($fc)($ed) ($f7)0 READ ($fd) ($f1)0 READ ($fd)$ ($eb)0 READ ($fd); FROM 0 READ ($fd)I WAIT 0 READ ($fd) DELETE FWRITE 0 READ ($fd) NOT COPY 0 READ ($fd)($ec) USING 0 READ ($fe) ^0 READ ($fe)5 STEP 0 READ ($fe)V TAB(0 READ ($fe)o DRAW 0 READ ($fe)($ea) PCLEAR SET  SET  DELETE EXEC ' DATA FLREAD FOR SAVE CLS & SWRITE J&($f7) SET 0 RESET STOP SET READ   DELETE ELSE ' LOAD STOP ($ed) ON O FLREAD  COPY STOP MERGE STOP 0 ON  ($eb)9 SET 0 RESET STOP SET  READ RENAME CLEAR ? RUN  SET  DELETE EXEC ' DELETE TRON &0 READ ($fe)D($fe) AUTO < SET ($ed) GO CLOSE &($fa) PLAY /_ DELETE FOR GO ($FF27) TAB( ($f5)O 10519  CLOAD RETURN o'a RETURN r' OPEN RETURN t' RETURN x'= RETURN v' INPUT RETURN z'o RETURN DIM 'd RETURN |' REM REM line numbering breaks here! REM STEP RETURN FOR ' CHR$ REM ' OPEN RETURN DATA ' 4135  RETURN ON '+ RETURN END ' RETURN ~'b GO $ CLEAR RM CLEAR p'- RETURN p&($ee) q'" RETURN q& SWRITE 4 LET ' RETURN LET & COPY RUN ' RETURN RUN & AND 5 RETURN s' RETURN u'} RETURN y' TROFF RETURN w' REM REM line numbering breaks here! REM ($f5) RETURN {' KILL RETURN READ ' BEEP RETURN }' - RETURN GO 'k RETURN '' RETURN PRINT 'l RETURN IF 'z RETURN INPUT '/ RETURN NEXT ' ELSE RETURN ' AUTO ($FF6F) MOTOR ' 0 READ EXEC  LIST GO Y&($fe)($fb) MOTOR ( DATA  NEW # SET  SET 21? DATA 01?' EDIT ELSE ($f6) DATA EDIT ELSE READ   P CLEAR J READ E READ ; SET DELETE FOR ' READ ; ($f8) READ 39 SET RESET  SET  DELETE ELSE ' 7590  NEW STOP CLEAR < READ  STOP &($f8)0 ON  RESET  SREAD SET RESET $ RESET  REM REM line numbering breaks here! REM S($fe) CONT /S /Y >/L /> /D4 PLAY / DELETE FOR 'Z&($f6)59($FFE2) CLEAR ) SET DRAW < ? LET _? SET $0 ON  RESET $ DELETE ELSE ' 790 ($fe)D SET $ CLOSE &0 ON  RESET $($ec) ON  MERGE ! CLEAR = GO MOTOR & DATA  READ  DATA READ DELETE READ  DELETE  READ   AUTO  HEX$ DELETE NEW STOP CLEAR J READ ($f2) STOP &($f8) DELETE ' NEW STOP ($FF78) STOP &($f9)($FF66) SCREEN DELETE FOR ' READ DRIVE ($f8)($FF5D)9 SET CLEAR # GO ' SET  RESET $ POINT ($fd) ERROR SET $ SCREEN ON  CLOSE !' SET ! DATA EDIT ELSE 0 RESET ! CLEAR < w CLEAR K r CLEAR K m($fd) DRAW DATA SET ! EDIT ELSE CLEAR < _ ($eb) SET $ CLOSE '($fe)0 ON ($ec) RESET $($FF54)($fd) LIST NEW STOP SET $ DELETE GO D' REM REM line numbering breaks here! REM CLS GO N'5 GO M'B SET ! DRIVE STOP RENAME ELSE CLEAR STOP EDIT FOR  ) RESET ! SET $ CLOSE & STEP 3880 DELETE  SCREEN ON  NEW MOTOR 0J' CLOSE !&($f7)($fd)S($fe)($fa) CLEAR STOP GO ' OR GO 0- GO 9/ STEP ($fd) SOUND CLEAR STOP GO ', GO .'+ GO 0-($ef) GO 9.($eb) SET $ SCREEN ON  CLOSE !'0 CLOSE !'0' SET !0 DELETE ELSE GO .&($fd)p COS SET ! DELETE ELSE GO .'($f5) SET $ FLREAD  SCREEN ON  CLOSE !'($ea) DELETE ELSE GO .' SAVE 0Z&($f1)($FFD9) CLEAR STOP GO & DATA / NEW STOP GO /', GO 0-^ GO 9.+ SET $ SCREEN ON 0 CLOSE !'0 CLOSE !& DATA / SET ! EDIT FOR RESET ! l ($fd)($FF2E) SET $ SCREEN ON 0 CLOSE !& CLEAR K T DATA 0 O SET !0 DELETE ELSE EDIT  D DATA 0 EDIT ELSE 0 RESET !($FF03)0 CLOSE !'($f7)0 CLOSE !' CREATE 0 CLOSE !'($eb)($fc) CHAIN SET $ CLOSE &(($fe) SET $ FLREAD  DSKINIT STOP ($ec) ON  COPY 2 DELETE CLS EDIT FOR 4  5 STOP &($f1) MOTOR ($fd)($eb)( CLEAR # GO '($fd)^ DATA  NEW # FOR  MOTOR g3' SET  DELETE EXEC GO U& 0 READ  CIRCLE  TROFF ($fe)&' RENAME ($ef) DATA  NEW ( NEW # SET 2 RESET STOP SET  SET  DELETE FOR EDIT CLS LOAD STOP ' REM REM line numbering breaks here! REM  MERGE STOP &($f3) SET RESET $ SET $ DELETE ELSE '($fd)($f7)($fd) PSET SET $ FLREAD  SCREEN ON  DELETE FOR  INPUT Z&($f8) SET $0 ON  RESET $ MERGE PMODE CLEAR (& 0 READ tO($fb) PLAY CLEAR # GO & 0 READ  LINE  SET  DELETE EXEC ' 0 READ }2 GO D&($fb) DEF ( MOTOR  PLAY & LINE SET  CLEAR # GO ' SET  RESET  DATA D EDIT ELSE  PMODE  LET & FN CLEAR # GO ' 491  SET  DELETE EXEC &( REM REM line numbering breaks here! REM RUN ($fc)KI&$ DIM  SET  DELETE EXEC GO U' GO 2&($eb)V& FLREAD DATA D SET  EDIT ELSE RESET ~) DSKINIT ( ^($fc) PMODE CLEAR (& 0 READ 9 PRESET 1 DIR &, SET  CLEAR # GO ' SET  RESET  READ +&  MOTOR 8&? READ & SET 0($fc)($fa)($fa) SWRITE 0 READ <p($fa) FWRITE m READ 313 l READ REM REM line numbering breaks here! REM O9 CLEAR  SET PRESET PROTECT PCLEAR 0? ON o READ ($FFF0)9 PMODE CLEAR # GO &rq& AND (& LET RESET ,($f3) READ ^& TAB( FREAD  EXEC & READ OR 0 READ  COPY !($fa) END  SET  DELETE EXEC GO U' GO D& SET ,& SET . RESET ,g' CHAIN READ AUDIO 0 READ  COPY ($fb)($fa)d SET ,' RESET . SET  DATA 1 EDIT ELSE RESET  ( LLIST  POS SET  141  MOTOR ($fc)U CLEAR (& SET .' AUDIO ($FF6B)($f4)&($fa)/($FF53)&($FF45),-^ SET  DELETE EXEC GO 1' GO D' GO U'$& LET 11279 )($f6)& RUN FWRITE SET ,&($f5) SET . RESET , ($ef) SET ,' RESET . SET  DATA 2 EDIT ELSE RESET .($FF14) ( SET  READ  REM REM line numbering breaks here! REM  MOTOR ($fb) FROM DIM ' LOAD 21 NEXT MERGE STOP DELETE FOR EDIT CLS LOAD STOP '  MERGE STOP &($f3)9 READ READ SET RESTORE ($fb)/0&($f9) CLEAR R \ PMODE ,- MOTOR CLEAR # GO & CLEAR ('  SET  DELETE EXEC &($f9)($ee)0 READ 8($f9) GO CLEAR (' LINE m& 686  SET  DELETE EXEC GO U' 17446  SET ,& SET . RESET , GO 2& KILL j& DRIVE LOAD 2 MERGE STOP SET  SET  FLREAD FOR SWAP CLS LOAD STOP ' REM REM line numbering breaks here! REM  MERGE STOP &($f3) DATA  NEW # DATA  NEW ( SET  RESET $($fa) EDIT CLEAR J READ H($fa) RETURN SET DELETE FOR ' READ = ($f8)($fa) ON SET $ DELETE ELSE &($fb)#($fa) FREAD SET $ DELETE  SCREEN ON  NEW STOP DELETE ELSE RESET POKE DRIVE (& SET $ CLOSE ' CLEAR < READ  SET POKE 0 STOP & FLREAD SET $0 ON  RESET $ * STOP ./  SET ,' RESET . DATA  NEW #( SET  SET 21? DATA 01?' EDIT ELSE ($f6) DATA EDIT ELSE SET 0 RESET STOP SET 0 RESET CONT  SET DELETE ( SET STOP FLREAD FOR RESET STOP SET CONT SWAP FOR RESET CONT J&($f1)($FF5E) PMODE &($f8)($ee) MOTOR CLEAR # GO ' 0 READ q($f8)y CLEAR &? SET * RESET .( SET .0 CLOSE 0&0 READ  OPEN  338 LET 10774 ($f9)IG' SET . RESET *($f9)= SET . RESET * SET  DELETE EXEC GO 1&>($fc)+( SET DELETE  NEW STOP SCREEN ON  RESET POKE CLEAR  SET  LET REM REM line numbering breaks here! REM ? INPUT $# STEP COPY '0 READ  DEF 4P AUTO 150 ? ON 5P0 READ  CREATE  REM REM line numbering breaks here! REM RESTORE ($f8)($ed) SET  DELETE ELSE GO '! SET POKE EDIT FOR RESET POKE STOP & FN CLEAR  LET 6416 ? INPUT  SET  DELETE ELSE GO &($eb) DATA SET POKE EDIT FOR STOP &($fa) SET ($f9) READ SET FLREAD  SCREEN ON  DELETE FOR jZ&($f8)($fb)n SET FLREAD  LET REM REM line numbering breaks here! REM RESET . SET 0 READ  CLEAR . CONT GET NEW . LOAD .' MERGE . POKE 0"($fa)'9 LET 11833 DELETE FOR READ m FOR OPEN . NEW .Z' DELETE FOR READ ` FOR OPEN / NEW /Z& FLREAD 9($f8)($e8) CLEAR R READ L DATA  NEW PSET DELETE FOR GO @' READ @ PSET ($f4)0 READ REM REM line numbering breaks here! REM + DELETE FOR GO @' READ 0 PSET ($f4) SET $($f9) KILL READ NEW NEW ($f8) DRAW DATA READ  PSET &($f8) SET $($f8)($f0) CLEAR NEW 9 - HIT SPACE@= GO a GO z" FOR 9 )' SET .0 CLOSE 0& LET  RESET . DATA 313 CLEAR # END 0 SET  MOTOR EXEC & SET 0 SET DELETE ( SET 1! FLREAD FOR  INPUT ($FFBE)4 DELETE CLS ($FFB7) INPUT SAVE RENAME &J&($e9)9 READ & CLEAR  SET  SET 2? INPUT 9 READ  CLEAR  SET  SET 2? END 90 READ  PLAY ($FF32)($f8)4 CLEAR . DRIVE 2= MERGE PRESET CLEAR / DRIVE 3= MERGE PCLEAR CLEAR . DRIVE 3= COPY SCREEN MERGE SCREEN $ PRESET CLEAR / DRIVE 2= COPY SCREEN MERGE SCREEN $ PRESET CLEAR  SET PRESET PROTECT PCLEAR ? ON +9THAT RECORD CAN NOT BE FOUND@MUST DISPLAY A RECORD BEFORE DELETING@PUSH D TO DELETE THIS RECORD OR@PUSH D TO DELETE RECORD GROUP OR@MUST DISPLAY A RECORD BEFORE UPDATING@THAT KEY FIELD ALREADY EXISTS IN FILE@FILE TOO FULL TO INSERT THIS RECORD@YOU CAN INSERT ONLY AT END OF GROUP@MUST DISPLAY A PRIMARY RECORD FIRST@END OF INDEX FILE; TO REWIND@MUST BE ON PRIMARY FORM TO SCROLL UP@FATAL ERROR - MAIN FILE IO ERROR@ENTIRE FILE SCANNED, WILL START OVER@TEMPORARILY LOCKED OUT BY ANOTHER USER@ERROR IN READING INDEX FILE@TO CLEAR WITHOUT SAVE TYPE Y, OR@ SET CLEAR # GO ' SET  RESET $ RESET & SET $ DELETE ELSE & SET & RESET $ DATA REM REM line numbering breaks here! REM 9 DELETE ' FLREAD  SCREEN ON  DATA MOTOR ELSE &0Z&($f7)L SET $ DELETE GO D&9 SCREEN ON  DELETE  GO /' 0 READ  GO ($fc) INPUT DATA 9 MOTOR &($f2) DELETE  GO 0' GO 1&($e8) DELETE  GO 2. SREAD DELETE ELSE GO 4-($FFD9) DELETE  GO ' COPY  GO M& 2222 ON  NEW STOP RESET POKE _($ea) ELSE 0J&($f9) STEP ' REM REM line numbering breaks here! REM /_ RESET LIST SET POKE DELETE ELSE GO .'2($ea) ELSE STEP ' GO ' 0 CLOSE LIST &($ea)0 READ - HEX$ DATA . EDIT ELSE 0 CLOSE LIST '($ef) DATA 0 EDIT ELSE 0 CLOSE LIST ' FROM EDIT ELSE 0 412 LIST ' FREAD DELETE ELSE GO .' GO & DATA 0 EDIT ELSE 0 CLOSE LIST '- DELETE ELSE GO .' GO & DATA 0 EDIT ELSE 0 CLOSE LIST '' DATA RESET NEW EDIT FOR CLOSE LIST &($fa) SET NEW CLOSE LIST ' RESET NEW 0 DELETE ELSE EDIT  CLOSE POKE &($f6) DATA EDIT ELSE SET NEW 0($FFE5) 20006 M DELETE  SCREEN ON  RESET POKE _($ea) ELSE 0J&($f9) STEP '_ RESET LIST SET POKE DELETE ELSE ($ea) ELSE STEP ' GO ' RENUM 0 CLOSE LIST &($ee) 36098 t($fe)($ea) SET $($f4) EXEC SET $ DELETE  SCREEN ON  NEW STOP DELETE ELSE  ELSE 0 STOP &($f5) SET $ DELETE  GO REM REM line numbering breaks here! REM & SET $0 ON  RESET $($fe) DATA GO ' REM GO ' 1062 FLREAD SET $ DELETE  NEW STOP NEW CONT DELETE ON  NEW POKE SCREEN ON  DATA MOTOR ELSE & STOP 0 CONT &($f4) CLEAR STOP RETURN POKE ,0 READ 9($fe) ELSE ($FFB8) SET $ DELETE ON  NEW STOP DELETE ON  NEW POKE SCREEN ON  RESET CONT SET CONT RESET CLEAR SET STOP DELETE ELSE 0 RESET STOP GO ,' LOAD GO 40598 MOTOR ELSE &0 RESET CLEAR ($FFE3) SET STOP DELETE ELSE ' 0 GO ,&($f6) RESET STOP ($FFCE)0 READ ($fe)7 SET $ DELETE  NEW STOP DELETE ON  NEW POKE DELETE ON  NEW CONT DELETE SCREEN ON  RESET LIST GO D'U DRIVE STOP SET LIST RESET NEW SET NEW DELETE ELSE 0 RESET NEW SET POKE MOTOR ELSE - &0 RESET POKE Z&($e9) 0 READ REM REM line numbering breaks here! REM ($f6)($fd)($f6) SET POKE DELETE FOR GO ,&($fa) RESET POKE DRIVE STOP SET LIST DELETE ELSE 0 RESET LIST SET POKE MOTOR ELSE .&($FF0F)0 RESET POKE Z& SWAP ($FF05)0 READ FREAD ($fd)^ SET LIST  SET POKE ($ec) AUDIO &-.&($ec) AUDIO #-&($ec) ELSE  AUDIO EXEC -($ec) AUDIO /.&($ec) AUDIO ,.&($ec) ELSE  AUDIO ). ($fe)-0 READ TROFF ($fd) DATA 0 READ PUT ($fd)IMPROPER DATE FIELD@NO ROOM FOR 2 DECIMAL PLACES@FIELD IS SHORTER THAN MINIMUM ALLOWED@NOT IN THE LIST OF ACCEPTABLE VALUES@VALUE IS TOO LOW@VALUE IS TOO HIGH@DATE IS TOO EARLY@DATE IS TOO LATE@IO ERROR IN THE VALIDATOR FILE@NOT IN THE FILE OF ACCEPTABLE VALUES@MISSING NUMBER@4 READ SET  LET  DATA ? INPUT SET  DELETE ELSE ELSE 5 CONT 4 SET RESET CLOSE TO  READ  SET RESET EDIT FOR RESET RESET 5 RESTORE 4 LOAD RESET POKE RENUM '  SET RENUM RESET RESET DATA ? END 5 CLEAR SET  EDIT ELSE  LET 272 ? END 5 CONT LOAD ($fd) CLOAD / REM REM line numbering breaks here! REM S  TROFF S  w 135 USING TROFF REM REM line numbering breaks here! REM  GO READ 16498 mscop($f9)3 OR  REM REM line numbering breaks here! REM WAIT RESET ' 527 ?<($FFFF) MERGE 8 SET REM REM line numbering breaks here! REM &($e8) RESET + DATA ./R($ed) ELSE DATA M/S($ed)o SET DATA ? ELSE  COPY NEW  PLAY /" LET 1808 ? INPUT > SET + DATA ./D($ed) ELSE DATA I/C($ed)o SET 4159 ELSE  TROFF NEW  SET 5888 TAB(& PUT RESET S DATA ./R($ed) ELSE DATA M/S($ed)o0 RESET REM REM line numbering breaks here! REM SET Q DATA ? ELSE } NEW  PLAY /? LET 2064 ? INPUT n CLEAR ? GO U&l SET [ DELETE EXEC GO +& [< REM REM line numbering breaks here! REM MERGE <($FFDD)# LOAD MERGE +($e8) MERGE +($e8) MERGE +($e8) MERGE +($e8) MERGE  COPY MERGE  COPY MERGE  COPY B MERGE  COPY B MERGE + MERGE + MERGE + 4243 $M SET DATA  NEW ? SET  RESET JP READ M [' RESET SET DELETE ELSE '($fe) SET READ :? SET  DELETE EXEC GO & DATA 9 GO ' GO ,&1! ($eb)/P DELETE EXEC GO ' GO ,' GO #1! EDIT FOR Z&($eb)1! RESET  DATA REM REM line numbering breaks here! REM 9 RESET )o ELSE RESET ' TAB(& LIST GO '($f5) GO & ? ($ed) GO "& PRESET  SOUND & DELETE GO "&($f5)+ CLEAR + GO 1. SET  READ &g GO '($f5) GO ;'($f1) GO & ? ($e9) GO $'Q SET ' RESET ,.ooooooo SET , ($e9) EDIT FOR RESET , . CLEAR . GO 'K&[ GO '! GO ,' GO & LOAD ? 4&D GO ' GO ,' GO &($ed) ?,&- GO '($f5) GO ;'($f1) GO & ? ($e9) GO 0- GO 9. ELSE  NEW - CLEAR , GO . / = KILL - DSKINIT , SWAP &($fd) GO ,' GO ' GO & AUTO ? 4135  SWAP SET ' EDIT  REM REM line numbering breaks here! REM /& SREAD  N GO ,'($f2) GO '($ee) GO & ? FLREAD GO D' GO M' GO A'" GO N' TO SET ' FLREAD  STEP &-  SET ' FLREAD  STEP "0 READ - SET ' EDIT  z& CLEAR  s& LIST GO & ? ($f1) GO '($ed) GO ,'($e9) GO "& V&x GO & ? ($f1) GO "&($ed) 1840 READ ($ea) OFF GO & ? ($ec) GO ;&($e8) SET '0 ON  RESET ' +($fe) END SET 'o ELSE SET ) LET REM REM line numbering breaks here! REM m ELSE ' FLREAD O1 PCLS 0 ON  ($f2)1" CLOSE J"994 P& LET 6550 ? INPUT  SET  DELETE ELSE _5 RESTORE DATA  NEW P5 RESTORE INVALID FILE NAME\CAN'T OPEN FROM .RMSFILE\CAN'T OPEN .DIC FILE\RMS FILE IO ERROR\INVALID RMS FILE PREFIX\NO PRIMARY DICTIONARY\CAN'T OPEN TO .RMS FILE\INVALID TITLE IN DICTIONARY\TOO MANY FIELDS IN DICTIONARY\INVALID FIELD NAME IN DICTIONARY\INVALID FIELD LENGTH IN DICTIONARY\INVALID TYPE CODE IN DICTIONARY\INVALID PROMPT IN DICTIONARY\INSUFFICIENT MEMORY\DATE FIELD NOT LENGTH 8 IN DICTIONARY\MISSING ; IN DICTIONARY\TOTAL FIELD LENGTHS OVER RECORD LENGTH\KEY FIELD DIFFERENT IN PRIMARY AND SECONDARY DICT\SECONDARY DICT HAS ONLY ONE FIELD\MONEY FIELD LESS THAN LENGTH 4 IN DICTIONARY\I/O ERROR IN RMS MAIN FILE\ DATA READ O DATA READ K DELETE FOR GO \' READ C ($f6) CLEAR ?'10 READ REM REM line numbering breaks here! REM  DELETE FOR ' READ 3 ($f8) LINE CLEAR ?_ GO - FOR \ ($f7) NEW + DSKINIT , CLEAR ,' END 0 READ  CLEAR + END 0 READ DATA READ  DATA READ _?y0 READ ($fd)> EXEC 0 READ ($fd)J SET 0 READ ($fd)] DEF 0 READ ($fd)l STOP 0 READ ($fd)x DIM 0 READ ($fd) END DATA 0 READ ($fd) CSAVE ($f8)0 READ ($fd) PSET ($f2)0 READ ($fd) OFF ($ec)0 READ ($fd) ERROR FLREAD 0 READ ($fd)($f5) RENAME 0 READ ($fe) ERROR 0 READ ($fe), CREATE 0 READ ($fe)C AUTO 0 READ ($fe)Q AND 0 READ ($fe) INPUT OFF 0 READ ($fe) LINE TO SET  SET DELETE EXEC ' DATA FLREAD FOR  INPUT 94 DELETE CLS 2 INPUT SAVE RENAME & KILL J&($e9) SET 0 RESET + SET READ   DELETE ELSE ' LOAD +($ed) ON O FLREAD  COPY + MERGE +0 ON  ($eb)9 SET 0 RESET + SET READ RENAME ?< SET ($ed) GO CLOSE &($fa) CLEAR ? RUN SET S DATA ./D($ed) ELSE DATA I/C($ed)o SET Q DATA ? ELSE ($FF2B) NEW  DATA ($FFD6)@+ DATA *@& DATA ? NEW U SET DATA  NEW ? LOAD B MERGE JP($fa)\ SET DELETE EXEC '($FF13) SET ($fa)N CLEAR ? RUN  SET  DELETE EXEC ' SET DATA FLREAD FOR  INPUT  END 4 DELETE CLS ' INPUT SAVE RENAME &($FF2A)J& SWAP SET 0 RESET + SET ($FF50) SET 0 RESET + SET ($FF45)? SET RESET + SET ($fa)'0 READ ($f9)($fe)G SET  RESET - SET RESET + SET RESET / 7583 - SET  RESET + SET RESET / READ  REM REM line numbering breaks here! REM INPUT SET +m ELSE & SET -o ELSE o9 SET / THEN ' SET +0 ON  RESET + SWRITE ($ec) ON  MERGE 4 DELETE  NEW 1 SET + FLREAD  DELETE  SCREEN ON  SET - GO A& PCLEAR  SET 4 PCLEAR ELSE SWAP  CLEAR 1 MOTOR " EDIT 0 RESET - *4O1 PCLS 5 SET 4 CLEAR 14 INPUT O0 NEXT  DEF 5 RESET 4 BOOT 1 DRIVE 1 SET - SWAP  SET 401?Z&($f9) RESET 4 SET - PCLEAR  SET 4 PCLEAR ELSE NOT LET 150 ? ON  SET m EXEC ' SET m EXEC &0 READ ^ FN &0 READ ($f0) DATA < DATA 7_? SET 9 LET 15639 :($fe) SET  DELETE EXEC GO 1&( PSET � READ A READ  X USING SET 0 SET FLREAD ( DELETE FOR ($fa)Z&($f8)9($FFE8) FREE  SET  DELETE EXEC GO U' GO D& SET =& SET  RESET =2' PAINT 0 READ -($FFD9) SET =' RESET  SET  DATA 1 EDIT ELSE RESET ; LOAD B' REM REM line numbering breaks here! REM 0 NEXT DATA EDIT ELSE  MOTOR  SET  DELETE EXEC '($FF5D)W'($FF56) LET 3898 ($f3)'0 READ  INKEY$ j SET  DELETE EXEC GO U' GO D& SET =& SET  RESET = GO 2& FREAD & COPY LET 15631 : > SET =' RESET  SET f SET  DATA 2 EDIT ELSE RESET ; LOAD B' REM REM line numbering breaks here! REM 0 NEXT DATA EDIT ELSE 3($f2)'($fe)($f1): POKE & TIMER  SET  DELETE EXEC GO U' GO D' SWAP ($FFC0)DESTINATION KEY FIELD NOT FOUND IN SOURCE DIC\NO SECONDARY RECORDS WILL BE COPIED\PRIMARY NOT COPIED, KEY ALREADY EXISTS: \PRIMARY NOT COPIED, NO ROOM FOR IT : \SECONDARY NOT COPIED, NO ROOM FOR IT : \COPY OPERATION COMPLETED\ DATA 6 DATA 1 DELETE FOR GO \'( ($f5)9 RESET 4 SET 4 DELETE ELSE & DATA 9 SET +/ DELETE FOR H4 DELETE CLS A MOTOR RENAME &Z&($ed) SET 4 DATA 9 SET 40 ON  BOOT 9 RESET 4 SET 4 FLREAD  SCREEN ELSE &9 SCREEN  DELETE CLS EDIT FOR Z&($f9) SET 40 FROM CLEAR ! DRIVE = MERGE V CLEAR " DRIVE &= MERGE X CLEAR ! DRIVE &= COPY W MERGE W$ V CLEAR " DRIVE = COPY W MERGE W$ V CLEAR  SET V PROTECT X? ON  1950  SET ? INPUT  DATA 9 DATA REM REM line numbering breaks here! REM 90 READ ($fa) SKIPF ($fa) SUB SET 8 RESET ! SET !0 CLOSE #&9: 8607 8 READ CSAVE '($f2) SET  DELETE EXEC GO 1& SAVE SET  SET  LOAD MERGE + FLREAD FOR SWAP CLS LOAD +' REM REM line numbering breaks here! REM  MERGE +&($f3) DATA 9: LET & 8($FF6A)'3 SET  DELETE EXEC GO U'* [' GO 1'" GO 2& WAIT  OPEN & ERROR LOAD MERGE + SET  SET  FLREAD FOR SWAP CLS LOAD +' 11046 ($f3) DATA 9 DATA REM REM line numbering breaks here! REM 9 SET FLREAD ( LET RESET  SET 0 READ  CLEAR  CONT U NEW  LOAD ' MERGE  POKE @"($fa)'9 LET 7993 DELETE FOR READ  FOR OPEN  NEW Z' DELETE FOR READ FOR OPEN NEW Z& FLREAD 9 GO a GO z" FOR 9 :' SET !0 CLOSE #& LET 8582 313 :' SET 0 CLOSE @& LET REM REM line numbering breaks here! REM  RESET  DATA 9 DATA 9 SET 0 SET DELETE ( SET 1! FLREAD FOR  INPUT ($FFB2)4 DELETE CLS ($FFAB) INPUT SAVE RENAME &J&($e9)9 SET 0 SET DELETE ( SET 1! FREAD CLEAR  DRIVE B= MERGE V CLEAR DRIVE C= MERGE X CLEAR  DRIVE C= COPY W MERGE W$ V CLEAR DRIVE B= COPY W MERGE W$ V CLEAR  SET V PROTECT X? ON ($fe) RETURN 9 READ AND  SET B SET  CLEAR ? INPUT ($fe) FOR 9($FFB6) SET B SET ; CLEAR ? END ($fe)n94 SET  EDIT ELSE  LET 272 ? END 5 CONT 8g RENAME FROM FROM FROM / REM REM line numbering breaks here! REM S   FN S  IF  135 USING  FN REM REM line numbering breaks here! REM  GO CONT 114 msne($f7)3 OR  REM REM line numbering breaks here! REM WAIT RESET RESET SET RESET  DATA U/U LET  ($ed) GO 1>&($fa) RESET SET RESET  SUB &j DATA ./r($ed) ELSE DATA m/s($ed)o SET  DATA ? ELSE $Y/[ DATA  SET ?'R NEW 0 READ  PCLS 6 GO '" GO 0- GO 9/ 0 READ  SKIPF  MERGE ELSE  NEW  1807  COPY  MERGE  DSKINIT DATA ($f9) LOAD '+'($fe)# 0 READ | REM REM line numbering breaks here! REM ERROR PUT + 816 READ  SET  1807  FROM GO ' GO 0- GO 9/ 0 READ T REM REM line numbering breaks here! REM PAINT MERGE ELSE  NEW  READ N LOAD  COPY  MERGE  ERROR LOAD > MERGE 0 READ  LIST H SET DELETE EXEC GO & DATA 9 GO ' GO ,&1! ($eb)/P DELETE EXEC GO ' GO ,' GO ' 1! EDIT FOR Z&($eb)1! RESET DATA 9 LOAD  COPY  COPY  COPY  COPY  MERGE  COPY  MERGE 9 LOAD  SET ($ed) LOAD ($ed)0 NEXT 0 DATA EDIT ELSE CLEAR  SET  SET ? END _ DATA U/U SET ($ed)($ed) CLEAR  SET  SET ? END I LOAD '' 288 ($e9) CLEAR 0 READ  READ _? DATA  DATA  DELETE FOR ' REM REM line numbering breaks here! REM ($fd) ($f7) DATA  ($f6) DATA  12429 56352 DRIVE 0 READ REM REM line numbering breaks here! REM ($f6)0 READ . ($f0)0 READ : ($ea)INVALID PATH NAME FILE ALREADY EXISTS CAN'T CREATE FILE DISK IO ERROR WRITING FILE INPUT RECORD LENGTH INVALID ENTRY, RE-ENTER INVALID FILE SIZE RETRY INPUT NUMBER OF RECORDS FORMAT IN PROGRESS... FILE FORMATED OK 4 SET EDIT ELSE  LET 272 ? END 59 DATA  LET 2320 ? INPUT SET DELETE ELSE ELSE 9 RESET e= FROM FROM / 2834  REM REM line numbering breaks here! REM nS  INPUT  135 USING n REM REM line numbering breaks here! REM  GO R 4210 epor($f4)3 OR  REM REM line numbering breaks here! REM WAIT RESET ' 527 6 DLOAD  RENUM  TAB(< 13277 L MERGE N MERGE \ MERGE ^ MERGE ` MERGE b MERGE d MERGE f MERGE h MERGE r MERGE ON MERGE END MERGE DIM MERGE RESTORE < 18124 18636 19148 MERGE t MERGE v MERGE STOP MERGE CONT MERGE NEW MERGE CLOAD MERGE CLOSE MERGE SET MERGE x MERGE z MERGE | MERGE ~ DATA 0 NEW CLEAR NEW OPEN NEW CLS L NEW w PLAY /r MERGE EXEC / ON MERGE DELETE SET REM REM line numbering breaks here! REM RESET  RESET DATA ./R($ed) ELSE DATA M/S($ed)o SET  DATA ? ELSE  LIST NEW  PLAY / LET 1552 ? INPUT  STOP CLEAR  GO U& END DATA ($FFD6)+ DATA *@& DATA ? NEW MOTOR LOAD REM REM line numbering breaks here! REM MERGE +($e8) MERGE +($e8) MERGE  COPY  MERGE  COPY  MERGE  COPY  MERGE SOUND + MERGE TRON MERGE 34350 /D($ed) ELSE DATA I/C($ed)o SET  DATA ? ELSE 2 NEW  SET 35344 &? DATA ./R($ed) ELSE DATA E/P($ed)o SET 4159 ELSE & NEW 2z0 VERIFY ?0/x PLAY  DATA - EDIT " EDIT DELETE ELSE READ ($ed)& DELETE  READ ($ed)# DELETE  READ ($ed) EXEC 2f )/0 FOR \ ($f9) NEXT : INPUT 92f/x PLAY  SET / DELETE CLS GO # EDIT FOR Z&($f5) RESET  SET DATA  NEW 6 READ F SET DELETE ELSE ' RENUM SET READ :($fb) SET  DELETE EXEC GO & DATA 9 GO ' GO ,&1! ($eb)/P DELETE EXEC GO ' GO ,' GO #1! EDIT FOR Z&($eb)1! RESET  DATA 7279 ELSE RESET  PLAY & NEW GO '($f5) GO & 6 ($ed) GO "&i RESET &b GO "&($f5) CLEAR  GO 1.Z END &i GO '($f5) GO ;'($f1) GO & 6 ($e9) GO $'S SET  RESET !ooooooo SET  + EDIT FOR RESET  ! CLEAR ! GO 'H& GO ' GO ,' GO & LOAD 6 1& SWAP GO ' GO ,' GO &($ef) 6& CHAIN GO '($f7) GO ;'($f3) GO & 6 ($eb) GO 0- MERGE GO 9. DSKINIT ELSE  NEW CLEAR  GO .=/ = KILL DSKINIT  REM REM line numbering breaks here! REM ($e8)& SUB GO ,' GO ' GO & AUTO 6 4135  EDIT SET  EDIT  8983 . GO ,'($f4) GO '($f0) GO & 6 ($e8) GO D' GO M' GO A'" GO N'~ SET  FLREAD  STEP & DATA  SET  FLREAD  STEP .0 READ  SKIPF  BACKUP SET  EDIT  9731 X REM REM line numbering breaks here! REM v&W GO & 6 ($f1) GO '($ed) GO ,'($e9) GO "&A Y&: GO & 6 ($f1) GO "&($ed) SET CLOSE $, 1840 READ  FROM  FOR GO & 6 ($ec) GO ;&($e8) SET 0 ON  RESET  ($fe) ON SET o ELSE SET  LET REM REM line numbering breaks here! REM m ELSE ' DELETE 1 DELETE 0 ON  ($f3)1" CLOSE 94 DLOAD & LET 4758 ? INPUT  SET  DELETE ELSE _5 RESTORE DATA  NEW DLOAD 5 RESTORE INVALID FILE NAME\CAN'T OPEN .RMS FILE\CAN'T OPEN .DIC FILE\RMS FILE IO ERROR\INVALID RMS FILE PREFIX\NO PRIMARY DICTIONARY\CAN'T OPEN REPORT SPEC FILE\INVALID TITLE IN DICTIONARY\TOO MANY FIELDS IN DICTIONARY\INVALID FIELD NAME IN DICTIONARY\INVALID FIELD LENGTH IN DICTIONARY\INVALID TYPE CODE IN DICTIONARY\INVALID PROMPT IN DICTIONARY\INSUFFICIENT MEMORY\DATE FIELD NOT LENGTH 8 IN DICTIONARY\MISSING ; IN DICTIONARY\TOTAL FIELD LENGTHS OVER RECORD LENGTH\KEY FIELD DIFFERENT IN PRIMARY AND SECONDARY DICT\MONEY FIELD LESS THAN LENGTH 4 IN DICTIONARY\ DATA READ K DELETE FOR GO \' READ C ($f6) CLEAR 6'10 READ REM REM line numbering breaks here! REM  DELETE FOR ' READ 3 ($f8) LINE CLEAR 6_ GO - FOR \ ($f7) NEW  DSKINIT  CLEAR ' END 0 READ  CLEAR  END 0 READ DATA READ  DATA READ _? 0 READ ($fd) TRON 0 READ ($fd) NEXT SOUND 0 READ ($fd) CSAVE CLOSE 0 READ ($fd) TROFF CLEAR 0 READ ($fd) DRAW RESTORE 0 READ ($fd)^ END 0 READ ($fd) DSKINIT ($f8)0 READ ($fd)($ed) ($f2)0 READ ($fe) ($ec)0 READ ($fe) FLREAD 0 READ ($fe)6 RENAME 0 READ ($fe)S ERROR 0 READ ($fe)m CREATE 0 READ ($fe) ELSE AUTO 0 READ ($fe) STOP AND 0 READ ($fe)> OFF 0 READ ($fe)($eb) TO SET  SET DELETE EXEC ' DATA FLREAD FOR  INPUT  W4 DELETE CLS  P INPUT SAVE RENAME & KILL J&($e9) SET 0 RESET  SET READ   DELETE ELSE ' LOAD ($ed) ON O FLREAD  COPY  MERGE 0 ON  ($eb)9 SET 0 RESET  SET READ RENAME < SET ($ed) GO CLOSE &($fa) DATA  NEW 6 & NOT  10226 GO ;'($ee) GO ,'($ea) GO & 6 SREAD GO T' GO GO W' GO X' 18704 ' GO E' GO P'k GO S'i GO H'g GO G'e GO B' 19472 ' 36100 ($f7)($fe) REM  AUDIO &M GO '($f7) NEW ! CLEAR '0 READ ($fe)l SET REM REM line numbering breaks here! REM RESET  CLEAR !  IF & SET  GO ' GO ' GO ;' EDIT FOR RESET  SWAP 6 SET  DATA ./N($ed) ELSE DATA D/X($ed)o SET 4159 ELSE $0 READ  VERIFY ($fe)) NEW ($FF3B)E'0 READ ($f8)($fe) GO '($f0)2 GO P' GO S&($ea) NEW M  NEW L($FF17) READ SET  RESET F READ  SET  RESET H($FF08) LET 7703  '0 READ  PROTECT ($fd) RENAME GO '($f0) GO ,'($ec) GO 0-($ed) GO 9.($e9) ELSE  NEW ! LOAD ' COPY  COPY  COPY  COPY  MERGE  COPY  COPY MERGE  DSKINIT &> GO ' GO ,' GO ' GO ;& OR 9 69 NEW T REM REM line numbering breaks here! REM STOP & 7809 ' GO & 6 TROFF '($f1)0 READ  RENUM ($fd)|/) GO ('/] GO [&($ed) NEW  DSKINIT  PLAY /N($ec) ELSE ' SCREEN ELSE ($f8) LOAD REM REM line numbering breaks here! REM ($ed) ELSE SET o ELSE o CLEAR T EDIT  CLEAR  EDIT  CLEAR l EDIT  LOAD j($ed)0 RESET a'0 READ  RESTORE ($fd)4 SET  CLOSE -0 READ  TROFF ($fd)' GO & 6  EDIT ELSE RETURN ' 0 RESET  GO ;' DRIVE BACKUP o ELSE 0 RESET 7566 REM REM line numbering breaks here! REM RESET j RESET l RESET n RESET p PLAY /j RESET &a NEW  GO '($f5) GO ,'($f1) GO & 6 ($e9)($fd)'0 READ ($ec)($fc) BEEP ($ee) NEW  GO ': GO '4 GO ['2 GO "'. GO $'* GO #'& GO '" GO (' GO @' GO :' GO ,' GO ;' SET  CLOSE EXEC ' FN EDIT FOR RESET  GET 6 CLEAR j& DATA 9 SET READ & DATA  NEW l RESET j DATA 3213 & CSAVE DATA  ($ef) DELETE ELSE & DATA 9 LOAD j AUDIO ELSE &($ec) POKE l&($ec) POKE n&($ec) POKE p'0 ON  FREAD 9/\ /^ /` /b /d /f PLAY ($ec) ELSE ' SCREEN ELSE ($f8) LOAD REM REM line numbering breaks here! REM ($ed) ELSE SET 28544 RESET ro ELSE o0 CLOSE $($fe) LOAD RESET REM REM line numbering breaks here! REM ($fe)($FF10)' 7809 $' PRESET GO "' GO ;&($fd)0 READ  ON ($fb) SWAP SET r LOAD REM REM line numbering breaks here! REM ($ed) ELSE SET RESET ro ELSE oo+ 733  ($ef)& KILL GO ' DSKINIT GO "' SET  EDIT FOR RESET  CLOSE - SWAP ($fe) ELSE SET  RESET 38432 EDIT  OR '0 READ _($fb) CLOSE GO '($f0) GO @&($f1) GET '0 READ b($fb) DATA GO '0 GO '* GO ,'( GO ;'$ GO 0- FROM GO 9. SAVE ELSE  NEW  CLEAR ' OPEN  OPEN  OPEN  OPEN  NEW  OPEN  OPEN  NEW  OFF 6 SET r DRIVE ' THEN SWAP  GO ;'($fc)[($FF39) CLEAR  GO #'4 GO '0 SET r LOAD REM REM line numbering breaks here! REM ($ed) ELSE SET 28548 oo0 CLOSE .($fd)($f1) RESET REM REM line numbering breaks here! REM SET j DELETE  NEW ($ec) ON  SET r($ed) CLEAR  EDIT  CLEAR ($FF6B) PLAY /h($ec) ELSE ' SCREEN ELSE ($f8) LOAD ($ed) ELSE SET o ELSE o CLEAR  NEW $ EDIT  LOAD j($ed) CLEAR l EDIT  SET j DELETE GO N' GO M'0 READ  BACKUP ($fa) AUTO  1840 READ ($eb)($fa) NOT NEW  GO 0- GO 9. ELSE  NEW CLEAR ' OPEN  OPEN  OPEN  OPEN  NEW  OPEN  OPEN NEW  BEEP CLEAR  SET j MOTOR - USING SET 12295 RESET / SWAP FOR J&($fb) CLOSE $($fd)Q RESET REM REM line numbering breaks here! REM SET r LOAD ($ed) ELSE SET RESET ro ELSE oo CLEAR $ GO & DATA  EDIT  LOAD ($ed) CLEAR  EDIT 0 RESET CLOSE $($fd)# CLEAR ($fe) COLOR  1840 READ  LIST ($fa)@^ GO P&  PLAY /t DATA  GO D&1 PLAY /x DATA  RESET  NEW SET r LOAD REM REM line numbering breaks here! REM ($ed) ELSE SET RESET ro ELSE oo LOAD ($ed) CLEAR EDIT 0 RESET 4142 ($fc) BACKUP ($fe)R GO T&/ NEW  GO S&/ CLOSE  GO G& RESET / STOP  PLAY  DATA  DLOAD 4 RENUM & LET 4758 ? INPUT  SET  DELETE ELSE _5 RESTORE DATA  NEW RENUM 5 RESTORE MISSING REPORT FILE NAME\CAN'T OPEN .REP FILE\INVALID COMMAND CODE IN REPORT SPEC\MULTIPLE X COMMAND IN REPORT SPEC\CAN'T OPEN INDEX FILE IN REPORT SPEC\MISSING P OR S IN REPORT SPEC\INVALID NUMBER IN REPORT SPEC\INVALID FIELD NAME IN REPORT SPEC\MISSING ] OR ) IN REPORT SPEC\INVALID LIST OR BOUNDS IN REPORT SPEC\MEMORY OVERFLOW IN REPORT SPEC\INVALID PRINT ITEM IN REPORT SPEC\MISSING @ IN REPORT SPEC\INVALID COLUMN NUMBER IN REPORT SPEC\TOTAL OF NON NUMERIC FIELD IN REPORT SPEC\LENGTH TOO SHORT FOR TOTAL IN REPORT SPEC\INVALID $ TYPE PRINT ELEMENT IN REPORT SPEC\LENGTH OF TOTAL FIELD TOO SHORT TO HOLD TOTAL\INDEX FILE CONTAINS A KEY THAT IS NOT IN THE FILE\6($f5) CLEAR &; SET 3 RESET  SET 0 CLOSE &953 SET  RESET 3t SET  DELETE EXEC GO 1& SREAD SET  SET  LOAD  MERGE  FLREAD FOR SWAP CLS LOAD ' REM REM line numbering breaks here! REM  MERGE &($f3) DATA 9 SET DELETE ( NEW  SET 0 RESET  READ Q' DATA 9 GO ' SET  EDIT FOR RESET  &($eb) READ <& GO &($f8) DATA SET  EDIT FOR &($fa)5 DATA  NEW . } 5904 SET  DELETE EXEC GO U&0 READ ($FF36)($f6) PRINT  REM REM line numbering breaks here! REM COLOR &($f4) SAVE PRINT TAB(& CLEAR  SET  LET ? INPUT  SET  DELETE ELSE _9 DATA  NEW TAB(95 DATA  NEW . IF & 198  SET  DELETE EXEC GO U' 12838 SWAP  REM REM line numbering breaks here! REM LET & SREAD LOAD  MERGE  SET  SET  FLREAD FOR SWAP CLS LOAD '  MERGE &($f3) DATA 9 DATA 2790  LET REM REM line numbering breaks here! REM RESET  SET 0 READ  CLEAR  CONT MOTOR NEW  LOAD ' MERGE  POKE "($fa)'9 LET 5177 DELETE FOR READ  FOR OPEN  NEW Z' DELETE FOR READ FOR OPEN  NEW Z& FLREAD 9 GO a GO z" FOR 9 5' SET 0 CLOSE & LET 5254 313 CLEAR . END 0 SET  MOTOR EXEC & SET 0 SET DELETE ( SET 1! FLREAD FOR  INPUT ($FFBE)4 DELETE CLS ($FFB7) INPUT SAVE RENAME &J&($e9)9 READ . CLEAR  SET  SET ? INPUT 90 READ REM REM line numbering breaks here! REM ($f5)vRMS FILE IO ERROR, FATAL./ CLEAR  DRIVE = MERGE LINE CLEAR  DRIVE = MERGE PSET CLEAR  DRIVE = COPY PCLS MERGE PCLS $ LINE CLEAR  DRIVE = COPY PCLS MERGE PCLS $ LINE CLEAR  SET LINE PROTECT PSET ? ON PSET 9 SET \' CLEAR IDD NEW FOR ' SET DELETE  OR FOR &($f7) PLAY /\ 162  REM REM line numbering breaks here! REM MERGE ($fd) VERIFY & NEW  PLAY /^($ec) ELSE ' 135 CLEAR _? DATA & KILL  PLAY / CLEAR  REM REM line numbering breaks here! REM RESTORE  PLAY / OPEN  PRINT < MERGE CLOSE MERGE SET DATA 0 NEW CLS L' V DATA  OR  PLAY /` 40460 DELETE EXEC '5($fe)A'0 DATA  FREAD &($f4) PLAY / CLS  REM REM line numbering breaks here! REM K PLAY / OPEN  B M'  DATA  47302 b 51999 PLAY /f REM REM line numbering breaks here! REM Y($FF61) SET J DIM 13982 J CLOSE F. SET DELETE  ($f3) LET 18975 PLAY /w DATA  GO 59012 - NEW  KILL O STEP - NOT L>0 SWAP ELSE 0 VERIFY 9 PLAY /d RESET END SET END SCREEN ELSE ' RESET END 0 REM REM line numbering breaks here! REM - ($f1)9 RESET DIM SET DIM ($ec) ELSE '($f7) LOAD J POKE H/ MID$ ($FFD3) SET DIM SCREEN ELSE RESET DIM 0 MOTOR RENAME NEW LET  PLAY /h RESET RESTORE SET RESTORE SCREEN ELSE &9 RESET RESTORE CLEAR LET MOTOR &($f1)($ec) MERGE  DELETE 0 RESET 0 DATA RESET " SET  DELETE  SCREEN ON  RESET 0 DATA RESET $_ SET $ CLOSE ':0 RESET $ DELETE ELSE GO '0 GO .& SET "0 EDIT ELSE RESET " SREAD ELSE  NEW T SET "0 RESET " DELETE ELSE ELSE  OPEN T DSKINIT T_ OPEN T GO - FOR \ END 0 EDIT ELSE NOT ]'$ SET " CLOSE '0 RESET " DELETE ELSE ELSE _L GO - FOR \ END 0 EDIT ELSE RENAME 0 READ ($fb) CHAIN ($f3)Q($FF6B) RESET r($ec) ELSE ' 8326 REM REM line numbering breaks here! REM SET SOUND SWAP FOR J&($fb) SET r SCREEN ELSE '< RESET r($ec) SCREEN  SET SOUND 1?4O1 PCLS 5M' FLREAD FOR SWAP CLS  CLOSE TRON 'J&($f4) SET r DELETE  GO & BOOT FLREAD  SCREEN  DATA EDIT FOR Z&($fb)0 DATA 0 EDIT ELSE FN SET SOUND 0 ON 0 ON  DATA MOTOR ELSE &0 CLOSE SOUND $($f6) DATA EDIT +  POKE SOUND  SET SOUND DATA ? DIM SET J0 RESET J9 SET SOUND 0 WAIT NEW P PLAY /N RESET R SET R SCREEN ELSE &9 RESET R CLEAR P MOTOR &($f1)1 DELETE  SCREEN  RESET / PCLEAR ON  GO (& f  3230 R DELETE ($fc) PCLS GO E'<9 SET R DELETE ($fc) RESET GO I' NOT 9 SET / DELETE ON  NEW  DELETE ON  NEW  SCREEN ON  RESET SET RESET " SET  DELETE ELSE 0 RESET  GO ,'# GO REM REM line numbering breaks here! REM ' SET " MOTOR ELSE &0 RESET " VERIFY SET  DELETE ELSE ' 0 GO ,&($f6) RESET  BEEP DATA 9 DATA 12198  NEW  DELETE ON  NEW  DELETE ON  NEW DELETE SCREEN ON  RESET ! GO D'G DRIVE  SET ! RESET # SET # DELETE ELSE 0 RESET # SET  MOTOR ELSE -=& 0 RESET Z&($e9) REM REM line numbering breaks here! REM SET  DELETE FOR GO ,&($fa) RESET  DRIVE  SET ! DELETE ELSE 0 RESET ! SET  MOTOR ELSE . DELETE & ERR 0 RESET Z& SWAP  MEM SET ! SET ($ec) AUDIO &- DIM &($ec) AUDIO #-'& ($ec) ELSE  AUDIO EXEC -($FF78)($ec) AUDIO /.($FF6F)&($ec) AUDIO ,.($FF64)& ($ec) ELSE  AUDIO ).($FF59)($FF59)40 VERIFY  LET 272 ? END 5 CLEAR GO ($ed) FROM FROM / REM REM line numbering breaks here! REM S  DELETE S  RESET 135 USING DELETE REM REM line numbering breaks here! REM  GO ELSE 105 nde($f8)3 OR  REM REM line numbering breaks here! REM WAIT RESET ', MERGE .() DATA A NEW G SET RESET  BACKUP &($ea) RESET  DATA ./R($ed) ELSE DATA M/S($ed)o SET  DATA ? ELSE  DIR NEW  PLAY / LET 1552 ? INPUT < CLEAR  GO U&> LOAD REM REM line numbering breaks here! REM MERGE +($e8) MERGE  COPY  MERGE ]+ 158  DATA ./D($ed) ELSE DATA I/C($ed)o SET  DATA ? ELSE  RETURN NEW  SET REM REM line numbering breaks here! REM RESET S ]&  DATA ./n($ed) ELSE DATA d/x($ed)o0 RESET 4159 PRINT 0 READ  USING  SET 5888 2& EDIT < 34029 ($ed)($ed)0 RESET REM REM line numbering breaks here! REM SET Z DELETE ELSE '  EDIT FOR ($f5) SET DATA  NEW .W READ ? CLEAR ? RUN  TO  SET  DELETE EXEC GO & DATA 9 GO ' GO ,&1! ($eb)/P DELETE EXEC GO ' GO ,' GO #1! EDIT FOR Z&($eb)1! RESET  DATA 6511 ELSE RESET  DRAW & RETURN GO '($f5) GO & . ($ed) GO "&($ed) CLOSE & FLREAD GO "&($f5) CLEAR  GO 1. PROTECT  PRINT &c GO '($f5) GO ;'($f1) GO & . ($e9) GO $'M SET  RESET ooooooo SET ] EDIT FOR RESET   CLEAR  GO 'E& OPEN GO ' GO ,' GO & LOAD . .& SWAP GO ' GO ,' GO &($ef) .& CHAIN GO '($f7) GO ;'($f3) GO & . ($eb) GO 0-a GO 9.[ ELSE  NEW  CLEAR  GO .O/ = KILL  DSKINIT  REM REM line numbering breaks here! REM FROM &A GO ,' GO ' GO & AUTO . 4135 + SET  EDIT  9732 &/ GO ,'($f2) GO '($ee) GO & . FLREAD GO D' GO M' GO A'" GO N' REM REM line numbering breaks here! REM SET  FLREAD  STEP &  SET  FLREAD  STEP .0 READ jS SET  EDIT  x& ERROR  q& FWRITE GO & . ($f1) GO '($ed) GO ,'($e9) GO "&+ T& TO GO & . ($f1) GO "&($ed) 1840 READ  VERIFY  GO & . ($ec) GO ;&($e8) SET 0 ON  RESET  ($fe) LET SET o ELSE SET  LET REM REM line numbering breaks here! REM m ELSE ' DELETE _ INPUT 1 PCLS 0 ON  ($f0)1" CLOSE 94 W& LET 3990 ? INPUT  SET  DELETE ELSE _5 RESTORE DATA  NEW W5 RESTORE INVALID FILE NAME\CAN'T OPEN .RMS FILE\CAN'T OPEN .DIC FILE\RMS FILE IO ERROR\INVALID RMS FILE PREFIX\NO PRIMARY DICTIONARY\INVALID INDEX FILE NAME\INVALID TITLE IN DICTIONARY\TOO MANY FIELDS IN DICTIONARY\INVALID FIELD NAME IN DICTIONARY\INVALID FIELD LENGTH IN DICTIONARY\INVALID TYPE CODE IN DICTIONARY\INVALID PROMPT IN DICTIONARY\INSUFFICIENT MEMORY\DATE FIELD NOT LENGTH 8 IN DICTIONARY\MISSING ; IN DICTIONARY\TOTAL FIELD LENGTHS OVER RECORD LENGTH\MONEY FIELD LESS THAN LENGTH 4 IN DICTIONARY\INVALID SORT FIELD SPECIFIED\WRITE ERROR ON .NDX FILE\.NDX FILE CREATED OK\ERROR WHILE WRITING TEMPFILE\NO RECORDS IN THE FILE, NO NDX CREATED\RAN OUT OF MEMORY IN MERGE\TEMP FILE READ ERROR\ DATA READ O DATA READ K DELETE FOR GO \' READ C ($f6) CLEAR .'10 READ REM REM line numbering breaks here! REM  DELETE FOR ' READ 3 ($f8) LINE 24449 - FOR \ ($f7) NEW  DSKINIT  CLEAR ' END 0 READ  CLEAR  END 0 READ DATA READ  DATA READ _?s0 READ ($fc)($f2) EXEC 0 READ ($fc)($fe) SET 0 READ ($fd) DEF 0 READ ($fd) STOP 0 READ ($fd)( DIM 0 READ ($fd): ($f8)0 READ ($fd)b ($f2)0 READ ($fd)x ($ec)0 READ ($fd) RESTORE FLREAD 0 READ ($fd) PCLS RENAME 0 READ ($fd) AND ERROR 0 READ ($fd) SREAD CREATE 0 READ ($fd)($f9) AUTO 0 READ ($fe) AND 0 READ ($fe)? OFF 0 READ ($fe) READ TO 0 READ 46676 OO MANY MERGE PASSES REQUIRED TRY GIVING MORE MEMORY\ SET 0 RESET  SET DELETE ELSE ' LOAD ($ed) ON O FLREAD  COPY  MERGE 0 ON  ($eb). SET DELETE ELSE ' LEFT$  SET Z($ec) EXEC  AUDIO ELSE &($ec)" AUDIO &($ec)$ AUDIO &($ec)& AUDIO '0 ON  DRIVE ($ec) ON  MERGE / DELETE  NEW 1 DELETE NEW \ SET ($ec) TRON  MERGE 3 DELETE ( NEW 57 NEW 8 CLOSE ' _ PCLS  OR REM REM line numbering breaks here! REM NEW 8 DSKINIT 7 SET RESET U DATA t/e($ed) ELSE DATA m/p($ed) DATA ./A($ed)o0 RESET X0 RESET 142 1552 ? ON C 3856 SET  CLEAR ? INPUT SET  DELETE ELSE GO 1&($ec) DATA 9O9 SET REM REM line numbering breaks here! REM RESET 9 DATA  DATA  DATA S DATA O DATA R($fb) DATA T($f6) CLEAR C&- READ THEN & C SET 9 SET / DRIVE 1 DELETE CLS EDIT FOR Z&($f9) SET 3 CLOSE /' DRIVE 5 DELETE CLS EDIT FOR Z&($f9) RESET 9 CLOSE  BACKUP SET 9 CLOSE 5633 < SET REM REM line numbering breaks here! REM RESET ; LOAD 9 POKE 7 MERGE ? SET RESET = SET = CLOSE ?$Z LOAD 71 NEXT CLEAR \ GO D' CLEAR 1 FLREAD CLS  INPUT 4 DELETE FOR ($fa) INPUT SAVE RENAME -0.J& SWAP )($ec) AUDIO && ($ec) AUDIO #&($ec) ELSE  AUDIO EXEC # SET = LOAD 71 NEXT DSKINIT  DELETE ELSE FLREAD EXEC EDIT CLS SWAP FOR &($f4) SET = LOAD 70 NEXT RESET = CLS LOAD ? POKE 7 MERGE ? DATA .C LOAD ; COPY 7 MERGE ; POKE 9 DATA CLEAR C' 18305 A& REM REM line numbering breaks here! REM j SET S DATA / ?'$0 READ ($fc) COLOR ($fd)O NEW  SET RESET ; SET ; CLOSE 9'4 SET / CLEAR 1 CLOSE 3&O0 DELETE DRIVE 5 DSKINIT  SET  CLEAR ? END BEEP SET  DATA EDIT ELSE  LET 2064 ? END THEN LOAD ; COPY 7 MERGE ; - CLEAR ? RUN COLOR 0 READ ($fc)y($fc)($FF10) SET X CLEAR G EDIT EXEC 9 READ ($f6) SET U? PRINT SET U DATA /?'$0 READ ($fc)m($fc) PROTECT NEW SET REM REM line numbering breaks here! REM LOAD 9 POKE  CLEAR ? END ($FFE6) CLEAR ? RUN WAIT G CLEAR G GO Z"($fd)p($fe)h DATA { DATA v DATA Mq DATA El DATA Rg DATA Gb DATA E]< 14301 Q CLEAR G GO A&0 READ ($fc),($fc) FOR SET REM REM line numbering breaks here! REM RESET I RESET K CLEAR G NEW H DATA A NEW GM($FF6E) DATA  SET U? ELSE  SET K EDIT ELSE CLEAR G EDIT  LOAD K COPY Q POKE $($fc)($ef) 0 READ ($fc)6($fc)H M SET K MERGE G LOAD K COPY Q MERGE K CLEAR G RETURN H&+ SET S DATA /[?'($fe) BEEP NEW  M&($FF10) SET I($ec) ELSE ' 3036 Q0 NEXT CLOSE K($f0)($fe)($fb) RESET O RESET ; LOAD ; COPY Q MERGE ; POKE K'T SET O SET ;($ec) EXEC ' REM REM line numbering breaks here! REM '($e8) DRIVE 101# CLEAR \ GO D' DELETE CLS READ 4 DELETE FOR READ MOTOR RENAME - AUTO .Z&($ed) ^ GO a GO z" FOR 9($ec) AUDIO && ($ec) AUDIO #&($ec) ELSE  AUDIO EXEC # EDIT SET ; RESET O MOTOR  SET O SET / CLEAR 1 CLOSE 3&O0 DELETE 0 DRIVE 5 DSKINIT  SET  CLEAR ? END ($fe)- DATA SET  EDIT ELSE  LET 2064 ? END ($fe) SET O READ  DATA . REM REM line numbering breaks here! REM 0($FF40) RESET 9 SET 7 DELETE ELSE 0? INPUT 9 SET 9 DELETE ELSE  LET  PCLEAR ELSE ? RUN M SET 9 DELETE  SET X EDIT ELSE SET U? PRINT 940 VERIFY  LET 272 ? END 5 CLEAR J($fd)I FROM FROM REM REM line numbering breaks here! REM S  BEEP S  PCLS  49 8 33 5F 00 0C0000000000 0B0000000000 0A 08 1B4300000000 07 000000000000 000000000000 FF00000000000000 00000000000000 00 000000 0D00 0800 0900 1800 0500 1C00 0600 0400 1500 0A00 1900 0C00 1A00 1200 0000 00F0 REM REM line numbering breaks here! REM S  ($f5)S  PRESET  34 RMS SAMPLE FILE: INVENTORY RECORD"; PARTNO 8 A "PART NUMBER: " <6> ; DESC 30 A " DESCRIPTION: " ; PRICE 7 M "RETAIL PRICE: "; INSTOCK 4 N " NUMBER IN STOCK: "; LOC 1 A " STORED IN ISLE " (A,F) ; REORDER 3 N "RE-ORDER WHEN STOCK DOWN TO " ; COST 7 M "ON HAND WHOLESALE PRICE: "; SUPPLIER 10 A "SUPPLIED BY: "; ONORDER 1 A "BACK ORDERED NOW " [Y,N, ] ; ESTDATE 8 D* " SHOULD BE IN STOCK BY "; FROM FROM FROM REM REM line numbering breaks here! REM S  ($fe)S  COLOR  76 1,1 ; T ; T "SAMPLE PRICE LIST IN ORDER BY PRODUCT DESCRIPTION"@8; T ; T "DESCRIPTION OF PRODUCT PART NUMBER RETAIL PRICE"@1 ; T "_____________________________________________________________"@1 ; P DESC@1 PARTNO@35 PRICE@52 ; X DESCRIP; FROM FROM REM REM line numbering breaks here! REM S  ($fe)S  PAINT  34 RMS ADDRESS BOOK" KEYNAME 20 A "Key Name: " ; NAME 35 A "Full Name: " ; ADDRESS1 35 A* "Address: " ; ADDRESS2 35 A* " " ; ADDRESS3 35 A* " " ; ADDRESS4 35 A* " " ; POSTCODE 10 A* "Post Code: " ; TELEX 20 A* "Telex: " ; CATEGORY 5 N* "Category: " ; REF 10 A* "Reference: " ; $ " CONTACTS" KEYNAME 20 A "Key Name: " ; CONTACT 35 A* "Contact: " ; PHONECOD 10 N* "Phone Code: " ; PHONENUM 10 N* "Phone Number : " ; EXT 6 N* "Extension : " ; $ FROM FROM REM REM line numbering breaks here! REM S   BEEP S  DRAW  X NAMES ; L 66,58 ; T "RMS ADDRESS BOOK"@20 ; T "FOR OS-9 ON THE DRAGON"@15 ; T "" ; T "PRINTED"@15 $D@24 ; H "RMS ADDRESS BOOK"@1 $D@20 "Page"@30 $P@35 ; H "" ; P KEYNAME@1 ; P NAME@1 ; P ADDRESS1@1 ; P ADDRESS2@1 ; P ADDRESS3@1 ; P ADDRESS4@1 ; P POSTCODE@1 ; S CONTACT@4 ; S "Phone"@1 PHONECOD@7 PHONENUM@17 "Ext"@30 EXT@34 ; P "Telex"@1 TELEX@7 ; P "Category"@1 CATEGORY@10 ; P "Reference"@1 REF@12 ; G "_____________________________"@1 ; W $G@1 "entries"@7 ; /   BOOT PLAY  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 /  CLEAR TO 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 AND  Bloggs jackson Jones Smith [ -  GO >  U / QUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU D76666666bbbbb 2.21 2A 4 2.40 33/12/83 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 122222222Adult life jacket, large 49.95 124E 20 34.20Vivaway Y12/12/12 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 11111111110ft rubber gas line 8.99 123A 23 2.30vivaway Y12/12/12 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU D66666666bbbbb 2.21 2A 4 2.40 35/12/83 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU D55555555bbbbb 2.21 2A 4 2.40 15/12/83 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 144444444Plastic battery 12.201245A123 6.22Vivaway N UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 133333333Adult life jacket, small 49.95 145E 20 23.00Vivaway Y12/12/12 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU FROM FROM FROM - PLAY KILL  X names T " RMS PHONE BOOK"@1 ; P keyname@1 ; P name@1 ; p "TELEX: "@1 telex@9 ; p " "@1 ; S contact@1 ; S phonecod@4 phonenum@14 "Ext: "@25 ext@30 ; G "---------------------"@1 ; . $ MERGE  11111111 22222222 33333333 44444444