1000 CLR:Z=0:C%=0:C1%=0:C2%=0:C3%=0

1005 C4%=0:Z$="                ":Z$=Z$+Z$+Z$+Z$

1010 Z$=Z$+Z$+Z$+LEFT$(Z$,63):C5%=0:C6%=0:C7%=0

1015 M%=PEEK(45)+PEEK(46)*256-282:N%=M%+141:Q%=31020:Q=0:PRINTCHR$(14)

1020 Y$="1":R%=8:R1%=8:T1%=8082:GOSUB3390:DIMB%(2000):DIMC%(1600):DIMD%(1600)

1025 DIMG%(800):DIMH%(200):DIMH1%(200):DIMI%(40):DIMI1%(40):DIMI2%(40)

1030 DIMI$(30):DIMI1$(30):DIMF$(7):CLOSE14:OPEN14,R%,15:CLOSE15:OPEN15,R1%,15

1035 X$=""

1036 GOSUB3415

1037 IFT%=1THENPRINT#15,"I"+Y$:INPUT"FILENAME    :";A$:A2$="C/"+LEFT$(A$,14):TI$="000000":GOSUB1056:GOTO1041:REM"ELSE

1040 IFT3%<>0THENA2$=A$:GOSUB1056

1041 A=0:A5$="OK":PRINT""

1042 PRINTLEFT$(X$,6+X2);:PRINTSPC(X4);:PRINT"";:PRINTA;:PRINTA5$:CLOSE2:CLOSE3:CLOSE4:CLOSE15

1043 FORA=0TO5:PRINTCHR$(7);:NEXT

1044 END

1056 REM"DO

1057 GOSUB1092

1058 GOSUB2930

1060 IFT%=1THENRETURN

1065 GOSUB3605:IFT3%=0ANDT8%=0THENRETURN

1066 IFT3%=0THENT8%=0:T2%=0:T3%=0:GOSUB3605:GOTO1068:REM"ELSE

1067 T2%=T2%+1

1068 PRINTCHR$(7);:K%=0:B5%=0:B2%=0:B3%=0:Y%=0:IFT%<4THENH=0:G=0

1069 A2$=A$:GOTO1056:REM"WHILE(TRUE)

1092 A1$=LEFT$(A$,14):CLOSE14:OPEN14,R%,15:CLOSE15:OPEN15,R1%,15:CLOSE2

1093 OPEN2,R%,2,A$+",P,R":R3%=14:GOSUB3305:GET#2,B1$:GET#2,B1$:R3%=15

1094 PRINT#15,"S"+Y$+":Z/"+A1$:CLOSE6

1095 IFT%>1THENOPEN6,R1%,6,Y$+":Z/"+A1$+",P,W":GOSUB3305:PRINT#6,"A":CLOSE6

1096 PRINT#15,"S"+Y$+":P/"+A1$:CLOSE4:OPEN4,R1%,4,Y$+":P/"+A1$+",S,W"

1097 GOSUB3305:PRINT#15,"S"+Y$+":D/"+A1$:GOSUB3390:X1=0:X2=0:X3=0:X4=0

1098 PRINT"";:PRINTSPC(13);:PRINT"PROGRAM:  ";:PRINTA$:IFT8%THENPRINT"PASS0":GOTO1100:REM"ELSE

1099 PRINT"PASS1"

1100 C%=0:C2%=1:E%=0:X0=0:IFT%<4ORT2%=0THENI$=CHR$(21):GOSUB2920

1105 I$="":I=0:ER%=0:IFC2%=0THENGOTO1135:REM"DO,ELSE

1106 SYSM%+86:IFC4%=0THENRETURN

1107 C1%=3

1110 B1=ASC(MID$(Z$,3))+ASC(MID$(Z$,4))*256

1111 PRINT"";:PRINTB1

1115 D%(B5%)=B1-32767:C%(B5%)=E%:B5%=B5%+1

1120 IFB3%=0THENB4=B1:B3%=1

1130 SYSM%:IFC2%GOTO1105:REM"CONTINUE

1135 IFC3%THENSYSM%:GOTO1105:REM"CONTINUE

1175 X5=0:IFC%<128AND(C%<65ORC%>90)THENGOSUB1230:GOTO1215:REM"ELSEIF

1176 IFC%>64ANDC%<91THENGOSUB1260:GOTO1215:REM"ELSEIF

1177 IFC%=128THENI$=CHR$(79):SYSM%:GOTO1215:REM"ELSEIF

1178 IFC%=129THENGOSUB1330:GOTO1215:REM"ELSEIF

1179 IFC%=130THENGOSUB1380:GOTO1215:REM"ELSEIF

1180 IFC%=131THENGOSUB1405:GOTO1215:REM"ELSEIF

1181 IFC%=132THENGOSUB1450:GOTO1215:REM"ELSEIF

1182 IFC%=133THENGOSUB1465:GOTO1215:REM"ELSEIF

1183 IFC%=134THENGOSUB1520:GOTO1215:REM"ELSEIF

1184 IFC%=135THENGOSUB1555:GOTO1215:REM"ELSEIF

1185 IFC%=136THENGOSUB1255:GOTO1215:REM"ELSEIF

1186 IFC%=137THENJ%=25:GOSUB1595:GOTO1215:REM"ELSEIF

1187 IFC%=138THENGOSUB1620:GOTO1215:REM"ELSEIF

1188 IFC%=139THENGOSUB1630:GOTO1215:REM"ELSEIF

1189 IFC%=140THENI$=CHR$(30):SYSM%:GOTO1215:REM"ELSEIF

1190 IFC%=141THENJ%=26:GOSUB1595:GOTO1215:REM"ELSEIF

1191 IFC%=142THENI$=CHR$(29):SYSM%:GOTO1215:REM"ELSEIF

1192 IFC%=143THENGOSUB1665:GOTO1215:REM"ELSEIF

1193 IFC%=144THENI$=CHR$(73):SYSM%:GOTO1215:REM"ELSEIF

1194 IFC%=145THENGOSUB1780:GOTO1215:REM"ELSEIF

1195 IFC%=146THENGOSUB1825:GOTO1215:REM"ELSEIF

1196 IFC%=147THENJ%=93:GOSUB1910:GOTO1215:REM"ELSEIF

1197 IFC%=148THENJ%=94:GOSUB1910:GOTO1215:REM"ELSEIF

1198 IFC%=149THENJ%=95:GOSUB1910:GOTO1215:REM"ELSEIF

1199 IFC%=150THENGOSUB1960:GOTO1215:REM"ELSEIF

