start tok64 d64-d6SJ8O
5 REM public domain 1991!
100 POKE53280,6:POKE53281,0:PRINT"{clear}{down}{right*5}datoriserad telefonuppringare."
110 PRINT"{red}{right*5}{E*30}{light blue}":FORt=0TO24:POKE54272+t,0:NEXT
120 FORt=0TO13:READx:POKE54272+t,x:NEXT:POKE54296,15
140 GOSUB1000
200 DIMq(LEN(d$)):FORt=1TOLEN(d$):q(t)=VAL(MID$(d$,t,1)):NEXT
201 f=54272:g=54273:h=54279:i=54280:FORa=1TOLEN(d$)
205 IFq(a)=0THENPOKEf,171:POKEg,61:POKEh,142:POKEi,87:GOTO220
206 IFq(a)=1THENPOKEf,173:POKEg,45:POKEh,59:POKEi,79:GOTO220
207 IFq(a)=2THENPOKEf,173:POKEg,45:POKEh,142:POKEi,87:GOTO220
208 IFq(a)=3THENPOKEf,173:POKEg,45:POKEh,204:POKEi,96:GOTO220
209 IFq(a)=4THENPOKEf,118:POKEg,50:POKEh,59:POKEi,79:GOTO220
210 IFq(a)=5THENPOKEf,118:POKEg,50:POKEh,142:POKEi,87:GOTO220
211 IFq(a)=6THENPOKEf,118:POKEg,50:POKEh,204:POKEi,96:GOTO220
212 IFq(a)=7THENPOKEf,215:POKEg,55:POKEh,59:POKEi,79:GOTO220
213 IFq(a)=8THENPOKEf,215:POKEg,55:POKEh,142:POKEi,87:GOTO220
214 IFq(a)=9THENPOKEf,215:POKEg,55:POKEh,204:POKEi,96:GOTO220
220 POKE54276,17:POKE54283,17:FORh=1TO400:NEXT:POKE54276,16:POKE54283,16
223 FORy=1TO50:NEXT:NEXT
240 RUN
990 DATA100,100,100,100,16,15,0
992 DATA100,100,100,100,16,15,0
1000 PRINT"{home}{down*5}":INPUT"vem vill du ringa till ";n$
1010 READ a$,b$,c$,d$
1020 IFn$=LEFT$(a$,LEN(n$))THEN2000
1030 IFa$="*"THEN3000
1099 GOTO1010
2000 PRINT"{clear}"
2010 PRINT"namn{space*7}:";a$
2020 PRINT"adress{space*5}:";b$
2030 PRINT"postadress :";c$
2040 PRINT"telefon{space*4}:";d$
2050 INPUT "{down}{reverse on}[r det r[tt person (j/n){reverse off}{space*2}";k$
2060 IFk$="n"THEN1010
2070 RETURN
3000 PRINT"{clear}{down*2}nu har jag letat igenom hela registret{space*2}efter den personen."
3010 PRINT"du har antagligen inte skrivit in honom."
3020 PRINT"{down*2}vill du skriva in den personen i{space*8}registret (j/n)"
3030 INPUT k$
3040 IF k$="n" THEN RUN
3050 LIST10000-11000
10000 REM namn adress postadress tele
10010 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10020 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10030 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10040 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10050 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10060 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10070 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10080 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10090 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10100 DATA scandinavien pd,box 525,191 05  sollentuna,08964072
10110 :
10999 DATA *,*,*,*
60000 REM
60010 OPEN15,8,15,"s0:telefonringare"
60020 CLOSE15
60030 SAVE"telefonringare",8
60100 END:RUN60000
stop tok64
(bastext 1.0)