mirror of
https://github.com/mauiaaron/apple2.git
synced 2024-06-26 00:29:27 +00:00
* 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)
16 lines
333 B
QBasic
16 lines
333 B
QBasic
10 REM
|
|
20 REM SINEWAVE HIRES TEST
|
|
30 REM
|
|
|
|
35 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
|
|
|
40 HGR
|
|
50 IF PEEK(7986)<>127 THEN POKE -16302,0 : REM SET NOMIXED
|
|
60 FOR X = 0 TO 279
|
|
70 HCOLOR = 3
|
|
80 Y = 80 + SIN(15*(X-K)/279) * 40
|
|
90 HPLOT X,Y
|
|
100 NEXT X
|
|
110 POKE 7987,255
|
|
|