home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / D.CODE.SHK / D.CODE / STARTUP.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  15 lines
  1. 10 D$ =  CHR$(4): FOR I = 1 TO 6: READ A$(I): NEXT : DATA COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT: IF  PEEK(33) = 80  THEN T = 29
  2. 30  TEXT : HOME : PRINT D$"BLOAD TITLE": CALL 2 ^12: GOSUB 800: VTAB 13: FOR I = 1 TO 6: GOSUB 1000: PRINT "("I") "A$(I);: IF I = 5  THEN  PRINT " (CHANGES TO MANUAL)";
  3. 120  PRINT : NEXT 
  4. 170  VTAB 18: GOSUB 1000: PRINT "(Q)": PRINT : GOSUB 1000: PRINT "    SELECT: " CHR$(8);: GET A$: IF A$ > CHR$(31)  THEN  PRINT A$
  5. 172  IF A$ = "6"  THEN A$ = "0"
  6. 175  IF A$ = "Q"  THEN A$ = "6"
  7. 177  IF A$ <"1"  OR A$ >"6"  THEN  GOSUB 900: GOTO 170
  8. 185  IF (A$ >"0"  AND A$ <"7")  THEN  VTAB 12 + VAL(A$): GOSUB 1000: PRINT "--> ";: INVERSE : PRINT A$( VAL(A$)): NORMAL 
  9. 187  IF A$ = "6"  THEN  VTAB 23: END 
  10. 190 R$ = "RUN ": IF A$ <"4"  THEN R$ = "BRUN "
  11. 200  VTAB 22: PRINT : PRINT D$R$A$( VAL(A$)): END 
  12. 800  VTAB 11: INVERSE : FOR I = 1 TO  PEEK(33): PRINT " ";: NEXT : FOR I = 13 TO 22: PRINT " ";: POKE 36, PEEK(33) -1: PRINT " ";: NEXT : FOR I = 1 TO  PEEK(33): PRINT " ";: NEXT : NORMAL : RETURN 
  13. 900 A = 49200: FOR I = 1 TO 5: FOR J = 1 TO 20:B =  PEEK(A): NEXT : FOR J = 1 TO 15: NEXT : NEXT : RETURN 
  14. 1000  POKE 36,9: IF T  THEN  POKE 36,T
  15. 1010  RETURN