Notes

Disk info for Volume_027_Home_and_Personal.dsk:

File Name: riag_005_Volume_027_-_Home_and_Personal/Volume_027_Home_and_Personal.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 1280
Used Space (bytes): 142080
Physical Size (KB): 140
Free Space (KB): 1
Used Space (KB): 138
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 5
Used Sectors: 555
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Volume_027_Home_and_Personal.dsk:

riag_005_Volume_027_-_Home_and_Personal/Volume_027_Home_and_Personal.dsk DISK VOLUME #254
A 002 HELLO
A 064 BIORHYTHM
I 003 CALCULATOR START
I 009 CALC1
B 003 TALK
B 057 NUMBERS
A 012 TELEPHONE DIALER (NO MODEM)
A 070 ADDRESS LIST
A 076 ADDRESS BOOK
A 021 APPLE II DEMO
A 009 CHECK BOOK BALANCER
A 012 GAMBLER'S RUIN
* A 048 BIORHYTHM-FREELOADER
A 031 LIFE EXPECTANCY-A
* I 074 NUMEROLOGY
DOS 3.3 format; 1,280 bytes free; 142,080 bytes used.

Text found in Volume_027_Home_and_Personal.dsk/ADDRESS BOOK.bas:

10 REM PROGRAM TO CHANGE DATA
20 REM STATEMENTS BY:
30 REM JOHNNY GRAHAM
40 REM THE DATA CHANGES CAN NOT
50 REM BE LONGER THAN THE ORIGIONAL
60 REM DATA.
70 REM
80 REM **** CHANGE LINE 980 ****
82 REM **** IF PROGRAM ****
83 REM **** N A M E ****
84 REM **** IS CHANGED ****
85 REM *************************
90 D$ = CHR$(4):UL$ = "_______________________________________"
92 PG$ = "ADDRESS LIST": REM CHANGE THIS STRING IF YOU CHANGE PROGRAM NAME
94 IF PEEK(994) + PEEK(1001) = 192 THEN DOS = 1: REM DOES THIS SYSTEM HAVE DISK?
100 HOME : POKE 34,1
110 VTAB 8: PRINT " A D D R E S S B O O K": PRINT : PRINT " BY": PRINT " JOHNNY GRHAM"
112 PRINT : PRINT "IF THE NAME OF THIS PROGRAM IS CHANGED THE STRING 'PG$' (STATEMENT 92) WILL NEED TO BE CHANGED TO THE NEW NAME."
114 PRINT : PRINT " PROGRAM WILL HOLD 130 ENTRIES.": PRINT : PRINT
120 PRINT : PRINT "HIT SPACE TO START. ";: GET I$
130 GOTO 900
160 RESTORE
200 REM >> READ DATA <<
202 CV = PEEK(37): VTAB 1: PRINT " :: READING DATA ::"
210 READ N$:N = (( PEEK(125) +( PEEK(126)) *256) - LEN(N$))
212 READ A$:A = (( PEEK(125) +( PEEK(126)) *256) - LEN(N$))
214 READ CS$:CS = (( PEEK(125) +( PEEK(126)) *256) - LEN(CS$))
216 READ T$:T = (( PEEK(125) +( PEEK(126)) *256) - LEN(T$))
218 RN = PEEK(123) + PEEK(124) *256
220 REM N$=NAME, N=ADDRESS OF NAME
222 REM A$=ADDRESS, A=ADDRESS OF ADDRESS
224 REM CS$=CITY/STATA, CS=ADDRESS OF CITY/STATE
226 REM T$=TELEPHONE, T=ADDRESS OF TELEPHONE
230 VTAB 1: PRINT " "
240 POKE 37,CV: RETURN
300 REM >> PRINT DATA <<
302 PRINT
310 PRINT N$;" ";: INVERSE : PRINT " # ";RN: NORMAL
312 PRINT A$
314 PRINT CS$
316 PRINT T$
320 L = L +6
322 IF L <20 THEN GOTO 360
330 PRINT : PRINT "PRESS SPACE FOR NEXT LINE, ESC FOR MENU";: GET I$: PRINT I$:L = 0
340 IF I$ = CHR$(27) THEN GOTO 900
350 HOME
360 RETURN
400 REM >> PRINT DATA FOR CHANGE <<
410 HOME : PRINT "ENTER CHANGE UNDER DATA TO BE CHANGED.": PRINT "PRESS RETURN IF THAT DATA IS NOT TO ": PRINT "BE CHANGED."
420 VTAB 5: PRINT "NAME:"; TAB( 12);N$
430 VTAB 6: PRINT TAB( 12);: FOR I = 1 TO LEN(N$): PRINT CHR$(95);: NEXT : PRINT
440 VTAB 8: PRINT "ADDRESS:"; TAB( 12);A$
442 VTAB 9: PRINT TAB( 12);: FOR I = 1 TO LEN(A$): PRINT CHR$(95);: NEXT : PRINT
444 VTAB 11: PRINT "CITY/STATE:"; TAB( 12);CS$
446 VTAB 12: PRINT TAB( 12);: FOR I = 1 TO LEN(CS$): PRINT CHR$(95);: NEXT : PRINT
448 VTAB 14: PRINT "TELEPHONE:"; TAB( 12);T$
450 VTAB 15: PRINT TAB( 12);: FOR I = 1 TO LEN(T$): PRINT CHR$(95);: NEXT : PRINT
460 VTAB 6: HTAB 12: INPUT "";C$: IF C$ = "" THEN 470
462 IF LEN(C$) < LEN(N$) THEN FOR I = 1 TO ( LEN(N$) - LEN(C$)):C$ = C$ +" ": NEXT
464 NN = N: GOSUB 3000
470 VTAB 9: HTAB 12: INPUT "";C$: IF C$ = "" THEN 480
472 IF LEN(C$) < LEN(A$) THEN FOR I = 1 TO ( LEN(A$) - LEN(C$)):C$ = C$ +" ": NEXT
474 NN = A: GOSUB 3000
480 VTAB 12: HTAB 12: INPUT "";C$: IF C$ = "" THEN 490
482 IF LEN(C$) < LEN(CS$) THEN FOR I = 1 TO ( LEN(CS$) - LEN(C$)):C$ = C$ +" ": NEXT
484 NN = CS: GOSUB 3000
490 VTAB 15: HTAB 12: INPUT "";C$: IF C$ = "" THEN 500
492 IF LEN(C$) < LEN(T$) THEN FOR I = 1 TO ( LEN(T$) - LEN(C$)):C$ = C$ +" ": NEXT
494 NN = T: GOSUB 3000
496 S$ = "Y"
500 RETURN
502 END
510 REM >> DELETE DATA <<
512 RESTORE : HOME : PRINT : PRINT : INPUT "ENTER DATA NUMBER TO BE DELETED: ";RN$: PRINT : PRINT
514 GOSUB 200: IF RN < VAL(RN$) THEN 514
516 IF RN > VAL(RN$) THEN 800
518 L = 0: GOSUB 300
520 PRINT : INPUT "IS THIS DATA TO BE DELETED Y/N? ";RN$: IF RN$ < >"Y" THEN 900
522 C$ = LEFT$(UL$,25):NN = N: GOSUB 3000
524 NN = A: GOSUB 3000
526 NN = CS: GOSUB 3000
528 C$ = LEFT$(UL$,20):NN = T: GOSUB 3000
530 S$ = "Y"
532 GOTO 900
600 REM >> FIND DATA <<
610 HOME : VTAB 8: PRINT "1. FIND BY NAME (FIRST OR FIRST & LAST)"
620 PRINT "2. FIND BY ADDRESS": PRINT
630 PRINT "3. FIND BY CITY OR CITY & STATE": PRINT
640 PRINT "4. FIND BY TELEPHONE NUMBER": PRINT
650 PRINT "? ";: GET C$: PRINT C$
660 ON VAL(C$) GOTO 700,720,740,760
670 GOTO 610
700 REM >> FIND BY NAME <<
702 HOME : VTAB 10: INPUT "NAME ? ";NN$
703 L = 2: PRINT
704 GOSUB 200
706 IF LEFT$(N$,5) = "_____" THEN 704
707 IF LEFT$(N$,3) = "END" THEN 800
710 IF LEFT$(N$,( LEN(NN$))) < >NN$ THEN 704
712 GOSUB 300
714 GOTO 704
720 REM >> FIND BY ADDRESS <<
722 HOME : VTAB 10: INPUT "ADDRESS ? ";NN$
723 L = 2: PRINT
724 GOSUB 200
726 IF LEFT$(N$,5) = "_____" THEN 724
727 IF LEFT$(N$,3) = "END" THEN 800
730 IF LEFT$(A$,( LEN(NN$))) < >NN$ THEN 724
732 GOSUB 300
734 GOTO 724
740 REM >> FIND BY CITY/STATE <<
742 HOME : VTAB 10: INPUT "CITY OR CITY & STATE ? ";NN$
743 L = 2: PRINT
744 GOSUB 200
746 IF LEFT$(N$,5) = "_____" THEN 744
747 IF LEFT$(N$,3) = "END" THEN 800
750 IF LEFT$(CS$,( LEN(NN$))) < >NN$ THEN 744
752 GOSUB 300
754 GOTO 744
760 REM >> FINE BY PHONE <<
762 HOME : VTAB 10: INPUT "TELEPHONE ? ";NN$
763 L = 2: PRINT
764 GOSUB 200
766 IF LEFT$(N$,5) = "_____" THEN 764
767 IF LEFT$(N$,3) = "END" THEN 800
770 IF LEFT$(T$,( LEN(NN$))) < >NN$ THEN 764
772 GOSUB 300
774 GOTO 744
800 PRINT : PRINT "END OF DATA. PRESS ANY KEY FOR MENU. ";: GET NN$
810 GOTO 900
900 REM >> MENU <<
910 RESTORE : HOME : PRINT " A D D R E S S L I S T": VTAB 5
920 PRINT "1. PRINT ALL."
930 PRINT : PRINT "2. CHANGE DATA."
932 PRINT : PRINT "3. ADD DATA."
940 PRINT : PRINT "4. FIND DATA."
942 PRINT : PRINT "5. DELETE DATA."
946 PRINT : PRINT "6. END."
950 PRINT : PRINT "? ";: GET C$: PRINT C$
960 ON VAL(C$) GOTO 1000,2000,2100,600,510,980
970 GOTO 900
980 POKE 216,0: IF S$ < >"Y" THEN 990
984 IF DOS THEN PRINT : PRINT "FILE BEING SAVED.....": PRINT D$;"SAVE ";PG$: GOTO 990
986 PRINT : PRINT "TO SAVE THE NEW DATA YOU WILL NEED TO SAVE THIS PROGRAM TO TAPE."
990 PRINT : PRINT " B Y E": TEXT : END
1000 HOME :N = 0: RESTORE :L = 0
1010 GOSUB 200
1020 IF LEFT$(N$,5) = "_____" THEN 1010
1022 IF LEFT$(N$,3) = "END" THEN 1100
1030 GOSUB 300
1040 N = N +1
1050 GOTO 1010
1100 VTAB 23: PRINT "END OF FILE. PRESS SPACE FOR MENU. ";: GET C$: PRINT C$
1110 GOTO 900
2000 REM >> CHANGE DATA <<
2010 HOME : VTAB 5
2012 PRINT "ENTER NUMBER OF THE DATA TO BE CHANGED."
2014 PRINT : INPUT "NUMBER? ";DN
2016 IF DN >61300 THEN 2070
2020 RESTORE
2030 GOSUB 200
2032 IF N$ = "END" THEN GOTO 2070
2040 IF DN >RN THEN GOTO 2030
2042 IF DN ";
2080 GET NN$: PRINT NN$: GOTO 900
2100 REM >> ADD DATA STATEMENTS <<
2110 GOSUB 200
2120 IF LEFT$(N$,5) < >"_____" THEN GOTO 2110
2122 HOME
2130 VTAB 5: PRINT "NAME:"; TAB( 12);N$
2140 VTAB 8: PRINT "ADDRESS:"; TAB( 12);A$
2150 VTAB 11: PRINT "CITY/STATE:"; TAB( 12);CS$
2160 VTAB 14: PRINT "TELEPHONE:"; TAB( 12);T$
2170 VTAB 5: HTAB 12: INPUT "";C$: IF C$ = "" THEN 2200
2180 IF LEN(C$) < LEN(N$) THEN FOR I = 1 TO ( LEN(N$) - LEN(C$)):C$ = C$ +" ": NEXT
2190 NN = N: GOSUB 3000
2200 VTAB 8: HTAB 12: INPUT "";C$: IF C$ = "" THEN 2230
2210 IF LEN(C$) < LEN(A$) THEN FOR I = 1 TO ( LEN(A$) - LEN(C$)):C$ = C$ +" ": NEXT
2220 NN = A: GOSUB 3000
2230 VTAB 11: HTAB 12: INPUT "";C$: IF C$ = "" THEN 2260
2240 IF LEN(C$) < LEN(CS$) THEN FOR I = 1 TO ( LEN(CS$) - LEN(C$)):C$ = C$ +" ": NEXT
2250 NN = CS: GOSUB 3000
2260 VTAB 14: HTAB 12: INPUT "";C$: IF C$ = "" THEN 2290
2270 IF LEN(C$) < LEN(T$) THEN FOR I = 1 TO ( LEN(T$) - LEN(C$)):C$ = C$ +" ": NEXT
2280 NN = T: GOSUB 3000
2290 S$ = "Y": GOTO 900
3000 REM >> CHANGE DATA STATEMENT <<
3010 FOR I = 1 TO LEN(C$)
3020 POKE (NN +I -1), ASC( MID$ (C$,I,I))
3030 NEXT
3040 RETURN
60000 DATA JOHNNY GRAHAM ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453
60010 DATA SARA GRAHAM ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453
60020 DATA SNOOPY DOG ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453
60030 DATA JOHN DOE ,405 DALLAS ST. ,DALLAS TX ,122-222-4567
60040 DATA GREG GRAHAM ,2014 BAMBOO ,MESQUITE TEX ,214 279-7453
60050 DATA _________________________,_________________________,_________________________,____________________
60060 DATA _________________________,_________________________,_________________________,____________________
60070 DATA _________________________,_________________________,_________________________,____________________
60080 DATA _________________________,_________________________,_________________________,____________________
60090 DATA _________________________,_________________________,_________________________,____________________
60100 DATA _________________________,_________________________,_________________________,____________________
60110 DATA _________________________,_________________________,_________________________,____________________
60120 DATA _________________________,_________________________,_________________________,____________________
60130 DATA _________________________,_________________________,_________________________,____________________
60140 DATA _________________________,_________________________,_________________________,____________________
60150 DATA _________________________,_________________________,_________________________,____________________
60160 DATA _________________________,_________________________,_________________________,____________________
60170 DATA _________________________,_________________________,_________________________,____________________
60180 DATA _________________________,_________________________,_________________________,____________________
60190 DATA _________________________,_________________________,_________________________,____________________
60200 DATA _________________________,_________________________,_________________________,____________________
60210 DATA _________________________,_________________________,_________________________,____________________
60220 DATA _________________________,_________________________,_________________________,____________________
60230 DATA _________________________,_________________________,_________________________,____________________
60240 DATA _________________________,_________________________,_________________________,____________________
60250 DATA _________________________,_________________________,_________________________,____________________
60260 DATA _________________________,_________________________,_________________________,____________________
60270 DATA _________________________,_________________________,_________________________,____________________
60280 DATA _________________________,_________________________,_________________________,____________________
60290 DATA _________________________,_________________________,_________________________,____________________
60300 DATA _________________________,_________________________,_________________________,____________________
60310 DATA _________________________,_________________________,_________________________,____________________
60320 DATA _________________________,_________________________,_________________________,____________________
60330 DATA _________________________,_________________________,_________________________,____________________
60340 DATA _________________________,_________________________,_________________________,____________________
60350 DATA _________________________,_________________________,_________________________,____________________
60360 DATA _________________________,_________________________,_________________________,____________________
60370 DATA _________________________,_________________________,_________________________,____________________
60380 DATA _________________________,_________________________,_________________________,____________________
60390 DATA _________________________,_________________________,_________________________,____________________
60400 DATA _________________________,_________________________,_________________________,____________________
60410 DATA _________________________,_________________________,_________________________,____________________
60420 DATA _________________________,_________________________,_________________________,____________________
60430 DATA _________________________,_________________________,_________________________,____________________
60440 DATA _________________________,_________________________,_________________________,____________________
60450 DATA _________________________,_________________________,_________________________,____________________
60460 DATA _________________________,_________________________,_________________________,____________________
60470 DATA _________________________,_________________________,_________________________,____________________
60480 DATA _________________________,_________________________,_________________________,____________________
60490 DATA _________________________,_________________________,_________________________,____________________
60500 DATA _________________________,_________________________,_________________________,____________________
60510 DATA _________________________,_________________________,_________________________,____________________
60520 DATA _________________________,_________________________,_________________________,____________________
60530 DATA _________________________,_________________________,_________________________,____________________
60540 DATA _________________________,_________________________,_________________________,____________________
60550 DATA _________________________,_________________________,_________________________,____________________
60560 DATA _________________________,_________________________,_________________________,____________________
60570 DATA _________________________,_________________________,_________________________,____________________
60580 DATA _________________________,_________________________,_________________________,____________________
60590 DATA _________________________,_________________________,_________________________,____________________
60600 DATA _________________________,_________________________,_________________________,____________________
60610 DATA _________________________,_________________________,_________________________,____________________
60620 DATA _________________________,_________________________,_________________________,____________________
60630 DATA _________________________,_________________________,_________________________,____________________
60640 DATA _________________________,_________________________,_________________________,____________________
60650 DATA _________________________,_________________________,_________________________,____________________
60660 DATA _________________________,_________________________,_________________________,____________________
60670 DATA _________________________,_________________________,_________________________,____________________
60680 DATA _________________________,_________________________,_________________________,____________________
60690 DATA _________________________,_________________________,_________________________,____________________
60700 DATA _________________________,_________________________,_________________________,____________________
60710 DATA _________________________,_________________________,_________________________,____________________
60720 DATA _________________________,_________________________,_________________________,____________________
60730 DATA _________________________,_________________________,_________________________,____________________
60740 DATA _________________________,_________________________,_________________________,____________________
60750 DATA _________________________,_________________________,_________________________,____________________
60760 DATA _________________________,_________________________,_________________________,____________________
60770 DATA _________________________,_________________________,_________________________,____________________
60780 DATA _________________________,_________________________,_________________________,____________________
60790 DATA _________________________,_________________________,_________________________,____________________
60800 DATA _________________________,_________________________,_________________________,____________________
60810 DATA _________________________,_________________________,_________________________,____________________
60820 DATA _________________________,_________________________,_________________________,____________________
60830 DATA _________________________,_________________________,_________________________,____________________
60840 DATA _________________________,_________________________,_________________________,____________________
60850 DATA _________________________,_________________________,_________________________,____________________
60860 DATA _________________________,_________________________,_________________________,____________________
60870 DATA _________________________,_________________________,_________________________,____________________
60880 DATA _________________________,_________________________,_________________________,____________________
60890 DATA _________________________,_________________________,_________________________,____________________
60900 DATA _________________________,_________________________,_________________________,____________________
60910 DATA _________________________,_________________________,_________________________,____________________
60920 DATA _________________________,_________________________,_________________________,____________________
60930 DATA _________________________,_________________________,_________________________,____________________
60940 DATA _________________________,_________________________,_________________________,____________________
60950 DATA _________________________,_________________________,_________________________,____________________
60960 DATA _________________________,_________________________,_________________________,____________________
60970 DATA _________________________,_________________________,_________________________,____________________
60980 DATA _________________________,_________________________,_________________________,____________________
60990 DATA _________________________,_________________________,_________________________,____________________
61000 DATA _________________________,_________________________,_________________________,____________________
61010 DATA _________________________,_________________________,_________________________,____________________
61020 DATA _________________________,_________________________,_________________________,____________________
61030 DATA _________________________,_________________________,_________________________,____________________
61040 DATA _________________________,_________________________,_________________________,____________________
61050 DATA _________________________,_________________________,_________________________,____________________
61060 DATA _________________________,_________________________,_________________________,____________________
61070 DATA _________________________,_________________________,_________________________,____________________
61080 DATA _________________________,___]_____________________,_________________________,____________________
61090 DATA _________________________,_________________________,_________________________,____________________
61100 DATA _________________________,_________________________,_________________________,____________________
61110 DATA _________________________,_________________________,_________________________,____________________
61120 DATA _________________________,_________________________,_________________________,____________________
61130 DATA _________________________,_________________________,_________________________,____________________
61140 DATA _________________________,_________________________,_________________________,____________________
61150 DATA _________________________,_________________________,_________________________,____________________
61160 DATA _________________________,_________________________,_________________________,____________________
61170 DATA _________________________,_________________________,_________________________,____________________
61180 DATA _________________________,_________________________,_________________________,____________________
61190 DATA _________________________,_________________________,_________________________,____________________
61200 DATA _________________________,_________________________,_________________________,____________________
61210 DATA _________________________,_________________________,_________________________,____________________
61220 DATA _________________________,_________________________,_________________________,____________________
61230 DATA _________________________,_________________________,_________________________,____________________
61240 DATA _________________________,_________________________,_________________________,____________________
61250 DATA _________________________,_________________________,_________________________,____________________
61260 DATA _________________________,_________________________,_________________________,____________________
61270 DATA _________________________,_________________________,_________________________,____________________
61280 DATA _________________________,_________________________,_________________________,____________________
61290 DATA _________________________,_________________________,_________________________,____________________
61300 DATA _________________________,_________________________,_________________________,____________________
61900 DATA END,END,END,END,END

Text found in Volume_027_Home_and_Personal.dsk/ADDRESS LIST.bas:

