_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

FORMAT CONTROL.2

FILE INFORMATION

FILENAME(S): FORMAT CONTROL.2

FILE TYPE(S): PRG

FILE SIZE: 5K

FIRST SEEN: 2025-12-01 02:25:33

APPEARS ON: 1 disk(s)

FILE HASH

5e63747752b5280aa9fb20af7071358fd329f1b6589475c2ee8d5a3b5eeec7ca

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
STONYSOFT PD NR FORMAT CONTROL.2 PRG hedning, shine 10 11 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 00 00 8F 20  3A 20 20 20 55 50 4C 4F  |..).... :   UPLO|
00000010: 41 44 45 44 20 54 4F 20  51 2D 4C 49 4E 4B 20 20  |ADED TO Q-LINK  |
00000020: 20 20 2D 37 2F 36 2F 38  38 00 50 08 0A 00 8F 20  |  -7/6/88.P.... |
00000030: 3A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |:***************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000050: 00 77 08 14 00 8F 20 3A  2A 2A 2A 2A 2A 2A 46 4F  |.w.... :******FO|
00000060: 52 4D 41 54 20 43 4F 4E  54 52 4F 4C 20 56 31 2E  |RMAT CONTROL V1.|
00000070: 32 2A 2A 2A 2A 2A 2A 00  9E 08 1E 00 8F 20 3A 2A  |2******...... :*|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 C4  |**************..|
000000A0: 08 28 00 8F 20 3A 20 2A  41 55 54 4F 2D 46 4F 52  |.(.. : *AUTO-FOR|
000000B0: 4D 41 54 20 57 49 54 48  20 41 55 54 4F 20 4C 4F  |MAT WITH AUTO LO|
000000C0: 41 44 20 2A 00 EA 08 32  00 8F 20 3A 20 2A 46 52  |AD *...2.. : *FR|
000000D0: 4F 4D 20 54 48 45 20 46  52 41 5A 5A 4C 45 44 20  |OM THE FRAZZLED |
000000E0: 4D 49 4E 44 20 4F 46 3A  20 2A 00 10 09 3C 00 8F  |MIND OF: *...<..|
000000F0: 20 3A 20 2A 44 4F 55 47  20 45 20 50 45 54 45 52  | : *DOUG E PETER|
00000100: 53 20 20 20 20 2D 28 31  53 54 20 50 52 47 29 2A  |S    -(1ST PRG)*|
00000110: 00 36 09 46 00 8F 20 3A  20 2A 52 45 2D 56 41 4D  |.6.F.. : *RE-VAM|
00000120: 50 45 44 3A 20 4A 55 4E  45 20 31 20 31 39 38 38  |PED: JUNE 1 1988|
00000130: 20 20 20 20 20 2A 00 5C  09 50 00 8F 20 3A 20 2A  |     *.\.P.. : *|
00000140: 43 4F 4D 50 4C 45 54 45  44 3A 4A 55 4E 45 20 39  |COMPLETED:JUNE 9|
00000150: 20 2D 56 45 52 53 2E 20  31 2E 32 2A 00 82 09 5A  | -VERS. 1.2*...Z|
00000160: 00 8F 20 3A 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. : ***********|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000180: 2A 2A 00 A8 09 64 00 8F  20 3A 20 49 4E 54 52 4F  |**...d.. : INTRO|
00000190: 20 26 20 49 4E 46 4F 20  20 20 20 20 20 20 20 20  | & INFO         |
000001A0: 20 20 20 20 20 20 20 2A  00 E3 09 6E 00 8D 31 34  |       *...n..14|
000001B0: 33 30 3A 99 22 93 9C 12  2A 2A 2A 46 4F 52 4D 41  |30:."...***FORMA|
000001C0: 54 20 43 4F 4E 54 52 4F  4C 2A 2A 2A 2A 2A 2A 2A  |T CONTROL*******|
000001D0: 2A 2A 56 45 52 53 49 4F  4E 20 31 2E 32 2A 2A 2A  |**VERSION 1.2***|
000001E0: 9A 11 22 00 14 0A 78 00  99 22 11 41 55 54 4F 20  |.."...x..".AUTO |
000001F0: 46 4F 52 4D 41 54 20 57  49 54 48 20 41 55 54 4F  |FORMAT WITH AUTO|
00000200: 2D 4C 4F 41 44 20 46 4F  52 20 4E 45 58 54 20 44  |-LOAD FOR NEXT D|
00000210: 49 53 4B 22 00 31 0A 82  00 99 A3 31 32 29 22 42  |ISK".1.....12)"B|
00000220: 59 20 44 4F 55 47 20 50  45 54 45 52 53 11 11 11  |Y DOUG PETERS...|
00000230: 22 00 57 0A 8C 00 8F 20  3A 20 41 42 4F 52 54 20  |".W.... : ABORT |
00000240: 49 4E 53 54 52 55 43 54  49 4F 4E 53 20 20 20 20  |INSTRUCTIONS    |
00000250: 20 20 20 20 20 20 2A 00  9A 0A 96 00 99 A3 33 29  |      *.......3)|
00000260: 22 54 4F 20 41 42 4F 52  54 20 41 54 20 41 4E 59  |"TO ABORT AT ANY|
00000270: 54 49 4D 45 2C 20 50 55  53 48 20 96 12 20 53 54  |TIME, PUSH .. ST|
00000280: 4F 50 20 98 92 11 22 3A  81 20 44 4C B2 2E 20 A4  |OP ...":. DL.. .|
00000290: 20 31 30 30 30 3A 82 20  44 4C 00 DF 0A A0 00 99  | 1000:. DL......|
000002A0: A3 31 31 29 22 28 27 52  55 4E 2F 53 54 4F 50 27  |.11)"('RUN/STOP'|
000002B0: 20 4B 45 59 29 11 22 3A  99 22 1D 1D 1D 1D 2A 45  | KEY).":."....*E|
000002C0: 58 43 45 50 54 20 57 48  45 4E 20 50 52 4F 4D 50  |XCEPT WHEN PROMP|
000002D0: 54 45 44 20 46 4F 52 20  49 4E 50 55 54 2A 22 00  |TED FOR INPUT*".|
000002E0: F2 0A AA 00 81 44 4C B2  2E A4 31 35 30 30 3A 82  |.....DL...1500:.|
000002F0: 44 4C 00 18 0B B4 00 8F  3A 20 44 49 53 4B 20 43  |DL......: DISK C|
00000300: 48 41 4E 47 45 20 53 45  51 55 45 4E 43 45 20 20  |HANGE SEQUENCE  |
00000310: 20 20 20 20 20 20 20 2A  00 4C 0B BE 00 99 22 93  |       *.L....".|
00000320: 11 96 52 45 4D 4F 56 45  20 46 4F 52 4D 41 54 20  |..REMOVE FORMAT |
00000330: 43 4F 4E 54 52 4F 4C 20  44 49 53 4B 20 46 52 4F  |CONTROL DISK FRO|
00000340: 4D 20 44 52 49 56 45 20  30 98 11 22 00 70 0B C8  |M DRIVE 0..".p..|
00000350: 00 99 A3 31 33 29 22 28  44 45 56 49 43 45 2D 38  |...13)"(DEVICE-8|
00000360: 29 11 11 22 3A 81 44 4C  B2 2E A4 38 30 30 3A 82  |)..":.DL...800:.|
00000370: 00 B6 0B D2 00 99 22 1E  49 4E 53 45 52 54 20 44  |......".INSERT D|
00000380: 49 53 4B 20 54 4F 20 42  45 20 46 4F 52 4D 41 54  |ISK TO BE FORMAT|
00000390: 54 45 44 20 49 4E 54 4F  20 44 52 49 56 45 20 30  |TED INTO DRIVE 0|
000003A0: 98 22 3A 99 A3 31 33 29  22 28 44 45 56 49 43 45  |.":..13)"(DEVICE|
000003B0: 2D 38 29 11 11 22 00 D9  0B DC 00 81 44 4C B2 2E  |-8).."......DL..|
000003C0: A4 37 35 30 3A 82 20 44  4C 3A 81 4D 54 B2 2E A4  |.750:. DL:.MT...|
000003D0: 39 3A A1 58 24 3A 82 4D  54 00 04 0C E6 00 99 A3  |9:.X$:.MT.......|
000003E0: 35 29 22 9E 57 48 45 4E  20 44 49 53 4B 20 53 57  |5)".WHEN DISK SW|
000003F0: 41 50 20 49 53 20 43 4F  4D 50 4C 45 54 45 2E 2E  |AP IS COMPLETE..|
00000400: 2E 98 11 22 00 3C 0C F0  00 99 22 1D 1E 50 52 45  |...".<...."..PRE|
00000410: 53 53 20 9C 12 20 43 54  52 4C 20 1E 92 20 54 4F  |SS .. CTRL .. TO|
00000420: 20 46 4F 52 4D 41 54 20  44 49 53 4B 20 49 4E 20  | FORMAT DISK IN |
00000430: 44 52 49 56 45 20 30 98  11 11 11 22 00 5A 0C FA  |DRIVE 0....".Z..|
00000440: 00 99 A3 31 30 29 22 9E  49 4D 50 4F 52 54 41 4E  |...10)".IMPORTAN|
00000450: 54 21 21 21 2E 2E 2E 2E  2E 22 00 79 0C 04 01 99  |T!!!.....".y....|
00000460: A3 31 30 29 22 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |.10)"...........|
00000470: A3 9F 22 3A 8D 31 34 32  30 00 A9 0C 0E 01 99 22  |..":.1420......"|
00000480: 41 4C 4C 20 46 49 4C 45  53 20 4F 4E 20 54 48 49  |ALL FILES ON THI|
00000490: 53 20 44 49 53 4B 20 57  49 4C 4C 20 42 45 20 45  |S DISK WILL BE E|
000004A0: 52 41 53 45 44 21 21 21  22 00 BC 0C 18 01 81 4D  |RASED!!!"......M|
000004B0: 54 B2 2E A4 31 30 3A A1  58 24 3A 82 00 EF 0C 22  |T...10:.X$:...."|
000004C0: 01 99 A3 33 29 22 96 50  52 45 53 53 20 9C 12 20  |...3)".PRESS .. |
000004D0: 53 48 49 46 54 20 96 92  20 54 4F 20 4E 45 47 41  |SHIFT .. TO NEGA|
000004E0: 54 45 20 46 4F 52 4D 41  54 54 45 52 11 11 22 00  |TE FORMATTER..".|
000004F0: 07 0D 2C 01 41 46 B2 C2  28 36 35 33 29 3A 8B 41  |..,.AF..(653):.A|
00000500: 46 B2 30 A7 33 30 30 00  15 0D 36 01 8B 41 46 B2  |F.0.300...6..AF.|
00000510: 31 89 33 34 30 00 23 0D  40 01 8B 41 46 B2 34 89  |1.340.#.@..AF.4.|
00000520: 33 39 30 00 2D 0D 4A 01  89 20 32 34 30 00 5D 0D  |390.-.J.. 240.].|
00000530: 54 01 99 A3 31 30 29 22  93 46 4F 52 4D 41 54 20  |T...10)".FORMAT |
00000540: 54 45 52 4D 49 4E 41 54  45 44 11 11 22 3A 81 20  |TERMINATED..":. |
00000550: 44 4C B2 2E A4 31 32 30  30 3A 82 44 4C 00 8C 0D  |DL...1200:.DL...|
00000560: 5E 01 99 22 1D 41 55 54  4F 2D 4C 4F 41 44 20 49  |^..".AUTO-LOAD I|
00000570: 53 20 53 54 49 4C 4C 20  41 56 41 49 4C 41 42 4C  |S STILL AVAILABL|
00000580: 45 20 54 4F 20 59 4F 55  21 11 11 22 00 9F 0D 68  |E TO YOU!.."...h|
00000590: 01 81 44 4C B2 2E A4 31  32 35 30 3A 82 44 4C 00  |..DL...1250:.DL.|
000005A0: A8 0D 72 01 89 37 34 30  00 C1 0D 7C 01 8F 3A 20  |..r..740...|..: |
000005B0: 46 49 4C 45 4E 41 4D 45  20 53 45 51 55 45 4E 43  |FILENAME SEQUENC|
000005C0: 45 00 F1 0D 86 01 99 22  1D 95 44 49 53 4B 4E 41  |E......"..DISKNA|
000005D0: 4D 45 20 43 41 4E 4E 4F  54 20 42 45 20 4F 56 45  |ME CANNOT BE OVE|
000005E0: 52 20 31 36 20 43 48 41  52 41 43 54 45 52 53 11  |R 16 CHARACTERS.|
000005F0: 22 00 35 0E 90 01 99 22  1C 1D 1D 1D 44 4F 20 4E  |".5...."....DO N|
00000600: 4F 54 20 55 53 45 3A 11  22 3A 99 22 43 4F 4D 4D  |OT USE:.":."COMM|
00000610: 41 53 2C 20 43 4F 4C 4F  4E 53 3A 4F 52 3B 20 45  |AS, COLONS:OR; E|
00000620: 51 55 41 4C 53 3D 20 57  49 4C 44 43 41 52 44 53  |QUALS= WILDCARDS|
00000630: 2A 4F 52 3F 22 00 55 0E  9A 01 99 A3 31 34 29 22  |*OR?".U.....14)"|
00000640: 4F 52 20 51 55 4F 54 45  53 22 C7 28 33 34 29 22  |OR QUOTES".(34)"|
00000650: 20 21 21 21 22 00 66 0E  A4 01 99 A3 32 39 29 22  | !!!".f.....29)"|
00000660: 11 11 5E 91 91 22 00 91  0E AE 01 97 31 39 2C 31  |..^.."......19,1|
00000670: 3A 85 22 54 59 50 45 20  44 49 53 4B 4E 41 4D 45  |:."TYPE DISKNAME|
00000680: 3A 22 3B 44 4E 24 3A 97  31 39 2C 2E 3A 99 22 11  |:";DN$:.19,.:.".|
00000690: 22 00 CF 0E B8 01 97 31  39 2C 31 3A 85 22 54 59  |"......19,1:."TY|
000006A0: 50 45 20 49 2E 44 2E 20  43 4F 44 45 20 2D 55 53  |PE I.D. CODE -US|
000006B0: 45 20 4F 4E 4C 59 20 32  20 43 48 41 52 41 43 54  |E ONLY 2 CHARACT|
000006C0: 45 52 53 3A 22 3B 49 44  24 3A 97 31 39 2C 2E 00  |ERS:";ID$:.19,..|
000006D0: EF 0E C2 01 44 49 52 24  B2 C8 28 44 4E 24 2C 31  |....DIR$..(DN$,1|
000006E0: 36 29 AA 22 2C 22 AA C8  28 49 44 24 2C 32 29 00  |6).","..(ID$,2).|
000006F0: 20 0F CC 01 99 A3 35 29  22 11 11 11 11 11 11 11  | .....5)".......|
00000700: 11 11 49 53 20 44 49 53  4B 4E 41 4D 45 20 26 20  |..IS DISKNAME & |
00000710: 49 2E 44 2E 20 43 4F 52  52 45 43 54 3F 11 11 22  |I.D. CORRECT?.."|
00000720: 00 5B 0F D6 01 99 22 11  11 1D 1D 1D 9C 12 20 43  |.[...."....... C|
00000730: 54 52 4C 20 98 92 20 3D  46 49 4E 45 20 20 41 4E  |TRL .. =FINE  AN|
00000740: 44 20 20 9C 12 20 53 48  49 46 54 20 98 92 20 3D  |D  .. SHIFT .. =|
00000750: 4E 45 47 41 54 45 98 11  11 11 22 00 73 0F E0 01  |NEGATE....".s...|
00000760: 99 A3 31 30 29 44 49 52  24 22 11 11 11 11 11 11  |..10)DIR$"......|
00000770: 11 11 22 00 88 0F EA 01  81 4D 54 B2 2E A4 20 39  |.."......MT... 9|
00000780: 3A A1 58 24 3A 82 4D 54  00 A0 0F F4 01 41 46 B2  |:.X$:.MT.....AF.|
00000790: C2 28 36 35 33 29 3A 8B  41 46 B2 31 89 34 32 30  |.(653):.AF.1.420|
000007A0: 00 AE 0F FE 01 8B 41 46  B2 34 89 35 34 30 00 B8  |......AF.4.540..|
000007B0: 0F 08 02 89 20 35 30 30  00 DE 0F 12 02 8F 20 3A  |.... 500...... :|
000007C0: 20 44 49 53 4B 2F 44 49  52 45 43 54 4F 52 59 2D  | DISK/DIRECTORY-|
000007D0: 57 52 49 54 45 2F 45 52  41 53 45 3F 20 2A 00 0E  |WRITE/ERASE? *..|
000007E0: 10 1C 02 99 22 1D 49 46  20 44 49 53 4B 20 48 41  |....".IF DISK HA|
000007F0: 53 20 42 45 45 4E 20 46  4F 52 4D 41 54 54 45 44  |S BEEN FORMATTED|
00000800: 20 50 52 45 56 49 4F 55  53 4C 59 11 11 22 00 34  | PREVIOUSLY..".4|
00000810: 10 26 02 99 A3 37 29 22  41 4E 44 20 59 4F 55 20  |.&...7)"AND YOU |
00000820: 57 41 4E 54 20 54 4F 20  4B 45 45 50 20 49 2E 44  |WANT TO KEEP I.D|
00000830: 2E 11 11 22 00 65 10 30  02 99 A3 35 29 22 9E 50  |...".e.0...5)".P|
00000840: 52 45 53 53 20 9C 12 20  53 48 49 46 54 20 9E 92  |RESS .. SHIFT ..|
00000850: 20 54 4F 20 4B 45 45 50  20 4F 4C 44 20 49 2E 44  | TO KEEP OLD I.D|
00000860: 2E 1E 11 11 22 00 8B 10  3A 02 8F 20 3A 20 46 4F  |...."...:.. : FO|
00000870: 52 4D 41 54 20 53 45 51  55 45 4E 43 45 20 20 20  |RMAT SEQUENCE   |
00000880: 20 20 20 20 20 20 20 20  20 20 2A 00 CD 10 44 02  |          *...D.|
00000890: 99 22 1D 49 46 20 4E 4F  54 2C 20 50 52 45 53 53  |.".IF NOT, PRESS|
000008A0: 20 9C 12 20 43 54 52 4C  20 1E 92 20 54 4F 20 46  | .. CTRL .. TO F|
000008B0: 49 4E 41 4C 49 5A 45 3A  11 11 22 3A 99 A3 31 30  |INALIZE:..":..10|
000008C0: 29 44 49 52 24 22 1C 11  11 11 11 11 22 00 E1 10  |)DIR$"......"...|
000008D0: 4E 02 81 4D 54 B2 2E A4  39 3A A1 58 24 3A 82 4D  |N..MT...9:.X$:.M|
000008E0: 54 00 F9 10 58 02 41 46  B2 C2 28 36 35 33 29 3A  |T...X.AF..(653):|
000008F0: 8B 41 46 B2 31 89 36 37  30 00 07 11 62 02 8B 41  |.AF.1.670...b..A|
00000900: 46 B2 34 89 36 33 30 00  10 11 6C 02 89 36 30 30  |F.4.630...l..600|
00000910: 00 3B 11 76 02 99 22 93  11 11 11 11 11 11 11 11  |.;.v..".........|
00000920: 11 11 11 1D 1D 1D 46 4F  52 4D 41 54 54 49 4E 47  |......FORMATTING|
00000930: 3A 22 44 49 52 24 22 2E  2E 2E 22 00 45 11 80 02  |:"DIR$"...".E...|
00000940: 8D 31 34 35 30 00 5B 11  8A 02 98 31 35 2C 22 4E  |.1450.[....15,"N|
00000950: 30 3A 22 44 49 52 24 3A  A0 31 35 00 65 11 94 02  |0:"DIR$:.15.e...|
00000960: 89 20 37 31 30 00 97 11  9E 02 99 22 93 11 11 11  |. 710......"....|
00000970: 11 11 11 11 11 11 11 11  1D 1D 1D 1D 1D 46 4F 52  |.............FOR|
00000980: 4D 41 54 54 49 4E 47 3A  22 C8 28 44 4E 24 2C 31  |MATTING:".(DN$,1|
00000990: 36 29 22 2E 2E 2E 22 00  A1 11 A8 02 8D 31 34 35  |6)"..."......145|
000009A0: 30 00 BC 11 B2 02 98 31  35 2C 22 4E 30 3A 22 C8  |0......15,"N0:".|
000009B0: 28 44 4E 24 2C 31 36 29  3A A0 31 35 00 E1 11 BC  |(DN$,16):.15....|
000009C0: 02 8F 20 3A 20 44 49 53  4B 20 43 48 41 4E 47 45  |.. : DISK CHANGE|
000009D0: 20 53 45 51 55 45 4E 43  45 20 20 20 20 20 20 20  | SEQUENCE       |
000009E0: 2A 00 1A 12 C6 02 99 A3  38 29 22 11 11 11 11 11  |*.......8)".....|
000009F0: 11 11 11 1F 4D 49 53 53  49 4F 4E 20 41 43 43 4F  |....MISSION ACCO|
00000A00: 4D 50 4C 49 53 48 45 44  21 11 11 11 11 11 11 11  |MPLISHED!.......|
00000A10: 11 11 11 22 3A 8D 31 34  32 30 00 57 12 D0 02 81  |...":.1420.W....|
00000A20: 44 4C B2 2E A4 37 35 30  3A 82 44 4C 3A 8D 31 33  |DL...750:.DL:.13|
00000A30: 34 30 3A 99 A3 35 29 22  98 57 48 45 4E 20 54 48  |40:..5)".WHEN TH|
00000A40: 45 20 44 52 49 56 45 20  53 54 4F 50 53 20 52 55  |E DRIVE STOPS RU|
00000A50: 4E 4E 49 4E 47 11 22 00  83 12 DA 02 99 A3 34 29  |NNING.".......4)|
00000A60: 22 41 4E 44 20 54 48 45  20 1C 52 45 44 98 20 44  |"AND THE .RED. D|
00000A70: 52 49 56 45 20 4C 49 47  48 54 20 49 53 20 4F 55  |RIVE LIGHT IS OU|
00000A80: 54 11 22 00 B3 12 E4 02  99 22 1D 1D 1D 99 49 4E  |T."......"....IN|
00000A90: 53 45 52 54 20 54 48 45  20 4E 45 58 54 20 44 49  |SERT THE NEXT DI|
00000AA0: 53 4B 20 46 4F 52 20 41  55 54 4F 2D 4C 4F 41 44  |SK FOR AUTO-LOAD|
00000AB0: 11 11 22 00 D6 12 EE 02  99 A3 31 31 29 22 05 54  |..".......11)".T|
00000AC0: 48 45 4E 2D 1E 20 50 55  53 48 20 41 4E 59 20 4B  |HEN-. PUSH ANY K|
00000AD0: 45 59 11 11 11 22 00 08  13 F8 02 99 22 9B 20 46  |EY..."......". F|
00000AE0: 4F 52 20 41 4E 4F 54 48  45 52 20 50 52 4F 47 52  |OR ANOTHER PROGR|
00000AF0: 41 4D 4D 45 52 27 53 20  44 49 53 4B 46 49 58 2E  |AMMER'S DISKFIX.|
00000B00: 2E 2E 2E 2E 2E 9F 11 22  00 50 13 02 03 99 22 1D  |.......".P....".|
00000B10: 1D 1D 49 4E 53 45 52 54  20 54 48 45 20 44 49 53  |..INSERT THE DIS|
00000B20: 4B 20 54 4F 20 42 45 20  46 4F 52 4D 41 54 54 45  |K TO BE FORMATTE|
00000B30: 44 11 22 3A 99 A3 31 30  29 22 26 20 50 52 45 53  |D.":..10)"& PRES|
00000B40: 53 20 9C 12 20 43 54 52  4C 20 9B 92 11 11 11 22  |S .. CTRL ....."|
00000B50: 00 68 13 0C 03 52 45 B2  C2 28 36 35 33 29 3A 8B  |.h...RE..(653):.|
00000B60: 52 45 B2 34 89 32 33 30  00 7B 13 16 03 A1 41 24  |RE.4.230.{....A$|
00000B70: 3A 8B 41 24 B2 22 22 89  37 38 30 00 89 13 20 03  |:.A$."".780... .|
00000B80: 8B 52 45 B2 34 89 32 33  30 00 AE 13 2A 03 8F 20  |.RE.4.230...*.. |
00000B90: 3A 20 4C 4F 41 44 45 52  20 53 45 51 55 45 4E 43  |: LOADER SEQUENC|
00000BA0: 45 20 20 20 20 20 20 20  20 20 20 20 20 2A 00 D8  |E            *..|
00000BB0: 13 34 03 99 A3 34 29 22  54 4F 20 4C 4F 41 44 20  |.4...4)"TO LOAD |
00000BC0: 41 20 42 41 53 49 43 20  4C 41 4E 47 55 41 47 45  |A BASIC LANGUAGE|
00000BD0: 20 46 49 4C 45 3A 11 22  00 FB 13 3E 03 99 A3 31  | FILE:."...>...1|
00000BE0: 30 29 22 50 52 45 53 53  20 54 48 45 20 1F 12 20  |0)"PRESS THE .. |
00000BF0: 42 20 98 92 20 4B 45 59  11 11 22 00 27 14 48 03  |B .. KEY..".'.H.|
00000C00: 99 22 1D 1D 1D 54 4F 20  4C 4F 41 44 20 41 20 4D  |."...TO LOAD A M|
00000C10: 41 43 48 49 4E 45 20 4C  41 4E 47 55 41 47 45 20  |ACHINE LANGUAGE |
00000C20: 46 49 4C 45 3A 11 22 00  42 14 52 03 99 A3 31 34  |FILE:.".B.R...14|
00000C30: 29 22 50 52 45 53 53 20  1F 12 20 4D 20 98 92 11  |)"PRESS .. M ...|
00000C40: 11 22 00 74 14 5C 03 99  22 9B 1D 46 4F 52 20 44  |.".t.\.."..FOR D|
00000C50: 49 52 45 43 54 4F 52 59  20 48 4F 4C 44 20 44 4F  |IRECTORY HOLD DO|
00000C60: 57 4E 20 54 48 45 20 1F  12 20 53 48 49 46 54 20  |WN THE .. SHIFT |
00000C70: 05 92 11 22 00 90 14 66  03 99 A3 31 32 29 22 53  |..."...f...12)"S|
00000C80: 49 4D 55 4C 54 41 4E 45  4F 55 53 4C 59 11 11 22  |IMULTANEOUSLY.."|
00000C90: 00 C0 14 70 03 99 22 1D  9A 49 46 20 54 48 45 20  |...p.."..IF THE |
00000CA0: 50 52 4F 47 52 41 4D 20  54 4F 20 41 43 43 45 53  |PROGRAM TO ACCES|
00000CB0: 53 20 52 45 51 55 49 52  45 53 20 54 48 45 11 22  |S REQUIRES THE."|
00000CC0: 00 F4 14 7A 03 99 A3 39  29 22 46 49 4C 45 4E 41  |...z...9)"FILENA|
00000CD0: 4D 45 2C 20 50 55 53 48  20 9C 12 20 46 20 31 20  |ME, PUSH .. F 1 |
00000CE0: 98 92 11 11 11 22 3A 81  4D 54 B2 2E A4 39 3A A1  |.....":.MT...9:.|
00000CF0: 58 24 3A 82 00 0D 15 84  03 41 46 B2 C2 28 36 35  |X$:......AF..(65|
00000D00: 33 29 3A 8B 41 46 B2 34  89 31 31 35 30 00 21 15  |3):.AF.4.1150.!.|
00000D10: 8E 03 A1 46 24 3A 8B 20  46 24 B2 22 22 89 39 30  |...F$:. F$."".90|
00000D20: 30 00 31 15 98 03 8B 46  24 B2 22 42 22 89 39 38  |0.1....F$."B".98|
00000D30: 30 00 42 15 A2 03 8B 46  24 B2 22 C2 22 89 31 30  |0.B....F$.".".10|
00000D40: 31 30 00 53 15 AC 03 8B  46 24 B2 22 4D 22 89 31  |10.S....F$."M".1|
00000D50: 30 34 30 00 64 15 B6 03  8B 46 24 B2 22 CD 22 89  |040.d....F$.".".|
00000D60: 31 30 37 30 00 73 15 C0  03 8B 41 46 B2 34 89 31  |1070.s....AF.4.1|
00000D70: 31 35 30 00 7C 15 CA 03  89 38 32 30 00 92 15 D4  |150.|....820....|
00000D80: 03 99 22 93 11 11 11 11  11 11 11 11 11 11 11 11  |..".............|
00000D90: 11 22 00 B5 15 DE 03 99  A3 37 29 22 4C 4F 41 44  |.".......7)"LOAD|
00000DA0: 49 4E 47 20 42 41 53 49  43 20 50 52 4F 47 52 41  |ING BASIC PROGRA|
00000DB0: 4D 2E 2E 2E 22 00 C0 15  E8 03 89 20 31 31 30 30  |M..."...... 1100|
00000DC0: 00 D6 15 F2 03 99 22 93  11 11 11 11 11 11 11 11  |......".........|
00000DD0: 11 11 11 11 11 22 00 FF  15 FC 03 99 A3 36 29 22  |.....".......6)"|
00000DE0: 4C 4F 41 44 49 4E 47 20  42 41 53 49 43 20 44 49  |LOADING BASIC DI|
00000DF0: 52 45 43 54 4F 52 59 2E  2E 2E 11 11 11 11 22 00  |RECTORY.......".|
00000E00: 0E 16 06 04 8D 31 33 34  30 3A 89 37 34 30 00 24  |.....1340:.740.$|
00000E10: 16 10 04 99 22 93 11 11  11 11 11 11 11 11 11 11  |...."...........|
00000E20: 11 11 11 22 00 52 16 1A  04 99 A3 32 29 22 4C 4F  |...".R.....2)"LO|
00000E30: 41 44 49 4E 47 20 4D 41  43 48 49 4E 45 20 4C 41  |ADING MACHINE LA|
00000E40: 4E 47 55 41 47 45 20 50  52 4F 47 52 41 4D 2E 2E  |NGUAGE PROGRAM..|
00000E50: 2E 22 00 5D 16 24 04 89  20 31 31 31 30 00 73 16  |.".].$.. 1110.s.|
00000E60: 2E 04 99 22 93 11 11 11  11 11 11 11 11 11 11 11  |..."............|
00000E70: 11 11 22 00 A1 16 38 04  99 22 1D 4C 4F 41 44 49  |.."...8..".LOADI|
00000E80: 4E 47 20 4D 41 43 48 49  4E 45 20 4C 41 4E 47 55  |NG MACHINE LANGU|
00000E90: 41 47 45 20 44 49 52 45  43 54 4F 52 59 2E 2E 2E  |AGE DIRECTORY...|
00000EA0: 22 00 B0 16 42 04 8D 31  33 34 30 3A 89 37 34 30  |"...B..1340:.740|
00000EB0: 00 C4 16 4C 04 8B 41 B2  2E A7 41 B2 31 3A 93 22  |...L..A...A.1:."|
00000EC0: 2A 22 2C 38 00 DA 16 56  04 8B 41 B2 2E A7 41 B2  |*",8...V..A...A.|
00000ED0: 31 3A 93 22 2A 22 2C 38  2C 31 00 E0 16 60 04 AC  |1:."*",8,1...`..|
00000EE0: 00 E6 16 6A 04 AC 00 0B  17 74 04 8F 20 3A 20 4C  |...j.....t.. : L|
00000EF0: 4F 41 44 20 22 46 49 4C  45 4E 41 4D 45 22 20 53  |OAD "FILENAME" S|
00000F00: 45 51 55 45 4E 43 45 20  20 20 2A 00 37 17 7E 04  |EQUENCE   *.7.~.|
00000F10: 99 22 93 22 A3 34 29 22  11 11 11 54 59 50 45 20  |.".".4)"...TYPE |
00000F20: 46 49 4C 45 4E 41 4D 45  20 41 53 20 52 45 51 55  |FILENAME AS REQU|
00000F30: 49 52 45 44 11 11 22 00  78 17 88 04 97 31 39 2C  |IRED..".x....19,|
00000F40: 31 3A 85 22 9A 54 59 50  45 20 46 49 4C 45 4E 41  |1:.".TYPE FILENA|
00000F50: 4D 45 20 2D 55 53 45 20  4E 4F 20 51 55 4F 54 45  |ME -USE NO QUOTE|
00000F60: 53 3A 11 9D 9D 9D 9D 9D  9D 3A 22 3B 46 4C 24 3A  |S:.......:";FL$:|
00000F70: 97 31 39 2C 2E 3A 99 3A  00 A7 17 92 04 99 A3 32  |.19,.:.:.......2|
00000F80: 29 22 42 41 53 49 43 20  4F 52 20 4D 41 43 48 49  |)"BASIC OR MACHI|
00000F90: 4E 45 20 4C 41 4E 47 55  41 47 45 20 50 52 4F 47  |NE LANGUAGE PROG|
00000FA0: 52 41 4D 3F 11 11 22 00  DA 17 9C 04 99 A3 31 31  |RAM?..".......11|
00000FB0: 29 22 50 52 45 53 53 20  1E 12 20 42 20 9E 92 20  |)"PRESS .. B .. |
00000FC0: 4F 52 20 9C 12 20 4D 20  9A 92 11 22 3A 81 4D 54  |OR .. M ...":.MT|
00000FD0: B2 2E A4 39 3A A1 58 24  3A 82 00 F0 17 A6 04 A1  |...9:.X$:.......|
00000FE0: 41 46 24 3A 8B 41 46 24  B2 22 22 A7 31 31 39 30  |AF$:.AF$."".1190|
00000FF0: 00 07 18 B0 04 8B 41 46  24 B2 22 4D 22 A7 41 B2  |......AF$."M".A.|
00001000: 31 3A 89 31 32 33 30 00  1E 18 BA 04 8B 41 46 24  |1:.1230......AF$|
00001010: B2 22 42 22 A7 41 B2 32  3A 89 31 32 33 30 00 29  |."B".A.2:.1230.)|
00001020: 18 C4 04 89 20 31 31 37  30 00 54 18 CE 04 99 22  |.... 1170.T...."|
00001030: 11 11 11 05 49 53 20 46  49 4C 45 4E 41 4D 45 20  |....IS FILENAME |
00001040: 41 53 20 52 45 51 55 49  52 45 44 3F 22 46 4C 24  |AS REQUIRED?"FL$|
00001050: 22 11 11 22 00 73 18 D8  04 99 A3 31 31 29 22 9C  |"..".s.....11)".|
00001060: 12 20 43 54 52 4C 20 1E  92 20 3D 20 46 49 4E 45  |. CTRL .. = FINE|
00001070: 11 11 22 00 95 18 E2 04  99 A3 31 31 29 22 9C 12  |..".......11)"..|
00001080: 20 53 48 49 46 54 20 96  92 20 3D 20 4E 4F 50 45  | SHIFT .. = NOPE|
00001090: 21 11 11 11 22 00 AF 18  EC 04 41 46 B2 C2 28 36  |!...".....AF..(6|
000010A0: 35 33 29 3A 8B 20 41 46  B2 30 A7 31 32 36 30 00  |53):. AF.0.1260.|
000010B0: BE 18 F6 04 8B 41 46 B2  31 89 31 31 35 30 00 CC  |.....AF.1.1150..|
000010C0: 18 00 05 8B 41 46 B2 34  89 37 38 30 00 D7 18 0A  |....AF.4.780....|
000010D0: 05 89 20 31 32 33 30 00  0F 19 14 05 8B 41 B2 32  |.. 1230......A.2|
000010E0: A7 99 22 93 22 A3 32 29  22 11 11 11 11 11 11 11  |..".".2)".......|
000010F0: 11 11 11 4C 4F 41 44 49  4E 47 20 42 41 53 49 43  |...LOADING BASIC|
00001100: 20 50 52 47 3A 1D 22 46  4C 24 22 2E 2E 2E 22 00  | PRG:."FL$"...".|
00001110: 23 19 1E 05 8B 41 B2 32  A7 41 B2 2E 3A 93 46 4C  |#....A.2.A..:.FL|
00001120: 24 2C 38 00 58 19 28 05  8B 41 B2 31 A7 99 22 93  |$,8.X.(..A.1..".|
00001130: 1D 11 11 11 11 11 11 11  11 11 11 4C 4F 41 44 49  |...........LOADI|
00001140: 4E 47 20 4D 41 43 48 20  58 20 50 52 4F 3A 1D 22  |NG MACH X PRO:."|
00001150: 46 4C 24 22 2E 2E 2E 22  00 6E 19 32 05 8B 41 B2  |FL$"...".n.2..A.|
00001160: 31 A7 41 B2 2E 3A 93 46  4C 24 2C 38 2C 31 00 A1  |1.A..:.FL$,8,1..|
00001170: 19 3C 05 99 22 93 9A 12  20 20 20 3E 3E 3E 3E 53  |.<.."...   >>>>S|
00001180: 48 49 46 54 3C 3C 3C 3C  20 54 4F 20 50 41 55 53  |HIFT<<<< TO PAUS|
00001190: 45 20 20 4C 49 53 54 49  4E 47 20 20 20 20 20 20  |E  LISTING      |
000011A0: 22 00 D5 19 46 05 99 22  91 1F 12 20 20 3E 3E 3E  |"...F.."...  >>>|
000011B0: 53 48 49 46 54 4C 4F 43  4B 3C 3C 3C 20 46 4F 52  |SHIFTLOCK<<< FOR|
000011C0: 20 48 41 4E 44 53 2D 4F  46 46 20 50 41 55 53 45  | HANDS-OFF PAUSE|
000011D0: 20 20 20 98 22 00 F3 19  50 05 8D 31 34 34 30 3A  |   ."...P..1440:|
000011E0: 4C 43 B2 32 36 3A A1 23  38 2C 44 24 3A A1 23 38  |LC.26:.#8,D$:.#8|
000011F0: 2C 44 24 00 21 1A 5A 05  A1 23 38 2C 44 24 3A A1  |,D$.!.Z..#8,D$:.|
00001200: 23 38 2C 44 24 3A A1 23  38 2C 44 24 3A 42 41 B2  |#8,D$:.#8,D$:BA.|
00001210: C6 28 44 24 AA C7 28 30  29 29 3A A1 23 38 2C 44  |.(D$..(0)):.#8,D|
00001220: 24 00 5B 1A 64 05 42 41  B2 42 41 AA 32 35 36 AC  |$.[.d.BA.BA.256.|
00001230: C6 28 44 24 AA C7 28 30  29 29 3A 4E 24 B2 22 22  |.(D$..(0)):N$.""|
00001240: 3A 81 51 B2 31 A4 4C 43  3A A1 23 38 2C 44 24 3A  |:.Q.1.LC:.#8,D$:|
00001250: 8B 53 54 B3 B1 2E 89 31  34 30 30 00 8C 1A 6E 05  |.ST....1400...n.|
00001260: 4E 24 B2 4E 24 AA 44 24  3A 82 51 3A 99 42 41 3B  |N$.N$.D$:.Q:.BA;|
00001270: 4E 24 3A 4C 43 B2 32 38  3A 92 36 35 33 2C 31 2C  |N$:LC.28:.653,1,|
00001280: 31 3A 8B 53 54 B2 2E 89  31 33 37 30 00 97 1A 78  |1:.ST...1370...x|
00001290: 05 99 42 41 3B 4E 24 00  B7 1A 82 05 A0 31 35 3A  |..BA;N$......15:|
000012A0: A0 38 3A 92 36 35 33 2C  31 2C 31 3A 8D 31 34 32  |.8:.653,1,1:.142|
000012B0: 30 3A 99 3A 99 3A 8E 00  F0 1A 8C 05 97 35 34 32  |0:.:.:.......542|
000012C0: 37 33 2C 37 30 3A 97 35  34 32 37 38 2C 32 34 39  |73,70:.54278,249|
000012D0: 3A 97 35 34 32 39 36 2C  31 35 3A 97 35 34 32 37  |:.54296,15:.5427|
000012E0: 36 2C 31 37 3A 97 35 34  32 37 36 2C 31 36 3A 8E  |6,17:.54276,16:.|
000012F0: 00 0A 1B 96 05 97 35 33  32 38 31 2C 42 4B 3A 97  |......53281,BK:.|
00001300: 35 33 32 38 30 2C 42 44  3A 8E 00 2C 1B A0 05 A0  |53280,BD:..,....|
00001310: 31 35 3A A0 38 3A 9F 31  35 2C 38 2C 31 35 3A 9F  |15:.8:.15,8,15:.|
00001320: 38 2C 38 2C 30 2C 22 24  30 22 3A 8E 00 3F 1B AA  |8,8,0,"$0":..?..|
00001330: 05 A0 31 35 3A 9F 31 35  2C 38 2C 31 35 3A 8E 00  |..15:.15,8,15:..|
00001340: 45 1B B4 05 3A 00 8F 1B  BE 05 44 4F 55 47 20 50  |E...:.....DOUG P|
00001350: 45 54 45 52 53 20 20 31  32 37 20 47 49 52 41 52  |ETERS  127 GIRAR|
00001360: 44 20 41 56 45 2E 20 20  20 20 20 20 20 20 20 20  |D AVE.          |
00001370: 20 20 48 41 52 54 81 44  2C 20 20 43 91 4E 45 43  |  HART.D,  C.NEC|
00001380: 54 AB 49 AB 43 55 54 20  20 20 30 36 31 30 35 00  |T.I.CUT   06105.|
00001390: 95 1B C8 05 3A 00 B5 1B  D2 05 4F 54 48 45 52 20  |....:.....OTHER |
000013A0: 50 52 4F 47 52 41 4D 53  20 49 4E 20 54 48 45 20  |PROGRAMS IN THE |
000013B0: 57 B0 4B 53 21 00 CB 1B  DC 05 8F 45 4D 42 45 52  |W.KS!......EMBER|
000013C0: 20 54 4F 20 57 52 49 54  45 20 21 00 00 00        | TO WRITE !...  |
..).... :   UPLOADED TO Q-LINK    -7/6/8
8.P.... :*******************************
.W.... :******FORMAT CONTROL V1.2******.
..... :*******************************.D
.(.. : *AUTO-FORMAT WITH AUTO LOAD *...2
.. : *FROM THE FRAZZLED MIND OF: *...<..
 : *DOUG E PETERS    -(1ST PRG)*.6.F.. :
 *RE-VAMPED: JUNE 1 1988     *.\.P.. : *
COMPLETED:JUNE 9 -VERS. 1.2*...Z.. : ***
**************************...D.. : INTRO
 & INFO                *...N..1430:."...
***FORMAT CONTROL*********VERSION 1.2***
.."...X..".AUTO FORMAT WITH AUTO-LOAD FO
R NEXT DISK".1.....12)"BY DOUG PETERS...
".W.... : ABORT INSTRUCTIONS          *.
......3)"TO ABORT AT ANYTIME, PUSH .. ST
OP ...":. DL.. . 1000:. DL... ...11)"('R
UN/STOP' KEY).":."....*EXCEPT WHEN PROMP
TED FOR INPUT*"......DL...1500:.DL......
: DISK CHANGE SEQUENCE         *.L....".
..REMOVE FORMAT CONTROL DISK FROM DRIVE 
0..".P.H...13)"(DEVICE-8)..":.DL...800:.
...R..".INSERT DISK TO BE FORMATTED INTO
 DRIVE 0.":..13)"(DEVICE-8)..".Y....DL..
.750:. DL:.MT...9:.X$:.MT.......5)".WHEN
 DISK SWAP IS COMPLETE.....".<...."..PRE
SS .. CTRL .. TO FORMAT DISK IN DRIVE 0.
...".Z.....10)".IMPORTANT!!!.....".Y....
.10)".............":.1420......"ALL FILE
S ON THIS DISK WILL BE ERASED!!!"......M
T...10:.X$:...."...3)".PRESS .. SHIFT ..
 TO NEGATE FORMATTER.."...,.AF.B(653):.A
F.0.300...6..AF.1.340.#.@..AF.4.390.-.J.
. 240.].T...10)".FORMAT TERMINATED..":. 
DL...1200:.DL...^..".AUTO-LOAD IS STILL 
AVAILABLE TO YOU!.."...H..DL...1250:.DL.
..R..740.A.|..: FILENAME SEQUENCE......"
..DISKNAME CANNOT BE OVER 16 CHARACTERS.
".5...."....DO NOT USE:.":."COMMAS, COLO
NS:OR; EQUALS= WILDCARDS*OR?".U.....14)"
OR QUOTES"G(34)" !!!".F.....29)"..^.."..
....19,1:."TYPE DISKNAME:";DN$:.19,.:.".
".O....19,1:."TYPE I.D. CODE -USE ONLY 2
 CHARACTERS:";ID$:.19,....B.DIR$.H(DN$,1
6).",".H(ID$,2). .L...5)".........IS DIS
KNAME & I.D. CORRECT?..".[.V.."....... C
TRL .. =FINE  AND  .. SHIFT .. =NEGATE..
..".S.....10)DIR$"........"......MT... 9
:.X$:.MT. ...AF.B(653):.AF.1.420......AF
.4.540...... 500...... : DISK/DIRECTORY-
WRITE/ERASE? *......".IF DISK HAS BEEN F
ORMATTED PREVIOUSLY..".4.&...7)"AND YOU 
WANT TO KEEP I.D...".E.0...5)".PRESS .. 
SHIFT .. TO KEEP OLD I.D...."...:.. : FO
RMAT SEQUENCE             *.M.D..".IF NO
T, PRESS .. CTRL .. TO FINALIZE:..":..10
)DIR$"......"...N..MT...9:.X$:.MT...X.AF
.B(653):.AF.1.670...B..AF.4.630...L..600
.;.V.."...............FORMATTING:"DIR$".
..".E....1450.[....15,"N0:"DIR$: 15.E...
. 710......".................FORMATTING:
"H(DN$,16)"..."......1450......15,"N0:"H
(DN$,16): 15...... : DISK CHANGE SEQUENC
E       *...F...8)".........MISSION ACCO
MPLISHED!..........":.1420.W.P..DL...750
:.DL:.1340:..5)".WHEN THE DRIVE STOPS RU
NNING."...Z...4)"AND THE .RED. DRIVE LIG
HT IS OUT."......"....INSERT THE NEXT DI
SK FOR AUTO-LOAD..".V.....11)".THEN-. PU
SH ANY KEY..."......". FOR ANOTHER PROGR
AMMER'S DISKFIX........".P...."...INSERT
 THE DISK TO BE FORMATTED.":..10)"& PRES
S .. CTRL .....".H...RE.B(653):.RE.4.230
.{....A$:.A$."".780... ..RE.4.230...*.. 
: LOADER SEQUENCE            *.X.4...4)"
TO LOAD A BASIC LANGUAGE FILE:."...>...1
0)"PRESS THE .. B .. KEY..".'.H.."...TO 
LOAD A MACHINE LANGUAGE FILE:.".B.R...14
)"PRESS .. M ....".T.\.."..FOR DIRECTORY
 HOLD DOWN THE .. SHIFT ..."...F...12)"S
IMULTANEOUSLY.."...P.."..IF THE PROGRAM 
TO ACCESS REQUIRES THE."...Z...9)"FILENA
ME, PUSH .. F 1 .....":.MT...9:.X$:.....
.AF.B(653):.AF.4.1150.!....F$:. F$."".90
0.1....F$."B".980.B....F$."B".1010.S....
F$."M".1040.D....F$."M".1070.S....AF.4.1
150.|.J..820...T..".............."......
.7)"LOADING BASIC PROGRAM..."...... 1100
.V...."..............".......6)"LOADING 
BASIC DIRECTORY......."......1340:.740.$
...."..............".R.....2)"LOADING MA
CHINE LANGUAGE PROGRAM...".].$.. 1110.S.
...".............."...8..".LOADING MACHI
NE LANGUAGE DIRECTORY..."...B..1340:.740
.D.L..A...A.1:."*",8.Z.V..A...A.1:."*",8
,1...`.....J.....T.. : LOAD "FILENAME" S
EQUENCE   *.7.~..".".4)"...TYPE FILENAME
 AS REQUIRED..".X....19,1:.".TYPE FILENA