1200 IFC%=151THENGOSUB1860:GOTO1215:REM"ELSEIF

1201 IFC%=152THENF5=1:GOSUB2020:GOTO1215:REM"ELSEIF

1202 IFC%=153THENGOSUB2055:GOTO1215:REM"ELSEIF

1203 IFC%=154THENER%=3:GOTO1215:REM"ELSEIF

1204 IFC%=155THENER%=3:GOTO1215:REM"ELSEIF

1205 IFC%=156THENI$=CHR$(21):SYSM%:GOTO1215:REM"ELSEIF

1206 IFC%=157THENF5=0:GOSUB2020:GOTO1215:REM"ELSEIF

1207 IFC%=158THENGOSUB1870:GOTO1215:REM"ELSEIF

1208 IFC%=159THENGOSUB2140:GOTO1215:REM"ELSEIF

1209 IFC%=160THENGOSUB2200:GOTO1215:REM"ELSEIF

1210 IFC%=161THENGOSUB2220:GOTO1215:REM"ELSEIF

1211 IFC%=162THENI$=CHR$(78):SYSM%:GOTO1215:REM"ELSEIF

1212 IFC%<203THENER%=1:GOTO1215:REM"ELSEIF

1213 IFC%=203THENGOSUB2260:GOTO1215:REM"ELSE

1214 GOSUB1230

1215 IFER%=-1GOTO1105:REM"CONTINUE

1216 IFER%=1THENGOSUB3315:GOTO1105:REM"CONTINUE

1217 IFER%=2THENGOSUB3340:GOTO1105:REM"CONTINUE

1218 IFER%=3THENX1$="NO VALID COMMAND  ":GOSUB3345:GOTO1105:REM"CONTINUE

1219 GOSUB2920:IFC3%=0THENGOSUB3315

1220 GOTO1105:REM"WHILE(TRUE)

1230 X1$="EXTENTIONS":X0=X0+1:IFY%=0THENGOSUB3370

1231 I$=CHR$(71)+CHR$(C%):K2%=58

1232 SYSM%+3:REM"DO

1233 IFC%=K2%ORC%=0GOTO1236:REM"ELSE

1234 IFC%=34THENK2%=34

1235 I$=I$+CHR$(C%):GOTO1232:REM"CONTINUE

1236 IFC%<>34THENI$=I$+":"+CHR$(158)+"2082:":RETURN

1237 K2%=58:I$=I$+CHR$(C%):GOTO1232:REM"WHILE(TRUE)

1255 SYSM%:GOSUB1260:RETURN

1260 GOSUB2635:E$=CHR$(ASC(J$)OR64)+MID$(J$,2):E2%=L2%:IFC%<>178THENER%=1:RETURN

1265 SYSM%:GOSUB2275:IFL2%<>E2%THENER%=2:RETURN

1270 I$=I$+E$:RETURN

1330 SYSM%:FA=1:GOSUB2635:E1$=J$:E$=CHR$(ASC(J$)OR64)+MID$(J$,2):E2%=L2%

1335 IFC%<>178THENER%=1:RETURN

1340 SYSM%:GOSUB2275:IFL2%<>E2%THENER%=2:RETURN

1350 I$=I$+E$:IFC%<>164THENER%=1:RETURN

1355 GOSUB2920:E$=E1$:IFLEN(E$)=1THENE$=CHR$(160)+CHR$(ASC(E$)AND31)

1360 SYSM%:GOSUB2270:IFL2%<>E2%THENER%=2:RETURN

1365 E1$=I$:IFC%<>169THENE$=E$+CHR$(17):GOTO1375:REM"ELSE

1370 E$=E$+CHR$(18):SYSM%:GOSUB2270:E1$=E1$+I$:IFL2%<>E2%THENER%=2:RETURN

1375 I$=E1$+E$:RETURN

1380 SYSM%:IFC3%THENI$=CHR$(19):RETURN

1385 FA=1:GOSUB2635:IFLEN(J$)=1THENJ$=CHR$(160)+CHR$(ASC(J$)AND31):REM"DO

1390 I$=J$+CHR$(20):GOSUB2920:IFC3%THENER%=-1:RETURN

1395 IFC%<>44THENER%=1:RETURN

1400 SYSM%:GOTO1385:REM"WHILE(TRUE)

1405 IFK%=0THENCLOSE5:OPEN5,R1%,5,Y$+":D/"+A1$+",S,W"

1410 K1%=0:K$="":SYSM%:K2%=58:K3%=44:REM"DO

1420 IFC%=K2%ORC%=K3%ORC%=0GOTO1435:REM"DO,ELSE

1425 IFC%=34THENK2%=0:K3%=34:SYSM%+3:GOTO1420:REM"CONTINUE

1430 K1%=K1%+1:K$=K$+CHR$(C%):SYSM%+3:GOTO1420:REM"CONTINUE

1435 IFC%<>34THENGOTO1440:REM"BREAK

1436 K2%=58:K3%=44:SYSM%+3:GOTO1420:REM"WHILE(TRUE)

1440 PRINT#5,CHR$(K1%);:PRINT#5,K$;:K%=K%+K1%+1

1441 IFC%<>44THENER%=-1:RETURN

1445 GOTO1410:REM"WHILE(TRUE)

1450 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

1455 I$=I$+CHR$(72):IFC%<>44THENER%=1:RETURN

1460 SYSM%:GOSUB1480:RETURN

1465 SYSM%:I$=CHR$(80):IFC%<>34GOSUB1480:RETURN

1470 GOSUB2465:IFC%<>59THENER%=1:RETURN

1475 I$=I$+J$+CHR$(60):SYSM%:GOSUB1480:RETURN

1480 GOSUB2920:I$="":GOSUB2635:J%=83:IFASC(J$)=86THENER%=3:RETURN

1485 IFLEN(J$)=1ANDL2%=0THENJ$=CHR$(160)+CHR$(ASC(J$)AND31)

1490 IFC%<>44THENI$=I$+J$+CHR$(J%):RETURN:REM"DO

1495 J%=J%+2:I$=I$+J$+CHR$(J%):GOSUB2920:I$="":SYSM%:GOSUB2635:J%=81

1500 IFASC(J$)=86THENER%=3:RETURN

1505 IFLEN(J$)=1ANDL2%=0THENJ$=CHR$(160)+CHR$(ASC(J$)AND31)

1510 IFC%=44THENJ%=J%+4

1515 GOTO1490:REM"WHILE(TRUE)

