Compy Shop Magazin 1988 September/Compy_Shop_Magazin_1988_09___de_Side_A.atr/pmdemo.act

Text File | 2023-02-26 | 3KB | 1 lines

PROC DEMO()¢¢; áסכIJךדפ¡גדלנáááááááááááá¢; á¿π⌐áõ¨ÕÕáΓ∙áר≈σáפ∩σΣσ≥ᢢBYTE ARRAY   POS(0) = $D000,¢             SIZ(0) = $D008,¢             CAR(0) = $D00D,¢             COL(0) = $D012¢¢BYTE         COLOR  = $D01A,¢             DMA    = $22F,¢             VCOUNT = $D40B,¢             WSYNC  = $D40A,¢             UHR    = $14,¢             VC,¢             KEY    = 764,¢             C1,C2,C3,C4,¢             T,Z,¢             CRITIC =$42¢¢DO        ;áלIJחמכננסáצקIJפקᢢ; ááקדחכáõᢢSIZ(0)=3 SIZ(1)=3 SIZ (2)=3 SIZ(3)=3¢POS(0)=58 POS(1)=92 POS(2)=126  POS(3)=160¢CAR(0)=$FF CAR(1)=$FF CAR(2)=$FF CAR(3)=$FF¢DMA=0 ¢¢WHILE KEY=$FF DO¢¢VC=VCOUNT¢WSYNC=0¢¢COL(0)=UHR+VC¢COL(1)=UHR-VC!$80¢COL(2)=UHR+VC¢COL(3)=UHR-VC!$80¢¢OD¢¢; áקדחכáØᢢKEY=$FF¢¢WHILE KEY=$FF DO¢¢VC=VCOUNT ¢C1=UHR+VC C2=UHR-VC!$80¢WSYNC=0¢¢COL(0)=C1¢COL(1)=C2¢COL(2)=C1¢COL(3)=C2¢¢VC=VC+UHR¢¢POS(0)=58+VC¢POS(1)=92+VC¢POS(2)=126+VC¢POS(3)=160+VC¢¢OD¢¢; áקדחכáøᢢKEY=$FF¢¢SIZ(0)=3 SIZ(1)=3 SIZ (2)=3 SIZ(3)=3¢POS(0)=58 POS(1)=92 POS(2)=126  POS(3)=160¢CAR(0)=$FF CAR(1)=$FF CAR(2)=$FF CAR(3)=$FF¢DMA=0¢¢WHILE KEY=$FF DO¢¢VC=VCOUNT¢WSYNC=0¢¢C1=UHR+VC C2=UHR-VC!$80¢¢IF VCOUNT<$40¢THEN COL(0)=C1 COL(2)=C1 COL(1)=C2 COL(3)=C2¢ELSE COL(0)=C2 COL(2)=C2 COL(1)=C1 COL(3)=C1¢FI¢¢OD¢¢; áקדחכáœá¢¢KEY=$FF¢WHILE KEY=$FF DO¢¢VC=VCOUNT¢C1=UHR+VC C2=UHR-VC!$80¢WSYNC=0¢¢COL(0)=C1¢COL(1)=C1+40¢COL(2)=C2¢COL(3)=C2+40¢¢POS(0)=24+UHR¢POS(1)=67-UHR¢POS(2)=126+UHR¢POS(3)=190-UHR¢¢OD¢¢; áקדחכáŒá¢¢KEY=$FF¢¢SIZ(0)=3 SIZ(1)=3 SIZ (2)=3 SIZ(3)=3¢POS(0)=60 POS(1)=92 POS(2)=124 POS(3)=156¢CAR(0)=$FF CAR(1)=$FF CAR(2)=$FF CAR(3)=$FF¢DMA=0¢¢WHILE KEY=$FF DO¢¢VC=VCOUNT ¢C1=UHR+VC C2=UHR-VC!$80¢¢IF VCOUNT>$60¢THEN WSYNC=0 COL(0)=C1 COL(1)=C2 COL(2)=C1 COL(3)=C2¢ELSE IF VCOUNT>$40¢     THEN WSYNC=0 COL(0)=C2 COL(1)=C1 COL(2)=C2 COL(3)=C1¢     ELSE IF VCOUNT>$20¢          THEN WSYNC=0 COL(0)=C1 COL(1)=C2 COL(2)=C1 COL(3)=C2¢          ELSE WSYNC=0 COL(0)=C2 COL(1)=C1 COL(2)=C2 COL(3)=C1¢          FI¢     FI¢FI¢¢OD¢¢; áקדחכáÀᢢKEY=$FF¢WHILE KEY=$FF DO¢¢C1=UHR+VCOUNT C2=UHR-VCOUNT!$80¢¢IF VCOUNT<$40¢THEN WSYNC=0 COL(0)=C1 COL(1)=C1+40 COL(2)=C2 COL(3)=C2+40¢ELSE WSYNC=0 COL(0)=C2 COL(1)=C2+40 COL(2)=C1 COL(3)=C1+40¢FI¢¢POS(0)=24+UHR¢POS(1)=67-UHR¢POS(2)=126+UHR¢POS(3)=190-UHR¢¢OD¢¢; ááקדחכáÃᢢSIZ(0)=3 SIZ(1)=3 SIZ (2)=3 SIZ(3)=3¢POS(0)=60 POS(1)=92 POS(2)=124  POS(3)=156¢CAR(0)=$FF CAR(1)=$FF CAR(2)=$FF CAR(3)=$FF¢DMA=0 ¢¢KEY=$FF¢WHILE KEY=$FF DO¢¢VC=VCOUNT¢C1=UHR+VC C2=UHR-VC!$80¢¢IF VCOUNT<$20¢ THEN WSYNC=0 COL(0)=C1 COL(1)=C1 COL(2)=C1 COL(3)=C1 COLOR=C2¢ ELSE IF VCOUNT<$60¢       THEN WSYNC=0 COL(0)=C1 COL(1)=C2 COL(2)=C2 COL(3)=C1 COLOR=C2¢       ELSE WSYNC=0 COL(0)=C1 COL(1)=C1 COL(2)=C1 COL(3)=C1 COLOR=C2¢      FI¢FI¢¢OD¢¢KEY=$FF¢¢OD ; áלIJחמכננסáדמגᢢ¢