Home » Personal collection » Acorn tapes » Own_Work » box01_tape03b_acorn_d60_desk_diary.wav » PROG2
PROG2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Own_Work » box01_tape03b_acorn_d60_desk_diary.wav |
| Filename: | PROG2 |
| Read OK: | ❌ |
| File size: | 0AA0 bytes |
| Load address: | FFFFFFFF |
| Exec address: | FFFFFFFF |
File contents
>L. 10REM Bits and Pieces 20REM By Stephen J. Ramplin 30REM (c) Electron User 40MODE6 50*FX200 60*KEY10OLD|MRUN|M 70IF(!&202 AND&FFFF)<>&B402 CALL!-4 80*FX18 90PROCassemble 100PRINT'"Press <RETURN> to save"' 110REPEATUNTILGET=13 120OSCLI"SAVE BP C00 "+STR$~P% 130CALLinit 140END 150DEFPROCassemble 160offset=&0A 170ptrA=&0B 180intA=&2A 190wkspc=&3D 200from=&80 210end=&82 220lnum=&84 230handle=&86 240error=&FD 250brkv=&202 260spaces=&8A97 270reentry=&8AF6 280missing=&8E98 290silly=&8FDF 300decode=&97DF 310linesrch=&9970 320oldbrk=&B402 330nosuchline=&B9B5 340osfind=&FFCE 350osbput=&FFD4 360FORpass%=0TO2STEP2 370P%=&C00 380[OPTpass% 390.init 400LDX#check MOD256 410LDY#check DIV256 420SEI 430STXbrkv 440STYbrkv+1 450CLI 460RTS 470.not 480PLA 490TAY 500PLA 510JMPoldbrk 520.check 530PHA 540TYA 550PHA 560LDY#0 570LDA(error),Y 580CMP#26 590BNEnot 600.savelist 610DECoffset 620JSRspaces 630CMP#&CD \ savetkn 640BNEnot 650JSRspaces 660CMP#&C9 \ listtkn 670BNEnot 680JSRobtainlnum 690LDAintA 700STAlnum 710LDAintA+1 720STAlnum+1 730SEC 740LDAwkspc 750SBC#3 760STAfrom 770LDAwkspc+1 780SBC#0 790STAfrom+1 800JSRcomma 810JSRobtainlnum 820LDAintA+1 830CMPlnum+1 840BCCbad 850BEQtestlow 860.notsilly 870LDY#0 880LDA(wkspc),Y 890SEC 900SBC#2 910CLC 920ADCwkspc 930STAend 940LDAwkspc+1 950ADC#0 960STAend+1 970JSRcomma 980JSRspaces 990CMP#34 1000BEQquoteok 1010JMPmissing 1020.quoteok 1030DECoffset 1040CLC 1050LDAptrA 1060ADCoffset 1070TAX 1080LDAptrA+1 1090ADC#0 1100TAY 1110LDA#&80 1120JSRosfind 1130STAhandle 1140.saveloop 1150LDY#0 1160LDA(from),Y 1170LDYhandle 1180JSRosbput 1190INCfrom 1200BNEhere 1210INCfrom+1 1220.here 1230LDAfrom 1240CMPend 1250BNEsaveloop 1260LDAfrom+1 1270CMPend+1 1280BNEsaveloop 1290LDA#&FF 1300JSRosbput 1310LDA#0 1320LDYhandle 1330JSRosfind 1340JMPreentry 1350.testlow 1360LDAintA 1370CMPlnum 1380BCSnotsilly 1390.bad 1400JMPsilly 1410.obtainlnum 1420JSRspaces 1430DECoffset 1440CMP#&8D 1450BEQget 1460JMPsyntax 1470.get 1480JSRdecode 1490JSRlinesrch 1500BCCfound 1510JMPnosuchline 1520.found 1530RTS 1540.comma 1550JSRspaces 1560CMP#ASC"," 1570BEQok 1580.syntax 1590BRK 1600EQUB47 1610EQUS"Syntax:"+CHR$32 1620EQUW&C9CD 1630EQUS CHR$32+"lnum,lnum,"+CHR$34 1640EQUS "Filename"+CHR$34 1650BRK 1660.ok 1670RTS 1680] 1690NEXT 1700ENDPROC >*SPOOL
00000000 3e 4c 2e 0a 0d 20 20 20 31 30 52 45 4d 20 42 69 |>L... 10REM Bi| 00000010 74 73 20 61 6e 64 20 50 69 65 63 65 73 0a 0d 20 |ts and Pieces.. | 00000020 20 20 32 30 52 45 4d 20 42 79 20 53 74 65 70 68 | 20REM By Steph| 00000030 65 6e 20 4a 2e 20 52 61 6d 70 6c 69 6e 0a 0d 20 |en J. Ramplin.. | 00000040 20 20 33 30 52 45 4d 20 28 63 29 20 45 6c 65 63 | 30REM (c) Elec| 00000050 74 72 6f 6e 20 55 73 65 72 0a 0d 20 20 20 34 30 |tron User.. 40| 00000060 4d 4f 44 45 36 0a 0d 20 20 20 35 30 2a 46 58 32 |MODE6.. 50*FX2| 00000070 30 30 0a 0d 20 20 20 36 30 2a 4b 45 59 31 30 4f |00.. 60*KEY10O| 00000080 4c 44 7c 4d 52 55 4e 7c 4d 0a 0d 20 20 20 37 30 |LD|MRUN|M.. 70| 00000090 49 46 28 21 26 32 30 32 20 41 4e 44 26 46 46 46 |IF(!&202 AND&FFF| 000000a0 46 29 3c 3e 26 42 34 30 32 20 43 41 4c 4c 21 2d |F)<>&B402 CALL!-| 000000b0 34 0a 0d 20 20 20 38 30 2a 46 58 31 38 0a 0d 20 |4.. 80*FX18.. | 000000c0 20 20 39 30 50 52 4f 43 61 73 73 65 6d 62 6c 65 | 90PROCassemble| 000000d0 0a 0d 20 20 31 30 30 50 52 49 4e 54 27 22 50 72 |.. 100PRINT'"Pr| 000000e0 65 73 73 20 3c 52 45 54 55 52 4e 3e 20 74 6f 20 |ess <RETURN> to | 000000f0 73 61 76 65 22 27 0a 0d 20 20 31 31 30 52 45 50 |save"'.. 110REP| 00000100 45 41 54 55 4e 54 49 4c 47 45 54 3d 31 33 0a 0d |EATUNTILGET=13..| 00000110 20 20 31 32 30 4f 53 43 4c 49 22 53 41 56 45 20 | 120OSCLI"SAVE | 00000120 42 50 20 43 30 30 20 22 2b 53 54 52 24 7e 50 25 |BP C00 "+STR$~P%| 00000130 0a 0d 20 20 31 33 30 43 41 4c 4c 69 6e 69 74 0a |.. 130CALLinit.| 00000140 0d 20 20 31 34 30 45 4e 44 0a 0d 20 20 31 35 30 |. 140END.. 150| 00000150 44 45 46 50 52 4f 43 61 73 73 65 6d 62 6c 65 0a |DEFPROCassemble.| 00000160 0d 20 20 31 36 30 6f 66 66 73 65 74 3d 26 30 41 |. 160offset=&0A| 00000170 0a 0d 20 20 31 37 30 70 74 72 41 3d 26 30 42 0a |.. 170ptrA=&0B.| 00000180 0d 20 20 31 38 30 69 6e 74 41 3d 26 32 41 0a 0d |. 180intA=&2A..| 00000190 20 20 31 39 30 77 6b 73 70 63 3d 26 33 44 0a 0d | 190wkspc=&3D..| 000001a0 20 20 32 30 30 66 72 6f 6d 3d 26 38 30 0a 0d 20 | 200from=&80.. | 000001b0 20 32 31 30 65 6e 64 3d 26 38 32 0a 0d 20 20 32 | 210end=&82.. 2| 000001c0 32 30 6c 6e 75 6d 3d 26 38 34 0a 0d 20 20 32 33 |20lnum=&84.. 23| 000001d0 30 68 61 6e 64 6c 65 3d 26 38 36 0a 0d 20 20 32 |0handle=&86.. 2| 000001e0 34 30 65 72 72 6f 72 3d 26 46 44 0a 0d 20 20 32 |40error=&FD.. 2| 000001f0 35 30 62 72 6b 76 3d 26 32 30 32 0a 0d 20 20 32 |50brkv=&202.. 2| 00000200 36 30 73 70 61 63 65 73 3d 26 38 41 39 37 0a 0d |60spaces=&8A97..| 00000210 20 20 32 37 30 72 65 65 6e 74 72 79 3d 26 38 41 | 270reentry=&8A| 00000220 46 36 0a 0d 20 20 32 38 30 6d 69 73 73 69 6e 67 |F6.. 280missing| 00000230 3d 26 38 45 39 38 0a 0d 20 20 32 39 30 73 69 6c |=&8E98.. 290sil| 00000240 6c 79 3d 26 38 46 44 46 0a 0d 20 20 33 30 30 64 |ly=&8FDF.. 300d| 00000250 65 63 6f 64 65 3d 26 39 37 44 46 0a 0d 20 20 33 |ecode=&97DF.. 3| 00000260 31 30 6c 69 6e 65 73 72 63 68 3d 26 39 39 37 30 |10linesrch=&9970| 00000270 0a 0d 20 20 33 32 30 6f 6c 64 62 72 6b 3d 26 42 |.. 320oldbrk=&B| 00000280 34 30 32 0a 0d 20 20 33 33 30 6e 6f 73 75 63 68 |402.. 330nosuch| 00000290 6c 69 6e 65 3d 26 42 39 42 35 0a 0d 20 20 33 34 |line=&B9B5.. 34| 000002a0 30 6f 73 66 69 6e 64 3d 26 46 46 43 45 0a 0d 20 |0osfind=&FFCE.. | 000002b0 20 33 35 30 6f 73 62 70 75 74 3d 26 46 46 44 34 | 350osbput=&FFD4| 000002c0 0a 0d 20 20 33 36 30 46 4f 52 70 61 73 73 25 3d |.. 360FORpass%=| 000002d0 30 54 4f 32 53 54 45 50 32 0a 0d 20 20 33 37 30 |0TO2STEP2.. 370| 000002e0 50 25 3d 26 43 30 30 0a 0d 20 20 33 38 30 5b 4f |P%=&C00.. 380[O| 000002f0 50 54 70 61 73 73 25 0a 0d 20 20 33 39 30 2e 69 |PTpass%.. 390.i| 00000300 6e 69 74 0a 0d 20 20 34 30 30 4c 44 58 23 63 68 |nit.. 400LDX#ch| 00000310 65 63 6b 20 4d 4f 44 32 35 36 0a 0d 20 20 34 31 |eck MOD256.. 41| 00000320 30 4c 44 59 23 63 68 65 63 6b 20 44 49 56 32 35 |0LDY#check DIV25| 00000330 36 0a 0d 20 20 34 32 30 53 45 49 0a 0d 20 20 34 |6.. 420SEI.. 4| 00000340 33 30 53 54 58 62 72 6b 76 0a 0d 20 20 34 34 30 |30STXbrkv.. 440| 00000350 53 54 59 62 72 6b 76 2b 31 0a 0d 20 20 34 35 30 |STYbrkv+1.. 450| 00000360 43 4c 49 0a 0d 20 20 34 36 30 52 54 53 0a 0d 20 |CLI.. 460RTS.. | 00000370 20 34 37 30 2e 6e 6f 74 0a 0d 20 20 34 38 30 50 | 470.not.. 480P| 00000380 4c 41 0a 0d 20 20 34 39 30 54 41 59 0a 0d 20 20 |LA.. 490TAY.. | 00000390 35 30 30 50 4c 41 0a 0d 20 20 35 31 30 4a 4d 50 |500PLA.. 510JMP| 000003a0 6f 6c 64 62 72 6b 0a 0d 20 20 35 32 30 2e 63 68 |oldbrk.. 520.ch| 000003b0 65 63 6b 0a 0d 20 20 35 33 30 50 48 41 0a 0d 20 |eck.. 530PHA.. | 000003c0 20 35 34 30 54 59 41 0a 0d 20 20 35 35 30 50 48 | 540TYA.. 550PH| 000003d0 41 0a 0d 20 20 35 36 30 4c 44 59 23 30 0a 0d 20 |A.. 560LDY#0.. | 000003e0 20 35 37 30 4c 44 41 28 65 72 72 6f 72 29 2c 59 | 570LDA(error),Y| 000003f0 0a 0d 20 20 35 38 30 43 4d 50 23 32 36 0a 0d 20 |.. 580CMP#26.. | 00000400 20 35 39 30 42 4e 45 6e 6f 74 0a 0d 20 20 36 30 | 590BNEnot.. 60| 00000410 30 2e 73 61 76 65 6c 69 73 74 0a 0d 20 20 36 31 |0.savelist.. 61| 00000420 30 44 45 43 6f 66 66 73 65 74 0a 0d 20 20 36 32 |0DECoffset.. 62| 00000430 30 4a 53 52 73 70 61 63 65 73 0a 0d 20 20 36 33 |0JSRspaces.. 63| 00000440 30 43 4d 50 23 26 43 44 20 5c 20 73 61 76 65 74 |0CMP#&CD \ savet| 00000450 6b 6e 0a 0d 20 20 36 34 30 42 4e 45 6e 6f 74 0a |kn.. 640BNEnot.| 00000460 0d 20 20 36 35 30 4a 53 52 73 70 61 63 65 73 0a |. 650JSRspaces.| 00000470 0d 20 20 36 36 30 43 4d 50 23 26 43 39 20 5c 20 |. 660CMP#&C9 \ | 00000480 6c 69 73 74 74 6b 6e 0a 0d 20 20 36 37 30 42 4e |listtkn.. 670BN| 00000490 45 6e 6f 74 0a 0d 20 20 36 38 30 4a 53 52 6f 62 |Enot.. 680JSRob| 000004a0 74 61 69 6e 6c 6e 75 6d 0a 0d 20 20 36 39 30 4c |tainlnum.. 690L| 000004b0 44 41 69 6e 74 41 0a 0d 20 20 37 30 30 53 54 41 |DAintA.. 700STA| 000004c0 6c 6e 75 6d 0a 0d 20 20 37 31 30 4c 44 41 69 6e |lnum.. 710LDAin| 000004d0 74 41 2b 31 0a 0d 20 20 37 32 30 53 54 41 6c 6e |tA+1.. 720STAln| 000004e0 75 6d 2b 31 0a 0d 20 20 37 33 30 53 45 43 0a 0d |um+1.. 730SEC..| 000004f0 20 20 37 34 30 4c 44 41 77 6b 73 70 63 0a 0d 20 | 740LDAwkspc.. | 00000500 20 37 35 30 53 42 43 23 33 0a 0d 20 20 37 36 30 | 750SBC#3.. 760| 00000510 53 54 41 66 72 6f 6d 0a 0d 20 20 37 37 30 4c 44 |STAfrom.. 770LD| 00000520 41 77 6b 73 70 63 2b 31 0a 0d 20 20 37 38 30 53 |Awkspc+1.. 780S| 00000530 42 43 23 30 0a 0d 20 20 37 39 30 53 54 41 66 72 |BC#0.. 790STAfr| 00000540 6f 6d 2b 31 0a 0d 20 20 38 30 30 4a 53 52 63 6f |om+1.. 800JSRco| 00000550 6d 6d 61 0a 0d 20 20 38 31 30 4a 53 52 6f 62 74 |mma.. 810JSRobt| 00000560 61 69 6e 6c 6e 75 6d 0a 0d 20 20 38 32 30 4c 44 |ainlnum.. 820LD| 00000570 41 69 6e 74 41 2b 31 0a 0d 20 20 38 33 30 43 4d |AintA+1.. 830CM| 00000580 50 6c 6e 75 6d 2b 31 0a 0d 20 20 38 34 30 42 43 |Plnum+1.. 840BC| 00000590 43 62 61 64 0a 0d 20 20 38 35 30 42 45 51 74 65 |Cbad.. 850BEQte| 000005a0 73 74 6c 6f 77 0a 0d 20 20 38 36 30 2e 6e 6f 74 |stlow.. 860.not| 000005b0 73 69 6c 6c 79 0a 0d 20 20 38 37 30 4c 44 59 23 |silly.. 870LDY#| 000005c0 30 0a 0d 20 20 38 38 30 4c 44 41 28 77 6b 73 70 |0.. 880LDA(wksp| 000005d0 63 29 2c 59 0a 0d 20 20 38 39 30 53 45 43 0a 0d |c),Y.. 890SEC..| 000005e0 20 20 39 30 30 53 42 43 23 32 0a 0d 20 20 39 31 | 900SBC#2.. 91| 000005f0 30 43 4c 43 0a 0d 20 20 39 32 30 41 44 43 77 6b |0CLC.. 920ADCwk| 00000600 73 70 63 0a 0d 20 20 39 33 30 53 54 41 65 6e 64 |spc.. 930STAend| 00000610 0a 0d 20 20 39 34 30 4c 44 41 77 6b 73 70 63 2b |.. 940LDAwkspc+| 00000620 31 0a 0d 20 20 39 35 30 41 44 43 23 30 0a 0d 20 |1.. 950ADC#0.. | 00000630 20 39 36 30 53 54 41 65 6e 64 2b 31 0a 0d 20 20 | 960STAend+1.. | 00000640 39 37 30 4a 53 52 63 6f 6d 6d 61 0a 0d 20 20 39 |970JSRcomma.. 9| 00000650 38 30 4a 53 52 73 70 61 63 65 73 0a 0d 20 20 39 |80JSRspaces.. 9| 00000660 39 30 43 4d 50 23 33 34 0a 0d 20 31 30 30 30 42 |90CMP#34.. 1000B| 00000670 45 51 71 75 6f 74 65 6f 6b 0a 0d 20 31 30 31 30 |EQquoteok.. 1010| 00000680 4a 4d 50 6d 69 73 73 69 6e 67 0a 0d 20 31 30 32 |JMPmissing.. 102| 00000690 30 2e 71 75 6f 74 65 6f 6b 0a 0d 20 31 30 33 30 |0.quoteok.. 1030| 000006a0 44 45 43 6f 66 66 73 65 74 0a 0d 20 31 30 34 30 |DECoffset.. 1040| 000006b0 43 4c 43 0a 0d 20 31 30 35 30 4c 44 41 70 74 72 |CLC.. 1050LDAptr| 000006c0 41 0a 0d 20 31 30 36 30 41 44 43 6f 66 66 73 65 |A.. 1060ADCoffse| 000006d0 74 0a 0d 20 31 30 37 30 54 41 58 0a 0d 20 31 30 |t.. 1070TAX.. 10| 000006e0 38 30 4c 44 41 70 74 72 41 2b 31 0a 0d 20 31 30 |80LDAptrA+1.. 10| 000006f0 39 30 41 44 43 23 30 0a 0d 20 31 31 30 30 54 41 |90ADC#0.. 1100TA| 00000700 59 0a 0d 20 31 31 31 30 4c 44 41 23 26 38 30 0a |Y.. 1110LDA#&80.| 00000710 0d 20 31 31 32 30 4a 53 52 6f 73 66 69 6e 64 0a |. 1120JSRosfind.| 00000720 0d 20 31 31 33 30 53 54 41 68 61 6e 64 6c 65 0a |. 1130STAhandle.| 00000730 0d 20 31 31 34 30 2e 73 61 76 65 6c 6f 6f 70 0a |. 1140.saveloop.| 00000740 0d 20 31 31 35 30 4c 44 59 23 30 0a 0d 20 31 31 |. 1150LDY#0.. 11| 00000750 36 30 4c 44 41 28 66 72 6f 6d 29 2c 59 0a 0d 20 |60LDA(from),Y.. | 00000760 31 31 37 30 4c 44 59 68 61 6e 64 6c 65 0a 0d 20 |1170LDYhandle.. | 00000770 31 31 38 30 4a 53 52 6f 73 62 70 75 74 0a 0d 20 |1180JSRosbput.. | 00000780 31 31 39 30 49 4e 43 66 72 6f 6d 0a 0d 20 31 32 |1190INCfrom.. 12| 00000790 30 30 42 4e 45 68 65 72 65 0a 0d 20 31 32 31 30 |00BNEhere.. 1210| 000007a0 49 4e 43 66 72 6f 6d 2b 31 0a 0d 20 31 32 32 30 |INCfrom+1.. 1220| 000007b0 2e 68 65 72 65 0a 0d 20 31 32 33 30 4c 44 41 66 |.here.. 1230LDAf| 000007c0 72 6f 6d 0a 0d 20 31 32 34 30 43 4d 50 65 6e 64 |rom.. 1240CMPend| 000007d0 0a 0d 20 31 32 35 30 42 4e 45 73 61 76 65 6c 6f |.. 1250BNEsavelo| 000007e0 6f 70 0a 0d 20 31 32 36 30 4c 44 41 66 72 6f 6d |op.. 1260LDAfrom| 000007f0 2b 31 0a 0d 20 31 32 37 30 43 4d 50 65 6e 64 2b |+1.. 1270CMPend+| 00000800 31 0a 0d 20 31 32 38 30 42 4e 45 73 61 76 65 6c |1.. 1280BNEsavel| 00000810 6f 6f 70 0a 0d 20 31 32 39 30 4c 44 41 23 26 46 |oop.. 1290LDA#&F| 00000820 46 0a 0d 20 31 33 30 30 4a 53 52 6f 73 62 70 75 |F.. 1300JSRosbpu| 00000830 74 0a 0d 20 31 33 31 30 4c 44 41 23 30 0a 0d 20 |t.. 1310LDA#0.. | 00000840 31 33 32 30 4c 44 59 68 61 6e 64 6c 65 0a 0d 00 |1320LDYhandle...| 00000850 31 33 33 30 4a 53 52 6f 73 66 69 6e 64 0a 0d 20 |1330JSRosfind.. | 00000860 31 33 34 30 4a 4d 50 72 65 65 6e 74 72 79 0a 0d |1340JMPreentry..| 00000870 20 31 33 35 30 2e 74 65 73 74 6c 6f 77 0a 0d 20 | 1350.testlow.. | 00000880 31 33 36 30 4c 44 41 69 6e 74 41 0a 0d 20 31 33 |1360LDAintA.. 13| 00000890 37 30 43 4d 50 6c 6e 75 6d 0a 0d 20 31 33 38 30 |70CMPlnum.. 1380| 000008a0 42 43 53 6e 6f 74 73 69 6c 6c 79 0a 0d 20 31 33 |BCSnotsilly.. 13| 000008b0 39 30 2e 62 61 64 0a 0d 20 31 34 30 30 4a 4d 50 |90.bad.. 1400JMP| 000008c0 73 69 6c 6c 79 0a 0d 20 31 34 31 30 2e 6f 62 74 |silly.. 1410.obt| 000008d0 61 69 6e 6c 6e 75 6d 0a 0d 20 31 34 32 30 4a 53 |ainlnum.. 1420JS| 000008e0 52 73 70 61 63 65 73 0a 0d 20 31 34 33 30 44 45 |Rspaces.. 1430DE| 000008f0 43 6f 66 66 73 65 74 0a 0d 20 31 34 34 30 43 4d |Coffset.. 1440CM| 00000900 50 23 26 38 44 0a 0d 20 31 34 35 30 42 45 51 67 |P#&8D.. 1450BEQg| 00000910 65 74 0a 0d 20 31 34 36 30 4a 4d 50 73 79 6e 74 |et.. 1460JMPsynt| 00000920 61 78 0a 0d 20 31 34 37 30 2e 67 65 74 0a 0d 20 |ax.. 1470.get.. | 00000930 31 34 38 30 4a 53 52 64 65 63 6f 64 65 0a 0d 20 |1480JSRdecode.. | 00000940 31 34 39 30 4a 53 52 6c 69 6e 65 73 72 63 68 0a |1490JSRlinesrch.| 00000950 0d 20 31 35 30 30 42 43 43 66 6f 75 6e 64 0a 0d |. 1500BCCfound..| 00000960 20 31 35 31 30 4a 4d 50 6e 6f 73 75 63 68 6c 69 | 1510JMPnosuchli| 00000970 6e 65 0a 0d 20 31 35 32 30 2e 66 6f 75 6e 64 0a |ne.. 1520.found.| 00000980 0d 20 31 35 33 30 52 54 53 0a 0d 20 31 35 34 30 |. 1530RTS.. 1540| 00000990 2e 63 6f 6d 6d 61 0a 0d 20 31 35 35 30 4a 53 52 |.comma.. 1550JSR| 000009a0 73 70 61 63 65 73 0a 0d 20 31 35 36 30 43 4d 50 |spaces.. 1560CMP| 000009b0 23 41 53 43 22 2c 22 0a 0d 20 31 35 37 30 42 45 |#ASC",".. 1570BE| 000009c0 51 6f 6b 0a 0d 20 31 35 38 30 2e 73 79 6e 74 61 |Qok.. 1580.synta| 000009d0 78 0a 0d 20 31 35 39 30 42 52 4b 0a 0d 20 31 36 |x.. 1590BRK.. 16| 000009e0 30 30 45 51 55 42 34 37 0a 0d 20 31 36 31 30 45 |00EQUB47.. 1610E| 000009f0 51 55 53 22 53 79 6e 74 61 78 3a 22 2b 43 48 52 |QUS"Syntax:"+CHR| 00000a00 24 33 32 0a 0d 20 31 36 32 30 45 51 55 57 26 43 |$32.. 1620EQUW&C| 00000a10 39 43 44 0a 0d 20 31 36 33 30 45 51 55 53 20 43 |9CD.. 1630EQUS C| 00000a20 48 52 24 33 32 2b 22 6c 6e 75 6d 2c 6c 6e 75 6d |HR$32+"lnum,lnum| 00000a30 2c 22 2b 43 48 52 24 33 34 0a 0d 20 31 36 34 30 |,"+CHR$34.. 1640| 00000a40 45 51 55 53 20 22 46 69 6c 65 6e 61 6d 65 22 2b |EQUS "Filename"+| 00000a50 43 48 52 24 33 34 0a 0d 20 31 36 35 30 42 52 4b |CHR$34.. 1650BRK| 00000a60 0a 0d 20 31 36 36 30 2e 6f 6b 0a 0d 20 31 36 37 |.. 1660.ok.. 167| 00000a70 30 52 54 53 0a 0d 20 31 36 38 30 5d 0a 0d 20 31 |0RTS.. 1680].. 1| 00000a80 36 39 30 4e 45 58 54 0a 0d 20 31 37 30 30 45 4e |690NEXT.. 1700EN| 00000a90 44 50 52 4f 43 0a 0d 3e 2a 53 50 4f 4f 4c 0a 0d |DPROC..>*SPOOL..| 00000aa0
PROG2.m0
PROG2.m1
PROG2.m2
PROG2.m4
PROG2.m5
.