1520 SYSM%:H1=-1:I$="":GOSUB2635:IFH1<0GOTO1540:REM"DO,ELSE

1525 J1%=H1%(H1)AND255:H1%(H1)=J1%:I$=I$+CHR$(16)+CHR$(J1%)+F$

1530 G1=H1*2+7:F=INT(G1/256):J1%=G1-F*256:I$=I$+CHR$(F)+CHR$(J1%)

1535 GOSUB2920

1540 IFC3%THENER%=-1:RETURN

1545 IFC%<>44THENER%=1:RETURN

1550 GOTO1520:REM"WHILE(TRUE)

1555 SYSM%:GOSUB2635:J%=75:IFL2%THENJ%=74:REM"DO

1560 IFASC(J$)=86THENER%=3:RETURN

1565 IFLEN(J$)=1ANDL2%=0THENJ$=CHR$(160)+CHR$(ASC(J$)AND31)

1570 I$=I$+J$+CHR$(J%):GOSUB2920:I$="":IFC3%THENER%=-1:RETURN

1575 IFC%<>44THENER%=1:RETURN

1580 GOTO1555:REM"WHILE(TRUE)

1595 SYSM%:GOSUB1600:RETURN

1600 IFC%<48ORC%>57THENER%=1:RETURN

1601 GOSUB1605:RETURN

1605 GOSUB2895:F1=INT(VAL(J1$))

1606 IFF1<0ORF1>64000THENER%=1:RETURN

1607 GOSUB1610:RETURN

1610 F=F1:F1=INT(F/256):J1%=F-F1*256:B%(B2%)=E%+1:B2%=B2%+1

1615 I$=CHR$(J%)+CHR$(F1)+CHR$(J1%):RETURN

1620 I$=CHR$(21):GOSUB2920:SYSM%:J%=25

1621 IFC3%=0THENGOSUB1600:RETURN

1622 F1=B4:GOSUB1610:RETURN

1630 SYSM%:GOSUB2270:IFC%=137THENGOSUB2920:J%=82:GOSUB1595:RETURN

1635 IFC%<>167THENER%=1:RETURN

1640 GOSUB2920:SYSM%:IFC%=142THENI$=CHR$(88):SYSM%:RETURN

1645 IFC%=137THENJ%=82:GOSUB1595:RETURN

1650 IFC%>47ANDC%<58THENJ%=82:GOSUB1605:RETURN

1655 B%(B2%)=E%+1:B2%=B2%+1:I$=CHR$(31)+CHR$(255):GOSUB2920:I$=""

1660 ER%=-1:RETURN

1665 SYSM%:IFC2%THENER%=-1:RETURN

1670 IFC%<>42GOTO1777:REM"ELSE

1675 SYSM%:IFC2%THENER%=-1:RETURN:REM"DO

1690 IFC%<>42GOTO1777:REM"BREAK

1695 SYSM%:IFC2%THENER%=-1:RETURN

1700 IFC%=69THENY%=1:GOTO1777:REM"BREAK

1705 IFC%<>73ANDC%<>83GOTO1777:REM"BREAK

1710 J%=89:IFC%=73THENJ%=91

1715 SYSM%:IFC2%THENER%=-1:RETURN

1720 IFC%=69THENI$=CHR$(J%):GOSUB2920:GOTO1777:REM"BREAK

1725 IFC%=65THENI$=CHR$(J%+1):GOSUB2920:GOTO1777:REM"BREAK

1740 IFC%<>80GOTO1777:REM"BREAK

1741 REM REM**SP00000

1745 FORF=1TO5:SYSM%:J%=C%-48:IFJ%<0ORJ%>9GOTO1777:REM"BREAK

1750 I%(F)=J%

1751 NEXT

1752 F=2^(I%(1)+I%(2)-I%(3)):IFF>255GOTO1777:REM"BREAK

1755 F1=71:J1%=2^(I%(4)+I%(5)-4):IFJ1%<8THENF1=113

1760 IFJ1%>255GOTO1777:REM"BREAK

1765 I$=CHR$(166)+CHR$(F)+CHR$(167)+CHR$(2)+CHR$(2)+CHR$(23)+CHR$(166)

1770 I$=I$+CHR$(F1)+CHR$(167)+CHR$(2)+CHR$(1)+CHR$(23)+CHR$(166)+CHR$(J1%)

1774 I$=I$+CHR$(179)+CHR$(23)+CHR$(84)

1775 GOSUB2920:GOTO1777:REM"BREAK

1776 GOTO1776:REM"WHILE(TRUE)

1777 SYSM%:IFC2%THENER%=-1:RETURN:REM"DO

1778 GOTO1777:REM"WHILE(TRUE)

1780 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

1785 J%=28:IFC%=137THENJ%=27:GOTO1795:REM"ELSE

1790 IFC%<>141THENER%=1:RETURN

1795 GOSUB2920:I$=CHR$(J%):J%=0:J$=""

1800 SYSM%:GOSUB2895:F1=INT(VAL(J1$)):IFF1<0ORF1>64000THENER%=1:RETURN:REM"DO

1805 F=F1:F1=INT(F/256):J1%=F-F1*256:J%=J%+2

1810 J$=J$+CHR$(F1)+CHR$(J1%):B%(B2%)=E%+J%:B2%=B2%+1

1815 IFC%<>44THENI$=I$+CHR$(J%+2)+J$:RETURN

1820 GOTO1800:REM"WHILE(TRUE)

1825 SYSM%:GOSUB2270:E$=I$:IFC%<>44THENER%=1:RETURN

1830 IFL2%THENER%=2:RETURN

1835 SYSM%:GOSUB2270:E$=I$+E$:IFL2%THENER%=2:RETURN

1840 IFC3%THENI$=E$+CHR$(76):RETURN

1841 J%=77:GOSUB1845:RETURN

1845 IFC%<>44THENER%=1:RETURN

1850 SYSM%:GOSUB2270:E$=I$+E$:IFL2%THENER%=2:RETURN

1855 I$=E$+CHR$(J%):RETURN

1860 J%=23:SYSM%:GOSUB2270:E$=I$:IFL2%THENER%=2:RETURN

1865 GOSUB1845:RETURN

1870 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

1875 I$=I$+CHR$(24):J%=1

1880 IF(J%ANDC3%)ORC2%GOTO1890:REM"DO,BREAK

1881 IFC%=34THENJ%=1-J%

1885 I$=I$+CHR$(C%):SYSM%+3:GOTO1880:REM"WHILE(TRUE)

