710 DIM X(50),Y(50),Z(50),R(50):SP$="       ":PR=1:REM SET PR=0 FOR 1526, 802
720 PRINT"[147][144]DIVISION[146]":PRINT
730 PRINT"ENTER A 1[146] FOR UP TO 99/9":PRINTTAB(8)"2[146] FOR UP TO 999/9"
740 PRINTTAB(8)"3[146] FOR UP TO 9999/99:";
750 INPUTA:IFA<1ORA>3THEN720
760 XL=99:ZL=102:IFA=1THENXL=9:ZL=12
770 IFA=2THENXL=9:ZL=112
780 INPUT"REMAINDERS (Y/N)";R$:IFR$<>"N"ANDR$<>"Y"THEN780
790 INPUT"ANSWERS (Y/N)";A$:IFA$<>"N"ANDA$<>"Y"THEN790
800 PRINT"GENERATING PROBLEMS...":FORI=1TO50
810 X(I)=INT(RND(0)*XL)+1:Z(I)=INT(RND(0)*ZL)
820 R(I)=0:IFR$="Y"THENR(I)=INT(RND(0)*X(I))
830 Y(I)=X(I)*Z(I)+R(I):IFY(I)>XL*(ZL-1)THEN810
840 IFI=1THEN870
850 FORJ=1TOI-1:IFX(I)=X(J)ANDY(I)=Y(J)ANDR(I)=R(J)THENJ=I-1:NEXTJ:GOTO810
860 NEXTJ
870 NEXTI
880 PRINT"POSITION PRINTHEAD ABOUT 1/8 INCH"
890 PRINT"BELOW PAPER PERFORATION."
900 PRINT"PRESS ANY KEY[146] TO START PRINTING"
910 GETK$:IFK$=""THEN910
920 OPEN4,4
930 PRINT#4,CHR$(14)"            DIVISION PROBLEMS":REM 14 IS DOUBLE WIDE
940 PRINT#4,:PRINT#4,CHR$(14)"NAME[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
950 FORI=1TO3:PRINT#4,:NEXTI
960 PRINT#4,CHR$(15):REM RETURN TO NORMAL WIDTH
970 FORJ=0TO8:LM=6
980 IFPR=0THENOPEN6,4,6:PRINT#6,CHR$(22):CLOSE6:REM 1526,802
990 FORI=1TO6:IFJ=8ANDI=3THEN1010
1000 PRINT#4,SPC(LM)"[176][192][192][192][192][192][192]";:NEXTI
1010 PRINT#4,CHR$(8):REM GRAPHICS MODE
1020 FORI=1TO6:IFJ=8ANDI=3THENI=6:GOTO1070
1030 X$=STR$(X(J*6+I)):Y$=STR$(Y(I+J*6)):X=LEN(X$):Y=LEN(Y$)
1040 XS=6-X:YS=5-Y
1050 PRINT#4,CHR$(15);:REM RETURN TO NORMAL MODE
1060 PRINT#4,SPC(XS)X$CHR$(221)Y$SPC(YS)" ";
1070 NEXTI
1080 IFPR=0THENPRINT#4:OPEN6,4,6:PRINT#6,CHR$(36):CLOSE6:REM FOR 1526, 802
1090 IFJ<>8THENFORI=1TOPR+4:PRINT#4,:NEXTI
1100 NEXTJ
1110 IFA$<>"Y"THENEND
1120 FORI=1TO2:PRINT#4:NEXTI:FORJ=0TO8:PRINT#4,"    ";:FORI=1TO6
1130 IFJ=8ANDI=3THENI=6:GOTO1180
1140 Z$=LEFT$(SP$,4-LEN(STR$(Z(J*6+I))))+STR$(Z(J*6+I))
1150 RR$=LEFT$(SP$,4-LEN(STR$(R(J*6+I))))+STR$(R(J*6+I))
1160 PRINT#4,Z$" ";:IFR$="Y"THENPRINT#4,"R"RR$;" ";
1170 IFR$<>"Y"THENPRINT#4,SP$;
1180 NEXTI:PRINT#4:NEXTJ
1190 PRINT#4:CLOSE4
1200 PRINT"PRESS  R [146] TO DO ANOTHER WORKSHEET"
1210 PRINT"PRESS  Q [146] TO QUIT
1220 [161] K$:[139] K$[178]"R" [167] [138]
1230 [139] K$[178]"Q" [167] [128]
1240 [137]1220