|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 613 (0x265)
Types: TextFile
Notes: UNIX file
Names: »fline.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦926b8033d⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »u/demo/slide/fline.c«
short l[] = {
220,248,120,248, /* Printer 1 */
120,248,120,190,
220,252,120,252, /* Printer 2 */
120,252,120,320,
390,244,728,244, /* Terminal 1 */
728,244,728,100,
728,100,660,100,
390,248,730,248, /* Terminal 2 */
730,248,730,100,
730,100,795,100,
390,252,730,252, /* Terminal 3 */
730,252,730,300,
730,300,795,300,
390,256,728,256, /* Terminal 4 */
728,256,728,300,
728,300,660,300,
0,0,0,0};
main()
{
short x1,y1,x2,y2;
short i = 0;
while(1) {
x1 = l[i++];
y1 = l[i++];
x2 = l[i++];
y2 = l[i++];
if(x1 == 0) break;
fspark(x1,y1);
fline(x1,y1,x2,y2);
offspark();
}
}