start tok64 d64-h3VWDQ 0 IFPEEK(53088)<>120THENGOSUB250:REM"{141*2}save"@0:basreg",8:verify"basreg",8{141} 1 SYS53088:IFl=0THENGOSUB182:GOSUB2:GOTO4:REM 850412 910526 2 PRINTm$(0):GOSUB3:FORi=1TO8:PRINT,"{reverse on}{space*4}"m$(i);:FORh=1TO(13-LEN(m$(i))):PRINT"{reverse on} ";:NEXT:PRINT:PRINT:NEXT 3 PRINT"{home}",mr$:PRINTl$;:PRINTn$:PRINT,,,"{up}"d$:RETURN 4 a=0:GETa$:IFa$<>""THENa=ASC(a$)-132:IFa$="f"THEN203 5 IFa>0ANDa<9THENONaGOTO20,30,40,70,85,90,109,100 6 GOTO4 7 POKEl+4,34:POKEl+4,33:RETURN 8 OPEN9,0:INPUT#9,i$:CLOSE9:PRINT:RETURN 9 GOSUB7 10 GOSUB12:GOTO99 11 f=0:PRINT"{down}[r detta korrekt? n=nej" 12 GETa$:IFa$=""THEN12 13 IFa$="n"THENf=1 14 RETURN 15 GOSUB16:FORi=0TOk:PRINT"{reverse on}"k$(i)"{reverse off}",p$(i,a%(j)):NEXT:RETURN 16 GOSUB3:PRINT"{reverse on}post nr:{reverse off}"j"{left}{space*4}{reverse on}sista{reverse off}="n"{left}{space*3}{reverse on}max{reverse off}="mx"{left} ":PRINTl$:RETURN 17 PRINT"data saknas!":GOTO9 18 GOSUB7:PRINTm$(9):GOSUB3:FORi=0TOk:PRINTi+1,k$(i):NEXT:IFd=1THENRETURN 19 PRINT" *","del av rad":RETURN 20 IFny=0THENGOSUB190:n=0 21 PRINTm$(9):GOSUB7:j=n+1:g=0:IFa%(j)=0THENa%(j)=j 22 IFn+1=mxTHENPRINT"minnet fullt!":GOTO10 23 GOSUB16:FORi=0TOk:PRINTk$(i),:i$="":IFg>0THENINPUT"{left*2}";i$:GOTO25 24 GOSUB8:IFi=0THEN210 25 IFi$<>""THENp$(i,a%(j))=LEFT$(i$,a(i)) 26 NEXT:PRINTm$(0):GOSUB15:GOSUB11:PRINT"{up}"sp$:IFf=1THEN23 27 ONg+1GOTO29,32,79 29 n=n+1:GOTO21 30 j=1:GOSUB7:IFn=0THEN17 31 PRINTm$(10):GOSUB15:GOSUB12:IFa$="^"THENGOSUB140 32 IFa$="*"THENg=1:PRINTm$(0):GOSUB15:GOTO23 33 IFa$="{down}"THENj=j+1 34 IFa$="{up}"THENj=j-1 35 IFa$="v"THENGOSUB144 36 IFa$="m"THEN99 37 IFj<1THENj=1 38 IFj>nTHENj=n 39 GOTO31 40 d=0:IFn=0THEN17 41 GOSUB18:PRINT"{down}sortera efter rad nr ";:GOSUB8:IFi$="m"THEN99 42 IFi$="*"THENd=1:GOTO41 43 t=VAL(i$)-1:IFt<0ORt>kTHEN40 44 IFd=1THEN51 45 GOSUB69:g=n:GOSUB50 46 f=0:FORj=1TOm:p=j+g:IFp$(t,a%(j))>p$(t,a%(p))THENGOSUB68 47 NEXT:IFf>0THEN46 48 GOSUB50:IFg>0THEN46 49 PRINT"{down}klar!":GOTO9 50 g=INT(g/2):m=n-g:RETURN 51 GOSUB69:PRINT"{reverse off} enligt:{down}":PRINT" *","efter mellanslag{down}" 52 PRINT" n","n:te pos p] raden{down}":PRINT,:GOSUB8:IFi$="m"THEN99 53 GOSUB69:g=n:GOSUB50 54 IFi$="*"THEN60 55 v=VAL(i$):IFv<1THEN51 56 f=0:FORj=1TOm:p=j+g:IFMID$(p$(t,a%(j)),v,1)>MID$(p$(t,a%(p)),v,1)THENGOSUB68 57 NEXT:IFf>0THEN56 58 GOSUB50:IFg>0THEN56 59 GOTO49 60 f=0:FORj=1TOm:p=j+g:wl=LEN(p$(t,a%(p))) 61 FORw=1TOwl:IFMID$(p$(t,a%(p)),w,1)=" "THENww=w+1:w=wl 62 NEXTw:vl=LEN(p$(t,a%(j))) 63 FORv=1TOvl:IFMID$(p$(t,a%(j)),v,1)=" "THENvv=v+1:v=vl 64 NEXTv:IFMID$(p$(t,a%(j)),vv,1)>MID$(p$(t,a%(p)),ww,1)THENGOSUB68 65 NEXTj:IFf>0THEN60 66 GOSUB50:IFg>0THEN60 67 GOTO49 68 a=a%(j):a%(j)=a%(p):a%(p)=a:f=1:RETURN 69 PRINTm$(0):GOSUB3:PRINT"sorterar {reverse on}";k$(t):RETURN 70 d=0:pr=0:IFn=0THEN17 71 GOSUB18:PRINT"{down}s{pound}ka efter rad nr ";:GOSUB8:IFi$="m"THEN99 72 IFi$="*"THENd=1:GOTO71 73 a=VAL(i$)-1:IFa<0ORa>kTHEN71 74 PRINT"ange s{pound}kt ord (del av ord)":GOSUB8:b$=i$:IFd=1THEN80 75 FORj=1TOn:IFp$(a,a%(j))=b$THENGOSUB77:IFe=1THEN21 76 NEXT:GOSUB7:GOTO216 77 IFpr>0THEN132 78 PRINTm$(0):GOSUB15:GOSUB11:PRINT"{up}"sp$:IFf=1THENg=2:GOTO23 79 RETURN 80 FORj=1TOn:FORe=1TOLEN(p$(a,a%(j))) 81 IFMID$(p$(a,a%(j)),e,LEN(b$))=b$THENGOSUB77 82 NEXTe,j:GOSUB7:GOTO179 83 INPUT#15,a,i$,i,j:IFa>19THENPRINTa,i$,i;j:CLOSE8:CLOSE15 84 RETURN 85 GOSUB7:IFn=0THEN17 86 OPEN15,8,15:OPEN8,8,8,"@0:"+n$+",s,w":GOSUB83:IFa>19THEN9 87 PRINT#8,d$;cr$;k;cr$;n;cr$;mx;cr$; 88 FORi=0TOk:PRINT#8,a(i);cr$;k$(i);cr$;:FORj=1TOn:PRINT#8,p$(i,a%(j));cr$; 89 NEXTj,i:CLOSE8:CLOSE15:GOSUB7:GOTO4 90 PRINTm$(0):GOSUB3:GOSUB7:PRINT"gammal fil raderas!" 91 PRINT"{down}ska fil laddas in? n=nej":f=0:GOSUB12:IFf=1THEN99 92 CLR:GOSUB182:ny=1:GOSUB7:PRINT"{down}ange fil-namn{down}":GOSUB8:n$=i$:IFi$="@"THEN102 93 OPEN15,8,15:OPEN8,8,8,n$+",s,r":GOSUB83:IFa>19THEN9 94 INPUT#8,d$:INPUT#8,k:INPUT#8,n:INPUT#8,mx:GOSUB200:FORj=1TOn:a%(j)=j:NEXT 95 FORi=0TOk:INPUT#8,a(i):INPUT#8,k$(i):FORj=1TOn:INPUT#8,p$(i,j) 96 NEXTj,i:CLOSE8:CLOSE15:GOSUB7:PRINTm$(0):GOSUB3 97 PRINT"ange ev. nytt fil-namn";:i$="":INPUTi$:IFi$<>""THENn$=LEFT$(i$,18) 98 PRINT"ange ev. nytt datum";:i$="":INPUTi$:IFi$<>""THENd$=LEFT$(i$,6) 99 GOSUB2:GOTO4 100 GOSUB7:PRINT"{clear}":GOSUB3:POKE631,34:POKE198,1:GOTO103 101 d$="":INPUT"return slutar";d$:ON-(d$="$")GOTO104:IFd$=""THENGOSUB2:GOTO4 102 OPEN15,8,15,d$:INPUT#15,en$,em$,et$,es$:PRINTen$": {reverse on}"em$","et$","es$:CLOSE15 103 PRINT"kommando? $ f{pound}r directory.":POKE631,34:POKE198,1:GOTO101 104 OPEN99,8,0,"$":POKE781,99:SYS65478:GETa$,a$:e$=CHR$(.) 105 GETa$,a$,x$,y$:IFstTHENSYS65484:CLOSE99:GOTO103 106 PRINTASC(x$+e$)+256*ASC(y$+e$); 107 GETa$,b$:IFa$THENPRINTa$b$;:GOTO107 108 PRINTa$:GOTO105 109 PRINTm$(0):GOSUB3:GOSUB7:IFn=0THEN17 110 PRINT"printer inkopplad? n=nej":f=0:GOSUB12:IFf=1THEN99 111 PRINT"f1","skriv poster i ordn.":PRINT"{down}f3","s{pound}k post och skriv" 112 GOSUB12:j=ASC(a$)-132:IFj<1ORj>2THEN111 113 PRINT"{down}f5","skriv kolumner":PRINT"{down}f7","skriv etiketter" 114 GOSUB12:pr=ASC(a$)-134:IFpr<1ORpr>2THEN113 115 PRINTm$(0):GOSUB3:PRINT"tryck j f{pound}r rad som ska skrivas!{down}" 116 FORh=0TOk:s%(h)=0:PRINTk$(h),:GOSUB12:IFa$="j"THENs%(h)=1:PRINTa$; 117 PRINT:NEXT:PRINTm$(0):GOSUB3 118 PRINT"{down}antal rader/sida",:GOSUB8:r=VAL(i$):GOSUB230 119 c=1:IFpr=2THENPRINT"{down}1 el 2 i bredd? ";:GOSUB8:c=VAL(i$):IFc<1ORc>2THEN119 120 IFpr=2THENPRINT"{down}antal tomrader{space*2}";:GOSUB8:t=VAL(i$)-1 121 m=0:PRINT"{down}marginal ";:GOSUB8:m=VAL(i$):IFm<0ORm>60THEN121 122 s=0:p=1:IFj=2THEN130 125 GOSUB166:GOSUB169:FORj=aTOn:IFs=0THENGOSUB170 126 a1=j:IFc=2THENj=j+1:a2=j 127 GOSUB174:GETa$:IFa$<>""THENj=n 128 NEXT:GOTO179 130 GOSUB169:d=0:a1=0:GOTO71 132 IFs=0THENGOSUB170 133 IFa1=0THENa1=j:IFpr=2ANDc=2THENRETURN 134 IFpr=2ANDc=2THENa2=j 135 GOTO174 140 PRINT"{down}radera ? n=nej":f=0:GOSUB12:PRINTm$(0):GOSUB3:IFf=1THENRETURN 142 tf=a%(j):n=n-1:FORh=jTOn:a%(h)=a%(h+1):NEXT:a%(n+1)=tf:RETURN 144 PRINT"{down}vilken post ska visas? ";:GOSUB8:j=VAL(i$):RETURN 150 IFpr=2ANDa2>0THENPRINTSPC(40-a(i))p$(i,a%(a2)); 151 IFpr=2ANDf>0THENFORw=1TOf:PRINT:s=s+1:NEXT 152 RETURN 166 PRINTm$(0):GOSUB3:PRINT"skriv fr]n post nr "; 167 GOSUB8:a=VAL(i$):IFa<1ORa>nTHEN166 168 RETURN 169 OPEN4,4:OPEN3,3:RETURN 170 IFpr=2THENRETURN 171 CMD4:PRINTd$;SPC(10)n$;SPC(50-LEN(n$))"sid ";p:PRINTl$;l$:PRINT:GOSUB243 172 FORi=0TOk:a$=LEFT$(k$(i),a(i)):IFs%(i)=1THENPRINTa$;SPC(a(i)+1-LEN(a$)); 173 NEXT:PRINT:s=s+5:CMD3:RETURN 174 CMD4:GOSUB243:FORi=0TOk:IFs%(i)=1ANDpr=2THENPRINTSPC(m); 175 IFs%(i)=1THENPRINTp$(i,a%(a1));SPC(a(i)+1-LEN(p$(i,a%(a1))));:f=1:GOSUB150 176 NEXT:a1=0:a2=0:f=t:GOSUB150 177 GOTO240 179 IFpr=2ANDa1>0THENGOSUB174 180 IFpr>0THENPRINT#4:CLOSE4:CLOSE3 181 GOSUB2:GOTO4 182 l=54272:cr$=CHR$(13):ne$="{home}":nf$=ne$:FORi=lTOl+24:POKEi,0:NEXT 183 POKEl,200:POKEl+1,100:POKEl+5,10:POKEl+6,0:POKEl+24,15 184 FORi=1TO10:sp$=sp$+"{space*4}":ne$=ne$+"{down}":nf$=nf$+"{down*2}":l$=l$+"{-*4}":NEXT 185 m$(1)="f1{space*2}skriva":m$(2)="f3{space*2}visa":m$(3)="f5{space*2}sortera":m$(4)="f7{space*2}s{pound}k" 186 m$(5)="f2{space*2}spara":m$(6)="f4{space*2}ladda":m$(7)="f6{space*2}utskrift":m$(8)="f8{space*2}dos" 187 me$="m=meny":mf$="{clear}"+nf$+l$+sp$:m$(0)=mf$+sp$+sp$+"{up}" 188 m$(9)=mf$+LEFT$(me$+sp$,40)+sp$+"{up}":mr$="{down}{reverse on}{left*3} * b a s r e g - 6 4 * {reverse off}" 189 m$(10)="{clear}"+nf$+l$+me$+" v=valfri post *=[ndra ^=radera{space*3}"+sp$+"{up}":RETURN 190 ny=1:GOSUB7:PRINT"{clear}":GOSUB3:PRINT"{down}fil-namn ";:GOSUB8:n$=LEFT$(i$,18) 191 PRINT"dagens datum ";:GOSUB8:d$=LEFT$(i$,6) 192 PRINT"antal rader/post ";:GOSUB8:k=VAL(i$)-1:IFk<1ORk>8THEN192 193 c=0:FORi=0TOk:PRINT"rad";i+1,:GOSUB8:k$(i)=LEFT$(i$,9) 194 PRINT"antal tecken (max 29)",:GOSUB8:a(i)=VAL(i$):IFa(i)<1ORa(i)>29THEN194 195 PRINT"antal tecken (snitt){space*4}",:GOSUB8:a=VAL(i$):IFa<1ORa>29THEN195 196 c=c+a:b%(i)=a:NEXT:PRINTm$(0):GOSUB3:PRINT"{reverse on}rad","namn","max","snitt":PRINT 197 FORi=0TOk:PRINTi+1,k$(i),a(i),b%(i):NEXT:GOSUB11:IFf=1THENn$="":d$="":GOTO190 198 GOSUB202:mx=INT(x/c) 199 PRINT"{down}du rymmer max"mx"poster. godtas detta? n=nej":f=0:GOSUB12:IFf=1THEN190 200 DIMp$(k,mx),a%(mx):RETURN 202 x=FRE(0)-(FRE(0)<0)*65536:RETURN 203 PRINTm$(0):GOSUB3:PRINT"st[dar i minnet{.*3}{down}":PRINT"fritt minne:";:GOSUB202 204 PRINTx;"tecken":GOTO9 210 e=0:IFi$="m"ANDg=0THEN99 211 IFLEFT$(i$,1)<>"*"THEN25 212 b$=RIGHT$(i$,LEN(i$)-1):i$=b$:a=0:e=1:GOTO75 216 IFe=1THEN25 217 GOTO179 230 PRINT"{down}pappersl[ngd:",:GOSUB8:pl=VAL(i$):RETURN 240 IFr=plTHENCMD3:RETURN 241 s=s+1:IFs>=rTHENFORi=s TOpl:PRINT:NEXT:s=0:p=p+1 242 CMD3:RETURN 243 IFpr=1THENPRINTSPC(m); 244 RETURN 250 REM 251 DATA 78,a5,01,29,fb,85,01,a9 252 DATA 00,85,fb,85,fd,a9,d0,85 253 DATA fc,a9,c0,85,fe,a0,00,b1 254 DATA fb,91,fd,c8,d0,f9,e6,fc 255 DATA e6,fe,a5,fc,c9,d8,d0,ef 256 DATA a5,01,09,04,85,01,58,ea 257 DATA a2,00,bd,d0,cf,9d,d8,c0 258 DATA 49,ff,9d,d8,c4,e8,e0,18 259 DATA d0,f0,ea,a9,20,8d,18,d0 260 DATA ea,ad,02,dd,09,03,8d,02 261 DATA dd,ad,00,dd,29,fc,8d,00 262 DATA dd,a9,c8,8d,88,02,ea,a9 263 DATA 93,20,d2,ff,60,00,00,00 264 DATA 00,00,00,00,00,00,00,00 265 DATA 66,66,3c,66,66,7e,66,00 266 DATA 66,66,3c,66,66,66,3c,00 267 DATA 3c,66,3c,66,66,7e,66,00,-1 268 c=53088:su=0:i=0:PRINT"{clear}laddar maskinkod" 269 READ a$:IF a$="-1"THEN 274 270 a=ASC(a$)-48:IF a>16 THEN a=a-7 271 b=ASC(RIGHT$(a$,1))-48:IF b>16 THEN b=b-7 272 n=a*16+b 273 POKE c+i,n:su=su+n:i=i+1:GOTO269 274 RETURN stop tok64 (bastext 1.0)