News:

Printed Amstrad Addict magazine announced, check it out here!

Main Menu
avatar_SRS

Ten colors in MODE 1

Started by SRS, 21:17, 19 August 17

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

SRS

Yeah, you may know that, I just found it on an old disc ... from late 80is and I just liked it.

[attachimg=1]

1000 MODE 1
1002 PRINT"COLORDEMO MODE 1 VON CARSTEN DOST"
1003 FOR b=0 TO 3
1005 FOR v=50 TO 0 STEP -2
1006 y=300-(b*50)+v
1007 k=k XOR 1:PLOT 0,y,b:DRAWR 200,0
1008 FOR c=0 TO 3:FOR z=k TO 50 STEP 4
1009 x=c*50+z-1
1020 PLOT x,y,c
1030 NEXT
1040 NEXT
1045 NEXT
1049 NEXT
1050 END

Gryzor


AMSDOS

Quote from: Gryzor on 09:59, 20 August 17
WITCHCRAFT!


Seems to be a popular concept, the June 1989 issue of AA had this Mosaic program which is also Mode 1





I translated it to Hisoft Pascal, which resulted in it running at a blistering pace.
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3

Powered by SMFPacks Menu Editor Mod