home *** CD-ROM | disk | FTP | other *** search
/ User-Mag 1990 June / User_Mag_1990_06___de_Side_A.atr / demo.qik < prev    next >
Text File  |  2023-02-26  |  3KB  |  1 lines
  1. ¢³¢¢Quick-Sourcetext¢D:DEMO.QIK      ¢----------------¢Length: $0D12¢¢Free  : $6A59¢----------------¢¢¢¢¢¢QUICK-DEMOPROGRAMM¢BYTE¢[¢DMA=559¢WSYNC=54282,PMBASE=54279,GRAC=53277¢HPOS1=53248,HPOS2=53249,PCOL1=704¢CURS=752,PCOL2=705,BCOL=712,TIMER=20¢COLBK=53274¢X,Y,FLAG,CZAE,FARBE¢]¢¢WORD¢[¢DPL=560,BS=88¢PL,PDAT,PDAT1,Z,Z1¢]¢¢¢MAIN¢*Vorzeichen aus¢UNSIGN¢*¢*Displaylist mit DLI¢*in Speicher kopieren¢*¢DATA (24576)¢[¢112,112,112,199,32768,112,6,2,2,2,2¢15,15,15,15,15,15,15,15,15,15,15,15¢15,15,15,15,15,15,15,15,15,15,15,15¢15,15,15,15,15,15,15,15,15,15,15,15¢15,15,15,15,15,15,15,15,15,15,15,15¢15,15,15,15,15,15,15,15,15,15,15,15¢65,24576¢]¢¢DMA=0          *Bildschirm aus¢DPL=24576      *DPL-Zeiger setzen¢BS=32768       *Bildschirmanfang¢CLR (128,11)   *Speicher loeschen¢SETCOL (4,0,0) *Farben setzen¢SETCOL (2,10,4)¢CURS=1         *Cursor aus¢DMA=34         *Bildschirm an¢POS (0,0)      *Und nun Printen...¢PRINT("     quick demo     ")¢PRINT("Quickprogramme werden in ");¢PRINT("MASCHINEN-")¢PRINT("SPRACHE uebersetzt")¢.PAUSE(150)    *Unterprogramm "PAUSE"¢POS (0,1)      *wieder Printen¢PRINT("Deswegen ist ein DLI kein ");¢PRINT("Problem       ")¢PRINT("                          ")¢¢*¢*Playerdaten kopieren¢*¢DATA (25600)¢[¢*PLAYERDATEN¢7,31,63,63,63,63,63,31,15¢6,24,96,60¢192,240,54,127,255,255,246,240,224¢192,96,48,30¢7,31,63,63,63,63,63,31,15¢3,6,15,0¢192,240,54,127,255,255,246,240,224¢192,192,96,120¢7,31,63,63,63,63,63,31,15¢1,1,6,7¢192,240,54,127,255,255,246,240,224¢192,96,120,0¢]¢PMBASE=112    *Playeranfang setzen¢GRAC=3        *Player anschalten¢PCOL1=120     *Playerfarben¢PCOL2=120¢PL=29696      ¢DLI(DISP)     *Unterpr. "DISP" als DLI¢DMA=34¢.PAUSE(150)¢POS(0,1)¢PRINT("Auch ein VBI z.B. fuer eine ");¢PRINT("Playerbewe-")¢PRINT("gung ist ganz einfach")¢X=48          *Position setzen¢Y=100¢PDAT=25600¢PDAT1=25613¢FLAG=0¢DMA=62        *Bildschirm mit Player¢VBI(GNOM)     *Unterpr. "GNOM" als VBI¢.PAUSE(150)¢POS(0,1)¢PRINT("Und das Hauptprogramm kann ");¢PRINT("sich dabei  ")¢PRINT("noch mit Grafiken beschaefti");¢PRINT("gen  ")¢POKE (87,8)   *Grafik 8¢BS=32968      *Bildschirmanfang¢FARBE=1¢*¢*Muster zeichnen¢*¢REPEAT¢   Z=0¢   Z1=319¢   COLOR(FARBE)¢   REPEAT¢      PLOT (Z,0)¢      DRAW (Z1,59)¢      ADD (Z,6,Z)¢      SUB (Z1,6,Z1)¢   UNTIL Z>=319¢   FARBE+¢UNTIL FARBE=255¢ENDMAIN¢¢*¢*DLI¢*¢¢INTER DISP¢BEGIN¢   PUSH        *CPU Register retten¢   IPUSH       *Interne Reg. retten¢   CZAE=224 ¢REPEAT¢   REGA(WSYNC) *Synchronisieren¢   COLBK=CZAE  *Farbe hochzaehlen¢   CZAE+¢   CZAE+¢UNTIL CZAE=240¢   IPULL       *Alle Register zurueck¢   PULL¢ENDDLI¢¢*¢*VBI¢*¢¢INTER GNOM¢LOCAL:¢BYTE¢[¢HX¢]¢¢BEGIN¢   IPUSH¢   X+       *Playerposition aendern¢   Y+¢   IF X>=170¢      X=48¢      Y=100¢   ENDIF¢   ADD (PDAT,26,PDAT)   *Playerform¢   ADD (PDAT1,26,PDAT1) *aendern¢   FLAG+¢   IF FLAG=3¢      FLAG=0     *Anfangs-Form¢      PDAT=25600¢      PDAT1=25613¢   ENDIF¢   CLR(116,2)   *Player loeschen¢*¢*Player1 in Playerbereich kopieren¢*¢   PLAYER (116,Y,13,PDAT)¢*¢*Player2 in Playerbereich kopieren¢*¢   PLAYER (117,Y,13,PDAT1)¢*¢*Horizontale Position setzen¢*¢   HPOS1=X¢   ADD (X,8,HX)¢   HPOS2=HX¢   BCOL+¢   IPULL¢ENDVBI¢¢*¢*Unterprogramm "PAUSE"¢*¢¢PROC PAUSE¢IN:¢BYTE¢[¢WAIT¢]¢LOCAL¢BYTE¢[ ¢LDA=165   *Maschinencodes definieren¢CMP=205¢BNE=208¢]¢BEGIN¢TIMER=0¢*¢*Direkt Maschinensprache einbinden¢*In QUICK ginge es aber auch:¢*REPEAT¢*UNTIL TIMER=WAIT¢*¢INLINE¢[¢LDA,TIMER,CMP,WAIT,BNE,249¢]¢ENDPROC¢¯