home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  756b  |  19 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 "*                1980                  *";
  7. 55  PRINT "*                                      *";
  8. 60  FOR I = 0 TO 39: PRINT "*";: NEXT I
  9. 70  POKE 34,7
  10. 80  PRINT : PRINT  CHR$(4);"BLOAD LOADER.OBJ0"
  11. 90  CALL 4096
  12. 100  HOME 
  13. 105  PRINT 
  14. 110  PRINT "This disk contains programs from Nibble"
  15. 120  PRINT "Magazine Volume 1, 1980 and Nibble"
  16. 130  PRINT "Express, Volume 1. Enjoy!"
  17. 140  PRINT : PRINT "Press RETURN to CATALOG the disk.": POKE  -16368,0: WAIT  -16384,128: GET Z$: TEXT : HOME 
  18. 150  PRINT : PRINT  CHR$(4);"CATALOG"
  19. 160  NEW