1 REM *************************
2 REM * PHONE DIRECTORY III *
3 REM * *
4 REM * BY: JOHNNY GRAHAM *
5 REM *************************
10 HOME :E = 0: GOSUB 810
20 PRINT TAB( 11);"PHONE DIRECTORY"
82 PRINT TAB( 11);">> SELECT ONE <<": GOSUB 810
83 PRINT : PRINT "1 LOOK UP BY FIRST OR FULL NAME.": PRINT : PRINT "2 LOOK UP BY LAST NAME.": PRINT
84 PRINT "3 LOOK UP BY HAM CALL.": PRINT
85 PRINT "4 TO ADD OR CHANGE AN ENTRY."
86 PRINT : PRINT "5 TO LIST ENTRIES."
87 PRINT : PRINT "6 TO LIST STORES."
88 PRINT : PRINT "7 TO LIST APPLE CORPS."
89 PRINT : PRINT "8 TO LIST 'MARCS'.": PRINT : PRINT "9 TO END PROGRAM."
90 PRINT : GET M$: IF M$ = "1" THEN 400
91 IF M$ = "2" THEN 500
92 IF M$ = "3" THEN 600
93 IF M$ = "4" THEN 700
94 IF M$ = "5" THEN 900
95 IF M$ = "6" THEN 350
96 IF M$ = "7" THEN 450
97 IF M$ = "8" THEN 650
99 IF M$ = "9" THEN 998
100 GOTO 90
120 READ A$,N$,B$,C$,D$,E$
121 E = E +1
122 RETURN
140 REM PRINT LINE
145 PRINT : PRINT N$;", ";D$
150 X = LEN(B$): PRINT TAB( 39 -X);B$
160 IF C$ = "*" GOTO 180
170 X = LEN(C$): PRINT TAB( 39 -X);C$
180 PRINT TAB( 5);"# ";( PEEK(123)) +(( PEEK(124)) *256);: IF E$ < >"*" THEN PRINT TAB( 39 - LEN(E$));E$: GOTO 191
181 PRINT
191 GOSUB 300
192 L = L +6: IF L <16 THEN RETURN
193 GOSUB 300
194 VTAB 23: PRINT "PRESS M FOR MENU, SPACE FOR NEXT PAGE.";: GET R$: IF R$ = "M" THEN RESTORE : GOTO 10
196 GOSUB 800
198 RETURN
200 REM RESTORE
220 RESTORE :A$ = "1000"
230 PRINT "+++++ END OF SEARCH. ";E -1;" ENTRIES. +++++":E = 0
231 VTAB 23
232 PRINT "PRESS M FOR MENU, SPACE FOR NEXT SEARCH";: GET M$: IF M$ = "M" THEN POP : GOTO 10
240 RETURN
300 FOR I = 1 TO 39: PRINT ".";: NEXT I: PRINT : RETURN
350 REM STORE LIST
352 M$ = "STORE": GOSUB 800
354 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 350
355 FOR FD = 1 TO LEN(A$)
356 IF MID$ (A$,FD,1) = "S" THEN 360
358 NEXT FD: GOTO 354
360 GOSUB 140: GOTO 354
400 HOME : GOSUB 810: PRINT : PRINT " ENTER FIRST OR FULL NAME.": PRINT : GOSUB 810: PRINT : INPUT M$
410 GOSUB 800
420 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 400
430 IF M$ = LEFT$(N$, LEN(M$)) THEN GOSUB 140
440 GOTO 420
450 REM APPLE CORPS LIST
452 M$ = "APPLE CORPS": GOSUB 800
454 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 450
455 FOR FD = 1 TO LEN(A$)
456 IF MID$ (A$,FD,1) = "A" THEN 460
458 NEXT FD: GOTO 454
460 GOSUB 140: GOTO 454
500 HOME : GOSUB 810: PRINT : PRINT " ENTER LAST NAME.": PRINT : GOSUB 810: PRINT : INPUT M$
510 GOSUB 800
520 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 500
530 IF M$ = RIGHT$(N$, LEN(M$)) THEN GOSUB 140
540 GOTO 520
600 HOME : GOSUB 810: PRINT : PRINT " ENTER CALL (ALL OR LAST LETTERS)"
602 PRINT : GOSUB 810
604 PRINT : HTAB 16: INPUT M$
610 GOSUB 800
620 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 600
630 IF M$ = RIGHT$(E$, LEN(M$)) THEN GOSUB 140
640 GOTO 620
650 REM LIST MARCS
652 M$ = "MICRO USERS"
660 GOSUB 800
662 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 650
663 FOR FD = 1 TO LEN(A$)
664 IF MID$ (A$,FD,1) = "M" THEN 668
665 NEXT FD
666 IF LEFT$(E$,1) < >"+" THEN 662
668 GOSUB 140
670 GOTO 662
700 HOME : GOSUB 810: PRINT : PRINT "CHANGES OR ADDS MADE BY DATA STATEMENTS"
701 PRINT : GOSUB 300
702 PRINT : PRINT "1 TO ADD AN ENTRY.": PRINT : PRINT "2 TO CHANGE AN ENTRY.": PRINT
703 GOSUB 810: PRINT
704 GET I$: IF I$ = "2" THEN P = 1: GOTO 740
705 P = 0
706 IF I$ < >"1" THEN 700
708 N = 1000
710 GOSUB 120: IF A$ = "END" THEN 714
711 M = ( PEEK(123)) +(( PEEK(124)) *256)
712 IF N +2 ( PEEK(123)) +( PEEK(124) *256) THEN 744
746 IF M <( PEEK(123)) +( PEEK(124) *256) THEN PRINT : PRINT " **** ";M$;" ENTRY NOT FOUND ****": PRINT : GOSUB 200: GOTO 700
749 HOME : VTAB 1: PRINT "ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.": GOTO 752
750 HOME : VTAB 1: PRINT "ENTER DATA OR RETURN FOR THE FOLLOWING."
752 VTAB 4: PRINT "NAME : ";N$
754 VTAB 6: PRINT "ADDRESS : ";B$
756 VTAB 8: PRINT "CITY / STATE : ";C$
758 VTAB 10: PRINT "PHONE # : ";D$
760 VTAB 12: PRINT "CALL : : ";E$
761 VTAB 14: PRINT "LOOK UP CODE : ";A$: GOSUB 720
762 VTAB 4 +P: HTAB 16: INPUT X$
764 IF X$ < >"" THEN N$ = X$
766 VTAB 6 +P: HTAB 16: INPUT X$
768 IF X$ < >"" THEN B$ = X$
770 VTAB 8 +P: HTAB 16: INPUT X$
772 IF X$ < >"" THEN C$ = X$
774 VTAB 10 +P: HTAB 16: INPUT X$
776 IF X$ < >"" THEN D$ = X$
778 VTAB 12 +P: HTAB 16: INPUT X$
780 IF X$ < >"" THEN E$ = X$
782 VTAB 14 +P: HTAB 16: INPUT X$
784 IF X$ < >"" THEN A$ = X$
795 VTAB 18: PRINT " ";M;" DATA ";A$;",";N$;",";B$;",";C$;",";D$;",";E$
796 POKE 1023,1
798 VTAB 22: PRINT "COPY OVER THE DATA STATEMENT, THEN RUN.": VTAB 17: END
800 HOME : GOSUB 810: PRINT " SEARCH FOR >> ";M$;" <<":L = 1: GOSUB 810: RETURN
810 FOR I = 1 TO 39: PRINT "-";: NEXT I: PRINT : RETURN
900 REM LIST ALL ENTRIES
950 M$ = "ALL"
960 GOSUB 800
970 GOSUB 120: IF A$ = "END" THEN GOSUB 200: GOTO 900
980 GOSUB 140
990 GOTO 970
998 HOME : IF PEEK(1023) = 1 THEN VTAB 10: PRINT " DATA BEING SAVED...": PRINT "SAVE ADDRESS LIST"
999 POKE 1023,0: PRINT : PRINT "RUN HELLO"
1000 REM DATA STATEMENTS
1002 DATA A,ROBERT F. ZANT,906 LYNHURST,DENTON TX 76201,H 817/382-6353 B 788-2311,
1004 DATA A,DAVID H. HARLOWE,8567 SOUTHWESTERN BLVD. #2226,DALLAS TX 75206,H/369-5022 B/651-5528,
1006 DATA A,ROBERT D. BOWSER,1029 FORESTGROVE,DALLAS TX 75218,H/327-3274 B/350-8821,
1008 DATA A,DAVE KNIGHT,5746 ENSIGN DR.,FT. WORTH TX 76119,H/478-9356,
1010 DATA A,BART GRAHAM,2014 BAMBOO,MESQUITE TX 75150,279-7453,
1012 DATA A,JIM J. MAYS,3651 MID PINES DR.,DALLAS TX 75229,H/357-5904 B/357-1555,
1014 DATA A,EDWARD KUEMIERZ,1405 HOMESTEAD,GARLAND TX 75042,H/495-8596,
1016 DATA A,BOBBIE FERRELL,13551 CHALLABURTON,DALLAS TX 75234,H/243-6347 B/661-1211,
1018 DATA A,DAVID LEMONS,1900 SAM BASS APT. H-6,DENTON TX 76201,382-1792,
1020 DATA AM,JOHNNY GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,H/279-7453 B/634-4463,WB5TRY
1022 DATA A,ROD LEHMAN,7185 KENDALLWOOD,DALLAS TX 75240,H/239-2966,
1024 DATA A,THOMAS ROELKE,6814 PRESTONSHIRE,DALLAS TX 75251,H/369-9449,
1026 DATA A,DAVID BOCK,5210 ROYAL CREST DR.,DALLAS TX 75229,H/363-1117 B/742-4411,
1028 DATA A,CURTIS IRWIN,1505 MEADOWVIEW DR,RICHARDSON TX 75080,H/238-9547 B/748-8511,
1030 DATA *,SARA GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,279-7453,WB5UJU
1032 DATA A,HOWARD L. STROKES,2913 WHITEMARSH CIRCLE,RICHARDSON TX 75080,H/235-2227 B/690-0847,
1034 DATA A,RUDI OTTO,2111 COLUMBIAN CL DR.,CARROLLTON TX 75006,H/242-4956 B/369-0181,
1036 DATA A,CID NEWBERRY,3206 KNIGHTS HAVEN LN,GARLAND TX 75042,H/495-5493 B/634-4230,
1038 DATA A,????? G. FRANK,1814 VILLANOVA,RICHARDSON TX 75081,H/234-5600,
1040 DATA *,PETE ALLAN,2115 BAMBOO,MESQUITE 75150,H-279-9419,K5PD
1042 DATA A,MITCH MAYBORN,4703 W. LOVERS LN,DALLAS TX 75209,H/351-1263 B/358-3456,
1044 DATA A,DON RAY WILLIAMS,7830 GLENNEAGLE DR,DALLAS TX 75248,H/661-0415 B/661-6469,
1046 DATA A,BOB MONAGHAN,PO BOX 2182 SMU,DALLAS TX 75275,B/692-2749,W5VC
1048 DATA A,MICHAEL SANTOVEC,3747 BROOKHAVEN CLUB DR #449,DALLAS TX 75234,H/247-6991,
1050 DATA A*R,GREG GRAHAM,2014 BAMBOO,MESQUITE TX 75150,H-279-7453,WB5WGA
1052 DATA A,DR. ANTHONY E. STEPHENS,AUSTIN COLLEGE,SHERMAN TX 75090,H/214/892-4966 B/892-9101,
1054 DATA A,PATRICIA & JOE ENTESARI,4004 RIDGLEA C/C DR. #203,FT. WORTH TX 76126,H/738-0118 B/266-4372,
1056 DATA A,ROBERT D. WHITTINGTON,7373 VALLEY VIEW LN #1014,DALLAS TX 75240,H/233-4504 B/243-6721,
1058 DATA A,PAUL E ATKINSON,14223 CORAL HARBOVR CIR.,DALLAS TX 75234,H/241-4696 B/631-5560,
1060 DATA *M,ROBERT W. FLATT,2610 PROVINCE LANE,DALLAS 75228,328-5510,*
1062 DATA A,FRANK A ST.CLAIRE,12123 SHIREMONT,DALLAS TX 75230,H/233-9639 B/651-1645,
1064 DATA A,CAROL GLITSCH BURNETT,3525 PRINCETON,DALLAS TX 75205,H/522-6790,
1066 DATA A,DR. J.H. NICHOLSON II,9230 CORAL COVE DRIVE,DALLAS TX 75231,H/341-3681 B/327-4375,
1068 DATA A,JOHN BRODERICK,8635 SHAGROCK,DALLAS TX 75238,H/341-8567 B/341-1635,
1070 DATA *M,JOHN DASHNER,11621 DENNIS RD. APT.103,DALLAS 75229,243-2427,WA4CYB
1072 DATA A,RAY M. THOMPSON,1206 CHEROKEE PLACE,RICHARDSON TX 75080,H/231-0765 B/996-6337,W5OUS
1074 DATA A,TOM BONFIELD,7411 CARTA VALLEY DR.,DALLAS TX 75248,H/661-9530 B/573-2313,
1076 DATA A,N.C. DEALEY,3000 HOOD ST.,DALLAS TX 75219,H/528-8909 B/SAME,
1078 DATA A,BOB SANDER-CEDERLOF,2519 KLONDIKE,DALLAS TX 75228,H/327-3444 B/238-5051,
1080 DATA *M,SKIP BYNUM,6219 MARTEL,DALLAS 75214,821-4933,WD5AAZ
1082 DATA A,MIKE LAUMER,1832 SCHOOL RD.,CARROLLTON TX 75006,H/245-3927,
1084 DATA A,R.R. REMBER M.D.,4254 SHORECREST DR,DALLAS TX 75209,H/357-9708 B/689-2833,W5GIT
1086 DATA A,JIM & DONNA HOLLOWAY,2419 WINTHROP,DALLAS TX 75228,H/328-1217 B/996-5952,
1088 DATA A,BOB R. PEEPLES,1604 DRAKE DR.,RICHARDSON TX 75081,H/690-4667 B/241-5182,
1090 DATA *M,RANDY NORTHCUTT,BOX 254,ROXTON 75477,742-8438,WB5ABG
1092 DATA A,JACK P. MORGAN,P.O. BOX 35887,DALLAS TX 75235,H/351-6261 B/358-2431,W5LQR
1094 DATA A,EARL BORN,4326 PINERIDGE DR,GARLAND TX 75042,H/276-2716 B/387-2755,
1096 DATA A,BOB MATZINGER,P.O. BOX 13446,ARLINGTON TX 76013,H/817/275-2910 B/2665-8122,
1098 DATA A,JOHN L. SNIDER,5001 BOWSER #116,DALLAS TX 75209,H/528-8689,
1100 DATA *M,PAUL EVANS,340 WILLOW WOOD DR.,PLANO 75074,424-8365,K5AT
1102 DATA A,HAROLD WESTERHEIM,1905 WEST WAY,GARLAND TX 75042,H/276-4730 B/276-8382,
1104 DATA A,KENT A. KOEHLER,3110 TEAKWOOD DR,GARLAND TX 75042,H/495-1757 B/658-2971,
1106 DATA A,TOMMY R. RODGERS,6631 ROUND ROCK RD,DALLAS TX 75248,H/233-2920 B/748-9421,
1108 DATA A,WILLIAM P. SMITH,2032 HAYMEADOW,CARROLLION TX 75006,H/242-4308 B/238-5065,
1110 DATA 1110,EDDIE HILL,1704 WESTLAKE,PLANO 75075,423-6300,+ WD5CVD
1112 DATA A,WALTER T. MCKAY JR,1428 CROSS BEND RD,PLANO TX 75023,H/423-7925 B/423-8323,W5SFP
1114 DATA A,B.C. HUNSUCKER,600 TRACY,GREENVILLE TX 75401,H/455-1863 B/455-4220,
1116 DATA A,SCOTT MIDDLETON,BOX 841,CORSICANA TX 75110,H/214/872-2481,
1118 DATA A,OTTO WETZEL,3311 BEVERLY DR.,DALLAS TX 75205,H/321-7515 B/742-7201,
1120 DATA 1120,HOWARD CUNNINGHAM,5759 PINELAND APT.1076,DALLAS,369-0480,+ WD5DBC
1122 DATA A,JAMES & ANNE CHASTAIN,130 OAKRIDGE,LEWISVILLE TX 75067,H/436-5460,
1124 DATA A,CRAIG LARSEN,4 GREEN VIEW CIR.,RICHARDSON TX 75081,H/231-7350,
1126 DATA A,SAM B. MARCUS,2355 STEMMONS FRWY #907,DALLAS TX 75204,H/361-1155 B/637-6700,
1128 DATA A,C. COLLINS PIPPIN,2111 JUANITA DR,ARLINGTON TX 76013,H/265-3825 B/265-1351,
1130 DATA 1130,GARY TURNER,2601 ARROYO #328,DALLAS 75219,522-4524,+ WD5DRI
1132 DATA A,JOHN M. SKINNER,2728 WELBORN #236,DALLAS TX 75219,H/526-7538 B/363-2223,
1134 DATA A,STEVE MARRERO,1302 N SHILOH RD #152,GARLAND TX 75042,H/272-4906 B/234-5956,
1136 DATA A,NORMA HORTON,RFD-3-BOX 92A,LEWISVILLE TX 75056,H/242-8079 B/386-2404,
1138 DATA A,DON SMALL,P.O. BOX 6992,TYLER TX 75711,H/593-6104 B/593-2100,
1140 DATA 1140,THOMAS HATCHER,P.O.BOX 943,FORNEY 75126,226-1387,+ WD5DTG
1142 DATA A,TERRY MUNCEY,PO BOX 1810,DALLAS TX 75221,B/387-2755,WB5OAS
1144 DATA A,JIM BOOTH,9475 FOREST SPRING #2102,DALLAS TX 75243,H/349-7462,
1146 DATA A,JIM ADKISSON JR,6301 CHAPMAN DR,GREENVILLE TX 75401,H/214/455-8867 B/455-6122,
1148 DATA A,SCOTT LONG,922 HERITAGE CIR.,GARLAND TX 75043,H/270-9167 B/238-5951,
1150 DATA 1150,BOB DUKE,13526 PYRAMID DRIVE,DALLAS 75234,241-2888,+ K5DZM
1200 DATA A,DAN DAVIS,3904 BOISE CT,IRVING TX 75062,H/255-9257 B/661-3390,
1154 DATA A,ALAN M. VILLIERS,5053 CEDAR SPRINGS #241,DALLAS TX 75235,H/526-1366 B/361-8608,
1156 DATA A,JILL P. DAVID,221 WOODCREST,RICHARDSON TX 75080,H/234-1420,
1158 DATA A,FRANCO ROBBA,905 ST. PAUL #212,RICHARDSON TX 75080,H/231-5432,
1160 DATA 1160,JAMES HALL,RT.1 BOX 826A,MESQUITE 75181,286-3052,+ WD5EUN
1162 DATA A,JIM HURST,128 TUDOR ST,PINEVILLE LA 71360,H/318/445-7753 B/445-8211,
1164 DATA A,CLIFTON M. HOWARD M.D.,58 VAN ORDEN RD,HARRINGTON PARK NJ 07640,H/201/768-9274 B/212/595-3600,
1166 DATA A,ABACUS,2850 JENNIFER DR,CASTRO VALLEY CA 94546,H/213/538-2431 B/581-2748,
1168 DATA A,VERNON LEMENS JR,5905 LOOKOUT MOUNTAIN DR,AUSTIN TX 78731,H/453-6032 B/476-2608,
1170 DATA 1170,DEANE PETERS,816 WENDSOR DR.,DENTON 76201,817-387-5905,+ KB5FA
1180 DATA 1180,CHUCK LEE,3122 PAMELA PL.,GARLAND 75042,495-3855,+ WB5FCD
1190 DATA 1190,TOM WALSTON,8826 GRAYWOOD,DALLAS 75243,341-0867,+ W5FPR
1200 DATA 1200,RALPH IMMEL,7514 OAK BLUFF,DALLAS 75240,239-1489,+ AD5G
1210 DATA 1210,RON ADAIR,5000 LA SALLE CIRCLE,ARLINGTON 76016,817-429-6949,+ K5HFT
1220 DATA 1220,RANDY OTT,710 WREN AVE.,DUNCANVILLE 75116,296-4815,+ K5HJ
1230 DATA 1230,JAMES TODD,3528 TOWNSEND,DALLAS 75229,361-1437,+ WA5HTT
1240 DATA 1240,BILL TRENT,438 HUGHES,IRVING 75062,252-4698,+ N5ID
1250 DATA 1250,TONY GIANDALIA,806 DEL LENORA #24,DUNCANVILLE 75116,298-2073,+ WD5IMT
1260 DATA 1260,JERRY RANDALL,1830 MARIPOSA,DALLAS 75228,328-9740,+ WB5ISM
1270 DATA 1270,FRED RAYMOND,710 CAMERON AVE.,DALLAS 75223,827-9208,+ WD5KBG
1280 DATA 1280,DENNIS RECLA,927 PATIO COURTS,GARLANDD 75043,270-1834,+ WA5KTC
1290 DATA 1290,HAL MILES,9504 LOMA VISTA,DALLAS 75243,341-4561,+ AD5L
1300 DATA 1300,TOM HART,3107 PEPPERTREE PL.,PLANO 75074,423-5536,+ WB5OHM
1310 DATA 1310,GEORGE BEAL,BOX 1872,GREENVILLE 75401,455-9178,+ W5OXL
1320 DATA 1320,GENE TOBABEN,306 WATSON DR BOX 366,ALLEN 75002,727-3474,+ W5RQC
1330 DATA 1330,JIM HUDSON,5507 RIDGETOWN CIR.,DALLAS 75230,661-5126,+ WB5RTY
1340 DATA 1340,DICK PIERCE,5731 BERKSHIRE LN.,DALLAS 75209,369-5561,+ W5RXJ
1350 DATA 1350,JAMES BENNINGFIELD,3949 DALGREEN,DALLAS 75214,827-7958,+ WB5RZJ
1360 DATA 1360,THEODORE BUELL,600 JOYCE DR.,GARLAND 75040,276-1493,+ WB5TBL
1370 DATA 1370,JIM CASON,910 ROAMING RD.,ALLEN 75002,727-5188,+ WB5UAS
1380 DATA 1380,SPARKY YOUNG,13656 LITTLECREST DR.,FARMERS BRANCH 75234,247-6414,+ W5VKH
1390 DATA 1390,JOHN HOLMES,725 LAGUNA,GARLAND 75043,271-1688,+ WA5WXA
1400 DATA 1400,MIKE EARLES,10616 GROVE OAKS,DALLAS 75217,286-1381,+ WA5YJQ
1410 DATA 1410,DAN YORK,2415 HILLGLEN,DALLAS 75228,327-5168,+ WB6QWB
1420 DATA 1420,KARL KANALZ,641 TIFFANY TR.,RICHARDSON 75081,238-0773,+ W8TIF
1430 DATA 1430,JIM SANDERS,9017 LARCHWOOD LN.,DALLAS,341-2883,AE5C
1440 DATA 1440,TOM ASCHENBRENNER,14720 CHERRY HILLS,FARMERS BRANCH,243-5068,WB5PUC
1450 DATA 1450,BILL CANTRELL,7642 LA SOBRINA,DALLAS,233-6507,WA5YPI
1460 DATA 14460,JIM SIMS,10412 VISTADALE,DALLAS,348-4623,R W5RYA
1470 DATA 1470,LARRY HERRING,2415 INWOOD RD.,DALLAS 75235,350-9279,W5VAL
1480 DATA 1480,HUGH SPRINGFIELD,2320 EVERGREEN,CARROLLTON 75006,242-5849,WA5NOA
1490 DATA 1490,GEORGE SHANKS,13816 BRAEMAR DR.,FARMERS BRANCH 75234,241-5090,WB5MAY
1500 DATA 1500,BOB COKER,5763 MARVIEW LN.,DALLAS 75227,388-3535,WA5ZNZ
1510 DATA 1510,TOM O'BRIEN,3178 BROOKHOLLOW,DALLAS 75234,241-5344,WB5LWB
1520 DATA A,JIM HAYNIE,3226 NEWCASTLE DR.,DALLAS 75220,H/352-6180 B/368-1766,WB5JBP
1530 DATA S,ELECTRONIC CTR,2929 N. HASKEL,DALLAS 75294,526-2023,*
1540 DATA S,J-T ELECTRONICS,14 JUPITER PL.117,PLANO 75054,424-0515,*
1550 DATA S,HARDIN ELECTRONICS,5635 E. ROSEDALE,FTWORTH,461-9767,*
1560 DATA S,AGL ELECTRONICS,3068 FOREST LANE SUITE 309,DALLAS 75234,241-6414,*
1570 DATA 1570,DON KIEFFER,438 LYNN ST,RICHARDSON 75080,235-3960,W5QXK
1580 DATA 1580,GRAHAM JONES,1020 SUMMIT CIR,CARROLLTON 75006,242-9110,W5VBF
1590 DATA 1590,AL HOLLOWAY,1712 BARDFIELD,GARLAND 75041,278-3883,WB5RKI
1600 DATA 1600,SAM TINER,1713 PAPEETE,PLANO 75075,596-8214,WB5TLT
1610 DATA 1610,JERRY DUNN,2713 MANOR DR.,GARLAND 75041,271-5720,WB5ULN
1620 DATA S,HEATHKIT,2715 ROSS AVE.,DALLAS,826-5043,*
1630 DATA S,TANNER ELECTORNICS,11423 HARRY HINES,DALLAS 75229,247-6728,*
1640 DATA S,K-W MANUFACTURING,P.O.BOX 508,PRAGUE OK. 74864,405-567-2285,*
1650 DATA 1650,DON ALFONSO,1711 AUBURN DR.,RICHARDSON 75081,238-8883,+ W6KCN
1660 DATA 1660,JIM BENNETT,732 PARKHURST DR.,DALLAS 75218,324-1651,+ N5ABZ
1670 DATA 1670,HERB BLAIR,4213 TYNES DR.,GARLAND 75041,494-6191,+ WA5YKO
1680 DATA 1680,WAYNE CAMP,2526 LIVENSHIRE,GARLAND 75042,278-3858,+ A5EQX
1690 DATA 1690,GARY CARIKER,313 E. HARVARD DR.,GARLAND 75041,271-1954,+ WA5QWQ
1700 DATA 1700,PHIL CLEMENTS,1313 APPLEGATE LN.,LEWISVILLE 75067,221-2222,+ K5PC
1710 DATA 1710,JIM COKER,5350 AMESBURY DR. #1913,DALLAS 75206,696-2326,+ WA5AMY
1720 DATA 1720,STEVE CORDER,800 GRUBB,MESQUITE 75149,288-7889,+ WB5LHL
1730 DATA 1730,JAMES COSBY,312 ISLAND DR.,RICHARDSON 75081,235-2255,+ WD5FYU
1740 DATA 1740,JIM COUNTS,1715 BROOKS DR.,ARLINGTON 75012,*,+
1750 DATA 1750,BILL DALLIN,984 PEAVY RD.,DALLAS 75218,321-2058,+ WB5YPS
1760 DATA 1760,LUKE DAVIS,1333 CEDAR KEYS,LEWISVILLE 75067,436-7409,+ KA5CXM
1770 DATA 1770,GLEN DEEN,629 WINCHESTER DR.,RICHARDSON 75081,235-4391,+ AG5L
1780 DATA 1780,BURTON DENMAN,1008 BLUE RIDGE PL.,RICHARDSON 75080,235-4359,+ W5YAK
1790 DATA 1790,JERRY DREWS,3705 WALTON AVE.,FT. WORTH 76133,817-292-5932,+ W5VDC
1800 DATA 1800,CLIFF ELSTON,2826 WASKOM ST.,DALLAS 75228,327-3757,+
1810 DATA 1810,ALLEN ERICKSON,13868 FAR HILLS LN.,DALLAS 75240,661-2293,+ WD5CGB
1820 DATA 1820,CURLY FIELDS,4116 MORGAN CIR.,FT.WORTH 76118,817-498-2785,+ W5SGX
1830 DATA 1830,PETE FISHER,7253 EDGERTON DR.,DALLAS 75231,341-1120,+ KA5CRT
1840 DATA 1840,RON FRANKLIN,6125 FORREST EDGE,FT. WORTH 76119,817-536-9467,+ WD5GIC
1850 DATA 1850,ERNEST GAW,3714 LEGENDARY #137,DALLAS 75224,357-7106,+ W5MXC
1860 DATA 1860,DOUG GIBSON,3616 WEEBURN,DALLAS 75229,357-2717,+ W5PD
1870 DATA 1870,PETE GOUDREAU,13555 KIT LN. APT.#138,DALLAS 75240,783-4982,+ WB5RKC
1880 DATA 1880,BILL GUNDERSON,BOX 1432,DALLAS 75221,526-1813,+ W5PSN
1890 DATA 1890,DAVID HASTINGS,651 FRANCINE DR.,IRVING 75060,*,+
1900 DATA 1900,STEVE HEIMS,249 SUNNYDALE DR.,HEWITT 76643,817-662-4583,+ WD4PAA
1910 DATA 1910,ALLEN JACOBSON,P.O. BOX 15,PARAMUS NJ. 07652,201-261-6800,+ WA2WSB
1920 DATA 1920,JOHN JOHNSON,RT.2 BOX 260,MCKINNEY 75069,442-1664,+ K5AXH
1930 DATA 1930,REX JONES,1604 WILLIAMSBURG,PLANO 75074,423-0407,+ WD5GIK
1940 DATA 1940,FRANK KAMP,907 DUMONT,RICHARDSON 75080,235-0610,K5DKZ
1950 DATA 1950,PAT KUYKENDALL,6529 SUMMIT RIDGE,WATAUGA 76148,817-485-2771,+ WB4SFY
1960 DATA 1960,HANK LEVINE,10617 MARSH LN.,DALLAS 75229,350-7181,+ K5VXM
1970 DATA 1970,BARRY MERRILL,10717 CROMWELL DR.,DALLAS 75229,351-1966,+ W5GN
1980 DATA 1980,BOB MONNAGHAN,SMU P.O.BOX 2182,DALLAS 75275,692-2749,+ W5VC
2000 DATA 2000,TIM OLMSTEAD,1623 ROSEMONT,MESQUITE 75149,288-0371,+ WB5PFJ
2010 DATA 2010,DON PORTCH,RT.2 BOX 212-E,MCKINNEY 75069,442-2149,+ WD5EWW
2030 DATA 2030,JOSE SANCHO,1000 SUMMIT CIR.,CARROLTON 75206,242-2997,+ WB5YFU
2040 DATA 2040,RON SHIPMAN,722 LONGBEACH DR.,GARLAND 75043,271-2129,+ N5AAP
2050 DATA 2050,CARROLL SMITH,831 NORTHLAKE DR.,RICHARDSON 75080,235-3097,+ K5DM
2060 DATA 2060,ROB TUBBS,7831 BLACKBIRD LN.,DALLAS 75238,349-0293,+ WB5OQG
2070 DATA 2070,GORDON TURNER,BOX 2694,DALLAS 75221,350-9939,+ WB5QYL
2080 DATA 2080,BRITTON VINCENT JR.,3338 DARBYSHIRE,DALLAS 75229,351-6867,+ W5UPV
2090 DATA 2090,ROBERT VINCENT,1517 CHRUCHILL DR.,DENTON 76201,817-387-1897,+ W5UBT
2100 DATA 2100,KEN WINTERS,5307 MARSHFIELD CT.,ARLINGTON 76016,817-457-5307,+ NN5AUX
2110 DATA 2110,CORKEY YANT,3537 BEVERLY DR.,FT. WORTH 76117,817-834-6824,+ WB5SKI
2120 DATA 2120,PAUL ZETTLER,8237 NORVELL DR.,DALLAS 75227,381-0340,+ WD5HZC
2130 DATA 2130,JIM MCCARTER,3300 ROCKNE LN.,MESQUITE 75150,270-0707,WD5DFQ
2140 DATA SA,COMPUTER IMAGINEERING,2825 VALLEY VIEW LN,FARMERS BRANCH TX,247-6393,
2150 DATA S,COMPUSHOP,13929 N. CENTRAL,DALLAS,234-3412,
2160 DATA SA,COMPUTERLAND OF DALLAS,THE CORNER #912 WALNUT/CENTRAL,DALLAS,363-2223,
2170 DATA S,THE BYTE SHOP,1490 W.SPRING VALLEY RD.,DALLAS,234-5955,
2180 DATA S,KA ELECTRONIC,1220 MAJESTY,DALLAS,634-7870,
2190 DATA S,THE MICRO STORE,634 S. CENTRAL,RICHARDSON,231-1096,
2250 DATA A,CHUCK CARPENTER,2228 MONTCLAIR PL.,CARROLLTON TX 75006,H/245-5058 B/233-6000/4691,W5USJ
9999 DATA END,*,*,*,*,*

