home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / inter42.doc / ngconver.bas < prev    next >
Encoding:
BASIC Source File  |  1994-07-14  |  18.2 KB  |  396 lines

  1. '******************************************************************************
  2. '*                                                                            *
  3. '* Norton Guide Formatting Program                                            *
  4. '*                                                                            *
  5. '* Written By: David Ehrlich                                                  *
  6. '*             DME Systems Specialties                                        *
  7. '*             Copyright 1994                                                 *
  8. '*                                                                            *
  9. '* Designed to work with Ralf Browns Interrupt List version 41                *
  10. '*                                                                            *
  11. '******************************************************************************
  12.  
  13. filenames$ = "in"
  14. i% = 1
  15. CLS
  16. IF DIR$("INTERRUP.1ST") = "" THEN
  17.    CLS
  18.    PRINT "NORTON GUIDE FORMAT PROGRAM VERSION 1.0"
  19.    PRINT
  20.    PRINT "THE FILE 'INTERRUP.1ST' MUST BE IN THE CURRENT DIRECTORY"
  21.    END
  22. END IF
  23.  
  24. INFILE$ = "INTERRUP."
  25. filenum% = 0
  26.  
  27. IF DIR$(INFILE$ + CHR$(65 + filenum%)) = "" THEN
  28.    CLS
  29.    PRINT "NORTON GUIDE FORMAT PROGRAM VERSION 1.0"
  30.    PRINT
  31.    PRINT "YOU MUST HAVE THE FILES INTERRUP.? IN THE CURRENT"
  32.    PRINT "DIRECTORY TO RUN THIE PROGRAM"
  33.    PRINT
  34.    END
  35. END IF
  36.  
  37. OPEN "i", #1, INFILE$ + CHR$(65 + filenum%)
  38. LN$ = ""
  39. WHILE NOT EOF(1) AND LEFT$(LN$, 12) <> "--------C-00"
  40.       LINE INPUT #1, LN$
  41. WEND
  42. shortcount% = 0
  43. extra% = 0
  44. WHILE 1
  45.  
  46.    IF LEFT$(LN$, 8) <> "--------" THEN
  47.       LINE INPUT #1, LN$
  48.    END IF
  49.  
  50.    IF LEFT$(LN$, 8) = "--------" THEN
  51.  
  52.       IF MID$(LN$, 11, 2) <> OLDINT$ THEN
  53.          IF MID$(LN$, 11, 2) = "--" THEN
  54.             CLOSE #1
  55.             filenum% = filenum% + 1
  56.             IF DIR$(INFILE$ + CHR$(65 + filenum%)) = "" THEN GOTO ENDLOOP
  57.             OPEN "i", #1, INFILE$ + CHR$(65 + filenum%)
  58.             LN$ = ""
  59.             WHILE NOT EOF(1) AND LEFT$(LN$, 8) <> "--------"
  60.                LINE INPUT #1, LN$
  61.             WEND
  62.          END IF
  63.          IF OLDINT$ <> MID$(LN$, 11, 2) THEN
  64.             cntr% = cntr% + 1
  65.             CLOSE #2
  66.             OPEN "o", #2, filenames$ + MID$(LN$, 11, 2)
  67.             extra% = 0
  68.             shortcount% = 0
  69.             PRINT filenames$ + MID$(LN$, 11, 2)
  70.             REDIM PRESERVE menu$(cntr%)
  71.             menu$(cntr%) = filenames$ + MID$(LN$, 11, 2)
  72.          END IF
  73.          OLDINT$ = MID$(LN$, 11, 2)
  74.       END IF
  75.  
  76.       IF shortcount% >= 200 THEN
  77.          PRINT #2, "!short ^bInterrupt " + OLDINT$ + " continued in next section...^b"
  78.          CLOSE #2
  79.          cntr% = cntr% + 1
  80.          extra% = extra% + 1
  81.          OPEN "o", #2, filenames$ + OLDINT$ + LTRIM$(STR$(extra%))
  82.          PRINT filenames$ + OLDINT$ + LTRIM$(STR$(extra%))
  83.          shortcount% = 0
  84.          REDIM PRESERVE menu$(cntr%)
  85.          menu$(cntr%) = filenames$ + OLDINT$ + LTRIM$(STR$(extra%))
  86.       END IF
  87.  
  88.       LINE INPUT #1, LN$
  89.       PRINT #2, "!short " + LN$
  90.  
  91.       shortcount% = shortcount% + 1
  92.       OldTitle$ = LN$
  93.       Size% = 0
  94.       Part% = 1
  95.  
  96.       IF NOT EOF(1) THEN
  97.          LINE INPUT #1, LN$
  98.          WHILE LEFT$(LN$, 8) <> "--------" AND NOT EOF(1)
  99.             IF Size% + LEN(LN$) >= 12 * 1024 THEN
  100.                Part% = Part% + 1
  101.                PRINT #2, "!short " + OldTitle$ + " (Part" + STR$(Part%) + ")"
  102.                shortcount% = shortcount% + 1
  103.                'PRINT OldTitle$ + " (Part" + STR$(Part%) + ")"
  104.                Size% = 0
  105.             END IF
  106.  
  107.             TCHK% = 0
  108.  
  109.             TOKEN$ = "SeeAlso:"
  110.             TLEN% = LEN(TOKEN$)
  111.             IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  112.                LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  113.                TCHK% = 1
  114.             END IF
  115.  
  116.             IF TCHK% = 0 THEN
  117.                TOKEN$ = "Return:"
  118.                TLEN% = LEN(TOKEN$)
  119.                IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  120.                   LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  121.                   TCHK% = 1
  122.                END IF
  123.  
  124.                IF TCHK% = 0 THEN
  125.                   TOKEN$ = "Desc:"
  126.                   TLEN% = LEN(TOKEN$)
  127.                   IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  128.                      LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  129.                      TCHK% = 1
  130.                   END IF
  131.  
  132.                   IF TCHK% = 0 THEN
  133.                      TOKEN$ = "Note:"
  134.                      TLEN% = LEN(TOKEN$)
  135.                      IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  136.                         LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  137.                         TCHK% = 1
  138.                      END IF
  139.  
  140.                      IF TCHK% = 0 THEN
  141.                         TOKEN$ = "Notes:"
  142.                         TLEN% = LEN(TOKEN$)
  143.                         IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  144.                            LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  145.                            TCHK% = 1
  146.                         END IF
  147.  
  148.                         IF TCHK% = 0 THEN
  149.                            TOKEN$ = "Program:"
  150.                            TLEN% = LEN(TOKEN$)
  151.                            IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  152.                               LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  153.                               TCHK% = 1
  154.                            END IF
  155.  
  156.                            IF TCHK% = 0 THEN
  157.                               TOKEN$ = "Range:"
  158.                               TLEN% = LEN(TOKEN$)
  159.                               IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  160.                                  LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  161.                                  TCHK% = 1
  162.                               END IF
  163.  
  164.                               IF TCHK% = 0 THEN
  165.                                  TOKEN$ = "Index:"
  166.                                  TLEN% = LEN(TOKEN$)
  167.                                  IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  168.                                     LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  169.                                     TCHK% = 1
  170.                                  END IF
  171.  
  172.                                  IF TCHK% = 0 THEN
  173.                                     TOKEN$ = "BUG:"
  174.                                     TLEN% = LEN(TOKEN$)
  175.                                     IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  176.                                        LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  177.                                        TCHK% = 1
  178.                                     END IF
  179.  
  180.                                     IF TCHK% = 0 THEN
  181.                                        TOKEN$ = "Warning:"
  182.                                        TLEN% = LEN(TOKEN$)
  183.                                        IF LEFT$(LN$, TLEN%) = TOKEN$ THEN
  184.                                           LN$ = "^B" + TOKEN$ + "^B" + MID$(LN$, TLEN% + 1)
  185.                                           TCHK% = 1
  186.                                        END IF
  187.                                     END IF
  188.                                  END IF
  189.                               END IF
  190.                            END IF
  191.                         END IF
  192.                      END IF
  193.                   END IF
  194.                END IF
  195.             END IF
  196.  
  197.             PRINT #2, LN$
  198.             Size% = Size% + LEN(LN$)
  199.             LINE INPUT #1, LN$
  200.          WEND
  201.       END IF
  202.    END IF
  203. WEND
  204.  
  205. ENDLOOP:
  206.  
  207. CLOSE
  208.  
  209. mastname$ = "rbcred"
  210.  
  211. OPEN "i", #1, "INTERRUP.1ST"
  212. LINE INPUT #1, in16data$
  213. filenum% = 1
  214. OPEN "o", #2, mastname$ + LTRIM$(STR$(filenum%))
  215. PRINT mastname$ + CHR$(64 + filenum%)
  216. LN$ = ""
  217. WHILE NOT EOF(1) AND LEFT$(LN$, 21) <> "--------!---COPYRIGHT"
  218.        LINE INPUT #1, LN$
  219. WEND
  220. Size% = 0
  221. LN$ = ""
  222. WHILE NOT EOF(1)
  223.    LINE INPUT #1, LN$
  224.    IF Size% + LEN(LN$) >= 12 * 1024 THEN
  225.       CLOSE #2
  226.       filenum% = filenum% + 1
  227.       OPEN "o", #2, mastname$ + LTRIM$(STR$(filenum%))
  228.       PRINT mastname$ + CHR$(64 + filenum%)
  229.       Size% = 0
  230.    END IF
  231.    PRINT #2, LN$
  232.    Size% = Size% + LEN(LN$)
  233. WEND
  234. CLOSE
  235.  
  236. OPEN "o", #1, "CREDIT"
  237. Part1$ = LEFT$(in16data$, 15)
  238. Part2$ = MID$(in16data$, INSTR(in16data$, "R"), 10)
  239. Part3$ = MID$(in16data$, INSTR(in16data$, "Last"))
  240. PRINT #1, "                        "; Part1$
  241. PRINT #1, "        "; Part2$; "  "; Part3$
  242. PRINT #1, "                Copyright (c) 1989-94 ^bRalf Brown^b"
  243. PRINT #1, "                Norton Guide Formatting done by"
  244. PRINT #1, "                       ^b^rDavid Ehrlich^r^b"
  245. PRINT #1, "                   ^b^rDME Systems Specialties^r^b"
  246. CLOSE
  247.  
  248. OPEN "o", #1, "rbcred"
  249. FOR i = 1 TO filenum%
  250.    PRINT #1, "!short Ralphs Credit List - Part"; i
  251.    PRINT #1, "!file:rbcred" + LTRIM$(STR$(i)) + ".ngo"
  252. NEXT
  253. CLOSE
  254.  
  255. OPEN "o", #1, "interrup.bat"
  256. FOR i = 1 TO cntr%
  257.    PRINT #1, "ngc " + menu$(i)
  258. NEXT
  259. FOR i = 1 TO filenum%
  260.    PRINT #1, "ngc rbcred" + LTRIM$(STR$(i))
  261. NEXT
  262. PRINT #1, "NGC rbcred"
  263. PRINT #1, "NGC inmaster"
  264. PRINT #1, "NGC inASCII"
  265. PRINT #1, "NGC LINES"
  266. PRINT #1, "NGC CREDIT"
  267. PRINT #1, "ngml INTER"
  268. CLOSE
  269.  
  270. OPEN "o", #1, "inmaster"
  271. m% = 0
  272.  
  273. FOR i = 1 TO cntr%
  274.    PRINT #1, "!short: INT " + UCASE$(mid$(menu$(i), 3,2));
  275.    IF VAL(MID$(menu$(i), 5, 1)) > 0 THEN
  276.       PRINT #1, " (Part"; VAL(MID$(menu$(i), 5, 1)) + 1; ")"
  277.    ELSE
  278.       PRINT #1, ""
  279.    END IF
  280.    PRINT #1, "!file:" + menu$(i) + ".ngo"
  281. NEXT
  282.  
  283. CLOSE
  284.  
  285. OPEN "o", #1, "inter"
  286. PRINT #1, "!name: Interrupt List"
  287. PRINT #1, "!credits:"
  288. PRINT #1, "                        "; Part1$
  289. PRINT #1, "        "; Part2$; "  "; Part3$
  290. PRINT #1, "                   Copyright (c) 1989-94 ^bRalf Brown^b"
  291. PRINT #1, "                Norton Guide Formatting done by"
  292. PRINT #1, "            ^b^rDavid Ehrlich - DME Systems Specialties^r^b"
  293. PRINT #1, ""
  294. PRINT #1, "!menu  Interrupts"
  295. PRINT #1, "       Interrupts                        inmaster.ngo"
  296. PRINT #1, "!menu  Tables"
  297. PRINT #1, "       ASCII Chart                       inascii.ngo"
  298. PRINT #1, "       Box Characters                    lines.ngo"
  299. PRINT #1, "       NG Credits                        credit.ngo"
  300. PRINT #1, "       RB Credits                        rbcred.ngo"
  301. CLOSE
  302.  
  303. OPEN "o", #1, "inASCII"
  304. PRINT #1, "Dec   Hex  Char         Dec   Hex  Char   Dec   Hex  Char   Dec   Hex  Char"
  305. PRINT #1, "  0   00h   ^b^c00^b   NUL  │   64   40h   ^b@^b  │  128   80h   ^bÇ^b  │  192   C0h   ^b└^b"
  306. PRINT #1, "  1   01h   ^b^b   SOH  │   65   41h   ^bA^b  │  129   81h   ^bü^b  │  193   C1h   ^b┴^b"
  307. PRINT #1, "  2   02h   ^b^b   STX  │   66   42h   ^bB^b  │  130   82h   ^bé^b  │  194   C2h   ^b┬^b"
  308. PRINT #1, "  3   03h   ^b^b   ETX  │   67   43h   ^bC^b  │  131   83h   ^bâ^b  │  195   C3h   ^b├^b"
  309. PRINT #1, "  4   04h   ^b^b   EOT  │   68   44h   ^bD^b  │  132   84h   ^bä^b  │  196   C4h   ^b─^b"
  310. PRINT #1, "  5   05h   ^b^b   ENQ  │   69   45h   ^bE^b  │  133   85h   ^bà^b  │  197   C5h   ^b┼^b"
  311. PRINT #1, "  6   06h   ^b^b   ACK  │   70   46h   ^bF^b  │  134   86h   ^bå^b  │  198   C6h   ^b╞^b"
  312. PRINT #1, "  7   07h   ^b^b   BEL  │   71   47h   ^bG^b  │  135   87h   ^bç^b  │  199   C7h   ^b╟^b"
  313. PRINT #1, "  8   08h   ^b^b   BS   │   72   48h   ^bH^b  │  136   88h   ^bê^b  │  200   C8h   ^b╚^b"
  314. PRINT #1, "  9   09h   ^b^C09^b   HT   │   73   49h   ^bI^b  │  137   89h   ^bë^b  │  201   C9h   ^b╔^b"
  315. PRINT #1, " 10   0Ah   ^b^C0A^b   LF   │   74   4Ah   ^bJ^b  │  138   8Ah   ^bè^b  │  202   CAh   ^b╩^b"
  316. PRINT #1, " 11   0Bh   ^b^C0B^b   VT   │   75   4Bh   ^bK^b  │  139   8Bh   ^bï^b  │  203   CBh   ^b╦^b"
  317. PRINT #1, " 12   0Ch   ^b^C0C^b   FF   │   76   4Ch   ^bL^b  │  140   8Ch   ^bî^b  │  204   CCh   ^b╠^b"
  318. PRINT #1, " 13   0Dh   ^b^C0D^b   CR   │   77   4Dh   ^bM^b  │  141   8Dh   ^bì^b  │  205   CDh   ^b═^b"
  319. PRINT #1, " 14   0Eh   ^b^b   SO   │   78   4Eh   ^bN^b  │  142   8Eh   ^bÄ^b  │  206   CEh   ^b╬^b"
  320. PRINT #1, " 15   0Fh   ^b^b   SI   │   79   4Fh   ^bO^b  │  143   8Fh   ^bÅ^b  │  207   CFh   ^b╧^b"
  321. PRINT #1, " 16   10h   ^b^b   DLE  │   80   50h   ^bP^b  │  144   90h   ^bÉ^b  │  208   D0h   ^b╨^b"
  322. PRINT #1, " 17   11h   ^b^b   DC1  │   81   51h   ^bQ^b  │  145   91h   ^bæ^b  │  209   D1h   ^b╤^b"
  323. PRINT #1, " 18   12h   ^b^b   DC2  │   82   52h   ^bR^b  │  146   92h   ^bÆ^b  │  210   D2h   ^b╥^b"
  324. PRINT #1, " 19   13h   ^b^b   DC3  │   83   53h   ^bS^b  │  147   93h   ^bô^b  │  211   D3h   ^b╙^b"
  325. PRINT #1, " 20   14h   ^b^b   DC4  │   84   54h   ^bT^b  │  148   94h   ^bö^b  │  212   D4h   ^b╘^b"
  326. PRINT #1, " 21   15h   ^b^b   NAK  │   85   55h   ^bU^b  │  149   95h   ^bò^b  │  213   D5h   ^b╒^b"
  327. PRINT #1, " 22   16h   ^b^b   SYN  │   86   56h   ^bV^b  │  150   96h   ^bû^b  │  214   D6h   ^b╓^b"
  328. PRINT #1, " 23   17h   ^b^b   ETB  │   87   57h   ^bW^b  │  151   97h   ^bù^b  │  215   D7h   ^b╫^b"
  329. PRINT #1, " 24   18h   ^b^b   CAN  │   88   58h   ^bX^b  │  152   98h   ^bÿ^b  │  216   D8h   ^b╪^b"
  330. PRINT #1, " 25   19h   ^b^b        │   89   59h   ^bY^b  │  153   99h   ^bÖ^b  │  217   D9h   ^b┘^b"
  331. PRINT #1, " 26   1Ah   ^b" + CHR$(26) + "^b   SUB  │   90   5Ah   ^bZ^b  │  154   9Ah   ^bÜ^b  │  218   DAh   ^b┌^b"
  332. PRINT #1, " 27   1Bh   ^b" + CHR$(27) + "^b   ESC  │   91   5Bh   ^b[^b  │  155   9Bh   ^b¢^b  │  219   DBh   ^b█^b"
  333. PRINT #1, " 28   1Ch   ^b^b   FS   │   92   5Ch   ^b\^b  │  156   9Ch   ^b£^b  │  220   DCh   ^b▄^b"
  334. PRINT #1, " 29   1Dh   ^b^b   GS   │   93   5Dh   ^b]^b  │  157   9Dh   ^b¥^b  │  221   DDh   ^b▌^b"
  335. PRINT #1, " 30   1Eh   ^b^c1e^b   RS   │   94   5Eh   ^b^^^b  │  158   9Eh   ^b₧^b  │  222   DEh   ^b▐^b"
  336. PRINT #1, " 31   1Fh   ^b^b   US   │   95   5Fh   ^b_^b  │  159   9Fh   ^bƒ^b  │  223   DFh   ^b▀^b"
  337. PRINT #1, " 32   20h   ^b ^b        │   96   60h   ^b`^b  │  160   A0h   ^bá^b  │  224   E0h   ^bα^b"
  338. PRINT #1, " 33   21h   ^b!^b        │   97   61h   ^ba^b  │  161   A1h   ^bí^b  │  225   E1h   ^bß^b"
  339. PRINT #1, " 34   22h   ^b" + CHR$(34) + "^b        │   98   62h   ^bb^b  │  162   A2h   ^bó^b  │  226   E2h   ^bΓ^b"
  340. PRINT #1, " 35   23h   ^b#^b        │   99   63h   ^bc^b  │  163   A3h   ^bú^b  │  227   E3h   ^bπ^b"
  341. PRINT #1, " 36   24h   ^b$^b        │   100  64h   ^bd^b  │  164   A4h   ^bñ^b  │  228   E4h   ^bΣ^b"
  342. PRINT #1, " 37   25h   ^b%^b        │   101  65h   ^be^b  │  165   A5h   ^bÑ^b  │  229   E5h   ^bσ^b"
  343. PRINT #1, " 38   26h   ^b&^b        │   102  66h   ^bf^b  │  166   A6h   ^bª^b  │  230   E6h   ^bµ^b"
  344. PRINT #1, " 39   27h   ^b'^b        │   103  67h   ^bg^b  │  167   A7h   ^bº^b  │  231   E7h   ^bτ^b"
  345. PRINT #1, " 40   28h   ^b(^b        │   104  68h   ^bh^b  │  168   A8h   ^b¿^b  │  232   E8h   ^bΦ^b"
  346. PRINT #1, " 41   29h   ^b)^b        │   105  69h   ^bi^b  │  169   A9h   ^b⌐^b  │  233   E9h   ^bΘ^b"
  347. PRINT #1, " 42   2Ah   ^b*^b        │   106  6Ah   ^bj^b  │  170   AAh   ^b¬^b  │  234   EAh   ^bΩ^b"
  348. PRINT #1, " 43   2Bh   ^b+^b        │   107  6Bh   ^bk^b  │  171   ABh   ^b½^b  │  235   EBh   ^bδ^b"
  349. PRINT #1, " 44   2Ch   ^b,^b        │   108  6Ch   ^bl^b  │  172   ACh   ^b¼^b  │  236   ECh   ^b∞^b"
  350. PRINT #1, " 45   2Dh   ^b-^b        │   109  6Dh   ^bm^b  │  173   ADh   ^b¡^b  │  237   EDh   ^bφ^b"
  351. PRINT #1, " 46   2Eh   ^b.^b        │   110  6Eh   ^bn^b  │  174   AEh   ^b«^b  │  238   EEh   ^bε^b"
  352. PRINT #1, " 47   2Fh   ^b/^b        │   111  6Fh   ^bo^b  │  175   AFh   ^b»^b  │  239   EFh   ^b∩^b"
  353. PRINT #1, " 48   30h   ^b0^b        │   112  70h   ^bp^b  │  176   B0h   ^b░^b  │  240   F0h   ^b≡^b"
  354. PRINT #1, " 49   31h   ^b1^b        │   113  71h   ^bq^b  │  177   B1h   ^b▒^b  │  241   F1h   ^b±^b"
  355. PRINT #1, " 50   32h   ^b2^b        │   114  72h   ^br^b  │  178   B2h   ^b▓^b  │  242   F2h   ^b≥^b"
  356. PRINT #1, " 51   33h   ^b3^b        │   115  73h   ^bs^b  │  179   B3h   ^b│^b  │  243   F3h   ^b≤^b"
  357. PRINT #1, " 52   34h   ^b4^b        │   116  74h   ^bt^b  │  180   B4h   ^b┤^b  │  244   F4h   ^b⌠^b"
  358. PRINT #1, " 53   35h   ^b5^b        │   117  75h   ^bu^b  │  181   B5h   ^b╡^b  │  245   F5h   ^b⌡^b"
  359. PRINT #1, " 54   36h   ^b6^b        │   118  76h   ^bv^b  │  182   B6h   ^b╢^b  │  246   F6h   ^b÷^b"
  360. PRINT #1, " 55   37h   ^b7^b        │   119  77h   ^bw^b  │  183   B7h   ^b╖^b  │  247   F7h   ^b≈^b"
  361. PRINT #1, " 56   38h   ^b8^b        │   120  78h   ^bx^b  │  184   B8h   ^b╕^b  │  248   F8h   ^b°^b"
  362. PRINT #1, " 57   39h   ^b9^b        │   121  79h   ^by^b  │  185   B9h   ^b╣^b  │  249   F9h   ^b∙^b"
  363. PRINT #1, " 58   3Ah   ^b:^b        │   122  7Ah   ^bz^b  │  186   BAh   ^b║^b  │  250   FAh   ^b·^b"
  364. PRINT #1, " 59   3Bh   ^b;^b        │   123  7Bh   ^b{^b  │  187   BBh   ^b╗^b  │  251   FBh   ^b√^b"
  365. PRINT #1, " 60   3Ch   ^b<^b        │   124  7Ch   ^b|^b  │  188   BCh   ^b╝^b  │  252   FCh   ^bⁿ^b"
  366. PRINT #1, " 61   3Dh   ^b=^b        │   125  7Dh   ^b}^b  │  189   BDh   ^b╜^b  │  253   FDh   ^b²^b"
  367. PRINT #1, " 62   3Eh   ^b>^b        │   126  7Eh   ^b~^b  │  190   BEh   ^b╛^b  │  254   FEh   ^b■^b"
  368. PRINT #1, " 63   3Fh   ^b?^b        │   127  7Fh   ^b^b  │  191   BFh   ^b┐^b  │  255   FFh   ^b ^b"
  369. CLOSE
  370.  
  371. OPEN "o", #1, "LINES"
  372. PRINT #1, "      218   196   194    191                   201   205   203    187"
  373. PRINT #1, "        ^b┌^b────^b─^b─────^b┬^b─────^b┐^b                       ^b╔^b════^b═^b═════^b╦^b═════^b╗^b"
  374. PRINT #1, "    179 │     197  │     │ 179               186 ║     206  ║     ║ 186"
  375. PRINT #1, "        │        \ │     │                       ║        \ ║     ║"
  376. PRINT #1, "    195 ^b├^b──────────^b┼^b─────^b┤^b 180               204 ^b╠^b══════════^b╬^b═════^b╣^b 185"
  377. PRINT #1, "        │          │     │                       ║          ║     ║"
  378. PRINT #1, "        ^b└^b────^b─^b─────^b┴^b─────^b┘^b                       ^b╚^b════^b═^b═════^b╩^b═════^b╝^b"
  379. PRINT #1, "      192   196   193    217                   200   205   202    188"
  380. PRINT #1, " "
  381. PRINT #1, " "
  382. PRINT #1, " "
  383. PRINT #1, " "
  384. PRINT #1, "      213   205   209    184                   214   196   210    183"
  385. PRINT #1, "        ^b╒^b════^b═^b═════^b╤^b═════^b╕^b                       ^b╓^b────^b─^b─────^b╥^b─────^b╖^b"
  386. PRINT #1, "    179 │     216  │     │ 179               186 ║     215  ║     ║ 186"
  387. PRINT #1, "        │        \ │     │                       ║        \ ║     ║"
  388. PRINT #1, "    198 ^b╞^b══════════^b╪^b═════^b╡^b 181               199 ^b╟^b──────────^b╫^b─────^b╢^b 182"
  389. PRINT #1, "        │          │     │                       ║          ║     ║"
  390. PRINT #1, "        ^b╘^b════^b═^b═════^b╧^b═════^b╛^b                       ^b╙^b────^b─^b─────^b╨^b─────^b╜^b"
  391. PRINT #1, "      212   205   207    190                   211   196   208    189"
  392. CLOSE
  393.  
  394. SYSTEM
  395.  
  396.