home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / texts / boxes / phonegen.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1993-06-13  |  2KB  |  85 lines
  1. '
  2. ' CCITT #5 R1/R2 Phonebook Generator
  3. '
  4. PRINT "generating phonebook"
  5. OPEN "o",#2,"Ph_book1.txt"
  6. OPEN "o",#1,"Ph_book1.rom"
  7. RESTORE phonebook
  8. FOR t#=0 TO 15
  9.   READ a$,t$
  10.   a$=UPPER$(a$)
  11.   PRINT a$,t# AND 7,t$
  12.   PRINT #2,STR$(t# AND 7);" - ";t$
  13.   b$=MID$(a$,1,1)
  14.   IF b$="A"
  15.     PRINT #1,CHR$(1);
  16.   ELSE IF b$="B"
  17.     PRINT #1,CHR$(2);
  18.   ELSE IF b$="P"
  19.     PRINT #1,CHR$(0);
  20.   ELSE IF b$="N"
  21.     PRINT #1,CHR$(3);
  22.   ENDIF
  23.   FOR i#=2 TO 16
  24.     b$=MID$(a$,i#,1)
  25.     IF b$="0"
  26.       PRINT #1,CHR$(0);
  27.     ELSE IF b$="1"
  28.       PRINT #1,CHR$(1);
  29.     ELSE IF b$="2"
  30.       PRINT #1,CHR$(2);
  31.     ELSE IF b$="3"
  32.       PRINT #1,CHR$(3);
  33.     ELSE IF b$="4"
  34.       PRINT #1,CHR$(4);
  35.     ELSE IF b$="5"
  36.       PRINT #1,CHR$(5);
  37.     ELSE IF b$="6"
  38.       PRINT #1,CHR$(6);
  39.     ELSE IF b$="7"
  40.       PRINT #1,CHR$(7);
  41.     ELSE IF b$="8"
  42.       PRINT #1,CHR$(8);
  43.     ELSE IF b$="9"
  44.       PRINT #1,CHR$(9);
  45.     ELSE IF b$="A"
  46.       PRINT #1,CHR$(&HA);
  47.     ELSE IF b$="B"
  48.       PRINT #1,CHR$(&HB)
  49.     ELSE IF b$="C"
  50.       PRINT #1,CHR$(&HC)
  51.     ELSE IF b$="D"
  52.       PRINT #1,CHR$(&HD);
  53.     ELSE IF b$="E"
  54.       PRINT #1,CHR$(&HE);
  55.     ELSE IF b$="H"
  56.       PRINT #1,CHR$(&HF);
  57.     ELSE IF b$=" "
  58.       PRINT #1,CHR$(32);
  59.     ENDIF
  60.   NEXT i#
  61. NEXT t#
  62. CLOSE #1
  63. CLOSE #2
  64. PRINT "done.."
  65. REM enter your phonenumbers here. Max of 16 numbers may be stored in the dialer
  66. REM (local example: DATA "A18095630000    ","MTV-Partyline")
  67. REM (int.  example: DATA "B46018262804    ","Eagles Nest")
  68. phonebook:
  69. DATA "PD              ","Code 11 Int. Oper"
  70. DATA "PE              ","Code 12 Int. Oper"
  71. DATA "                ","                 "
  72. DATA "                ","                 "
  73. DATA "                ","                 "
  74. DATA "                ","                 "
  75. DATA "                ","                 "
  76. DATA "                ","                 "
  77. DATA "                ","                 "
  78. DATA "                ","                 "
  79. DATA "                ","                 "
  80. DATA "                ","                 "
  81. DATA "                ","                 "
  82. DATA "                ","                 "
  83. DATA "                ","                 "
  84. DATA "                ","                 "
  85.