1890 IFC2%ANDJ%=0THENI$=I$+CHR$(34)

1891 I$=I$+CHR$(58):RETURN

1910 E$=CHR$(J%):F5=0:SYSM%:IFC3%GOTO1955:REM"ELSE

1915 GOSUB2270:IFL2%=0THENER%=2:RETURN

1920 E$=I$+E$:F5=1:IFC3%GOTO1955:REM"ELSE

1925 IFC%<>44THENER%=1:RETURN

1930 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

1935 E$=I$+E$:F5=2:IFC3%GOTO1955:REM"ELSE

1940 IFC%<>44THENER%=1:RETURN

1945 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

1950 E$=I$+E$:F5=3

1955 I$=E$+CHR$(F5):RETURN

1960 SYSM%:IFC%<>165THENER%=1:RETURN

1965 FA=1:SYSM%:F1%=C%OR128:F4=1:GOSUB2645:IFC%<>40ORL3%>0THENER%=1:RETURN

1970 IFL2%THENER%=2:RETURN

1975 G1=G1*7+2:F=INT(G1/256):J1%=G1-F*256

1980 E$=CHR$(55)+CHR$(J1%)+CHR$(F):FA=1:SYSM%:GOSUB2635

1985 IFC%<>41ORL3%>0THENER%=1:RETURN

1990 IFL2%THENER%=2:RETURN

1995 G1=G1*7+2:F=INT(G1/256):J1%=G1-F*256:E$=E$+CHR$(J1%)+CHR$(F)

2000 SYSM%:IFC%<>178THENER%=1:RETURN

2005 SYSM%:GOSUB2270:J1%=LEN(I$):I$=E$+CHR$(J1%+7)+I$+CHR$(57):RETURN

2020 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

2025 IFC3%THENGOSUB2051:RETURN

2040 IFC%<>44THENER%=1:RETURN

2045 SYSM%:IFC3%THENGOSUB2051:RETURN

2050 I$=I$+CHR$(66):GOSUB2920:GOSUB2060:RETURN

2051 J%=66:IFF5THENJ%=68

2052 I$=I$+CHR$(J%):RETURN

2055 F5=0:SYSM%:IFC3%THENI$=CHR$(63):RETURN

2056 GOSUB2060:RETURN

2060 J%=0:I$=""

2061 IFJ%=0ANDC%=163THENJ%=65:REM"DO

2065 IFJ%=0ANDC%<>163ANDC%<>166ANDC%<>59GOTO2100:REM"ELSE

2066 IFJ%=0ANDC%<>163ANDC%<>166ANDC%=59GOTO2090:REM"ELSE

2075 IFJ%=65ORJ%=0THENSYSM%:GOSUB2270:IFC%<>41THENRETURN

2076 IFJ%=0THENJ%=64

2081 I$=I$+CHR$(J%):GOSUB2920

2090 SYSM%:IFC3%=0THENJ%=0:I$="":GOTO2061:REM"CONTINUE

2091 IFF5THENI$=CHR$(69):RETURN

2092 ER%=-1:RETURN

2100 IFC%=44THENJ%=59:GOTO2061:REM"CONTINUE

2105 GOSUB2270:IFC3%=0GOTO2110:REM"ELSE

2106 J%=62:IFF5THENJ%=67

2107 I$=I$+CHR$(J%):RETURN

2110 IFC%=44THENJ%=61:GOTO2061:REM"CONTINUE

2115 I$=I$+CHR$(60):GOSUB2920:J%=0:I$="":GOTO2061:REM"WHILE(TRUE)

2140 SYSM%:F5=1:GOSUB2270:IFL2%THENER%=2:RETURN

2145 E$=I$+CHR$(96):IFC3%GOTO2195:REM"ELSE

2150 IFC%<>44THENER%=1:RETURN

2155 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

2160 F5=2:E$=I$+E$:IFC3%GOTO2195:REM"ELSE

2165 IFC%<>44THENER%=1:RETURN

2170 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

2175 F5=3:E$=I$+E$:IFC3%GOTO2195:REM"ELSE

2180 IFC%<>44THENER%=1:RETURN

2185 SYSM%:GOSUB2270:IFL2%=0THENER%=2:RETURN

2190 F5=4:E$=I$+E$

2195 I$=E$+CHR$(F5):RETURN

2200 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

2205 I$=I$+CHR$(97)

2210 IFC3%THENRETURN:REM"DO

2215 SYSM%:GOTO2210:REM"WHILE(TRUE)

2220 SYSM%:E$="":IFC%<>35GOTO2225:REM"ELSE

2221 SYSM%:GOSUB2270:IFL2%THENER%=2:RETURN

2222 E$=I$+CHR$(72):IFC%<>44THENER%=1:RETURN

2223 SYSM%

2225 I$="":GOSUB2635:IFLEN(J$)=1ANDL2%=0THENJ$=CHR$(160)+CHR$(ASC(J$)AND31):REM"DO

2230 I$=I$+E$+J$+CHR$(70):IFC3%THENRETURN

2235 GOSUB2920:IFC%<>44THENER%=1:RETURN

2240 SYSM%:GOTO2225:REM"WHILE(TRUE)

2260 SYSM%:IFC%<>164THENER%=1:RETURN

2265 J%=25:GOSUB1595:RETURN

2270 I$="":I=0:GOSUB2275:RETURN

2275 I%(I)=0:I2%(I)=FX:I=I+1:FX=-1

2280 F8=0:GOSUB2405:IFF8THENSYSM%:FX=L2%:GOSUB2355:GOTO2280:REM"DO,CONTINUE

2285 I$=I$+J$:I1=0:IFFX>=0THENIFFX<>L2%THENGOSUB3340:RETURN

2290 IFC%>=170ANDC%<=179GOTO2295:REM"ELSE

2291 IFI%(I-1)<=0THENGOTO2293:REM"DO,BREAK

2292 GOSUB2370:GOTO2291:REM"WHILE(TRUE)

2293 I=I-1:IFFX>=0THENL2%=FX

2294 FX=I2%(I):RETURN

2295 IFC%>=177GOTO2300:REM"IFBEGIN

2296 I1=C%-163:IFL2%<>0ANDI1<>7AND(I1<=11ORI%(I-1)<>4)THENGOSUB3340:RETURN

2297 SYSM%:I0=5:IFI1>8THENI0=6:IFI1>10THENI0=8:IFI1>11THENI0=2:IFI1=13THENI0=1

2298 GOTO2345:REM"ELSE

2300 I2=1:IFC%>177THENI2=2:IFC%=179THENI2=4:REM"DO

