CES  M 5:5:1: =5,8;1;6;0;"STOP THE TAPE" 200   10,6;4;"LEVEL OF DIFFICULTY" 73,8;1;"1.";0;" Stage 1." #76,8;1;"2.";0;" Stage 2." (79 ,8;1;"3.";0;" Stage 3." -812 ,8;1;"4.";0;" Stage 4." /815,8;1;"5.";0;" Stage 5." 0818,8;1;"6.";0;" Stage 6." 2*21,0;6;"Key 1 to 6." <""60< ==""61= AL$= F%L$<491ůL$>54660< PS=15 dA$="" eB$="" fT$="" g T=0 h B=0 i sc=0 nPOSN=0 xO$(15,5) O=0 Q$(15,5) Q=0 wr=0 JI=0 NZ=0 L$="1"L=2 L$="2"L=6 L$="3"L=10 L$="4"L=14 L$="5"L=19 L$="6"L=22  -4;"label operation operand PRINT" J=((*8)+4)  M=1J LX=((*L)*100d) N%NZ=1X>18001100L VM=1X=0 [M=JX=100d `5000+X jM tNZ=0m,7;"HALT" y&NZ=1m,0;"END HALT" M+1,7;"%" _17,0;6;"Type in the output, press ENTER after each number (Z to finish)." Q=Q+1 Q=152550 Q$(Q) sc=1+sc 1Q$(Q,1)="z"Q$(Q,1)="Z"2550 2510 n=1O Q$(O)O$(O)wr=1 n=1721 /n,0;" " n ֙wr=0sc-1=O17,0;" ";0;7;"Well done - you are correct";5;1;" " wr=1sc-1O18,0;2;7;" I am sorry but you are wrong. Press Y for the correct answer. " ""3050 =""3060 ="y"Ŧ="Y"8000@ S 13  M,7;"IN" %JI=0A=(*10 )-5 L$<3A=A+5 JI=0A$=A POSN=POSN+1 15,0;"DATA" #15,POSN*3+2;A$  M,7;"OUT" JI=15190F  O=O+1  O$(O)=A$ F PJI=0T$=A$ ZM,7;"STORE TAMS" d T=1  JI=0B$=A$ M,7;"STORE BEN"  B=1  T=0M=M-1 6 T=0 @M,7;"LOAD TAMS" JJI=0A$=T$ r |B=0M=M-1  B=0 M,7;"LOAD BEN" JI=0A$=B$  T=0M=M-1  T=0 JI=0A$=(A$+T$) M,7;"ADD TAMS" : DB=0M=M-1 N B=0 XJI=0A$=(A$+B$) bM,7;"ADD BEN"  T=0M=M-1  T=0 JI=0A$=(A$-T$) M,7;"SUBTRACT TAMS"   B=0M=M-1  B=0  JI=0A$=(A$-B$) *M,7;"SUBTRACT BEN" f pT=0M=M-1 z T=0 JI=0A$=(A$*T$) M,7;"MULTIPLY TAMS"  B=0M=M-1  B=0 JI=0A$=(A$*B$) M,7;"MULTIPLY BEN" . 8T=0M=M-1 B T=0 GT$="0"9000(# LJI=0A$=((A$/T$)) Q'JI=0ưA$<0P=(((A$))) R&JI=0ưA$<0P=P*-1 SJI=0ưA$<0A$=P VM,7;"DIVIDE TAMS"  B=0M=M-1  B=0 B$="0"9000(# JI=0A$=((A$/B$)) 'JI=0ưA$<0P=(((A$))) &JI=0ưA$<0P=P*-1 JI=0ưA$<0A$=P M,7;"DIVIDE BEN"  I=((*10 )-5) I=06400  (I>0M,7;"LOAD +";I 'I<0M,7;"LOAD ";I JI=0A$=I Z dI=((*10 )-5) iI=06500d n(I>0M,7;"ADD +";I x'I<0M,7;"ADD ";I JI=0A$=(A$+I)  I=((*10 )-5) I=06600 (I>0M,7;"SUBTRACT +";I 'I<0M,7;"SUBTRACT ";I JI=0A$=(A$-I) " ,I=((*10 )-5) 1I=06700, 6(I>0M,7;"MULTIPLY +";I @'I<0M,7;"MULTIPLY ";I JJI=0A$=(A$*I)  I=((*10 )-5) I=06800 (I>0M,7;"DIVIDE +";I 'I<0M,7;"DIVIDE ";I "JI=0A$=((A$/I)) 'JI=0ưA$<0P=(((A$))) &JI=0ưA$<0P=P*-1 JI=0ưA$<0A$=P  M,7;"JIZERO END" A$="0"JI=1  NZ=1 N XM,7;"JINEG END" bA$<0JI=1 l NZ=1  M,7;"JUMP END"  JI=1  NZ=1  @N=1721 B/N,0;" " DN E<O718,0;"First 7 outputs only given." FO>7O=7 H n=1O I617,0;2;7;"Correct output" J.19,(N-1)*4;7;O$(N) Tn Y?21,0;6;" Press any key to continue. " ^""8030^ _=""8031_ h #( #265,7;7;4;"Execution Error" #<-9 ,3;"*** DIVISION BY ZERO ***" #F?21,0;6;"Press any key to return to menu." #P 0 #Z 10 Ptbosoqlj xdaHL6iTP0 Pz B-3A0/