start tok64 d64-KVSjAD 5 POKE52,48:POKE56,48:CLR:DIMa$(255,1) 10 POKE53280,2:POKE53281,0:PRINT"{clear}{light blue}{cm a}{cm s}{left*2}{down}{cm q}{cm x}lop {white}by bob richardson{yellow}" 20 PRINT"{down*3}please wait, setting up{.*3}" 30 FORj=32TO255:a$(j,0)=CHR$(j):a$(j,1)=CHR$(j):NEXT:RESTORE 40 FORj=128TO202:READa$(j,0):NEXT 45 FORj=1TO26:a$(j,1)=CHR$(91)+"ctrl-"+CHR$(64+j)+CHR$(93) 46 a$(192+j,1)=CHR$(64+j)+CHR$(8)+CHR$(95):NEXT:a$(160,1)=CHR$(95) 50 READa,a$:IFa=-1THEN55 51 a$(a,1)=CHR$(91)+a$+CHR$(93) 54 GOTO 50 55 FORj=0TO26:READa:a$(a,1)=CHR$(99)+CHR$(64+j):NEXT 56 FORj=1TO4:READa,b:a$(b,1)=CHR$(99)+CHR$(a):NEXT 60 PRINT"{yellow}enter the filename of the program that" 61 PRINT"you want to list:{black}";:OPEN1,0:INPUT#1,f$:CLOSE1:PRINT 62 PRINT"{down}{yellow}reading the file ";CHR$(34);f$;CHR$(34);"{.*5}" 65 OPEN2,8,2,"0:"+f$+",p,r":GET#2,a$,a$ 66 x=12288:z$=CHR$(0) 67 GET#2,a$:POKEx,ASC(a$+z$):x=x+1:IF status AND 64 THEN CLOSE2:GOTO 70 69 GOTO 67 70 PRINT"{down}{yellow}file length:{black}"INT((x-12288)/256)"{pink}blocks" 75 PRINT"{yellow}printer dev. #:{black}4{left}"; 76 OPEN1,0:INPUT#1,d:CLOSE1:PRINT 77 PRINT"{yellow}secondary addr:{black}0{left}"; 78 OPEN1,0:INPUT#1,s:CLOSE1:PRINT 100 x=12288:OPEN4,d,s:PRINT#4 110 qt=0 111 IF PEEK(x)=0 AND PEEK(x+1)=o THEN 150 112 p=PEEK(x+2)+256*PEEK(x+3):x=x+4 113 PRINT"{gray}"STR$(p);" ";:PRINT#4,STR$(p);" ";:PRINT"{light green}"; 114 IF PEEK(x)=0 THEN x=x+1: GOTO 120 115 PRINTa$(PEEK(x),qt);:PRINT#$,a$(PEEK(x),qt);:IF PEEK(x)=34 THEN qt=1-qt 119 x=x+1:GOTO 114 120 PRINT:PRINT:PRINT#4 129 GOTO 110 150 PRINT"{down*2}done.{black}":CLOSE4:END 1000 DATA "end","for","next","data","input#","input","dim","read","let" 1001 DATA "goto","run","if","restore","gosub","return","rem","stop","on" 1002 DATA "wait","load","save","verify","def","poke","print#","print" 1003 "cont","list","clr","cmd","sys","open","close","get","new" 1004 DATA "tab(","to","fn","spc","then","not","step","+","-","*","/" 1005 DATA "^","and","or",">","=","<","sgn","int","abs","usr","fre","pos" 1006 DATA "sqr","rnd","log","exp","cos","sin","tan","atn","peek","len" 1007 DATA "str$","val","asc","chr$","left$","right$","mid$" 1010 DATA 5,"wht",17,"dwn",18,"rvs on",19,"home",28,"red",29,"right" 1011 DATA 30,"grn",31,"blu",129,"orange",133,"f1",134,"f3",135,"f5" 1012 DATA 136,"f7",137,"f2",138,"f4",139,"f6",140,"f8",144,"blk" 1013 DATA 145,"up",146,"rvs off",147,"clr",149,"brown",150,"lt red" 1014 DATA 151,"gray 1",152,"gray 2",153,"lt grn",154,"lt blu" 1015 DATA 155,"gray 3",156,"pur",157,"left",158,"yel",159,"cyn" 1019 DATA -1,-1 1020 DATA 164,176,191,188,172,177,187,165,180,162,181,161,182,167,170,185,175 1021 DATA 171,178,174,163,184,190,179,189,183,173 1030 DATA 42,223,43,166,45,220,92,168 stop tok64 (bastext 1.0)