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