0100 ;FILENAME: GRTEST.M65›0110 .OPT NO LIST ;Don't list ]INCLUDE files›0120 ;›0130 ;These files are on MAC/65 disk.›0140 .INCLUDE #D:SYSEQU.M65›0150 .INCLUDE #D:IOMAC.LIB›0160 ;›0170 ;See text for these files.›0180 .INCLUDE #D:GREQU.M65›0190 .INCLUDE #D:GRAPHICS.LIB›0200 ;›0210 GRMEM = 460 ;Bytes of memory for GR. 3›0220 ;›0230 *= $3000›0240 ;›0250 .OPT LIST›0260 ;›0270 ;Set top of applications memory›0280 LDA # <$BFFF-GRMEM›0290 STA APPMHI›0300 LDA # >$BFFF-GRMEM›0310 STA APPMHI+1›0320 ;›0330 ;This looks like BASIC...›0340 GRAPHICS 3›0350 COLOR 1›0360 SETCOLOR 4,0,4›0370 SETCOLOR 0,4,14›0380 PLOT 5,5›0390 DRAWTO 5,15›0400 DRAWTO 15,15›0410 DRAWTO 15,5›0420 DRAWTO 5,5›0430 ;›0440 ;Loop until SYSTEM RESET›0450 END JMP END›0460 .OPT NO LIST›