1000 REM ============================================================== 1010 REM moltiplica.bas 1020 REM Moltiplica esclusivamente valori positivi. 1030 REM ============================================================== 1040 REM 1050 INPUT "Inserisci il primo valore "; X 1060 INPUT "Inserisci il secondo valore "; Y 1070 LET Z = 0 1080 FOR I = 1 TO Y 1090 LET Z = Z + X 1100 NEXT 1110 PRINT X; "*"; Y; "="; Z 1120 END 1130 REM ==============================================================