home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / INSTALL.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  54 lines
  1. 10  REM   ***********************
  2. 20  REM   *       INSTALL       *
  3. 30  REM   * BY FINN ERIK LOVDAL *
  4. 40  REM   * COPYRIGHT (C)  1984 *
  5. 50  REM   * BY MICROSPARC, INC. *
  6. 60  REM   * CONCORD, MA   01742 *
  7. 70  REM   ***********************
  8. 80  TEXT : POKE 34,0: POKE 216,0: HOME 
  9. 90 D$ =  CHR$(4)
  10. 100  HTAB 15: INVERSE : PRINT " INSTALL ": NORMAL : POKE 34,2: VTAB 4
  11. 110  PRINT "THIS PROGRAM WILL MODIFY 'POSTMASTER'": PRINT "SO THAT THE PROGRAM WILL WORK ON YOUR": PRINT "PRINTER."
  12. 120  PRINT : PRINT "YOUR PRINTER MUST BE CAPABLE OF": PRINT "PRINTING ENHANCED, CONDENSED, AND": PRINT "ENLARGED TYPE."
  13. 130  PRINT : PRINT "TO PROCEED, YOU WILL NEED A COPY OF": PRINT "'INSTALL' AND 'POSTMASTER' ON A NON-": PRINT "WRITE PROOTECTED DISK, AND YOUR": PRINT "PRINTER MANUAL."
  14. 140  VTAB 21: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": VTAB 23: PRINT "    HIT ANY KEY WHEN READY ..... ";: GET W$: HOME 
  15. 150  PRINT "      (EXAMPLE AT BOTTOM IS FOR": PRINT "       STANDARD PARALLEL CARD,": PRINT "       EPSON MX-80 PRINTER": POKE 34,10
  16. 160  HOME : PRINT "ENTER THE CODE FOR MAXIMUM": PRINT "CHARACTERS PER LINE:": VTAB 23: PRINT "CHR$(9)+" CHR$(34)80"N" CHR$(34): VTAB 14: INPUT "";I$
  17. 170  HOME : PRINT "ENTER THE CODE FOR TURNING": PRINT "ENHANCEMENT ON:": VTAB 23: PRINT "CHR$(27)+CHR$(69)": VTAB 14: INPUT "";T1$
  18. 180  PRINT : PRINT : PRINT "ENTER THE CODE FOR TURNING": PRINT "ENHANCEMENT OFF:": VTAB 23: PRINT "CHR$(27)+CHR$(70)": VTAB 20: INPUT "";C1$
  19. 190  HOME : PRINT "ENTER THE CODE FOR TURNING": PRINT "ENLARGEMENT ON:": VTAB 23: PRINT "CHR$(14)": VTAB 14: INPUT "";T2$
  20. 200  PRINT : PRINT : PRINT "ENTER THE CODE FOR TURNING": PRINT "ENLARGEMENT OFF:": VTAB 23: PRINT "CHR$(20)": VTAB 20: INPUT "";C2$
  21. 210  HOME : PRINT "ENTER THE CODE FOR TURNING": PRINT "CONDENSED CHARACTERS ON:": VTAB 23: PRINT "CHR$(15)": VTAB 14: INPUT "";T3$
  22. 220  PRINT : PRINT : PRINT "ENTER THE CODE FOR TURNING": PRINT "CONDENSED CHARACTERS OFF:": VTAB 23: PRINT "CHR$(18)": VTAB 20: INPUT "";C3$
  23. 230  POKE 34,2: HOME 
  24. 240  VTAB 5: PRINT "       PLEASE DOUBLE CHECK INPUT": PRINT : PRINT : PRINT 
  25. 250  PRINT "MAX CHARS:";: HTAB 20: PRINT I$
  26. 260  PRINT "ENHANCEMENT ON:";: HTAB 20: PRINT T1$
  27. 270  PRINT "            OFF:";: HTAB 20: PRINT C1$: PRINT 
  28. 280  PRINT "ENLARGEMENT ON:";: HTAB 20: PRINT T2$
  29. 290  PRINT "            OFF:";: HTAB 20: PRINT C2$: PRINT 
  30. 300  PRINT "CONDENSED ON:";: HTAB 20: PRINT T3$
  31. 310  PRINT "          OFF:";: HTAB 20: PRINT C3$
  32. 320  VTAB 23: HTAB 1: PRINT "ARE YOU SURE THIS IS CORRECT? (Y/N) ";: GET W$: IF W$ < >"Y"  AND W$ < >"N"  THEN 320
  33. 330  IF W$ = "N"  THEN  RUN 
  34. 340  HOME : VTAB 8: PRINT "MAKE SURE THAT 'POSTMASTER' IS ON THE": PRINT : PRINT "DISK IN THE CURRENT DRIVE.": PRINT : PRINT : PRINT 
  35. 350  PRINT "HIT ANY KEY TO START..... ";: GET W$: PRINT : POKE 34,20: VTAB 23
  36. 360  FOR I = 1 TO 40
  37. 370  IF  MID$ (I2$,I,3) =  CHR$(34) +"X" + CHR$(34)  THEN I2$ =  LEFT$(I2$,I -1) +"CC$" + RIGHT$(I2$, LEN(I2$) -I -2): GOTO 390
  38. 380  NEXT I
  39. 390  PRINT D$"OPEN INSTALL.EXEC"
  40. 400  PRINT D$"WRITE INSTALL.EXEC"
  41. 410  PRINT "LOAD POSTMASTER"
  42. 420  PRINT "1070 I$=";I$
  43. 430  PRINT "1080 T1$=";T1$
  44. 440  PRINT "1090 C1$=";C1$
  45. 450  PRINT "1100 T2$=";T2$
  46. 460  PRINT "1110 C2$=";C2$
  47. 470  PRINT "1120 T3$=";T3$
  48. 480  PRINT "1130 C3$=";C3$
  49. 490  PRINT "SAVE POSTMASTER"
  50. 500  PRINT "POKE 34,0"
  51. 510  PRINT "HOME"
  52. 520  PRINT "DELETE INSTALL.EXEC"
  53. 530  PRINT D$"CLOSE INSTALL.EXEC"
  54. 540  PRINT D$"EXEC INSTALL.EXEC"