home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / DIVISION-TABLES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  512 b   |  23 lines
  1. 95 GOSUB 4999
  2. 100 POKE53280,2:POKE53281,1
  3. 110 PRINTCHR$(147)"CONTINOUS DIVISION TABLES"
  4. 120 FOR T=1 TO 12
  5. 130 FOR N=1 TO 12
  6. 140 D=T/N
  7. 150 PRINT T;"/"N;"=";D:PRINT
  8. 160 FOR G=1 TO 1500:NEXT G
  9. 170 NEXT N
  10. 180 NEXT T
  11. 200 INPUT"WOULD YOU LIKE TO SEE THEM AGAIN(Y/N)";Z$
  12. 210 IF Z$="Y" THEN 110
  13. 220 IF Z$="N" THEN 300
  14. 300 END
  15. 4999 PRINTCHR$(147)
  16. 5000 PRINTTAB(12)         CHR$(144)"*** FOGGER ***":PRINT:PRINT:PRINT:PRINT
  17. 5005 FOR T= 1 TO 3000:NEXT T
  18. 5010 PRINTTAB(12)CHR$(144)"*** PRESENTS ***":PRINT:PRINT:PRINT:PRINT
  19. 5015 FOR I= 1 TO 3000:NEXT I
  20. 5020 PRINTTAB(4)CHR$(144)"*** CONTINOUS DIVISION TABLES ***"
  21. 5025 FOR W= 1 TO 3000:NEXT W
  22. 5030 RETURN
  23.