Posted By
Dunric
on 2009-02-02
11:29:50
|  Here's the telephone program
1 DIM RI$(50),RT$(50)
5 OPEN15,8,15,"I"
50 PRINT"[CLR]"
100 POKE53280,0:POKE 53281,0
110 PRINTTAB(11);"[RVS ON][RED] TELEPHONE NUMBERS "
120 PRINT"[RVS ON][PURPLE][DOWN] NAME NUMBER "
130 PRINT"[BLUE]#1":PRINT"#2":PRINT"#3":PRINT"#4":PRINT"#5":PRINT"#6":PRINT"#7"
150 INPUT"[WHITE][4 DOWN][7 RIGHT]PRESS ANY KEY TO CONTINUE";R$
160 PRINT"[RVS ON][WHITE][CLR][2 DOWN] SAVE NEW # [6 RIGHT]1"
165 PRINT"[RVS ON][RED][2 DOWN] DIRECTORY [6 RIGHT]2"
170 PRINT"[RVS ON][CYAN][2 DOWN] GET RID OF A # [6 RIGHT]3"
175 INPUT"[RVS ON][PURPLE] MAKE A SELECTION ";RU$
180 IFRU$="1"THEN210
190 IFRU$="2"THEN270
200 IFRU$="3"THEN330
210 INPUT"[BLUE] ENTER NAME";RI$
220 PRINT:INPUT"[WHITE] ENTER NUMBER";RT$
221 PRINT"[CLR]":OPEN1,8,3,F$+",S,R":I=1
222 PRINTTAB(11);"[RVS ON][RED] TELEPHONE NUMBERS "
223 PRINT"[RVS ON][PURPLE][DOWN] NAME NUMBER "
224 PRINT"[BLUE]#1":PRINT"#2":PRINT"#3":PRINT"#4":PRINT"#5":PRINT"#6":PRINT"#7"
225 PRINT"[HOME][3 DOWN]"
226 FORA=1TOI
227 INPUT#1,RI$(I):INPUT#1,RT$(I)
228 PRINTTAB(5)RI$(I)TAB(28)RT$(I)
229 IFRI$=CHR$(160)THENGOTO231
230 I=I+1:IFST=0THEN227
231 CLOSE1
232 PRINT"[WHITE]"TAB(5)RI$TAB(28)RT$:OPEN2,8,2,F$+",S,W":OPEN1,8,3,"PHONES,A"
240 PRINT#1,RI$:PRINT#1,RT$
250 CLOSE1:CLOSE2
260 GOTO150
270 PRINT"[CLR]":OPEN1,8,3,F$+",S,R":I=1
271 PRINTTAB(11);"[RVS ON][RED] TELEPHONE NUMBERS "
272 PRINT"[RVS ON][PURPLE][DOWN] NAME NUMBER "
273 PRINT"[BLUE]#1":PRINT"#2":PRINT"#3":PRINT"#4":PRINT"#5":PRINT"#6":PRINT"#7"
275 PRINT"[HOME][3 DOWN]"
280 FORA=1TOI
290 INPUT#1,RI$(I):INPUT#1,RT$(I)
300 PRINTTAB(5)RI$(I)TAB(28)RT$(I)
310 IFRI$=CHR$(160)THENGOTO150
320 I=I+1:IFST=0THEN290
325 CLOSE1:GOTO150
330 PRINT:INPUT"[WHITE]ARE YOU SURE";RU$
331 IFRU$="Y"THEN340
332 IFRU$="N"THEN150
340 PRINT#15,"S0:PHONES,S,W":CLOSE15
370 GOTO 150
Paul
|
