dos33fsprogs/basic/appleiibot/sine.bas

3 lines
267 B
QBasic

1FORI=0TO133:POKE882+I,4*PEEK(2125+I)-192+(PEEK(2259+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"V/QaU9N5Ia73U]g,Y^h06BnSP/^e/SL.R73ZQ`0.OW(/b1ejVol0j_A_B$NoP4R+]nX:6BnQ:X06Wo^3kZb8RmifAM,7@DDC=7GF8=;DA850%.0/00000+/0!-0-0110P0PCI04^5Y760@@@O0X4C/0$3WEW(@$+5$CE6#4&<UR)#7a3$#1