¢; IJבזקרמו´ Bei File Version von¢; Action nur von Diskette¢; compilierern !!!!!¢¢¢; ACTION LIBRARY DEMO¢¢BYTE CONSOLE=53279¢¢¢¢PROC WAIT(BYTE FACTOR)¢CARD I¢¢FOR I=1 TO 255*FACTOR DO OD¢¢RETURN¢¢PROC SOUND_DEMO()¢BYTE AUDCTL=$D208¢BYTE I,I2,I3,I4¢ ¢GRAPHICS(0)¢PRINTE("Öצנרמגáגדלנ⑨ ")¢pute()¢PRINTE("ACHTUNG: Action! setzt beim Sound-")¢PRINTE("Befehl") ¢printe("das Audio-Control Register $D208")¢PRINTE("nicht wie in Basic auf 0 ")¢¢AUDCTL=0¢¢I=15¢ DO SOUND(0,40,14,I) WAIT(10) I==-1¢ UNTIL I=255¢ OD¢¢I=15¢ DO SOUND(0,50,14,I) WAIT(10) I==-1¢ UNTIL I=255¢ OD¢¢I=15¢ DO SOUND(0,60,14,I) WAIT(10) I==-1¢ UNTIL I=255¢ OD¢¢I=15¢ DO SOUND(0,70,14,I) WAIT(10) I==-1¢ UNTIL I=255¢ OD¢SNDRST() WAIT(255)¢¢FOR I=40 TO 70¢ DO¢ FOR I2=I TO I+40¢ DO¢ SOUND(0,I2,14,10)¢ WAIT(1)¢ OD¢ OD¢¢FOR I=40 TO 70¢ DO¢ FOR I2=I TO I+40¢ DO¢ SOUND(0,I2,14,10)¢ FOR I3=1 TO 254 DO OD¢ OD¢ OD¢SNDRST()¢¢¢¢ ¢ FOR I=100 TO 200 ¢ DO¢ SOUND(0,I,14,10)¢ SOUND(1,I+1,14,10)¢ SOUND(2,I+2,14,10)¢ SOUND(3,I+3,14,10)¢ WAIT(3)¢ OD¢¢ WAIT(254)¢ WAIT(254)¢ AUDCTL=1¢ WAIT(254)¢ WAIT(254)¢¢ I=200 ¢ DO¢ SOUND(0,I,14,10)¢ SOUND(1,I+1,14,10)¢ SOUND(2,I+2,14,10)¢ SOUND(3,I+3,14,10)¢ WAIT(3)¢ I==-1¢ UNTIL I=99 ¢ OD¢¢ WAIT(254)¢ WAIT(254)¢ AUDCTL=0¢ WAIT(254)¢ WAIT(254)¢¢ SNDRST()¢ WAIT(254)¢ WAIT(254)¢¢¢RETURN¢¢¢¢¢PROC WST() ; WARTEN BIS START GE-¢ ; DRUECKT WIRD¢CARD I ¢FOR I=0 TO 12000 DO OD ; KURZE PAUSE¢PRINTE("Nun <START> Druecken")¢ DO ¢ UNTIL CONSOLE=6¢ OD¢RETURN¢¢PROC PLOT_DEMO() ¢card i¢byte x,y,a,xd,yd¢GRAPHICS(0)¢PRINTE("Mit dem Joystick den Punkt steuern")¢printe("und mit Feuerknopf Linien ziehen")¢printe("mit <OPTION> geht's zurueck")¢ pute()¢ pute()¢wst()¢graphics(7)¢ ¢SETCOLOR(1,0,15)¢x=0 y=0¢¢color=1¢¢do¢ a=stick(0)¢ if a=14 then y==-1¢ if y=255 then y=0 fi fi¢ if a=13 then y==+1¢ if y=80 then y=79 fi fi¢ if a=7 then x==+1¢ if x=160 then x=159 fi fi¢ if a=11 then x==-1¢ if x=255 then x=0 fi fi¢¢ plot(x,y)¢¢FOR I=0 TO 1000 DO OD ; KURZE PAUSE¢¢ if strig(0)=0 and a<>15 then ¢ xd=x YD=y¢ if a=14 then yd=y-20¢ if yd > 79 then yd=0 fi fi¢ if a=13 then yd=y+20¢ if yd > 79 then yd=79 fi fi¢ if a=7 then xd=x+20¢ if xd > 159 then xd=159 fi fi¢ if a=11 then xd=x-20¢ if xd > 159 then xd=0 fi fi¢ COLOR=2¢ DRAWTO(XD,YD)¢ COLOR=1¢ FOR I=0 TO 255¢ DO SOUND(0,I,14,10)¢ SNDRST()¢ OD¢ FI¢ IF STRIG(0)=0 AND A=15 THEN ¢ FOR I=0 TO 255¢ DO SOUND(0,I,14,10)¢ SNDRST()¢ OD¢ fi¢UNTIL CONSOLE=3¢od¢return¢¢¢PROC GTIA_DEMO()¢BYTE ZEILE,CL,RATE ¢CARD I¢¢CL=0 RATE=1¢¢FOR ZEILE=0 TO 191¢ DO ¢¢ COLOR=CL¢ PLOT (0,ZEILE)¢ DRAWTO (79,ZEILE)¢¢ CL==+RATE¢ IF CL=16 THEN RATE=-1 CL=15 FI¢ IF CL=0 THEN RATE=1 CL=0 FI¢ OD¢¢FOR I=0 TO 30000 DO OD ; KURZE PAUSE¢¢RETURN¢¢PROC QUADRAT()¢COLOR=1¢PLOT(0,0) DRAWTO(19,0)¢DRAWTO(19,19) ¢DRAWTO(0,19) DRAWTO(0,0)¢RETURN¢¢PROC GRAPHICS_DEMO()¢¢GRAPHICS(0)¢PRINTE("ááááááááááááופIJסזחבצáגדלנáááááááááááá")¢PUTE()¢PUTE()¢PUTE()¢PUTE()¢PUTE()¢PRINTE("Dieser Teil zeigt die verschiedenen ") ¢PRINTE("Graphicstufen")¢ ¢PUTE()¢PUTE()¢wst()¢¢Graphics(1)¢printde(6,"Graphics 1")¢wst()¢¢Graphics(2)¢printde(6,"Graphics 2")¢wst()¢¢GRAPHICS(3)¢QUADRAT()¢PRINTE("Graphics 3 (vier Farben)")¢wst()¢¢GRAPHICS(4)¢QUADRAT()¢PRINTE("Graphics 4 (einfarbig)")¢wst()¢¢GRAPHICS(5)¢QUADRAT()¢PRINTE("Graphics 5 (vier Farben)")¢wst()¢¢GRAPHICS(6)¢QUADRAT()¢PRINTE("Graphics 6 (einfarbig)")¢wst()¢ ¢GRAPHICS(7)¢QUADRAT()¢PRINTE("Graphics 7 (vier Farben)")¢wst()¢¢GRAPHICS(8)¢QUADRAT()¢PRINTE("Graphics 8 (einfarbig) ")¢wst()¢¢GRAPHICS(12)¢printde(6,"Graphics 12/ Antic 4")¢printde(0,"Graphics 12/ Antic 4")¢wst()¢¢GRAPHICS(13)¢printde(6,"Graphics 13/ Antic 5")¢printde(0,"Graphics 13/ Antic 5")¢wst()¢¢GRAPHICS(14)¢QUADRAT()¢PRINTE("Graphics 14 (einfarbig) ")¢wst()¢¢GRAPHICS(15)¢QUADRAT()¢PRINTE("Graphics 15 (vier Farben)")¢wst()¢¢Graphics(0)¢Printe("Es folgen Demos fuer Graphics 9/10/11)")¢printe("Graph. 9 : 1 Farbe / 16 Helligkeiten")¢printe("Graph. 10: 8 Farben / alle Helligkeiten")¢printe("Graph; 11: 16 Farbe / 1 Helligkeit")¢pute()¢pute()¢pute()¢wst()¢¢GRAPHICS(9) GTIA_DEMO()¢GRAPHICS(10) GTIA_DEMO()¢GRAPHICS(11) GTIA_DEMO()¢ ¢RETURN¢¢¢¢¢¢¢¢PROC MENU()¢byte a¢¢do¢GRAPHICS(0)¢PRINTE("ACTION! DEMO")¢PUTE()¢PRINTE("Mit diesem Demo sollen die ver-") ¢printe("schiedenen Library Befehle besser ")¢printe("verstanden werden.")¢pute()¢printe("Bitte waehle")¢PUTE()¢printe("1. Graphics Demo")¢printe("2. PLOT/DRAWTO und STICK/STRIG Demo")¢printe("3. SOUND DEMO")¢PUTE()¢¢close(1) open(1,"K:",4,0)¢a=getd(1)¢¢if a='1 then GRAPHICS_DEMO() fi¢if a='2 then PLOT_DEMO() fi¢if a='3 then SOUND_DEMO() fi¢¢od¢return¢