2305 IFI1ANDI2THENGOSUB3315:RETURN

2310 I1=I1ORI2:SYSM%:IFC%<=176ORC%>=180GOTO2315:REM"BREAK

2311 GOTO2300:REM"WHILE(TRUE)

2315 I0=4:IFI1=7THENGOSUB3315:RETURN

2345 FX=L2%

2350 I3=I%(I-1):IFI3<I0GOTO2352:REM"DO,BREAK

2351 GOSUB2370:GOTO2350:REM"WHILE(TRUE)

2352 GOSUB2355:GOTO2280:REM"WHILE(TRUE)

2355 I%(I)=I0:I1%(I)=I1:I2%(I)=0:IFI1=7THENI2%(I)=L2%

2360 IFI1=12ORI1=13THENFX=-1

2365 I=I+1:RETURN

2370 I=I-1:I$=I$+CHR$(I1%(I)):IFI1%(I)<12ORI1%(I)>13GOTO2385:REM"ELSE

2375 IFFX<0THENFX=L2%

2380 IFFXTHENGOSUB3340:RETURN

2385 FX=I2%(I):RETURN

2405 L2%=0

2406 IF(C%<=47ORC%>=58)ANDC%<>46GOTO2420:REM"ELSE

2407 GOSUB2895:J$=J1$:IFC%=46THENSYSM%:GOSUB2895:J$=J$+"."+J1$

2408 IFC%<>69GOTO2411:REM"ELSE

2409 SYSM%:GOSUB2895:J$=J$+"E"+J1$:IFVAL(J1$)>=39THENGOSUB3335:J$=LEFT$(J$,LEN(J$)-1)

2411 F6=VAL(J$):F7=INT(F6):IFF6>32767ORF6<-32767ORF7<>F6GOTO2418:REM"ELSE

2412 IFF6<0ORF6>31GOTO2415:REM"ELSE

2413 F7=176:IFF6>15THENF7=224

2414 J$=CHR$(F7+F6):RETURN

2415 IFF6<0ORF6>255GOTO2417:REM"ELSE

2416 J$=CHR$(166)+CHR$(F6):RETURN

2417 F7=INT(F6/256):J1%=F6-F7*256:J$=CHR$(167)+CHR$(F7)+CHR$(J1%):RETURN

2418 Z=F6:J$=CHR$(168):F6=PEEK(45)+PEEK(46)*256+2

2419 FORF7=F6TOF6+4:J$=J$+CHR$(PEEK(F7)):NEXT:RETURN

2420 IFC%>64ANDC%<91THENF4=0:F1%=C%:GOSUB2645:RETURN

2421 IFC%=170THENSYSM%:GOSUB2405:RETURN

2422 IFC%<=179ORC%>=203GOTO2442:REM"ELSE

2423 I%(I)=C%-148:I=I+1:IFC%>199GOTO2432:REM"ELSE

2424 SYSM%:IFC%<>40THENGOSUB3315:RETURN

2425 SYSM%:GOSUB2275:I=I-1:J1%=I%(I)

2426 IFJ1%=47ORJ1%=49ORJ1%=50THENL2%=0:GOTO2430:REM"ELSE

2427 IFJ1%=36ORJ1%=37THENL2%=0

2428 IFL2%THENGOSUB3340:RETURN

2429 IFJ1%=48ORJ1%=51THENL2%=255

2430 IFC%<>41THENGOSUB3315:RETURN

2431 J$=I$+CHR$(J1%):I$="":SYSM%:RETURN

2432 SYSM%:IFC%<>40THENGOSUB3315:RETURN

2433 SYSM%:GOSUB2275:IFL2%=0THENGOSUB3340:RETURN

2434 IFC%<>44THENGOSUB3315:RETURN

2435 SYSM%:GOSUB2275:IFL2%THENGOSUB3340:RETURN

2436 IFI%(I-1)<54GOTO2440:REM"ELSE

2437 IFC%=41THENI$=I$+CHR$(166)+CHR$(255):GOTO2440:REM"ELSE

2438 IFC%<>44THENGOSUB3315:RETURN

2439 SYSM%:GOSUB2275:IFL2%THENGOSUB3340:RETURN

2440 IFC%<>41THENGOSUB3315:RETURN

2441 L2%=255:I=I-1:J1%=I%(I):J$=I$+CHR$(J1%):I$="":SYSM%:RETURN

2442 IFC%=168THENI0=3:I1=15:F8=1:RETURN

2443 IFC%<>165GOTO2451:REM"ELSE

2444 FA=1:SYSM%:F1%=C%OR128:F4=1:GOSUB2645:IFC%<>40ORL3%>0THENGOSUB3315:RETURN

2445 IFL2%THENGOSUB3340:RETURN

2446 G1=G1*7+2:F=INT(G1/256):J1%=G1-F*256

2447 I$(I4)=CHR$(56)+CHR$(F)+CHR$(J1%):I4=I4+1:SYSM%:GOSUB2275

2448 IFC%<>41ORL2%>0THENGOSUB3315:RETURN

2449 IFL2%THENGOSUB3340:RETURN

2450 I4=I4-1:J$=I$(I4):SYSM%:RETURN

2451 IFC%=34THENGOSUB2465:RETURN

2452 IFC%=171THENI0=7:I1=14:F8=1:RETURN

2453 IFC%=255THENJ$=CHR$(170):J1%=1:SYSM%:RETURN

2454 IFC%<>40THENGOSUB3315:RETURN

2455 SYSM%:GOSUB2275:IFC%<>41THENGOSUB3315:RETURN

2460 J$=I$:I$="":SYSM%:RETURN

2465 J1%=0:J$="":L2%=255

2470 SYSM%+3:REM"DO

2475 IFC%=34THENSYSM%:GOTO2480:REM"BREAK

2476 IFC%=0GOTO2480:REM"BREAK

2477 J$=J$+CHR$(C%):J1%=J1%+1

2478 GOTO2470:REM"WHILE(TRUE)

2480 IFJ1%<8THENJ$=CHR$(232+J1%)+J$:RETURN

2485 J$=CHR$(231)+CHR$(J1%)+J$:RETURN

2635 F4=1:F1%=C%:GOSUB2645:RETURN

2645 J$="":J1%=0:F2%=0:F=1:L2%=0:L3%=0:IFC%<65ORC%>90THENGOSUB3315:RETURN

2650 SYSM%:REM"DO

2651 IFC%=36THENL2%=255:F2%=F2%OR128:SYSM%:GOTO2680:REM"BREAK

