start tok64 d64-JYsz8F 0 REM file type directory 64 - michael myers 1 REM "file type dir" 3-28-1991 6:30:45 pm 2 REM"{delete}{cm y*35} 10 FORt=49152TO49385:READd:POKEt,d:ck=ck+d:NEXT 20 IFck<>33370THENPRINT"error in data{.*3}":END 30 y=1:FORi=1TO5:a$=MID$("prgseqrelusrall",y,3) 40 PRINT"sys 49152,"LEFT$(a$,1)": for "a$" files 50 y=y+3:NEXT:END 60 DATA32,115,0,133,251,141,224,192,32,115,0,169,36,133,169,169,48,133 70 DATA170,169,2,162,169,160,0,32,189,255,169,8,162,8,160,0,32,186,255 80 DATA32,192,255,162,8,32,198,255,32,207,255,32,207,255,169,18,32,210 90 DATA255,169,255,133,252,133,253,160,0,32,207,255,72,32,183,255,201 100 DATA64,240,109,104,153,234,192,200,192,32,208,236,230,252,240,31 110 DATA165,251,201,65,240,14,160,22,200,185,234,192,201,32,240,248,197 120 DATA251,208,210,174,234,192,173,235,192,32,205,189,56,32,240,255,24 130 DATA160,4,32,240,255,230,253,160,0,162,4,189,234,192,201,34,240,3 140 DATA232,208,246,32,210,255,232,189,234,192,200,192,19,208,244,173,1 150 DATA193,201,32,240,3,32,63,171,169,1,160,193,32,30,171,169,13,32 160 DATA210,255,173,141,2,208,251,240,134,104,169,8,32,195,255,32,204 170 DATA255,174,234,192,173,235,192,32,205,189,169,217,160,192,32,30 180 DATA171,166,253,169,0,32,205,189,96,32,70,82,69,69,46,32,80,45,70 190 DATA73,76,69,83,58,32,0 stop tok64 (bastext 1.0)