0 DATA"204560205A60203661A900A030208260A900A030209660A91D8D18D0201F61E6B7D002E6B8"
1 DATA"A900A038208260A900A038209660A91F8D18D0201F61E6B7D0CAE6B84C096060A204A000"
2 DATA"A9FF84FE86FF91FEC8D0FBE6FFCAD0F660A204A0AC84FE86FFA20FA9F0A00F91FE38E91088"
3 DATA"10F8A8C8A5FE18692885FE9002E6FF98CA10E56085FE84FFA208A0009891FEC8D0FBE6FFCA"
4 DATA"D0F6608D53618C5461A0008C51618C5261A000B1FCAAB1B7A8BD0070186D536185FEBD8070"
5 DATA"6D546185FFBD007111FE91FEA5FC186D556185FC9002E6FDA5B7186D566185B79002E6B8"
6 DATA"EE5161D003EE5261A5FDC973D010A5FCC980900AE90085FCA5FDE90285FDA5B8C975D010"
7 DATA"A5B7C980900AE90085B7A5B8E90285B8AD5261C902D08DAD5161C900D08660A5CBC90EF005"
8 DATA"C940D0F660A9158D18D0A90085C64C74A4A98085FCA97185FDA98085B7A97385B8A901"
9 DATA"8D5561A9018D566160":A=24576:FORI=0TO9:READW$:FORJ=1TOLEN(W$)STEP2
10 W=ASC(MID$(W$,J))-48:PRINT".";:W=W+(W>10)*7:V=ASC(MID$(W$,J+1))-48:V=V+(V>10)*7:W=W*16+V
11 POKEA,W:A=A+1:NEXTJ,I:PRINT:FORI=0TO127:A=(IAND248)*16:B=2^(7-(IAND7)):POKE28672+I,AAND255
12 POKE28800+I,A/256:POKE28928+I,B:PRINT".";:NEXT:PRINT:FORI=0TO511:C=(null)*I/256:PRINT".";
13 POKE29056+I,SIN(C)*59+60:POKE29568+I,COS(C)*59+60:NEXT
14 PRINT"[147]KREISENDE  LISSAJOUS-FIGUREN":PRINT"PROGRAMMIERT VON DIRK ROTHER"
15 INPUT"B[146]EWEGT E[146]INZELSCHRITTE";A$:PRINT"FREQUENZVERHAELTNIS":INPUT"FX";B$
16 INPUT"FY";C$:POKE24903,VAL(B$):POKE24908,VAL(C$):A=240:IFA$="B"THENA=208
17 POKE24871,A:PRINT"ENDE MIT E[146] NEUSTART MIT RUN14[146]"
18 PRINT"AKTION (HALTEN/WEITER) MIT TASTE":FORI=0TOTI+300:I=TI:NEXT
19 POKE53280,0:POKE53281,0:PRINT"[147]":SYS6*4096