1000 ON ERROR GO TO 1140 
1001 &:&
1005 P$="<00>"
1010 &"CONVRT V01A-01"
1020 &"THIS PROGRAM IS TO CONVERT AN ASCII PROGRAM FILE TO"
1030 &" A VIRTUAL ARREY FILE"
1040 &"YOU SHOULD BE UNDER [1,2] TO RUN THIS"
1041 &
1042 INPUT"DEV: YOU WANT THE PROGRAMS ON IE. DK0:";D2$
1043 &"ACCOUNT YOU WANT PROGRAMS IN";
1044 INPUT LINE A$
1045 A$=MID(A$,1%,LEN(A$)-2%)
1050 INPUT "SOURCE FILE  DEV:FILE NAME.EXT";T$
1060 INPUT "DESTINATION FILE IE. FILENAME.EXT";T2$
1070 OPEN T$ AS FILE 1%
1080 OPEN D2$+A$+T2$+P$ AS FILE 2%
1090 DIM #2%, A$(150)=128
1100 X=1
1110 INPUT LINE #1%, A$(X)
1120 X=X+1
1130 GO TO 1110 
1140 IF ERR=11% THEN 1150 ELSE ON ERROR GOTO 0
1150 &
1155 &
1160 &"THE CONVERTION IS COMPLEATE"
1190 CLOSE 1%,2%
1200 INPUT "DO YOU NEED TO CONVERT ANOTHER PROGRAM NO(0), YES(1)"; T1%
1210 IF T1%=1% THEN 1050
1220 STOP
1230 END