5 REM  **********************************
10 REM *                                *
15 REM *   GIGA - CAD    GRAPHIC-SYSTEM *
20 REM *                                *
25 REM * ------------------------------ *
30 REM *            'LOADER'            *
35 REM * ------------------------------ *
40 REM *       WRITTEN IN 1986 BY       *
45 REM *        STEFAN VILSMEIER &      *
50 REM *        STEFAN LIPPSTREU        *
55 REM **********************************
60 :
65 :
70 A=PEEK(836)+1:POKE836,A:IFA=1GOTO120
75 IFA=1THENLOAD"HRG.CAD.OBJ",8,1
80 IFA=2THENSYS49152:GOSUB145:LOAD"HIRES1.CAD.OBJ",8,1
85 IFA=3THENSYS50181,11,15,1:LOAD"HIRES2.CAD.OBJ",8,1
90 IFA=4THENLOAD"HIRES3.CAD.OBJ",8,1
95 IFA=5THENSYS25919:LOAD"CRSR1",8,1
100 IFA=6THENLOAD"CRSR2",8,1
105 POKE836,0
110 POKE646,PEEK(53281):PRINT"LOAD"CHR$(34)"CAD.MAIN"CHR$(34)",8"
115 PRINT"RUN:":POKE631,19:POKE632,13:POKE633,13:POKE198,3:NEW
120 POKE53280,15:POKE53281,15:POKE646,11:POKE53263,0:PRINTCHR$(14)CHR$(8)
125 POKE55,0:POKE56,85:CLR:A=1
130 PRINT"[147]        [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
135 PRINT"        [199]IGA-[195][193][196] [214]1.0 LOADING..."
140 PRINT"        [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":GOTO75
145 B=49153:FORX=B+900TOB+926:POKEX,0:NEXT:POKEB+902,1
150 POKEB+919,255:RETURN