INTRODUCTION


1. LOAD the PROOF-IT program,and typethe total proof number against the listing ..=i
"RUN.".both numbers match, the program iscore.
2. LOAD the standard framework.5. SAVE the program you have just typed on
3. Type the program,and check the proofdisk or tape before you RUN it. There's al-
number for each line.ways some slight chance that something
4. After typing the entire program, press P andmight happen, and if you haven't SAVEd a
RETURN,and check the number of lines andcopy you would have to retype it.


60000IN$=:ZT=TI:ZC=2:ZD$=CHR$(20):rem 2829
60010GET Z$:IFZ$<>THEN60070:rem 37749

60020IF ZT<=TITHENPRINTMID$(RA{}R,ZC,1);{left};:ZC=3-ZC:
ZT=TI+15:rem 21796

60030GOTO60010:rem 58145

60070Z=ASC(Z$):ZL=LEN(IN$):IF(Z AND127)<32THENPRINTR"Ueft}";:
GOTO60110:rem 31223

60090IF ZL>=QITHEN60010:rem60456

60100IN$=IN$+Z$:PRINTZ$;ZD$;Z$; .:rem 54433
60110IF Z=13THENPRINTCR$; :RETURN:rem 22243
60120IF Z=20ANDZL>O THENIN$=LEFT$ CIN$,ZL-1) :PRINTIUeft}";:
GOTO60010:rem 20145

60130IF Z=141THEN Z$=CHR$(-20*CZL>0:FORZ=l TO ZL:PRINTZ$;:NEXT:
GOTO60000:rem 51708

60140GOTO60010:rem 42693

b0200ZJ=TI+30:ZT=TI:ZS=2:PRINTLEFT$CJC$,l);PR$;R{up}R:rem 42174
60210IFCPEEKCJS) AND16)=0 THEN ZS=2 :GOSUB 60280 :PRINT:RETURN:rem 64597
60215GOSUB60500:rem 61654
60220IF TI>=ZTTHEN GOSUB60280:ZT=TI+15:ZS=3-ZS:rem 122
60230Z=PEEKCJS)AND12:IFZ=12THENZJ=O:GOTO60210:rem 25639

60240IF TI<ZJTHEN60210:rem 4748
60250IF Z=4 ANDIN<JMTHENIN=IN+l:GOTO60200:rem 11785

60260IF Z=8 ANDIN>l THENIN=IN-1:GOTO60200:rern39353
60270GOTO60210:rem 29622

60280PRINTTABCJT+JW*CIN-1;MID$CJC$,ZS,1);MID$CPR$,JT+JW*CIN-1)+1,JW);

R{Up}:rem 18833
60290RETURN:rern23108
60500GET Z$:IFZ$<>OTHENRETURN:rem 46928
60600GET Z$:IFZ$<>THEN60600:rem 33729

60605POKE VIC+24,21:POKEVIC+21,O:PRINTCHR$(9);:rern33882
60610GOSUB61000:POKEVIC+33,6:POKEVIC+32,14:POKESID+24,0:
PRINTR{clr b1u}:END:rern64373
61000CRT=1024:VIC=53248:WD=40:CR$=CHR$(13):SID=54272:JS=56320:

CM=55296:rem 14404

61010JC$={bluye1}:OL=214:0I=255:RETURN:rern7983
62000LO=LENCPG$)+2:L1=LENCAU$)+2:L2=LENCA2$)+2:IFL1<L2THEN

Ll=L2:rem 41621
62010IF LO<Ll+2THEN LO=L1+2:rem 35291

62020BO$=LEFT$(R{blurvs-on39space},LO+2):rem 58433
62030DEFFNTCN)=C40-N)/2:B1$={grn}+MID$CBO$,2,L1+1):T1=FNT(L1):
TO=FNTCLO):rem 14820

62035GOSUB61000:POKEVIC+32,0:POKEVIC+33,0:POKES10+24,0:rem 45081

.62040PRINT{clr3down};CHR$(8):FOR1=1 TO 4:PR1NTTABCTO);BO$:
NEXTI :rem 50139

62050PRINTR{3up wht}R;TABCFNT(LENCPG$);PG$:PRINT:rem 10983
62060FOR1=1 TO 3:PRINTTABCT1);B1$:NEXT1 :rem 59320

62070PRINT{2up rvs-on};TAB(FNTCLENCAU$);AU$:rem 29924

(Standard framework continued on next page)

