start tok64 d64-KlvKpZ 1 INPUT"har du diskett";a$:IFLEFT$(a$,1)="n"THEN20 10 OPEN3,8,15,"i0" 20 DIMn$(500),a$(500),pa$(500),t$(500) 30 POKE53281,0:POKE53280,0:POKE646,15:z=0 40 POKE608,234 50 PRINT"{clear}{down*3}{reverse on}{<*7}telefon och adressregister{>*7}" 60 CLOSE4 70 PRINTTAB(6)"{down}U{sh asterisk*8}huvud-meny{sh asterisk*9}I 80 PRINTTAB(6)"{sh -}f1:nya adresser och tel nr.{sh -} 90 PRINTTAB(6)"{sh -}f2:redigera{space*16}{sh -} 100 PRINTTAB(6)"{sh -}f3:ladda{space*19}{sh -} 110 PRINTTAB(6)"{sh -}f5:spara{space*19}{sh -} 115 PRINTTAB(6)"{sh -}f6:skriva ut hela listan{space*3}{sh -} 120 PRINTTAB(6)"{sh -}f7:se adresser och tel nr. {sh -} 130 PRINTTAB(6)"J{sh asterisk*27}K 140 GETa$:IFa$=""THEN140 150 IFa$=CHR$(133)THENPRINT"{clear}":GOSUB250:GOTO50 160 IFa$=CHR$(134)THEN1240 170 IFa$=CHR$(135)THEN1060 180 IFa$=CHR$(136)THEN640 190 IFa$=CHR$(137)THEN2400 193 IFa$=CHR$(139)THEN2200 200 POKE53280,1:POKE53280,0 210 GOTO140 220 REM******************** 230 REM*** nya adresser *** 240 REM******************** 250 GOSUB1610 260 PRINT"{home}{down*3}{right}";:z=z+1:v$="n$":k=18:ol=0:GOSUB380 270 PRINT"{home}{down*3}"SPC(22);:v$="t$":k=15:ol=0:GOSUB380 280 PRINT"{home}{down*7}{right}";:v$="a$":k=36:ol=0:GOSUB380 290 PRINT"{home}{down*11}{right}";:v$="pa$":k=36:ol=0:GOSUB380 300 IFnm$="ersatta"THENnm$="":RETURN 310 PRINT"{down*4}U{sh asterisk*8}I" 320 PRINT"{up}{sh -}en till?{sh -} 330 PRINT"J{sh asterisk*8}K 340 GETa$:IFa$=""THEN340 350 IFa$="j"THEN250 360 IFa$="n"THENRETURN 370 GOTO340 380 PRINTTAB(ol+1)"{cm @} {left*2}";:GETa$:IFa$=""THEN380 390 a=ASC(a$) 400 IFa$="/"THEN450 410 IFa=13THENPRINTTAB(ol+1)" ";:GOTO510 420 IFa>64ANDa<94THEN450 430 IFa>47ANDa<58ORa=32ORa=20THEN450 440 GOTO380 450 IFa=20THENol=ol-2 460 ol=ol+1:IFol>kTHENol=ol-1:GOTO380 470 IFol<0THENol=0:GOTO380 480 IFa=20THENPRINT"{left} {left}";:GOTO500 490 PRINTa$; 500 GOTO380 510 FORi=0TOol:PRINT"{left}";:NEXT 520 OPEN1,3 530 INPUT#1,a$ 535 IFz>500THEN600 540 IFv$="n$"THENn$(z)=LEFT$(a$,ol) 550 IFv$="t$"THENt$(z)=LEFT$(a$,ol) 560 IFv$="a$"THENa$(z)=LEFT$(a$,ol) 570 IFv$="pa$"THENpa$(z)=LEFT$(a$,ol) 590 CLOSE1:RETURN 600 PRINT"{home}{down*15}U{sh asterisk*14}I" 610 PRINT"{sh -}for manga namn{sh -}" 620 PRINT"J{sh asterisk*14}K" 630 RETURN 640 REM******************* 650 REM*** se adresser *** 660 REM******************* 670 IFz=0THEN50 680 PRINT"{clear}" 690 PRINT"speciell bokstav?" 700 GETa$:IFa$=""THEN700 710 IFa$="j"THEN740 720 IFa$="n"THEN970 730 GOTO700 740 PRINT"{down*4}U{sh asterisk*9}I 750 PRINT"{sh -}bokstav: {sh -} 760 PRINT"J{sh asterisk*9}K 770 GETb$:IFb$=""THEN770 780 PRINT"{up*2}{right*9}"b$ 800 FORi=1TOz 810 IFn$(i)=""THENNEXT 820 IFASC(LEFT$(n$(i),1))=ASC(a$)THENGOSUB840 830 NEXT:GOTO50 840 GOSUB1610 850 PRINT"{home}{down*3}{right}"n$(i) 860 PRINT"{home}{down*3}"SPC(23)t$(i) 870 PRINT"{home}{down*7}{right}"a$(i) 880 PRINT"{home}{down*11}{right}"pa$(i) 890 PRINT"{down*3}U{sh asterisk*6}IU{sh asterisk*11}I" 900 PRINT"{sh -}nasta?{sh -*2}p for print{sh -}" 910 PRINT"{up}J{sh asterisk*6}KJ{sh asterisk*11}K" 920 GETa$:IFa$=""THEN920 930 IFa$="j"THENRETURN 940 IFa$="n"THEN50 950 IFa$="p"THEN1440 960 GOTO920 970 FORt=65TO93 980 FORi=1TOz 990 IFn$(i)=""THENNEXTi,t:GOTO50 1000 IFASC(LEFT$(n$(i),1))=tTHENGOSUB840 1010 NEXTi:IFt<93THENNEXTt 1020 GOTO50 1030 REM************* 1040 REM*** spara *** 1050 REM************* 1060 PRINT"{clear}" 1070 INPUT"filnamn";f$ 1080 PRINT"{home}{down*6}{reverse on}b{reverse off}and eller {reverse on}d{reverse off}isk" 1090 GETa$:IFa$=""THEN1090 1100 IFa$="b"THENOPEN2,1,1,f$:GOTO1150 1110 IFa$="d"THEN1130 1120 GOTO1090 1130 OPEN2,8,2,f$+",s,w" 1140 GOSUB1400:IFa$="file exists"THENGOSUB1820 1150 PRINT#2,z:z$=CHR$(13) 1160 FORi=1TOz 1170 PRINT#2,n$(i)z$t$(i)z$a$(i)z$pa$(i) 1180 IFa$="disk"THENGOSUB1400 1190 NEXT:CLOSE2:CLOSE4 1200 GOTO50 1210 REM************* 1220 REM*** ladda *** 1230 REM************* 1240 PRINT"{clear}" 1250 INPUT"filnamn";f$ 1260 PRINT"{home}{down*7}{reverse on}b{reverse off}and eller {reverse on}d{reverse off}isk" 1270 GETa$:IFa$=""THEN1270 1280 IFa$="b"THENOPEN2,1,0,f$:GOTO1330 1290 IFa$="d"THEN1310 1300 GOTO1270 1310 OPEN2,8,2,f$+",s,r" 1320 GOSUB1400 1330 INPUT#2,z 1340 FORi=1TOz 1350 INPUT#2,n$(i),t$(i),a$(i),pa$(i) 1360 NEXT:CLOSE2:GOTO50 1370 REM****************** 1380 REM*** kolla disk *** 1390 REM****************** 1400 INPUT#3,a,a$,b,c 1410 PRINT"{home}"a;a$;b;c 1420 IFa<>0ANDa$<>"file exists"THENCLOSE2:FORi=1TO1000:NEXT:GOTO50 1430 RETURN 1440 OPEN1,4:PRINT#1,CHR$(31) 1450 PRINT#1,n$(i) 1460 PRINT#1,a$(i) 1470 PRINT#1,pa$(i) 1480 PRINT#1 1490 PRINT#1,t$(i) 1500 CLOSE1:GOTO920 1510 PRINT"{clear}" 1520 INPUT"{down*2}namn";n$ 1530 FORi=1TOz 1540 IFn$(i)=n$THEN1560 1550 NEXT:PRINT"namnet "n$" finns ej med":FORi=1TO2000:NEXT:GOTO50 1560 x=z:z=i-1:nm$="ersatta" 1570 GOSUB250:z=x:GOTO50 1580 REM************************* 1590 REM*** skarmuppstallning *** 1600 REM************************* 1610 PRINT"{home}"; 1620 PRINT"U{sh asterisk*20}{cm r}{sh asterisk*17}I"; 1630 PRINT"{sh -}{reverse on}{space*6}namn{space*10}{reverse off}{sh -}{reverse on}{space*4}tel.{space*9}{reverse off}{sh -}"; 1640 PRINT"{cm q}{sh asterisk*20}{sh +}{sh asterisk*17}{cm w}"; 1650 PRINT"{sh -}{space*20}{sh -}{space*17}{sh -}"; 1660 PRINT"{cm q}{sh asterisk*20}{cm e}{sh asterisk*17}{cm w}"; 1670 PRINT"{sh -}{reverse on}{space*17}adress{space*15}{reverse off}{sh -}"; 1680 PRINT"{cm q}{sh asterisk*38}{cm w}"; 1690 PRINT"{sh -}{space*38}{sh -}"; 1700 PRINT"{cm q}{sh asterisk*38}{cm w}"; 1710 PRINT"{sh -}{reverse on}{space*15}postadress{space*13}{reverse off}{sh -}"; 1720 PRINT"{cm q}{sh asterisk*38}{cm w}"; 1730 PRINT"{sh -}{space*38}{sh -}"; 1740 PRINT"J{sh asterisk*38}K"; 1750 PRINT"{space*40}"; 1760 PRINT"{space*40}"; 1770 PRINT"{space*40}"; 1780 PRINT"{space*40}"; 1790 PRINT"{space*40}"; 1800 PRINT"{space*40}"; 1810 RETURN 1820 PRINT"{down*2}U{sh asterisk*21}I" 1830 PRINT"{sh -}f1:ersatta filen{space*5}{sh -}" 1840 PRINT"{sh -}f3:till huvudmenyn{space*3}{sh -}" 1850 PRINT"J{sh asterisk*21}K" 1860 GETa$:IFa$=""THEN1860 1870 IFa$=CHR$(133)THENCLOSE2:OPEN2,8,2,"@:"+f$+",s,w":RETURN 1880 IFa$=CHR$(134)THENCLOSE2:GOTO50 1890 GOTO1860 1900 GETa$:IFa$=""THEN1900 1910 IFa$="j"ORa$="n"THENRETURN 1920 GOTO1900 2000 REM*************** 2010 REM*** sortera *** 2020 REM*************** 2030 PRINT"{clear}"SPC(11)"U{sh asterisk*15}I 2040 PRINTSPC(11)"{sh -}sorterar listan{sh -} 2050 PRINTSPC(11)"J{sh asterisk*15}K 2060 PRINTSPC(11)"{down*2}U{sh asterisk*15}I" 2070 PRINTSPC(11)"{sh -}nedrakning:{space*4}{sh -}" 2080 PRINTSPC(11)"J{sh asterisk*15}K{up}" 2090 FORi=1TOz-1 2100 PRINT"{up}"SPC(24)MID$(STR$(1000+(z-i-1),3)) 2110 FORj=i+1TOz 2120 IFn$(i)" "THENNEXT 2320 CLOSE1 2330 GOTO50 2400 PRINT"{clear}{down*3}{reverse on}{<*7}telefon och adressregister{>*7}" 2410 PRINTTAB(6)"{down}U{sh asterisk*6}redigeringsmeny{sh asterisk*6}I 2420 PRINTTAB(6)"{sh -}f1:ersatta namn{space*12}{sh -}" 2430 PRINTTAB(6)"{sh -}f3:sortera listan pa namn{space*2}{sh -}" 2440 PRINTTAB(6)"{sh -}f5:radera post/hela listan {sh -}" 2455 PRINTTAB(6)"{sh -}f8:ater till huvudmenyn{space*4}{sh -}" 2460 PRINTTAB(6)"J{sh asterisk*27}K" 2470 GETa$:IFa$=""THEN2470 2480 IFa$=CHR$(133)THEN1510 2490 IFa$=CHR$(134)THEN2000 2500 IFa$=CHR$(135)THEN2600 2515 IFa$=CHR$(140)THEN50 2520 POKE53280,1:POKE53280,0 2530 GOTO2470 2600 PRINT"{clear}{down}U{sh asterisk*17}I 2610 PRINT"{sh -}{reverse on}p{reverse off}ost/{reverse on}h{reverse off}ela listan?{sh -} 2620 PRINT"J{sh asterisk*17}K 2630 GETa$:IFa$=""THEN2630 2640 IFa$="p"THEN2680 2650 IFa$="h"THEN2670 2660 GOTO2630 2670 FORi=1TOz:n$(i)="":a$(i)="":pa$(i)="":t$(i)="":NEXT:z=0:GOTO50 2680 PRINT"{clear}{down}U{sh asterisk*36}I 2690 PRINT"{sh -}soka pa {reverse on}n{reverse off}amn eller valja fran {reverse on}l{reverse off}ista?{sh -} 2700 PRINT"J{sh asterisk*36}K 2710 GETa$:IFa$=""THEN2710 2720 IFa$="n"THEN2750 2730 IFa$="l"THEN2780 2740 GOTO2710 2750 INPUT"namn";n$ 2760 FORi=1TOz:IFn$(i)<>n$THENNEXT:GOTO50 2770 GOTO2820 2780 FORi=1TOz 2790 PRINT"radera "n$(i)"?":GOSUB1900 2800 nm$="lista":IFa$="j"THEN2820 2810 IFi