home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MULTIPLY-TABLES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  23 lines
  1. 95 GOSUB 1000
  2. 100 PRINTCHR$(147)"CONTINOUS MULTIPLICATION TABLES"
  3. 120 FOR T=1 TO 12
  4. 130 FOR M=1 TO 12
  5. 140 D=T*M
  6. 150 PRINTT;"*"M;"=";D:PRINT
  7. 160 FOR K=1 TO 1500:NEXT K
  8. 170 NEXT M
  9. 180 NEXT T
  10. 200 INPUT"WOULD YOU LIKE TO SEE THEM AGAIN(Y/N)";L$
  11. 210 IF L$="Y" THEN 100
  12. 220 IF L$="N" THEN 3000
  13. 1000 PRINTCHR$(147):POKE 53280,6:POKE53281,7
  14. 1010 PRINTTAB(10)CHR$(144)"*** FOGGER ***":PRINT:PRINT:PRINT:PRINT
  15. 1015 FOR U=1 TO 3000:NEXT U
  16. 1020 PRINTTAB(10)CHR$(144)"*** PRESENTS ***":PRINT:PRINT:PRINT:PRINT
  17. 1025 FOR S=1 TO 3000:NEXT S
  18. 1030 PRINTTAB(0) CHR$(144)"*** CONTINOUS MULTIPLICATION TABLES ***"
  19. 1035 FOR U= 1 TO 5000:NEXT U
  20. 1036 FOR U= 1 TO 5000:NEXT U
  21. 1040 RETURN
  22. 3000 PRINT"HAVE A NICE DAY":END
  23.