home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19a.dsk / STARTUP.bas < prev   
BASIC Source File  |  2023-02-26  |  694b  |  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 "*                1984                  *";
  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 5, 1984 and"
  14. 130  PRINT "Nibble Express, Volume 5. 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