home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib37a.dsk / STARTUP.bas < prev   
BASIC Source File  |  2023-02-26  |  697b  |  17 lines
  1. 10  HOME 
  2. 20  FOR I = 0 TO 39: PRINT "*";: NEXT I
  3. 30  PRINT "*                                      *";
  4. 40  PRINT "*       Nibble Magazine Programs       *";
  5. 45  PRINT "*               ProDOS                 *";
  6. 50  PRINT "*                1989                  *";
  7. 55  PRINT "*                                      *";
  8. 60  FOR I = 0 TO 39: PRINT "*";: NEXT I
  9. 70  POKE 34,7
  10. 100  HOME 
  11. 105  PRINT 
  12. 110  PRINT "This disk contains ProDOS programs"
  13. 120  PRINT "from Nibble Magazine Volume 10, 1989 and";
  14. 130  PRINT "Nibble Express, Volume 10. Enjoy!"
  15. 140  PRINT : PRINT "Press RETURN to CAT the disk.": POKE  -16368,0: WAIT  -16384,128: GET Z$: TEXT : HOME 
  16. 150  PRINT : PRINT  CHR$(4);"CAT"
  17. 160  NEW