start tok64 d64-DSa7IL
0 REM"{delete*6}save"telefonregister":,8:"{down}{down}{down}{down}{down}{down}{down}{down}
1 POKE53280,.:POKE53281,.
10 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
20 PRINT"{down}{right}{green}v[nta. pokar ljudprogram
40 REM phone-caller by patrick ribbing
55 FORi=49152TO49392:READx:POKEi,x:NEXT:SYS49152
65 DATA169,40,141,8,3,169,192,141,9,3,169,15,141,24,212,169,0,141,5,212
70 DATA141,12,212,169,224,141,6,212,141,13,212,169,17,141,4,212,141,11,212
75 DATA96,32,115,0,201,64,240,11,165,122,208,2,198,123,198,122,76,228,167
80 DATA32,115,0,32,158,173,32,43,175,32,133,186,160,0,177,71,170,200,177
85 DATA71,133,251,200,177,71,133,252,134,253,160,0,177,251,201,48,144,91
90 DATA201,58,176,87,56,233,48,170,152,72,160,0,200,200,200,200,202,208
95 DATA249,152,170,234,234,189,202,192,141,8,212,189,201,192,141,7,212,189
100 DATA204,192,141,1,212,189,203,192,141,0,212,160,255,162,112,202,208,253
105 DATA136,208,248,169,0,141,8,212,141,7,212,141,1,212,141,0,212,160,255
110 DATA162,112,202,208,253,136,208,248,104,168,200,196,253,208,162,76,47
115 DATA192,152,72,160,255,162,255,202,208,253,136,208,248,76,176,192
125 DATA171,61,142,87,173,45,59,80,173,45,142,87,173,45,203,96,118,50,59,80
130 DATA118,50,142,88,118,50,203,96,214,55,59,79,214,55,142,88,214,55,203,96
199 DIMna$(1000),te$(1000):POKE54296,15
200 REM meny
210 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
220 PRINT"{down} {156}{reverse on}{space*2}{cyan} huvudmeny : {156}{space*23}"
230 PRINT"{down} {156}{reverse on}{space*2}{pink} 1. ladda in register {156}{space*14}"
240 PRINT"{down} {156}{reverse on}{space*2}{pink} 2. mata in data i register {156}{space*8}"
250 PRINT"{down} {156}{reverse on}{space*2}{pink} 3. [ndra / ta bort data {156}{space*11}"
260 PRINT"{down} {156}{reverse on}{space*2}{pink} 4. ringa direkt {156}{space*19}"
270 PRINT"{down} {156}{reverse on}{space*2}{pink} 5. s{pound}ka fr]n registret {156}{space*12}"
275 PRINT"{down} {156}{reverse on}{space*2}{pink} 6. lista {156}{space*26}"
276 PRINT"{down} {156}{reverse on}{space*2}{pink} 7. avsluta {156}{space*24}"
280 PRINT"{down*2} {reverse on}{yellow} v[lj alternativ :{space*3}{left*2}";
290 GETa$:a$=LEFT$(a$+" ",1)
300 PRINTa$"{left}";
310 IFa$<"1"ORa$>"7"THEN290
320 PRINT:ONVAL(a$)GOSUB1000,2000,3000,4000,5000,7000,6000:GOTO200
1000 REM * ladda *
1010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
1020 PRINT"{down}{green} v[lj : band / disk
1030 GETa$:IFa$<>"b"ANDa$<>"d"THEN1030
1040 en=1:IFa$="d"THENen=8
1050 PRINTTAB(7+en)"{white}{cm y*4}
1060 x$=MID$("bandet disken",en,6)
1070 PRINT"{down}{green} g{pound}r klar "x$". tryck space.
1080 GETa$:IFa$<>" "THEN1080
1090 PRINT"{down} {yellow}var god v[nta
1100 CLOSE9
1110 IFen=1THENOPEN9,1,.,"register
1120 IFen=8THENOPEN9,8,2,"register,s,r
1130 INPUT#9,an:s=an
1140 FORi=1TOan:INPUT#1,na$(i),te$(i):s=s+LEN(na$(i))+LEN(te$(i)):ch=st
1145 IFch=.THENNEXT
1146 IFch<>.THENs=.:GOTO1160
1150 INPUT#9,ch
1160 IFch<>sTHENPRINT"{down} {light blue}"LEFT$(x$,4)"fel!
1170 CLOSE9
1180 PRINT"{down} {yellow}{pound}verf{pound}rning avslutad
1190 FORi=.TO2000:NEXT:RETURN
2000 REM * mata in *
2010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
2020 IFan<1000THEN2100
2030 PRINT"{yellow}{down}{right}registret fullt! ta bort ej n{pound}dv[ndig{space*3}data eller g{pound}r nytt register
2040 FORi=.TO1000:NEXT:RETURN
2100 an=an+1
2110 INPUT"{down}{yellow} mata in namn{space*4}>{left*2}";na$(an)
2120 INPUT"{down}{yellow} telefonnummer{space*3}>{left*2}";te$(an)
2130 INPUT"{down}{light blue} uppgifter ok{space*4}>{left*2}";ok$:IFok$<>"j"ANDok$<>"ja"THEN2110
2140 INPUT"{down}{green} vill du mata in{space*25}fler data{space*7}>{left*2}";f$
2150 IFf$="j"ORf$="ja"THEN2100
2160 RETURN
3000 REM * [ndra / ta bort *
3010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
3020 p=.:INPUT"{down}{yellow} s{pound}knamn{space*9}>{left*2}";n$
3030 GOSUB5500:IFp=-1THENPRINT"s{pound}knamn finns inte !":GOTO
3040 PRINT"{green} post nummer"p"{left}:
3050 PRINT"{yellow} namn{space*10}: "na$(p)
3060 PRINT"{yellow} telefonnummer : "te$(p)
3070 PRINT"{down}{white}[{gray}ndra/{white}t{gray}a bort/{white}s{gray}{pound}ka vidare/{white}i{gray}ngen [ndring
3080 GETa$:IFa$="s"THEN3030
3090 IFa$="i"THEN3200
3100 IFa$<>"["ANDa$<>"a"ANDa$<>"t"THEN3080
3110 IFa$="t"THENx$="radering":GOTO3150
3120 x$="[ndring
3130 INPUT"{down}{yellow} mata in namn{space*4}>{left*2}";n$
3140 INPUT"{down}{yellow} telefonnummer{space*3}>{left*2}";t$
3150 PRINT"{down}{green} bekr[fta "x$":
3160 GETa$:IFa$="n"THEN3040
3170 IFa$<>"j"THEN3160
3180 IFa$="a"ORa$="["THENna$(p)=n$:te$(p)=t$:GOTO3040
3190 an=an-1:FORi=pTOan:na$(i)=na$(i+1):te$(i)=te$(i+1):NEXT
3200 PRINT"{green} vill du forts[tta ?
3210 GETa$:IFa$="n"THENRETURN
3220 IFa$<>"j"THEN3210
3230 GOTO3020
4000 REM * ringa direkt *
4010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
4020 INPUT"{down}{yellow} telefonnummer{space*3}>{left*2}";t$
4030 PRINT"{green} h]ll upp telefonluren. tryck.
4040 POKE198,.:WAIT198,1:POKE198,.
4050 PRINT"{clear}":@t$:RETURN
5000 REM * s{pound}ka & ringa *
5010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
5020 p=.:INPUT"{down}{yellow} s{pound}knamn{space*9}>{left*2}";n$
5030 GOSUB5500:IFp=-1THENPRINT"s{pound}knamn finns inte !":GOTO5020
5040 PRINT"{green} post nummer"p"{left}:
5050 PRINT"{yellow} namn{space*10}: "na$(p)
5060 PRINT"{yellow} telefonnummer : "te$(p)
5070 t$=te$(p):GOTO4030
5499 REM s{pound}k n$ i na$() p=postnr
5500 FORi=p+1TOan
5510 IFna$(i)=n$THENp=i:RETURN
5520 NEXT:p=-1:RETURN
6000 REM * avsluta *
6010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
6015 IFan=.THEN6190
6020 PRINT"{down}{green} v[lj : band / disk
6030 GETa$:IFa$<>"b"ANDa$<>"d"THEN1030
6040 en=1:IFa$="d"THENen=8
6050 PRINTTAB(7+en)"{white}{cm y*4}
6060 x$=MID$("bandet disken",en,6)
6070 PRINT"{down}{green} g{pound}r klar "x$". tryck space.
6080 GETa$:IFa$<>" "THEN1080
6090 PRINT"{down} {yellow}var god v[nta
6100 CLOSE9:q$=CHR$(13)
6110 IFen=1THENOPEN9,1,1,"register
6120 IFen=8THENOPEN9,8,2,"@0:register,s,w
6130 PRINT#9,an:s=an
6140 FORi=1TOan:PRINT#1,na$(i)q$te$(i):s=s+LEN(na$(i))+LEN(te$(i)):ch=st
6145 IFch=.THENNEXT
6146 IFch<>.THENs=.:GOTO6160
6150 PRINT#9,ch
6160 IFch<>sTHENPRINT"{down} {light blue}"LEFT$(x$,4)"fel!
6170 CLOSE9
6180 PRINT"{down} {yellow}{pound}verf{pound}rning avslutad
6190 END
7000 REM * lista *
7010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
7020 PRINT"{down}{right}{156}sk[rm / printer ?
7030 GETa$:IFa$<>"s"ANDa$<>"p"THEN7030
7040 tb=38:IFa$="p"THENCLOSE9:OPEN9,4:CMD9:tb=78
7045 PRINT"namn"TAB(tb-13)"telefonnummer":PRINT"{=*4}"TAB(tb-13)"{=*13}
7050 FORi=1TOan
7060 PRINTna$(i)TAB(tb-LEN(te$(i)))te$(i):IFPEEK(653)<>.THENWAIT653,1,1
7070 NEXT
7080 CLOSE9:POKE198,.:WAIT198,1:POKE198,.:RETURN
60000 REM * lista *
60010 PRINT"{156}{clear} {reverse on}{space*2}{yellow} telefon {156} {green} register {156}{space*2}{light blue} mr.p. 1990 {156}{space*2}"
60020 PRINT"{down}{right}{yellow}(1) save + verify kassett
60030 PRINT"{down}{right}(2) save + verify disk #8
60040 PRINT"{down}{right}(3) save + verify disk #9
60050 POKE198,.:WAIT198,1:GETa$
60060 ONVAL(a$)GOTO60070,60080,60090:GOTO60000
60070 SAVE"telefonregister":PRINT"spola tillbaka. tryck.":POKE198,.:WAIT198,1
60075 VERIFY:END
60080 SAVE"telefonregister",8:VERIFY"telefonregister",8:END
60090 SAVE"telefonregister",9:VERIFY"telefonregister",9:END
stop tok64
(bastext 1.0)