mirror of
https://github.com/mauiaaron/apple2.git
synced 2024-06-26 00:29:27 +00:00
c1e2e99c26
* Tests run the virtual 65c02 machine through the debugger interface
* The various display mode tests verify against the SHA1 of the framebuffer
* Includes some Applesoft BASIC script tests (also loaded on disks/testvm1.dsk.gz)
23 lines
556 B
QBasic
23 lines
556 B
QBasic
10 REM
|
|
20 REM HGR MOIRE
|
|
30 REM
|
|
|
|
35 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
|
|
|
40 HGR
|
|
45 IF PEEK(7986)<>127 THEN POKE -16302,0 : REM SET NOMIXED
|
|
50 FOR Y = 0 TO 190 STEP 2
|
|
60 HCOLOR = 4 : REM BLACK
|
|
70 HPLOT 0,191-Y TO 279,Y
|
|
80 HCOLOR = 7 : REM WHITE
|
|
90 HPLOT 0,190-Y TO 279,Y+1
|
|
100 NEXT Y
|
|
110 FOR X = 0 TO 278 STEP 3
|
|
120 HCOLOR = 4
|
|
130 HPLOT 279-X,0 TO X,191
|
|
140 HCOLOR = 7
|
|
150 HPLOT 278-X,0 TO X+1,191
|
|
160 NEXT X
|
|
170 POKE 7987,255
|
|
|