home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / BUSINESS / CELLOG.ZIP / CELLOG.BAS (.txt) next >
Encoding:
GW-BASIC  |  1990-12-13  |  3.8 KB  |  126 lines
  1. 100  CLS : SC = 0
  2. 200  PRINT : PRINT : PRINT
  3. 300  DIM PN$(100) , DA$(100) , PT$(100) , CT(100)
  4. 350  CLS
  5. 400  PRINT TAB(20);"POINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINT"
  6. 500  PRINT TAB(20);"OFF                                        INKEY$"
  7. 600  PRINT TAB(20);"OFF  CELLULAR MOBILE TELEPHONE CALL LOGGER INKEY$"
  8. 700  PRINT TAB(20);"OFF                                        INKEY$"
  9. 800  PRINT TAB(20);"<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  10. 850  GOTO 10000
  11. 920  IF C$ = "N" OR C$ = "NO" THEN GOTO 980
  12. 930  OPEN "A:CALLS.SEQ" FOR INPUT AS #1
  13. 940  FOR I = 1 TO 100
  14. 950  INPUT #1, DA$(I),PN$(I),CT(I),PT$(I)
  15. 960  NEXT I
  16. 965  INPUT #1, SF,MTC
  17. 970  CLOSE #1
  18. 975  ON PIN GOTO 17100,13000
  19. 980  GOTO 350
  20. 1000  PRINT TAB(27);"";:INPUT"ENTER MONTHLY SERVICE FEE";SF
  21. 1200  PRINT TAB(27);"";:INPUT"ENTER PER MINUTE TIME CHARGE";MTC
  22. 1600  FOR I = 1 TO 100
  23. 1610   IF DA$(I) = "" THEN GOTO 1650
  24. 1630  NEXT I
  25. 1650  IF SC=0 THEN GOTO 1900
  26. 1700  SC=SC+1 : IF SC < 10 THEN GOTO 2400
  27. 1800  CLS : SC = 0
  28. 1900  PRINT TAB(30);"ENTRY # ";I
  29. 2000  PRINT TAB(5);"POINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINT"
  30. 2100  PRINT TAB(5);"OFF                                                       INKEY$"
  31. 2200  PRINT TAB(5);"OFFDATE       TIME       NUMBER CALLED         DURATION   INKEY$"
  32. 2400  PRINT TAB(5);"OFF";:INPUT DA$(I)
  33. 2500  PRINT TAB(15);"";:INPUT PT$(I)
  34. 2600  PRINT TAB(28);"";:INPUT PN$(I)
  35. 2700  PRINT TAB(49);"";:INPUT CT(I)
  36. 3000  PRINT TAB(30)"ANOTHER ENTRY";:INPUT N$
  37. 3100  IF N$ = "N" OR N$ = "NO" THEN GOTO 3200
  38. 3125  CLS
  39. 3150  GOTO 1600
  40. 3200  PRINT TAB(30)"DO YOU WANT TO SAVE ENTRIES";:INPUT S$
  41. 3400  IF S$ = "Y" OR S$ = "YES" THEN GOTO 8000
  42. 4000  REM  CALCULATION
  43. 5000  TT=0 : C1=0 : TC=0
  44. 5100  FOR I = 1 TO 100
  45. 5200  TT=TT+CT(I)
  46. 5400  C1=(TT*MTC):TC=C1+SF
  47. 5450  NEXT I
  48. 5460  IF LP = 616 THEN GOTO 13840
  49. 5475  IF LP = 717 THEN GOTO 18700
  50. 5500  CLS
  51. 6500  ON PIN2 GOTO 14100,18500
  52. 7000  GOTO 350
  53. 8000  CLS
  54. 8100  PRINT"POINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINT"
  55. 8200  PRINT"OFF                INKEY$"
  56. 8300  PRINT"OFFSAVING TO DISK  INKEY$"
  57. 8400  PRINT"OFF                INKEY$"
  58. 8500  PRINT"<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  59. 9000  OPEN "A:CALLS.SEQ" FOR OUTPUT AS #1
  60. 9100  FOR I = 1 TO 100
  61. 9200  WRITE #1, DA$(I),PN$(I),CT(I),PT$(I)
  62. 9300  NEXT I
  63. 9350  WRITE #1, SF,MTC
  64. 9400  CLOSE #1
  65. 9700  GOTO 5000
  66. 10000  PRINT TAB(10);"POINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINT       KEYTHENTHENTHENTHENTHENCLOSE"
  67. 10200  PRINT TAB(10);"OFF                                   INKEY$       OPENNOKIAOPEN"
  68. 10400  PRINT TAB(10);"OFF LIST CURRENT CHARGES     -1-      INKEY$       OPEN<UNK! {FDFD}><UNK! {FDFD}><UNK! {FDBA}>"
  69. 10600  PRINT TAB(10);"OFF ADD NEW CHARGES TO LIST  -2-      INKEY$       OPENWHILEWHILEWHILEWHILEWHILEOPEN"
  70. 10800  PRINT TAB(10);"OFF SEND REPORT TO PRINTER   -3-      INKEY$       PRESETSOUNDSOUNDSOUNDSOUNDSOUND<0xB6!>"
  71. 11000  PRINT TAB(10);"OFF EDIT OR DELETE RECORD    -4-      INKEY$       OPEN<UNK! {0002}> <UNK! {0002}> <UNK! {0002}>OPEN"
  72. 11050  PRINT TAB(10);"OFF QUIT                     -5-      INKEY$       OPEN<UNK! {0002}> <UNK! {0002}> <UNK! {0002}>OPEN"
  73. 11100  PRINT TAB(10);"OFF                                   INKEY$       OPEN<UNK! {0002}> <UNK! {0002}> <UNK! {0002}>OPEN"
  74. 11200  PRINT TAB(10);"<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>       SCREENTHENTHENTHENTHENTHENLOAD"
  75. 12000  PRINT TAB(20);"ENTER OPTION # ";:INPUT OP
  76. 12200  ON OP GOTO 12500,1000,17000,20000,30000
  77. 12500  INPUT"ENTER <1> FOR DISK OR <2> FOR CURRENT RAM";R
  78. 12600  PIN=2
  79. 12700  ON R GOTO 930,13000
  80. 13000  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  81. 13100  PRINT"OPEN                                                    OPEN"
  82. 13200  PRINT"OPEN DATE      TIME       NUMBER           DURATION     OPEN"
  83. 13250  LP = 616
  84. 13300  FOR I = 1 TO 100
  85. 13400  IF DA$(I) = "" THEN GOTO 13800
  86. 13600  PRINT "OPEN";DA$(I);TAB(12);PT$(I);TAB(24);PN$(I);TAB(42);USING"##.##";CT(I);:PRINT"       OPEN"
  87. 13800  NEXT I
  88. 13810  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  89. 13820  GOTO 4000
  90. 13840  PRINT"ERRTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENOPTION"
  91. 13850  PRINT USING"CALL    TOTAL TIME USED        ###.##  CALL";TT
  92. 13875  PRINT USING"CALL    TOTAL CHARGES DUE     ####.##  CALL";TC
  93. 14000  PRINT"ERLTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENSAVE"
  94. 15000  INPUT"HIT <ENTER> TO GO TO MENU";G$
  95. 16000  CLS: GOTO 400
  96. 17000  CLS
  97. 17050  INPUT"FROM CURRENT MEMORY (1) OR DISK (2)";D
  98. 17060  IF D=2 THEN PIN=1
  99. 17070  ON D GOTO 17100,930
  100. 17100  INPUT"PRESS <ENTER> WHEN PRINTER IS READY";R$
  101. 17200  LPRINT"DATE      TIME CALLED   PHONE #          CALL DUR."
  102. 17300  FOR I = 1 TO 100
  103. 17500  IF DA$(I)="" THEN GOTO 18000
  104. 17700  LPRINT DA$(I);TAB(10);PT$(I);TAB(23);PN$(I);TAB(42);USING"##.##";CT(I)
  105. 18000  NEXT I
  106. 18500  LPRINT : LPRINT
  107. 18600  LP = 717 : GOTO 4000
  108. 18700  LPRINT"TOTAL TIME USED  :"TT
  109. 18900  LPRINT"TOTAL CHARGES    :";TC
  110. 19000  CLS: GOTO 10000
  111. 20000  CLS
  112. 20100  INPUT"HIT <ENTER> TO LIST ENTRIES";F
  113. 20200  FOR I = 1 TO 100
  114. 20400  IF DA$(I) = "" THEN GOTO 21000
  115. 20600  PRINT I,DA$(I),PT$(I),PN$(I),CT(I)
  116. 21000  NEXT I
  117. 22000  INPUT"WHICH ENTRY DO YOU WISH TO CHANGE";I
  118. 22050  IF I=0 THEN GOTO 10000
  119. 22100  INPUT"ENTER NEW DATE";DA$(I)
  120. 22300  INPUT"ENTER NEW TIME";PT$(I)
  121. 22400  INPUT"ENTER NEW NUMBER";PN$(I)
  122. 22600  INPUT"ENTER NEW DUR.";CT(I)
  123. 23000  PRINT : PRINT : INPUT"ENTER (1) FOR ANOTHER CHANGE AND (2) TO GO TO MENU";OP
  124. 24000  ON OP GOTO 20100,350
  125. 30000  END
  126.