home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / NEW33MAS.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  605b  |  13 lines
  1. 10  TEXT : HOME 
  2. 20 D$ =  CHR$(4): REM  CTRL-D
  3. 30  VTAB 2:A$ = "APPLE II": GOSUB 1000
  4. 40  VTAB 4:A$ = "DOS VERSION 3.3  SYSTEM MASTER": GOSUB 1000
  5. 50  VTAB 7:A$ = "JANUARY 1, 1983": GOSUB 1000
  6. 60  PRINT D$;"BLOAD LOADER.OBJ0"
  7. 70  CALL 4096: REM  FAST LOAD IN INTEGER BASIC
  8. 80  VTAB 10: CALL  -958:A$ = "COPYRIGHT APPLE COMPUTER,INC. 1980,1982": GOSUB 1000
  9. 90 C =  PEEK( -1101): IF C = 6  THEN  PRINT : INVERSE :A$ = "BE SURE CAPS LOCK IS DOWN": GOSUB 1000: NORMAL 
  10. 100  PRINT  CHR$(4);"FP"
  11. 1000  REM  CENTER STRING A$
  12. 1010 B =  INT(20 -( LEN(A$)/2)): IF B =  <0  THEN B = 1
  13. 1020  HTAB B: PRINT A$: RETURN