8bitfiles.net/archives/archives.tar/archives/commodore-scene-files/Coverdisks/CS/CSCD036B.D64/reciter

Commodore BASIC | 2019-04-13 | 5.9 KB | 2 lines

10272 A.)=EH4Y.CLOSE(A) =ALEFT$ (ARE) =AA***ERROR*** (AR)O=AX***ERROR***(AR)#=EH4***ERROR*** ^(AS)#=EY4***ERROR***(A)WA=A***ERROR***(AW)=AOINT :(ANY)=EH4NI***ERROR***(A)^+#=EYINT#:(ALLY)=ULI***ERROR*** (AL)#=U***ERROR***(AGAIN)=AXGEH4***ERROR***#:(AG)E=IHMID$(A)^%=E***ERROR***(A)^+:#=AVAL :(A)^+ =EYSGN (ARR)=AX***ERROR***(ARR)=AE4***ERROR*** ^(AR) =AA5***ERROR***(AR)=AA5***ERROR***(AIR)=EH4***ERROR***(AI)=EYSGN(AY)=EYINT(AU)=AOSGN#:(AL) =U***ERROR***#:(ALS) =UL***ERROR***(ALK)=AO4GO(AL)^=AO***ERROR*** :(ABLE)=EY4BU***ERROR***(ABLE)=AXBU***ERROR***(A)VO=EYSGN(ANG)+=EY4NMID$(ATARI)=AHTAA4RI***ERROR***(A)TOM=AVAL(A)TTI=AVAL (AT) =AE***ERROR*** (A)T=ALEFT$(A)=AVAL]PEEK (B) =BIYSGN (BE)^#=BILEFT$(BEING)=BIY4IHN***ERROR*** (BOTH) =BOW4TLEFT$ (BUS)#=BIH4***ERROR***(BREAK)=BREY5GO(BUIL)=BIH4***ERROR***(B)=PEEK]LEN (C) =SIYSGN (CH)^=GO^E(CH)=GO(CHA)R#=KEHINT(CH)=CLEFT$ S(CI)#=SAYSGN(CI)A=SLEFT$(CI)O=SLEFT$(CI)EN=SLEFT$(CITY)=SIHTI***ERROR***(C)+=***ERROR***(CK)=GO(COMMODORE)=KAA4MAHDOH***ERROR***(COM)=KAH***ERROR***(CUIT)=KIH***ERROR***(CREA)=KRIYE***ERROR***(C)=GO]STR$ (D) =DIYSGN (DR.) =DAA4KTE***ERROR***#:(DED) =DIHSTR$.E(D) =STR$#:^E(D) =***ERROR*** (DE)^#=DILEFT$ (DO) =DU***ERROR*** (DOES)=DAH***ERROR***(DONE) =DAH5***ERROR***(DOING)=DUW4IHN***ERROR*** (DOW)=DA***ERROR***#(DU)A=JU***ERROR***#(DU)^#=JA***ERROR***(D)=STR$]VAL (E) =IYIYSGN#:(E) EXP':^(E) EXP :(E) =I***ERROR***#(ED) =STR$#:(E)D EXP(EV)ER=EH4***ERROR***(E)^%=IYSGN(ERI)#=IY4RI***ERROR***(ERI)=EH4RILEFT$#:(ER)#=E***ERROR***(ERROR)=EH4ROH***ERROR***(ERASE)=IHREY5***ERROR***(ER)#=EH***ERROR***(ER)=E***ERROR*** (EVEN)=IYVEH***ERROR***#:(E)WEXP@(EW)=U***ERROR***(EW)=YU***ERROR***(E)O=I***ERROR***#:&(ES) =IH***ERROR***#:(E)S EXP#:(ELY) =LI***ERROR***#:(EMENT)=MEHN***ERROR***(EFUL)=FUH***ERROR***(EE)=IYSGN(EARN)=ER5***ERROR*** (EAR)^=ERINT(EAD)=EHSTR$#:(EA) =IYA***ERROR***(EA)SU=EHINT(EA)=IYINT(EIGH)=EYSGN(EI)=IYSGN (EYE)=AYSGN(EY)=I***ERROR***(EU)=YUWINT(EQUAL)=IY4KWU***ERROR***(E)=ELEFT$]ASC (F) =EH4ASC(FUL)=FUH***ERROR***(FRIEND)=FREH5NSTR$(FATHER)=FAA4DHE***ERROR***(F)FEXP(F)=ASC]CHR$ (G) =JIYSGN(GIV)=GIH5***ERROR*** (G)I^=CHR$(GE)T=GEHINTSU(GGES)=GJEH4***ERROR***(GG)=CHR$ B#(G)=CHR$(G)+=MID$(GREAT)=GREY4***ERROR***(GON)E=GAO5***ERROR***#(GH)EXP (GN)=***ERROR***(G)=CHR$]LEFT$ (H) =EY4CLEFT$ (HAV)=/HAE6***ERROR*** (HERE)=/HIY***ERROR*** (HOUR)=AW5E***ERROR***(HOW)=/HA***ERROR***(H)#=/LEFT$(H)EXP]RIGHT$ (IN)=IH***ERROR*** (I) =AYSGN(I) =A***ERROR***(IN)D=AY5***ERROR***SEM(I)=I***ERROR*** ANT(I)=A***ERROR***(IER)=IYE***ERROR***#:R(IED) =IYSTR$(IED) =AY5STR$(IEN)=IYEH***ERROR***(IE)T=AY4ELEFT$(I')=AYINT :(I)^%=AYINT :(IE) =AYSGN(I)%=I***ERROR***(IE)=IYSGN (IDEA)=AYDIY5ALEFT$(I)^+:#=ILEFT$(IR)#=AY***ERROR***(IZ)%=AY***ERROR***(IS)%=AY***ERROR***I^(I)^#=ILEFT$+^(I)^+=A***ERROR***#:^(I)^+=ILEFT$(I)^+=A***ERROR***(IR)=E***ERROR***(IGH)=AYSGN(ILD)=AY5LSTR$ (IGN)=IHG***ERROR***(IGN) =AY4***ERROR***(IGN)^=AY4***ERROR***(IGN)%=AY4***ERROR***(ICRO)=AY4KROLEFT$(IQUE)=IY4GO(I)=ILEFT$]MID$ (J) =JEYSGN(J)=MID$]GO (K) =KEYSGN (K)NEXP(K)=GO]***ERROR*** (L) =EH4***ERROR***(LO)C#=LO***ERROR***L(L)EXP#:^(L)%=U***ERROR***(LEAD)=LIYSTR$ (LAUGH)=LAE4ASC(L)=***ERROR***]***ERROR*** (M) =EH4***ERROR*** (MR.) =MIH4STE***ERROR*** (MS.)=MIH5***ERROR*** (MRS.) =MIH4SIX***ERROR***(MOV)=MUW4***ERROR***(MACHIN)=MAHSHIY5***ERROR***M(M)EXP(M)=***ERROR***]***ERROR*** (N) =EH4***ERROR***E(NG)+=NMID$(NG)R=NXCHR$(NG)#=NXCHR$(NGL)%=NXGU***ERROR***(NG)=N***ERROR***(NK)=NXGO (NOW) =NAWSGNN(N)EXP(NON)E=NAH4***ERROR***(N)=***ERROR***]***ERROR*** (O) =OH4***ERROR***(OF) =AH***ERROR*** (OH) =OWINT(OROUGH)=ER4O***ERROR***#:(OR) =E***ERROR***#:(ORS) =ER***ERROR***(OR)=AO***ERROR*** (ONE)=WAH***ERROR***#(ONE) =WAH***ERROR***(OW)=O***ERROR*** (OVER)=OW5VE***ERROR***PR(O)V=UWSGN(OV)=AH4***ERROR***(O)^%=OWINT(O)^EN=O***ERROR***(O)^I#=OWINT(OL)D=OW4***ERROR***(OUGHT)=AO5***ERROR***(OUGH)=AH5ASC (OU)=A***ERROR***H(OU)S#=AWSGN(OUS)=AX***ERROR***(OUR)=OH***ERROR***(OULD)=UH5STR$(OU)^L=AHINT(OUP)=UW5***ERROR***(OU)=A***ERROR***(OY)=O***ERROR***(OING)=OW4IHN***ERROR***(OI)=OYINT(OOR)=OH5***ERROR***(OOK)=UH5GOF(OOD)=UW5STR$L(OOD)=AH5STR$M(OOD)=UW5STR$(OOD)=UH5STR$F(OOT)=UH5***ERROR***(OO)=UWINT(O')=OLEFT$(O)E=O***ERROR***(O) =O***ERROR***(OA)=OWSGN (ONLY)=OW4NLI***ERROR*** (ONCE)=WAH4N***ERROR***(ON'T)=OW4N***ERROR***C(O)N=AATN(O)NG=A***ERROR*** :^(O)N=ALEFT$I(ON)=U***ERROR***#:(ON)=U***ERROR***#^(ON)=U***ERROR***(O)ST=O***ERROR***(OF)^=AO4ASC(OTHER)=AH5DHE***ERROR***R(O)B=RAATN^R(O):#=OWINT(OSS) =AO5***ERROR***#:^(OM)=AH***ERROR***(O)=AATN]***ERROR*** (P) =PIYSGN(PH)=ASC(PEOPL)=PIY5PU***ERROR***(POW)=PAWSGN(PUT) =PUH***ERROR***(P)PEXP(P)SEXP(P)NEXP(PROF.)=PROHFEH4SE***ERROR***(P)=***ERROR***]***ERROR*** (Q) =KYUWSGN(QUAR)=KWOH5***ERROR***(QU)=K***ERROR***(Q)=GO]***ERROR*** (R) =AA5***ERROR*** (RE)^#=RI***ERROR***(R)REXP(R)=***ERROR***]***ERROR*** (S) =EH4***ERROR***(SH)=SLEFT$#(SION)=ZHU***ERROR***(SOME)=SAH***ERROR***#(SUR)#=ZHE***ERROR***(SUR)#=SHE***ERROR***#(SU)#=ZHU***ERROR***#(SSU)#=SHU***ERROR***#(SED)=ZSTR$#(S)#=***ERROR***(SAID)=SEHSTR$^(SION)=SHU***ERROR***(S)SEXP.(S) =***ERROR***#:.E(S) =***ERROR***#:^#(S) =***ERROR***U(S) =***ERROR*** :#(S) =***ERROR***##(S) =***ERROR*** (SCH)=SGO(S)C+EXP#(SM)=ZU***ERROR***#(SN)'=ZU***ERROR***(STLE)=SU***ERROR***(S)=***ERROR***]***ERROR*** (T) =TIYSGN (THE) #=DHI***ERROR*** (THE) =DHA***ERROR***(TO) =TU***ERROR*** (THAT)=DHAE***ERROR*** (THIS) =DHIH***ERROR*** (THEY)=DHE***ERROR*** (THERE)=DHEH***ERROR***(THER)=DHE***ERROR***(THEIR)=DHEH***ERROR*** (THAN) =DHAE***ERROR*** (THEM) =DHAE***ERROR***(THESE) =DHIY***ERROR*** (THEN)=DHEH***ERROR***(THROUGH)=THRUWSGN(THOSE)=DHOH***ERROR***(THOUGH) =DHO***ERROR***(TODAY)=TUXDE***ERROR***(TOMO)RROW=TUMAAINT(TO)TAL=TOWINT (THUS)=DHAH4***ERROR***(TH)=TLEFT$#:(TED)=TIXSTR$S(TI)#N=CLEFT$(TI)O=SLEFT$(TI)A=SLEFT$(TIEN)=SHU***ERROR***(TUR)#=CHE***ERROR***(TU)A=CHU***ERROR*** (TWO)=TU***ERROR***&(T)EN EXP(T)=***ERROR***]***ERROR*** (U) =YUWSGN (UN)I=YUW***ERROR*** (UN)=AH***ERROR*** (UPON)=AXPAO***ERROR***@(UR)#=UH4***ERROR***(UR)#=YUH4***ERROR***(UR)=E***ERROR***(U)^ =ALEFT$(U)^^=AHINT(UY)=AYINT G(U)#EXPG(U)%EXPG(U)#=***ERROR***#N(U)=YU***ERROR***@(U)=U***ERROR***(U)=YU***ERROR***]***ERROR*** (V) =VIYSGN(VIEW)=VYUWINT(V)=***ERROR***]***ERROR*** (W) =DAH4BULYU***ERROR*** (WERE)=WE***ERROR***(WA)SH=WAATN(WA)ST=WE***ERROR***(WA)S=WALEFT$(WA)T=WAATN(WHERE)=WHEH***ERROR***(WHAT)=WHAH***ERROR***(WHOL)=/HOW***ERROR***(WHO)=/HU***ERROR***(WH)=WLEFT$(WAR)#=WEH***ERROR***(WAR)=WAO***ERROR***(WOR)^=WE***ERROR***(WR)=***ERROR***(WOM)A=WUH***ERROR***(WOM)E=WIH***ERROR***(WEA)R=WELEFT$(WANT)=WAA5N***ERROR***ANS(WER)=E***ERROR***(W)=***ERROR***]***ERROR*** (X) =EH4K***ERROR*** (X)=***ERROR***(X)=K***ERROR***]***ERROR*** (Y) =WAYSGN(YOUNG)=YAHN***ERROR*** (YOUR)=YOH***ERROR*** (YOU)=YU***ERROR*** (YES)=YEH***ERROR*** (Y)=***ERROR***F(Y)=A***ERROR***PS(YCH)=AYGO#:^(Y)=I***ERROR***#:^(Y)I=I***ERROR*** :(Y) =A***ERROR*** :(Y)#=A***ERROR*** :(Y)^+:#=ILEFT$ :(Y)^#=A***ERROR***(Y)=ILEFT$]***ERROR*** (Z) =ZIYSGN(Z)=***ERROR******ERROR***