5 A$="A":A=1:U=31:O=92:T=1:Z$=CHR$(123):X$=CHR$(125):S$=Z$+"SH-":C$=Z$+"C=-":GOTO140
8 PRINT#2,A$;:PRINTA$;
10 GET#1,A$:IFST<>0THENCLOSE1:CLOSE2:END
20 A=ASC(A$):IFA>UANDA<OTHEN8
30 IFA$="]"THEN8
40 IFA=13ORA=10THENA$=L$:GOTO8
50 FORT=0TOM:IFA$=A$(T)THENA$=Z$+B$(T)+X$:GOTO8
60 NEXT
70 FORT=0TOSSTEP2:IFS$(T)=A$THENA$=S$+S$(T+1)+X$:GOTO8
80 NEXT
90 FORT=0TOCSTEP2:IFC$(T)=A$THENA$=C$+C$(T+1)+X$:GOTO8
100 NEXT
110 A$=Z$+STR$(A)+X$:GOTO8
140 PRINT"{CLR}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}      PREPARING...{DOWN}":PRINT"         {RVS ON} {RVS OFF}{C=-+}{C=-+}{C=-+}{LEFT}{LEFT}{LEFT}";
150 A$="{SH-+}+{SH--}-{SH-Q}Q{SH-W}W{SH-E}E{SH-R}R{SH-T}T{SH-Y}Y{SH-U}U{SH-I}I{SH-O}O{SH-P}P{SH-@}@{SH-*}*{SH-A}A{SH-S}S{SH-D}D{SH-F}F{SH-G}G{SH-H}H{SH-J}J{SH-K}K{SH-L}L{SH-Z}Z{SH-X}X{SH-C}C{SH-V}V{SH-B}B{SH-N}N{SH-M}M":S=LEN(A$)-1
155 DIMS$(S):FORT=0TOS:S$(T)=MID$(A$,T+1,1):NEXT:PRINT"{RVS ON}  ";
160 A$="{C=-+}+{C=--}-{C=-Q}Q{C=-W}W{C=-E}E{C=-R}R{C=-T}T{C=-Y}Y{C=-U}U{C=-I}I{C=-O}O{C=-P}P{C=-@}@{C=-*}*{C=-A}A{C=-S}S{C=-D}D{C=-F}F{C=-G}G{C=-H}H{C=-J}J{C=-K}K{C=-L}L{C=-Z}Z{C=-X}X{C=-C}C{C=-V}V{C=-B}B{C=-N}N{C=-M}M"
170 A$=A$+"{C=-1}1{C=-2}2{C=-3}3{C=-4}4{C=-5}5{C=-6}6{C=-7}7{C=-8}8":C=LEN(A$)-1  :REM 64/128 COLORS
175 DIMC$(C):FORT=0TOC:C$(T)=MID$(A$,T+1,1):NEXT:PRINT" "
180 DATA"{SH-SPC}","SH-SPC"
190 DATA"{BLK}",BLK,"{WHT}",WHT,"{RED}",RED,"{CYN}",CYN,"{PUR}",PUR,"{GRN}",GRN,"{BLU}",BLU,"{YEL}",YEL,"{RVS ON}","RVS ON"
200 DATA"{RVS OFF}","RVS OFF","{POUND}",POUND,"{C=-POUND}","C=-POUND","{SH-POUND}","SH-POUND","{ARROW LEFT}","ARROW LEFT"
210 DATA"{ARROW UP}","ARROW UP","{PI}","PI","{HOME}",HOME,"{CLR}","CLR","{INST}",INST,"{DEL}",DEL
220 DATA"{DOWN}",DOWN,"{RIGHT}",RIGHT,"{UP}",UP,"{LEFT}",LEFT
230 DATA"{F1}",F1,"{F2}",F2,"{F3}",F3,"{F4}",F4,"{F5}",F5,"{F6}",F6,"{F7}",F7,"{F8}",F8
240 M=32:DIMA$(M):DIMB$(M):FORT=0TOM:READA$(T),B$(T):NEXT
250 PRINT"{CLR}    {RVS ON}TEXTPORT V1.02{DOWN}"
260 PRINT"BY ANDERS PERSSON 2004HTTP://LISTEN.TO/BORAY"
270 PRINT"THIS PROGRAM CONVERTS"
280 PRINT"A PETASC TEXT FILE TO":PRINT"ASCII. TO PUBLISH A"
290 PRINT"PROGRAM LISTING, DO":PRINT"LIKE THIS:{DOWN}"
300 PRINT"OPEN1,8,1,"+CHR$(34)+"FILE"+CHR$(34):PRINT"CMD1:LIST"
310 PRINT"PRINT#1:CLOSE1{DOWN}":PRINT"AND THEN LOAD THE FILE INTO THIS PROGRAM."
320 PRINT"{DOWN}{DOWN}INPUT FILE":INPUTI$:PRINT"OUTPUT FILE":INPUTO$
330 PRINT"{DOWN}SELECT LINE BREAK:":PRINT"{RVS ON}A{RVS OFF}=10 ONLY, {RVS ON}P{RVS OFF}=13+10":L$=CHR$(10)
340 GETA$:IFA$<>"A" AND A$<>"P"THEN340
350 IFA$="P"THENL$=CHR$(13)+CHR$(10)
360 PRINT"{DOWN}PROCESSING:":PRINT"{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}{SH-*}"
370 OPEN1,8,0,I$:OPEN2,8,1,O$
380 GOTO10

READY.