REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $3601 Length: $0075 Exec: $8b8d * REM *(Start: 13825 Length: 00117 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 2 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 500 K=K+1 600 IF K<1000 THEN 500 700 PRINT "E" REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $3601 Length: $0069 Exec: $8b8d * REM *(Start: 13825 Length: 00105 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 1 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 FOR K=1 TO 1000 500 NEXT K 700 PRINT "E" REM REM line numbering breaks here! REM FROM FROM U` ($FF60) LINE SET CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE LLIST CSAVE SKIPF PCLEAR PSET TROFF SKIPF LINE EXEC LINE SCREEN PSET PRESET SKIPF PSET PSET LINE FN TO TO DRAW TO TO RENUM FN TO TO NOT TO SUB TO PLAY LIST CSAVE SKIPF LINE CLS SKIPF SKIPF LINE CLS LINE LINE NOT SKIPF SKIPF NOT NOT LINE RENUM COLOR COLOR DRAW COLOR COLOR RENUM RENUM COLOR COLOR NOT RESTORE DRAW FOR NOT LIST CSAVE SKIPF LINE CLS SKIPF EXEC PSET PSET LINE LINE NOT SKIPF SKIPF PSET PSET LINE FN TO PLAY DRAW TO TO RENUM TO TO SUB COLOR COLOR DRAW COLOR FOR LIST CSAVE SKIPF PCLS AUDIO DELETE MOTOR AUDIO AUDIO LINE LINE NOT SKIPF SKIPF NOT NOT LINE RENUM NOT NOT DRAW COLOR NOT RENUM GET GET PMODE COLOR FOR DRAW FOR FOR LIST CSAVE RESTORE FOR NOT FOR FOR FOR FOR FOR NOT NOT FOR FOR FOR FOR CLS FOR CLS FOR COLOR FOR FOR FOR FOR NOT FOR FOR NOT FOR FOR RESTORE LIST CSAVE BASIC`COMPILER`FOR`THE`DRAGON` LIST CSAVE hCiCOPYRIGHT`COMPUSENSE``qyxs` LIST CSAVE RESTORE RESTORE FOR FOR FOR ($f0) FOR FOR FOR FOR FOR NOT FOR FOR NOT FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE LIST CSAVE RESTORE RESTORE RESTORE FOR RESTORE ($f0) FOR FOR FOR FOR FOR NOT FOR NOT NOT FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE LIST CSAVE RESTORE FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE FOR FOR RESTORE FOR FOR RESTORE FOR FOR FOR RESTORE FOR FOR FOR RESTORE FOR FOR RESTORE RESTORE LIST CSAVE FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE FOR FOR FOR FOR RESTORE FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE LIST CSAVE FOR RESTORE FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE FOR FOR FOR LIST CSAVE RESTORE FOR RESTORE FOR RESTORE RESTORE RESTORE RESTORE RESTORE FOR FOR RESTORE FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR RESTORE RESTORE RESTORE FOR FOR RESTORE RESTORE LIST CSAVE RESTORE RESTORE RESTORE FOR RESTORE FOR FOR FOR RESTORE FOR FOR RESTORE FOR FOR RESTORE RESTORE RESTORE RESTORE RESTORE FOR RESTORE RESTORE RESTORE RESTORE FOR FOR FOR RESTORE RESTORE FOR LIST OPEN POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $1201 Length: $00b0 Exec: $8b8d * REM *(Start: 04609 Length: 00176 Exec: 35725) * REM ************************************************* REM 10 :'LOAD COMPILED MENU PROGRAM 20 :'THIS SHORT PROGRAM NECESSARY 30 :'TO AVOID UL ERROR IF RUN 40 :'COMMAND IS OVERLAYED BY THE 50 :'PROGRAM BEING LOADED 60 RUN "DFM.BIN REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $1201 Length: $05eb Exec: $8b8d * REM *(Start: 04609 Length: 01515 Exec: 35725) * REM ************************************************* REM 100 :'DYNAFAST/DYNAMISER/DYNAXREF LOADER PROG (C) COPYRIGHT COMPUSENSE LIMITED 1984 120 PMODE 0 200 CLS 90: CLS 300 CLEAR 400,&H7FFF 310 :'SAVE START OF PROG 320 POKE &H300, PEEK (&H19) 330 POKE &H301, PEEK (&H1A) 340 PCLEAR 1 350 :'CALC ORIGINAL PCLEAR NUMBER 360 PC= PEEK (&H301)- PEEK (&H1A)+( PEEK (&H300)- PEEK (&H19))*256 361 PC= INT (PC/&H600)+1 365 :'SAVE FOR DFM SELECTION PROGRAM 370 I= INT (PC/256): POKE &H300,I: POKE &H301,PC-I*256 1000 K$= INKEY$ 1300 GO SUB 21000 1400 K$= INKEY$ :K= ASC (K$+ CHR$ (1)) 1700 IF K<2 THEN 1400: ELSE PLAY "O3T30C" 1800 IF K=12 THEN 200 2100 IF K$="F" THEN 3000 2150 IF K$="M" THEN 4000 2175 IF K$="X" THEN 5000 2200 :' 2300 IF K=3 THEN CLS : PRINT "BREAK": END 2301 GO TO 1400 3000 :'dynafast 3001 CLS 2: PRINT @163,"LOADING DYNAFAST"; 3003 RUN "DFMX" 4000 :'dynamiser 4100 CLS 4: PRINT @163,"LOADING DYNAMISER"; 4120 CLEAR 100,&H6FE0 4130 LOAD "DYNAMISE.BIN" 4140 GO TO 5140 5000 :'dynaxref 5100 CLS 7: PRINT @163,"LOADING DYNAXREF"; 5120 CLEAR 100,&H7800 5130 LOAD "DYNAXREF.BIN" 5140 CLS : PRINT : PRINT : PRINT "CLOAD YOUR BASIC PROGRAM" 5150 PRINT "AND EXEC" 5160 NEW 10600 :' 21000 CLS 3 21010 PRINT @033,"******************************"; 21020 PRINT @065,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21030 PRINT @097,"* FOR FOR FOR FOR press FOR key FOR to FOR select FOR FOR FOR FOR FOR *"; 21040 PRINT @129,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21050 PRINT @161,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21060 PRINT @193,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21070 PRINT @225,"* FOR FOR FOR F FOR FOR FOR FOR DYNAFAST FOR FOR FOR FOR FOR FOR FOR *"; 21080 PRINT @257,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21090 PRINT @289,"* FOR FOR FOR M FOR FOR FOR FOR DYNAMISER FOR FOR FOR FOR FOR FOR FOR *"; 21100 PRINT @321,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21110 PRINT @353,"* FOR FOR FOR X FOR FOR FOR FOR DYNAXREF FOR FOR FOR FOR FOR FOR FOR *"; 21120 PRINT @385,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21130 PRINT @417,"* FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR *"; 21140 PRINT @449,"******************************"; 21150 RETURN REM REM line numbering breaks here! REM U< AUTO R KILL LINE < d:'DYNAFAST LOADER PROG 110 :' 120 :' 200 CLS 90: CLS 0: CLEAR 400,&H6000: PCLEAR ($FFF2) PRESET 4 REM REM line numbering breaks here! REM PRESET 0: LOAD "DF.SCR": LOAD "DYNAFAST.BIN":($f8) PRESET 2 PRESET 2($f0) PRESET & PRESET 0:($f7) PRESET 2 PRESET 0 PEEK (32752)*256+ PEEK (32753):($f8) PRESET 2 PRESET 2($fa) PRESET & PRESET 0:F$="":G$="" 800 CLS 0:($fa) R 1000 K$= INKEY$ :($f8) PRESET 2 PRESET 2 REM REM line numbering breaks here! REM  PRESET & PRESET 0:N$=F$ 1100 PRINT @354,"PLEASE TYPE THE NAME OF THE ";: PRINT @386,"BASIC PROGRAM TO BE COMPILED";: PRINT @418,"=> "; 1400 PRINT @418,"=>";N$;" ";:($fa) +: PRINT @418,"=>";N$;"_";:($fa)O: IF ($FFF2) PRESET 4 PRESET 0=12 THEN ($fd): ELSE ($fc) :F$="":($fb) 15793 l IF K$="^" THEN ($fd): ELSE ($fc):($fb) 15846  BEEP IF K$>=" " AND LEN (N$)<15 AND K$<> CHR$ (34) THEN ($fd): ELSE ($fc):N$=N$+K$:($fb)I 2100 IF ($FFF2) PRESET 4 PRESET 0=8 AND LEN (N$)>0 THEN ($fd): ELSE ($fc):N$= LEFT$ (N$, LEN (N$)-1) 2300 IF ($FFF2) PRESET 4 PRESET 0<>13 OR LEN (N$)<1 THEN ($fd): ELSE ($fc):($fb)I 2301 IF N$<>"" THEN ($fd): ELSE ($fc) :F$=N$:($fc) : ELSE :F$=" " 2302 PRINT @322,"input FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @331,F$; 2500 K$= INKEY$ :($f8) PRESET 2 PRESET 2 REM REM line numbering breaks here! REM  PRESET & PRESET 0:N$=G$ 2600 PRINT @354,"TYPE NAME FOR THE COMPILED ";: PRINT @386,"PROGRAM ON DISK OR ";: PRINT @418,"=> "; 2900 PRINT @418,"=>";N$;" ";:($fa) +: PRINT @418,"=>";N$;"_";:($fa)O: IF ($FFF2) PRESET 4 PRESET 0=12 THEN ($fd): ELSE ($fc) :G$="":($fb) POKE 3400 IF K$="^" THEN ($fd): ELSE ($fc):($fb) CIRCLE 3500 IF K$>=" " AND LEN (N$)<15 AND K$<> CHR$ (34) THEN ($fd): ELSE ($fc):N$=N$+K$:($fb)' 3600 IF ($FFF2) PRESET 4 PRESET 0=8 AND LEN (N$)>0 THEN ($fd): ELSE ($fc):N$= LEFT$ (N$, LEN (N$)-1) 3800 IF ($FFF2) PRESET 4 PRESET 0<>13 THEN ($fd): ELSE ($fc):($fb)' 3900 IF N$<>"" THEN ($fd): ELSE ($fc) :G$=N$:($fc) : ELSE :G$="" 4000 PRINT @290,"output FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @299,G$;:($f8) PRESET 2 PRESET 2 REM REM line numbering breaks here! REM  PRESET & PRESET 0 4200 PRINT @354,"SELECT MODE - PRESS n/f/s/p ";: PRINT @386,"FOR NORMAL/FAST/STEP/PRINT ";:($fa) + 4500 PRINT @418,"=> ";:($fa)O: IF K$="^" THEN ($fd): ELSE ($fc):($fb)u 4700 M$=K$: IF M$="P" OR M$="N" OR M$="F" OR M$="S" THEN ($fd): ELSE ($fc) :($fb)C:($fc): ELSE :($fb) OR 5000 ($f8) PRESET 2 PRESET 2 REM REM line numbering breaks here! REM  PRESET & PRESET 0: IF M$="N" THEN ($fd): ELSE ($fc):NN$="NORMAL" 5002 IF M$="S" THEN ($fd): ELSE ($fc):NN$="STEP " 5003 IF M$="F" THEN ($fd): ELSE ($fc):NN$="FAST " 5004 IF M$="P" THEN ($fd): ELSE ($fc):NN$="PRINT " 5052 PRINT @354,"mode FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @363,NN$;: PRINT @386," TO CONTINUE ";: PRINT @418," TO START AGAIN => ";:($fa) +:($fa)O: IF K$="^" THEN ($fd): ELSE ($fc):($fb)C 5600 IF ($FFF2) PRESET 4 PRESET 0=12 THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM LINE 5700 IF ($FFF2) PRESET 4 PRESET 0<>13 THEN ($fd): ELSE ($fc):($fb)C 5750 PLAY "T30G":D$= CHR$ (13):Q$= CHR$ (34):LO$= CHR$ (220):P$= CHR$ (255)+ CHR$ (140):SA$= CHR$ (225):EX$= CHR$ (164):TH$= CHR$ (191):FF$= CHR$ (133):EQ$= CHR$ (203):PR$= CHR$ (135):PL$= CHR$ (184):N$=LO$+Q$+F$+Q$+D$:N$=N$+EX$+"25088:"+M$+D$:($fa) LLIST : IF G$="" THEN ($fd): ELSE ($fc):($fb) 7020 N$=PR$+Q$+"saving "+G$+Q$+D$:($fa) LLIST :N$=SA$+Q$+G$+Q$+","+P$+"(32756)*256+"+P$+"(32757),"+P$+"(32758)*256+"+P$+"(32759),"+P$+"(32760)*256+"+P$+"(32761)"+D$:($fa) LLIST 7200 N$=PL$+Q$+"T30G"+Q$+D$+ CHR$ (0):($fa) LLIST : EXEC ($FFF2) PRESET 4 PRESET 0: CLEAR 100,&H6200: NEW 7600 REM 7700 PRINT @445,"?";:K$= INKEY$ :($f7) PRESET 2 PRESET 0 ASC (K$+ CHR$ (1)): IF ($FFF2) PRESET 4 PRESET 0=3 THEN ($fd): ELSE ($fc):($fb) Q 7900 PRINT @445," ";: IF K$>=" " AND K$<" FOR " THEN ($fd): ELSE ($fc) : PRINT @445,K$; 8100 IF ($FFF2) PRESET 4 PRESET 0>3 THEN ($fd): ELSE ($fc): PLAY "T80O4G":($fc): ELSE :($fb)U 8200 IF K$="^" THEN ($fd): ELSE ($fc):($fa) Z 8300 RETURN 8350 REM 8360 ($fe)0:($f9)1255:($f9)21: FOR :($f8) PRESET 4 PRESET EXEC PRESET 2 REM REM line numbering breaks here! REM PRESET 6 PRESET 4 PRESET EXEC PRESET 2` PRESET 6 PRESET $ PRESET & PRESET 0: NEXT : POKE &H5FF,151: RETURN 8400 REM 8500 ($fa) : PRINT @486,"PRESS ^ FOR help!!!";: IF G$="" THEN ($fd): ELSE ($fc):($fb) OFF 8650 PRINT @290,"output FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @299,G$; 8700 IF F$="" THEN ($fd): ELSE ($fc):($fb) 8800 PRINT @322,"input FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @331,F$; 9000 Q$=" ": PRINT @354,Q$;: PRINT @386,Q$;: PRINT @418,Q$;: RETURN 9800 REM 9900 PLAY "T20C": PRINT @486,"*******************";: PRINT @354,"CANCELLED BY break": END 10110 REM 10130 ($fe)1:($f9)1 LEN (N$):($f9)21: FOR : POKE ($FFF2) PRESET 4 PRESET 0, ASC ( MID$ (N$,($FFF2) PRESET 4 PRESET 0,1)): IF ($FFF2) PRESET 4 PRESET 0>($FFF2) PRESET 4 PRESET 0 THEN ($fd): ELSE ($fc): PRINT "OVERFLOW": NEW :($fc): ELSE :($f8) PRESET 2 PRESET 4 PRESET 2 REM REM line numbering breaks here! REM  PRESET 6 PRESET & PRESET 0: NEXT 10140 PLAY "T30G": RETURN 10150 PRINT @0,"";: PRINT USING "#";($FFF1);: PRINT @31,"";: PRINT USING "#";($FFF1);: RETURN 10200 REM 10210 V$= INKEY$ : PRINT @484,"PRESS A KEY TO CONTINUE";:($f9)0($FFF2) PRESET 4 PRESET 0:($f6)($fc) ($ef)-k TROFF 10400 PRINT @354,"NO HELP AVAILABLE" 10500 V$= INKEY$ : IF ASC (V$+ CHR$ (1))<2 THEN ($fd): ELSE ($fc) :($fb) NOT :($fc) : ELSE :($fa) R: RETURN 21000 REM 21010 PRINT @033,"TYPE THE name OF THE basic ";: PRINT @065,"program THAT YOU WANT TO ";: PRINT @097,"COMPILE IN THE NORMAL DRAGON- ";: PRINT @129,"DOS FORMAT (without quotes). ";: PRINT @161,"IF YOU MAKE A MISTAKE PRESS _ ";: PRINT @193,"TO DELETE THE LAST CHARACTER ";: PRINT @225,"OR clear TO START AGAIN. ";: PRINT @257," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR examples FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @289,"PROGRAM1 - COMPILE THE FILE";: PRINT @321,"CALLED PROGRAM1.BAS ON THE ";: PRINT @353,"DEFAULT DRIVE. ";: PRINT @385," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @417,"2:PROGRAM2.TXT - COMPILE FILE";: PRINT @449,"PROGRAM2.TXT ON DRIVE 2 ";:($fb) NOT 22000 REM 22010 PRINT @033,"TYPE THE name UNDER WHICH ";: PRINT @065,"THE compiled PROGRAM IS TO BE ";: PRINT @097,"SAVED. note: THE DEFAULT ";: PRINT @129,"FILE TYPE IS 'BIN'. . ";: PRINT @161,"IF YOU MAKE A MISTAKE PRESS _ ";: PRINT @193,"TO DELETE THE LAST CHARACTER ";: PRINT @225,"OR clear TO START AGAIN. ";: PRINT @257,"IF YOU DO NOT TYPE A NAME THEN";: PRINT @289,"THE COMPILED PROGRAM IS not ";: PRINT @321,"SAVED AUTOMATICALLY. ";: PRINT @353," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR examples FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @385,"PROG1 SAVES PROG1.BIN ON DEFD";: PRINT @417,"2:APROG.CMP SAVES COMPILED";: PRINT @449,"CODE AS APROG.CMP ON DRIVE 2 ";:($fb) NOT 23000 REM 23010 PRINT @033,"nORMAL GIVES A SCROLLING ";: PRINT @065,"DISPLAY AT A READABLE SPEED ";: PRINT @097," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @129,"fAST MAKES DYNAFAST RUN AT ";: PRINT @161,"MAXIMUM SPEED. ";: PRINT @193," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @225,"sTEP TELLS DYNAFAST TO PAUSE ";: PRINT @257,"AS IT COMPILES EACH LINE OF ";: PRINT @289,"YOUR PROGRAM UNTIL YOU PRESS ";: PRINT @321,"THE enter KEY. ";: PRINT @353," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @385,"pRINT PRODUCES THE OUTPUT FROM";: PRINT @417,"THE COMPILER ON YOUR PRINTER. ";: PRINT @449," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";:($fb) NOT 24000 REM 24010 PRINT @033,"THIS IS YOUR LAST CHANCE TO ";: PRINT @065,"CHANGE YOUR MIND!!!!!!!!!!!!!!";: PRINT @097," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @129,"IF YOU ARE HAPPY WITH THE ";: PRINT @161,"INPUT AND OUTPUT FILE NAMES ";: PRINT @193,"AND WITH THE MODE THAT YOU ";: PRINT @225,"HAVE SELECTED THEN PRESS enter";: PRINT @257,"YOUR PROGRAM WILL BE LOADED, ";: PRINT @289,"COMPILED AND THE RESULT SAVED ";: PRINT @321,"(IF OUTPUT FILE IS SPECIFIED).";: PRINT @353," FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR FOR ";: PRINT @385,"OTHERWISE PRESS THE clear KEY ";: PRINT @417,"TO RETURN TO CORRECT OR CHANGE";: PRINT @449,"YOUR SELECTIONS. ";:($fb) NOT REM REM line numbering breaks here! REM X USING END : COMPILED BY DYNAFAST 1.2.2 (C)COPYRIGHT COMPUSENSE LTD 1984 15361 22735 21211 <X BACKUP 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM Uy ($FF79) LINE MKDYNAXREF 1.0.3 (C) COPYRIGHT COMPUSENSE 1984 bounds ==> to 13439 O_($f0) DATA  NEXT  WAIT  DATA " EDIT DIM FROM DATA Z EDIT DIM FROM NEW REM REM line numbering breaks here! REM FN DELETE DELETE FOR GO :&= DELETE FOR GO '& GO # GO Z" EDIT DIM OFF DELETE FOR MOTOR DIM SUB GO Z" EDIT DIM DLOAD : parameters invalid   SET oo SCREEN ELSE &($f8)9 PROTECT 52bO~'q4' 2576 ' SGN - READ 5 DATA ' REM REM line numbering breaks here! REM ($ed) VERIFY DATA  READ 5 SAVE ' SGN ($ed) VERIFY DATA FOR ($f1) INPUT  READ 94v FN 42545 TRON 4  PSET SAVE "/ ~'D CLOSE " SET 1 DELETE  RESET  FN 42751 REM REM line numbering breaks here! REM M+ FLREAD SOUND SWAP DELETE  PSET b"($f7) "1 ELSE 4 INPUT CS+ 1772 VERIFY FLREAD PCLS SWAP CLS  TO REM REM line numbering breaks here! REM ($f4)o CLS o EXEC 2b5 LET 3 EXEC  SCREEN EXEC ' PSET -"($f5)1 DELETE  PCLEAR - ($ee)5($f6) SCREEN - PCLEAR RESET  4 0- AUDIO SAVE ($FF47) PROTECT SH cancelled by BREAK1 dynaxref finished5($f6)4v AUTO  SCREEN RESET 5399  no program ? ($fe) FROM + WAIT SCREEN -' FN CLOSE ' RENUM 3 ELSE ($ec)-' RND 0D 5890 < SWAP ' REM REM line numbering breaks here! REM &($fb) DSKINIT & POS ($ec)B=0D 42628 GO REM ' PSET -$ DELETE FOR /($f8) GO :& FLREAD ELSE STEP REM '($FF47) STEP ''($f8)1 READ + SREAD  REM REM line numbering breaks here! REM GET MERGE DATA 4 READ 5/ /($FF35) RENAME 4` SKIPF 'b GO .'^ GO &'Z GO $'V GO "& FROM  INPUT 4e5 PSET -$= DELETE ELSE SAVE FOR &($ef)4T5 TO GO E&0 DELETE x&' DELETE  GO +' GO -& INPUT NOT +X=+ DELETE `& DATA E4&50 INPUT  DATA E045 RESET  DELETE ELSE /!1' PLAY GO .' PUT GO $& /( SAVE & 0  GO &' GO (&0($FF55)]&O 28838 EXEC MOTOR READ ($fd)V 36349 S" REM REM line numbering breaks here! REM IF ($ec) VERIFY AUDIO b MERGE ' 2496  INPUT /@ MERGE  PROTECT  WAIT ($ee)-($ec)-'0D SCREEN b FLREAD  PSET VERIFY $ TAB(Z STEP ($FF27) SWAP DELETE FOR MOTOR CLS '($f0) WAIT 0-($ee)d($ec)B DRIVE READ DO4 DRIVE + REM REM line numbering breaks here! REM  SWRITE SAVE ($fd)}($ee) RESET  ($ef) ELSE PCLEAR RESET  0($ec) VERIFY AUDIO b($ed) GO  SCREEN bZ STEP ($FF27) DELETE CLS EDIT FOR ($f5) DATA EDIT FOR *($f8) READ Z+ DELETE CLS EDIT FOR ($f7)o FOR 5($f0) LET  / DATA 01! MOTOR EXEC & STEP 'Z ($f3)9 SCREEN d($ec)"r READ RENAME SCREEN -0 LET Z STEP ($FF27) BOOT DELETE SOUND MOTOR REM '($f5) SCREEN -0 READ ^\($fd)1 INPUT DATA EDIT FOR Z'($FFB6) DELETE CLS EDIT FOR ($f5)4 SCREEN c DELETE FOR GO /($ed) ($f5) PCLEAR c5 STOP GO 9 GO A GO Z"9 GO 9"($f1) GO 0 ($f3) GO 9#($f6)($fb)94p1 ELSE ($ec) ELSE GO REM '*':''$': REM '': DATA ' GO DATA ' PSET -$ DELETE FOR GO "& PSET -$ MOTOR FOR '($ee) ($f6)5($f0) FLREAD ELSE GO :'> GO & RENAME /($FF30)($fc) EDIT DSKINIT  TRON ($fe) ($ec)-'($f6) SET READ  PCOPY 17476 ' REM REM line numbering breaks here! REM &($fb) m& SAVE ($ee)- SWRITE 4@0D DELETE FOR M'"*0 AUTO  GO ($FF26)3E DELETE FOR ELSE  MOTOR - CLS -3J($ee)AJ+ FLREAD NOT *($fc) ($f7)5 NOT FLREAD NOT + READ ($f8)- READ   GO "' GO :& FLREAD ELSE STEP ELSE ' STEP '' READ  DELETE FOR GET  DEF  READ ($fb) DELETE FOR M'< READ ($f4) GO "&($f5) ($e8)4 READ & READ 5 STOP /($fb) /($fe) /($fd)($f7)($FF02)($f6) 16441 4O NEXT DATA 6 GO ($f0)' SUB FOR  SUB NOT 5 READ DIR & BOOT READ DIR ' SWRITE *4p0 READ n LET  0m'4 DATA 0 EDIT CLS 5 AUDIO ELSE ($ed) AUDIO ELSE l? ($f5)5($f0) LET  REM REM line numbering breaks here! REM THEN ON 0 READ ($fa) OFF  PLAY 46 READ ($ef)($fe) IF processing line ==> ($ec) VERIFY 2($fe)g free memory ==> @ GET 273 ($fe)F  DATA ` FN REM REM line numbering breaks here! REM ON EDIT FOR DIM  ($f9)5 PCOPY 4v($fc) 2 MERGE + 27 ' REM REM line numbering breaks here! REM ($ed) EXEC 1$0 READ ($fa)K/IZ+ DELETE FOR EDIT CLS ($f7)o CLS o EXEC 5($f6) 24350 OPEN m DIM ($f7)+/6($f1)($FFF0)' SUB DRAW J  SUB NOT /6($f1)($FFF0)' SUB FOR   SUB NOT 5($fe)4~ DATA BEEP 4~ READ ($f6) DELETE FOR GO #($ee)($FFC1)($FFF4)4~ DELETE ELSE DDDD READ  DELETE ELSE ELSE  4~ GO # FOR END @ FREE 4~ END 0 ($f7)4~ READ FWRITE 0 DSKINIT 4w LET REM REM line numbering breaks here! REM ($ec) ELSE '20 READ 621 '9o VERIFY  AUDIO ELSE  AUDIO ELSE l VERIFY 1! ($f3) DIM 2214 VERIFY READ +0 KILL DATA ($FF5B)0 CHAIN 5w4~0 READ REM REM line numbering breaks here! REM  ABS 055($f6)'($e8) d  4~ SWRITE 4A MID$ 5 CLEAR ($FFFF)($fe)($FF4C)XRUy  BACKUP y LINE DATA  NEXT ($ef) READ  CHAIN O NEXT ($ee) READ 9 13438 _ OPEN m DIM ($f7)+/6($f1)($FFF0)' SUB DRAW J  SUB NOT /6($f1)($FFF0)' SUB FOR   SUB NOT 5($fe)4~ DATA BEEP 4~ READ ($f6) DELETE FOR GO #($ee)($FFC1)($FFF4)4~ DELETE ELSE DDDD READ  DELETE ELSE ELSE  4~ GO # FOR END @ FREE 4~ END 0 ($f7)4~ READ FWRITE 0 DSKINIT 4w LET REM REM line numbering breaks here! REM ($ec) ELSE '20 READ 621 '9o VERIFY  AUDIO ELSE  AUDIO ELSE l VERIFY 1! ($f3) DIM 2214 VERIFY READ +0 KILL DATA ($FF5B)0 CHAIN 5w4~0 READ REM REM line numbering breaks here! REM  ABS 055($f6)'($e8) d 52 ~ SWRITE 4A MID$ 5 CLEAR 9 dynamiser basic optimiser 1.4.1 (C)COPYRIGHT COMPUSENSE LTD processing line ===> bad label on line ===>  PASS 1 PASS 2 PASS 3 bytes saved ===>  program length ===>  SCREEN - FLREAD 0D DATA REM EDIT FOR SWAP FOR 4($ec)- AUDIO SAVE ' 1988  KILL / DRIVE  REM REM line numbering breaks here! REM DEF  SCREEN - FLREAD ?0 SWAP 4($ec)- AUDIO SAVE LOAD LET  3841 EDIT FOR DIM  3842  AUTO REM REM line numbering breaks here! REM  SCREEN -3 ELSE ($ec) ELSE '0 READ ($FF5D) READ  DATA FOR EDIT _0D<:' AUDIO ELSE ' SREAD r< 34839 ($fe).<@($fd) 36350 >($fe)!0B($fe)W0 READ ($FF5D)($fe)($fc) REM REM line numbering breaks here! REM ($fd) 31 GET 1584 VERIFY ($fe)=50 READ ($FF28)($fd)($f9) LET ($fe).9' GO :'9. ($f6) DATA : NEW  SCREEN -' DELETE WAIT 3 ELSE 0 READ ($fe) SWAP READ CSAVE 0D<:' AUDIO ELSE '($FF23) DATA REM MOTOR ELSE '($FF1B) PSET -$ CREATE  REM REM line numbering breaks here! REM ($ee) GO && SWAP '($f8) & ERROR &  CHAIN & FWRITE ($f6) GO ($FF26)0 = GO LET & AND OR GO :& READ PRINT GO REM '($fe)($f6) GO ''($fe)($f0)($FFB4) GO IF ' < GO DATA & INPUT ($FF75) GO ON ' STEP GO NEXT ' ($f2) GO "& PSET -$ MOTOR FOR ' POS ($f4) DATA FOR LINE  EDIT ($FF50) GO THEN ' GO ELSE &4 1239 0 GO 0($FF5F) GO 9"($FF59)  GO RUN ' GO GO &($FF4D) DELETE FOR GO TO ' GO SUB &($FF41) READ ($FF3C)W&  SET  DELETE ? END @ EDIT ?94< NOT ($fd) REM REM line numbering breaks here! REM ON 0 READ ($fd) ERROR ($fc) KILL 0B($fd)5 RESTORE 4 SCREEN - DATA FOR LINE  EDIT 5 RESTORE DELETE FOR GO ' CLEAR  NEW  DELETE  NEW 90/ READ LOAD '  MERGE  SREAD O4 LOAD  SWRITE RENAME MERGE 5@ PAINT ($fd)= READ OFF ($fe) DRIVE CLEAR  GO :' GO THEN ' GO ELSE ' DELETE  GO THEN ' GO ELSE &($fe) TO READ AUDIO READ PRESET GO GO &($fa)0($FF73) CLOSE $ INSTR ($f7) GO ,'($f0)($fe) RESET 1 ELSE _ DELETE CLS ' PSET -$ GO :' GO ,& DATA : EDIT FOR DATA NEXT EDIT FOR ZZ\ SREAD  STR$ ($fe)x FN 25 WAIT ($ee)-'H SCREEN -'D0 READ ($fd)=($fd) SWAP SCREEN - DELETE _/ REM IF @&) SAVE D& SAVE < REM REM line numbering breaks here! REM  POKE ' PCLEAR RESET 4@ AUDIO SAVE DELETE 0-4B($FF4B)5B LINE _ EDIT _ PROTECT  TO SAVE D& PLAY / SWAP E PAINT FN 32938  EDIT ($fe) REM REM line numbering breaks here! REM  SCREEN -o_ WAIT ($ee)-'$ SCREEN -' 0 READ ($fc) SWAP ($fd) INPUT SCREEN - DELETE _& SWAP DATA : EDIT _ PCLEAR RESET 0-/($FF01) PROTECT  DRIVE FN 7427 94 O_4 FLREAD FOR L STEP '($f9) STEP 9" STEP 0-4 1 PCLS  1 PCLS 1 PCLS 1 PCLS 1 PCLS 51 SKIPF FWRITE RESET  READ & ' @ NEXT 5 REM REM line numbering breaks here! REM u PCLEAR GO 5 CLS 5 COLOR LET  SCREEN ELSE RESET ' PSET &($f5)9 '' NEW 12429 REM REM line numbering breaks here! REM " SUB yJ SCREEN bZ DELETE CLS SUB yZ&($f8)0 READ 31050 ($ec)B4A SUB y IF DATA 9label  not found on line error in FOR on line 4v SET 1 DELETE  RESET  FN REM REM line numbering breaks here! REM 3 DELETE 11019 FLREAD SOUND SWAP DELETE  PSET b"($f7) 1 ELSE @ FLREAD DELETE SWAP CLS  TO REM REM line numbering breaks here! REM ($f6)o CLS o EXEC @ FN 3 EXEC  SCREEN EXEC ' PSET -"($f5)1 DELETE  PCLEAR - ($ee)5($f6) GO 9 GO A GO Z"9 GO 9"($f1) GO 0 ($f3) GO 9#($f6)($fb)9 ($fe)($FFFF)($FFEF)($f8)($FFFF)($FFEF) NOT ($FFFF)($FF0F) 255 ($FFFF)($fc)($FFFF) REM REM line numbering breaks here! REM ($fc)($FF0F) ($f8) ($f8)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FF3F) ( DSKINIT ($ed) DYNAFASTBIND DYNAMISEBIN ($fc) FREAD DYNAXREFBIN FREAD  DFM BIN PUT  DSKINIT DF BAS RESTORE  ($f4)DFMX BAS l DLOAD DF SCR H BM1 BAS $ rBM2 BAS  ~BM3 BASz LET BM4 BAS DIM  LET BM5 BAS SET  SKIPF BM6 BAS COLOR  /BM7 BAS OFF  BOOT BM8 BAS CREATE  166 SAMPLE REM REM line numbering breaks here! REM BAS FLREAD  < GO P-1 BIN($f8) INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT Ub ($FF62) LINE LET  o FOR DIM A($f9)2b DATA  NEXT  WAIT *,2 2 FN 33921 :&($ec) GO '&2 DEF NEW ,o FOR o FOR 2| WAIT 2($e9)($fd)($f8) WAIT "2| REM REM line numbering breaks here! REM = ; RESET ($ee) CLOAD  : POKE  39 (($f4)($f1)i errors detected ==> O DRIVE REM REM line numbering breaks here! REM t|($f2)($fc)($f8)&|($f2)- PROTECT *O NEXT ~'q5 FLREAD DELETE ELSE ' GO :9 DELETE ELSE GO '94 DATA ($FF17)V5' LET tF FN 3> DELETE FOR EDIT CLS DIM |(($f7) PCLEAR -o CLS o CLS  o CLS ($fd) 29 ($fd) 244 start, end AND exec addresses : ($fc) 1559 REM REM line numbering breaks here! REM LET } o'5 191 start, end AND exec addresses : ($fc) REM REM line numbering breaks here! REM ON ($ed) VERIFY  Y DATA ($fe) PMODE 4145 OR REM REM line numbering breaks here! REM F/ DELETE FOR ELSE ? EDIT CLS Z&($f7) 2661 nd of compilation to run type: EXEC & enter9 DATA READ 38286 REM REM line numbering breaks here! REM ($FFF0)($ec) ELSE ($fd)($f4)1 OR 42126 REM REM line numbering breaks here! REM  READ RENAME ($ec) ELSE ($fd)($f6)1 OR i($ed) EXEC 1 OR < END :($ed) EXEC 0 OR ($f2) THEN 32760 4A READ TO 5 RESTORE 4 SCREEN c DELETE FOR GO /L ($f5) PCLEAR c5 STOP ($ec)$':'94 LET ($FFFF)4 CLEAR , GO P' GO F5&5 RESTORE 045&($f8)5 RESTORE 4 LET ($FF20) WAIT  REM REM line numbering breaks here! REM o0 READ @A CLEAR , GO P& DATA ($fe) PMODE 36112 ./ READ TO  FN REM REM line numbering breaks here! REM ($ec) EXEC ' [ HEX$ compiling:  READ CSAVE & 0& SCREEN EXEC  )($FF76)NO PROGRAM NAME OR INTEGER VARIABLES ($ec) EXEC ' 5647  RESET ($FF58)9($FF3A) NO PROGRAM ($FF29) NO INTEGER DEFINITIONS($FF0E) COMPILATION ABORTED ($fd) 4 READ  5 CLS O_4 FLREAD FOR L STEP '($f9) ' 4 DEF &5 STEP 9"E STEP 0A-4 4 SWRITE SAVE 44 SWRITE SAVE 44 SWRITE SAVE 44 SWRITE SAVE 4 DELETE RENAME LINE RENAME LINE RENAME LINE RENAME LINE b EDIT b FLREAD aO4 SWRITE SAVE  TRON LINE b EDIT b5 AUDIO 5 GO 40 FIX RESET  READ @ NEXT 5 EXEC  PCLEAR GO 5 CLS LET REM REM line numbering breaks here! REM  SCREEN ELSE RESET ' PSET &($f5)9 8073 ($fe)P label  SCREEN cZ DELETE CLS  DEF Z&($f8)($fe)9 not found 594p1 ELSE ($ec) ELSE GO REM '*':''$': REM '': DATA ' GO DATA ' PSET -$ DELETE FOR GO "& PSET -$ MOTOR FOR '($ee) ($f6)5($f0) FLREAD ELSE GO :'> GO & RENAME /($FF30) DSKINIT 4 8' DATA 0 <:($f5)($ed) GO 085 DATA ($fd)/ COMPILATION TERMINATED BY break KEY ($fc), 15($f6)4v($fd) RUN PASS 2 /0 READ $0-&($fd)w no program ? ($fb)($ef) READ REM SCREEN -' OR  SAVE q4 DATA S RETURN ,&'($fd)O STEP MODE: enter TO CONTINUE 5 REM 4($fd)] DATA S RETURN ,&(4O NEXT SUB FOR 5 READ &$ READ '($ee) /($fb) /($fe) /($fd)($f7)($FF02)($f6) 16441 READ ($f2)& CREATE READ FLREAD &5 STOP ($FF20) LOAD /'($ee) RESET / WAIT /4CS+ 57731 REM REM line numbering breaks here! REM  DATA ($fc)($ed)- SREAD $13 ELSE ($ec)-'($FF5A) JOYSTK ($ec)B PROTECT ($fc) PUT  2'"($fc) TRON 0D4($fe)o DELETE ELSE GO REM ' PSET -$($FF28) 8' DELETE  GO :&0 DELETE FOR '($ea) GO :&($fe) LIST $4 FLREAD ELSE STEP REM '($fe) BACKUP STEP ''($f8) GO ($FF26)0 = ELSE  $& NEW 4 STEP GO ;& DRIVE 4'> FOR DSKINIT 4 GO DIM ' TO GO DATA '($fe) DSKINIT GO FOR ' GO THEN ' GO ELSE '> GO ON ' k GO NEXT ' 36135 FN GO FREAD ' PLAY GO SWAP ' PCOPY GO INPUT ' PAINT GO ERROR 'J GO IF & 1 GO "& PSET -$($fe) POKE MOTOR FOR '5 ($f4) . GO GO &($f7) 1' < THEN 0 SWAP FOR  DLOAD DELETE FOR /($fb) GO TO '/($fa) GO SUB & FREAD 0 SWAP  DATA LEN ($fd)?($FF29)($f0) DATA  READ ($f9)0<($f9)0($ed) GO RESET  DELETE FOR GO GO &($fa)0 DATA  READ VERIFY DATA : EDIT FOR READ L DATA ($f6) EDIT FOR DELETE ELSE END ($f0) EDIT FOR DATA  READ BEEP o FOR l EXEC ($fd) DELETE ELSE GO ,& FN DATA ($FF17) REM REM line numbering breaks here! REM Z ($ee)1 ELSE _ DELETE CLS ' PSET -$ GO :' GO ,& DATA : EDIT FOR DATA NEXT EDIT FOR ZZ\ SREAD P DATA ($fe) TAB( RESET  SET  DATA  NEW $ DELETE ELSE 0h0 CLOSE ($ef) SET 9 DELETE ' GO :' SAVE FOR &($f4) DATA : EDIT 9 DATA ($f9)($ed) GO 9 DATA R $&($fe) REM 408 1430 & 25262 VERIFY 0 PCLEAR VERIFY /=OJ SAVE FOR ' ($f9) NEXT  SCREEN VERIFY READ BOOT DATA ($fe)50 EDIT FOR  PCLEAR GO RESET / TO READ LINE ' REM REM line numbering breaks here! REM ' ATN READ PMODE /1 READ SCREEN RESET / STEP READ NEW ',($FF7A) READ DELETE /2 READ LLIST RESET /: READ DATA ($FF6B)m ELSE ' /: SAVE ELSE '0 ($f2) DATA  READ INPUT <: FOR ($ed) GO ($fe) 0($FF4C) DATA ($FF77) DATA : EDIT FOR /2($FF67) RESET  DATA 1 EDIT FOR ($FF35)($FFC7) DELETE FOR GO '($fa) FWRITE &/ 4 DELETE ELSE  FWRITE & EDIT a0 DELETE ELSE  AUTO & ($f5)O59 21536 error in FOR ($fc) MERGE 8 4($fa); FOR LOOP NOT INTEGER 50($fd) DIM 1/M<($fd):($ed) GO DATA ELSE EDIT FOR LOAD / RESET /($ed) GO DATA : EDIT FOR DELETE ELSE w& DATA 0< GO TO ($ed) FOR ($fe)$($fd)Y/0 DATA : EDIT FOR LOAD /($ed) ELSE RESET /0<: ELSE ($ed) GO EDIT FOR  AUDIO ZZ DATA ($fc) SCREEN DEF ($fb)($ed) DEF ($fb) PCLEAR  DLOAD DELETE ELSE ' GO :'0 ($f4)($fd)4< MERGE DELETE ELSE &0 NEW DELETE ELSE & NEW SCREEN VERIFY 0 DELETE ELSE ($f8)'($f7)2b94 PSET -$ REM REM line numbering breaks here! REM Q DELETE ELSE ' K GO :' 33933 THEN GO (' READ  SREAD ($f0)&($f7) READ 4 AUDIO SAVE  REM REM line numbering breaks here! REM a AUTO _0 DELETE FOR ' GO (&\ ($f5) GO )&Z ($ee) GO ,&]& SWAP  GO :& SAVE 09 SCREEN - FLREAD ' STEP :& FLREAD REM STEP ,& DATA ($FF17) Q_ SCREEN VERIFY DELETE FOR ' GO :' n&($f3)5($fc)r/ SCREEN VERIFY 0 DELETE ELSE '($f1) GO :'($ed) SWAP FOR ($f4)4' 2576 ' SGN - READ 5 DATA ' REM REM line numbering breaks here! REM ($ed) VERIFY DATA  READ 5 SAVE ' SGN ($ed) VERIFY DATA FOR ($f1) INPUT 4v FN 42548  PSET SAVE "/ ~'D SET 1 DELETE  RESET  FN 42751 11019 FLREAD SOUND SWAP DELETE  PSET b"($f7) 1 ELSE @ FLREAD DELETE SWAP CLS  TO REM REM line numbering breaks here! REM ($f6)o CLS o EXEC @ FN 3 EXEC  SCREEN EXEC ' PSET -"($f5)1 DELETE  PCLEAR - ($ee)5($f6)0 SCREEN -1?4  AUDIO SAVE ($FF69) GET 11917 ($e8) * CREATE DATA P RETURN ,& DATA ($fe) PMODE REM REM line numbering breaks here! REM o5($f6)4v($f8)= PASS 3 ($fb) 25 SCREEN -' CHAIN 3 ELSE 0D SOUND ($ec)B? DELETE ELSE GO REM ' PCOPY PSET -$ FLREAD DELETE FOR GO :& FLREAD ELSE STEP REM ' DELETE STEP '' SOUND GO ($FF10)' REM REM line numbering breaks here! REM CSAVE GO "& PSET -$ AND MOTOR FOR ' ERROR ($f6) GO ($f6)'I GO ($fb)'Z GO ($fa)'V GO ($f7)'# GO ($f8)' GO ($fd)' GO ($fc)' GO GO & PLAY >' GET 0 PCLEAR 0 PCLS DELETE FOR EDIT 0($ec) GO  AUDIO READ '($f5) AUDIO READ  4259 READ ($f4)&($e9) ATN DELETE FOR GO ($fc)' GO ($fd)&($FF7F) DELETE FOR J' READ  ($f9) READ ($FF71)4" LET REM REM line numbering breaks here! REM ($ec) ELSE  SCREEN EXEC ' AUDIO ""($f6)1? GET ($ed) GO 5 SOUND  FN 15904 ($ed) DELETE FOR GO ($f1)' CHR$ GO ($f2)' POINT ($FF3B)  ($f7)B PASS 1 ($f9) ERROR ($f7)1location variable  AUTO ($ee)-' SCREEN -0 DATA ($fe)E DATA EDIT ELSE 0D($ec) GO ':'' REM ($f6)($fa) *** ERROR ***($f7) DSKINIT DELETE FOR <($FFF2) SET "($ed) MOTOR $ NEW 5 SET 640 65116 )($FF50)($FF48)0< REM REM line numbering breaks here! REM ($fc) END DATA ($fe) EDIT FOR  JOYSTK 5; PROTECT DATA ($FF36)-() WAIT &O/($FF34) READ 5 DRIVE 9 DELETE FOR NEW ($fd)u' GO &' GO .' OPEN 7+' STEP H 5' (&O D STEP '@w STEP & )($fe)($FFFF)($FFEF)($f8)($FFFF)($FFEF) NOT ($FFFF)($FF0F) 255 ($FFFF)($fc)($FFFF) REM REM line numbering breaks here! REM ($fc)($FF0F) ($f8) ($f8)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FF3F) ( DSKINIT ($ed) DYNAFASTBIND DYNAMISEBIN ($fc) FREAD DYNAXREFBIN FREAD  DFM BIN PUT  DSKINIT DF BAS RESTORE  ($f4)DFMX BAS l DLOAD DF SCR H BM1 BAS $ rBM2 BAS  ~BM3 BASz LET BM4 BAS DIM  LET BM5 BAS SET  SKIPF BM6 BAS COLOR  /BM7 BAS OFF  BOOT BM8 BAS CREATE  166 SAMPLE REM REM line numbering breaks here! REM BAS FLREAD  < GO P-1 BIN($f8) INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $3601 Length: $0085 Exec: $8b8d * REM *(Start: 13825 Length: 00133 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 3 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 500 K=K+1 510 A=K/K*K+K-K 600 IF K<1000 THEN 500 700 PRINT "E" REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $3601 Length: $0085 Exec: $8b8d * REM *(Start: 13825 Length: 00133 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 4 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 500 K=K+1 510 A=K/2*3+4-5 600 IF K<1000 THEN 500 700 PRINT "E" REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $009c Exec: $8b8d * REM *(Start: 09217 Length: 00156 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 5 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 500 K=K+1 510 A=K/2*3+4-5 520 GO SUB 820 600 IF K<1000 THEN 500 700 PRINT "E" 800 END 820 RETURN REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00bd Exec: $8b8d * REM *(Start: 09217 Length: 00189 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 6 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 410 DIM M(5) 500 K=K+1 510 A=K/2*3+4-5 520 GO SUB 820 530 FOR L=1 TO 5 540 NEXT L 600 IF K<1000 THEN 500 700 PRINT "E" 800 END 820 RETURN REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00c8 Exec: $8b8d * REM *(Start: 09217 Length: 00200 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 7 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 410 DIM M(5) 500 K=K+1 510 A=K/2*3+4-5 520 GO SUB 820 530 FOR L=1 TO 5 531 M(L)=A 540 NEXT L 600 IF K<1000 THEN 500 700 PRINT "E" 800 END 820 RETURN REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $009d Exec: $8b8d * REM *(Start: 09217 Length: 00157 Exec: 35725) * REM ************************************************* REM 100 :'BENCHMARK 8 110 :'@&H7F00 K A M(5) L 120 CLEAR 400,&H7F00 300 PRINT "S" 400 K=0 500 K=K+1 530 A=K^2 540 B= LOG (K) 550 C= SIN (K) 600 IF K<1000 THEN 500 700 PRINT "E" 800 END REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $3c01 Length: $01c3 Exec: $8b8d * REM *(Start: 15361 Length: 00451 Exec: 35725) * REM ************************************************* REM 10 :'SAMPLE - GRAPHICS ON PMODE 1 SCREEN 20 :'@&HC00 A(3071) 30 :' I J K 40 PCLEAR 4 50 :'ARRAY A IS DEFINED ON THE GRAPHICS SCREEN 60 CLS 2: PRINT "NON COMPILED VERSION"" 70 FOR X=1 TO 1000: NEXT X 80 PMODE 1: SCREEN 1,0 90 PCLS 100 FOR A=0 TO 3071 110 POKE A+&HC00,A- INT (A/256)*256 120 NEXT A 130 FOR X=1 TO 1000: NEXT X 140 CLS 4 150 PRINT "NOW THE COMPILED VERSION" 160 PRINT "USING INTEGER VARIABLES " 170 FOR X=1 TO 1000: NEXT X 180 PMODE 1: SCREEN 1,0: PCLS 190 FOR I=0 TO 3071 200 A(I)=I 210 NEXT I 220 FOR X=1 TO 4000: NEXT X 230 END 240 SAVE "SAMPLE": RUN "DF" REM REM line numbering breaks here! REM U LINE FROM FROM FROM