home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / EXTRA.K.S1.SHK / EXTRA.K.DOS3.3 / STARTUP.bas < prev    next >
BASIC Source File  |  2000-01-01  |  6KB  |  131 lines
  1. 0  REM "<CTRL-H> <CTRL-M>____________________<CTRL-M><CTRL-M>STARTUP<CTRL-M>Copyright (C) 1985<CTRL-M>Mark Simonsen<CTRL-M>Beagle Bros, Inc.<CTRL-M>____________________<CTRL-M>
  2. 1  IF  PEEK(103) < >1  OR  PEEK(104) < >8  THEN  POKE 103,1: POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"RUN STARTUP"
  3. 2  PRINT  CHR$(4)"NOMONICO": LOMEM: 10240
  4. 3  ON  PEEK(977) = 0  AND  PEEK(978) = 190 GOTO 4: PRINT  CHR$(4)"BRUN AUX.MEM.CHECK": IF  PEEK(6) < >128  THEN 2000
  5. 4  FOR I = 0 TO 13: READ V: POKE 771 +I,V: NEXT : IF  PEEK(977) = 0  AND  PEEK(978) = 190  THEN  PRINT  CHR$(4)"BRUN DISCONNECT.RAM": CALL 772: IF   NOT  PEEK(771)  THEN 2000: DATA  0,173,152,191,41,240,201,176,208,3,141,3,3,96
  6. 5  DIM S(108)
  7. 6  SPEED= 255
  8. 10 EK$ = "Extra K Extra K Extra K Extra K Extra K Extra K Extra K Extra K"
  9. 15  GOTO 200
  10. 20  REM 
  11. 30  FOR I = 1 TO 23
  12. 35  VTAB 1: PRINT  RIGHT$(EK$,I)
  13. 40  POKE 33,1: VTAB 1: PRINT  RIGHT$(EK$,I);: IF  PEEK( -16384) = 155  THEN 300
  14. 45  TEXT : NEXT 
  15. 50  FOR I = 24 TO 40
  16. 53  VTAB 1: PRINT  RIGHT$(EK$,I)
  17. 55  VTAB 24: PRINT  RIGHT$(EK$,I -23);
  18. 57  POKE 33,1: VTAB 1: PRINT  MID$ (EK$,64 -I,23);: IF  PEEK( -16384) = 155  THEN 300
  19. 60  TEXT : NEXT 
  20. 65  FOR I = 2 TO 23
  21. 70  POKE 32,39: POKE 33,1: VTAB 2: PRINT  RIGHT$(EK$,I -1);
  22. 80  TEXT : VTAB 1: PRINT  MID$ (EK$,25 -I,40)
  23. 90  VTAB 24: PRINT  RIGHT$(EK$,I +16);
  24. 100  HTAB 1: POKE 33,1: VTAB 1: PRINT  MID$ (EK$,25 -I,23);: IF  PEEK( -16384) = 155  THEN 300
  25. 110  TEXT : NEXT 
  26. 120  POKE 32,39: POKE 33,1: VTAB 2
  27. 130  PRINT  MID$ (EK$,41,22);
  28. 140  TEXT : VTAB 1
  29. 150  POKE 2039,203
  30. 160  PRINT  LEFT$(EK$,40)
  31. 170  VTAB 24: PRINT  MID$ (EK$,24,39);
  32. 180  HTAB 1: POKE 33,1: VTAB 1: PRINT  LEFT$(EK$,23);
  33. 190  TEXT : VTAB 1: GOTO 310
  34. 200  PRINT  CHR$(21): TEXT : NORMAL 
  35. 210  GOSUB 700: IF  PEEK( -16384) = 155  THEN 300
  36. 220  VTAB 1: HTAB 1
  37. 230  FOR I = 1 TO 23: PRINT  MID$ (EK$,I,40);: NEXT : PRINT  MID$ (EK$,I,39);: POKE 2039,203
  38. 235  FOR I = 1 TO 200: NEXT : IF  PEEK( -16384) = 155  THEN 300
  39. 240  HTAB 1: CALL  -868
  40. 250  VTAB 23: CALL  -868
  41. 260  VTAB 22: PRINT "    "
  42. 270  FOR I = 21 TO 4  STEP  -1: VTAB I: PRINT "                                      ": NEXT 
  43. 280  VTAB 3: PRINT "    "
  44. 290  VTAB 2: CALL  -868: VTAB 1: CALL  -868: IF  PEEK( -16384) = 155  THEN 300
  45. 295  GOTO 20
  46. 300  TEXT : HOME : POKE  -16368,0
  47. 310  VTAB 5: HTAB 17: PRINT "EXTRA K"
  48. 330  PRINT : HTAB 6: PRINT "by ALAN BIRD and MARK SIMONSEN"
  49. 340  PRINT : HTAB 10: PRINT "(DOS 3.3 -- 28/MAR/86)"
  50. 342  PRINT 
  51. 345  PRINT : HTAB 5: PRINT "1-SCREENS.DEMO"
  52. 350  HTAB 5: PRINT "2-DISK.COMPARE"
  53. 360  HTAB 5: PRINT "3-DISK.COPY"
  54. 363  HTAB 5: PRINT "4-DISK.FORMAT"
  55. 365  HTAB 5: PRINT "5-EXTRA.APPLE"
  56. 370  HTAB 5: PRINT "6-EXTRA.SCREENS"
  57. 373  HTAB 5: PRINT "7-EXTRA.VARIABLES"
  58. 374  VTAB 12: HTAB 23: PRINT "8-HYBRID.CREATE"
  59. 375  HTAB 23: PRINT "9-LOGBOOK"
  60. 376  HTAB 23: PRINT "A-NOTES"
  61. 377  HTAB 23: PRINT "B-PEEK.AND.POKE"
  62. 378  HTAB 23: PRINT "C-SPOOLER"
  63. 379  HTAB 23: PRINT "D-TITLE.SCREEN"
  64. 380  HTAB 23: PRINT "Q-QUIT"
  65. 400  VTAB 20: HTAB 5: PRINT "Please select one of the above ";
  66. 410  ONERR  GOTO 1000
  67. 499 S = 1282 -1
  68. 500  FOR I = 1 TO 36:S = S +1:S(I) = S: NEXT 
  69. 502  FOR I = 37 TO 55:S = S +128: IF S >2047  THEN S = S -984
  70. 503 S(I) = S: NEXT 
  71. 505  FOR I = 56 TO 90:S = S -1:S(I) = S: NEXT 
  72. 507  FOR I = 91 TO 108:S = S -128: IF S <1024  THEN S = S +984
  73. 508 S(I) = S: NEXT 
  74. 510 S = 1:C = 1:B = 1:B$(1) = "_":B$(2) = " "
  75. 520  VTAB 20: HTAB 36
  76. 530 R = S:S = S +1: IF S >108  THEN S = 1
  77. 535 C = C -1: IF C = 0  THEN  PRINT B$(B) CHR$(8);:C = B *5:B = 3 -B
  78. 540  POKE S(S),32
  79. 550  POKE S(R),255
  80. 555  IF  PEEK( -16384) <128  THEN 530
  81. 560 A$ =  CHR$( PEEK( -16384) -128): POKE  -16368,0
  82. 570  IF (A$ <"1"  OR A$ >"9")  AND (A$ <"A"  OR A$ >"D")  AND (A$ <"a"  OR A$ >"d")  AND A$ < > CHR$(27)  AND A$ < >"Q"  AND A$ < >"q"  THEN  CALL ZING: GOTO 530
  83. 580  POKE S(S),255: PRINT A$
  84. 590  POKE 35,1: HOME : TEXT : POKE 32,39: POKE 33,1: HOME : POKE 32,0: HOME : TEXT : POKE 34,23: HOME : TEXT : VTAB 23
  85. 595  POKE 216,0
  86. 600  IF A$ =  CHR$(27)  OR A$ = "Q"  OR A$ = "q"  THEN  END 
  87. 610  IF A$ = "1"  THEN  PRINT  CHR$(4)"RUN SCREENS.DEMO"
  88. 620  IF A$ = "2"  THEN  PRINT  CHR$(4)"RUN DISK.COMPARE"
  89. 630  IF A$ = "3"  THEN  PRINT  CHR$(4)"BRUN DISK.COPY"
  90. 633  IF A$ = "4"  THEN  PRINT  CHR$(4)"RUN DISK.FORMAT"
  91. 635  IF A$ = "5"  THEN  PRINT  CHR$(4)"BLOAD EXTRA.APPLE": CALL 600: END 
  92. 640  IF A$ = "6"  THEN  PRINT  CHR$(4)"BRUN EXTRA.SCREENS": END 
  93. 650  IF A$ = "7"  THEN  PRINT  CHR$(4)"BRUN EXTRA.VARIABLES": END 
  94. 655  IF A$ = "8"  THEN  PRINT  CHR$(4)"RUN HYBRID.CREATE"
  95. 660  IF A$ = "9"  THEN  PRINT  CHR$(4)"BRUN LOGBOOK": END 
  96. 665  IF A$ = "A"  OR A$ = "a"  THEN  PRINT  CHR$(4)"RUN NOTES"
  97. 670  IF A$ = "B"  OR A$ = "b"  THEN  PRINT  CHR$(4)"BRUN PEEK.AND.POKE": END 
  98. 680  IF A$ = "C"  OR A$ = "c"  THEN  PRINT  CHR$(4)"BRUN SPOOLER": END 
  99. 690  IF A$ = "D"  OR A$ = "d"  THEN  PRINT  CHR$(4)"RUN TITLE.SCREEN"
  100. 699  END 
  101. 700  HOME 
  102. 701  HTAB 10: PRINT "______          _______"
  103. 702  HTAB 9: PRINT "|      |        /      /"
  104. 703  HTAB 9: PRINT "|      |       /      /"
  105. 704  HTAB 9: PRINT "|      |      /      /"
  106. 705  HTAB 9: PRINT "|      |     /      /"
  107. 706  HTAB 9: PRINT "|      |    /      /"
  108. 707  HTAB 9: PRINT "|      |   /      /"
  109. 708  HTAB 9: PRINT "|      |  /      /"
  110. 709  HTAB 9: PRINT "|      | /      /"
  111. 710  HTAB 9: PRINT "|      |/      /"
  112. 711  HTAB 9: PRINT "|             /"
  113. 712  HTAB 9: PRINT "|            <"
  114. 713  HTAB 9: PRINT "|    EXTRA    \"
  115. 714  HTAB 9: PRINT "|              \"
  116. 715  HTAB 9: PRINT "|               \"
  117. 716  HTAB 9: PRINT "|       /\       \"
  118. 717  HTAB 9: PRINT "|      |  \       \"
  119. 718  HTAB 9: PRINT "|      |   \       \"
  120. 719  HTAB 9: PRINT "|      |    \       \"
  121. 720  HTAB 9: PRINT "|      |     \       \"
  122. 721  HTAB 9: PRINT "|      |      \       \"
  123. 722  HTAB 9: PRINT "|      |       \       \"
  124. 723  HTAB 9: PRINT "|______|        \_______\";
  125. 724  REM RETURN
  126. 725  POKE 60,0: POKE 61,4: POKE 62,255: POKE 63,7: POKE 66,0: POKE 67,28: POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: CALL 768
  127. 800 ZING = 768: FOR I = ZING TO ZING +78: READ V: POKE I,V: NEXT : RETURN 
  128. 810  DATA 32,13,3,32,50,3,234,234,234,32,13,3,96,160,0,132,38,132,42,169,28,133,39,169,4,133,43,162,4,177,42,72,177,38,145,42,104,145,38,200,208,243,230,39,230,43,202,208,236,96
  129. 820  DATA 32,74,255,160,150,152,32,71,3,73,234,32,71,3,136,208,244,32,63,255,96,170,202,208,253,44,48,192,96
  130. 1000  RESUME 
  131. 2000  PRINT "REQUIRES APPLE //C OR 128K //E<CTRL-G>": END