
100 screen_setup
110 values
120 print_values


999 STOP

2000 REMark ========================
2001 DEFine PROCedure values
2002 REMark ========================
2010 AT #0,1,5: PRINT #0,"Input ratio of frequencies for Y and X axes"
2020 AT #0,2,5: PRINT #0,"Y-axis frequency:": AT #0,2,24: INPUT #0,yfreq
2030 AT #0,2,30: PRINT #0,"X-axis frequency:": AT #0,2,49: INPUT #0,xfreq
2040 AT #0,3,5: PRINT #0,"Input phase angle (degrees):": AT #0,3,35: INPUT #0,phase
2050 pa=RAD(phase)
2060 yamp=1: xamp=1
2061 REMark *** these are the Y and X amplitudes, keeping them at 1 for now
2062 REMark *** need to cancel y:X ratio to lowest terms
2070 IF yfreq=xfreq THEN yfreq=1: xfreq=1
2080 IF yfreq>xfreq THEN y_over_x
2090 IF yfreq<xfreq THEN x_over_y
2095 END DEF values
2100 REMark ========================
2101 DEFine PROCedure y_over_x
2102 REMark ========================
2190 END DEF y_over_x
2200 REMark ========================
2201 DEFine PROCedure x_over_y
2202 REMark ========================
2290 END DEF x_over_y
2300 REMark going to have to look into a way to find prime factors, I think...



9000 REMark ========================
9001 DEFine PROCedure screen_setup
9002 REMark ========================
9010 MODE 4
9020 WINDOW #2,512,216,0,0
9030 BORDER #2,1,255: PAPER #2,4: INK #2,0
9040 WINDOW #1,260,192,126,12
9050 PAPER #1,0: INK #1,2: SCALE #1,383,0,0
9060 WINDOW #0,512,40,0,216
9070 PAPER #0,0: INK #0,4
9080 CLS #0: CLS #2: CLS #1
9090 END DEFine screen_setup

10000 REMark ========================
10001 DEFine PROCedure mon
10002 REMark ========================
10003 REMark Standard monitor screen
10010 MODE 4
10020 WINDOW #2,256,202,0,0
10030 BORDER #2,1,255: PAPER #2,7: INK #2,2
10040 WINDOW #1,256,202,256,0
10050 BORDER #1,1,255: PAPER #1,2: INK #1,7
10060 WINDOW #0,512,54,0,202
10070 PAPER #0,0: INK #0,4
10080 CLS #0: CLS #1: CLS #2
10090 END DEFine mon
11000 REMark ========================
11001 DEFine PROCedure tv
11002 REMark ========================
11003 REMark Standard TV screen
11005 MODE 8
11010 WINDOW #0,512,256,0,0
11015 PAPER #0,0: CLS #0
11020 WINDOW #2,448,200,32,16
11030 PAPER #2,1: INK #2,7
11040 WINDOW #1,448,200,32,16
11050 PAPER #1,2: INK #1,7
11060 WINDOW #0,448,40,32,216
11070 PAPER #0,0: INK #0,7
11080 CLS #0: CLS #1: CLS #2
11090 END DEFine tv
