home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  695b  |  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 "*                                      *";
  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 programs from Nibble"
  13. 120  PRINT "Magazine Volume 5, 1984 and Nibble"
  14. 130  PRINT "Express, Volume 5. Enjoy!"
  15. 140  PRINT : PRINT "Press RETURN to CATALOG the disk.": POKE  -16368,0: WAIT  -16384,128: GET Z$: TEXT : HOME 
  16. 150  PRINT : PRINT  CHR$(4);"CATALOG"
  17. 160  NEW