2652 IFC%>64ANDC%<91ORC%>47ANDC%<58GOTO2670:REM"ELSE

2660 IFC%=37THENL3%=128:F1%=F1%OR128:F2%=F2%OR128:SYSM%

2665 GOTO2680:REM"BREAK

2670 IFF=1THENF2%=C%:F=2

2675 GOTO2650:REM"WHILE(TRUE)

2680 F=F1%*256+F2%:IFF>32767THENF=F-65536

2685 F$=CHR$(F1%)+CHR$(F2%)

2686 IFFA=0ANDC%=40GOTO2760:REM"ELSE

2690 FA=0

2695 G1=-1:IFG=0GOTO2705:REM"ELSE

2700 C5%=10427:C6%=F:C7%=G:SYSN%:REM 10427 IS OFFSET OF G%()

2701 IFC5%>=0THENG1=C5%

2705 IFF=21705THENF=175:GOTO2750:REM"ELSE

2710 IFF=21577THENF=172:GOTO2745:REM"ELSE

2715 IFF=21332THENF=171:GOTO2745:REM"ELSE

2720 IFG1<0ORG=0THENG%(G)=F:G1=G:G=G+1

2721 IFG1<0THENG1=0

2725 IFG1<32THENJ$=CHR$(G1+128):RETURN

2730 F=INT(G1/256):J1%=G1-F*256:IFF>2GOTO2740:REM"ELSE

2735 J$=CHR$(160+F)+CHR$(J1%):RETURN

2740 J$=CHR$(163)+CHR$(F)+CHR$(J1%):RETURN

2745 J$=CHR$(F):IFF4THENGOSUB3315:RETURN

2750 IFF=175ANDF4>0THENF=86

2755 J$=CHR$(F):RETURN

2760 I$(I4)=F$:J1%=1:SYSM%

2765 I1$(I4)=CHR$(J1%)+CHR$(L2%):I4=I4+1:GOSUB2275:IFL2%THENGOSUB3340:RETURN:REM"DO

2770 I4=I4-1:J1%=ASC(I1$(I4)):L2%=ASC(MID$(I1$(I4),2))

2775 IFC%<>44THENGOTO2780:REM"BREAK

2776 J1%=J1%+1:SYSM%

2777 GOTO2765:REM"WHILE(TRUE)

2780 IFC%<>41THENGOSUB3315:RETURN

2785 F$=I$(I4):F=ASC(F$)*256+ASC(MID$(F$,2)):IFF>32767THENF=F-65536

2790 SYSM%:G1=-1:IFH=0GOTO2800:REM"ELSE

2795 C5%=12036:C6%=F:C7%=H:SYSN%:REM 12036 IS OFFSET OF H%()

2796 IFC5%>=0THENG1=C5%

2800 IFG1<0ORH=0THENH%(H)=F:H1%(H)=J1%OR256:G1=H:H=H+1

2805 IFG1<0THENG1=0

2806 H1=G1

2810 IFJ1%<>(H1%(G1)AND255)THENH1%(G1)=J1%ORH1%(G1)AND256:GOSUB3330

2815 J1%=(G1+3)*2:IFJ1%<254THENJ$=CHR$(164)+CHR$(J1%+1):RETURN

2820 F=INT(J1%/256):J1%=J1%-F*256:J$=CHR$(165)+CHR$(J1%)+CHR$(F):RETURN

2895 J1$="":IFC%<>170ANDC%<>171GOTO2910:REM"ELSE

2900 IFC%=171THENJ1$="-"

2905 SYSM%

2910 IFC%<48ORC%>57THENRETURN:REM"DO

2915 J1$=J1$+CHR$(C%):SYSM%:GOTO2910:REM"WHILE(TRUE)

2920 E%=E%+LEN(I$):PRINT#4,I$;:RETURN

2930 C%(B5%)=E%:I$=CHR$(79):IFSTGOTO2945:REM"ELSE

2935 GOSUB2920:GET#2,I$:IFI$=""THENI$=CHR$(0):REM"DO

2940 IFSTGOTO2945:REM"BREAK

2941 GOTO2935:REM"WHILE(TRUE)

2945 GOSUB2920:IFK%THENCLOSE5

2950 CLOSE2:CLOSE3:CLOSE4:B%(B2%)=-32767

2955 IFT%>1THENCLOSE6:PRINT#15,"S"+Y$+":Z/"+A1$:GOTO2970:REM"ELSE

2960 CLOSE6:OPEN6,R1%,6,Y$+":Z/"+A1$+",P,W":GOSUB3305:PRINT#6,CHR$(1);

2965 PRINT#6,CHR$(8);

2970 IFT8%THENGOSUB3400:RETURN

2975 I$="":H1=1:IFH=0GOTO3050:REM"ELSE

2980 H1=8:Z=H-1:IFZ<16THENI$=CHR$(176+Z):GOTO3000:REM"ELSE

2985 IFZ<32THENI$=CHR$(224+Z):GOTO3000:REM"ELSE

2990 H1=H1+1:IFZ<256THENI$=CHR$(166)+CHR$(Z):GOTO3000:REM"ELSE

2995 H1=H1+1:F7=INT(Z/256):F6=Z-F7*256:I$=CHR$(167)+CHR$(F7)+CHR$(F6)

3000 I$=I$+CHR$(16)+CHR$(1)+CHR$(218)+CHR$(170)+CHR$(0)+CHR$(0)

3001 FORF=0TOZ

3005 IFH1%(F)<256GOTO3045:REM"ELSE

3010 J1%=H1%(F)AND255:IFJ1%=1THENH1=H1+7:GOTO3045:REM"ELSE

3015 F1=H%(F):IFF1<0THENF1=F1+65536

3020 L2%=F1/256:L3%=F1-L2%*256:E$=""

3025 IFL3%>127THENE$="$":IFL2%>127THENE$="%"

3030 J$=CHR$(L3%AND127):IFL3%AND127=0THENJ$=""

3035 E$=CHR$(L2%AND127)+J$+E$:X3=X3+1:PRINTLEFT$(X$,5+X2);:PRINTSPC(X4);

3040 PRINT"?BAD SUBSCRIPT ERROR FRM ";:PRINTE$:GOSUB3380

3045 NEXT

3050 PRINT#15,"S"+Y$+":"+A2$:OPEN3,R1%,3,Y$+":"+A2$+",P,W":GOSUB3305

3055 IFT%>=3ANDT2%<>0GOTO3060:REM"IFBEGIN

