home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / HELLO.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  12 lines
  1. 1 V$ = "8/22/84"
  2. 5 A$ = "/-\!":B$ = "/!\-":Q$ =  CHR$(34)
  3. 10  SPEED= 240: TEXT : PRINT  CHR$(21): HOME : HTAB 3: PRINT V$: PRINT : HTAB 3: POKE 32,2: POKE 33,38: INVERSE : PRINT ":            :": PRINT " UTILITY CITY ": PRINT ":            :"
  4. 20  NORMAL : PRINT : PRINT "BY BERT KERSEY": PRINT : PRINT "BEAGLE BROS, INC.": PRINT "399O OLD TOWN AVENUE": PRINT "SAN DIEGO, CALIFORNIA 9211O": PRINT : TEXT 
  5. 28 C$ = "* RUN THE " +Q$ +"BUGLIST" +Q$ +" PROGRAM FOR THE       LATEST UPDATES AND CHANGES.           ":X = 21: GOSUB 9999
  6. 30 C$ = "  SEMI-IMPORTANT:                         --------------                        * DO NOT RUN THE " +Q$ +".A" +Q$ +" FILES (SEE PG.27).         ---                            ":X = 19: GOSUB 9999
  7. 50  SPEED= 220: FOR I = 1 TO  LEN(A$): VTAB 18: HTAB 1: PRINT  MID$ (A$,I,1): VTAB 20: HTAB 1: PRINT  MID$ (B$,I,1): NEXT : IF   NOT FLAG  AND  PEEK( -16384) <128  THEN 50
  8. 52  IF FLAG  THEN  RETURN 
  9. 55  POKE  -16368,0:FLAG = 1: FOR J = 1 TO 4:A$ = "****": GOSUB 50: NEXT 
  10. 60  SPEED= 255: VTAB 18: PRINT "*": VTAB 20: PRINT "*": PRINT : FOR J = 1 TO 500: NEXT 
  11. 1000  END 
  12. 9999  SPEED= 255: VTAB X: HTAB 40: FOR I =  LEN(C$) TO 1  STEP  -1: INVERSE : PRINT "<<CTRL-H>";: NORMAL : FOR J = 1 TO 1: NEXT : PRINT  MID$ (C$,I,1);"<CTRL-H><CTRL-H>";: NEXT : RETURN