home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CRKUTIL1.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  579b  |  21 lines
  1. 2 A$ = "HELLO.TEXT"
  2. 3  HOME 
  3. 4  POKE 768,44: POKE 769,48: POKE 770,192: POKE 771,96
  4. 5  PRINT : PRINT : PRINT : PRINT 
  5. 10  PRINT "<CTRL-D>MON I"
  6. 20  PRINT "<CTRL-D>OPEN "A$
  7. 25  PRINT "<CTRL-D>READ "A$
  8. 35  ONERR  GOTO 70
  9. 40  GET A$
  10. 50  PRINT A$;
  11. 55  INVERSE : PRINT " ";: CALL  -1008: NORMAL : PRINT " ";: CALL  -1008
  12. 56  CALL 768
  13. 60  GOTO 40
  14. 70  PRINT "<CTRL-D>CLOSE"
  15. 90  SPEED= 255: NORMAL 
  16. 95  IF A$ = "HELP"  THEN  END 
  17. 100  PRINT : PRINT "READ HELP ALSO? (Y/N)";: GET B$: PRINT B$
  18. 105  IF B$ = "N"  THEN  END 
  19. 110  IF B$ = "Y"  THEN A$ = "HELP": GOTO 3
  20. 115  GOTO 110
  21. 120  END