start tok64 d64-qz4yFa 10 REM ********************** 20 REM * simple sinus maker * 30 REM * av peter svensson! * 40 REM ********************** 50 GOSUB 900 100 INPUT"{down}{clear}l[gsta v[rde (0-255)";b 110 INPUT"{down}h{pound}gsta v[rde (0-255)";c 120 INPUT"{down}hastighet";e 130 POKE8641,0:SYS8448 140 GOSUB 210:PRINT"r[knar{.*3}" 150 d=(c-b)/2 160 FORt=0TO255 170 v=(b+d)+(d*SIN(2*{pi}*(t/(255/e)))) 180 POKE8192+t,v:POKE8640,v 190 NEXTt:PRINT"{up}klar{!*5} 200 POKE8641,1:END 210 PRINT"{clear}{space*3}{B*33}" 220 PRINT"{down*3}{space*3}{B*33}" 230 PRINT"{down}{space*3}0 1 3 4 6 8 9 1 1 1 1 1 1 2 2 2 2" 240 PRINT"{space*3}0 6 2 8 4 0 6 1 2 4 6 7 9 0 2 4 5" 250 PRINT"{space*17}2 8 4 0 6 2 8 4 0 6":RETURN 900 FORx=8448TO8642:READy:POKEx,y:NEXTx:RETURN 1000 DATA 169, 1 , 141, 21 , 208, 169 1010 DATA 134, 141, 248, 7 , 169, 60 1020 DATA 141, 1 , 208, 120, 169, 1 1030 DATA 141, 26 , 208, 169, 127, 141 1040 DATA 13 , 220, 169, 27 , 141, 17 1050 DATA 208, 169, 224, 141, 18 , 208 1060 DATA 169, 48 , 141, 20 , 3 , 169 1070 DATA 33 , 141, 21 , 3 , 88 , 96 1080 DATA 173, 193, 33 , 201, 1 , 240 1090 DATA 18 , 169, 173, 141, 91 , 33 1100 DATA 169, 192, 141, 92 , 33 , 169 1110 DATA 33 , 141, 93 , 33 , 76 , 88 1120 DATA 33 , 169, 189, 141, 91 , 33 1130 DATA 169, 0 , 141, 92 , 33 , 169 1140 DATA 32 , 141, 93 , 33 , 174, 127 1150 DATA 33 , 189, 0 , 32 , 24 , 105 1160 DATA 52 , 141, 0 , 208, 24 , 105 1170 DATA 204, 176, 8 , 169, 1 , 141 1180 DATA 16 , 208, 76 , 118, 33 , 169 1190 DATA 0 , 141, 16 , 208, 238, 127 1200 DATA 33 , 238, 25 , 208, 76 , 49 1210 DATA 234, 0 , 128, 0 , 0 , 128 1220 DATA 0 , 0 , 128, 0 , 0 , 128 1230 DATA 0 , 0 , 128, 0 , 0 , 128 1240 DATA 0 , 0 , 128, 0 , 0 , 128 1250 DATA 0 , 0 , 128, 0 , 0 , 128 1260 DATA 0 , 0 , 128, 0 , 0 , 128 1270 DATA 0 , 0 , 128, 0 , 0 , 128 1280 DATA 0 , 0 , 128, 0 , 0 , 128 1290 DATA 0 , 0 , 128, 0 , 0 , 128 1300 DATA 0 , 0 , 128, 0 , 0 , 128 1310 DATA 0 , 0 , 0 , 0 , 0 , 0 1320 DATA 0 , 0 , 0 stop tok64 (bastext 1.0)