Source Code
10 DIM X(31)
20 LET U$=" "
30 DIM A$(31,32)
40 DIM B$(31,32)
50 DIM C$(31,32)
60 DIM D$(31,32)
70 DIM E$(31,32)
80 DIM F$(31,32)
90 DIM G$(31,32)
100 DIM H$(31,32)
110 CLS
120 PRINT AT 2,8; "ZX81/TIMEX 1000"
130 PRINT AT 3,6;"APPOINTMENT CALENDAR"
140 PRINT AT 4,14;"BY"
150 PRINT AT 5,4;"HEATH COMPUTER SERVICES"
160 PRINT AT 6,7;"950 EAST 52 SOUTH"
170 PRINT AT 7,9;"GREENTOWN IN."
180 PRINT AT 8,12;"46936"
190 PRINT AT 10,8;"COPYRIGHT 1982"
200 PRINT AT 18,8;"(ENTER MONTH)"
210 INPUT S$
220 CLS
230 PRINT "********************************"
240 PRINT AT 2,10;S$
250 PRINT AT 6,6;"DO YOU WANT TO--"
260 PRINT AT 10,3;"(1)ENTER APPOINTMENTS"
270 PRINT AT 11,3;"(2)LOOK AT A DATE"
280 PRINT AT 12,3;"(3)SAVE CALENDAR ON TAPE"
290 PRINT AT 13,3;"(4)PRINT CALENDAR"
300 PRINT AT 16,6;"PRESS NO. 1-4"
310 PRINT AT 20,0;"********************************"
320 LET M$=INKEY$
330 IF M$="" THEN GOTO 0320
340 IF M$="1" THEN GOTO 0390
350 IF M$="2" THEN GOTO 0390
360 IF M$="3" THEN GOTO 0910
370 IF M$="4" THEN GOTO 1580
380 GOTO 0220
390 CLS
400 PRINT AT 8,8;"ENTER THE DAY"
410 PRINT AT 18,6;"ENTER (0) FOR MENU"
420 INPUT X
430 IF X=0 THEN GOTO 0220
440 IF X>31 THEN GOTO 0390
450 IF M$="2" THEN GOTO 1020
460 IF A$(X)<>U$ THEN GOTO 0510
470 GOSUB 1510
480 INPUT I$
490 GOSUB 1560
500 LET A$(X)=I$
510 IF B$(X)<>U$ THEN GOTO 0560
520 GOSUB 1510
530 INPUT I$
540 GOSUB 1560
550 LET B$(X)=I$
560 IF C$(X)<>U$ THEN GOTO 0610
570 GOSUB 1510
580 INPUT I$
590 GOSUB 1560
600 LET C$(X)=I$
610 IF D$(X)<>U$ THEN GOTO 0660
620 GOSUB 1510
630 INPUT I$
640 GOSUB 1560
650 LET D$(X)=I$
660 IF E$(X)<>U$ THEN GOTO 0710
670 GOSUB 1510
680 INPUT I$
690 GOSUB 1560
700 LET E$(X)=I$
710 IF F$(X)<>U$ THEN GOTO 0760
720 GOSUB 1510
730 INPUT I$
740 GOSUB 1560
750 LET F$(X)=I$
760 IF G$(X)<>U$ THEN GOTO 0810
770 GOSUB 1510
780 INPUT I$
790 GOSUB 1560
800 LET G$(X)=I$
810 IF H$(X)<>U$ THEN GOTO 0860
820 GOSUB 1510
830 INPUT I$
840 GOSUB 1560
850 LET H$(X)=I$
860 CLS
870 PRINT AT 10,5;S$;" ";X;" IS FULL"
880 PRINT AT 20,2;" PRESS <ENTER> TO CONTINUE"
890 INPUT I$
900 GOTO 0390
910 CLS
920 PRINT "POSITION TAPE"
930 PRINT
940 PRINT "TYPE (MONTH)"
950 PRINT
960 PRINT "PRESS PLAY AND RECORD ON RECORDER"
970 PRINT
980 PRINT "PRESS <ENTER> WHEN READY"
990 INPUT T$
\n1000 SAVE T$
\n1010 GOTO 0110
\n1020 CLS
\n1030 PRINT AT 1,8;S$;" ";X;
\n1040 IF I$="9" THEN LPRINT S$;" ";X
\n1050 PRINT
\n1060 IF I$="9" THEN LPRINT
\n1070 PRINT "1"
\n1080 PRINT A$(X)
\n1090 IF I$="9" AND A$(X)<>U$ THEN LPRINT A$(X)
\n1100 PRINT "2"
\n1110 PRINT B$(X)
\n1120 IF I$="9" AND B$(X)<>U$ THEN LPRINT B$(X)
\n1130 PRINT "3"
\n1140 PRINT C$(X)
\n1150 IF I$="9" AND C$(X)<>U$ THEN LPRINT C$(X)
\n1160 PRINT "4"
\n1170 PRINT D$(X)
\n1180 IF I$="9" AND D$(X)<>U$ THEN LPRINT D$(X)
\n1190 PRINT "5"
\n1200 PRINT E$(X)
\n1210 IF I$="9" AND E$(X)<>U$ THEN LPRINT E$(X)
\n1220 PRINT "6"
\n1230 PRINT F$(X)
\n1240 IF I$="9" AND F$(X)<>U$ THEN LPRINT F$(X)
\n1250 PRINT "7"
\n1260 PRINT G$(X)
\n1270 IF I$="9" AND G$(X)<>U$ THEN LPRINT G$(X)
\n1280 PRINT "8"
\n1290 PRINT H$(X)
\n1300 IF I$="9" AND H$(X)<>U$ THEN LPRINT H$(X)
\n1310 PRINT
\n1320 IF I$="9" THEN LPRINT
\n1330 PRINT "PRESS (0)FOR MENU (9)TO PRINT"
\n1340 PRINT "PRESS CORRESPONDING NUMBER TO CHANGE OR DELETE"
\n1350 LET I$=INKEY$
\n1360 IF I$="" THEN GOTO 1350
\n1370 IF I$="9" THEN GOTO 1020
\n1380 IF I$="0" THEN GOTO 0220
\n1390 PRINT AT 19,0;"PRESS <ENTER> TO DELETE "
\n1400 PRINT "ENTER NEW APPOINTMENT "
\n1410 INPUT J$
\n1420 IF I$="1" THEN LET A$(X)=J$
\n1430 IF I$="2" THEN LET B$(X)=J$
\n1440 IF I$="3" THEN LET C$(X)=J$
\n1450 IF I$="4" THEN LET D$(X)=J$
\n1460 IF I$="5" THEN LET E$(X)=J$
\n1470 IF I$="6" THEN LET F$(X)=J$
\n1480 IF I$="7" THEN LET G$(X)=J$
\n1490 IF I$="8" THEN LET H$(X)=J$
\n1500 GOTO 1020
\n1510 CLS
\n1520 PRINT AT 2,6;S$;" ";X
\n1530 PRINT AT 4,0;"ENTER NEXT APPOINTMENT"
\n1540 PRINT AT 6,0;"PRESS <ENTER> WHEN FINISHED."
\n1550 RETURN
\n1560 IF I$="" THEN GOTO 0390
\n1570 RETURN
\n1580 CLS
\n1590 PRINT AT 9,9;"PRINTING"
\n1600 FOR X=1 TO 31
\n1610 IF A$(X)<>U$ THEN GOSUB 1710
\n1620 IF B$(X)<>U$ THEN GOSUB 1750
\n1630 IF C$(X)<>U$ THEN GOSUB 1790
\n1640 IF D$(X)<>U$ THEN GOSUB 1830
\n1650 IF E$(X)<>U$ THEN GOSUB 1870
\n1660 IF F$(X)<>U$ THEN GOSUB 1910
\n1670 IF G$(X)<>U$ THEN GOSUB 1950
\n1680 IF H$(X)<>U$ THEN GOSUB 1990
\n1690 NEXT X
\n1700 GOTO 0220
\n1710 LPRINT S$;" ";X
\n1720 LPRINT A$(X)
\n1730 LPRINT
\n1740 RETURN
\n1750 LPRINT S$;" ";X
\n1760 LPRINT B$(X)
\n1770 LPRINT
\n1780 RETURN
\n1790 LPRINT S$;" ";X
\n1800 LPRINT C$(X)
\n1810 LPRINT
\n1820 RETURN
\n1830 LPRINT S$;" ";X
\n1840 LPRINT D$(X)
\n1850 LPRINT
\n1860 RETURN
\n1870 LPRINT S$;" ";X
\n1880 LPRINT E$(X)
\n1890 LPRINT
\n1900 RETURN
\n1910 LPRINT S$;" ";X
\n1920 LPRINT F$(X)
\n1930 LPRINT
\n1940 RETURN
\n1950 LPRINT S$;" ";X
\n1960 LPRINT G$(X)
\n1970 LPRINT
\n1980 RETURN
\n1990 LPRINT S$;" ";X
\n2000 LPRINT H$(X)
\n2010 LPRINT
\n2020 RETURN
\n2500 SAVE "CALENDA%R"
\n2510 GOTO 0010
