Antic Magazine 1982 August/Antic_August_1982_Vol_1_No_3.atr/houses.pil

Text File | 2021-02-19 | 1KB | 1 lines

10 R:HOUSES¢20 R:------- Draws houses and shifts¢30 R:------- all four color registers¢40 R:------- ANTIC Issue 3¢50 *COLOR¢60 GR:CLEAR¢70 GR:GOTO -20,10¢80 U:*HOUSE¢90 GR:GOTO 20,10¢100 U:*HOUSE¢110 U:*REGISTER0¢120 PA:240¢130 U:*REGISTER1¢140 PA:240¢150 U:*REGISTER2¢160 PA:240¢170 U:*REGISTER4¢180 E:¢190 *HOUSE¢200 GR:PEN YELLOW¢210 GR:TURNTO0¢220 GR:TURN 135;DRAW 14¢230 GR:TURN 45;PEN BLUE;DRAW 15 [REG 2¢240 GR:TURN 90;DRAW 5¢250 GR:TURN 90;FILL 8¢260 GR:TURN -90;DRAW 10¢270 GR:TURN -90;PEN RED;FILL 8 [REG 0¢280 GR:TURN 90;PEN BLUE;DRAW 5¢290 GR:TURN 90;FILL 14¢300 GR:TURN 45;PEN YELLOW;FILL 14 [REG 1¢310 E:¢320 *REGISTER0¢330 C:#A=192 [HUE 12 LUM 0¢340 *INCREMENT0¢350 C:@B708=#A¢360 T:708 = #A¢370 PA:30¢380 C:#A=#A+2¢390 J(#A<202):*INCREMENT0¢400 E:¢410 *REGISTER1¢420 C:#A=224 [HUE 14 LUM 0¢430 *INCREMENT1¢440 C:@B709=#A¢450 T:709 = #A¢460 PA:30¢470 C:#A=#A+2¢480 J(#A<228):*INCREMENT1¢490 E:¢500 *REGISTER2¢510 C:#A=80  [HUE 5 LUM 0¢520 *INCREMENT2¢530 C:@B710=#A¢540 T:710 = #A¢550 PA:30¢560 C:#A=#A+2¢570 J(#A<88):*INCREMENT2¢580 E:¢590 *REGISTER4¢600 C:#A=144 [HUE 9 LUM 0¢610 *INCREMENT4¢620 C:@B712=#A¢630 T:712 = #A¢640 PA:30¢650 C:#A=#A+2¢660 J(#A<152):*INCREMENT4¢670 E:¢