-------------------------------------------------------------------------- STARTUP -------------------------------------------------------------------------- 10 PRINT CHR$ (4)"-ASTROSTART" -------------------------------------------------------------------------- ASTROSTART -------------------------------------------------------------------------- 100 REM HYPNOSIS 110 REM 120 REM 130 ONERR GOTO 300 140 HOME : HGR : VTAB 22: HTAB 16: PRINT "HIT A KEY" 150 COUNT = 0 160 X = 0:Y = 0 170 N = RND (N) * 50 + 25 180 COUNT = COUNT + 1 190 IF COUNT > (159 - N) THEN COUNT = 1: HGR 200 IF (COUNT / 2) + 0.5 = INT ((COUNT / 2) + 0.5) THEN HCOLOR= 3 210 IF ((COUNT / 2) + 0.5) < > INT ((COUNT / 2) + 0.5) THEN HCOLOR= 0 220 N = N + COUNT 230 IF N > 159 GOTO 160 240 HPLOT X + N,Y + N TO X + (279 - N),Y + N 250 HPLOT X + (279 - N),Y + N TO X + (279 - N),Y + (159 - N) 260 HPLOT X + (279 - N),Y + (159 - N) TO X + N,Y + (159 - N) 270 HPLOT X + N,Y + (159 - N) TO X + N,Y + N 280 IF PEEK (49152) > 127 THEN GOTO 300 290 GOTO 220 300 REM 310 REM EXIT ROUTINE 320 PRINT : PRINT : PRINT "SYSTEM RUNNING * ASTRO * PROGRAM" 330 POKE 49168,0 340 PRINT "PRESS 'RETURN' TO CONTINUE ";: GET A$ 350 PRINT CHR$ (4)"-ASTRO" -------------------------------------------------------------------------- ASTRO -------------------------------------------------------------------------- 100 REM MOIRE PROGRAM 110 REM 110 ONERR GOTO 370 130 HOME : VTAB 24 140 HGR : REM SET HI-RES GRAPHICS 150 A = RND (1) * 279: REM PICK AN X FOR CENTER 160 B = RND (1) * 159: REM PICK A Y FOR "CENTER" 170 N = INT ( RND (1) * 7) + 2: REM PICK A STEP SIZE 180 PRINT : PRINT : PRINT 190 PRINT " ASTROLOGY ANSWERS BY GARY KARIKAS" 195 HTAB 6: INVERSE : PRINT " HIT RETURN TO ENTER PROGRAM ": NORMAL 200 FOR X = 0 TO 278 STEP N: REM STEP THRU A VALUES 210 IF PEEK (49152) > 127 THEN GOTO 400 220 FOR S = 0 TO 1: REM 2 LINES,FROM X AND X+1 230 HCOLOR= 7 * S: REM FIRST LINE BLACK, NEXT WHITE 240 REM DRAW LINE THRU "CENTER" TO OPPOSITE SIDE 250 HPLOT X + S,0 TO A,B TO 279 - X - S,159 260 NEXT S,X 270 GOTO 400 370 DOS$ = CHR$(4) 380 PRINT DOS$"CLOSE FILE" 390 GOTO 575 400 TEXT 410 POKE 49168,0 420 LIM=1 430 I=1 440 FF=0 450 GOTO 1300 500 INPUT "PLEASE ENTER YOUR NAME: ";Q$ 505 DOS$ = CHR$(4) 510 PRINT DOS$"OPEN FILE" 520 PRINT DOS$"READ FILE" 530 READ FL 540 FOR I = 1 TO FL 550 READ NAM$(I): READ BIRT$(I) 560 IF NAM$(I)=Q$ THEN GOSUB 600 570 NEXT I 575 PRINT DOS$"CLOSE FILE": PRINT : PRINT 580 GOTO 700 600 LIM = I:FF = 1 610 RETURN 700 FOR I = 1 TO FL: PRINT NAME$(I): NEXT I: FOR I = 1 TO 6000: NEXT I: PRINT : PRINT 702 IF FF = 1 THEN FF = 0: GOTO 800 704 INVERSE : PRINT Q$;: NORMAL : PRINT " IS NOT IN FILE SYSTEM.": PRINT CHR$ (7) 705 LIM = FL + 1 707 NAME$(LIM) = Q$ 710 PRINT "PLEASE ENTER BIRTH DATE.... LIKE THIS:": PRINT 720 PRINT "04-08-82 (MM-DD-YY)": PRINT 730 PRINT "BIRTH DATE ";: INVERSE : INPUT BIRT$(LIM): NORMAL : PRINT 800 YR = VAL ( MID$ (BIRT$(LIM),7,2)) 802 DA = VAL ( MID$ (BIRT$(LIM),4,2)) 804 MO = VAL ( MID$ (BIRT$(LIM),1,2)) 806 BIRT$ = LEFT$ (BIRT$(LIM),5) + "-91" 810 AGE = 91 - YR 910 IF MO = 3 AND DA > 20 OR MO = 4 AND DA < 21 THEN 1000 920 IF MO = 4 AND DA > 20 OR MO = 5 AND DA < 21 THEN 1010 925 IF MO = 5 AND DA > 20 OR MO = 6 AND DA < 21 THEN 1020 930 IF MO = 6 AND DA > 20 OR MO = 7 AND DA < 23 THEN 1030 935 IF MO = 7 AND DA > 22 OR MO = 8 AND DA < 23 THEN 1040 940 IF MO = 8 AND DA > 22 OR MO = 9 AND DA < 23 THEN 1050 945 IF MO = 9 AND DA > 22 OR MO = 10 AND DA < 23 THEN 1055 950 IF MO = 10 AND DA > 22 OR MO = 11 AND DA < 23 THEN 1060 955 IF MO = 11 AND DA > 22 OR MO = 12 AND DA < 22 THEN 1065 960 IF MO = 12 AND DA > 21 OR MO = 1 AND DA < 20 THEN 1070 965 IF MO = 1 AND DA > 19 OR MO = 2 AND DA < 20 THEN 1075 970 IF MO = 2 AND DA > 19 OR MO = 3 AND DA < 19 THEN 1080 1000 SIGN$="ARIES":A$="ENTREPRENEUR,ATHLETE":B$="COMPETITIVE":C$="LIBRA,GEMINI":D$="TUESDAY":E=9:F$="GOLD":GOTO 1100 1010 SIGN$="TAURUS":A$="BANKER,CHEF":B$="LOYAL":C$="CANCER,VIRGO":D$="FRIDAY":E=6:F$="GREEN":GOTO 1100 1020 SIGN$="GEMINI":A$="JOURNALIST,TEACHER":B$="VERSATILE":C$="AQUARIUS,SAGITTARIUS":D$="WEDNESDAY":E=5:F$="YELLOW":GOTO 1100 1030 SIGN$="CANCER":A$="NURSE,THERAPIST":B$="PASSIONATE":C$="PISCES,TAURUS":D$="MONDAY":E=2:F$="WHITE":GOTO 1100 1040 SIGN$="LEO":A$="ACTOR,CEO":B$="CONFIDENT":C$="LEO,ARIES":D$="SUNDAY":E=1:F$="ORANGE":GOTO 1100 1050 SIGN$="VIRGO":A$="ANALYST,EDITOR":B$="PERFECTIONIST":C$="VIRGO,TAURUS":D$="THURSDAY":E=5:F$="BROWN":GOTO 1100 1055 SIGN$="LIBRA":A$="LAWYER,DIPLOMAT":B$="EMPATHETIC":C$="ARIES,GEMINI":D$="FRIDAY":E=6:F$="PINK":GOTO 1100 1060 SIGN$="SCORPIO":A$="PSYCHOLOGIST,DETECTIVE":B$="INTENSE":C$="TAURUS,CAPRICORN":D$="TUESDAY":E=0:F$="BLACK":GOTO 1100 1065 SIGN$ = "SAGITTARIUS":A$ = "HUNTERS,SCHOLARS":B$ = "VERSATILE":C$ = "GEMINI,LIBRA,AQUARIUS":D$ = "THURSDAY":E = 3:F$ = "TURQUOISE": GOTO 1100 1070 SIGN$ = "CAPRICORN":A$ = "RULERS AND TRUSTFUL":B$ = "DISCIPLINED":C$ = "PISCES,CANCER,SCORPIO":D$ = "SATURDAY":E = 4:F$ = "GARNET": GOTO 1100 1075 SIGN$ = "AQUARIUS":A$ = "SCIENTIST,ASTRONOMER":B$ = "INVENTIVE":C$ = "ARIES,LEO,SAGITTARIUS":D$ = "SUNDAY":E = 7:F$ = "AMETHYST": GOTO 1100 1080 SIGN$ = "PISCES":A$ = "FISHERMEN AND POETS":B$ = "BE PSYCHIC":C$ = "TAURUS,VIRGO,CAPRICORN":D$ = "THURSDAY":E = 9:F$ = "AQUAMARINE": GOTO 1100 1100 HOME : PRINT TAB( 12)"ASTROLOGY REPORT" 1105 PRINT : PRINT : INVERSE : PRINT NAM$(LIM);: NORMAL : PRINT ":": FOR I = 1 TO 8: PRINT CHR$ (7);: NEXT I: PRINT 1110 PRINT "YOUR SIGN: ";: INVERSE : PRINT SIGN$;: NORMAL : PRINT "; YOU WILL BE ";: INVERSE : PRINT AGE: NORMAL : PRINT 1120 PRINT "YEARS OLD ON ";: INVERSE : PRINT BIRT$;: NORMAL : PRINT " OF THIS YEAR.": PRINT 1130 INVERSE : PRINT SIGN$;: NORMAL : PRINT " ARE GREAT ";: INVERSE : PRINT A$: NORMAL : PRINT 1140 PRINT "AND HAVE THE ABILITY TO ";: INVERSE : PRINT B$;: NORMAL : PRINT ".": PRINT 1150 PRINT "GOOD MARRIAGE PARTNERS ARE": PRINT 1155 INVERSE : PRINT C$;: NORMAL : PRINT ".": PRINT 1160 PRINT "YOUR LUCKY DAY IS ";: INVERSE : PRINT D$;: NORMAL : PRINT " AND YOUR": PRINT 1170 PRINT "LUCKY NUMBER IS ";: INVERSE : PRINT E;: NORMAL : PRINT ".": PRINT 1180 PRINT "YOUR BIRTHSTONE IS ";: INVERSE : PRINT F$;: NORMAL : PRINT "." 1200 PRINT : INVERSE : FLASH : PRINT " HIT RETURN ";: INPUT Q$ 1210 NORMAL 1300 HOME 1305 Q$="" 1310 VTAB 17 1320 HTAB (3): PRINT "SAVE NAMES ON DISK" 1330 HTAB (3): PRINT "ADD ENTRY" 1340 HTAB (3): PRINT "EDIT ENTRY" 1350 HTAB (3): PRINT "ENTER NEXT PART OF PROGRAM." 1450 HTAB (3): PRINT "QUIT THIS PROGRAM." 1500 C = 17 1510 VTAB (C): GET Q$: IF Q$ = "" THEN 1510 1520 IF Q$ = CHR$ (10) THEN C = C + 1 1530 IF Q$ = CHR$ (11) THEN C = C - 1 1540 IF C < 17 THEN C = 17 1550 IF C > 21 THEN C = 17 1560 IF Q$ = CHR$ (13) AND C = 17 THEN 1700 1565 IF Q$ = CHR$ (13) AND C = 18 THEN LIM = FL + 1: GOTO 500 1567 IF Q$ = CHR$ (13) AND C = 20 THEN HOME : PRINT "* PROGRAM NOT INSTALLED * HIT RETURN";: INPUT Q$: GOTO 1300 1570 IF Q$ = CHR$ (13) AND C = 21 THEN 1900 1575 IF Q$ = CHR$ (13) AND C = 19 THEN 1800 1598 GOTO 1510 1700 HOME : INVERSE : PRINT "NAMES NOW IN FILE SYSTEM:": NORMAL : PRINT 1710 FOR I = 1 TO LIM: PRINT NAM$(I)"; ";: NEXT I 1719 GOTO 1730 1720 DIM NAM$(LIM),BIRT$(LIM) 1730 PRINT DOS$"OPEN FILE" 1740 PRINT DOS$"WRITE FILE" 1750 PRINT LIM 1760 FOR I = 1 TO LIM 1770 PRINT NAM$(I): PRINT BIRT$(I) 1780 NEXT I 1790 PRINT DOS$"CLOSE FILE": PRINT 1795 GOTO 1300 1800 HOME : INVERSE : PRINT " FILE NAMES ARE: ": NORMAL : PRINT 1810 FOR I = 1 TO FL: PRINT I" "NAM$(I): NEXT I: PRINT 1820 PRINT "ENTER NUMBER OF FILE NAME "; 1830 INPUT Q$ 1840 LIM = VAL (Q$): GOTO 800 1900 PRINT : PRINT : PRINT "IF YOU WANT TO START THIS PROGRAM AGAIN": PRINT 1910 PRINT "JUST TYPE IN RUN AND PRESS RETURN KEY." 1920 PRINT : PRINT "END OF PROGRAM," 8990 END 9000 ERR = PEEK (222) 9010 PRINT 9020 PRINT "XXX ERROR ";ERR;" XXX" 9030 PRINT "PROGRAM CRASHED" 9040 END