U'T' NYELV @UC:5000CI,ODD V(15,63),M(15)-DU$(36),P$(255)8D65000_D(2)"PRIMO"(1)" 'T' SYSTEM 87.8"yDA$"":"Ready":60000D(A$)0ʑ55000:25D#1000:25DA$""A$" U"ʑ25000:25DI136D(A$,(U$(I)))U$(I)1020D:50000(EI17I18I30I31ʲ"Illegal Direct":258EI3022000HEI3122500]E I17ʑ13500:25uEP$(0)A$:14000:25EM(V)6350070E40000EB0B25550010EM(V)7UM(V)1:V(V,M(V))BEAKB:E M(V)050070E AKV(V,M(V)):V(V,M(V))0F M(V)M(V)1F F40000>FB1B16V(B)::50010^FI1M(V):V(V,I)0::M(V)0dFFV(V,M(V))255V(V,M(V)):F|I1M(V)FV(V,I)255V(V,I)F:FIUpM(V)6350070FuM(V)M(V)1:FdM(V)050070FiM(V)M(V)1:GX40000 G]AKB:&G@D9ʲ"Overflow":25:GEDD1:D(D)OL:IG(#D050050TG)#40000jG*#BAKDD1:C0:~G-#OLD(D):CC1:G'40000G'BBY3276750010G'BYBYB:GU*40000G*BYB3276750010G+BYBYB:G,V(V,M(V))25550010H,40000H,V(V,M(V))255500104H,V(V,M(V))V(V,M(V))BEH,AKV(V,M(V))KH-bH.V(V,M(V))050010mH.40000H.V(V,M(V))B050010H.V(V,M(V))V(V,M(V))BH.AKV(V,M(V))UH.H0W$(P$(OL),(P$(OL))1)H040000H0AK(W$)ʒI0B1B25550010I0P$(B)""50030&I0OLB1:2I4I1ILQI4P$(I)""ʲ(I)" "P$(I)YI4:oI6P$P$(OL):W(P$)I6W$(P$,W4)I6E$(W$,1)I6E$"'"ʲ(W$,(W$)1):I6XUE$"S"ʲ(AK);:I6E$"C"ʲ(AK):I6E$"M"ʲM(V):I6E$"D"ʲC: J6E$"X"ʲX:)J6E$"F"ʲ((8)1024):;J6E$"T"ʲBY:TJ6E$"J"ʲV(V,M(V)):fJ6E$"K"ʲAK:|J6E$"H"ʲ(AK);:J6:J:40000J:B1B050010J:B1155U00J:"?";J:Q$:Q$""15020J:Q$(13)15035!K:Q$(8)ʏS$""15020:S$(S$,(S$)1):(8);:15020CK:(Q$)0Q$"0"15030:15020tK:(S$)3S$S$Q$:Q$;:15020:(7);:15020K:AK(S$)::K<60000K<(A$)(63M(V))6350070KU 40000L>B0AK(256)1:'L>B1B255500109L>AK(B1)1:DLt@40000ZLy@B0B614250010kL~@22528B,AKqL@|LhB40000LmBAK,BLrBL\D40000L]DB050040LaDV(V,M(UV))V(V,M(V))BLbDAKV(V,M(V))LfDLPF40000LUFBV(V,M(V))25550010MZFV(V,M(V))V(V,M(V))B(M[FAKV(V,M(V)).M_F6MDH25OM8JC9ʲ"Overflow":25ZM;J40000ME$"S"B(AK):RCE$"C"B(AK):RHE$"F"B((8)1024):RME$"TU"BBY:RRE$"J"BV(V,M(V)):RWE$"K"BAK:RXE$"M"BM(V): SYE$"D"BC:SZE$"X"BX:*S\50000HSPò"Syntax Error IN";OL:25oSZò"Illegal Function Call IN";OL:25Sdò"RET without CALL IN";OL:25Snò"Undefined Line IN";OL:25USxò"Division by Zero IN";OL:25Sò"UNTIL without DO IN";OL:25Tò"Out of STACK IN";OL:259T:******* PROGRAMT]ROL]S *******fT֏(A$)1(A$)255(A$)((A$))50010uTցI1(A$)T֏(A$,I,1)"0"(A$,I,1)"9"ʏ(A$,I,1)" "P$((A$))U(A$,(A$)(I1)):(A$)ILIL(A$)::Tև:P$((A$))"":U`:******* SZ\VEGSZERKESZT{ *******FUa(228);:SA1:I120:Q$:Q$""ʇ:60010sUe(8);:SA0:I120:Q$:Q$""ʇ:60000UjSA1ʲ(8);Uk150,10UoQ$(13)ʲ:UtQ$(8)ʏUA$""ʲ(8);:A$(A$,(A$)1):60000:60000Uy(A$)24ʲ(7);:60000V~Q$""Q$"^"Q$"["60000+VA$A$Q$:Q$;6V60000XVU$(1)"STACK":U$(2)"UNSTACK"zVU$(1)"STACK":U$(2)"UNSTACK"VU$(3)"NEWSTACK":U$(4)"ENDSTACK"VU$(5)"INVSTU ACK":U$(6)"INVERSTACK"VU$(7)"UPSTACK":U$(8)"DOWNSTACK" WU$(9)"ACTUAL":U$(10)"DO"-WU$(11)"UNTIL":U$(12)"MOR"LWU$(13)"MIR":U$(14)"PLUS"jW U$(15)"MINUS":U$(16)"("WU$(17)"LS":U$(18)"NEER"WU$(19)"READ":U$(20)"RAND"WU$(2EU!1)"GRAPH":U$(22)"SOUND"W$U$(23)"PER":U$(24)"SOR"X.U$(25)"STOP":U$(26)"CALL"'X8U$(27)"RET":U$(28)"STEP"GXBU$(29)"GET":U$(30)"BASIC"iXLU$(31)"CLEAR":U$(32)"BYTES"XVU$(33)"DATYS":U$(34)"CIL"XWU$(35)"STACK$":U$(36)"="X[Z""