home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / LISTER.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  343b  |  8 lines
  1. 6  REM  SAMPLE PROGRAM
  2. 15  INPUT "ENTER LIMIT: ";M
  3. 20  FOR I = 1 TO M: FOR J = 1 TO 5000
  4. 50  IF A$ =  CHR$(4)  THEN B$ =  CHR$(13): IF C$(I,J) = "$"  THEN 40000
  5. 70  NEXT : NEXT 
  6. 40000 I = I +2:M = M +100:C$(0,0) = "*"
  7. 40021  IF I = 2  THEN  IF J = 3  THEN  IF M = 300  THEN  IF C$(I,J) = "*"  THEN C$(I,J) = "$":I = 10:J = M
  8. 63999  REM  ETC...