Text found in Volume_027_Home_and_Personal.dsk/APPLE II DEMO.bas:

1 REM READ REMS AT END TO CUSTOMIZE FOR YOUR OWN USE
2 GOSUB 5000
5 GR : HGR2 : TEXT
10 HOME
20 PRINT "****************************************"
30 HTAB 10: PRINT "APPLE II DEMONSTRATION"
40 PRINT : PRINT "****************************************"
50 PRINT ""
60 PRINT : PRINT "HELLO THERE, THIS IS THE ";B$
70 PRINT "APPLE II--I BET YOU THINK COMPUTERS"
80 PRINT "ONLY MESS UP YOUR BILLS...RIGHT???"
85 PRINT : PRINT : PRINT
87 FOR X = 1 TO 3000: NEXT X
90 FLASH : HTAB 15: PRINT "WRONG!": NORMAL
100 PRINT : PRINT : PRINT
105 FOR X = 1 TO 2000: NEXT X
110 PRINT "I AM GOING TO SHOW YOU SOME OF THE "
120 PRINT "THINGS THAT ";D$;" HAVE"
130 PRINT "TAUGHT ME TO DO..THEY HAVE ONLY HAD ME"
140 PRINT "ABOUT ";L$;", BUT ALREADY I CAN DO"
150 PRINT "ALL SORTS OF NEAT THINGS."
160 FOR X = 1 TO 10000: NEXT X
170 HOME
175 PRINT : PRINT : PRINT
180 PRINT "FOR OPENERS, I WOULD LIKE TO KNOW WHO"
190 PRINT "I AM TALKING (PRINTING) TO."
200 PRINT : PRINT "WHAT'S YOUR NAME";: INPUT A$
210 PRINT : PRINT "HELLO ";A$;", HOW OLD ARE YOU";: INPUT B
215 PRINT
220 IF B <100 GOTO 250
225 PRINT "HA HA HA... THAT WAS A GOOD ONE, BUT"
230 PRINT "I AM SMARTER THAN THAT. HOW OLD ARE"
240 PRINT "YOU REALLY";: INPUT B
250 PRINT : PRINT "HMMMM..";B;" YEARS OLD. ALMOST OVER"
260 PRINT "THE HILL, COMPARED TO ME."
270 PRINT : PRINT "HEY ";A$;",DID YOU NOTICE ALL OF MY"
280 PRINT "ACCESSORIES?"
285 PRINT
290 INPUT V$
300 IF V$ = "NO" THEN GOTO 320
310 PRINT "WELL THEN I WILL TELL YOU WHAT THEY "
315 PRINT "ARE USED FOR."
317 GOTO 330
320 PRINT "OH... LOOK WHERE I POINT THE ARROWS..."
330 FOR X = 1 TO 3000: NEXT X
340 HOME
350 VTAB 22: PRINT "HERE IS MY MINI-FLOPPY DISK DRIVE --->"
360 FOR X = 1 TO 3000: NEXT X
370 PRINT : PRINT "IT IS A RANDOM ACCESS,MASS STORAGE"
380 PRINT "DEVICE, USED FOR STORING MY PROGRAMS"
390 PRINT : PRINT "IT USES 5 1/4 IN. PIECES OF MAGNETIC"
400 PRINT "MATERIAL, SHAPED LIKE A RECORD TO STORE"
410 PRINT "THE INFORMATION IN A DIGITALLY ENCODED"
420 PRINT "FORMAT....."
430 FOR X = 1 TO 10000: NEXT X
440 HOME : VTAB 22: PRINT "<--- AND HERE IS MY CASSETTE DECK..."
445 PRINT "PLEASE LOOK DOWN A LITTLE."
450 FOR X = 1 TO 5000: NEXT X
460 PRINT : PRINT "IT IS ANOTHER DEVICE FOR MASS STORAGE "
470 PRINT "OF PROGRAM INFORMATION.."
480 FOR X = 1 TO 3000: NEXT X
490 HOME : VTAB 22: PRINT "<--ON THE TABLE ARE MY PADDLE KNOBS-->"
500 FOR X = 1 TO 3000: NEXT X
510 PRINT : PRINT "THEY ARE USED FOR MY MANY GAMES AND "
520 PRINT "OTHER ANALOG INPUT REQUIREMENTS.."
530 FOR X = 1 TO 5000: NEXT X
540 HOME : VTAB 22: PRINT "YOU ARE TYPING ON MY KEYBOARD, WHICH"
550 PRINT "IS ATTACHED TO MY MAIN PROCESSOR UNIT."
560 PRINT : PRINT "BELIEVE IT OR NOT, MY MAIN PROCESSOR"
570 PRINT "UNIT WEIGHS ONLY 11 POUNDS...AMAZING,"
580 PRINT "ISN'T IT???"
590 FOR X = 1 TO 10000: NEXT X
600 HOME
610 PRINT "NOW FOR SOME PRACTICAL USES..."
620 PRINT : PRINT "HOW ABOUT SOME MATH.."
630 PRINT : PRINT A$;", PLEASE TYPE TWO NUMBERS, "
635 PRINT "SEPARATED BY A COMMA."
640 INPUT C,D
650 PRINT "HERE ARE YOUR NUMBERS..."
660 PRINT : PRINT "ADDED:";C +D
670 PRINT : PRINT "SUBTRACTED:";C -D
680 PRINT : PRINT "MULTIPLIED:";C *D
690 PRINT : PRINT "DIVIDED:";C/D
700 PRINT : PRINT "ISN'T THAT JUST UNBELIEVABLE?"
710 PRINT : PRINT "HEY ";A$;", REMEMBER WHEN YOU SAID YOU "
720 PRINT "WERE ";B;" YEARS OLD?"
730 INPUT V$: IF V$ = "NO" THEN PRINT "WELL I DO."
740 PRINT : PRINT "YOU SAID YOUR AGE WAS ";B;" YEARS."
750 PRINT : PRINT "NOW I WILL TEST YOUR MATHEMATICAL"
760 PRINT "ABILITIES. PLEASE ADD 67 AND YOUR AGE."
770 PRINT : PRINT "NOW TYPE THE TOTAL AND PRESS RETURN."
780 INPUT N: IF N = 67 +B THEN GOTO 800
790 IF N < >67 +B THEN PRINT "YOU ARE MISTAKEN..THE CORRECT ANSWER IS": PRINT : PRINT : HTAB 12: INVERSE : PRINT 67 +B
795 NORMAL : PRINT : PRINT : GOTO 820
800 PRINT "VERY GOOD... YOU ARE ALMOST AS SMART AS"
810 PRINT "I AM. (HA HA HA)"
820 FOR X = 1 TO 5000: NEXT X
830 PRINT A$;" WHAT IS YOUR FAVORITE COLOR?"
840 INPUT C$
850 IF C$ = "RED" THEN U = 1
860 IF C$ = "BLUE" THEN U = 6
870 IF C$ = "PURPLE" THEN U = 3
880 IF C$ = "GREEN" THEN U = 12
890 IF C$ = "GREY" THEN U = 5
900 IF C$ = "BROWN" THEN U = 8
910 IF C$ = "ORANGE" THEN U = 9
920 IF C$ = "PINK" THEN U = 11
930 IF C$ = "YELLOW" THEN U = 13
940 IF C$ = "WHITE" THEN U = 15
970 PRINT : PRINT "NOW, IF YOU WILL LOOK OVER TO THE RIGHT"
980 PRINT "ON MY BIG SCREEN, I WILL MAKE IT YOUR"
990 PRINT "FAVORITE COLOR......."
1000 FOR X = 1 TO 3000: NEXT X
1010 GR
1015 COLOR= U
1020 FOR Y = 0 TO 39
1030 VLIN 0,39 AT Y
1040 NEXT Y
1050 HOME : VTAB 22: HTAB 10: PRINT "ISN'T THAT NICE?"
1060 FOR X = 1 TO 5000: NEXT X
1070 TEXT : HOME
1080 PRINT "I LOVE TO LAY OUT ON THE GROUND AT"
1090 PRINT "NIGHT, AND LOOK UP AT THE STARS...."
1100 FOR X = 1 TO 3000: NEXT X
1110 HGR2
1120 HCOLOR= 3
1125 FOR K = 1 TO 150
1130 X = INT( RND(1) *279)
1140 Y = INT( RND(1) *191)
1150 HPLOT X,Y
1160 NEXT K
1170 FOR X = 1 TO 5000: NEXT X
1180 TEXT : HOME : VTAB 12
1190 PRINT "WASN'T THAT ROMANTIC?"
1200 FOR X = 1 TO 3000: NEXT X
2000 HOME : VTAB 10: PRINT "SO YOU SEE, ";A$;",YOU CAN USE ME FOR"
2010 PRINT "ALL SORTS OF THINGS; IT'S JUST A MATTER"
2020 PRINT "OF THE RIGHT PROGRAMMING."
2030 PRINT "IT ISN'T HARD, ONCE YOU GET THE HANG"
2040 PRINT "OF IT."
2045 FOR X = 1 TO 5000: NEXT X
2050 PRINT : PRINT : PRINT "NOW THAT YOU KNOW A LITTLE MORE ABOUT"
2060 PRINT "ME, GO AHEAD AND PLAY SOME GAMES, OR"
2070 PRINT "ASK ONE OF THE ";B$;" TO SHOW YOU"
2080 PRINT "MY ";P1$;" PROGRAM OR"
2090 PRINT "MY ";P2$;" PROGRAM."
2100 PRINT : PRINT "HAVE FUN ";A$;"--BYE BYE!!"
2105 FOR X = 1 TO 7000: NEXT X
2110 HOME
2120 END
5000 REM THESE MUST BE SET FOR YOUR OWN
5010 REM PERSONAL CHARACTERISTICS
5020 B$ = "CLELANDS"
5025 REM B$=YOUR FAMILY NAME
5030 P1$ = "INVENTORY"
5035 REM P1$=A PROGRAM NAME
5040 P2$ = "HAM CONVENTION TICKET WINNER"
5045 REM P2$=ANOTHER PROGRAM NAME
5050 D$ = "JIM, BETTY, AND MATT"
5055 REM D$=MEMBERS OF YOUR FAMILY
5057 L$ = "A MONTH"
5058 REM L$=APPROX. LENGTH OF TIME YOU HAVE OWNED THE COMPUTER
5060 RETURN
7000 REM THIS IS SET UP FOR THE APPLE II
7010 REM WITH A 9 IN. MONITOR SET ON TOP
7020 REM ON THE LEFT AND A DISK DRIVE SET
7030 REM ON TOP ON THE RIGHT AND A TAPE
7040 REM RECORDER ON THE TABLE ON THE LEFT
7045 REM
7050 REM MODELED AFTER THE OUTLINE ON P. 57 OF
7060 REM THE SEPT. 1978 KILOBAUD
7999 REM **************************
8000 REM WRITTEN BY MATT CLELAND,KA9DSQ
8010 REM AND DONATED TO ANYONE THAT DESIRES
8020 REM TO HAVE IT
8030 REM **************************

Text found in Volume_027_Home_and_Personal.dsk/BIORHYTHM-FREELOADER.bas:

