home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User-Mag 1990 June
/
User_Mag_1990_06___de_Side_A.atr
/
demo.qik
< prev
next >
Wrap
Text File
|
2023-02-26
|
3KB
|
1 lines
¢³¢¢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¢¯