home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / TEST / GENSRC.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-10-17  |  183 b   |  10 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  PRINT  CHR$(4)"OPEN GEN.SRC"
  2. 2  PRINT  CHR$(4)"WRITE GEN.SRC"
  3. 5 I = 0
  4. 10  FOR X = 8192 TO 8192 +511
  5. 20  IF X/8 =  INT(X/8)  THEN  PRINT : PRINT "        DFB ";
  6. 30  PRINT  PEEK(X);
  7. 40 I = I +1: IF I = 8  THEN I = 0: GOTO 50
  8. 45  PRINT ",";
  9. 50  NEXT 
  10. 100  PRINT  CHR$(4)"CLOSE"