Multiplication Tables

Gallery

Source Code

   1 PRINT AT 2,8;"MULTIPLICATION TABLES"
   2 PRINT AT 6,2;"WHICH TIMES TABLE WOULD YOU","LIKE ME TO PRINT?"
   3 INPUT A
  10 CLS 
  11 FOR J=1 TO 10
  12 PRINT ,,J;" X ";A;" = ";A*J
  13 NEXT J
  14 PRINT AT 20,0;"DO YOU WANT ANOTHER TRY?"
  17 INPUT A$
  18 CLS 
  19 IF NOT A$="NO" THEN GOTO 2
  21 PRINT AT 21,8;,"OK. BYE FOR NOW."
  30 STOP 
  40 SAVE "1004%9"
  45 RUN