4 TEXT
5 HOME : VTAB 10: INPUT "*** DO YOU WANT TO PRINT OUT RESULTS ? (TRENDCOM 100)";PRNT$
6 PI$ = CHR$(4) +"PR#1" + CHR$(13): REM : PRINTER "INIT".
7 PO$ = CHR$(4) +"PR#0" + CHR$(13): REM : PRINTER "OFF".
10 DIM NAME$(20)
15 DAYTE$ = "-2-4-6-8-1-1-1-1-1-2-2-2-2-2-3------*-------*------*------*------*------*------*"
16 DCNT$ = " 0 2 4 6 8 0 2 4 6 8 0 "
20 HOME : VTAB 2: HTAB 8: PRINT "*** BIORHYTHMS ***": HTAB 8: PRINT " ----------"
24 REM ::::::::::::::::::::::
25 REM :BY: HOWIE MITCHELL
26 REM
27 REM FEBRUARY, 1979
28 REM ::::::::::::::::::::::
50 REM : GOSUB 1999 GIVES A HOLD, WITH INSTRUCTION: (PRESS 'RETURN' TO CONTINUE).
51 REM : GOSUB 1999 RESETS SPEED TO 255;GOSUB 2000 DOES SAME AS 1999, WITHOUT CHANGING SPEED.
55 REM : GOSUB 10000 GIVES A 3-SECOND DELAY BEFORE CONTINUE
60 REM : INSTRUCTION & INFORMATION ON BIORHYTHM IS ON LINES 1000-2000,165-235,AND 310-340.
65 REM : JULIAN-CALENDAR CALCULATIONS ARE ON LINES 5000-6030.
70 REM : INFORMATION ON JULIAN CALCULATIONS BEGINS ON LINE 7000.
75 REM : CRITICAL DAYS CALCULATIONS BEGIN ON LINE 600.
77 REM DAY OF WEEK ROUTINE ON 9100-9120
80 PI = 3.1415927
85 DIM M$(12):M$(1) = "JANUARY":M$(2) = "FEBRUARY":M$(3) = "MARCH":M$(4) = "APRIL":M$(5) = "MAY":M$(6) = "JUNE"
86 M$(7) = "JULY":M$(8) = "AUGUST":M$(9) = "SEPTEMBER":M$(10) = "OCTOBER":M$(11) = "NOVEMBER":M$(12) = "DECEMBER"
87 DA$(0) = "SUNDAY":DA$(1) = "MONDAY":DA$(2) = "TUESDAY":DA$(3) = "WEDNESDAY":DA$(4) = "THURSDAY":DA$(5) = "FRIDAY":DA$(6) = "SATURDAY"
88 GOTO 105
90 REM ************************** ** "GRAPHICS" ROUTINE FOR ** SCANNING AND PRINTING ** OUT THE SCREEN (TEXT) ** MEMORY. ** *****************************
91 PRINT PI$: VTAB 1: REM :PRINTER "ON".
92 FOR SECT = 0 TO 2: FOR LEVEL = 0 TO 7
93 FOR LOC = 0 TO 39
94 PRINT CHR$( PEEK(1024 +40 *SECT +LEVEL *128 +LOC));
95 COUNT = COUNT +1: IF COUNT = 200 THEN PRINT :COUNT = 0: VTAB PEEK(37): REM : BY INSER- TING A "PRINT" BEFORE 255 CHARACTERS ARE PRINTED OUT, AN ODD "SKIP" IN PRINTING ISAVOIDED.
96 NEXT : NEXT : NEXT : PRINT
97 PRINT PO$: REM : PRINTER "OFF".
98 RETURN
99 REM ***************************** ** END OF PRINT ROUTINE ** *****************************
105 SPEED= 200
110 VTAB 6: PRINT " THIS IS A PROGRAM TO PLOT YOUR ": PRINT : PRINT "BIORHYTHMS. WOULD YOU LIKE FURTHER"
120 PRINT : PRINT "INFORMATION ?"
130 PRINT : PRINT " (TYPE 'Y' FOR YES)"
140 PRINT : PRINT " (TYPE 'N' FOR NO.)"
145 PRINT : PRINT "(ENTER YOUR ANSWER BY PRESSING THE 'RE- TURN' KEY.)": PRINT
150 PRINT : INPUT " ANS?";ANS$
155 SPEED= 120: IF PRNT$ = "Y" THEN SPEED= 255
160 HOME : IF ANS$ = "Y" THEN GOSUB 998
161 IF ANS$ = "Y" THEN GOTO 165
164 HOME : SPEED= 200: GOTO 240
165 SPEED= 125: IF PRNT$ = "Y" THEN SPEED= 255
170 HOME : PRINT " THE PORTIONS OF THE CYCLES BELOW THE 'BASELINE' ARE THE REGENERATIVE PERIODS;THE PORTIONS ABOVE THE 'BASELINE' ARE THE ACTIVE PERIODS (ENERGY STORED IS "
175 PRINT "AVAILABLE FOR USE)."
176 HTAB 17
180 VTAB 8: PRINT "ACTIVE:": VTAB 15: PRINT "----------------------------------------"
185 VTAB 22: PRINT "REGENERATIVE:"
186 VTAB 18: PRINT "(M=MENTAL)": PRINT "(P=PHYSICAL)": PRINT "(E=EMOTIONAL)"
187 SPEED= 255
190 FOR X = 0 TO 39
191 A = X/36 *2 *3.1416
192 AP = A *36/23
193 AE = A *36/28
194 AM = A *36/33
196 YP = 15 - SIN(AP) *7 +.5
197 HTAB X +1: VTAB YP: PRINT "P"
200 YE = 15.5 - SIN(AE) *7
201 HTAB X +1: VTAB YE: PRINT "E"
202 YM = 15.5 - SIN(AM) *7
203 HTAB X +1: VTAB YM: PRINT "M"
205 VTAB 23
210 NEXT X
211 IF PRNT$ = "Y" THEN GOSUB 90: GOTO 216
215 GOSUB 2000
216 SPEED= 200
218 IF PRNT$ = "Y" AND ANS$ = "Y" THEN PRINT PI$
220 HOME : VTAB 9
225 PRINT " THE THREE BIO-CYCLES ARE THOUGHT TO BEGIN TOGETHER, AT THE MOMENT OF BIRTH."
230 PRINT "THUS, IF AN INDIVIDUAL'S BIRTHDATE IS KNOWN, THE PARTICULAR STAGE OF EACH"
235 PRINT "CYCLE AT ANY GIVEN DATE MAY BE CALCU- LATED.": IF PR$ = "Y" THEN PRINT : GOTO 240
236 PRINT : PRINT : GOSUB 2000
240 HOME : VTAB 10: PRINT " THIS PROGRAM WILL DISPLAY GRAPHS OF EACH OF THE THREE BIO-CYCLES, BEGINNING"
245 PRINT "AT ANY DESIRED DATE, AND EXTENDING TO A POINT 5 OR SO WEEKS BEYOND THE STARTING DATE."
247 IF PRNT$ = "Y" AND ANS$ = "Y" THEN PRINT PO$: GOTO 255
250 GOSUB 1999
255 HOME : VTAB 4
256 SPEED= 170
260 PRINT " PLEASE TYPE IN YOUR NAME (REMEMBER TO ENTER IT BY PRESSING THE RETURN KEY):"
261 PRINT : PRINT
265 INPUT " ";NAME$
270 PRINT : PRINT " THANK YOU, ";NAME$;"."
275 PRINT : PRINT " NOW, PLEASE TYPE IN YOUR BIRTH DATE, SEPARATING MONTH, DAY, AND YEAR WITH COMMAS: (EXAMPLE: 2,22,32)"
280 PRINT : INPUT "MM,DD,YY:";BM,BD,BY
281 REM : BM,BD,BY ARE FOR BIRTH MONTH,DAY, & YEAR.
285 VTAB 16: HTAB 22: PRINT "THANK YOU."
286 PRINT
290 PRINT : PRINT " NEXT, TYPE IN THE BEGINNING DATE FOR YOUR BIO-GRAPH:"
295 PRINT : INPUT "MM,DD,YY:";PM,PD,PY
296 REM : PM,PD,PY ARE THE PREDICTION MONTH, DAY, & YEAR.
300 VTAB 22: HTAB 22: PRINT "GOOD."
305 PRINT : PRINT
306 IF ANS$ = "N" OR AN$ = "" THEN GOSUB 5000
307 IF ANS$ = "N" OR ANS$ = "" THEN GOTO 341
310 PRINT " NOW, IT IS TIME FOR ME TO DO SOME CAL-CULATING. WORKING WITH THE TWO DATES"
315 PRINT "GIVEN, I FIRST CALCULATE THE NUMBER OF DAYS BETWEEN YOUR BIRTH DATE AND THE BE-GINNING DATE FOR YOUR BIO-GRAPH."
316 GOSUB 1999
317 GOSUB 7000: IF PR$ = "Y" THEN PRINT PI$: REM : THIS GIVES THE MAIN DETAILS OF THE JULIAN CALENDAR CALCULATION.
318 PRINT : PRINT " THE ACTUAL COMPUTER PROGRAM LOOKS LIKE THIS:": PRINT
319 LIST 6000,6030: PRINT PO$: GOSUB 1999
320 PRINT : PRINT " THE CALCULATION WILL BE ACCOMPLISHED BETWEEN THE TWO 'BEEP' SOUNDS:": PRINT
321 SPEED= 255
322 GOSUB 10000
323 PRINT "";: REM : BEEP!!
325 PRINT "BEGIN CALCULATING.": PRINT
326 GOSUB 5000
327 REM : JULIAN CALCULATION
335 PRINT "END CALCULATING !!"
336 PRINT "": REM : BEEP !!
337 PRINT " (PRETTY FAST, EH WOT ?)"
338 GOSUB 10000: SPEED= 200
339 PRINT : PRINT : PRINT " NOW FOR THE RESULTS:"
340 PRINT : PRINT : GOSUB 10000
341 REM
345 SPEED= 200: IF PRNT$ = "Y" THEN PRINT PI$: SPEED= 255: REM : PRINTER "ON".
350 HOME
355 PRINT : PRINT " BIORHYTHM CALCULATIONS FOR ": PRINT : HTAB 5: PRINT NAME$;":"
356 PRINT : PRINT
357 GOSUB 9100:BD$ = DA$(DA) +", " +M$(BM) +" " + STR$(BD) +", " + STR$(BY)
360 PRINT "BIRTHDATE: ";BD$
365 PRINT : PRINT "PREDICTION DATE: ";PM;"/";PD;"/";PY
366 PRINT : PRINT "AS OF ";PM;"/";PD;"/";PY;","
367 PRINT
368 LIVE = INT(LIVE +.5)
370 PRINT "YOU HAVE BEEN ALIVE FOR ";LIVE;" DAYS !"
371 PRINT : PRINT
372 PRINT PO$: REM :PRINTER OFF
375 PRINT : PRINT "BIO-CYCLE GRAPHS COME NEXT.": GOSUB 1999
379 REM : NOTE:PA,EA,& MA ARE PHYSICAL,EMOTIONAL, AND MENTAL CYCLE STARTING ANGLES (FRACTIONAL) IN RADIANS.
380 PA = (LIVE/23 - INT(LIVE/23)) *2 *PI
381 EA = (LIVE/28 - INT(LIVE/28)) *2 *PI
382 MA = (LIVE/33 - INT(LIVE/33)) *2 *PI
383 SPEED= 180: IF PRNT$ = "Y" THEN SPEED= 255
385 HOME : VTAB 1: PRINT " BIO-GRAPH FOR ";NAME$;":"
386 PRINT
388 PRINT " (GRAPH BEGINS ON ";PM;"/";PD;"/";PY;")"
389 IF PRNT$ < >"Y" THEN INVERSE
390 VTAB 13: PRINT MID$ (DAYTE$,PD,39)
391 PRINT MID$ (DCNT$,PD,39)
395 VTAB 15: HTAB 16: PRINT "(DAYS)"
396 NORMAL
400 FOR A = 0 TO 39:IP = A/23 *2 *PI:AP = PA +IP:PHYS = 13.5 - SIN(AP) *8
401 VTAB PHYS: HTAB A +1: GOSUB 9000: PRINT "P": NORMAL : NEXT A
402 FOR A = 0 TO 39:IE = A/28 *2 *PI:AE = EA +IE:EMOT = 13.5 - SIN(AE) *8
403 VTAB EMOT: HTAB A +1: GOSUB 9000: PRINT "E": NORMAL : NEXT A
404 FOR A = 0 TO 39:IM = A/33 *2 *PI:AM = MA +IM:MENT = 13.5 - SIN(AM) *8
405 VTAB MENT: HTAB A +1: GOSUB 9000: PRINT "M": NORMAL : NEXT A
406 REM : IP,IE, & IM ARE THE DAILY ANGLE INCREMENTS FOR THE P,E,&M CYCLES (IN RADIANS).
416 IF PRNT$ < >"Y" THEN INVERSE
417 VTAB 15: HTAB 16: PRINT "(DAYS)"
418 NORMAL
419 IF PRNT$ = "Y" THEN GOSUB 90
420 VTAB 22: GOSUB 1999
421 GOSUB 600: REM :THIS GIVES CRITICAL DAYS FOR THE MONTH.
422 IF PRNT$ = "Y" THEN PRINT : GOSUB 90
423 GOSUB 1999
425 HOME : VTAB 5
430 PRINT " I CAN NOW PLOT ANOTHER GRAPH FOR YOU (FOR A NEW PREDICTION DATE), OR A BRAND NEW PLOT MAY BE MADE FOR A NEW PERSON, OR WE MAY END RIGHT HERE."
440 PRINT : PRINT : PRINT " (E = END)": PRINT : PRINT " (A = ANOTHER PLOT FOR YOU)"
445 PRINT : PRINT " (N = NEW PLOT FOR A NEW PERSON)": PRINT
446 PRINT " (R = REPEAT BIOGRAPHS & CRITICALS)"
447 PRINT : PRINT
450 INPUT " WHICH WILL IT BE ?";ANS$
452 HOME : VTAB 5
455 IF ANS$ = "E" THEN 500
456 IF ANS$ = "N" THEN RUN
457 IF ANS$ = "R" THEN PRNT$ = "YN": GOTO 385: REM : REPEAT BIOGRAPHS W/O PRINTING.
458 IF ANS$ = "" THEN PRINT CHR$(7);"(SORRY. I DIDN'T GET THAT.)": GOTO 440
460 PRINT : PRINT : PRINT " VERY WELL."
462 IF PRNT$ = "YN" THEN PRNT$ = "Y"
465 PRINT : PRINT " PLEASE TYPE IN THE NEW PREDICTION DATE"
470 PRINT : INPUT " MM,DD,YY ? ";PM,PD,PY
475 GOSUB 5000
480 GOTO 350
500 PRINT : PRINT : PRINT : PRINT " GOOD ENOUGH !"
505 PRINT : PRINT : PRINT " THANK YOU. I ENJOYED IT ! "
510 PRINT : PRINT : PRINT " (TYPE IN 'RUN' AND PRESS 'RETURN' TO"
520 PRINT : PRINT "START A NEW BIORHYTHM PROGRAM.)"
525 PRINT : PRINT : PRINT
526 IF PRNT$ = "Y" OR PRNT$ = "YN" THEN 15000
530 END
600 CRITICAL = LIVE -PD +1: REM : THIS GIVES # DAYS LIVED AS OF THE BEGINNING OF THE MONTH.
605 HOME : VTAB 4: HTAB 8: PRINT "*** CRITICAL DAYS ***"
606 HTAB 12: PRINT "-------- ----"
610 VTAB 8: PRINT "CYCLE","APPROX. CRITICAL DATES"
611 PRINT
615 FOR L = 1 TO 40: PRINT "-";: NEXT L
620 PRINT "PHYSICAL": GOSUB 700: PRINT "EMOTIONAL": GOSUB 700: PRINT "MENTAL": GOSUB 700
621 REM : PHYSICAL ON LINE 11
625 VTAB PEEK(37) +2: PRINT "(";NAME$;", THIS IS FOR ";M$(PM);", ";PY;".)"
630 PCY = CR/23 - INT(CR/23):ECY = CR/28 - INT(CR/28):MCY = CR/33 - INT(CR/33)
631 REM : LINE 630 GIVES THE FRACTIONAL PARTS OF CURRENT CYCLES EXISTING AS OF THE 1ST OF THE MONTH.
632 PSTART = -PCY *23:ESTART = -ECY *28:MSTART = -MCY *33
633 HTAB 17
635 X = 1
636 P% = PSTART +X +.5
638 IF P% >31 THEN 647
640 IF P% >0 THEN VTAB 11: PRINT P%;", ";
645 X = X +23/2: GOTO 636
647 HTAB 17:X = 1
650 E% = ESTART +X +.5
655 IF E% >31 THEN 670
660 IF E% >0 THEN VTAB 13: PRINT E%;", ";
665 X = X +14: GOTO 650
670 X = 1: HTAB 17
675 M% = MSTART +X +.5
677 IF M% >31 THEN 697
680 IF M% >0 THEN VTAB 15: PRINT M%;", ";
685 X = X +33/2: GOTO 675
697 RETURN
699 END
700 FOR L = 1 TO 40: PRINT "-";: NEXT L: RETURN
997 END
998 IF PRNT$ = "Y" THEN PRINT PI$: HOME : PRINT " *** BIORHYTHMS *** ----------"
999 REM ***************************** ** GENERAL INFORMATION ** *****************************
1000 PRINT " BIORHYTHMS ARE THOUGHT TO AFFECT BE- HAVIOR. IT IS ASSUMED THAT OUR PHYSICAL,MENTAL, AND EMOTIONAL ENERGIES RISE AND"
1010 PRINT "FALL IN RHYTHMIC CYCLES (23-DAY CYCLE FOR PHYSICAL, 28-DAY CYCLE FOR"
1020 PRINT "EMOTIONAL, AND 33-DAY CYCLE FOR MENTAL).";
1025 IF PRNT$ = "Y" THEN PRINT
1030 PRINT : PRINT " WHEN THESE CYCLES CROSS A ZERO 'BASE- LINE', THE FUNCTIONS CHANGE PHASE - BE- COME UNSTABLE - AND THIS RESULTS IN"
1040 PRINT "SO-CALLED CRITICAL DAYS."
1045 PRINT : PRINT " THESE 'CRITICAL DAYS' ARE, ACCORDING"
1050 PRINT "TO THE THEORY, OUR WEAKEST AND MOST VUL-NERABLE TIMES. ACCIDENTS, CATCHING"
1060 PRINT "COLDS, AND BODILY HARM ARE MORE LIKELY ON PHYSICALLY-CRITICAL DAYS. DEPRESSION,";
1070 PRINT "QUARRELS, AND FRUSTRATION ARE MORE LIKE-LY ON EMOTIONALLY-CRITICAL DAYS. SLOW- ";
1080 PRINT "NESS OF THE MIND, RESISTANCE TO NEW SIT-UATIONS, AND UNCLEAR THINKING ARE MORE"
1090 PRINT "LIKELY ON MENTALLY-CRITICAL DAYS."
1095 IF PRNT$ = "Y" THEN PRINT PO$
1100 GOSUB 1999: RETURN
1999 SPEED= 255
2000 PRINT : VTAB 24: HTAB 6: INPUT "(PRESS 'RETURN' TO CONTINUE)";HOLD$
2001 RETURN
5000 REM : JUNIAN-CALENDAR CALCULATIONS
5010 IF BY <500 THEN BY = BY +1900
5011 IF PY <500 THEN PY = PY +1900
5015 D = BD:M = BM:Y = BY
5020 GOSUB 6000
5025 B = JD: REM : JULIAN NUMBER FOR BIRTHDATE
5030 D = PD:M = PM:Y = PY
5035 GOSUB 6000
5040 P = JD: REM JULIAN NUMBER FOR PREDICTION DATE
5045 LIVE = P -B: REM : LIVE = NO. DAYS LIVED
5050 RETURN
6000 REM : JULIAN CALCULATOR, CONTINUED.
6010 RM = M: REM : ('RM'=REFER- ENCE MONTH USED IN ADJUSTINGFOR FEBRUARY.)
6015 IF RM <3 THEN Y = Y -1
6020 IF RM <3 THEN M = M +13
6021 IF RM >2 THEN M = M +1
6024 REM : IN THE NEXT STEP, JD IS THE 'JULIAN DAY NUMBER', MEASURED FROM MARCH 1, 1700.Y AND M ARE YEAR AND MONTH NUMBERS, AND D IS THE DAY NUMBER.
6025 JD = 365.25 *Y + INT(30.6 *M) +D -621049
6030 RETURN
7000 PRINT : PRINT
7005 PRINT " THIS CALCULATION IS A BIT TRICKY, DUE TO THE ALTERNATING 30 & 31 DAYS IN THE MONTHS (ALSO, FEBRUARY IS MESSY, WITH ITS EXTRA DAY ADDED EVERY FOUR YEARS)."
7006 PRINT
7010 PRINT " THE PROGRAM WORKS BY ASSIGNING THE NUMBER 1 TO MARCH 1, 1700 (THIS MAKES MARCH 1 A 'BEGINNING-OF-THE-YEAR'!)."
7015 PRINT : PRINT " THE MONTH NUMBER IS TESTED TO SEE IF IT IS LESS THAN 3. IF SO, THEN THE YEARNUMBER IS DECREASED BY 1, AND 13 IS ADDED TO THE MONTH NUMBER."
7020 PRINT : PRINT " IF THE MONTH NUMBER IS GREATER THAN 2,THEN THE MONTH NUMBER IS SIMPLY IN-"
7025 PRINT "CREASED BY ONE. THE QUANTITY 621049 IS SUBTRACTED FROM THE CALCULATION, SINCE THAT IS THE JULIAN DAY NUMBER FOR THE STARTING DATE (MARCH 1,1700.)"
7030 GOSUB 2000
7099 RETURN
8000 END
9000 IF PEEK(37) = 12 AND PRNT$ < >"Y" THEN FLASH
9010 RETURN
9100 REM ***************************** ** BIRTH DAY OF WEEK ! ** *****************************
9105 Y = BY:M = BM:D = BD: IF BM <3 THEN Y = Y -1:M = M +13
9107 IF BM >2 THEN M = M +1
9110 JULIAN = INT(365.25 *Y) + INT(30.6 *M) +BD -621049
9112 JU = JU +(BY <1901 AND M >12) +(BY <1900) +(BY <1801 AND M >12) +(BY <1800)
9113 REM (LINE #9112) ***************************** ** CORRECTION FOR DATES ** BEFORE 2/28/1900 ** *****************************
9115 DAYOFWEEK = INT((JU/7 - INT(JU/7)) *7 +.5)
9120 : RETURN
10000 FOR T = 0 TO 2
10001 FOR Z = 0 TO 750: NEXT Z
10002 NEXT T: RETURN
11000 REM
11010 REM *********************
11020 REM
11030 REM PROGRAM BY:
11040 REM
11050 REM HOWIE MITCHELL
11060 REM 6027 RIDGE DRIVE
11070 REM BROOKMONT, MD.
11080 REM 20016
11090 REM FEBRUARY, 1979
11100 REM
11110 REM *********************
11111 REM NEW ADDRESS:
11112 REM 7823 SW. 55TH PL.
11113 REM GAINESVILLE,FLA.
11114 REM 32601
11115 REM JULY, 1979 +
11116 REM *********************
15000 PRINT PI$: PRINT "***********************": PRINT "* *": PRINT "* HOWIE MITCHELL *": PRINT "* 7823 SW.55TH PL. *": PRINT "* GAINESVILLE, FLA. *": PRINT "* NOVEMBER, 1979 *"
15001 PRINT "* *": PRINT "***********************"
15002 PRINT PO$

Text found in Volume_027_Home_and_Personal.dsk/BIORHYTHM.bas:

1 DATA 15,12,1978
2 CLEAR : DIM COL$(75): HOME
4 PI = 6.28318530718
5 HOME : GOTO 200
6 REM 8.3 C/I
10 PRINT "": RETURN
15 REM 10 C/I
20 PRINT "": RETURN
25 REM 12 C/I
30 PRINT "": RETURN
35 REM 16.5 C/I
40 PRINT "": RETURN
45 REM ENHANCED
50 PRINT "": RETURN
55 REM NORMAL
60 PRINT "": RETURN
65 REM START PRINT
70 POKE 54,0: POKE 55,193: RETURN
75 REM TURN ON 80 LINES
80 PRINT "80N": RETURN
85 REM TURN ON SCREEN AND PRINTER
90 PRINT "I": RETURN
91 PRINT ""
95 REM TURN OFF PRINTER
99 POKE 54,240: POKE 55,253: RETURN
100 REM BIO SUB. GO HERE 100-200
110 FA = 365 *YE +DA +31 *(MO -1) + INT((YE -1)/4) - INT((3/4) * INT(((YE -1)/100) +1)): RETURN
120 FA = 365 *(YE) +DA +31 *(MO -1) - INT(.4 *MO +2.3) + INT(YE/4) - INT(3/4 *( INT(YE/100) +1)): RETURN
130 IF FB = 0 THEN DAY$ = "SATURDAY"
131 IF FB = 1 THEN DAY$ = "SUNDAY"
132 IF FB = 2 THEN DAY$ = "MONDAY"
133 IF FB = 3 THEN DAY$ = "TUESDAY"
134 IF FB = 4 THEN DAY$ = "WEDNESDAY"
135 IF FB = 5 THEN DAY$ = "THURSDAY"
136 IF FB = 6 THEN DAY$ = "FRIDAY"
137 RETURN
140 VTAB 1: PRINT TAB( 2);: INVERSE : PRINT " BIORHYTHM PROGRAM BY ROGER KEATING": NORMAL : RETURN
145 HTAB 5: PRINT "HIT 9 (RETURN) FOR INFORMATION": RETURN
150 VTAB 8: PRINT " NAME ";: NORMAL : PRINT " ";NAME$;" ": RETURN
160 VTAB 12: PRINT " DATE ";: NORMAL : PRINT " ";DT$;" ": RETURN
170 VTAB 14: PRINT " MONTH ";: NORMAL : PRINT " ";MO$;" ": RETURN
180 VTAB 16: PRINT " YEAR ";: NORMAL : PRINT " ";YE$;" ": RETURN
181 GOSUB 50: PRINT " BIORHYTHM PROGRAM BY ROGER KEATING": PRINT : PRINT : PRINT " NAME ";NAME$: PRINT : PRINT " DATE OF BIRTH ";DT$;" , ";MO$;" , ";YE$: PRINT "DATE OF FORECAST ";: GOSUB 20000: PRINT A;" , ";B;" , "C: PRINT
182 PRINT "YOU HAVE LIVED ";NUM;" DAYS ": PRINT "AND WERE BORN ON A ";DAY$: PRINT : RETURN
185 PRINT " DATE - - - - - - - - - - - 0 + + + + + + + + + + +": RETURN
190 PRINT " **********************************************************************": RETURN
200 HOME : GOSUB 140
201 GOSUB 145
210 INVERSE : GOSUB 150: INVERSE : GOSUB 160: INVERSE : GOSUB 170: INVERSE : GOSUB 180
220 FLASH : GOSUB 150: VTAB 8: POKE 36,10: INPUT NA$: INVERSE : GOSUB 150
221 IF NA$ = "0" THEN 32000
222 X = VAL(NA$): IF X = 0 THEN 230
223 IF X <1 OR X >9 THEN 220
224 ON X GOTO 1000,2000,3000,4000,5000,6000,7000,8000,9000
230 FLASH : GOSUB 160: VTAB 12: POKE 36,10: INPUT DT$: INVERSE : GOSUB 160
235 DA = VAL(DT$): IF DA <1 OR DA >31 THEN 230
240 FLASH : GOSUB 170: VTAB 14: POKE 36,10: INPUT MO$: INVERSE : GOSUB 170
245 MO = VAL(MO$): IF MO <1 OR MO >12 THEN 240
250 FLASH : GOSUB 180: VTAB 16: POKE 36,10: INPUT YE$: INVERSE : GOSUB 180
252 IF LEN(YE$) <2 THEN YE$ = "0" +YE$
253 IF LEN(YE$) <3 THEN YE$ = "19" +YE$: INVERSE : GOSUB 180
255 YE = VAL(YE$): IF YE <100 THEN YE = YE +1900
256 DX = DA:MX = MO:YX = YE
258 DS = 62:CF = 0
310 IF MO >2 THEN 330
320 GOSUB 110: GOTO 350
330 GOSUB 120
350 FB = FA -( INT(FA/7) *7)
351 FX = FA
355 GOSUB 130
357 IF FC = 1 THEN DA = FD:MO = FM:YE = FY
360 GOSUB 12000
361 NUM = FA -FX
370 PRINT : PRINT "YOU HAVE LIVED FOR ";NUM;" DAYS": PRINT "AND WERE BORN ON A ";DAY$
500 REM * PRINTOUT GOES HERE
501 GOSUB 13000: GOSUB 14000
503 GOSUB 70: GOSUB 80: GOSUB 20: GOSUB 60: PRINT : PRINT : PRINT : PRINT : PRINT : GOSUB 181: GOSUB 60: GOSUB 185: GOSUB 190
509 REM JUMP
510 FOR I = 3 TO 75:COL$(I) = " ": NEXT I
520 AP% = (( SIN(PI *(NU/23)) +1) *34) +7
530 AM% = (( SIN(PI *(NU/28)) +1) *34) +7
540 AI% = (( SIN(PI *(NU/33)) +1) *34) +7
550 COL$(41) = "*"
560 COL$(AP%) = "P":COL$(AM%) = "E":COL$(AI%) = "I"
570 GOSUB 15000
580 Y% = X/10:Z% = X -Y% *10
581 IF Y% = 0 THEN COL$(4) = " "
582 IF Y% = 1 THEN COL$(4) = "1"
583 IF Y% = 2 THEN COL$(4) = "2"
584 IF Y% = 3 THEN COL$(4) = "3"
585 IF Z% = 0 THEN COL$(5) = "0"
586 IF Z% = 1 THEN COL$(5) = "1"
587 IF Z% = 2 THEN COL$(5) = "2"
588 IF Z% = 3 THEN COL$(5) = "3"
589 IF Z% = 4 THEN COL$(5) = "4"
590 IF Z% = 5 THEN COL$(5) = "5"
591 IF Z% = 6 THEN COL$(5) = "6"
592 IF Z% = 7 THEN COL$(5) = "7"
593 IF Z% = 8 THEN COL$(5) = "8"
594 IF Z% = 9 THEN COL$(5) = "9"
600 FOR I = 0 TO 75: PRINT COL$(I);: NEXT : PRINT
610 X = X +1
620 IF X = DA AND DS <5 OR DS <0 THEN 640
625 NU = NU +1
626 DS = DS -1
630 GOTO 509
635 SPEED= 100
640 PRINT : PRINT : PRINT : PRINT "'I' INTELLECTUAL CYCLE.": PRINT "'P' PHYSICAL CYCLE.": PRINT "'E' EMOTIONAL CYCLE.": PRINT : PRINT
650 PRINT " WHEN THE CYCLE IS IN THE NEGATIVE (-) YOU ARE IN THE 'LOW' PART OF THE": PRINT "CYCLE AND WHEN IN THE POSITIVE (+) YOU ARE IN THE 'HIGH' PART OF THE CYCLE."
660 PRINT "WHEN THE BIORHYTHM CROSSES THE CENTRE LINE (*) IT IS CALLED A 'CRITICAL'": PRINT "PERIOD. "
670 PRINT " BIORHYTHMS ARE SIMPLY MATHEMATICAL FORMULAE AND AS SUCH CAN HAVE MANY AND ": PRINT "VARIED INTERPRETATIONS. WE WILL LEAVE THESE INTERPRETATIONS TO YOU."
680 PRINT : PRINT " R.J.KEATING."
690 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
695 SPEED= 255
700 REM TURN OFF AND RETURN
710 GOSUB 90: GOSUB 99
720 GOTO 2
1000 CLEAR : GR
1001 X = RND(16)
1005 COLOR= X
1010 FOR I = 0 TO 39: VLIN 40 * RND(10),39 AT I: NEXT
1020 COLOR= 0
1030 FOR I = 0 TO 39: VLIN 0, RND(40) *40 AT I: NEXT
1040 X = X +1
1045 IF PEEK( -16384) >127 THEN 1090
1050 GOTO 1005
1090 POKE -16368,0: TEXT : HOME : GOTO 2
2000 CLEAR : GR
2010 PRINT : PRINT : PRINT : PRINT :J = 0
2015 COLOR= 15: FOR I = 1 TO 250: PLOT RND(10) *39, RND(10) *30 +10: NEXT I
2020 A1 = RND(10) *30 +6:B1 = 3:A = A1:B = B1
2025 T = INT( RND(10) *2)
2026 IF T = 0 THEN T = 60
2027 J = J +1
2030 COLOR= 0: PLOT A,B
2035 T = INT( RND(10) *2)
2040 IF SCRN( A,B +1) < >0 THEN ON T GOTO 2050,2043
2043 B = B +1: GOTO 2080
2045 X = RND(10) *2: IF X = 1 THEN 2050
2046 GOTO 2060
2050 IF SCRN( A +1,B) < >0 THEN 2060
2051 A = A +1: GOTO 2080
2060 IF SCRN( A -1,B) < >0 THEN 2080
2061 A = A -1:T = 2060: GOTO 2080
2080 IF SCRN( A1,B1 +1) < >0 AND SCRN( A1 +1,B1) < >0 THEN 2200
2082 IF SCRN( A1,B1 +1) < >0 AND SCRN( A1 -1,B1) < >0 THEN 2200
2085 GOTO 2100
2100 IF A <1 OR A >38 OR B <1 OR B >38 THEN 2200
2110 COLOR= 9:A1 = A:B1 = B: PLOT A,B: HTAB 1: PRINT "DRIP NUMBER ";J;: GOTO 2030
2200 COLOR= 9: PLOT A1,B1: IF PEEK( -16384) >127 THEN 10000
2300 GOTO 2020
3000 CLEAR : GR : FOR W = 3 TO 50: FOR I = 1 TO 19: FOR J = 0 TO 19:K = I +J: COLOR= J *3/(I +3) +I *W/12
3060 PLOT I,K: PLOT K,I: PLOT 40 -I,40 -K: PLOT 40 -K,40 -I: PLOT K,40 -I: PLOT 40 -I,K: PLOT I,40 -K: PLOT 40 -K,I
3065 IF PEEK( -16384) >127 THEN W = 50:I = 19:J = 19
3070 NEXT : NEXT : NEXT
3075 IF PEEK( -16384) >127 THEN 10000
3080 GOTO 3010
4000 CLEAR : GR
4005 FOR I = 1 TO 4:C%(I) = RND(2) *15: NEXT
4010 FOR I = 3 TO 1 STEP -1:C%(I +1) = C%(I): NEXT :C%(I) = RND(2) *16: FOR I = 1 TO 5: FOR J = 1 TO 4: COLOR= C%(J):L = J *5 +14 +I:K = 39 -L: HLIN K,L AT K: VLIN K,L AT L: HLIN K,L AT L: VLIN K,L AT K: NEXT : NEXT
4030 IF PEEK( -16384) <128 THEN 4005
4040 GOTO 10000
5000 CLEAR : GR
5005 FOR I = 0 TO 39
5010 COLOR= INT( RND(10) *16): HLIN 0,39 AT I: HLIN 0,39 AT 39 -I: VLIN 0,39 AT I: VLIN 0,39 AT 39 -I: NEXT I
5020 IF PEEK( -16384) >127 THEN 10000
5030 GOTO 5005
6000 CLEAR : GR
6010 COLOR= INT( RND(10) *16): FOR I = 0 TO 18 STEP 2:J = 39 -I: HLIN I,J AT I:K = I +7
6015 GOSUB 6020: GOTO 6030
6020 PRINT "": RETURN
6030 VLIN I,J AT J: GOSUB 6020
6040 HLIN I +2,J AT J: GOSUB 6020: VLIN I +2,J AT I +2: GOSUB 6020: NEXT I
6050 COLOR= INT( RND(10) *16): FOR I = 18 TO 0 STEP -2:J = 39 -I: VLIN I +2,J AT I +2: GOSUB 6020: HLIN I +2,J AT J: GOSUB 6020
6060 VLIN I,J AT J: GOSUB 6020: HLIN I,J AT I: GOSUB 6020: NEXT I: IF PEEK( -16384) >127 THEN 10000
6070 GOTO 6010
7000 CLEAR : TEXT : HOME
7010 GR : POKE -16302,0: FOR I = 39 TO 47: COLOR= 0: HLIN 0,39 AT I: NEXT I
7015 X = INT( RND(1) *15 +1)
7020 A = RND(1) *9 +10:B = RND(1) *13 +10
7030 FOR XX = -A TO A:YY = SQR(B ^2 *(1 -XX ^2/A ^2)): COLOR= X: VLIN 23 -YY,23 +YY AT XX +19: IF PEEK( -16384) >127 THEN XX = A
7034 NEXT : IF PEEK( -16384) >127 THEN 10000
7107 GOTO 7015
8000 CLEAR : TEXT : HOME
8010 GR : POKE -16302,0: FOR I = 39 TO 47: COLOR= 0: HLIN 0,39 AT I: NEXT I
8015 K = INT( RND(1) *15 +1):A = RND(1) ^2:A = A *5: COLOR= K
8020 FOR X = 0 TO 39:XX = (X -18)/3:Y = A *XX ^2: IF Y >47 THEN Y = 47
8030 VLIN 47 -Y,47 AT X: IF PEEK( -16384) >127 THEN X = 39
8040 NEXT X: IF PEEK( -16384) >127 THEN 10000
8080 GOTO 8015
9000 REM FORECAST DATE
9010 HOME : PRINT "DO YOU WISH TO CHANGE THE FORECAST": PRINT : PRINT "DATE PERMANENTLY (TYPE P) OR MAKE": PRINT : PRINT "A SINGLE FORECAST (TYPE S)."
9015 PRINT : PRINT "OR INFORMATION (TYPE F)."
9020 PRINT : GET X$: IF X$ = "S" THEN 9100
9025 IF X$ = "F" THEN 9400
9030 HOME : PRINT "TO CHANGE THE DATE PERMANENTLY TYPE": PRINT : PRINT "1 DATA DAY , MONTH , YEAR ": PRINT : PRINT "AT THE MOMENT THE FORECAST DATE IS": PRINT
9035 PRINT : PRINT : PRINT
9040 RESTORE : READ A,B,C: PRINT " 1 DATA ";A;" , ";B;" , ";C: PRINT
9050 VTAB 23: INVERSE : PRINT " TYPE ";: NORMAL : PRINT " RUN ";: INVERSE : PRINT " WHEN FINISHED. "
9060 VTAB 15: NORMAL : END
9100 HOME : PRINT "FOR A SINGLE FORECAST YOU MUST TYPE": PRINT
9110 PRINT "IN THE DAY , MONTH AND YEAR": PRINT
9120 PRINT "FOR EXAMPLE ( 21 , 8 , 1978 ).": PRINT : PRINT : PRINT
9130 INPUT FD,FM,FY
9140 FC = 1
9150 GOTO 200
9400 HOME : PRINT "WHEN THE NAME IS ASKED YOU GET DISPLAYS"
9410 PRINT "BY HITTING NUMBERS BETWEEN 1 AND 8"
9420 PRINT "9 ALLOWS YOU TO CHANGE THE FORSCAST"
9430 PRINT "DATE EITHER FOR ONE RUN OR FOR A NUMBER"
9440 PRINT "OF RUNS."
9441 PRINT "0 RETURNS YOU TO THE MENU."
9450 PRINT : PRINT "THE PROGRAM WILL PROCEED WHEN YOU HIT": PRINT "A KEY."
9460 PRINT : PRINT : GET XX$: GOTO 10000
10000 POKE -16368,0: TEXT : HOME : GOTO 2
11000 DATA J,A,N,F,E,B,M,A,R,A,P,R,M,A,Y,J,U,N,J,U,L,A,U,G,S,E,P,O,C,T,N,O,V,D,E,C
11010 DATA 32,29,32,31,32,31,32 ,32,31,32,31,32
12000 RESTORE
12010 IF FC = 1 THEN READ A,B,C: GOTO 12030
12020 READ DA,MO,YE
12030 IF MO >2 THEN GOSUB 120: GOTO 12050
12040 GOSUB 110
12050 RETURN
13000 S = MO:X = DA
13010 READ COL$(0),COL$(1),COL$(2)
13020 IF S = 1 THEN 13050
13030 S = S -1: GOTO 13010
13050 RETURN
14000 RESTORE : READ A,B,C:S = MO
14010 FOR I = 1 TO 36: READ X$: NEXT I
14020 READ DM: IF S = 1 THEN 14050
14030 S = S -1: GOTO 14020
14050 GOSUB 16000:DM = DM +LY: RETURN
15000 IF X 2 THEN 16030
16010 IF IN% = I THEN LY = 1
16020 IF LY = 1 AND INT(YE/1000) = YE/1000 THEN LY = 0
16030 RETURN
20000 RESTORE : IF FC = 1 THEN A = FD:B = FM:C = FY: GOTO 20010
20005 READ A,B,C
20010 RETURN
32000 D$ = ""
32001 TEXT : CALL -936
32010 PRINT D$;"RUN MENU"
32020 PRINT D$;"RUN MENU"
32030 END

Text found in Volume_027_Home_and_Personal.dsk/CALC1.int:

5 DIM A$(40),B(40),B$(40)
10 D$=""
15 K=-1
20 CALL 2073:CALL 2173
50 CALL -936
55 PRINT "THE TALKING CALCULATOR BY ROGER KEATING":PRINT
60 PRINT "THE CHARACTERS YOU CAN USE ARE"
70 PRINT
75 PRINT "32767 MAXIMUM - INTEGER ARITHMETIC":PRINT
80 PRINT "0123456789 + * / - = (ESC TO FINISH)"
90 POKE 34,12
100 CALL -936
105 A=0:B=0:I=0
110 X= PEEK (-16384):IF X<127 THEN 110
120 POKE -16368,0
125 IF X=155 THEN 32000
130 IF X<170 OR X>189 THEN 110
140 IF X=172 OR X=174 OR X=186 OR X=187 OR X=188 THEN 110
150 IF X=189 THEN 1000
160 IF X<176 OR X>185 THEN 200
170 PRINT X-176;
172 K=1
175 E=X-175: POKE 6,E:CALL 2054
180 A=10*A+(X-176)
190 GOTO 110
200 IF K>0 THEN 209
201 IF K=-1 AND X=171 THEN 209
202 IF K=-1 AND X=173 THEN 209
206 PRINT "";:GOTO 110
209 I=I+1:B(I)=A:A=0:K=0
210 IF X#171 THEN 220:A$(I)="+":PRINT " + ";: POKE 6,11:CALL 2054
220 IF X#170 THEN 230:A$(I)="*":PRINT " * ";: POKE 6,12:CALL 2054
230 IF X#175 THEN 240:A$(I)="/":PRINT " / ";: POKE 6,14:CALL 2054
240 IF X#173 THEN 250:A$(I)="-":PRINT " - ";: POKE 6,13:CALL 2054
250 GOTO 110
1000 PRINT :PRINT :PRINT " = ";
1001 I=I+1:B(I)=A:A$(I)="=":K=1
1002 POKE 6,15:CALL 2054
1004 ANS=0:FOR N=1 TO I
1005 IF A$(N,N)="*" OR A$(N,N)="/" THEN 1010:GOTO 1050
1010 K=N:FOR T=N+1 TO I
1015 IF A$(T-1,T-1)="*" OR A$(T-1,T-1)="/" THEN 1020
1016 T=I:GOTO 1040
1020 IF A$(T-1,T-1)="*" THEN B(K)=B(K)*B(T)
1030 IF A$(T-1,T-1)="/" THEN B(K)=B(K)/B(T)
1035 N=N+1
1040 NEXT T
1050 NEXT N
1510 ANS=B(1)
1520 IF I=1 THEN 1800
1530 FOR N=1 TO I
1540 IF A$(N,N)="+" THEN ANS=ANS+B(N+1)
1550 IF A$(N,N)="-" THEN ANS=ANS-B(N+1)
1560 NEXT N
1800 IF ANS<0 THEN 1810
1801 IF ANS=0 THEN 1808
1802 POKE 6,11:CALL 2054
1803 GOTO 1850
1808 POKE 6,1:CALL 2054:PRINT 0:GOTO 2000
1810 POKE 6,13:CALL 2054
1840 PRINT "- ";
1845 ANS=-ANS
1850 W=ANS/10000:IF W=0 THEN 1860
1855 POKE 6,W+1:CALL 2054:PRINT W;
1860 ANS=ANS-W*10000
1870 W2=ANS/1000:IF W2=0 AND W=0 THEN 1900
1880 POKE 6,W2+1:CALL 2054:PRINT W2;
1900 ANS=ANS-W2*1000:W3=ANS/100:IF W3=0 AND W2=0 AND W=0 THEN 1930
1910 POKE 6,W3+1:CALL 2054:PRINT W3;
1930 ANS=ANS-W3*100:W4=ANS/10:IF W4=0 AND W3=0 AND W2=0 AND W=0 THEN 1950
1940 POKE 6,W4+1:CALL 2054:PRINT W4;
1950 ANS=ANS-10*W4: POKE 6,ANS+1:CALL 2054:PRINT ANS
2000 VTAB 20:PRINT "HIT ANY KEY TO CONTINUE."
2001 X= PEEK (-16384):IF X<127 THEN 2001
2002 POKE -1668,0:GOTO 50
32000 D$=""
32001 PRINT D$;"RUN MENU"
32002 PRINT D$;"RUN MENU"
32003 END

Text found in Volume_027_Home_and_Personal.dsk/CALCULATOR START.int:

0 POKE 74,60: POKE 75,65
1 CALL -936
2 VTAB 5:PRINT "THE TALKING CALCULATOR BY ROGER KEATING"
3 IF PEEK (761)=201 THEN 4: POKE 761,201:PRINT :PRINT "PLEASE TYPE 'RUN (RETURN)'":PRINT :END
4 CALL -384:VTAB 10:TAB 10
5 PRINT " LOADING DATA NOW ":CALL -380
10 D$=""
20 PRINT D$;"BLOAD NUMBERS"
30 PRINT D$;"BLOAD TALK"
40 PRINT D$;"RUN CALC1"

Text found in Volume_027_Home_and_Personal.dsk/CHECK BOOK BALANCER.bas:

20 REM CHECKBOOK BALANCING PROGRAM
30 REM *** DATA INITIALIZATION ***
40 M1 = 20
50 M2 = 100
60 DIM D(20),C1$(100),C(100),C$(100)
70 TEXT : HOME : VTAB 5
80 DD$ = ""
90 PRINT : INPUT "ENTER DATE OF THE STATEMENT ";DA$
100 PRINT : INPUT "WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$
110 PRINT : INPUT "ENTER BALANCE FROM BANK STAT. $";B
130 PRINT : PRINT "ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"
140 FOR I = 1 TO M1
150 D(I) = 0
160 INPUT "AMOUNT $ ";D$
170 IF LEN(D$) = 0 THEN 200
175 D(I) = VAL(D$)
180 DO = DO +D(I)
190 NEXT I
200 PRINT "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN WHEN DONE."
220 M1 = I -1
230 FOR I = 1 TO M2
240 C1$(I) = " "
250 C(I) = 0
260 INPUT "CK NBR. ";C1$(I): IF LEN(C1$(I)) = 0 THEN 300
265 INPUT "CK AMOUNT $";C$(I): IF LEN(C$(I)) = 0 THEN 300
270 C(I) = VAL(C$(I))
280 CO = CO +C(I)
290 NEXT I
300 PRINT "SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.": PRINT "DON'T FORGET OTHER ADDS AND SUBTRACTS "
320 PRINT "SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."
330 M2 = I -1
340 PRINT
350 INPUT "ENTER BALANCE SHOWN IN CHECKBOOK $";B1
370 REM *** PRINT OF RESULTS ***
380 PRINT
385 IF PRT$ = "Y" THEN PRINT DD$;"PR#1": GOTO 395
390 PRINT "PRESS ANY KEY FOR BALANCE";: GET A$
393 HOME
395 PRINT
420 PRINT TAB( 18);DA$
430 PRINT
440 PRINT "BALANCE FROM STATEMENT"; TAB( 30);"$";B
450 PRINT
460 PRINT "RECENT DEPOSITS NOT SHOWN"
470 FOR I = 1 TO M1
480 PRINT TAB( 30);"$";D(I)
490 NEXT I
500 PRINT TAB( 25);"-------------"
510 PRINT " SUBTOTAL DEPOSITS"; TAB( 30);"$";DO
520 PRINT
530 PRINT TAB( 25);"============="
540 PRINT "TOTAL"; TAB( 30);"$";DO +B
545 IF PRT$ < >"Y" THEN PRINT : PRINT "PRESS ANY KEY FOR OUTSANDING CHECKS";: GET Z$: HOME : PRINT : PRINT
550 PRINT
560 PRINT "CHECKS OUTSTANDING"
570 PRINT TAB( 18);"CHK"; TAB( 30);"AMOUNT"
580 FOR I = 1 TO M2
590 PRINT TAB( 18);C1$(I); TAB( 30);"$";C(I)
600 NEXT I
610 PRINT TAB( 25);"------------"
620 PRINT " SUBTOTAL CHECKS OUT"; TAB( 30);"$";CO
630 PRINT
640 PRINT "======================================="
650 PRINT "BALANCE EXPECTED IN CHECKBOOK"; TAB( 30);"$"; INT((DO +B -CO +.005) *100)/100
660 PRINT "BALANCE IN CHECKBOOK"; TAB( 30);"$";B1
670 PRINT "***************************************"
680 PRINT " DIFFERENCE "; TAB( 30);"$";( INT(DO +B -CO -B1 +.005) *100)/100
681 PRINT "***************************************"
682 IF PRT$ = "Y" THEN PRINT " "
685 IF PRT$ = "Y" THEN PRINT DD$;"PR#0"
695 IF PRT$ < >"Y" THEN PRINT "NOW DO YOU WANT PRINTED RESULTS (Y/N)?": GET Z$
696 PRINT : IF PRT$ < >"Y" AND Z$ = "Y" THEN PRT$ = "Y": HOME : GOTO 380
700 END

Text found in Volume_027_Home_and_Personal.dsk/GAMBLER'S RUIN.bas:

10 CLEAR : HOME
20 PRINT TAB( 12)"GAMBLER'S RUIN"
30 PRINT
40 PRINT TAB( 8)"H.EDELSTEIN NOV 29,1979"
50 PRINT
60 PRINT " SHOWS HOW THE GAMBLER IS RUINED"
70 PRINT "EVEN IF THE ODDS ARE 'FAIR'...THAT IS,"
80 PRINT "EVEN IF HOUSE PERCENT IS CLOSE TO ZERO."
90 PRINT " THE PLAYER'S NET GAIN OR LOSS"
100 PRINT "IS PLOTTED AFTER EACH PLAY."
110 PRINT
120 PRINT " HERE ARE SUGGESTED STARTING VALUES:"
130 PRINT " HOUSE FUNDS: $1000
140 PRINT " HOUSE PERCENTAGE: 5 "
150 PRINT " PLAYER'S FUNDS: $25
160 PRINT " ODDS(E.G. 9 TO 1): 9"
170 PRINT " SIZE OF BET: $1
180 PRINT
190 PRINT "NOW ENTER THESE VALUES OR YOUR OWN:"
200 INPUT " HOUSE FUNDS: $";RH
210 INPUT " HOUSE PERCENTAGE: ";HPCT
220 INPUT " PLAYER'S FUNDS: $";RP
230 IF RP >100 THEN PRINT "SORRY......": PRINT "WE DON'T ALLOW YOU LOSE MORE THAN $100.": GOTO 220
240 INPUT " ODDS: ";ODDS
250 PW = INT((1 -(HPCT/100)) *1000 *(1/(ODDS +1)) +.5)/1000
260 PRINT " (PROB. OF WIN IS: ";PW
270 INPUT " SIZE OF BET: $";B
280 HOME
310 R = RP
320 H = RH
330 P = PW
340 PA = B *ODDS
350 FOR J = 1 TO 100
360 HGR : HCOLOR= 3
370 HPLOT 0,0 TO 0,159
380 HPLOT 0,50 TO 200,50
390 HPLOT 205,25 TO 225,25
400 HPLOT 215,15 TO 215,35
410 HPLOT 205,65 TO 225,65
420 HPLOT 0,50 +R TO 200,50 +R
430 VTAB 22
460 PRINT TAB( 10)"YOU ARE : $"
470 FOR LOOP = 1 TO 100
480 PLAY = RND(1)
490 IF PLAY >P THEN LET L = L +1:RH = RH +B:RP = RP -B: GOTO 520
500 IF PLAY < = P THEN LET W = W +1:RH = RH -PA:RP = RP +PA
510 IF RH < = 0 THEN GOSUB 5000: GOTO 660
520 Y = 50 -(W *PA -L *B)
522 G = Y
525 IF Y > = 159 THEN LET Y = 159
540 IF Y <0 THEN LET Y = 0
542 IF (50 -G) <0 THEN GOSUB 6000
544 IF (50 -G) > = 0 THEN GOSUB 6020
550 VTAB 22: HTAB 32: PRINT 50 -G;" "
555 VTAB 22: HTAB 19: PRINT R$
560 HPLOT LOOP *2,Y
570 N = N +1:FR = W/(W +L):F = INT(FR *1000)/1000
580 IF RP < = 0 THEN GOSUB 4000
590 IF RP < = 0 GOTO 640
592 V = PEEK( -16384)
594 IF V >127 THEN GOTO 660
600 NEXT LOOP
610 NEXT J
620 VTAB 24: PRINT "YOU HAVE NOW HAD 10,000 PLAYS."
630 PRINT "CASH IN YOUR CHIPS:PRESS SPACE BAR.": GET A$: GOTO 660
640 VTAB 24
650 PRINT "YOU ARE WIPED OUT ! PRESS SPACE BAR.": GET A$
660 TEXT : HOME
670 PRINT " BEFORE PLAY"
680 PRINT " -----------------"
690 PRINT " HOUSE FUNDS: $";H
700 PRINT "PLAYER'S FUNDS: $";R
710 PRINT " BET: $";B
720 PRINT "HOUSE PERCENTAGE IS ";HPCT;" WITH ODDS ";ODDS;" TO 1."
730 PRINT "PLAYER'S PROBABILITY OF WIN: ";P
740 PRINT
750 PRINT " AFTER PLAY"
760 PRINT " -----------------"
770 PRINT "NO. OF PLAYS: ";N
780 PRINT "NO. OF WINS: ";W
790 PRINT "NO. OF LOSSES: ";L
800 PRINT "FRACTION WON: ";F
810 PRINT "HOUSE FUNDS: $";RH
820 PRINT "PLAYER'S FUNDS: $";RP
830 PRINT
840 RUIN = INT(100000 *(H/(H +R)))/100000
850 IF HPCT = 0 THEN LET NP = H *R: GOTO 870
860 NP = INT(R/(HPCT *.01) +.5)
870 PRINT "ACCORDING TO PROBABILITY THEORY,"
880 PRINT "YOUR PROBABILITY OF RUIN WAS ";RUIN
890 PRINT "WITHIN ";NP;" PLAYS."
900 PRINT "SEE 'LADY LUCK' BY WEAVER (ANCHOR BOOKS)"
920 INPUT "DO YOU WANT TO GAMBLE AGAIN? ";A$
930 IF LEFT$(A$,1) = "Y" GOTO 10
940 HOME
950 VTAB 10
960 PRINT TAB( 16)"VERY WISE!"
970 FOR Z = 1 TO 1000: NEXT Z
980 HOME : END
4000 FOR FQ = 1 TO 100
4010 TN = PEEK( -16336)
4020 NEXT FQ
4030 RETURN
5000 TEXT : HOME : VTAB 10
5010 PRINT TAB( 18)"LUCKY YOU !"
5020 PRINT : PRINT : PRINT
5030 PRINT TAB( 10)"YOU BROKE THE HOUSE !"
5040 PRINT : PRINT : PRINT : PRINT : PRINT "(BUT ONLY BECAUSE IT WAS LOW IN FUNDS...THIS TIME.)"
5050 FOR Z = 1 TO 2500: NEXT Z
5060 RETURN
6000 R$ = "LOSING "
6010 RETURN
6020 R$ = "WINNING"
6030 RETURN

Text found in Volume_027_Home_and_Personal.dsk/HELLO.bas:

10 PRINT TAB( 14)"HOME AND PERSONAL"

Text found in Volume_027_Home_and_Personal.dsk/LIFE EXPECTANCY-A.bas:

10 HOME : PRINT " < < LIFETIME > >"
15 PRINT : REM WRITTEN BY T. LUKAS 4/2/77
20 PRINT "THIS PROGRAM DETERMINES YOUR LIFE": PRINT "EXPECTANCY. DO YOU WANT INFORMATION";
40 INPUT A$
50 IF LEFT$(A$,1) = "N" THEN 130
55 PRINT
60 PRINT "THE FOLLOWING, THOUGH NOT VALIDATED,": PRINT "IS BASED ON THE BEST SCIENTIFIC EVEDENCE"
70 PRINT "AVAILABLE TODAY. WHILE SCIENTISTS STILL": PRINT "DON'T KNOW ALL OF THE VARIABLES CAUSING"
90 PRINT "LONG LIFE, THEY ARE AWARE OF SOME OF THE": PRINT "PHENOMENA THAT SEEM TO BE CORRELATED"
110 PRINT "WITH LONGEVITY. THIS PROGRAM IS BASED": PRINT "ON THAT DATA AND STARTS WITH PEOPLE"
120 PRINT "AT LEAST 20 YEARS OLD.": PRINT
130 DIM BA(101)
140 PRINT : PRINT "WHAT IS YOUR AGE IN YEARS ";
150 INPUT AY
160 IF AY <20 THEN PRINT "SORRY, YOU MUST BE AT LEAST 20 YEARS OLD": END
170 PRINT : PRINT "WHAT IS YOUR SEX ";
180 INPUT S$
190 FOR I = 0 TO 101: READ BA(I): NEXT I
220 C = AY -20
230 IF LEFT$(S$,1) = "F" THEN C = C +51
240 DATA 69.9,70.0,70.1,70.2,70.3,70.4,70.5,70.6,70.7,70.8
250 DATA 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7
260 DATA 71.8,71.9,72.0,72.2,72.3,72.5,72.6,72.8,73.0,73.2
270 DATA 73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8
280 DATA 76.2,76.5,76.9,77.3,77.7,78.1,78.6,79.0,79.5,79.9
290 DATA 80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4
300 DATA 77.4,77.5,77.5,77.5,77.6,77.6,77.7,77.8,77.8,77.9
310 DATA 78.0,78.0,78.1,78.2,78.3,78.4,78.5,78.6,78.7,78.9
320 DATA 79.0,79.1,79.3,79.4,79.6,79.7,79.9,80.1,80.3,80.5
330 DATA 80.7,80.9,81.2,81.4,81.6,81.9,82.2,82.4,82.7,83.0
340 DATA 83.3,83.6
350 PRINT : PRINT "YOUR BASE LIFE EXPECTANCY IS": PRINT BA(C)
360 PRINT :T = BA(C)
370 GOSUB 3000
380 PRINT "PART I HEREDITY"
390 GOSUB 3000
400 PRINT : PRINT "DID AT LEAST TWO OF YOUR GRANDPARENTS": PRINT "LIVE TO AGE 80 OR MORE ";
420 INPUT A$
430 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"+0=";T: GOTO 460
440 PRINT TAB( 10);T;"+2=";T +2
450 T = T +2
460 PRINT
470 PRINT "WHAT IS/WAS YOUR MOTHER'S AGE ";
480 INPUT A
490 IF A <80 THEN PRINT TAB( 10);T;"+0=";T: GOTO 510
500 PRINT TAB( 10);T;"+1.5=";T +1.5:T = T +1.5
510 PRINT
520 PRINT "WHAT IS WAS YOUR FATHER'S AGE ";
530 INPUT A
540 IF A <80 THEN PRINT TAB( 10);T;"+0=";T: GOTO 560
550 PRINT TAB( 10);T;"+2=";T +2:T = T +2
560 PRINT
570 PRINT "DID ANY OF YOUR GRANDPARENTS, PARENTS,": PRINT "BROTHERS OR SISTERS DIE OF HEART"
580 PRINT "ATTACK OR STROKE BEFORE AGE 50 ";
600 INPUT A$
610 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"-0=";T: GOTO 640
620 PRINT TAB( 10);T;"-4=";T -4
630 T = T -4
640 PRINT
650 PRINT "DID ANY OF THE ABOVE DIE OR HEART ATTACK": PRINT "OR STROKE BEFORE AGE 60 ";
670 INPUT A$
680 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"-0=";T: GOTO 710
690 PRINT TAB( 10);T;"-2=";T -2:T = T -2
710 PRINT
720 PRINT "WHAT IS THE TOTAL NUMBER OF INCIDENCES": PRINT "OF DIABETES, THYROID DISORDER, BREAST"
730 PRINT "CANCER (WOMEN), DIGESTIVE SYSTEM CANCER": PRINT "ASTHMA, EMPHYSEMA AND/OR CHRONIC"
740 PRINT "BRONCHITIS FOUND IN YOUR PARENTS AND": PRINT "GRANDPARENTS ";
760 INPUT A
770 PRINT TAB( 10);T;"-3 X";A;" =";T -3 *A
780 T = T -3 *A: PRINT
790 GOSUB 3000
800 PRINT "PART II HEALTH AND DIET"
810 GOSUB 3000
820 PRINT
830 PRINT "HOW MANY POUNDS OVERWEIGHT ARE YOU ";: INPUT A
850 IF A = 0 THEN B = 0: GOTO 870
860 B = A/10
870 PRINT TAB( 10);T;"-";B;" =";T -B:T = T -B: PRINT
900 PRINT "HOW MANY PACKS OF CIGARETS DO YOU SMOKE": PRINT "A DAY ";: INPUT A
920 IF A = 0 THEN B = 0: GOTO 1000
930 IF A <1 THEN B = 2: GOTO 1000
940 IF A = 1 THEN B = 4: GOTO 1000
950 IF A <1.5 THEN B = 5.5: GOTO 1000
960 IF A <2 THEN B = 7: GOTO 1000
970 IF A = 2 THEN B = 8: GOTO 1000
980 IF A <3 THEN B = 10: GOTO 1000
990 IF A = >4 THEN B = 12: GOTO 1000
1000 PRINT TAB( 10);T;"-";B;" =";T -B:T = T -B: PRINT
1030 PRINT "HOW MANY DRINKS DO YOU HAVE EACH DAY ";: INPUT A
1050 IF A = 0 THEN PRINT TAB;T;"-1=";T -1:T = T -1: GOTO 1080
1060 IF A < = 2 THEN PRINT TAB( 10);T;"+3=";T +3:T = T +3: GOTO 1080
1070 IF A >2 THEN PRINT TAB( 10);T;"-8=";T -8:T = T -8: GOTO 1080
1080 PRINT :E$ = "DO YOU WANT AN EXPLANATION OF THIS": PRINT E$
1090 INPUT A$
1100 IF LEFT$(A$,1) = "N" THEN 1170
1110 PRINT : PRINT "MODERATE DRINKING (UP TO TWO DRINKS PER": PRINT "DAY) REDUCES STRESS AND AIDS DIGESTION."
1120 PRINT "HEAVY DRINKING, HOWEVER, PRODUCES": PRINT "PHYSIOLOGICAL DAMAGE. AS FOR TEETOTALER"
1130 PRINT "THEY MAY HAVE RATHER RIGID VALUE SYSTEMS": PRINT "AND MAY UNDERGO STRESS IN MAINTAINING": PRINT "THEM."
1170 PRINT
1180 PRINT "DO YOU EXERSISE MODERATELY--JOG, BIKE": PRINT "RIDE, TAKE LONG WALKS, SWIM--AT LEAST"
1190 PRINT "2 OR 3 TIMES A WEEK ";: INPUT A$
1210 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"+0=";T: GOTO 1230
1220 PRINT TAB( 10);T;"+3=";T +3:T = T +3
1230 PRINT : PRINT "HOW MANY HOURS DO YOU SLEEP EACH DAY ";: INPUT A
1260 IF A <9 THEN PRINT TAB( 10);T;"-0=";T: GOTO 1290
1270 IF A = 9 THEN PRINT TAB( 10);T;"-4=";T -4:T = T -4: GOTO 1290
1280 IF A = >10 THEN PRINT TAB( 10);T;"-6=";T -6:T = T -6
1290 PRINT : PRINT E$
1300 INPUT A$: IF LEFT$(A$,1) = "N" THEN 1360
1315 PRINT : PRINT "ADULTS THAT SLEEP TOO MUCH US TOO MANY": PRINT "HOURS IN NONPHYSICAL ACTIVITY AND MAY"
1320 PRINT "BE UNHAPPY AND SLEEP AS AN ESCAPE OR": PRINT "MAY BE ILL. DEPRESSED PEOPLE HAVE"
1330 PRINT "SHORTER LIFE EXPECTANCIES."
1360 PRINT
1370 IF LEFT$(S$,1) = "F" AND AY < = 30 OR LEFT$(S$,1) = "M" AND AY < = 40 THEN 1490
1380 IF LEFT$(S$,1) = "M" THEN 1440
1390 PRINT "DO YOU HAVE A BREAST EXAMINATION AND PAP": PRINT "SMEAR AT LEAST ONCE A YEAR ";
1400 INPUT A$: IF LEFT$(A$,1) = "N" THEN PRINT T
1415 PRINT TAB( 10);T;"+2=";T +2:T = T +2: PRINT
1420 GOTO 1490
1440 PRINT "DO YOU HAVE A PHYSICAL AND PR0CTOSCOPIC": PRINT "EXAMINATION AT LEAST ONCE A YEAR ";
1450 INPUT A$: IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"+0=";T: GOTO 1480
1470 PRINT TAB( 10);T;"+2=";T +2:T = T +2
1480 PRINT
1490 GOSUB 3000
1500 PRINT "PART III EDUCATION AND OCCUPATION": GOSUB 3000
1520 PRINT : PRINT "STARTING FROM THE FIRST GRADE, WHAT ARE": PRINT "THE TOTAL NUMBER OF YEARS YOU ATTENDED": PRINT "SCHOOL ";
1550 INPUT A
1560 IF A <12 THEN PRINT TAB( 10);T;"-2=";T -2:T = T -2: GOTO 1600
1570 IF A <14 THEN PRINT TAB( 10);T;"+0=";T: GOTO 1600
1580 IF A <17 THEN PRINT TAB( 10);T;"+1=";T +1:T = T +1: GOTO 1600
1590 IF A = >17 THEN PRINT TAB( 10);T;"+3=";T +3:T = T +3
1600 PRINT : PRINT E$
1610 INPUT A$: IF LEFT$(A$,1) = "N" THEN 1650
1625 PRINT : PRINT "ALTHOUGH ATTENDING SHOOL DOES NOT MAKE": PRINT "YOU LIVE LONGER, MORE EDUCATION"
1630 PRINT "CORRELATES WITH INCREASED INCOME, AND": PRINT "ACCESS TO BETTER HEALTH CARE."
1650 PRINT : PRINT "IS YOUR OCCUPATION CLASSIFIED AS PROFESSIONAL ";: INPUT A$
1680 IF LEFT$(A$,1) = "N" THEN 1730
1690 PRINT "ARE YOU A MUSICAN, ARCHITECT OR": PRINT "PHARMACIST ";: INPUT A$
1710 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"+2=";T +2:T = T +2: GOTO 1780
1720 PRINT TAB( 10);T;"-1=";T -1:T = T -1: GOTO 1780
1730 PRINT "DO YOU WORK IN RUGGED HEAVY WORK OR AS": PRINT "A COOK, CHEF, OR BAKER ";: INPUT A$
1750 IF LEFT$(A$,1) = "N" THEN 1770
1760 PRINT TAB( 10);T;"-2=";T -2:T = T -2: GOTO 1780
1770 PRINT TAB( 10);T;"+0=";T
1780 PRINT : PRINT E$
1790 INPUT A$: IF LEFT$(A$,1) = "N" THEN 1880
1810 PRINT : PRINT "PROFESSIONALS USUALLY LIVE LONGER EXCEPT": PRINT "MUSICIANS, ARCHITECTS AND PHARMACISTS."
1820 PRINT "WHY THIS IS TRUE IS UNKNOWN AT THE": PRINT "PRESENT TIME. YOU HAVE A GREATER CHANCE"
1830 PRINT "OF BEING INVOLVED IN A ACCIDENT IF YOU": PRINT "WORK AT RUGGED HEAVY LABOR. PEOPLE"
1840 PRINT "WHO WORK AT JOBS ASSOCIATED WITH OVER-": PRINT "EATING ALSO HAVE A LOWER LIFE SPAN.": PRINT
1880 PRINT : PRINT "IS YOUR ANNUAL INCOME OVER $40,000 ";
1900 INPUT A$
2000 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"-0="T: GOTO 2020
2010 PRINT TAB( 10);T;"-2=";T -2:T = T -2
2020 PRINT : PRINT E$
2030 INPUT A$: IF LEFT$(A$,1) = "N" THEN 2070
2045 PRINT : PRINT "PEOPLE WITH HIGHER INCOMES USUALLY": PRINT "EXPERIENCE MORE STRESS EARNING THEM AND"
2060 PRINT "CONSUME MORE RICH FOOD."
2070 PRINT
2080 PRINT "IS YOUR JOB ACTIVE OR SEDENTARY ";: INPUT A$
2100 IF LEFT$(A$,1) = "A" THEN PRINT TAB( 10);T;"+3=";T +3:T = T +3: GOTO 2120
2110 PRINT TAB( 10);T;"-3=";T -3:T = T -3: PRINT
2120 PRINT
2130 IF AY <61 GOTO 2180
2140 PRINT "ARE YOU STILL WORKIN G ";: INPUT A$
2150 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"+0=";T: GOTO 2170
2160 PRINT TAB( 10);T;"+2=";T +2:T = T +2
2170 PRINT
2180 GOSUB 3000
2190 PRINT "PART IV LIFESTYLE"
2200 GOSUB 3000
2210 PRINT : PRINT "DO YOU LIVE IN A RURAL OR AN URBAN AREA";: INPUT A$
2240 IF LEFT$(A$,1) = "R" THEN PRINT TAB( 10);T;"+1=";T +1:T = T +1: GOTO 2260
2250 PRINT TAB( 10);T;"-1=";T -1:T = T -1
2260 PRINT : PRINT "ARE YOU MARRIED OR LIVING WITH SOMEONE": PRINT "ON A PERMANENT BASIS ";: INPUT A$
2300 IF LEFT$(A$,1) = "Y" THEN PRINT TAB( 10);T;"+3=";T +3:T = T +3: GOTO 2360
2310 A = AY -25: IF A < = 0 THEN A = 0: GOTO 2350
2320 PRINT "HOW MANY OF THE PAST ";A;" YE
2340 A = A/10
2350 PRINT TAB( 10);T;"-";A;"=";T -A:T = T -A
2360 PRINT : PRINT "ON A SCALE OF 0 TO 3, HOW MUCH OF A": PRINT "CALM PASSIVE PERSON ARE YOU": PRINT "(3 IS THE MOST CALM)";
2390 INPUT A: PRINT TAB( 10);T;"+";A;"=";T +A:T = T +A: PRINT
2420 PRINT "ON A SCALE OF 0 TO 5, HOW MUCH OF AN": PRINT "AGGRESSIVE, INTENSE AND COMPETITIVE "
2430 PRINT "PERSON ARE YOU (5 IS THE MOST AGGRESSIVE": PRINT "INTENSE AND/OR COMPETITIVE.)"
2450 INPUT A
2460 PRINT TAB( 10);T;"-";A;"=";T -A:T = T -A: PRINT
2480 PRINT "DO YOU USE YOUR CAR'S SEAT BELTS AND": PRINT "FOLLOW SPEED LIMITS REGULARLY ";: INPUT A$
2510 IF LEFT$(A$,1) = "N" THEN PRINT TAB( 10);T;"+0=";T: GOTO 2530
2520 PRINT TAB( 10);T;"+1=";T +1:T = T +1
2530 PRINT : PRINT "ON THE FOLLOWING SCALE HOW WOULD YOU": PRINT "RATE YOURSELF?"
2545 PRINT
2550 PRINT " HAPPY: 3 2 1 0 -1 -2 -3 UNHAPPY"
2560 PRINT TAB( 12);
2570 INPUT A
2580 IF A = >0 THEN PRINT TAB( 10);T;"+";A;"=";T +A:T = T +A: GOTO 2600
2590 PRINT TAB( 10);T;"+";A;"=";T +A:T = T +A
2600 PRINT : PRINT
2610 GOSUB 3000
2620 PRINT " YOUR LIFE EXPECTANCY IS ";T;" YEARS"
2630 GOSUB 3000
2640 PRINT : PRINT : PRINT
2999 STOP
3000 FOR X = 1 TO 40: PRINT "-";: NEXT X: RETURN

Text found in Volume_027_Home_and_Personal.dsk/NUMEROLOGY.int:

2 CALL -936
3 VTAB 12:TAB 10
4 PRINT "N U M E R O L O G Y"
5 FOR I=1 TO 2000:NEXT I
6 PRINT :TAB 19:PRINT "BY":PRINT :TAB 9:PRINT "TED AND MARY ROSEMANN":PRINT :TAB 18:PRINT "1980"
7 FOR I=1 TO 2500:NEXT I
8 PR # 0:REM PRINTER 'OFF'
9 PRINT "":REM PRINTER DESELECTED
10 CALL -936
12 GOTO 5000
15 K= PEEK (-16384):CALL -384:FOR DL=1 TO 100:NEXT DL
16 VTAB 23:TAB 39:PRINT ">":CALL -380:FOR DL=1 TO 100:NEXT DL
17 VTAB 23:TAB 39:PRINT ">"
18 IF K<128 THEN 15
19 POKE -16368,0:RETURN
30 K= PEEK (-16384)
45 VTAB 23:PRINT "DO YOU WANT THIS PRINTED OUT (Y/N) ?"
47 IF K<128 THEN 30
48 IF K#217 THEN 60
49 POKE -16368,0:K=0
50 PR # 1:PRINT "":REM PRINTER 'ON ' & SELECTED
52 PF=1
54 GOTO 500+(ZZ*10)
60 POKE -16368,0
65 CALL -936
70 TAB 16:PRINT "M E N U":PRINT
80 PRINT "TO EVALUATE YOUR NUMEROLOGY VALUES 0F:":PRINT
90 TAB 11:PRINT "YOUR NAME......1 ":PRINT
100 TAB 11:PRINT "LIFE CYCLE.....2 ":PRINT
110 TAB 11:PRINT "DAILY CYCLE....3 ":PRINT
120 TAB 11:PRINT "COMPATIBILITY"
130 TAB 11:PRINT " OF NAMES..4":PRINT
140 TAB 11:PRINT "YOUR JOB.......5":PRINT
150 TAB 11:PRINT "END NUMEROLOGY.6":PRINT
160 RETURN
200 VTAB 23:PRINT "NOT A VALID ENTRY"
210 FOR DL=1 TO 1000:NEXT DL
220 VTAB 23:PRINT " ":RETURN
250 F2=1:F1=F2+F1:RETURN
255 F2=2:F1=F2+F1:RETURN
260 F2=3:F1=F2+F1:RETURN
265 F2=4:F1=F2+F1:RETURN
270 F2=5:F1=F2+F1:RETURN
275 F2=6:F1=F2+F1:RETURN
280 F2=7:F1=F2+F1:RETURN
285 F2=8:F1=F2+F1:RETURN
290 F2=9:F1=F2+F1:RETURN
295 G2=1:G1=G2+G1:RETURN
300 G2=5:G1=G2+G1:RETURN
305 G2=9:G1=G2+G1:RETURN
310 G2=6:G1=G2+G1:RETURN
315 G2=3:G1=G2+G1:RETURN
500 PRINT "":GOTO 5010
510 PRINT ""
511 PRINT A$:PRINT ""
515 GOTO 1310
520 PRINT ""
522 GOTO 1408
530 PRINT ""
532 GOTO 1600
540 PRINT ""
542 GOSUB 1800
544 PRINT ""
545 PRINT ZZ$;" WITH ";A$
546 PRINT "":GOTO 1892
550 PRINT ""
552 GOTO 1935
1000 GOSUB 30:GOTO 1004
1002 GOSUB 65
1004 VTAB 20:PRINT "WHICH ONE DO YOU WISH TO INTERPRET ? "
1005 K9= PEEK (-16384):IF K9<127 THEN 1005
1007 POKE -16368,0
1010 IF K9= ASC("1") THEN 1200:IF K9= ASC("2") THEN 1400:IF K9= ASC("3") THEN 1600
1040 IF K9= ASC("4") THEN 1800:IF K9= ASC("5") THEN 1900:IF K9= ASC("6") THEN 9999
1100 GOSUB 200
1110 GOTO 1004
1200 CALL -936
1205 ZZ=1
1210 TAB 12:PRINT "Y O U R N A M E":PRINT
1220 INPUT "WHAT IS YOUR FULL LEGAL NAME ? ",A$
1230 T7=0:IF A$="" THEN 1200
1240 A1= LEN(A$)
1250 IF K9= ASC("1") THEN T7=1
1255 B1=B1+1
1260 IF K9= ASC("4") THEN T7=T7+1
1265 F1=0:G1=0
1270 FOR C1=0 TO A1-1
1275 D1=A1-C1:Z$=A$(D1,D1)
1280 IF Z$="J" OR Z$="S" THEN GOSUB 250:IF Z$="B" OR Z$="K" OR Z$="T" THEN GOSUB 255:IF Z$="C" OR Z$="L" THEN GOSUB 260
1281 IF Z$="D" OR Z$="M" OR Z$="V" THEN GOSUB 265:IF Z$="N" OR Z$="W" THEN GOSUB 270:IF Z$="F" OR Z$="X" THEN GOSUB 275
1282 IF Z$="G" OR Z$="P" OR Z$="Y" THEN GOSUB 280:IF Z$="H" OR Z$="Q" OR Z$="Z" THEN GOSUB 285:IF Z$="R" THEN GOSUB 290
1283 IF Z$="A" THEN GOSUB 295:IF Z$="E" THEN GOSUB 300:IF Z$="I" THEN GOSUB 305:IF Z$="O" THEN GOSUB 310:IF Z$="U" THEN GOSUB 315
1284 NEXT C1
1285 E1=F1+G1:H1=F1 MOD 100:I1=F1/100:J1=H1 MOD 10:K1=H1/10:L1=I1+J1+K1
1286 M1=L1 MOD 10:N1=L1/10:O1=N1+M1:P1=O1 MOD 10:Q1=O1/10:R1=P1+Q1
1287 S1=G1 MOD 100:T1=G1/100:U1=S1 MOD 10:V1=S1/10:W1=T1+U1+V1:X1=W1 MOD 10:Y1=W1/10
1288 Z1=X1+Y1:A2=Z1 MOD 10:B2=Z1/10:C2=A2+B2:D2=E1 MOD 100:E2=E1/100
1289 H2=D2 MOD 10:I2=D2/10:J2=I2+H2+E2:K2=J2 MOD 10:L2=J2/10:M2=K2+L2
1290 N2=M2 MOD 10:O2=M2/10:P2=N2+O2
1291 IF T7>1 THEN 1810
1292 ZZ$=A$:A7=P2
1293 IF K9= ASC("4") THEN 1810
1294 CALL -936:TAB 12:PRINT "Y O U R N A M E":PRINT :PRINT
1295 VTAB 4:PRINT "NAME:";ZZ$:PRINT :PRINT
1296 PRINT "VOWEL VALUE.....................";C2:PRINT :PRINT
1297 PRINT "CONSONANT VALUE.................";R1:PRINT :PRINT
1298 PRINT "TOTAL NAME VALUE................";P2:PRINT :PRINT
1300 GOSUB 15
1305 CALL -936:TAB 12:PRINT "Y O U R N A M E"
1310 IF PF=1 THEN PRINT ""
1311 VTAB 4:PRINT "YOUR VOWEL VALUE OF ";C2;" MEANS: ":PRINT :IF PF=1 THEN PRINT ""
1315 GOSUB 10000+(C2*20)
1320 IF PF=1 THEN PRINT ""
1321 VTAB 13:PRINT "YOUR CONSONANT VALUE OF ";R1;" MEANS: ":PRINT :IF PF=1 THEN PRINT ""
1325 GOSUB 11000+(R1*20)
1328 IF PF=1 THEN 1350:REM PRINTER SELECTED
1330 GOSUB 15
1340 CALL -936:TAB 12:PRINT "Y O U R N A M E"
1350 IF PF=1 THEN PRINT ""
1351 VTAB 3:PRINT "YOUR FULL NAME VALUE OF ";P2;" MEANS: ":PRINT :IF PF=1 THEN PRINT ""
1355 GOSUB 12000+(P2*40)
1358 IF PF=1 THEN 1380
1360 GOTO 1000
1380 PR # 0:PRINT "":PF=0:GOTO 1002
1400 CALL -936
1402 ZZ=2
1405 IF A=0 THEN 1435
1408 TAB 10:PRINT "L I F E C Y C L E ":PRINT :IF PF=1 THEN PRINT ""
1410 VTAB 4:PRINT "YOUR BIRTHDAY ",A;",";B;",";C:PRINT :IF PF=1 THEN PRINT "":IF PF=1 THEN 1535
1415 INPUT "CORRECT (Y/N) ? ",DD$
1420 IF DD$="Y" THEN 1533:IF DD$="N" THEN 1435
1430 GOTO 1415
1435 CALL -936:TAB 10:PRINT "L I F E C Y C L E "
1440 VTAB 4:PRINT "YOUR BIRTHDAY: ENTER MONTH ]"
1445 VTAB 4:TAB 34:INPUT A
1450 IF A>0 AND A<13 THEN 1465
1455 GOSUB 200
1460 GOTO 1440
1465 VTAB 6:TAB 21:PRINT "ENTER DAY ]"
1470 VTAB 6:TAB 34:INPUT B
1475 IF B>0 AND B<32 THEN 1490
1480 GOSUB 200
1485 GOTO 1465
1490 VTAB 8:TAB 20:PRINT "ENTER YEAR ]"
1495 VTAB 8:TAB 34:INPUT C
1500 IF C>999 AND C<10000 THEN 1515
1505 GOSUB 200
1510 GOTO 1490
1515 PRINT :PRINT :PRINT :Z=A+B+C
1520 D=Z MOD 1000:E=Z/1000:F=D MOD 100:G=D/100:H=F MOD 10:I=F/10:L=H+E+G+I
1525 M=L MOD 10:N=L/10:O=M+N:P=O MOD 10:Q=O/10
1530 IF K9= ASC("5") THEN 1940
1533 CALL -936:TAB 10:PRINT "L I F E C Y C L E"
1534 VTAB 3
1535 PRINT "YOUR LIFE CYCLE NUMBER IS ",P+Q:PRINT ""
1540 GOSUB 13000+((P+Q)*40)
1543 IF PF=1 THEN 1380
1545 GOTO 1000
1600 CALL -936:TAB 9:PRINT "D A I L Y C Y C L E ":IF PF=1 THEN PRINT "":IF PF=1 THEN GOTO 1693
1602 ZZ=3
1603 VTAB 4
1605 PRINT "TODAY'S DATE: ENTER MONTH ]"
1610 VTAB 4:TAB 34:INPUT R
1615 IF R<13 AND R>0 THEN 1630
1620 GOSUB 200
1625 GOTO 1600
1630 VTAB 6:TAB 21:PRINT "ENTER DAY ]"
1635 VTAB 6:TAB 34:INPUT S
1640 IF S>0 AND S<32 THEN 1655
1645 GOSUB 200
1650 GOTO 1630
1655 VTAB 8:TAB 20:PRINT "ENTER YEAR ]"
1660 VTAB 8:TAB 34:INPUT T
1665 IF T>999 AND T<10000 THEN 1680
1670 GOSUB 200
1675 GOTO 1655
1680 PRINT :PRINT :Y=R+S+T
1685 AA=Y MOD 1000:BB=Y/1000:CC=AA MOD 100:DD=AA/100:EE=CC MOD 10:FF=CC/10
1690 GG=BB+DD+FF+EE:HH=GG MOD 10:II=GG/10:JJ=HH+II:KK=JJ MOD 10:LL=JJ/10
1693 IF PF=1 THEN PRINT "TODAY'S DATE ";R;",";S;",";T:IF PF=1 THEN PRINT ""
1695 PRINT "YOUR DAILY CYCLE NUMBER IS",KK+LL:IF PF=1 THEN PRINT "":IF PF=1 THEN GOTO 1698:GOSUB 15
1696 CALL -936:VTAB 4:TAB 8:PRINT "DAILY CYCLE NUMBER":PRINT :PRINT :PRINT
1698 GOSUB 14000+((KK+LL)*40)
1699 IF PF=1 THEN 1380
1700 GOTO 1000
1800 CALL -936:TAB 8:PRINT "C O M P A T A B I L I T Y":IF PF=1 THEN RETURN :PRINT
1802 ZZ=4
1805 IF ZZ$#"" THEN T7=1
1810 IF ZZ$="" THEN GOTO 1220
1815 IF T7>1 THEN 1845
1820 PRINT "YOUR NAME ":PRINT
1825 PRINT ZZ$:PRINT
1830 INPUT "CORRECT (Y/N)?",DD$:IF DD$="N" THEN 1220:PRINT
1835 INPUT "WHAT IS THE OTHER PERSON'S NAME ? ",A$
1840 GOTO 1240
1845 A3=A7+P2:B3=A3 MOD 10:C3=A3/10:D3=B3+C3
1850 CALL -936:TAB 8:PRINT "C O M P A T A B I L I T Y":PRINT
1855 PRINT "YOUR NAME :":PRINT
1860 PRINT " ";ZZ$:PRINT
1865 PRINT "NAME VALUE NUMBER : ";A7:PRINT
1870 PRINT "----------------------------------------":PRINT
1875 PRINT "OTHER NAME :":PRINT
1880 PRINT " ";A$:PRINT
1885 PRINT "NAME VALUE NUMBER : ";P2:PRINT
1890 PRINT "----------------------------------------":PRINT
1892 PRINT "NAME COMPATIBILITY NUMBER : ";D3:IF PF=1 THEN PRINT "":IF PF=1 THEN 1894:GOSUB 15
1893 CALL -936:VTAB 4:TAB 7:PRINT "NAME COMPATIBILITY NUMBER":PRINT :PRINT :PRINT
1894 PRINT "YOU BOTH ARE COMPATIBLE IN":PRINT :PRINT "THE FOLLOWING INTERESTS :":PRINT
1896 GOSUB 15000+(D3*40):IF PF=1 THEN 1380
1897 GOTO 1000
1900 CALL -936:TAB 13:PRINT "Y O U R J O B":ZZ=5:PRINT :IF A#0 THEN 1915
1910 VTAB 4:GOTO 1440
1915 PRINT "YOUR BIRTHDAY ? ";A;",";B;",";C:PRINT
1920 INPUT "CORRECT (Y/N) ? ",EE$:PRINT
1925 IF EE$="N" THEN CALL -936
1930 IF EE$#"N" THEN 1940
1935 TAB 13:PRINT "Y O U R J O B":PRINT :IF PF=1 THEN 1940:IF EE$="N" THEN 1440
1940 PRINT "YOUR JOB NUMBER .......",P+Q:IF PF=1 THEN PRINT "":IF PF=1 THEN 1943
1941 GOSUB 15
1942 CALL -936:VTAB 4:TAB 13:PRINT "Y O U R J O B":PRINT :PRINT :PRINT
1943 PRINT "JOBS THAT MAY BE SUITABLE FOR YOU ARE :":PRINT
1945 GOSUB 16000+((P+Q)*40)
1946 IF PF=1 THEN 1380
1950 GOTO 1000
5000 DIM A$(39):DIM Q2$(39):DIM ZZ$(39):DIM DD$(39)
5010 TAB 11:PRINT "N U M E R O L O G Y ":PRINT
5011 IF PF=1 THEN PRINT ""
5015 ZZ=0
5020 PRINT "****************************************"
5030 TAB 4:PRINT "NUMEROLOGY DEALS WITH TODAY'S CONCEPT"
5035 IF PF=1 THEN PRINT
5040 PRINT "OF THE VIBRATORY POWER OF NUMBERS. IT":PRINT
5050 PRINT "IS BASED UPON OBSERVATION, EXPERIENCE ":PRINT
5060 PRINT "AND CONCLUSIONS DRAWN CONSISTENTLY FROM "
5065 IF PF=1 THEN PRINT
5070 PRINT "THE SAME SET OF CIRCUMSTANCES. ITS ":PRINT
5080 PRINT "EARLY CONCEPTS LED TO THE BEGINNING OF ":PRINT
5090 PRINT "STRUCTURED MATHEMATICS, A PRIME PRE- ":PRINT
5100 PRINT "REQUSITE FOR THE STUDY OF THE MEASURE-":PRINT
5110 PRINT "MENT AND MOTION OF THE STARS.":PRINT
5120 IF PF=1 THEN 1380
5130 GOTO 1000
9999 CALL -936:TAB 11:PRINT "END OF NUMEROLOGY":END
10000 PRINT "NO MEANING FOR ZERO ":RETURN
10020 PRINT "YOU WISH TO LEAD AND DIRECT OTHERS.":PRINT
10023 PRINT "YOU DISPLAY THE QUALITIES OF STRONG":PRINT
10026 PRINT "WILL, COURAGE AND DETERMINATION.":RETURN
10040 PRINT "YOU WISH TO BE FRIENDLY AND HELP OTHERS":PRINT
10043 PRINT "IN LITTLE WAYS. YOU DISPLAY THE":PRINT
10046 PRINT "QUALITIES OF TACT, DIPLOMACY AND HARMONY":RETURN
10060 PRINT "YOU WISH TO FIND THE GOOD SIDE OF LIFE.":PRINT
10063 PRINT "YOU ENJOY GOOD DISCUSSIONS AND ARE A":PRINT
10066 PRINT "NATURAL ENTERTAINER.":RETURN
10080 PRINT "YOU WISH TO SEE A GOOD JOB WELL DONE AND"
10081 IF PF=1 THEN PRINT
10083 PRINT "ESTABLISH A ROUTINE. YOU LIKE THINGS":PRINT
10086 PRINT "MANAGED IN AN ORDERLY AND PRACTICAL WAY.":RETURN
10100 PRINT "YOU SEEK FREEDOM AND AN ADVENTUROUS WAY":PRINT
10103 PRINT "OF LIFE. YOU SHOW YOUR LOVE OF VARIETY":PRINT
10106 PRINT "IN LIFE AND YOUR CLEVERNESS.":RETURN
10120 PRINT "YOU ENJOY SERVICE TO OTHERS AND ARE A":PRINT
10123 PRINT "NATURAL HUMANITARIAN. BEAUTY, TRUTH AND":PRINT
10126 PRINT "LOVE ARE A NECESSITY TO YOU.":RETURN
10140 PRINT "MYSTICISM AND MYSTERIOUS FORCES ATTRACT":PRINT
10143 PRINT "YOU. YOUR INTUITION IS WELL DEVELOPED.":PRINT
10146 PRINT "YOU ENJOY THE STUDY OF PSYCHIC PHENOMENA":RETURN
10160 PRINT "YOU WISH FOR POWER, POSITION, AND":PRINT
10163 PRINT "SUCCESS. YOU ARE ABLE TO WORK LONG AND":PRINT
10166 PRINT "HARD TO ACHIEVE THE BEST OF EVERYTHING.":RETURN
10180 PRINT "YOU HAVE A VISION OF BEAUTY FOR THE":PRINT
10183 PRINT "WORLD. YOU ARE ATTUNED TO FINER THINGS":PRINT
10186 PRINT "IN LIFE. WOULD HAVE ARTISTRY AT ITS BEST":RETURN
10200 PRINT "YOU ENJOY SERVICE TO OTHERS AND ARE A":PRINT
10203 PRINT "NATURAL HUMANITARIAN. BEAUTY, TRUTH AND":PRINT
10206 PRINT "A NECESSITY TO YOU.":RETURN
11000 VTAB 16:PRINT "NO MEANING OF ZERO":RETURN
11020 VTAB 16:PRINT "YOU ARE CHARACTERIZED BY STRONG WILL":PRINT
11023 PRINT "POWER AND AMBITION. YOU NEED A WORTHY":PRINT
11026 PRINT "PURPOSE FOR ENTHUSIASM.":RETURN
11040 VTAB 16:PRINT "YOU VISUALIZE ENCHANTED CASTLES. YOU":PRINT
11043 PRINT "HAVE FAITH IN THE BELIEF OF GOOD OVER":PRINT
11046 PRINT "EVIL.":RETURN
11060 VTAB 16:PRINT "YOU HAVE FAITH IN THE FUTURE. PURPOSE":PRINT
11063 PRINT "OF YOUR LIFE WILL BE ACHIEVED REGARDLESS"
11064 IF PF=1 THEN PRINT
11066 PRINT "OF PRESENT CIRCUMSTANCES.":RETURN
11080 VTAB 16:PRINT "YOU ARE VERY SELF-RELIANT BECAUSE OF":PRINT
11083 PRINT "YOUR STABILITY AND BALANCE. YOUR POWER":PRINT
11086 PRINT "IS THE ANSWER TO YOUR OWN NEEDS.":RETURN
11100 VTAB 16:PRINT "YOU ARE IMAGINATIVE AND A DREAMER. YOUR":PRINT
11103 PRINT "HAPPINES IS FOR THE PRESENT AS YOU":PRINT
11106 PRINT "FEARLESSLY GO THROUGH LIFE.":RETURN
11120 VTAB 16:PRINT "COMFORT AND HARMONY ARE NECESSARY":PRINT
11123 PRINT "FOR YOUR WELL-BEING. YOU ENJOY THE":PRINT
11126 PRINT "PEACE OF SOLITUDE.":RETURN
11140 VTAB 16:PRINT "YOU ARE NOT SURPRISED EASILY AND ARE":PRINT
11143 PRINT "PREPARED FOR ANYTHING. QUIETNESS AND":PRINT
11146 PRINT "RELAXATION ARE NATURAL TO YOU.":RETURN
11160 VTAB 16:PRINT "YOU KNOW HOW TO GET ALONG WELL WITH":PRINT
11163 PRINT "YOURSELF. STRONG PROTECTIVE FORCES ":PRINT
11166 PRINT "SURROUND YOU AS YOU DEAL WITH PROBLEMS.":RETURN
11180 VTAB 16:PRINT "YOU ARE NOTED FOR YOUR TRUTH AND":PRINT
11183 PRINT "JUSTICE. YOUR EMOTIONS ARE BALANCED":PRINT
11186 PRINT "AND YOUR CONSCIENCE IS YOUR GUIDE.":RETURN
12040 PRINT "YOUR INDIVIDUALITY DISTINGUISHES YOU.":PRINT
12043 PRINT "YOU MUST HELP OTHERS TO FIND THEMSELVES."
12044 IF PF=1 THEN PRINT
12046 PRINT "THE WORLD LOOKS TO YOU FOR COURAGE AND":PRINT
12049 PRINT "STRENGTH. YOU ARE A NATURAL EXECUTIVE":PRINT
12052 PRINT "AND MUST MAKE YOUR OWN DECISIONS.":RETURN
12080 PRINT "YOUR SYMPATHY AND GOOD WILL MARK YOUR":PRINT
12083 PRINT "CAREER. THE WORLD LOOKS TO YOU FOR YOUR":PRINT
12086 PRINT "SENSITIVITY AND INTUITION. YOU ARE A":PRINT
12089 PRINT "NATURAL DIPLOMAT AND KNOW HOW TO PUT":PRINT
12092 PRINT "OTHERS AT EASE AND MAKE PEACE.":RETURN
12120 PRINT "YOUR OPTIMISM AND GAYETY DISTINGUISHES":PRINT
12123 PRINT "YOU. THE WORLD LOOKS TO YOU FOR YOUR":PRINT
12126 PRINT "ARTISTIC AND CREATIVE ABILITY. YOUR":PRINT
12129 PRINT "MISSION IS TO REVEAL THE BEAUTY OF LIFE":PRINT
12132 PRINT "AND WORDS AND ACTIONS ARE YOUR MEDIUM.":RETURN
12160 PRINT "YOUR SERVICE TO SOCIETY DISTINGUISHES":PRINT
12163 PRINT "YOU. THE WORLD LOOKS TO YOU FOR GIVING":PRINT
12166 PRINT "HONESTY AND EQUITY TO THE CODE OF ETHICS"
12167 IF PF=1 THEN PRINT
12169 PRINT "FOR HUMANITY. YOUR GOAL IS TO BUILD":PRINT
12172 PRINT "A LIFE OF VALUE FOR SOCIETY.":RETURN
12200 PRINT "YOUR ADAPTABILITY AND NOVELTY DENOTES":PRINT
12203 PRINT "YOU. THE WORLD LOOKS TO YOU FOR WRITTEN":PRINT
12206 PRINT "AND VERBAL EXPRESSION SPREADING YOUR":PRINT
12209 PRINT "CREATIVE IDEAS. YOUR PURPOSE IS TO":PRINT
12212 PRINT "SPREAD THE WORD OF CHANGE AND VARIETY.":RETURN
12240 PRINT "YOUR PERSONIFICATION OF THE IDEALS OF":PRINT
12243 PRINT "TRUTH AND JUSTICE DENOTES YOU. THE":PRINT
12246 PRINT "WORLD LOOKS TO YOU FOR CONTRIBUTIONS":PRINT
12249 PRINT "OF HARMONY AND BEAUTY. YOUR MISSION IS":PRINT
12252 PRINT "TO SHOW OTHERS THE RIGHT WAY TO LIVE.":RETURN
12280 PRINT "YOUR UNDERSTANDING AND SYMPATHY DENOTES":PRINT
12283 PRINT "YOU. OTHERS LOOK TO YOU FOR DEVOTION,":PRINT
12286 PRINT "PRAYER, MEDITATION AND POSSIBLY":PRINT
12289 PRINT "MYSTICISM. YOUR PURPOSE IS TO BE A":PRINT
12292 PRINT "HEALER OF BODIES AND SOULS.":RETURN
12320 PRINT "YOUR POWER AND SUCCESS DISTINGUISH":PRINT
12323 PRINT "YOU. THE WORLD LOOKS TO YOU FOR CHARITY":PRINT
12326 PRINT "AND INSPRIRATION. OTHERS WILL ASK YOUR":PRINT
12329 PRINT "JUDGEMENT AND THEN ABIDE BY IT. YOUR":PRINT
12332 PRINT "GOAL IS TO SHARE YOUR ACQUIRED MONEY.":RETURN
12360 PRINT "YOUR COMPASSION DISTINGUISHES YOU. THE":PRINT
12363 PRINT "WORLD LOOKS TO YOU FOR LOVE, TOLERANCE,":PRINT
12366 PRINT "AND SERVICE TO OTHERS. PHILANTHROPY,":PRINT
12369 PRINT "MEDICINE, SOCIAL SERVICE AND SPRITUAL":PRINT
12372 PRINT "AND OCCULT LEADERSHIP ARE YOUR GOALS.":RETURN
13040 PRINT :PRINT "YOU ARE THE LEADER, THE PLANNER. YOU ARE"
13041 IF PF=1 THEN PRINT
13043 PRINT "ORIGINAL AND CREATIVE AND POSSESS THE":PRINT
13046 PRINT "AGGRESSIVE QUALITIES TO GIVE YOUR IDEAS":PRINT
13049 PRINT "A FORM. YOU ARE AMBITIOUS AND POSSESS":PRINT
13052 PRINT "EXECUTIVE ABILITY. YOU HAVE A VERY ":PRINT
13055 PRINT "POSITIVE NATURE BECAUSE YOU HAVE A":PRINT
13058 PRINT "STRONG INDIVIDUALITY.":RETURN
13080 PRINT "YOU ARE THE HELPER. THE BASIS OF YOUR":PRINT
13083 PRINT "LIFE IS COOPERATION AS YOU SUCCEED":PRINT
13086 PRINT "HIGHLY BY CARRYING OUT THE PLANS OF":PRINT
13089 PRINT "OTHERS. YOU ARE AGREEABLE, CHARMING,":PRINT
13092 PRINT "AND CONSIDERATE OF OTHERS. YOU ARE A":PRINT
13095 PRINT "NATURAL HELPMATE BUT ALSO HAVE THE":PRINT
13098 PRINT "ABILITY TO BE SELF-SUFFICIENT IF THE":PRINT
13101 PRINT "NEED ARISES.":RETURN
13120 PRINT "YOU ARE THE ARTIST, THE EPITOME OF SELF-"
13121 IF PF=1 THEN PRINT
13123 PRINT "EXPRESSION. YOU SEE LIFE TOTALLY AND":PRINT
13126 PRINT "CLEARLY. VERSATILITY IS ONE OF YOUR":PRINT
13129 PRINT "STRONG TRAITS AND YOU ARE ABLE TO":PRINT
13132 PRINT "ACQUIRE KNOWLEDGE EASILY. YOU ARE":PRINT
13135 PRINT "SOCIABLE AND ENTERTAINING, MAKING":PRINT
13138 PRINT "FRIENDS QUICKLY. YOU ACCEPT THINGS AS":PRINT
13141 PRINT "THEY ARE AND DO NOT WORRY TOO MUCH. LOVE"
13142 IF PF=1 THEN PRINT
13144 PRINT "IS A NECESSITY TO YOU.":RETURN
13160 PRINT :PRINT "YOU ARE THE BUILDER OF YOUR OWN LIFE.":PRINT
13163 PRINT "YOU ARE PREPARED FOR YOUR LIFE OF WORK":PRINT
13166 PRINT "BY BEING PATIENT, FAITHFUL AND LOYAL.":PRINT
13169 PRINT "YOU CAN VISUALIZE THE COMPLETED FORM":PRINT
13172 PRINT "FROM ONLY A WRITTEN CONCEPT AND THEN":PRINT
13175 PRINT "BUILD THE DESIGN. YOU ARE DEPENDABLE AND"
13176 IF PF=1 THEN PRINT
13178 PRINT "DO A NOBLE AND CREATIVE JOB.":RETURN
13200 PRINT "YOU ARE QUICK AND CHANGEABLE BY NATURE,":PRINT
13203 PRINT "FULL OF WIT, ENTHUSIASM AND ENERGY. LIFE"
13204 IF PF=1 THEN PRINT
13206 PRINT "IS A BOLD ADVENTURE AND FREEDOM IS":PRINT
13209 PRINT "YOUR BIRTH-RIGHT. YOU ARE HIGHLY":PRINT
13212 PRINT "INTELLECTUAL AND A MASTER OF LANGUAGES.":PRINT
13215 PRINT "YOU COULD EXCEL IN ANY PROFESSION WHERE":PRINT
13218 PRINT "GOOD VOCAL POWERS ARE NEEDED, SUCH AS":PRINT
13221 PRINT "TEACHING, LECTURING OR IN THE":PRINT
13224 PRINT "ENTERTAINMENT FIELD.":RETURN
13240 PRINT "YOU ARE THE TEACHER OF NOBLE IDEALS AND":PRINT
13243 PRINT "HIGH ASPIRATIONS. BEAUTY AND HARMONY,":PRINT
13246 PRINT "ESPECIALLY IN THE DOMESTIC ATMOSPHERE,":PRINT
13249 PRINT "IS VITAL. YOU HAVE A DEEP APPRECIATION":PRINT
13252 PRINT "FOR THE ARTS AND MUSIC WHICH YOU EXPRESS"
13253 IF PF=1 THEN PRINT
13255 PRINT "BY BEING CREATIVE OR A CONNOISSEUR.":PRINT
13258 PRINT "THE UNSELFISHNESS WHICH DISTINGUISHES":PRINT
13261 PRINT "YOU MAKES YOU A NATURAL TEACHER,":PRINT
13264 PRINT "COUNSELLOR, OR FRIEND OF OTHERS.":RETURN
13280 PRINT "BY NATURE, YOU ARE THOUGHTFUL AND":PRINT
13283 PRINT "ANALYTICAL. THE TROUBLED IN MIND AND":PRINT
13286 PRINT "BODY TURN TO YOU FOR COMFORT AND HEALING"
13287 IF PF=1 THEN PRINT
13289 PRINT "YOU ARE RESERVED AND INTELLECTUAL AND":PRINT
13292 PRINT "YOUR MAIN INTERESTS ARE IN CULTURAL AND":PRINT
13295 PRINT "PHILOSOPHICAL AREAS. YOUR SYMPATHY":PRINT
13298 PRINT "TOWARD MYSTICAL AND OCCULT LINES OF":PRINT
13301 PRINT "THOUGHT LEAD YOU TO THE DISCOVERY OF":PRINT
13304 PRINT "MANY TRUTHS.":RETURN
13320 PRINT "YOU HAVE THE TRAITS OF EFFICIENCY AND":PRINT
13323 PRINT "CAPABILITIES TO USE WITH YOUR STUDIES,":PRINT
13326 PRINT "ORGANIZATIONS AND EXECUTIVE ENDEAVORS.":PRINT
13329 PRINT "COURAGE DISTINGUISHES YOU AND YOU WISH":PRINT
13331 PRINT "TO SEE EVERYONE ENJOY THEIR OWN FREEDOM":PRINT
13334 PRINT "OF ACTION. AUTHORITY IS WITHIN YOUR":PRINT
13337 PRINT "GRASP AND YOU SEEK TO USE IT IN WHATEVER"
13338 IF PF=1 THEN PRINT
13340 PRINT "FIELD YOU ENTER.":RETURN
13360 PRINT "HIGH ASPIRATIONS AND NOBLE IDEAS ARE":PRINT
13363 PRINT "YOUR HERITAGE. SERVICE IS THE CORNER-":PRINT
13366 PRINT "STONE OF YOUR CAREER. YOUR GOALS ARE":PRINT
13369 PRINT "GENEROSITY AND PERFECTION AND YOU":PRINT
13372 PRINT "ATTEMPT TO FIND THEM THROUGH DIVINE AND":PRINT
13375 PRINT "OCCULT ARTS. AN EXTREME SENSITIVITY MAKE"
13376 IF PF=1 THEN PRINT
13378 PRINT "YOU RESPONSIVE, NOT ONLY TO YOUR":PRINT
13381 PRINT "ENVIROMENT, BUT ALSO TO PSYCHIC":PRINT
13384 PRINT "PHENOMIA. YOUR YEARS WILL BE PLENTY.":RETURN
14040 PRINT "TODAY YOU SHOULD AWAKE WITH NEW ENERGY":PRINT
14043 PRINT "AND FINE SPIRITS. NUMBER ONE IS THE":PRINT
14046 PRINT "BEGINNING OF NEW IDEAS AND PROJECTS. ":PRINT
14049 PRINT "THIS IS A GOOD TIME TO SEEK ADVANCEMENT":PRINT
14052 PRINT "IN SOCIAL AND BUSINESS VENTURES.":RETURN
14080 PRINT "TODAY IS THE DAY FOR COOPERATION.":PRINT
14083 PRINT "DIPLOMACY IS THE ORDER OF THE DAY AND":PRINT
14086 PRINT "AFFAIRS WILL PROGRESS SLOWLY. STAY IN":PRINT
14089 PRINT "CONTROL OF YOUR OWN MATTERS. USE YOUR":PRINT
14092 PRINT "INTUITION AND MATERIALS YOU HAVE ON HAND":RETURN
14120 PRINT "TODAY YOU WILL GIVE FULL EXPRESSION TO":PRINT
14123 PRINT "THE REAL YOU. YOU WANT TO BECOME PART OF"
14124 IF PF=1 THEN PRINT
14126 PRINT "THE GROUP AND THERE IS A TENDENCY TO":PRINT
14129 PRINT "WORK WITH ORGANIZATIONS. ROMANTIC":PRINT
14132 PRINT "EMOTIONS AND LOVE RULE DURING THIS TIME.":RETURN
14160 PRINT "TODAY IS A DAY OF BUILDING AND YOUR ACTS"
14163 PRINT "WILL BE FOR THE FUTURE. ALL ORGANIZING":PRINT
14166 PRINT "SHOULD FIND SUCCESS. PLANS FOR YOUR HOME"
14167 IF PF=1 THEN PRINT
14169 PRINT "AND FAMILY ARE ON YOUR MIND SO TAKE":PRINT
14172 PRINT "ADVANTAGE OF YOUR STABILITY.":RETURN
14200 PRINT "TODAY DENOTES CHANGE AND IT IS BEST TO":PRINT
14203 PRINT "HAVE NO PLANS. ACTIVITY AND SPEED APPEAL"
14204 IF PF=1 THEN PRINT
14206 PRINT "TO YOU WHILE YOU FIND YOURSELF MOVING":PRINT
14209 PRINT "THINGS AROUND. CONVERSATIONS ARE PART":PRINT
14212 PRINT "OF THIS DAY WITH ENTERTAINMENT AND SHOWS":RETURN
14240 PRINT "TODAY DENOTES HAPPINESS AND RELEIVING":PRINT
14243 PRINT "THE BURDEN OF OTHERS. HARMONY AND ":PRINT
14246 PRINT "BEAUTY EXTEND TO YOUR HOME AND DEALINGS":PRINT
14249 PRINT "WITH OTHERS. ALL MATTERS OF YOUR HOME":PRINT
14252 PRINT "AND EDUCATION SHOULD BE CONSIDERED TODAY":RETURN
14280 PRINT "TODAY WILL BE PEACEFUL, CALM AND QUIET":PRINT
14283 PRINT "IN NATURE. YOUR ACTIVITES WILL LIKELY":PRINT
14286 PRINT "BE ALONG INVENTIVE LINES. YOUR IDEAS":PRINT
14289 PRINT "FOR DEVICES AND SYSTEMS COULD BE":PRINT
14292 PRINT "PROFITABLE. YOUR HOME WILL CONCERN YOU.":RETURN
14320 PRINT "TODAY YOU EXPRESS YOUR MATERIAL DESIRES."
14321 IF PF=1 THEN PRINT
14323 PRINT "YOU TAKE THE LEAD TODAY AND OTHERS WILL":PRINT
14326 PRINT "FOLLOW YOU. YOU SHOULD ATTEND TO MATTERS"
14327 IF PF=1 THEN PRINT
14329 PRINT "OF SAVINGS, BONDS, AND INSURANCE. DON'T":PRINT
14332 PRINT "FORGET TO HELP OTHERS.":RETURN
14360 PRINT "TODAY COULD BE THE BEST OF DAYS OR THE":PRINT
14363 PRINT "WORST OF DAYS. YOUR TEMPERMENT IS WELL-":PRINT
14366 PRINT "BALANCED, CREATIVE AND SINCERE. ANYTHING"
14367 IF PF=1 THEN PRINT
14369 PRINT "CONCERNING LONG DISTANCES WILL BE A":PRINT
14372 PRINT "SUCCESS. YOU SHOULD STUDY THE OCCULT.":RETURN
15040 PRINT "INTELLECTUAL DEALINGS, GOVERNMENT WORK,":PRINT
15043 PRINT "CLUB WORK, NEW PROJECTS OR INVENTIONS,":PRINT
15046 PRINT "HIKING, AND EXECUTIVE WORK.":RETURN
15080 PRINT "MARRIAGE, ERECTING A HOME, COOPERATION,":PRINT
15083 PRINT "COOKING, CARRYING OUT OTHERS PLANS,":PRINT
15086 PRINT "AND HELPING IN THE HOME.":RETURN
15120 PRINT "PROJECTS DEALING WITH PEOPLE, POLITICS,":PRINT
15123 PRINT "ART, ENTERTAINMENT, CHILDREN, AND ANY":PRINT
15126 PRINT "MONEY EARNING VENTURE.":RETURN
15160 PRINT "HARD WORK PROJECTS, CORPORATION WORK,":PRINT
15163 PRINT "SAVING MONEY, BUILDING PROJECTS, AND":PRINT
15166 PRINT "FARMING.":RETURN
15200 PRINT "ADVENTURE, TRAVEL, CONVERSATION, RADIO":PRINT
15203 PRINT "WORK, RESEARCH, ADVERTISING, WRITING":PRINT
15206 PRINT "AND SALES.":RETURN
15240 PRINT "HOME LIFE, FAMILY, INVENTIONS, HELPING":PRINT
15243 PRINT "OTHERS, EDUCATIONAL PROJECTS, AND MONEY-"
15246 PRINT "SAVING IDEAS.":RETURN
15280 PRINT "CULTURAL PURSUITS, MYSTIC STUDIES,":PRINT
15283 PRINT "PHYSICAL EXERCISE, GAMES, SPORTS,":PRINT
15286 PRINT "AND PLANNING THE FUTURE.":RETURN
15320 PRINT "LAW CASES, MONEY EARNING, SAVING, ":PRINT
15323 PRINT "INSURANCE POLICIES, OCEAN TRAVEL, AND":PRINT
15326 PRINT "CHARITY WORK.":RETURN
15360 PRINT "COMMUNICATING WITH DISTANT PEOPLE, ":PRINT
15363 PRINT "OCCULT AND SCIENTIFIC STUDIES, DETECTIVE"
15366 PRINT "ACTIVITIES, AND FRIENDSHIPS.":RETURN
16040 PRINT "MANAGERIAL":PRINT
16043 PRINT "HEAD OF COMPANY":PRINT
16046 PRINT "ORGANIZER ":PRINT
16049 PRINT "MOTION PICTURE EXECUTIVE":RETURN
16080 PRINT "CLERICAL":PRINT
16083 PRINT "FOOD INDUSTRY PERSONNEL":PRINT
16086 PRINT "HOUSEKEEPING":PRINT
16089 PRINT "REAL ESTATE AGENT":RETURN
16120 PRINT "ADMINISTRATOR":PRINT
16123 PRINT "LAWYER":PRINT
16126 PRINT "MAGISTRATE":PRINT
16129 PRINT "ENGINEER":RETURN
16160 PRINT "ARCHITECT":PRINT
16163 PRINT "MINING INDUSTRY":PRINT
16166 PRINT "BUILDING TRADES":RETURN
16200 PRINT "WRITING":PRINT
16203 PRINT "ADVERTISING":PRINT
16206 PRINT "AVIATION":PRINT
16209 PRINT "COMMUNICATIONS EXPERT":RETURN
16240 PRINT "ENTERTAINMENT FIELD":PRINT
16243 PRINT "FASHION FIELD":PRINT
16246 PRINT "BEAUTICIAN":RETURN
16280 PRINT "MUSICAL FIELDS":PRINT
16283 PRINT "SCIENCE FIELDS":PRINT
16286 PRINT "RESEARCHER":PRINT
16289 PRINT "INVENTOR":RETURN
16320 PRINT "MILITARY SERVICE":PRINT
16323 PRINT "LABOR WORKER":PRINT
16326 PRINT "CHARITY WORK":RETURN
16360 PRINT "MEDICAL FIELDS":PRINT
16363 PRINT "DEALINGS WITH THE OCCULT":PRINT
16366 PRINT "PAINTING":PRINT
16369 PRINT "PHILOSOPHER":RETURN

Text found in Volume_027_Home_and_Personal.dsk/TALK.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C 09 08 4C 22 08 4C 56 08 A9 10 85 01 85 0B A9 L..L".LV .).....)
$000010 00 85 00 85 0A 8D 00 10 60 A9 00 85 00 A9 10 85 ........ `)...)..
$000020 01 60 98 48 20 19 08 A0 00 20 7D 08 E6 07 A5 07 .`.H .. . }.f.%.
$000030 91 00 20 E3 08 A5 00 85 08 A5 01 85 09 20 E3 08 .. c.%.. .%... c.
$000040 20 A0 08 98 91 00 A5 00 91 08 85 0A C8 A5 01 91 ....%. ....H%..
$000050 08 85 0B 68 A8 60 98 48 20 19 08 A0 00 20 81 08 ...h(`.H .. . ..
$000060 C9 00 F0 16 E6 00 D0 02 E6 01 B1 00 85 02 C8 B1 I.p.f.P. f.1...H1
$000070 00 85 03 88 20 E3 08 20 BE 08 68 A8 60 84 06 84 .... c. >.h(`...
$000080 07 B1 00 F0 1A C5 06 F0 16 85 07 E6 00 D0 02 E6 .1.p.E.p ...f.P.f
$000090 01 B1 00 48 C8 B1 00 85 01 68 85 00 88 F0 E2 60 .1.HH1.. .h...pb`
$0000A0 84 06 E6 06 AD 60 C0 85 07 AD 60 C0 45 07 30 04 ..f.-`@. .-`@E.0.
$0000B0 E6 06 D0 F5 A5 06 91 00 20 E3 08 D0 E3 60 A5 00 f.Pu%... c.Pc`%.
$0000C0 C5 02 D0 06 A5 01 C5 03 F0 18 B1 00 85 06 F0 03 E.P.%.E. p.1...p.
$0000D0 8D 30 C0 AD 60 C0 45 07 EA C6 06 D0 F6 20 E3 08 .0@-`@E. jF.Pv c.
$0000E0 D0 DC 60 E6 00 D0 02 E6 01 AD 00 C0 10 07 8D 10 P\`f.P.f .-.@....
$0000F0 C0 C9 A0 F0 0A A5 00 C5 04 D0 04 A5 01 C5 05 60 @I p.%.E .P.%.E.`
** END **

Text found in Volume_027_Home_and_Personal.dsk/TELEPHONE DIALER (NO MODEM).bas:

10 ONERR GOTO 5000
15 SPEED= 255
20 C = -16289:O = -16290:S = -16336
25 POKE O,0
30 TEXT : HOME : PRINT "----------------------------------------";: INVERSE : PRINT " TELEPHONE DIALER ";: NORMAL : PRINT "----------------------------------------"
35 POKE 34,6
40 PRINT " TELEPHONE SHOULD BE OFF HOOK"
45 L$ = " "
50 PRINT : INPUT "PHONE NUMBER OR NAME :";PN$: IF LEN(PN$) = 0 THEN 50
60 PH$ = LEFT$(PN$,1): IF ( ASC(PH$) <48 OR ASC(PH$) >57) AND ASC(PH$) < >46 THEN 2000
90 PRINT
100 W = PEEK(37): VTAB 2: INVERSE : PRINT L$: VTAB 2: PRINT " DIALING: " LEFT$(PN$,( LEN(PN$) *( LEN(PN$) <29) +( LEN(PN$) >28) *28)): VTAB W +1: NORMAL
110 FOR LL = 1 TO LEN(PN$)
120 N = ASC( MID$ (PN$,LL,1)) -48: IF N = 0 THEN N = 10
122 IF N = -3 THEN 200
123 IF N = -16 THEN PRINT : FOR W = 1 TO 2000: NEXT : GOTO 200
125 IF N = -2 THEN POKE C,0: FOR W = 1 TO 750: NEXT : POKE O,0: FOR W = 1 TO 1750: NEXT : GOTO 200
126 IF N <1 OR N >10 THEN 310
127 REM -3='-' -16=' ' -2='.'
130 PRINT N *(N < >10);" ";
140 FOR L = 1 TO N
145 PRINT "*";:W = PEEK(S) + PEEK(S)
150 POKE C,0
155 FOR W = 1 TO 25: NEXT
160 POKE O,0
165 FOR W = 1 TO 35: NEXT
180 NEXT L
185 HTAB 13: PRINT ":"
190 FOR W = 1 TO 150: NEXT
195 IF N = 1 AND LL = 1 THEN FOR W = 1 TO 3000: NEXT
200 NEXT LL
250 TEXT : END
300 REM ERRORS IN PH #
310 PRINT " ERROR - ";: INVERSE : PRINT MID$ (PN$,LL,1);: NORMAL : HTAB 13: PRINT ":";
320 FOR W = 1 TO 10:W = ( PEEK( -16336) + PEEK( -16336) + PEEK( -16336) + PEEK( -16336)) *0 +W: NEXT : REM ALERT
330 PRINT " CANCEL? (Y/N) ";
340 GET W$: IF W$ = "Y" THEN PRINT : PRINT : HTAB 15: PRINT "CANCELING CALL": POKE C,0: FOR W = 1 TO 750: NEXT : POKE O,0: FOR W = 1 TO 1750: NEXT : RUN
350 IF W$ = "N" THEN HTAB 16: CALL -868: PRINT "IGNORED": GOTO 200
360 GOTO 340
498 REM PHONE NUMBERS
500 DATA FIRE,911,POLICE,911,AMBULANCE,911
510 DATA TIME,767-1111
520 DATA WEATHER,936-1212
580 DATA A.C. TRANSIT,653-3535
630 DATA LAWRENCE HALL OF SCIENCE,642-5132
640 DATA RECREATION DEPT,654-0330
999 DATA END,END
1999 REM ** NAME FINDER
2000 RESTORE :FL = 0
2010 READ NA$,NB$: IF NA$ = "END" AND NB$ = "END" THEN 2100
2020 IF LEFT$(NA$, LEN(PN$)) = PN$ THEN 2200
2030 IF PH$ = "?" THEN 2300
2040 GOTO 2010
2100 PRINT : HTAB 5: IF FL = 0 THEN PRINT PN$;" IS NOT IN THE FILE": PRINT : GOTO 50
2120 PRINT "NO MORE "PN$"'S IN FILE": PRINT : GOTO 50
2200 PRINT : PRINT NA$ SPC( 5)NB$: PRINT " DO YOU WANT THIS ? (Y/N) ";: GET W$
2210 IF W$ = "Y" THEN PN$ = NB$: PRINT : PRINT : GOTO 100
2220 IF W$ = "N" THEN FL = 1: PRINT : PRINT : GOTO 2010
2240 GET W$: GOTO 2210
2299 REM ?-FULL SEARCH
2300 IF LEN(PN$) >1 THEN PI$ = RIGHT$(PN$, LEN(PN$) -1): GOTO 2320
2310 PI$ = ""
2320 FOR W = 1 TO LEN(NA$) - LEN(PI$) +1
2340 IF MID$ (NA$,W, LEN(PI$)) = PI$ THEN W = LEN(NA$) - LEN(PI$) +1: NEXT : GOTO 2200
2350 NEXT : GOTO 2010
5000 REM ONERR GOTO...
5020 TEXT : NORMAL : POKE O,0
5050 END
29999 REM
30000 REM TO USE TELEPHONE
30005 REM DIALER, CONNECT THE
30010 REM MAGNET LEADS OF A
30015 REM 6-12 VOLT RELAY TO
30020 REM THE AN3 AND GROUND
30025 REM HOLES OF THE GAME
30030 REM (PADDLE) I/O SOCKET.
30035 REM (PINS #12 AND 8)
30040 REM DISCONNECT ONE LEAD
30045 REM ON THE TELEPHONE
30050 REM LINE. CONNECT ONE END
30055 REM TO THE "COMMON" RELAY
30060 REM LEAD, AND THE OTHER
30065 REM TO THE (NORMALLY)
30070 REM OPEN LEAD OF THE
30075 REM RELAY.
30080 REM
30100 REM THE TELEPHONE CAN BE
30105 REM USED NORMALLY, WITH
30110 REM THE APPLE ON OR OFF.
30115 REM (IF THE APPLE IS
30120 REM TURNED ON, AN3 MUST
30125 REM BE KEPT IN THE DE-
30130 REM FAULT "CLEAR" SETTING.
30200 REM WARNING: CONNECTING
30205 REM NON-FCC APPROVED
30210 REM EQUIPMENT TO THE
30215 REM TELEPHONE LINES MAY
30220 REM BE UNLAWFUL.
32000 REM ** REM ** APPLE TELEPHONE REM ** DIALER REM ** REM ** BY GREG ROBBINS REM **
32100 REM ALL COMMERCIAL RIGHTS
32105 REM RESERVED