home *** CD-ROM | disk | FTP | other *** search
Unknown | 2019-04-13 | 7.1 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
100%
| file
| data
| default
| |
100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 3a 20 52 45 | 4d 20 49 42 4d 20 4d 53 |100 : RE|M IBM MS|
|00000010| 2d 44 4f 53 20 28 36 34 | 20 56 45 52 53 49 4f 4e |-DOS (64| VERSION|
|00000020| 29 0a 31 31 30 20 3a 20 | 52 45 4d 20 2d 2d 2d 2d |).110 : |REM ----|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000040| 2d 2d 2d 0a 31 32 30 20 | 3a 20 52 45 4d 0a 31 33 |---.120 |: REM.13|
|00000050| 30 20 3a 20 52 45 4d 20 | 42 59 20 4d 49 43 48 41 |0 : REM |BY MICHA|
|00000060| 45 4c 20 47 52 45 47 47 | 0a 31 34 30 20 3a 20 52 |EL GREGG|.140 : R|
|00000070| 45 4d 20 4f 4e 20 51 2d | 4c 49 4e 4b 3a 20 4d 49 |EM ON Q-|LINK: MI|
|00000080| 43 48 41 45 4c 47 32 35 | 0a 31 35 30 20 3a 20 52 |CHAELG25|.150 : R|
|00000090| 45 4d 0a 31 36 30 20 3a | 20 52 45 4d 20 54 48 49 |EM.160 :| REM THI|
|000000a0| 53 20 50 52 4f 47 52 41 | 4d 20 49 53 20 41 20 53 |S PROGRA|M IS A S|
|000000b0| 49 4d 55 4c 41 54 49 4f | 4e 0a 31 37 30 20 3a 20 |IMULATIO|N.170 : |
|000000c0| 52 45 4d 20 4f 46 20 54 | 48 45 20 49 42 4d 27 53 |REM OF T|HE IBM'S|
|000000d0| 20 4d 53 2d 44 4f 53 2e | 0a 31 38 30 20 3a 20 52 | MS-DOS.|.180 : R|
|000000e0| 45 4d 0a 31 39 30 20 3a | 20 52 45 4d 20 49 20 43 |EM.190 :| REM I C|
|000000f0| 48 41 4e 47 45 44 20 49 | 54 20 54 4f 20 57 4f 52 |HANGED I|T TO WOR|
|00000100| 4b 20 4f 4e 20 54 48 45 | 0a 32 30 30 20 3a 20 52 |K ON THE|.200 : R|
|00000110| 45 4d 20 43 36 34 20 26 | 20 43 31 32 38 20 28 31 |EM C64 &| C128 (1|
|00000120| 32 38 20 4d 4f 44 45 29 | 0a 32 31 30 20 3a 20 52 |28 MODE)|.210 : R|
|00000130| 45 4d 0a 32 32 30 20 3a | 20 52 45 4d 20 46 49 4c |EM.220 :| REM FIL|
|00000140| 45 4e 41 4d 45 53 20 46 | 4f 52 20 42 4f 54 48 20 |ENAMES F|OR BOTH |
|00000150| 46 49 4c 45 53 20 41 52 | 45 0a 32 33 30 20 3a 20 |FILES AR|E.230 : |
|00000160| 52 45 4d 20 20 43 36 34 | 20 2d 20 4d 53 2d 44 4f |REM C64| - MS-DO|
|00000170| 53 2e 36 34 0a 32 34 30 | 20 3a 20 52 45 4d 20 43 |S.64.240| : REM C|
|00000180| 31 32 38 20 2d 20 4d 53 | 2d 44 4f 53 2e 31 32 38 |128 - MS|-DOS.128|
|00000190| 0a 32 35 30 20 3a 20 52 | 45 4d 0a 32 36 30 20 3a |.250 : R|EM.260 :|
|000001a0| 20 52 45 4d 20 49 20 48 | 4f 50 45 20 59 4f 55 20 | REM I H|OPE YOU |
|000001b0| 45 4e 4a 4f 59 20 54 48 | 49 53 2e 20 41 4e 44 0a |ENJOY TH|IS. AND.|
|000001c0| 32 37 30 20 3a 20 52 45 | 4d 20 50 4c 45 41 53 45 |270 : RE|M PLEASE|
|000001d0| 20 4c 45 41 56 45 20 4d | 45 20 45 4d 41 49 4c 2e | LEAVE M|E EMAIL.|
|000001e0| 2e 2e 0a 32 38 30 20 3a | 0a 32 39 30 20 3a 20 44 |...280 :|.290 : D|
|000001f0| 41 54 45 24 3d 22 31 32 | 2f 37 2f 38 37 22 0a 33 |ATE$="12|/7/87".3|
|00000200| 30 30 20 3a 20 50 52 49 | 4e 54 43 48 52 24 28 31 |00 : PRI|NTCHR$(1|
|00000210| 34 37 29 43 48 52 24 28 | 31 34 29 0a 33 31 30 20 |47)CHR$(|14).310 |
|00000220| 3a 20 50 4f 4b 45 20 35 | 33 32 38 30 2c 30 3a 50 |: POKE 5|3280,0:P|
|00000230| 4f 4b 45 20 35 33 32 38 | 31 2c 30 0a 33 32 30 20 |OKE 5328|1,0.320 |
|00000240| 3a 20 50 52 49 4e 54 22 | 99 13 13 c9 42 4d 20 cd |: PRINT"|....BM .|
|00000250| d3 2d c4 cf d3 20 46 4f | 52 20 c3 36 34 22 0a 33 |.-... FO|R .64".3|
|00000260| 33 30 20 3a 20 50 52 49 | 4e 54 22 c3 4f 50 59 52 |30 : PRI|NT".OPYR|
|00000270| 49 47 48 54 20 28 c3 29 | 20 c4 45 43 45 4d 42 45 |IGHT (.)| .ECEMBE|
|00000280| 52 20 37 2c 20 31 39 38 | 37 22 0a 33 34 30 20 3a |R 7, 198|7".340 :|
|00000290| 20 50 52 49 4e 54 22 c2 | 59 20 2d 20 cd 49 43 48 | PRINT".|Y - .ICH|
|000002a0| 41 45 4c c7 32 35 20 20 | c4 45 43 45 4d 42 45 52 |AEL.25 |.ECEMBER|
|000002b0| 20 37 2c 20 31 39 38 37 | 22 3a 50 52 49 4e 54 0a | 7, 1987|":PRINT.|
|000002c0| 33 35 30 20 3a 20 42 24 | 3d 22 22 3a 50 52 49 4e |350 : B$|="":PRIN|
|000002d0| 54 20 22 99 c1 3e 22 3b | 0a 33 36 30 20 3a 0a 33 |T "..>";|.360 :.3|
|000002e0| 37 30 20 3a 20 47 45 54 | 41 24 3a 49 46 41 24 3d |70 : GET|A$:IFA$=|
|000002f0| 22 22 54 48 45 4e 50 52 | 49 4e 54 22 12 20 92 9d |""THENPR|INT". ..|
|00000300| 22 3b 3a 47 4f 54 4f 33 | 37 30 0a 33 38 30 20 3a |";:GOTO3|70.380 :|
|00000310| 20 49 46 41 24 3d 22 91 | 22 4f 52 41 24 3d 22 11 | IFA$=".|"ORA$=".|
|00000320| 22 4f 52 41 24 3d 22 9d | 22 4f 52 41 24 3d 22 1d |"ORA$=".|"ORA$=".|
|00000330| 22 54 48 45 4e 33 37 30 | 0a 33 39 30 20 3a 20 49 |"THEN370|.390 : I|
|00000340| 46 41 24 3d 22 13 22 4f | 52 41 24 3d 22 93 22 4f |FA$="."O|RA$="."O|
|00000350| 52 41 24 3d 22 94 22 54 | 48 45 4e 33 37 30 0a 34 |RA$="."T|HEN370.4|
|00000360| 30 30 20 3a 20 49 46 41 | 24 3d 43 48 52 24 28 32 |00 : IFA|$=CHR$(2|
|00000370| 30 29 41 4e 44 42 24 3d | 22 22 54 48 45 4e 47 4f |0)ANDB$=|""THENGO|
|00000380| 54 4f 33 37 30 0a 34 31 | 30 20 3a 20 49 46 41 24 |TO370.41|0 : IFA$|
|00000390| 3d 43 48 52 24 28 32 30 | 29 54 48 45 4e 50 52 49 |=CHR$(20|)THENPRI|
|000003a0| 4e 54 22 20 9d 9d 20 9d | 22 3b 3a 42 24 3d 4c 45 |NT" .. .|";:B$=LE|
|000003b0| 46 54 24 28 42 24 2c 4c | 45 4e 28 42 24 29 2d 31 |FT$(B$,L|EN(B$)-1|
|000003c0| 29 3a 47 4f 54 4f 20 33 | 37 30 0a 34 32 30 20 3a |):GOTO 3|70.420 :|
|000003d0| 20 49 46 41 24 3d 43 48 | 52 24 28 31 33 29 54 48 | IFA$=CH|R$(13)TH|
|000003e0| 45 4e 50 52 49 4e 54 22 | 20 22 3a 47 4f 54 4f 31 |ENPRINT"| ":GOTO1|
|000003f0| 30 30 30 0a 34 33 30 20 | 3a 0a 34 34 30 20 3a 20 |000.430 |:.440 : |
|00000400| 42 24 3d 42 24 2b 41 24 | 3a 50 52 49 4e 54 41 24 |B$=B$+A$|:PRINTA$|
|00000410| 3b 3a 47 4f 54 4f 20 33 | 37 30 0a 34 35 30 20 3a |;:GOTO 3|70.450 :|
|00000420| 0a 34 36 30 20 3a 0a 31 | 30 30 30 20 3a 20 52 45 |.460 :.1|000 : RE|
|00000430| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M ******|********|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 31 30 31 |********|****.101|
|00000450| 30 20 3a 20 52 45 4d 20 | 2a 20 44 45 54 45 52 4d |0 : REM |* DETERM|
|00000460| 49 4e 45 20 57 48 41 54 | 20 43 4f 4d 4d 41 4e 44 |INE WHAT| COMMAND|
|00000470| 20 2a 0a 31 30 32 30 20 | 3a 20 52 45 4d 20 2a 20 | *.1020 |: REM * |
|00000480| 45 58 45 43 55 54 45 2e | 2e 2e 2e 2e 2e 2e 2e 2e |EXECUTE.|........|
|00000490| 2e 2e 2e 2e 2e 2e 20 2a | 0a 31 30 33 30 20 3a 20 |...... *|.1030 : |
|000004a0| 52 45 4d 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |REM ****|********|
|000004b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 31 |********|******.1|
|000004c0| 30 34 30 20 3a 0a 31 30 | 35 30 20 3a 20 49 46 20 |040 :.10|50 : IF |
|000004d0| 4c 45 46 54 24 28 42 24 | 2c 33 29 3d 22 44 49 52 |LEFT$(B$|,3)="DIR|
|000004e0| 22 54 48 45 4e 31 30 30 | 30 30 0a 31 30 36 30 20 |"THEN100|00.1060 |
|000004f0| 3a 20 49 46 20 42 24 3d | 22 54 49 4d 45 22 20 54 |: IF B$=|"TIME" T|
|00000500| 48 45 4e 20 31 31 30 30 | 30 0a 31 30 37 30 20 3a |HEN 1100|0.1070 :|
|00000510| 20 49 46 20 42 24 3d 22 | 44 41 54 45 22 20 54 48 | IF B$="|DATE" TH|
|00000520| 45 4e 20 31 32 30 30 30 | 22 00 0a 31 30 38 30 20 |EN 12000|"..1080 |
|00000530| 3a 20 49 46 20 42 24 3d | 22 42 41 53 49 43 22 20 |: IF B$=|"BASIC" |
|00000540| 54 48 45 4e 20 36 33 30 | 30 30 0a 31 30 39 30 20 |THEN 630|00.1090 |
|00000550| 3a 20 49 46 20 4c 45 46 | 54 24 28 42 24 2c 36 29 |: IF LEF|T$(B$,6)|
|00000560| 3d 22 52 45 4e 41 4d 45 | 22 54 48 45 4e 31 33 30 |="RENAME|"THEN130|
|00000570| 30 30 0a 31 31 30 30 20 | 3a 20 49 46 20 42 24 3d |00.1100 |: IF B$=|
|00000580| 22 44 53 22 20 54 48 45 | 4e 20 31 34 30 30 30 0a |"DS" THE|N 14000.|
|00000590| 31 31 31 30 20 3a 20 49 | 46 20 42 24 3d 22 43 4c |1110 : I|F B$="CL|
|000005a0| 53 22 20 54 48 45 4e 20 | 33 30 30 0a 31 31 32 30 |S" THEN |300.1120|
|000005b0| 20 3a 20 49 46 20 4c 45 | 46 54 24 28 42 24 2c 34 | : IF LE|FT$(B$,4|
|000005c0| 29 3d 22 43 4f 50 59 22 | 54 48 45 4e 31 35 30 30 |)="COPY"|THEN1500|
|000005d0| 30 0a 31 31 33 30 20 3a | 20 49 46 20 4c 45 46 54 |0.1130 :| IF LEFT|
|000005e0| 24 28 42 24 2c 35 29 3d | 22 45 52 41 53 45 22 54 |$(B$,5)=|"ERASE"T|
|000005f0| 48 45 4e 31 36 30 30 30 | 0a 31 31 34 30 20 3a 20 |HEN16000|.1140 : |
|00000600| 49 46 20 42 24 3d 22 48 | 45 4c 50 22 20 54 48 45 |IF B$="H|ELP" THE|
|00000610| 4e 20 31 37 30 30 30 0a | 31 31 35 30 20 3a 20 49 |N 17000.|1150 : I|
|00000620| 46 20 42 24 3d 22 22 20 | 54 48 45 4e 20 33 35 30 |F B$="" |THEN 350|
|00000630| 0a 31 31 36 30 20 3a 20 | 50 52 49 4e 54 22 c2 41 |.1160 : |PRINT".A|
|00000640| 44 20 43 4f 4d 4d 41 4e | 44 20 4f 52 20 46 49 4c |D COMMAN|D OR FIL|
|00000650| 45 4e 41 4d 45 22 3a 47 | 4f 54 4f 20 33 35 30 0a |ENAME":G|OTO 350.|
|00000660| 31 31 37 30 20 3a 0a 31 | 31 38 30 20 3a 0a 31 30 |1170 :.1|180 :.10|
|00000670| 30 30 30 20 3a 20 52 45 | 4d 20 2a 2a 2a 2a 2a 2a |000 : RE|M ******|
|00000680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000690| 2a 0a 31 30 30 31 30 20 | 3a 20 52 45 4d 20 2a 20 |*.10010 |: REM * |
|000006a0| 56 49 45 57 20 44 49 53 | 4b 20 44 49 52 45 43 54 |VIEW DIS|K DIRECT|
|000006b0| 4f 52 59 20 2a 0a 31 30 | 30 32 30 20 3a 20 52 45 |ORY *.10|020 : RE|
|000006c0| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M ******|********|
|000006d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 31 30 30 33 30 20 |********|*.10030 |
|000006e0| 3a 0a 31 30 30 34 30 20 | 3a 20 49 46 42 24 3d 22 |:.10040 |: IFB$="|
|000006f0| 44 49 52 22 20 54 48 45 | 4e 20 44 52 49 56 45 3d |DIR" THE|N DRIVE=|
|00000700| 38 0a 31 30 30 35 30 20 | 3a 20 49 46 42 24 3d 22 |8.10050 |: IFB$="|
|00000710| 44 49 52 20 41 3a 22 20 | 54 48 45 4e 20 44 52 49 |DIR A:" |THEN DRI|
|00000720| 56 45 3d 38 0a 31 30 30 | 36 30 20 3a 20 49 46 42 |VE=8.100|60 : IFB|
|00000730| 24 3d 22 44 49 52 20 42 | 3a 22 20 54 48 45 4e 20 |$="DIR B|:" THEN |
|00000740| 44 52 49 56 45 3d 39 0a | 31 30 30 37 30 20 3a 20 |DRIVE=9.|10070 : |
|00000750| 43 24 3d 43 48 52 24 28 | 30 29 3a 50 52 49 4e 54 |C$=CHR$(|0):PRINT|
|00000760| 0a 31 30 30 38 30 20 3a | 20 4f 50 45 4e 35 2c 44 |.10080 :| OPEN5,D|
|00000770| 52 49 56 45 2c 30 2c 22 | 24 22 3a 47 45 54 23 35 |RIVE,0,"|$":GET#5|
|00000780| 2c 41 24 2c 41 24 0a 31 | 30 30 39 30 20 3a 0a 31 |,A$,A$.1|0090 :.1|
|00000790| 30 31 30 30 20 3a 20 47 | 45 54 23 35 2c 41 24 2c |0100 : G|ET#5,A$,|
|000007a0| 41 24 3a 49 46 41 24 3d | 22 22 54 48 45 4e 43 4c |A$:IFA$=|""THENCL|
|000007b0| 4f 53 45 35 3a 50 52 49 | 4e 54 3a 47 4f 54 4f 33 |OSE5:PRI|NT:GOTO3|
|000007c0| 35 30 0a 31 30 31 31 30 | 20 3a 20 47 45 54 23 35 |50.10110| : GET#5|
|000007d0| 2c 41 24 2c 42 24 3a 50 | 52 49 4e 54 41 53 43 28 |,A$,B$:P|RINTASC(|
|000007e0| 41 24 2b 43 24 29 2b 41 | 53 43 28 42 24 2b 43 24 |A$+C$)+A|SC(B$+C$|
|000007f0| 29 2a 32 35 36 3b 0a 31 | 30 31 32 30 20 3a 20 47 |)*256;.1|0120 : G|
|00000800| 45 54 23 35 2c 41 24 3a | 50 52 49 4e 54 41 24 3b |ET#5,A$:|PRINTA$;|
|00000810| 42 24 3b 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 50 |B$;:IFA$|=""THENP|
|00000820| 52 49 4e 54 3a 47 4f 54 | 4f 31 30 31 30 30 0a 31 |RINT:GOT|O10100.1|
|00000830| 30 31 33 30 20 3a 20 47 | 4f 54 4f 20 31 30 31 32 |0130 : G|OTO 1012|
|00000840| 30 0a 31 30 31 34 30 20 | 3a 0a 31 31 30 30 30 20 |0.10140 |:.11000 |
|00000850| 3a 20 52 45 4d 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |: REM **|********|
|00000860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00000870| 31 31 30 31 30 20 3a 20 | 52 45 4d 20 2a 20 56 49 |11010 : |REM * VI|
|00000880| 45 57 20 26 20 45 4e 54 | 45 52 20 54 48 45 20 54 |EW & ENT|ER THE T|
|00000890| 49 4d 45 20 2a 0a 31 31 | 30 32 30 20 3a 20 52 45 |IME *.11|020 : RE|
|000008a0| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M ******|********|
|000008b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 31 31 30 33 |********|***.1103|
|000008c0| 30 20 3a 20 45 54 24 3d | 22 22 0a 31 31 30 34 30 |0 : ET$=|"".11040|
|000008d0| 20 3a 20 50 52 49 4e 54 | 22 d4 48 45 20 54 49 4d | : PRINT|".HE TIM|
|000008e0| 45 20 49 53 20 2d 20 22 | 3b 4c 45 46 54 24 28 54 |E IS - "|;LEFT$(T|
|000008f0| 49 24 2c 32 29 22 3a 22 | 4d 49 44 24 28 54 49 24 |I$,2)":"|MID$(TI$|
|00000900| 2c 33 2c 32 29 22 3a 22 | 52 49 47 48 54 24 28 54 |,3,2)":"|RIGHT$(T|
|00000910| 49 24 2c 32 29 0a 31 31 | 30 35 30 20 3a 20 50 52 |I$,2).11|050 : PR|
|00000920| 49 4e 54 22 c5 4e 54 45 | 52 20 4e 45 57 20 54 49 |INT".NTE|R NEW TI|
|00000930| 4d 45 20 2d 20 22 3b 0a | 31 31 30 36 30 20 3a 0a |ME - ";.|11060 :.|
|00000940| 31 31 30 37 30 20 3a 20 | 47 45 54 41 24 3a 49 46 |11070 : |GETA$:IF|
|00000950| 41 24 3d 22 22 54 48 45 | 4e 50 52 49 4e 54 22 12 |A$=""THE|NPRINT".|
|00000960| 20 92 9d 22 3b 3a 47 4f | 54 4f 31 31 30 37 30 0a | ..";:GO|TO11070.|
|00000970| 31 31 30 38 30 20 3a 20 | 49 46 41 24 3d 22 91 22 |11080 : |IFA$="."|
|00000980| 4f 52 41 24 3d 22 11 22 | 4f 52 41 24 3d 22 9d 22 |ORA$="."|ORA$="."|
|00000990| 4f 52 41 24 3d 22 1d 22 | 54 48 45 4e 31 31 30 37 |ORA$="."|THEN1107|
|000009a0| 30 0a 31 31 30 39 30 20 | 3a 20 49 46 41 24 3d 22 |0.11090 |: IFA$="|
|000009b0| 13 22 4f 52 41 24 3d 22 | 93 22 4f 52 41 24 3d 22 |."ORA$="|."ORA$="|
|000009c0| 94 22 54 48 45 4e 31 31 | 30 37 30 0a 31 31 31 30 |."THEN11|070.1110|
|000009d0| 30 20 3a 20 49 46 41 24 | 3d 43 48 52 24 28 32 30 |0 : IFA$|=CHR$(20|
|000009e0| 29 41 4e 44 45 54 24 3d | 22 22 54 48 45 4e 31 31 |)ANDET$=|""THEN11|
|000009f0| 30 37 30 0a 31 31 31 31 | 30 20 3a 20 49 46 41 24 |070.1111|0 : IFA$|
|00000a00| 3d 43 48 52 24 28 32 30 | 29 54 48 45 4e 50 52 49 |=CHR$(20|)THENPRI|
|00000a10| 4e 54 22 20 9d 9d 20 9d | 22 3b 3a 45 54 24 3d 4c |NT" .. .|";:ET$=L|
|00000a20| 45 46 54 24 28 45 54 24 | 2c 4c 45 4e 28 45 54 24 |EFT$(ET$|,LEN(ET$|
|00000a30| 29 2d 31 29 3a 47 4f 54 | 4f 20 31 31 30 37 30 0a |)-1):GOT|O 11070.|
|00000a40| 31 31 31 32 30 20 3a 20 | 49 46 41 24 3d 43 48 52 |11120 : |IFA$=CHR|
|00000a50| 24 28 31 33 29 54 48 45 | 4e 50 52 49 4e 54 22 20 |$(13)THE|NPRINT" |
|00000a60| 22 3a 47 4f 54 4f 31 31 | 31 36 30 0a 31 31 31 33 |":GOTO11|160.1113|
|00000a70| 30 20 3a 0a 31 31 31 34 | 30 20 3a 20 45 54 24 3d |0 :.1114|0 : ET$=|
|00000a80| 45 54 24 2b 41 24 3a 50 | 52 49 4e 54 41 24 3b 3a |ET$+A$:P|RINTA$;:|
|00000a90| 47 4f 54 4f 31 31 30 37 | 30 0a 31 31 31 35 30 20 |GOTO1107|0.11150 |
|00000aa0| 3a 0a 31 31 31 36 30 20 | 3a 20 49 46 4c 45 4e 28 |:.11160 |: IFLEN(|
|00000ab0| 45 54 24 29 3c 3e 38 54 | 48 45 4e 50 52 49 4e 54 |ET$)<>8T|HENPRINT|
|00000ac0| 22 c9 4e 56 41 4c 49 44 | 20 54 49 4d 45 22 3a 50 |".NVALID| TIME":P|
|00000ad0| 52 49 4e 54 3a 47 4f 54 | 4f 33 35 30 0a 31 31 31 |RINT:GOT|O350.111|
|00000ae0| 37 30 20 3a 0a 31 31 31 | 38 30 20 3a 20 54 49 24 |70 :.111|80 : TI$|
|00000af0| 3d 4c 45 46 54 24 28 45 | 54 24 2c 32 29 2b 4d 49 |=LEFT$(E|T$,2)+MI|
|00000b00| 44 24 28 45 54 24 2c 34 | 2c 32 29 2b 52 49 47 48 |D$(ET$,4|,2)+RIGH|
|00000b10| 54 24 28 45 54 24 2c 32 | 29 0a 31 31 31 39 30 20 |T$(ET$,2|).11190 |
|00000b20| 3a 20 50 52 49 4e 54 3a | 47 4f 54 4f 33 35 30 0a |: PRINT:|GOTO350.|
|00000b30| 31 32 30 30 30 20 3a 20 | 52 45 4d 20 2a 2a 2a 2a |12000 : |REM ****|
|00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b50| 2a 2a 2a 0a 31 32 30 31 | 30 20 3a 20 52 45 4d 20 |***.1201|0 : REM |
|00000b60| 2a 20 56 49 45 57 20 26 | 20 53 45 54 20 54 48 45 |* VIEW &| SET THE|
|00000b70| 20 44 41 54 45 20 2a 0a | 31 32 30 32 30 20 3a 20 | DATE *.|12020 : |
|00000b80| 52 45 4d 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |REM ****|********|
|00000b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 31 32 30 33 |********|***.1203|
|00000ba0| 30 20 3a 20 42 24 3d 22 | 22 0a 31 32 30 34 30 20 |0 : B$="|".12040 |
|00000bb0| 3a 20 50 52 49 4e 54 22 | d4 48 45 20 44 41 54 45 |: PRINT"|.HE DATE|
|00000bc0| 20 49 53 20 2d 20 22 3b | 44 41 54 45 24 0a 31 32 | IS - ";|DATE$.12|
|00000bd0| 30 35 30 20 3a 20 50 52 | 49 4e 54 22 c5 4e 54 45 |050 : PR|INT".NTE|
|00000be0| 52 20 4e 45 57 20 44 41 | 54 45 20 2d 20 22 3b 0a |R NEW DA|TE - ";.|
|00000bf0| 31 32 30 36 30 20 3a 0a | 31 32 30 37 30 20 3a 20 |12060 :.|12070 : |
|00000c00| 47 45 54 41 24 3a 49 46 | 41 24 3d 22 22 54 48 45 |GETA$:IF|A$=""THE|
|00000c10| 4e 50 52 49 4e 54 22 12 | 20 92 9d 22 3b 3a 47 4f |NPRINT".| ..";:GO|
|00000c20| 54 4f 31 32 30 37 30 0a | 31 32 30 38 30 20 3a 20 |TO12070.|12080 : |
|00000c30| 49 46 41 24 3d 22 91 22 | 4f 52 41 24 3d 22 11 22 |IFA$="."|ORA$="."|
|00000c40| 4f 52 41 24 3d 22 9d 22 | 4f 52 41 24 3d 22 1d 22 |ORA$="."|ORA$="."|
|00000c50| 54 48 45 4e 31 32 30 37 | 30 0a 31 32 30 39 30 20 |THEN1207|0.12090 |
|00000c60| 3a 20 49 46 41 24 3d 22 | 13 22 4f 52 41 24 3d 22 |: IFA$="|."ORA$="|
|00000c70| 93 22 4f 52 41 24 3d 22 | 94 22 54 48 45 4e 31 32 |."ORA$="|."THEN12|
|00000c80| 30 37 30 0a 31 32 31 30 | 30 20 3a 20 49 46 41 24 |070.1210|0 : IFA$|
|00000c90| 3d 43 48 52 24 28 32 30 | 29 41 4e 44 42 24 3d 22 |=CHR$(20|)ANDB$="|
|00000ca0| 22 54 48 45 4e 31 32 30 | 37 30 0a 31 32 31 31 30 |"THEN120|70.12110|
|00000cb0| 20 3a 20 49 46 41 24 3d | 43 48 52 24 28 32 30 29 | : IFA$=|CHR$(20)|
|00000cc0| 54 48 45 4e 50 52 49 4e | 54 22 20 9d 9d 20 9d 22 |THENPRIN|T" .. ."|
|00000cd0| 3b 3a 42 24 3d 4c 45 46 | 54 24 28 42 24 2c 4c 45 |;:B$=LEF|T$(B$,LE|
|00000ce0| 4e 28 42 24 29 2d 31 29 | 3a 47 4f 54 4f 31 32 30 |N(B$)-1)|:GOTO120|
|00000cf0| 37 30 0a 31 32 31 32 30 | 20 3a 20 49 46 41 24 3d |70.12120| : IFA$=|
|00000d00| 43 48 52 24 28 31 33 29 | 54 48 45 4e 50 52 49 4e |CHR$(13)|THENPRIN|
|00000d10| 54 22 20 22 3a 47 4f 54 | 4f 31 32 31 36 30 0a 31 |T" ":GOT|O12160.1|
|00000d20| 32 31 33 30 20 3a 0a 31 | 32 31 34 30 20 3a 20 42 |2130 :.1|2140 : B|
|00000d30| 24 3d 42 24 2b 41 24 3a | 50 52 49 4e 54 41 24 3b |$=B$+A$:|PRINTA$;|
|00000d40| 3a 47 4f 54 4f 31 32 30 | 37 30 0a 31 32 31 35 30 |:GOTO120|70.12150|
|00000d50| 20 3a 0a 31 32 31 36 30 | 20 3a 20 49 46 42 24 3d | :.12160| : IFB$=|
|00000d60| 22 22 54 48 45 4e 50 52 | 49 4e 54 22 c9 4e 56 41 |""THENPR|INT".NVA|
|00000d70| 4c 49 44 20 44 41 54 45 | 22 3a 50 52 49 4e 54 3a |LID DATE|":PRINT:|
|00000d80| 47 4f 54 4f 33 35 30 0a | 31 32 31 37 30 20 3a 0a |GOTO350.|12170 :.|
|00000d90| 31 32 31 38 30 20 3a 20 | 44 41 54 45 24 3d 42 24 |12180 : |DATE$=B$|
|00000da0| 3a 50 52 49 4e 54 3a 47 | 4f 54 4f 33 35 30 0a 31 |:PRINT:G|OTO350.1|
|00000db0| 33 30 30 30 20 3a 20 52 | 45 4d 20 2a 2a 2a 2a 2a |3000 : R|EM *****|
|00000dc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 31 33 30 |********|****.130|
|00000dd0| 31 30 20 3a 20 52 45 4d | 20 2a 20 52 45 4e 41 4d |10 : REM| * RENAM|
|00000de0| 45 20 41 20 46 49 4c 45 | 20 2a 0a 31 33 30 32 30 |E A FILE| *.13020|
|00000df0| 20 3a 20 52 45 4d 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a | : REM *|********|
|00000e00| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 31 33 30 33 30 20 3a |********|.13030 :|
|00000e10| 0a 31 33 30 34 30 20 3a | 20 4e 24 3d 22 22 3a 4f |.13040 :| N$="":O|
|00000e20| 24 3d 22 22 0a 31 33 30 | 35 30 20 3a 0a 31 33 30 |$="".130|50 :.130|
|00000e30| 36 30 20 3a 20 49 46 4d | 49 44 24 28 42 24 2c 38 |60 : IFM|ID$(B$,8|
|00000e40| 2c 31 29 3c 3e 22 41 22 | 20 4f 52 20 4d 49 44 24 |,1)<>"A"| OR MID$|
|00000e50| 28 42 24 2c 38 2c 31 29 | 3c 3e 22 42 22 20 54 48 |(B$,8,1)|<>"B" TH|
|00000e60| 45 4e 20 44 52 49 56 45 | 24 3d 22 c1 22 3a 53 3d |EN DRIVE|$=".":S=|
|00000e70| 38 3a 44 52 49 56 45 3d | 38 0a 31 33 30 37 30 20 |8:DRIVE=|8.13070 |
|00000e80| 3a 20 49 46 4d 49 44 24 | 28 42 24 2c 38 2c 31 29 |: IFMID$|(B$,8,1)|
|00000e90| 3d 22 41 22 20 54 48 45 | 4e 20 44 52 49 56 45 24 |="A" THE|N DRIVE$|
|00000ea0| 3d 22 c1 22 3a 53 3d 31 | 30 3a 44 52 49 56 45 3d |=".":S=1|0:DRIVE=|
|00000eb0| 38 0a 31 33 30 38 30 20 | 3a 20 49 46 4d 49 44 24 |8.13080 |: IFMID$|
|00000ec0| 28 42 24 2c 38 2c 31 29 | 3d 22 42 22 20 54 48 45 |(B$,8,1)|="B" THE|
|00000ed0| 4e 20 44 52 49 56 45 24 | 3d 22 c2 22 3a 53 3d 31 |N DRIVE$|=".":S=1|
|00000ee0| 30 3a 44 52 49 56 45 3d | 39 0a 31 33 30 39 30 20 |0:DRIVE=|9.13090 |
|00000ef0| 3a 0a 31 33 31 30 30 20 | 3a 20 46 4f 52 20 4b 3d |:.13100 |: FOR K=|
|00000f00| 53 20 54 4f 20 4c 45 4e | 28 42 24 29 0a 31 33 31 |S TO LEN|(B$).131|
|00000f10| 31 30 20 3a 20 20 5a 24 | 3d 4d 49 44 24 28 42 24 |10 : Z$|=MID$(B$|
|00000f20| 2c 4b 2c 31 29 0a 31 33 | 31 32 30 20 3a 20 20 49 |,K,1).13|120 : I|
|00000f30| 46 20 5a 24 3d 22 3d 22 | 20 54 48 45 4e 20 31 33 |F Z$="="| THEN 13|
|00000f40| 31 36 30 0a 31 33 31 33 | 30 20 3a 20 20 4e 24 3d |160.1313|0 : N$=|
|00000f50| 4e 24 2b 5a 24 0a 31 33 | 31 34 30 20 3a 20 4e 45 |N$+Z$.13|140 : NE|
|00000f60| 58 54 20 4b 0a 31 33 31 | 35 30 20 3a 0a 31 33 31 |XT K.131|50 :.131|
|00000f70| 36 30 20 3a 20 46 4f 52 | 20 4f 3d 4b 2b 31 20 54 |60 : FOR| O=K+1 T|
|00000f80| 4f 20 4c 45 4e 28 42 24 | 29 0a 31 33 31 37 30 20 |O LEN(B$|).13170 |
|00000f90| 3a 20 20 5a 24 3d 4d 49 | 44 24 28 42 24 2c 4f 2c |: Z$=MI|D$(B$,O,|
|00000fa0| 31 29 0a 31 33 31 38 30 | 20 3a 20 20 49 46 5a 24 |1).13180| : IFZ$|
|00000fb0| 3d 22 3d 22 20 54 48 45 | 4e 31 33 32 32 30 0a 31 |="=" THE|N13220.1|
|00000fc0| 33 31 39 30 20 3a 20 20 | 4f 24 3d 4f 24 2b 5a 24 |3190 : |O$=O$+Z$|
|00000fd0| 0a 31 33 32 30 30 20 3a | 20 4e 45 58 54 20 4f 0a |.13200 :| NEXT O.|
|00000fe0| 31 33 32 31 30 20 3a 0a | 31 33 32 32 30 20 3a 20 |13210 :.|13220 : |
|00000ff0| 50 52 49 4e 54 0a 31 33 | 32 33 30 20 3a 20 50 52 |PRINT.13|230 : PR|
|00001000| 49 4e 54 22 c9 4e 53 45 | 52 54 20 c4 49 53 4b 20 |INT".NSE|RT .ISK |
|00001010| 49 4e 54 4f 20 c4 52 49 | 56 45 20 22 3b 44 52 49 |INTO .RI|VE ";DRI|
|00001020| 56 45 24 0a 31 33 32 34 | 30 20 3a 20 50 52 49 4e |VE$.1324|0 : PRIN|
|00001030| 54 0a 31 33 32 35 30 20 | 3a 20 50 52 49 4e 54 22 |T.13250 |: PRINT"|
|00001040| d0 52 45 53 53 20 d2 c5 | d4 d5 d2 ce 20 57 48 45 |.RESS ..|.... WHE|
|00001050| 4e 20 52 45 41 44 59 22 | 0a 31 33 32 36 30 20 3a |N READY"|.13260 :|
|00001060| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 22 4f 52 20 | PRINT:P|RINT"OR |
|00001070| d1 20 54 4f 20 51 55 49 | 54 22 0a 31 33 32 37 30 |. TO QUI|T".13270|
|00001080| 20 3a 20 47 45 54 41 24 | 3a 49 46 41 24 3d 22 51 | : GETA$|:IFA$="Q|
|00001090| 22 20 54 48 45 4e 20 47 | 4f 54 4f 31 33 33 33 30 |" THEN G|OTO13330|
|000010a0| 0a 31 33 32 38 30 20 3a | 20 49 46 41 24 3c 3e 43 |.13280 :| IFA$<>C|
|000010b0| 48 52 24 28 31 33 29 54 | 48 45 4e 31 33 32 37 30 |HR$(13)T|HEN13270|
|000010c0| 0a 31 33 32 39 30 20 3a | 20 4f 50 45 4e 31 35 2c |.13290 :| OPEN15,|
|000010d0| 44 52 49 56 45 2c 31 35 | 0a 31 33 33 30 30 20 3a |DRIVE,15|.13300 :|
|000010e0| 20 50 52 49 4e 54 23 31 | 35 2c 22 52 30 3a 22 2b | PRINT#1|5,"R0:"+|
|000010f0| 4f 24 2b 22 3d 22 2b 4e | 24 0a 31 33 33 31 30 20 |O$+"="+N|$.13310 |
|00001100| 3a 20 43 4c 4f 53 45 31 | 35 0a 31 33 33 32 30 20 |: CLOSE1|5.13320 |
|00001110| 3a 0a 31 33 33 33 30 20 | 3a 20 50 52 49 4e 54 3a |:.13330 |: PRINT:|
|00001120| 47 4f 54 4f 20 33 35 30 | 0a 31 34 30 30 30 20 3a |GOTO 350|.14000 :|
|00001130| 20 52 45 4d 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | REM ***|********|
|00001140| 2a 2a 2a 2a 0a 31 34 30 | 31 30 20 3a 20 52 45 4d |****.140|10 : REM|
|00001150| 20 2a 20 44 49 53 4b 20 | 53 54 41 54 55 53 20 2a | * DISK |STATUS *|
|00001160| 0a 31 34 30 32 30 20 3a | 20 52 45 4d 20 2a 2a 2a |.14020 :| REM ***|
|00001170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 31 34 30 |********|****.140|
|00001180| 33 30 20 3a 0a 31 34 30 | 34 30 20 3a 20 50 52 49 |30 :.140|40 : PRI|
|00001190| 4e 54 0a 31 34 30 35 30 | 20 3a 0a 31 34 30 36 30 |NT.14050| :.14060|
|000011a0| 20 3a 20 4f 50 45 4e 31 | 35 2c 38 2c 31 35 0a 31 | : OPEN1|5,8,15.1|
|000011b0| 34 30 37 30 20 3a 20 49 | 4e 50 55 54 23 31 35 2c |4070 : I|NPUT#15,|
|000011c0| 45 4e 2c 45 54 24 2c 54 | 2c 53 0a 31 34 30 38 30 |EN,ET$,T|,S.14080|
|000011d0| 20 3a 20 43 4c 4f 53 45 | 31 35 0a 31 34 30 39 30 | : CLOSE|15.14090|
|000011e0| 20 3a 0a 31 34 31 30 30 | 20 3a 20 52 45 4d 20 20 | :.14100| : REM |
|000011f0| 45 4e 20 3d 20 45 52 52 | 4f 52 20 4e 55 4d 42 45 |EN = ERR|OR NUMBE|
|00001200| 52 0a 31 34 31 31 30 20 | 3a 20 52 45 4d 20 45 54 |R.14110 |: REM ET|
|00001210| 24 20 3d 20 45 52 52 4f | 52 20 54 59 50 45 0a 31 |$ = ERRO|R TYPE.1|
|00001220| 34 31 32 30 20 3a 20 52 | 45 4d 20 20 20 54 20 3d |4120 : R|EM T =|
|00001230| 20 54 52 41 43 4b 0a 31 | 34 31 33 30 20 3a 20 52 | TRACK.1|4130 : R|
|00001240| 45 4d 20 20 20 53 20 3d | 20 53 45 43 54 4f 52 0a |EM S =| SECTOR.|
|00001250| 31 34 31 34 30 20 3a 0a | 31 34 31 35 30 20 3a 20 |14140 :.|14150 : |
|00001260| 50 52 49 4e 54 20 22 c4 | c9 d3 cb a0 d3 d4 c1 d4 |PRINT ".|........|
|00001270| d5 d3 20 12 22 3b 45 4e | 3b 22 9d 2c 22 3b 45 54 |.. .";EN|;".,";ET|
|00001280| 24 3b 22 2c 22 3b 54 3b | 22 9d 2c 22 3b 53 3a 50 |$;",";T;|".,";S:P|
|00001290| 52 49 4e 54 0a 31 34 31 | 36 30 20 3a 20 47 4f 54 |RINT.141|60 : GOT|
|000012a0| 4f 33 35 30 0a 31 35 30 | 30 30 20 3a 20 52 45 4d |O350.150|00 : REM|
|000012b0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000012c0| 0a 31 35 30 31 30 20 3a | 20 52 45 4d 20 2a 20 43 |.15010 :| REM * C|
|000012d0| 4f 50 59 20 41 20 46 49 | 4c 45 20 2a 0a 31 35 30 |OPY A FI|LE *.150|
|000012e0| 32 30 20 3a 20 52 45 4d | 20 2a 2a 2a 2a 2a 2a 2a |20 : REM| *******|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 31 35 30 33 30 20 3a |********|.15030 :|
|00001300| 0a 31 35 30 34 30 20 3a | 20 49 46 4d 49 44 24 28 |.15040 :| IFMID$(|
|00001310| 42 24 2c 36 2c 31 29 3c | 3e 22 41 22 54 48 45 4e |B$,6,1)<|>"A"THEN|
|00001320| 44 52 49 56 45 3d 38 3a | 44 52 49 56 45 24 3d 22 |DRIVE=8:|DRIVE$="|
|00001330| c1 22 3a 53 3d 36 0a 31 | 35 30 35 30 20 3a 20 49 |.":S=6.1|5050 : I|
|00001340| 46 20 4d 49 44 24 28 42 | 24 2c 36 2c 31 29 3d 22 |F MID$(B|$,6,1)="|
|00001350| 41 22 54 48 45 4e 44 52 | 49 56 45 3d 38 3a 44 52 |A"THENDR|IVE=8:DR|
|00001360| 49 56 45 24 3d 22 c1 22 | 3a 53 3d 38 0a 31 35 30 |IVE$="."|:S=8.150|
|00001370| 36 30 20 3a 0a 31 35 30 | 37 30 20 3a 0a 31 35 30 |60 :.150|70 :.150|
|00001380| 38 30 20 3a 0a 31 35 30 | 39 30 20 3a 20 46 4f 52 |80 :.150|90 : FOR|
|00001390| 20 4f 3d 53 20 54 4f 20 | 4c 45 4e 28 42 24 29 0a | O=S TO |LEN(B$).|
|000013a0| 31 35 31 30 30 20 3a 20 | 20 5a 24 3d 4d 49 44 24 |15100 : | Z$=MID$|
|000013b0| 28 42 24 2c 4f 2c 31 29 | 0a 31 35 31 31 30 20 3a |(B$,O,1)|.15110 :|
|000013c0| 20 20 20 49 46 5a 24 3d | 22 3d 22 54 48 45 4e 20 | IFZ$=|"="THEN |
|000013d0| 31 35 31 35 30 0a 31 35 | 31 32 30 20 3a 20 20 43 |15150.15|120 : C|
|000013e0| 31 24 3d 43 31 24 2b 5a | 24 0a 31 35 31 33 30 20 |1$=C1$+Z|$.15130 |
|000013f0| 3a 20 4e 45 58 54 0a 31 | 35 31 34 30 20 3a 0a 31 |: NEXT.1|5140 :.1|
|00001400| 35 31 35 30 20 3a 20 46 | 4f 52 20 4f 31 3d 4f 2b |5150 : F|OR O1=O+|
|00001410| 31 20 54 4f 4c 45 4e 28 | 42 24 29 0a 31 35 31 36 |1 TOLEN(|B$).1516|
|00001420| 30 20 3a 20 20 5a 24 3d | 4d 49 44 24 28 42 24 2c |0 : Z$=|MID$(B$,|
|00001430| 4f 31 2c 31 29 0a 31 35 | 31 37 30 20 3a 20 20 43 |O1,1).15|170 : C|
|00001440| 32 24 3d 43 32 24 2b 5a | 24 0a 31 35 31 38 30 20 |2$=C2$+Z|$.15180 |
|00001450| 3a 20 4e 45 58 54 0a 31 | 35 31 39 30 20 3a 0a 31 |: NEXT.1|5190 :.1|
|00001460| 35 32 30 30 20 3a 20 50 | 52 49 4e 54 0a 31 35 32 |5200 : P|RINT.152|
|00001470| 31 30 20 3a 20 50 52 49 | 4e 54 22 c9 4e 53 45 52 |10 : PRI|NT".NSER|
|00001480| 54 20 44 49 53 4b 20 49 | 4e 54 4f 20 44 52 49 56 |T DISK I|NTO DRIV|
|00001490| 45 20 22 3b 44 52 49 56 | 45 24 3a 50 52 49 4e 54 |E ";DRIV|E$:PRINT|
|000014a0| 0a 31 35 32 32 30 20 3a | 20 50 52 49 4e 54 22 d0 |.15220 :| PRINT".|
|000014b0| 52 45 53 53 20 d2 c5 d4 | d5 d2 ce 20 57 48 45 4e |RESS ...|... WHEN|
|000014c0| 20 52 45 41 44 59 22 3a | 50 52 49 4e 54 0a 31 35 | READY":|PRINT.15|
|000014d0| 32 33 30 20 3a 20 50 52 | 49 4e 54 22 4f 52 20 d1 |230 : PR|INT"OR .|
|000014e0| 20 54 4f 20 51 55 49 54 | 22 3a 50 52 49 4e 54 0a | TO QUIT|":PRINT.|
|000014f0| 31 35 32 34 30 20 3a 0a | 31 35 32 35 30 20 3a 20 |15240 :.|15250 : |
|00001500| 47 45 54 41 24 0a 31 35 | 32 36 30 20 3a 20 49 46 |GETA$.15|260 : IF|
|00001510| 41 24 3d 43 48 52 24 28 | 31 33 29 20 54 48 45 4e |A$=CHR$(|13) THEN|
|00001520| 20 31 35 33 30 30 0a 31 | 35 32 37 30 20 3a 20 49 | 15300.1|5270 : I|
|00001530| 46 41 24 3d 22 51 22 20 | 54 48 45 4e 20 50 52 49 |FA$="Q" |THEN PRI|
|00001540| 4e 54 3a 47 4f 54 4f 33 | 35 30 0a 31 35 32 38 30 |NT:GOTO3|50.15280|
|00001550| 20 3a 20 47 4f 54 4f 20 | 31 35 32 35 30 0a 31 35 | : GOTO |15250.15|
|00001560| 32 39 30 20 3a 0a 31 35 | 33 30 30 20 3a 20 4f 50 |290 :.15|300 : OP|
|00001570| 45 4e 31 35 2c 44 52 49 | 56 45 2c 31 35 0a 31 35 |EN15,DRI|VE,15.15|
|00001580| 33 31 30 20 3a 20 50 52 | 49 4e 54 23 31 35 2c 22 |310 : PR|INT#15,"|
|00001590| 43 30 3a 22 2b 43 32 24 | 2b 22 3d 22 2b 43 31 24 |C0:"+C2$|+"="+C1$|
|000015a0| 0a 31 35 33 32 30 20 3a | 20 43 4c 4f 53 45 31 35 |.15320 :| CLOSE15|
|000015b0| 0a 31 35 33 33 30 20 3a | 0a 31 35 33 34 30 20 3a |.15330 :|.15340 :|
|000015c0| 20 50 52 49 4e 54 3a 47 | 4f 54 4f 20 33 35 30 0a | PRINT:G|OTO 350.|
|000015d0| 31 36 30 30 30 20 3a 20 | 52 45 4d 20 2a 2a 2a 2a |16000 : |REM ****|
|000015e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 31 36 30 |********|****.160|
|000015f0| 31 30 20 3a 20 52 45 4d | 20 2a 20 45 52 41 53 45 |10 : REM| * ERASE|
|00001600| 20 41 20 46 49 4c 45 20 | 2a 0a 31 36 30 32 30 20 | A FILE |*.16020 |
|00001610| 3a 20 52 45 4d 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |: REM **|********|
|00001620| 2a 2a 2a 2a 2a 2a 0a 31 | 36 30 33 30 20 3a 0a 31 |******.1|6030 :.1|
|00001630| 36 30 34 30 20 3a 20 4e | 41 4d 45 24 3d 22 22 0a |6040 : N|AME$="".|
|00001640| 31 36 30 35 30 20 3a 0a | 31 36 30 36 30 20 3a 20 |16050 :.|16060 : |
|00001650| 49 46 4d 49 44 24 28 42 | 24 2c 37 2c 31 29 3c 3e |IFMID$(B|$,7,1)<>|
|00001660| 22 41 22 4f 52 4d 49 44 | 24 28 42 24 2c 37 2c 31 |"A"ORMID|$(B$,7,1|
|00001670| 29 3c 3e 22 42 22 54 48 | 45 4e 44 52 49 56 45 3d |)<>"B"TH|ENDRIVE=|
|00001680| 38 3a 44 52 49 56 45 24 | 3d 22 c1 22 3a 53 3d 37 |8:DRIVE$|=".":S=7|
|00001690| 0a 31 36 30 37 30 20 3a | 20 49 46 4d 49 44 24 28 |.16070 :| IFMID$(|
|000016a0| 42 24 2c 37 2c 31 29 3d | 22 41 22 54 48 45 4e 44 |B$,7,1)=|"A"THEND|
|000016b0| 52 49 56 45 3d 38 3a 44 | 52 49 56 45 24 3d 22 c1 |RIVE=8:D|RIVE$=".|
|000016c0| 22 3a 53 3d 39 0a 31 36 | 30 38 30 20 3a 20 49 46 |":S=9.16|080 : IF|
|000016d0| 4d 49 44 24 28 42 24 2c | 37 2c 31 29 3d 22 42 22 |MID$(B$,|7,1)="B"|
|000016e0| 54 48 45 4e 44 52 49 56 | 45 3d 39 3a 44 52 49 56 |THENDRIV|E=9:DRIV|
|000016f0| 45 24 3d 22 c2 22 3a 53 | 3d 39 0a 31 36 30 39 30 |E$=".":S|=9.16090|
|00001700| 20 3a 0a 31 36 31 30 30 | 20 3a 20 46 4f 52 20 4b | :.16100| : FOR K|
|00001710| 3d 53 20 54 4f 20 4c 45 | 4e 28 42 24 29 0a 31 36 |=S TO LE|N(B$).16|
|00001720| 31 31 30 20 3a 20 20 4e | 41 4d 45 24 3d 4e 41 4d |110 : N|AME$=NAM|
|00001730| 45 24 2b 4d 49 44 24 28 | 42 24 2c 4b 2c 31 29 0a |E$+MID$(|B$,K,1).|
|00001740| 31 36 31 32 30 20 3a 20 | 4e 45 58 54 0a 31 36 31 |16120 : |NEXT.161|
|00001750| 33 30 20 3a 0a 31 36 31 | 34 30 20 3a 20 50 52 49 |30 :.161|40 : PRI|
|00001760| 4e 54 0a 31 36 31 35 30 | 20 3a 20 50 52 49 4e 54 |NT.16150| : PRINT|
|00001770| 22 c9 4e 53 45 52 54 20 | 44 49 53 4b 20 49 4e 54 |".NSERT |DISK INT|
|00001780| 4f 20 44 52 49 56 45 20 | 22 3b 44 52 49 56 45 24 |O DRIVE |";DRIVE$|
|00001790| 0a 31 36 31 36 30 20 3a | 20 50 52 49 4e 54 0a 31 |.16160 :| PRINT.1|
|000017a0| 36 31 37 30 20 3a 20 50 | 52 49 4e 54 22 d0 52 45 |6170 : P|RINT".RE|
|000017b0| 53 53 20 d2 c5 d4 d5 d2 | ce 20 57 48 45 4e 20 52 |SS .....|. WHEN R|
|000017c0| 45 41 44 59 22 0a 31 36 | 31 38 30 20 3a 20 50 52 |EADY".16|180 : PR|
|000017d0| 49 4e 54 0a 31 36 31 39 | 30 20 3a 20 50 52 49 4e |INT.1619|0 : PRIN|
|000017e0| 54 22 4f 52 20 d1 20 54 | 4f 20 51 55 49 54 22 0a |T"OR . T|O QUIT".|
|000017f0| 31 36 32 30 30 20 3a 20 | 50 52 49 4e 54 0a 31 36 |16200 : |PRINT.16|
|00001800| 32 31 30 20 3a 20 47 45 | 54 41 24 0a 31 36 32 32 |210 : GE|TA$.1622|
|00001810| 30 20 3a 20 49 46 41 24 | 3d 22 51 22 54 48 45 4e |0 : IFA$|="Q"THEN|
|00001820| 50 52 49 4e 54 3a 47 4f | 54 4f 33 35 30 0a 31 36 |PRINT:GO|TO350.16|
|00001830| 32 33 30 20 3a 20 49 46 | 41 24 3d 43 48 52 24 28 |230 : IF|A$=CHR$(|
|00001840| 31 33 29 20 54 48 45 4e | 20 31 36 32 36 30 0a 31 |13) THEN| 16260.1|
|00001850| 36 32 34 30 20 3a 20 47 | 4f 54 4f 20 31 36 32 31 |6240 : G|OTO 1621|
|00001860| 30 0a 31 36 32 35 30 20 | 3a 0a 31 36 32 36 30 20 |0.16250 |:.16260 |
|00001870| 3a 20 4f 50 45 4e 31 35 | 2c 44 52 49 56 45 2c 31 |: OPEN15|,DRIVE,1|
|00001880| 35 0a 31 36 32 37 30 20 | 3a 20 50 52 49 4e 54 23 |5.16270 |: PRINT#|
|00001890| 31 35 2c 22 53 30 3a 22 | 2b 4e 41 4d 45 24 0a 31 |15,"S0:"|+NAME$.1|
|000018a0| 36 32 38 30 20 3a 20 43 | 4c 4f 53 45 31 35 0a 31 |6280 : C|LOSE15.1|
|000018b0| 36 32 39 30 20 3a 0a 31 | 36 33 30 30 20 3a 20 50 |6290 :.1|6300 : P|
|000018c0| 52 49 4e 54 3a 47 4f 54 | 4f 20 33 35 30 0a 31 37 |RINT:GOT|O 350.17|
|000018d0| 30 30 30 20 3a 20 52 45 | 4d 20 2a 2a 2a 2a 2a 2a |000 : RE|M ******|
|000018e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 31 37 30 31 30 20 |********|*.17010 |
|000018f0| 3a 20 52 45 4d 20 2a 20 | 49 20 4e 45 45 44 20 48 |: REM * |I NEED H|
|00001900| 45 4c 50 20 2a 0a 31 37 | 30 32 30 20 3a 20 52 45 |ELP *.17|020 : RE|
|00001910| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M ******|********|
|00001920| 2a 0a 31 37 30 33 30 20 | 3a 0a 31 37 30 34 30 20 |*.17030 |:.17040 |
|00001930| 3a 20 50 52 49 4e 54 0a | 31 37 30 35 30 20 3a 20 |: PRINT.|17050 : |
|00001940| 50 52 49 4e 54 22 12 cd | d3 2d c4 cf d3 20 c3 cf |PRINT"..|.-... ..|
|00001950| cd cd c1 ce c4 d3 92 22 | 0a 31 37 30 36 30 20 3a |......."|.17060 :|
|00001960| 20 50 52 49 4e 54 0a 31 | 37 30 37 30 20 3a 20 50 | PRINT.1|7070 : P|
|00001970| 52 49 4e 54 22 44 49 52 | 22 0a 31 37 30 38 30 20 |RINT"DIR|".17080 |
|00001980| 3a 20 50 52 49 4e 54 22 | 44 49 52 20 41 3a 22 0a |: PRINT"|DIR A:".|
|00001990| 31 37 30 39 30 20 3a 20 | 50 52 49 4e 54 22 44 49 |17090 : |PRINT"DI|
|000019a0| 52 20 42 3a 22 0a 31 37 | 31 30 30 20 3a 20 50 52 |R B:".17|100 : PR|
|000019b0| 49 4e 54 22 54 49 4d 45 | 22 0a 31 37 31 31 30 20 |INT"TIME|".17110 |
|000019c0| 3a 20 50 52 49 4e 54 22 | 44 41 54 45 22 0a 31 37 |: PRINT"|DATE".17|
|000019d0| 31 32 30 20 3a 20 50 52 | 49 4e 54 22 42 41 53 49 |120 : PR|INT"BASI|
|000019e0| 43 22 0a 31 37 31 33 30 | 20 3a 20 50 52 49 4e 54 |C".17130| : PRINT|
|000019f0| 22 52 45 4e 41 4d 45 20 | 50 52 4f 47 52 41 4d 20 |"RENAME |PROGRAM |
|00001a00| 4e 41 4d 45 3d 4e 45 57 | 20 4e 41 4d 45 22 0a 31 |NAME=NEW| NAME".1|
|00001a10| 37 31 34 30 20 3a 20 50 | 52 49 4e 54 22 52 45 4e |7140 : P|RINT"REN|
|00001a20| 41 4d 45 20 41 3a 50 52 | 4f 47 52 41 4d 20 4e 41 |AME A:PR|OGRAM NA|
|00001a30| 4d 45 3d 4e 45 57 20 4e | 41 4d 45 22 0a 31 37 31 |ME=NEW N|AME".171|
|00001a40| 35 30 20 3a 20 50 52 49 | 4e 54 22 52 45 4e 41 4d |50 : PRI|NT"RENAM|
|00001a50| 45 20 42 3a 50 52 4f 47 | 52 41 4d 20 4e 41 4d 45 |E B:PROG|RAM NAME|
|00001a60| 3d 4e 45 57 20 4e 41 4d | 45 22 0a 31 37 31 36 30 |=NEW NAM|E".17160|
|00001a70| 20 3a 20 50 52 49 4e 54 | 22 44 53 22 0a 31 37 31 | : PRINT|"DS".171|
|00001a80| 37 30 20 3a 20 50 52 49 | 4e 54 22 43 4c 53 22 0a |70 : PRI|NT"CLS".|
|00001a90| 31 37 31 38 30 20 3a 20 | 50 52 49 4e 54 22 43 4f |17180 : |PRINT"CO|
|00001aa0| 50 59 20 41 3a 50 52 4f | 47 52 41 4d 20 4e 41 4d |PY A:PRO|GRAM NAM|
|00001ab0| 45 3d 4e 45 57 20 4e 41 | 4d 45 22 0a 31 37 31 39 |E=NEW NA|ME".1719|
|00001ac0| 30 20 3a 20 50 52 49 4e | 54 22 45 52 41 53 45 20 |0 : PRIN|T"ERASE |
|00001ad0| 50 52 4f 47 52 41 4d 20 | 4e 41 4d 45 22 0a 31 37 |PROGRAM |NAME".17|
|00001ae0| 32 30 30 20 3a 20 50 52 | 49 4e 54 22 45 52 41 53 |200 : PR|INT"ERAS|
|00001af0| 45 20 41 3a 50 52 4f 47 | 52 41 4d 20 4e 41 4d 45 |E A:PROG|RAM NAME|
|00001b00| 22 0a 31 37 32 31 30 20 | 3a 20 50 52 49 4e 54 22 |".17210 |: PRINT"|
|00001b10| 45 52 41 53 45 20 42 3a | 50 52 4f 47 52 41 4d 20 |ERASE B:|PROGRAM |
|00001b20| 4e 41 4d 45 22 0a 31 37 | 32 32 30 20 3a 20 50 52 |NAME".17|220 : PR|
|00001b30| 49 4e 54 22 48 45 4c 50 | 22 0a 31 37 32 33 30 20 |INT"HELP|".17230 |
|00001b40| 3a 20 50 52 49 4e 54 0a | 31 37 32 34 30 20 3a 20 |: PRINT.|17240 : |
|00001b50| 47 4f 54 4f 20 33 35 30 | 0a 36 33 30 30 30 20 3a |GOTO 350|.63000 :|
|00001b60| 20 52 45 4d 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | REM ***|********|
|00001b70| 2a 2a 2a 2a 0a 36 33 30 | 31 30 20 3a 20 52 45 4d |****.630|10 : REM|
|00001b80| 20 2a 20 45 4e 54 45 52 | 20 42 41 53 49 43 20 2a | * ENTER| BASIC *|
|00001b90| 0a 36 33 30 32 30 20 3a | 20 52 45 4d 20 2a 2a 2a |.63020 :| REM ***|
|00001ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 36 33 30 |********|****.630|
|00001bb0| 33 30 20 3a 0a 36 33 30 | 34 30 20 3a 20 50 52 49 |30 :.630|40 : PRI|
|00001bc0| 4e 54 0a 36 33 30 35 30 | 20 3a 20 50 52 49 4e 54 |NT.63050| : PRINT|
|00001bd0| 22 d4 d9 d0 c5 20 12 cc | cf c1 c4 22 2b 43 48 52 |".... ..|..."+CHR|
|00001be0| 24 28 33 34 29 2b 22 cd | d3 2d c4 cf d3 2e 36 34 |$(34)+".|.-....64|
|00001bf0| 22 2b 43 48 52 24 28 33 | 34 29 2b 22 2c 38 3a d2 |"+CHR$(3|4)+",8:.|
|00001c00| d5 ce 22 0a 36 33 30 36 | 30 20 3a 0a 36 33 30 37 |..".6306|0 :.6307|
|00001c10| 30 20 3a 20 4e 45 57 0a | 38 32 32 34 20 20 20 20 |0 : NEW.|8224 |
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c40| 20 20 20 20 20 20 20 20 | 0a | |. |
+--------+-------------------------+-------------------------+--------+--------+