10 A$="":DIMA$(667):GOSUB100:HD$="":PRINT"[147][159]"
20 RV=0:BX=0:EX=40:BY=0:BD=19:BC=7:GOSUB130:GOSUB450:POKE53281,0:POKE53280,0
30 BX=1:EX=39:BY=21:BD=1:BC=3:GOSUB130
40 LN$="                                      ":X$=CHR$(13):CU=3
41 IFPEEK(787)THEN70
50 MS$="LOADING ROUTINES...":GOSUB190
60 SYS57812"INPUT ANY.O",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
70 GOSUB5000:POKE787,0
80 GOTO210
90 REM*******GENERATE VARIABLES**********
100 BA$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
110 A$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":FORI=1TO6:BD$=BD$+A$:NEXT:RETURN
120 REM*********PRINT BOX*************
130 OC=PEEK(646):POKE646,BC:RV$="":IFRVTHENRV$=""
140 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
150 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]"
160 POKE211,BX:POKE214,BY+1:SYS58732:PRINTRV$LEFT$(BD$,BD*3)"":POKE646,OC
170 RV=0:RETURN
180 REM****PRINT MESSAGE****
190 GOSUB200:PRINT"[158]"LEFT$(HD$,23)SPC(20-LEN(MS$)/2)MS$"[159]":RETURN
200 PRINTLEFT$(HD$,23)""LEFT$(LN$,36):RETURN
210 H=-1:MS$="[204][207][193][196][201][206][199] [212][197][216][212]...":GOSUB190:L=1:OPEN2,8,2,FO$(IT%)+",P,R":GET#2,A$,A$
220 IFLTHENSYS828,2,40:H=H+1:I=ST:IFA$=""THENA$=" "
230 A$(H)=A$:IFH=19THENGOSUB360
240 A$(H)=A$:IFH=39THENMS$="[217]OU CAN PAGE NOW. (STILL LOADING)":GOSUB190
250 IFPEEK(197)=64ANDST=0THEN220
260 IFPEEK(197)=7THENIFPEEK(653)=0THENGOSUB470
270 IFPEEK(197)=41THENIFL=0THENGOSUB530
280 IFPEEK(197)=20THENGOSUB790:GOSUB380
290 IFPEEK(197)=62THENGOSUB650
300 IFPEEK(197)=51THENPA=0:GOSUB370
310 IFPEEK(197)=12THENIFPEEK(653)=4THENPA=19*INT(H/19):GOSUB500
320 IFPEEK(197)=7THENIFPEEK(653)=1THENGOSUB500
330 IFLTHENIFST=0THENGOTO220
340 IFLTHENCLOSE2:GOSUB720:GOSUB700:L=0
350 GOTO260
360 REM**DISPLAY TEXT***
370 FORD=0TO10:POKE214,D:PRINT:PRINT""LN$:POKE214,18-D:PRINT:PRINT""LN$:NEXT
380 POKE646,CU:POKE214,9:PRINT:PRINT""A$(10+PA):FORD=1TO9:POKE214,9-D:PRINT
390 PRINT""A$(10-D+PA):POKE214,9+D:PRINT:PRINT""A$(10+D+PA):NEXT
400 PRINTHD$LN$HD$SPC(14+L*3)"[155][208]AGE[158]"INT(1+PA/19);
410 IFL=0THENPRINT"[155]OF[158]"LP"[159]"
420 IFLTHENPRINT"[159]"
430 RETURN
440 REMCLEAR LINE LINKS
450 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
460 REM PAGE
470 IFH<PA+38THENIFLTHENRETURN
475 IFINT(1+PA/19)=LPTHENRETURN
480 IFH<PA+19THENRETURN
490 PA=PA+19:GOSUB360:RETURN
500 IFPA-19<0THENRETURN
510 PA=PA-19:GOSUB360:RETURN
520 REM***PRINT***
530 CLOSE15:CLOSE4:OPEN15,4,8:CLOSE15:IFSTTHENPOKE53281,1:POKE53281,0:RETURN
540 MS$="[211]INGLE SHEET OR [212]RACTOR? ([211]/[212]/^)":GOSUB190
550 GETA$:IFA$<>"S"ANDA$<>"T"ANDA$<>"^"THEN550
560 IFA$="^"THENGOSUB700:RETURN
570 T=1:IFA$="S"THENT=0
580 MS$="[211]ET TOP OF FORM/[159][210]ETURN/[158]^":GOSUB190:POKE198,0:WAIT198,1:GETA$
584 IFA$="^"THEN560
585 GOSUB640
590 OPEN4,4,7:II=4:PRINT#4,X$X$X$X$:FORI=1TOH
600 PRINT#4,A$(I)SPC(40-LEN(A$(I)))A$(I+55):II=II+1:IFII<55THEN630
610 II=0:PRINT#4,X$X$X$X$X$X$X$X$X$X$:I=I+55:IFTTHEN630
620 MS$="[206]EXT SHEET/[159][210][197][212][213][210][206]/[158]^":GOSUB190:POKE198,0:WAIT198,1:GETA$
625 IFA$="^"THENI=1000:NEXT:CLOSE4:GOTO560
630 GOSUB640:NEXT:GOSUB700:RETURN
640 MS$="[208]RINTING...":GOSUB190:RETURN
650 MS$="[209]UIT?  [193]RE YOU SURE?  ([217]/[206])":GOSUB190:POKE198,0
660 GETA$:IFA$<>"Y"ANDA$<>"N"THEN660
670 IFA$<>"Y"THENGOSUB200:GOSUB700:RETURN
680 POKE787,1:RUN
690 REM*** MENU ****
700 PRINTLEFT$(HD$,23)""LEFT$(LN$,36)"[145]"
710 PRINT"[158][195][210][211][210]-[213][208]/[196][206][146][159] TO PAGE  [158][209][146][159] [209]UIT [158][208][146][159] [208]RINT":RETURN
720 LP=H/19:IFLP>INT(LP)THENLP=INT(LP)+1:RETURN
730 RETURN
740 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
750 IF ER<>63 THEN PRINT"[147]":END
760 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,0:POKE53280,0:PRINT"[147]"
770 PRINT"[144]LOAD"Q$A$Q$",8"
780 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
790 CU=CU+1:IFCU=16THENCU=1
800 POKE646,CU:RETURN
5000 FI$(1)=" [202][201][198][198][217][160][196][207][211] ":FI$(2)=" [211][213][208][197][210][160][193][201][196][197] ":FI$(3)=""
5001 FO$(1)="T.REVIEW2":FO$(2)="T.SUPER AIDE"
5010 FI$(3)=" [210]ETURN TO [204][207][193][196][211][212][193][210] ":IT%=1:FI$(4)=" [210]ETURN TO [204][207][193][196][211][212][193][210] "
5011 MS$="[195]HOOSE YOUR REVIEW/[208]RESS [210][197][212][213][210][206]":GOSUB190
5019 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
5020 PRINT"[152] [204][160][207][160][193][160][196][160][211][160][212][160][193][160][210][160][160][160][160][210][160][197][160][214][160][201][160][197][160][215][160][211] "
5021 PRINT"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158]"
5025 POKE214,6:PRINT:FORI=0TO3:POKE646,3:IFIT%=ITHENPOKE199,1:POKE646,7
5030 PRINTSPC(20-LEN(FI$(I))/2)FI$(I):PRINT:NEXT
5040 GETA$:IFA$<>"[145]"ANDA$<>""ANDA$<>CHR$(13)THEN5040
5050 IFA$="[145]"THENIT%=IT%-1:IFIT%<1THENIT%=3
5060 IFA$=""THENIT%=IT%+1:IFIT%>3THENIT%=1
5070 IFA$<>CHR$(13)THEN5025
5080 IFIT%=3THEN740
5090 RETURN
6000 PRINTPEEK(197),PEEK(631):POKE198,0:GOTO6000