0 REM DEMO FOR "SET" UTILITY
1 REM USAGE: POKE 0,X:POKE 1,Y:SYS 634
2 REM THIS VERS., N. LANDSTEINER, 2021
3 :
100 PRINT "{CLS} **** LISSAJOU PLOT GRAPHICS DEMO ****":PRINT
110 PRINT "(AFTER "+CHR$(34)+"PROGRAMMING THE PET/CBM"+CHR$(34)+", P.129)"
120 GOSUB 1000
130 PRINT:INPUT "> TWO NUMBERS, E.G. 4,7";A,B
140 PRINT "{CLS}"
150 FOR J=0 TO 9E9 STEP 2
160 X=(1+SIN(A*J))*40:Y=(1+COS(B*J))*25
170 POKE 0,X:POKE 1,Y:SYS 634
180 NEXT
190 END
999 REM "SET" UTILITY BYTE LOADER
1000 FOR A=634 TO 752:READ B:POKE A,B:NEXT:RETURN
1001 DATA 169,0,133,148,169,32,133,2
1002 DATA 165,0,201,80,176,56,165,1
1003 DATA 201,50,176,50,169,50,229,1
1004 DATA 70,0,38,148,106,38,148,133
1005 DATA 1,10,10,101,1,10,10,38
1006 DATA 2,10,38,2,234,234,234,133
1007 DATA 1,166,148,189,221,2,133,148
1008 DATA 164,0,177,1,162,15,221,225
1009 DATA 2,240,4,202,16,248,96,173
1010 DATA 220,2,240,6,138,5,148,170
1011 DATA 208,8,138,73,255,5,148,73
1012 DATA 255,170,189,225,2,164,0,145
1013 DATA 1,96,1,1,2,4,8,32
1014 DATA 126,123,97,124,226,255,236,108
1015 DATA 127,98,252,225,251,254,160