100 REM DRIVER DEMONSTRATION
110 REM COPYRIGHT 1991 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
120 REM MAKE SURE DRIVER IS IN MEMORY!
122 IF CG=0 THEN CG=7:LOAD"MEDDEN",8,1
130 :
135 PI=3.14159
140 POKE 53280,11:POKE 53281,11
150 PRINTCHR$(147)CHR$(5)
160 PRINTTAB(11)"LISSAJOUS FIGURES"CHR$(17)
170 PRINT"PRESS ANY KEY AFTER VIEWING FIGURE"
180 PRINTCHR$(17)"ENTER ANY TWO NUMBERS, EACH"
190 INPUT"WITH VALUES LESS THAN 5";X,Y
200 IF X>5 OR Y>5 THEN 180
210 PRINTCHR$(147)
220 FL=1:GOSUB 260
230 POKE 198,0:WAIT 198,1
240 FL=0:GOSUB 260
250 END
260 FOR T=1 TO 2*PI*100+(10*PI*(X+Y))
270 SYS 828,(1+SIN(X*T))*40,(1+COS(Y*T))*25,FL,C
280 NEXT
290 RETURN