home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / misc / kit.lzh / KITINIT.BAS < prev    next >
BASIC Source File  |  1994-04-04  |  4KB  |  91 lines
  1. 1 REM KITBOOT PROGRAM FOR SHAREWARE PRODUCT
  2. 2 REM (C) COPYRIGHT 1984 GNOSSOS SOFTWARE
  3. 3 REM KEEP IN TOUCH
  4. 4 REM STEVE KANTOR
  5. 5 REM NOVEMBER 1984 -- V0
  6. 6 REM last edit by Tom Karlsson 4-apr-1994 now supporting compilation...
  7. 7 REM ** ONLY RUN THIS PROGRAM ONCE, IT CREATES THE FILES
  8. 8 REM TODO.DAT, NEW.DAT, FILES.KIT, AND KIT.BAT FOR KIT.BAS TO RUN
  9. 10 KEY OFF:GOSUB 40000
  10. 100 REM TODO FILE
  11. 110 OPEN "TODO.DAT" FOR OUTPUT AS #1
  12. 120 WRITE #1,"Congratulate yourself on getting Keep in Touch!"
  13. 130 WRITE #1,"Try entering about 10 people and practice"
  14. 140 WRITE #1,"Check out the alarm clock feature"
  15. 150 WRITE #1,"Call Gnossos Software @ 202-387-0858"
  16. 155 WRITE #1,""
  17. 160 WRITE #1,"Send payment of $25-$50 for latest version"
  18. 170 WRITE #1,"and printed manual with folder"
  19. 175 WRITE #1,""
  20. 180 WRITE #1,"Try deleting this item from the list"
  21. 190 WRITE #1,""
  22. 220 CLOSE #1
  23. 300 REM FILES.KIT FILE
  24. 310 OPEN "FILES.KIT" FOR OUTPUT AS #1
  25. 320 WRITE #1,"NEW"
  26. 330 WRITE #1," 1"
  27. 340 WRITE #1,"Choose this item to create a new address book of contacts"
  28. 350 CLOSE #1
  29. 400 REM BATCH FILES
  30. 410 OPEN "KIT.BAT" FOR OUTPUT AS #1
  31. 420 PRINT #1,"DATE"
  32. 430 PRINT #1,"TIME"
  33. 440 PRINT #1,"KIT"
  34. 450 PRINT #1,"REM Please send payment of $25-50 if you like the program"
  35. 460 PRINT #1,"REM and would like the manual and regular updates"
  36. 470 PRINT #1,"REM        Thank you and keep in touch, Steve Kantor"
  37. 480 CLOSE #1
  38. 500 REM NEW.DAT
  39. 502 OPEN "NEW.DAT" FOR OUTPUT AS #1
  40. 504 WRITE #1,"Steve","Kantor","Gnossos Software","1625 R St. NW","Washington","DC","20009","202-387-0858","03/17/60","11/10/84","These are custom fields","You can change the headings ","Put comments here","Choose life","Give me a call","Enjoy!"
  41. 506 CLOSE #1
  42. 10000 CLS:GOSUB 30000:SYSTEM
  43. 30000 REM AFTER CREATING FILES
  44. 30010 CLS:PRINT
  45. 30020 PRINT "To run Keep in Touch program you need to do the following:"
  46. 30030 PRINT
  47. 30040 PRINT "   Copy GWBASIC.COM from your DOS disk to your Keep in Touch (KIT) disk"
  48. 30050 PRINT
  49. 30060 PRINT "   Only run this program, KITBOOT.BAS once!"
  50. 30070 PRINT
  51. 30080 PRINT "   Start the batchfile by typing KIT in DOS, this starts KIT.BAS"
  52. 30090 PRINT
  53. 30100 PRINT "   Using Keep in Touch, create an address book and enter data"
  54. 30110 PRINT
  55. 30120 PRINT "   TODO.DAT is the file with your To Do list"
  56. 30130 PRINT "   FILES.KIT contains the list of your address books"
  57. 30140 PRINT "   NEW.DAT is an empty address book"
  58. 30150 PRINT "   KIT.BAT is the batch file to use to start Keep in Touch"
  59. 30160 PRINT
  60. 30170 PRINT
  61. 30180 PRINT "           Good luck, call me if you have problems,"
  62. 30190 PRINT"                    Steve Kantor"
  63. 30200 PRINT:COLOR 2,0:PRINT "Press any key to return to DOS...";
  64. 30210 A$=INKEY$:IF A$="" THEN 30210
  65. 30220 RETURN
  66. 40000 REM
  67. 40010 CLS
  68. 40030 PRINT:PRINT:PRINT:COLOR 2,0
  69. 40040 PRINT "                                 Keep in Touch                    "
  70. 40050 PRINT
  71. 40060 COLOR 0,0
  72. 40070 PRINT "                        a business networking tool by"
  73. 40080 COLOR 2,0:PRINT
  74. 40090 PRINT "                               Gnossos Software":COLOR 0,0:PRINT
  75. 40100 PRINT "                    Copyright 1984  -  All Rights Reserved"
  76. 40110 PRINT "                             Version 0 - Fall 1984"
  77. 40120 PRINT:COLOR 4,0
  78. 40130 PRINT "             This program is used to create files on the disk that"
  79. 40140 PRINT "                        are required by Keep in Touch"
  80. 40150 PRINT "           When it is completed, type KIT to start Keep in Touch."
  81. 40170 PRINT:COLOR 0,0
  82. 40180 PRINT "            1625 R St. NW, Washington DC, 20009 -- (202) 387-0858"
  83. 40190 PRINT
  84. 40200 PRINT:COLOR 2,0
  85. 40210 PRINT "                               by Steve Kantor":COLOR 0,0:PRINT
  86. 40220 PRINT "             written in Canary Islands, London, and Washington DC"
  87. 40230 LOCATE 1,1:PRINT STRING$(79,"_");:LOCATE 24,1:PRINT STRING$(79,"_");
  88. 40240 FOR X=1 TO 24:LOCATE X,1:PRINT "|";:LOCATE X,79:PRINT "|";:NEXT X
  89. 40250 REM No Sound FOR X=100 TO 1000 STEP 100:SOUND X,1:NEXT
  90. 40260 RETURN
  91.