******************3 CHECK MACHINE TYPEL ******************R:b PK(57345)SK56: PK72 PK127 PK54 PK75 SK53: ********************* SET UP FLAG SPACE *********************:SA256(SK): (SA8000)254 605( SK,(SK)32: SK1,0N- 256(SK)8000,254T2p< "INITIALIZING......"A ISA SA7999: I,0:F T(7): I0 7:T(I)2I:x: **************** READY DISK FILES ****************:. "'SQUEEZER' - MODIFIED FROM 'COMPACTOR'"V "THIS PROGRAM 'SQUEEZES' BASIC"} "PROGRAMS INTO REDUCED SPACE BY" "DELETING 'REM'S, LENGTHENING LINES, ETC.":: "INPUT FILENAME";FI$: "DRIVE # ? "; ID$: ID$"0" ID$"1" 184 ID$1:: "OUTPUT FILENAME";OF$G: "DRIVE # ? ";k OD$: OD$"0" OD$"1" 194u OD${: *********** READY TO GO ***********:"SCANNING FILE" FOR TARGET LINES..... 15,8,15: 2370! 5,8,5,ID$":"FI$",P,R"':I ***************************k READ LOAD ADR, LINK & LINE# ***************************":, 2370 : 23106 2310 : VV10 900@ 2310 : LNV1(256V)J: T ******************************' ^ SCAN BASIC LINESL h FOR GOTO, GOSUB, & THEN TOKENSq r ******************************w |:  2330  V0 310  V137 V141 480  V167 390 :  ****************  GET TARGET LINE#  **************** : LT03  2330 : V32 490K  V48 V57 580` LT(10LT)(C$)s  2330 : 500y :  ***************** & FLAG TARGET LINES 0 ***************** :: D LT0 710 IBY(LT8) NZLT8BY XADBYSA b AD,(AD) T(Z)" l LT,( :J  ***************************l  CHECK FOR 'ON...GOTO/GOSUB'  *************************** :  V44 480  V32 400  2330 : 710 : \ ********************* f GET READY FOR COMPACT$ p ********************** z:I  "COMPACTING LINES....Q  5p  5,8,5,ID$":"FI$",P,R"{  2370 FO$(FL$,14)"/C"  6,8,6,OD$":"OF$",P,W"  2370 :  *************  COPY LOAD ADR  ************* :  2310 6,(V1);0 6,(V);: R06 $:V . *************************v 8 COPY LINK AND LINE NUMBER B ************************* L: V 2310 : K1V1 :K2V `F0 : VV10 2230 j 2310 : L1V1 : L2VtLNL1(256L2) : LN,~ 2330' V32 V58 11508 V0 1200L V143 1240f 2330 : V0 1190nF1}BY(LN8)ZLN8BYADBYSA (T(Z) (AD)) 1240 11106,(K1);(K2);6,(L1);(L2); : R4: F 6,":"; : R5F0 : 1360:A  ***************************c **** SCAN BASIC LINE **** **** & COMPACT PROGRAM ****( ***************************2:<6,C$; : RR1F 2330P: V137 F1Z: V139 V167 F1d: V0 1820&n: V32 1350,x:G ********************[ 'REM' TOKEN -v DISCARD REST OF LINE ********************: V143 1550 2330 : V0 1470 1820: ************************** QUOTE -& COPY TILL NEXT OR LINE ENDG **************************M:` V34 1690s6,C$; : RR1~" 2330, V34 13406 V0 1560@ F V0 : 1050J6,(34); : RR1T 1820^:h ************************r IF COLON - CHK NEXT CHAR7| ELSE COPY CHARV ************************\:o V58 1340z 2330 V32 V58 1700 V143 1470 V0 18206,":"; : RR1 1360: **************************** END OF LINE -6 CAN WE COMPACT THESE LINES ?Y ****************************_:~ F (R170) V0: 1050& 23100 VV10 2230: 2310 : LNV1(256V)DL1V1 : L2V : LN,N:X ************************b CHK IF LINE# IS A TARGET4l ************************:v:IBY(LN8)WZLN8BYdADBYSA (T(Z) (AD)) 2110: ******************** NOT USED - DISCARD LINK & LINE# ********************:  2330 : V143 1470# V32 V58 20104 V0 1830Q6,":"; : RR1 : 1360W:z  **************************** LINE# NEEDED -  WRITE LINE END, LINK & LINE#* ****************************4:>6,(0);(1);(1); H6,(L1);(L2); : R4R 23300\ V32 V58 2130Lf V0 V143 6,":";]pF0 : 1360cz:~ ******************** END OF COMPACT - WRITE END OF PROGRAM ********************:6,(0);(0);(0);"DONE" 2430 :+ ************************J ***** SUBROUTINES *****i ************************o: 2330 : V1V : #5,C$ : 2370$ C$"" V0 : . V(C$) : 8 :B 15,EN,EM$,ET,ESL EN0 V : ` : "DISK ERROR"j EN;EM$;ET;ES%t ::~ 5 : 6 : 15P SK,(SK)32::