long div 8 2 X:  ROSE SOFTWARE Sept.1982  5 57999:23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:11 ,10 ;"Please wait":"gr""a":"sc":9900&  6  500 To$=" ":ex=0:t=0:u=0:v=0  wr=0 x(4):y(2) T:0,7;" LONG DIVISION ";5,1;"Instructions ? y or n" ""23 =""24 i$=  1000 !" LONG DIVISION " $:d4=(*9000(#)+1000:d2=(*90Z)+10 'd46130 O3+3*i,k-2+(q$<2)+(q$<3);q$:q$=q142 #1010:wr<3118v 521,0;" " 'wr3 20,14;-take dtake03+3*i,k-4+(q<10 )+(q<100d)+(q<1000);take;" " 7take=03+3*i,k-1;"-0 " /rem>9 4+3*i,k-2;"" #4+3*i,k-1;"" rem=m+take i$="y"1030 1060$:wr=0 U20,0;"and this leaves " i$="y"180 K20,16;"?";5+3*i,k-2;" ? " q$:q$>6169 =5+3*i,k-2+(q$<2)+(q$<3);q$ q$=rem180 #1010:wr=3180 -5+3*i,k+3;" ":160 20,16;rem Jk05+3*i,k-3+(rem<10 );" ";rem;" " )21,0;" " 6k=05+i*3,k+3;rem;" " :rem=0i<35+i*3,k+1;" "; i$="y"1030 1060$:wr=0 520,0;" " xi218,0;" ";19,0;" I'LL BRING DOWN NEXT FIGURE ":40(:40( 6i25+i*3,k+1;x(3-i) i$="y" i31030 519,0;" " "i=i+1:i366B 18,0;" " 515,10 ;" The answer is: ";(d4/d2) J17,14;" Remainder: ";d4-d2*(d4/d2):i$"y"207 S21,0;" Press any key to start";18,0;" ":i$="" =""205 30 0t=t+ind:u=u+(ind=1):v=v+(ind=-1) ind=1216 :"DIVIDE ";d4;" by ";d2 $"The correct answer is: ";(d4/d2) "Remainder: ";d4-d2*(d4/d2) (::"________________________________" 220 11:15,0;"WELL DONE":0 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 w21,0;"Press any key":0:4:5:::9 ,0;"You have ";u;" correct (1st time)" )11 ,5;"and ";v;" incorrect" 15,18;"MORE? yn" 0 q$= 700 q$="n"q$="N"268  30  B7:1:0::1;19,0;o$;o$;o$  .2,6;"***  CERTIFICATE  ***" 5,3;"NAME : ";n$ 7,3;"DATE : ";m$ 111 ,5;"PROGRAM : ""Long Division""" "13 ,5;"CORRECT : ";u $15,3;"INCORRECT : ";v u+v=0278 817,2;"PERCENTAGE : ";(100d*u/(u+v)) 50,0;"" 619,0;"" i=118 )i,0;"";19-i,31;"" i  59 ;1;21,9 ;"Press any key" M1:2,6;"***";2,24;"***":0:0: a=58012 T0:6:20,0;" ":6000p Tz$=""20,4;"Please key in your name":0:6000p:506  n$=z$:n$:  620,0;" NOW today's date (in any form) " $0:6000p:m$=z$:m$:: ' 0: 5:5:0: B1,1;"GET THE ROCKET";3,1;"TO THE MOON" =7,1;"3 correct";9 ,1;"answers win" z=031 21,z;"" t<0t=0 z є15,26;"";16,26;"";17,24;"";18,24;" ";19,24;"";20,24;"" ԗ1:0,25;"";1,24;"";2,24;"MOON";3,24;"";4,25;"" z=143-1 ڔ0:z,26;"";z+1,26;"";z+2,26;"";z+3,26;"";z+4,26;"";z+5,25;"" n6:z+6,25;"";z+6,27;"":2:6:z+6,26;"":5 0z<146:z+7,25;" " &z<13 z+8,26;" " 7t<3t=4-((z-1)/2)502: (21-(t*3)) z '1:2,24;"OUCH"  t=0 z=140( ,.01z# =,z-10 :.01z# =,z+10 z  100d  z=(*4)+4 z:z:9 :  wr=wr+1:ind=-1 3wr319,0;" HARD LUCK ": 21,0;" ";20,0;" NO, try again  ";21,0;n$ 80P:80P  *21,17;" Press any key " =""1032  &21,17;" "  720,0;" ": $Cwr=3150:150:19,0;" " ' Wa=58012:"long div"3:"gr""a",168:"sc"::0:5000 pz$="" uy$= z'y$=0ůy$>1646005u y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8z$>18 =?6:20,0;" " B220,(17-((z$+1)/2));z$ G 6035 & 6 & 1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9905& &a=124 &b &57999+a,b &a &a=58000 & 4 agr X <<~~~|<<>>??0033 3300?? 33333333BBBBB<Ysc @g#idU#1LS@mSsge[@B><~<<~~<~<<~~<<gm0LXx;*j8sg2`mGO*dҐ£@lÌ[@<>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