3057 OPEN7,R%,7,"RUNTIME,P,R":FORF=2047TOT1%:GET#7,C$:IFC$=""THENC$=CHR$(0)

3059 PRINT#3,C$;:NEXT:CLOSE7:C%=F:GOTO3070:REM"ELSE

3060 F=T1%+1:GOSUB3300:C%=F

3070 F=C%+13+H1+K%+E%:IFT%=4THENF=C%+13+H1+T7%

3075 GOSUB3300:F=F+G*7:GOSUB3300:GOSUB3300:F=C%+12:GOSUB3300:F=F+H1

3080 GOSUB3300:F=F+K%+1:GOSUB3300:C%=F:PRINT#3,I$;:IFH1<9GOTO3120:REM"ELSE

3085 FORF=0TOH-1:IFH1%(F)<256GOTO3115:REM"ELSE

3090 J1%=H1%(F)AND255:IFJ1%>1GOTO3115:REM"ELSE

3095 F1=H%(F):IFF1<0THENF1=F1+65536

3100 L2%=F1/256:L3%=F1-L2%*256:F5=F*2+7:F6=INT(F5/256)

3105 F5=F5-F6*256:PRINT#3,CHR$(186);:PRINT#3,CHR$(16);:PRINT#3,CHR$(1);:PRINT#3,CHR$(L2%);

3110 PRINT#3,CHR$(L3%);:PRINT#3,CHR$(F6);:PRINT#3,CHR$(F5);

3115 NEXT

3120 PRINT#3,CHR$(22);:IFK%=0GOTO3140:REM"ELSE

3125 OPEN8,R1%,2,Y$+":D/"+A1$:

3126 FORC=1TOK%:GET#8,B$

3130 IFB$=""THENB$=CHR$(0)

3135 PRINT#3,B$;

3136 NEXT:CLOSE8

3140 PRINT#3,CHR$(255);:J%=0:J1%=0:OPEN2,R1%,2,Y$+":P/"+A1$+",S,R"

3145 PRINT"PASS2  ":N1%=N%+111:N2%=N1%+15

3146 FORL=0TOE%-1:L%=L

3150 SYSN1%:IFL%<C%(J%)ORJ%=B5%GOTO3180:REM"ELSE

3155 IFJ%<B5%THENPRINT"";:PRINTD%(J%)+32767:J%=J%+1:IFL%>=C%(J%)GOTO3160:REM"DO,CONTINUE

3156 GOTO3160:REM"BREAK

3157 GOTO3155:REM"WHILE(TRUE)

3160 IFT%>1GOTO3180:REM"ELSE

3165 L3%=(L%+C%)/256:L2%=L%+C%-L3%*256:PRINT#6,CHR$(4);:PRINT#6,CHR$(8);

3170 PRINT#6,CHR$(L2%);:PRINT#6,CHR$(L3%);:PRINT#6,"=";:PRINT#6,D%(J%-1)+32767;

3175 PRINT#6,CHR$(0);

3180 IFL%<>B%(J1%)GOTO3200:REM"ELSE

3185 J1%=J1%+1

3186 IFC1%=255THENC1%=C%(J%)-L%+1:GOTO3200:REM"ELSE

3190 L2%=C1%:SYSN1%:L2%=L2%*256+C1%-32767:GOSUB3290

3195 C1%=L2%/256:SYSN2%:L%=L%+1:L=L%:C1%=L2%-C1%*256

3200 SYSN2%

3201 NEXT

3202 CLOSE2:IFT%=4ANDT2%>0GOTO3235:REM"ELSE

3205 IFT%=4THENF=K%+E%:IFF<T7%THENFORF=FTOT7%-1:PRINT#3,CHR$(79);:NEXT

3210 IFT%=1THENPRINT#6,CHR$(0);:PRINT#6,CHR$(0);:CLOSE6

3215 I$=CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)

3216 FORF=0TOG-1:F1=G%(F)

3220 IFF1<0THENF1=F1+65536

3225 L2%=F1/256:L3%=F1-L2%*256:PRINT#3,CHR$(L2%);:PRINT#3,CHR$(L3%);:PRINT#3,I$;

3230 NEXT

3235 CLOSE3:PRINTLEFT$(X$,5+X2);:PRINTSPC(X4);:PRINT"ERRORS:";:PRINTX1+X3;

3240 PRINT"     EXTENSIONS:";:PRINTX0:PRINT#15,"S"+Y$+":P/"+A1$

3245 PRINT#15,"S"+Y$+":D/"+A1$

3246 RETURN

3290 C5%=7218:C6%=L2%:C7%=B5%:SYSN%:REM 7218 IS OFFSET OF D%()

3291 IFC5%<0THENC5%=0:GOSUB3320

3295 L2%=C%(C5%)+C%:RETURN

3300 F1=INT(F/256):L2%=F-F1*256:PRINT#3,CHR$(L2%);:PRINT#3,CHR$(F1);

3301 RETURN

3305 INPUT#R3%,A,A5$:IFA=0THENRETURN

3310 X2=15:PRINTLEFT$(X$,6+X2);:PRINTSPC(X4);:PRINT"";:PRINTA;:PRINTA5$:CLOSE2:CLOSE3:CLOSE4:CLOSE15

3311 END

3315 X1$="SYNTAX ERROR":GOSUB3345:RETURN

3320 X1$="UNDEF'D STATEMENT ERROR":B1=D%(J%-1)+32767

3325 X3=X3+1:GOSUB3370:RETURN

3330 X1$="BAD SUBSCRIPT ERROR":X3=X3+1:GOSUB3370:RETURN

3335 X1$="OVERFLOW ERROR":X3=X3+1:GOSUB3370:RETURN

3340 X1$="TYPE MISMATCH ERROR":GOSUB3345:RETURN

3345 IFX5THENRETURN

3350 X1=X1+1:X5=1:GOSUB3370

3355 SYSM%:IFC3%THENRETURN:REM"DO

3356 GOTO3355:REM"WHILE(TRUE)

3370 PRINTLEFT$(X$,5+X2);:PRINTSPC(X4);:PRINT"?";:PRINTX1$;:PRINT" IN";:PRINTB1:GOSUB3380:RETURN

3380 X2=X2+1:IFX2=18THENX4=X4+40:X2=0:IFX4>40THENX4=0

3385 RETURN

3390 PRINT"";:PRINTSPC(13);:PRINT"SKYLES - BLITZ":PRINTSPC(12);:PRINTT$:RETURN

3400 PRINT#15,"S"+Y$+":P/"+A1$:PRINT#15,"S"+Y$+":D/"+A1$:F=E%+K%

3405 IFT7%<FTHENT7%=F

3410 RETURN

3415 PRINT"1 = SINGLE FLOPPY":PRINT"2 = DUAL DRIVE FLOPPY"

3420 PRINT"3 = 2 FLOPPIES WITH DIFFERENT ADDR'S  "

3425 GETT%:REM"DO

3426 IFT%>=1ANDT%<=3GOTO3430:REM"BREAK

3427 GOTO3425:REM"WHILE(TRUE)

3430 IFT%=1THENY$="0":GOTO3505:REM"ELSE

3435 IFT%=2THENA$="DRIVE 0":B$="DRIVE 1":GOTO3445:REM"ELSE

3440 GOSUB3720:Y$="0":A$="DEVICE"+STR$(R%):B$="DEVICE"+STR$(R1%)

3445 GOSUB3390:PRINT"";:PRINTSPC(13);:PRINT"SELECT MODE :"

3450 PRINT"1. =  ONE FILE TO DRIVE 1      "

3455 PRINT"2. =  ALL FILES FROM     ";:PRINTA$;:PRINT" TO "

3460 PRINT"      BLANK DISKETTE IN ";:PRINTB$;:PRINT" WTH"

3465 PRINT"      COMP-MACHINECODE      "

3470 PRINT"3. =  ALL FILES FROM     ";:PRINTA$;:PRINT" TO "

3475 PRINT"      BLANK DISKETTE IN ";:PRINTB$;:PRINT", BUT"

3480 PRINT"      FIRST FILE WITH COMP-BLOCK    "

3485 PRINT"4. =  ALL FILES FROM     ";:PRINTA$;:PRINT" TO "

3490 PRINT"      BLANK DISKETTE IN ";:PRINTB$;:PRINT" WTH"

3495 PRINT"      OVERLAY":PRINTX$;:PRINT"PLEASE SELECT!"

3500 GETT%:REM"DO

3501 IFT%>=1ANDT%<=4GOTO3505:REM"BREAK

3502 GOTO3500:REM"WHILE(TRUE)

3505 T$="(PROG. MODE :"+STR$(T%)+")":IFT%=4THENT8%=1

3510 GOSUB3390:IFT%=1THENRETURN

3520 PRINT"N ";:PRINTA$;

3525 PRINT" INSERT DISKETTE WITH SOURCE FOR COMPILATION     "

3530 PRINT"PRESS    Y  WHEN READY "

3535 GETA$:REM"DO

3536 IFA$="Y"GOTO3540:REM"BREAK

3537 GOTO3535:REM"WHILE(TRUE)

3540 PRINT#14,"I0":R3%=14:GOSUB3305:R3%=15:PRINT"N ";:PRINTB$;

3545 PRINT" INSERT BLANK DISKETTE ! "

3550 PRINT"WANT TO NEW DISKETTE            YES/NO "

3555 GETA$:REM"DO

3556 IFA$="Y"ORA$="N"GOTO3560:REM"BREAK

3557 GOTO3555:REM"WHILE(TRUE)

3560 IFA$<>"Y"GOTO3595:REM"ELSE

3565 PRINT"FORMATTING DISKETTE !    ":OPEN9,R%,0,"$0":R3%=14

3570 GOSUB3305:R3%=15

3571 A=1

3572 GET#9,A$:A=A+1:IFA$=CHR$(34)ORA>30GOTO3575:REM"DO,BREAK

3573 GOTO3572:REM"WHILE(TRUE)

3575 B$="":A=1

3576 GET#9,A$:A=A+1:IFA$=CHR$(34)ORA>16GOTO3580:REM"DO,BREAK

3577 B$=B$+A$:GOTO3576:REM"WHILE(TRUE)

3580 IFRIGHT$(B$,1)<>" "GOTO3585:REM"DO,BREAK

3581 B$=LEFT$(B$,LEN(B$)-1):GOTO3580:REM"WHILE(TRUE)

3585 GET#9,A$:GET#9,A$:GET#9,A$:GET#9,B1$:B1$=A$+B1$:CLOSE9:PRINT#15,"N";

3590 PRINT#15,Y$;:PRINT#15,":";:PRINT#15,B$;:PRINT#15,",";:PRINT#15,B1$:GOSUB3305

3595 PRINT#15,"I";:PRINT#15,Y$:GOSUB3305:T2%=0:T3%=0:GOSUB3605:RETURN

3605 OPEN9,R%,0,"$0":IFT3%GOTO3625:REM"IFBEGIN

3610 FORT3%=1TO6:GET#9,A$:NEXT

3611 GET#9,A$:REM"DO

3615 T3%=T3%+1:IFA$=""ORT3%>33GOTO3620:REM"BREAK

3616 GOTO3611:REM"WHILE(TRUE)

3620 GOTO3630:REM"ELSE

3625 FORT4%=1TOT3%:GET#9,A$:NEXT

3630 A$="":B1$="":T5%=0

3631 FORT4%=1TO4:GET#9,B$:T3%=T3%+1

3635 IF(ST)THENT3%=0:CLOSE9:RETURN

3640 NEXT

3645 GET#9,B$:T3%=T3%+1:IF(ST)THENT3%=0:CLOSE9:RETURN

3650 IFB$=""GOTO3690

3655 T4%=ASC(B$):ONT5%GOTO3670,3680

3660 IFT4%=34THENT5%=1

3665 GOTO3645

3670 IFT4%=34THENT5%=2:GOTO3645

3675 A$=A$+B$:GOTO3645

3680 IFT4%>32THENB1$=B1$+B$

3685 GOTO3645

3690 IFB1$="PRG"THENCLOSE9:RETURN

3695 GOTO3630

3700 T3%=0:CLOSE9

3701 RETURN

3720 R1%=9:GOSUB3745

3725 PRINTLEFT$(X$,15);:PRINTSPC(27);:INPUTR%:IFR%<4ORR%>15GOTO3725

3730 GOSUB3745

3735 PRINTLEFT$(X$,17);:PRINTSPC(27);:INPUTR1%:IFR1%<4ORR1%>15GOTO3735

3740 IFR%=R1%GOTO3725

3741 GOSUB3745:RETURN

3745 PRINTLEFT$(X$,15);:PRINT"DEVICE-NBR. SOURCE PROG. :  ";:PRINTR%

3750 PRINTLEFT$(X$,17);:PRINT"DEVICE-NBR. COMPILED PROG. :";:PRINTR1%

3751 RETURN