ME -USE NO QUOTES:.......:";FL$:.19,.:.:
.......2)"BASIC OR MACHINE LANGUAGE PROG
RAM?..".Z.....11)"PRESS .. B .. OR .. M 
...":.MT...9:.X$:.......AF$:.AF$."".1190
......AF$."M".A.1:.1230......AF$."B".A.2
:.1230.).D.. 1170.T.N.."....IS FILENAME 
AS REQUIRED?"FL$"..".S.X...11)".. CTRL .
. = FINE..".......11)".. SHIFT .. = NOPE
!...".....AF.B(653):. AF.0.1260......AF.
1.1150.L....AF.4.780.W.... 1230......A.2
..".".2)"..........LOADING BASIC PRG:."F
L$"...".#....A.2.A..:.FL$,8.X.(..A.1..".
...........LOADING MACH X PRO:."FL$"..."
.N.2..A.1.A..:.FL$,8,1...<.."...   >>>>S
HIFT<<<< TO PAUSE  LISTING      ".U.F.."
...  >>>SHIFTLOCK<<< FOR HANDS-OFF PAUSE
   ."...P..1440:LC.26:.#8,D$:.#8,D$.!.Z.
.#8,D$:.#8,D$:.#8,D$:BA.F(D$.G(0)):.#8,D
$.[.D.BA.BA.256.F(D$.G(0)):N$."":.Q.1.LC
:.#8,D$:.ST....1400...N.N$.N$.D$:.Q:.BA;
N$:LC.28:.653,1,1:.ST...1370...X..BA;N$.
.... 15: 8:.653,1,1:.1420:.:.:.......542
73,70:.54278,249:.54296,15:.54276,17:.54
276,16:.......53281,BK:.53280,BD:..,. . 
15: 8:.15,8,15:.8,8,0,"$0":..?... 15:.15
,8,15:..E...:.....DOUG PETERS  127 GIRAR
D AVE.            HART.D,  C.NECT.I.CUT 
  06105...H.:...R.OTHER PROGRAMS IN THE 
W.KS!.K....EMBER TO WRITE !...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL