home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DATATERM / STARTUP (.txt) < prev   
Encoding:
Applesoft BASIC Source Code  |  1989-03-29  |  3.1 KB  |  112 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM   <CTRL-0x0d><CTRL-0x0d><CTRL-0x0f> DataTerm Startup <CTRL-0x0e><CTRL-0x0d><CTRL-0x0f>   Menu ver 2.4   <CTRL-0x0e><CTRL-0x0d> 
  2. 25  TEXT : HOME :D$ =  CHR$(4):ROOT$ = "": FOR I = 1 TO  PEEK(640):ROOT$ = ROOT$ + CHR$( PEEK(640 +I)): NEXT : IF  LEFT$(ROOT$,1) < >"/"  THEN  PRINT D$"prefix": INPUT "";A$:ROOT$ = A$ +ROOT$
  3. 30  IF  RIGHT$(ROOT$,1) < >"/"  THEN ROOT$ =  LEFT$(ROOT$, LEN(ROOT$) -1): GOTO 30
  4. 50  IF  PEEK(49048) =  >176  AND  PEEK(49048) < = 197  THEN  GOTO 100
  5. 60  TEXT : HOME : VTAB 10
  6. 65  PRINT "DATATERM REQUIRES A 128k //E OR IIGS"
  7. 70  PRINT "COMPUTER!": PRINT 
  8. 75  PRINT "FOR A 64K //E OR ][+, USE THE ONLINE64"
  9. 80  PRINT "PROGRAM ON SIDE 2 OF THIS DISK."
  10. 95  VTAB 20: END : NEW 
  11. 100  TEXT : HOME :D$ =  CHR$(4): PRINT  CHR$(21)
  12. 110  FOR S = 0 TO 7
  13. 120 CS = 12 *4096 +S *256
  14. 130  IF  PEEK(CS +5) < >3 *16 +8  OR  PEEK(CS +7) < >16 +8  OR  PEEK(CS +11) < >1  OR  PEEK(CS +12) < >3 *16 +1  THEN 180
  15. 140  IF  PEEK(CS +253) < >174  THEN 180
  16. 150  IF  PEEK(CS +254) = 209  THEN DL$ = " 1200"
  17. 160  IF  PEEK(CS +254) = 210  THEN DL$ = " 2400"
  18. 170 SLOT = S:S = 7
  19. 180  NEXT 
  20. 190  IF SLOT = 0  THEN DL$ = "": GOTO 230
  21. 200  PRINT D$"PR#"SLOT: PRINT D$"IN#"SLOT
  22. 210  PRINT "ATS0=0"
  23. 220  PRINT D$"PR#0": PRINT D$"IN#0"
  24. 230  ONERR  GOTO 240
  25. 240  POKE 216,0
  26. 510  ONERR  GOTO 530
  27. 520  POKE 512,0: &  FRE: GOTO 520
  28. 530  POKE 216,0:D$ =  CHR$(4): HOME 
  29. 540  PRINT D$"-amperworks"
  30. 550  HOME : VTAB 5
  31. 555  ONERR  GOTO 1300
  32. 560 A$ = " AE DATALINK":B$ = " MENU ":AE$ = A$ +DL$ +B$:V = 8:H = 9
  33. 570  HOME : VTAB 1: &  STR$(40, ASC("_")): VTAB 2: &  STR$(40, ASC("_")): VTAB 2: HTAB ((40 -( LEN(AE$)))/2): INVERSE : PRINT AE$: NORMAL : POKE 34,3
  34. 580  VTAB 22: &  STR$(40, ASC("_")): POKE 35,21: HOME 
  35. 590  GOTO 1010
  36. 610  & /(ROOT$ +PGM$),AE$:PGM = 1: IF AE$ = ""  THEN  GOSUB 2000
  37. 618  TEXT : HOME : POKE 512,0: &  FRE
  38. 620  PRINT : PRINT D$;"-";PGM$: END 
  39. 630  & /(ROOT$ +"MACRO.MAKER"),AE$:PGM = 2: IF AE$ = ""  THEN  GOSUB 2000
  40. 635  TEXT : HOME : POKE 512,0: &  FRE
  41. 640  PRINT : PRINT D$;"-MACRO.MAKER": END 
  42. 650 A$ = "notes":P$ = "PRESS SPACE TO CONTINUE"
  43. 660  HOME : VTAB 1: &  STR$(40, ASC("_")): VTAB 2: &  STR$(40, ASC("_")): VTAB 2: HTAB 12: INVERSE : PRINT " NOTES / CHANGES ": NORMAL : POKE 34,3
  44. 670  VTAB 22: &  STR$(40, ASC("_")): POKE 35,21: HOME 
  45. 680  HOME : VTAB 12: PRINT "(printer MUST be in slot 1)"
  46. 690  VTAB 11: &  GET (1),"Would you like a printout (y/n)?",PTR$
  47. 700  & UCASE(PTR$): IF PTR$ = "Y"  THEN 720
  48. 710  GOTO 800
  49. 720  ONERR  GOTO 795
  50. 725  HOME : VTAB 8: PRINT "Printer Checklist:"
  51. 730  VTAB 10: HTAB 5: PRINT "Is Printer turned on?"
  52. 740  HTAB 5: PRINT "Is Paper aligned?"
  53. 750  HTAB 5: PRINT "Is Printer Online?": GOSUB 1420: GOSUB 1230
  54. 760  HOME : VTAB 11: PRINT "Now printing to SLOT 1 printer...."
  55. 765  PRINT D$;"pr#1": PRINT  CHR$(9);"80N"
  56. 768  PRINT D$;"open";A$
  57. 770  PRINT D$;"read";A$
  58. 775  &  GET LN$: PRINT LN$: GOTO 775
  59. 780  HOME : VTAB 11: PRINT "Document sent to printer.": GOSUB 1220
  60. 790  HOME : GOTO 560
  61. 795  &  ONERR E,L: PRINT D$"PR#0": PRINT D$"CLOSE": GOTO 780
  62. 800  ONERR  GOTO 960
  63. 810  HOME :N = 17:LC = 0
  64. 820  PRINT D$;"open";A$
  65. 830  PRINT D$;"read";A$
  66. 840  & REPT
  67. 850  &  GET L$
  68. 890  PRINT L$:LC = LC +1
  69. 900  & UNTIL(LC = N)
  70. 910  PRINT D$: GOSUB 1420
  71. 930  HOME 
  72. 940 LC = 0
  73. 950  GOTO 830
  74. 960  &  ONERR E,L: PRINT D$;"close": GOSUB 1420
  75. 970  TEXT : HOME : GOTO 560
  76. 980  TEXT : HOME : POKE 512,0: &  FRE: PRINT D$;"bye"
  77. 990  TEXT : HOME : POKE 512,0: &  FRE: PRINT 
  78. 1000  HOME : NEW 
  79. 1010  HOME : PRINT  CHR$(21):PGM$ = "DL.SYSTEM"
  80. 1015 V = V -1
  81. 1020  VTAB V: HTAB H: PRINT "[D] - Run DataTerm":V = V +2
  82. 1030  VTAB V: HTAB H: PRINT "[M] - Run Macro Maker":V = V +2
  83. 1040  VTAB V: HTAB H: PRINT "[N] - Notes / Changes":V = V +2
  84. 1050  VTAB V: HTAB H: PRINT "[P] - Quit to ProDOS":V = V +2
  85. 1060  VTAB V: HTAB H: PRINT "[B] - Quit to BASIC":V = V +2
  86. 1070 CMD$ = "DMNPB"
  87. 1080  VTAB 24: CALL  -868: &  GET (1),"Please Choose an Option: ",Q$: GOSUB 1230
  88. 1090  & UCASE(Q$): &  POS(CMD$,Q$),P
  89. 1100  IF   NOT P GOTO 1070
  90. 1110  ON P GOTO 610,630,650,980,990,1500
  91. 1120  HOME : PRINT  CHR$(21): IF ID = 0  THEN  PRINT D$;"pr# a";UC
  92. 1220  POKE 49168,0: VTAB 24: PRINT P$;: CALL  -756
  93. 1230  VTAB 24: HTAB 1: CALL  -868
  94. 1240  RETURN 
  95. 1300  &  ONERR E,L: PRINT "Error ";E;" at line ";L
  96. 1310  GOTO 100
  97. 1350  FOR E = 1 TO 500: NEXT 
  98. 1400  GOTO 560
  99. 1420  POKE 49168,0: VTAB 24: PRINT P$;" OR <ESC> TO END";: CALL  -868: &  GET (1),ESC$
  100. 1440  IF ESC$ < > CHR$(27)  THEN  RETURN 
  101. 1460  PRINT D$;"pr#0": PRINT D$;"close": &  POP : VTAB 24: HTAB 1: CALL  -868: GOTO 560
  102. 1500  ONERR  GOTO 2010
  103. 1505  IF PFX$ = ""  THEN 2020
  104. 1510  PRINT D$"prefix"PFX$
  105. 1515  TEXT : HOME : POKE 512,0: &  FRE
  106. 1520  PRINT D$"-startup"
  107. 2000  & UCASE(ROOT$ +PGM$): HOME : VTAB 9: PRINT "File ";ROOT$;PGM$;" not found.": PRINT : PRINT "Make sure disk is in drive and drive": PRINT "door is closed.": VTAB 24: &  GET (0),"Press <<Return>> to continue."
  108. 2002  IF PGM = 1  THEN  GOTO 610
  109. 2004  IF PGM = 2  THEN  GOTO 630
  110. 2010  &  ONERR E,L: GOTO 2020
  111. 2015  GOTO 1510
  112. 2020  HOME : VTAB 9: PRINT "Can not find main startup program": VTAB 24: &  GET (0),"Press <<Return>> to continue.": GOTO 550