long mult F$@$H$ ROSE SOFTWARE July 1982  5 57999:23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:11 ,10 ;"Please wait":"gr""a":"sc":9900&  6  650 :o$=" ":t=0:b$=" " l(4):b(4) a$="":d$=" " :1:3,9 ;" Which level? ":0:6,4;"Multiplying:-";8,1;"1. a two digit number by a two digit number" o11 ,1;"2. a three digit number by a three digit number";16,1;"Choose 1 or 2" %1000:q$"1"q$"2"14 l=q$ +:6,5;"Instructions? y or n" %1000:q$"y"q$"n"20 I$=q$:I$="n"a$="y" I$="y":3,2;"This is an example of how to";5,2;"carry out LONG MULTIPLICATION";21,2;"Press any key":1000 u=0:v=0 !Pb(4)=(*(87W+801!*(L=2)))+13 +98b*(L=2) 'I=13 *b(I)=(*9 )+1 -I .?L=110 *b(2)+b(1)>b(4)33! /5L=2b(3)>b(4)/100d33! 0 3 n=0 6$0,0;"Multiply:- " 9,2,11 +n+(L=1);b(4) 9999');"_";7+(L=2),10 +n-2*(a>99999CO);"_";7+(L=2),10 +n-3*(a>999999t#);"_" ra8+(L=2),11 +n-(a>999)-(a>9999')-(a>99999CO)-(a>999999t#);a u'11 ,7+n;" = Correct Ans " I$"y"157 I$=" " ,21,1;"Press any key to start" 1000:a$="y":30 3:14,0;o$;o$;o$;o$;o$;o$;o$;o$;15,1;"So far you have ";:1:" ";u;" ";:0:" correct" I17,13 ;"and ";:1:" ";v;" ";:0:" incorrect." "20,7;"More? y or n" =""483  a$=:a$"y"a$"n"482 b$="h"d$=" "  800  21:i=(*3)+4:i:i:9 : a$"n"30 (7;18,0;o$;o$;o$;o$ (2,6;"*** CERTIFICATE ***" "5,3;" Name:- ";N$ "7,3;" Date:- ";M$ 59 ,2;"Program:-""Long Multiplication""" !11 ,5;"Correct: ";u #13 ,3;"Incorrect: ";v u+v=0518 715,2;"Percentage: ";(100d*u/(u+v)) 50,0;""  618,0;""  i=117  i,0;"";i,31;"" i  77;20,9 ;"Press any key":0: a=58012 J0:0:6:20,4;" " K6000p:z$=""20,4;"Please key in your name":655 n$=z$ n$: =20,0;"Now today's date (in any form)":0 6000p:z$=""685  m$=z$:m$:  0: a$="" i=13+(L=2) z$="" @4+i+(i=4(L=1i=3)),0;"line ";i mi=4(L=1i=3)7+(L=2),7;"_______";8+(L=2),15;"ADD" C12 ,0;"KEY in line ";i;" starting at right hand side" 015,0;"and PRESS e at end of line" \17,1;"OR PRESS h for help";21,0;" NEED  to rub out? PRESS r" k=18 =""716 b$= b$="h"756 b$="e"729 &b$="r".2~L,28:770 b$<"0"b$>"9"716 n4+i+(i=4(L=1i=3)),14-k;b$:b$<58:Ưb$>47/.2~L,b$-30  z$=z$+b$  75K k b$="e"Ʀ="e"729 i b$=" " p$=a b$=b$(1̱p$) i=p$1-1 b$(p$-i+1)=p$(i) i  982 z$=b$760 621,0;"Bad luck,check with the computer" ).5,-10 :1.5@,-20  100d  v=v+1 d$="-"  t=t-1 9 ,15;" "  n=10 982:b$="h"546  790 '13 ,0;"*** WELL DONE ***" Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9  u=u+1 d$="+"  t=t+1  123{ k=k-1+(k=1) %k>1z$=z$(1k-1) k=1z$="" =4+i+(i=4(L=1i=3)),14-k;" "  75K  716 Gq=10 *b(2)+b(1):L=2q=q+100d*b(3) *y$=""::"MULTIPLY ";b(4);" by ";q (j=z$1-1:y$=y$+z$(j):j "Your answer (wrong) ";y$ "The correct answer is ";a 2::"________________________________":546  I0:7:7:0::1:"BOWLING ALLEY":0 #G4,0;"Knock down all";6,0;"five pins to win" &t<0t=0 )2:x=2 ,y=22262 - 846N /y 2 x=4 8y=23252 : 846N ;y x=206-1 ?)x,24;"";x+1,24;" " @,13 -(x/2-(2*(t=0))) Ax=10 t=0 Bx D2:x=1t E838F+x:x F 502: G04,23;" ";5,22;"": H04,25;" ";5,25;"": I02,26;" ";3,26;"": J02,22;" ";3,21;"": KN1:0:2,22;"STRIKE":0:3,24;" " L1:y=15:x=820:1:x,22;"STRIKE":0:x-1,22;" ":x:y:870f M Nx,y;"";x+1,y;"": ^ f t=0 ia1,6,3,9 ,2,6,1,7,3,9 ,2,6 jb1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 k1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7 l1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2 m 873i pi=132 sle:pi vle/7,pi yi | i+4,0;"line ";i L16,0;"WE MULTIPLY ";b(4);" BY ";16,20;b(i) #i=216,21;"0" .L=2i=316,21;"00" k=17 3,14-i+n;" "  20 3,14-i+n;b(i) k i1990 '18,0;"and enter line ";i l(i)=b(4)*b(i) +i=2l(2)=l(2)*10 6L=2i=3l(3)=l(3)*100d v4+i,n+12 -(l(i)>99c)-(l(i)>999)-(l(i)>9999')-(l(i)>99999CO)-(l(i)>999999t#);l(i) $21,18;"Press any key" =""981 k=2112 -1 /k,0;" " k  V17,0;"Put 0";17,4+(i=3);"0 under the line as shown." U6+(i=3),n+13 ;"0";6+(i=3),n+13 -(i=3);"0"  100d  968 ""1000  =""1001 q$=  o p0:0:z$="" uy$= zy$=06005u |y$>1646000p y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8"z$>19z$=z$(19): =?6:20,0;" " B220,(17-((z$+1)/2));z$ G 6035 XXa=58012:"long mult"3:"gr""a",168:"sc"::0:7000X &1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9900& &a=124:b &57999+a,b &a &a=58000 & 4 aOgr X@٪<~~<<<<<~~~~~<88||>>????0033 3300?? 33333333|BB|@@m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| TOoLl5Tn>Ç xB8888(8DxD8Dx8h8J`)#?"UJ!)8x`BD@D0DD0DDDD DTD;oʷҘf̪) lJxx|x<8x0xDDDDD D