You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
May, 1982. 1982, Issue 24 211 COMPUTE! COMPUTEI 173<br />
346 PRINT"THIS POINTER "- AT THE TOP<br />
374 Al$=" ' W<br />
RJA=TYTOTY+LEN(A$):A%(JA-T<br />
: A%(JA- T<br />
HEN THE "- IS {REV}UNDER{<br />
Y)=PEEK(JA):NEXT<br />
J : OFF} THEM 384 IFBEG=1THENBEG=2:GOTO16 IFBEG=lTHENBEG=2 : GOT0162 2<br />
358 PRINT"TO DELETE A CHARACTER, , E<br />
386 PRINT:GOTO162<br />
: GOT016 2<br />
NTER THE ''}'<br />
] ' 388 PRINT"{HOME}";:FORU6=1TO40:POKE<br />
"; :FORU6=lT04 0 :POKE<br />
360 PRINT"TO ENTER A SPACE ENTER TH<br />
U6+32767,3 , 32:NEXT:RETURN2 : : E &.<br />
390 FORU6=TYTOTY+LEN(AS):POKEU6,A%(<br />
6 EN(A$) : U6, A%(<br />
362 PRINT"TO PRINT OUT ENTER THE '% ' %<br />
U6-TY):NEXT:RETURN<br />
- 1, SYMBOL<br />
392 FORU6=TYTOTY+LEN{A1$):POKEU6,A1<br />
FORU6=TYTOTY+LEN(Al$) : EU6,Al<br />
364 PRINT"TO TO RETURN TO THE WORDS EN<br />
%(U6-TY) - :NEXT:RETURN<br />
TER THE '@! ' @'<br />
SYMBOL. ALL<br />
394 DI=2:POKEI,32:POKES,30:FORY9=1T<br />
: , , 30:FORY9=lT<br />
ITEMS POINTED TO<br />
OLEN(E$):POKELO/32:LO=LO-1<br />
: O, 3 2 :LO=L O- l<br />
365 PRINT"WILL BE IN {REV}REVERSE {REVjREVERSE F<br />
:NEXT<br />
IELD{OFF}"<br />
396 POKELO,32:POKELN,32:LN=LN-LEN(E<br />
, :LN=LN- LEN(E<br />
366 PRINT"TO TO START PUSH SH ";M1$<br />
Ml$<br />
$)rPOKELN,30:E$="":RETURN<br />
$):POKELN , ": 368 IFPEEK(TR) OE1THEN368 398 LO=LO-1:LN=LO+40:POKELN,30:C$="<br />
LO=LO-l: LN=LO+40:POKELN , 3 0 : 370 FORU=1TO500:NEXT<br />
FORU=lT0500:NEXT<br />
":RETURN<br />
372 2 PRINT" I {CLEAR}11; " ;<br />
400 C$=LEFTS(C$,LEN{CS)-1):RETURN <<br />
40 0 C$ =L EFT$(C$,LEN(C$ ) - l) : RETURN ©<br />
EPROM<br />
EPROM<br />
PROGRAMMER<br />
Sho Shown .... n assembled. EPROM not noi Included.<br />
n<br />
included.<br />
'" J R .-. o<br />
. ... <<br />
1' ; '':
Change language