Metropoli BBS
VIEWER: format.pan MODE: BINARY (HEX)
==============================================================================================================================================
OFFSET    00 01 02 03 04 05 06 07  08 09 0A 0B 0C 0D 0E 0F  10 11 12 13 14 15 16 17  18 19 1A 1B 1C 1D 1E 1F
----------------------------------------------------------------------------------------------------------------------------------------------
00000000  20 20 20 20 20 20 20 20  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A          ************************
00000020  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 0D 0A  ******************************
00000040  20 20 20 20 20 20 20 20  2A 2A 2A 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20          ***                     
00000060  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 2A 2A 2A 0D 0A                             ***
00000080  20 20 20 20 20 20 20 20  2A 2A 2A 20 50 41 4E 20  73 63 72 69 70 74 20 66  6F 72 20 75 73 65 20 77          *** PAN script for use w
000000A0  69 74 68 20 74 68 65 20  44 4F 53 20 46 6F 72 6D  61 74 20 75 74 69 6C 69  74 79 20 2A 2A 2A 0D 0A  ith the DOS Format utility ***
000000C0  20 20 20 20 20 20 20 20  2A 2A 2A 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20          ***                     
000000E0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 2A 2A 2A 0D 0A                             ***
00000100  20 20 20 20 20 20 20 20  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A          ************************
00000120  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 0D 0A  ******************************
00000140  0D 0A 49 66 4C 6F 61 64  20 22 63 3A 5C 64 6F 73  5C 66 6F 72 6D 61 74 2E  63 6F 6D 22 0D 0A 45 6C  IfLoad "c:\dos\format.com"El
00000160  73 65 0D 0A 09 4F 75 74  70 75 74 20 22 5E 4D 5E  4A 5E 47 50 41 4E 20 69  73 20 75 6E 61 62 6C 65  seOutput "^M^J^GPAN is unable
00000180  20 74 6F 20 6C 6F 61 64  20 74 68 65 20 66 6F 72  6D 61 74 20 70 72 6F 67  72 61 6D 2E 20 20 50 6C   to load the format program.  Pl
000001A0  65 61 73 65 20 65 64 69  74 20 74 68 65 20 66 69  6C 65 20 46 4F 52 4D 41  54 2E 50 41 4E 20 61 6E  ease edit the file FORMAT.PAN an
000001C0  64 5E 4D 5E 4A 22 0D 0A  09 4F 75 74 70 75 74 20  22 63 6F 72 72 65 63 74  20 74 68 65 20 27 49 66  d^M^J"Output "correct the 'If
000001E0  4C 6F 61 64 27 20 63 6F  6D 6D 61 6E 64 20 74 6F  20 69 6E 63 6C 75 64 65  20 74 68 65 20 61 70 70  Load' command to include the app
00000200  72 6F 70 72 69 61 74 65  20 70 61 74 68 6E 61 6D  65 20 66 6F 72 20 50 41  4E 20 74 6F 5E 4D 5E 4A  ropriate pathname for PAN to^M^J
00000220  22 0D 0A 09 4F 75 74 70  75 74 20 22 6C 6F 63 61  74 65 20 74 68 65 20 66  69 6C 65 20 46 4F 52 4D  "Output "locate the file FORM
00000240  41 54 2E 43 4F 4D 20 6F  6E 20 79 6F 75 72 20 50  43 2E 22 0D 0A 09 51 75  69 74 0D 0A 45 6E 64 49  AT.COM on your PC."QuitEndI
00000260  66 0D 0A 4F 75 74 70 75  74 20 22 45 6E 74 65 72  20 64 72 69 76 65 2C 20  41 20 6F 72 20 42 3A 20  fOutput "Enter drive, A or B: 
00000280  22 0D 0A 4C 61 62 65 6C  20 74 72 79 5F 61 67 61  69 6E 0D 0A 47 65 74 4B  65 79 0D 0A 49 66 4B 65  "Label try_againGetKeyIfKe
000002A0  79 20 22 41 61 22 0D 0A  09 4F 75 74 70 75 74 20  22 41 5E 4D 5E 4A 22 0D  0A 09 47 6F 20 22 41 3A  y "Aa"Output "A^M^J"Go "A:
000002C0  22 0D 0A 09 4A 75 6D 70  20 77 61 69 74 65 72 0D  0A 45 6E 64 49 66 0D 0A  49 66 4B 65 79 20 22 42  "Jump waiterEndIfIfKey "B
000002E0  62 22 0D 0A 09 4F 75 74  70 75 74 20 22 42 5E 4D  5E 4A 22 0D 0A 09 47 6F  20 22 42 3A 22 0D 0A 09  b"Output "B^M^J"Go "B:"
00000300  4A 75 6D 70 20 77 61 69  74 65 72 0D 0A 45 6E 64  49 66 0D 0A 49 66 4B 65  79 20 22 5B 45 73 63 5D  Jump waiterEndIfIfKey "[Esc]
00000320  5E 43 22 0D 0A 09 51 75  69 74 0D 0A 45 6C 73 65  0D 0A 09 4F 75 74 70 75  74 20 22 5E 47 22 0D 0A  ^C"QuitElseOutput "^G"
00000340  09 4A 75 6D 70 20 74 72  79 5F 61 67 61 69 6E 0D  0A 45 6E 64 49 66 0D 0A  4C 61 62 65 6C 20 77 61  Jump try_againEndIfLabel wa
00000360  69 74 65 72 0D 0A 4B 65  79 20 22 5B 45 6E 74 65  72 5D 22 0D 0A 57 61 69  74 43 68 69 6C 64 0D 0A  iterKey "[Enter]"WaitChild
00000380  51 75 69 74 0D 0A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  Quit
000003A0  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  
000003C0  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  
000003E0  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  
[ RETURN TO DIRECTORY ]