Compucolor.org – Virtual Media

Listing of file='MULTIP.BAS;01' on disk='vmedia/utility-sector.ccvf'

5 PLOT 12
10 PRINT "THIS PROGRAM DOES MULTIPLICATIONS."
15 PRINT "ENTER 1,1 TO END PROGRAM; "
20 INPUT "PUT IN THE NUMBERS (X,Y) : ";A,B
25 IF A= 1GOTO 50
27 IF B= 1GOTO 50
30 PRINT :PRINT
40 PRINT "THE NUMBER IS"A* B"."
42 FOR I= 1TO 5000:NEXT I
45 GOTO 5
50 END