home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / GENSRC.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  277b  |  10 lines
  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"