900 REM +-----------------------------+
901 REM !  (c) Olle Bliding   (2182)  !
902 REM !      Brokadgatan 2          !
903 REM !      510 54 Br{mhult        !
904 REM !  Tel 033/41185   (82-11-19) !
905 REM +-----------------------------+
906 ONERRORGOTO 935
907 ; CHR$(12)"Multiplicering av stora tal som" : ; "ber{knas exakt utan avrundningsfel!"
908 ; "Vilken {r l{ngden p} f|rsta faktorn "; : INPUT G%
909 ; "Vilken {r l{ngden p} andra faktorn "; : INPUT H% : IF G%=0% OR H%=0% 935
910 DIM B%(H%),A%(G%+H%+1%),C%(H%+G%+1%)
911 ; "Ange nu det"G%"-siffriga talet med" : ; "return mellan varje siffra"
912 FOR I%=G% TO 1% STEP -1%
913 INPUT A%(I%)
914 IF A%(I%)>9% OR A%(I%)<0% 935
915 NEXT I%
916 ; "G|r nu p} samma s{tt f|r n{sta tal"
917 FOR I%=H% TO 1% STEP -1%
918 INPUT B%(I%)
919 IF B%(I%)>9% OR B%(I%)<0% 935
920 NEXT I%
921 FOR I%=1% TO G%+H%-1%
922 FOR J%=1% TO H%
923 IF I%-J%<0% THEN 926
924 C%(I%)=C%(I%)+B%(J%)*A%(I%-J%+1%)
925 IF C%(I%)>9% C%(I%+1%)=C%(I%+1%)+INT(C%(I%)/10%) : C%(I%)=C%(I%)-INT(C%(I%)/10%)*10%
926 NEXT J%
927 NEXT I%
928 FOR I%=G% TO 1% STEP -1% : ; CHR$(48%+A%(I%)); : NEXT I% : ; "*";
929 FOR I%=H% TO 1% STEP -1% : ; CHR$(48%+B%(I%)); : NEXT I% : ; "=";
930 FOR I%=G%+H% TO 1% STEP -1%
931 IF N% 933
932 IF C%(I%) N%=1% ELSE 934
933 ; CHR$(48%+C%(I%));
934 NEXT I% : END 
935 ; "FEL INDATA"