mirror of
https://github.com/mauiaaron/apple2.git
synced 2024-06-26 00:29:27 +00:00
34 lines
1.0 KiB
QBasic
34 lines
1.0 KiB
QBasic
10 REM
|
|
20 REM HIRES80 Picture Test
|
|
30 REM
|
|
|
|
40 REM
|
|
50 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
|
70 REM
|
|
|
|
90 REM
|
|
100 REM INITIALIZE
|
|
110 REM
|
|
120 STR80 = -16383 : COL80 = -16371 : NOMIX = -16302 : MBD = -16300
|
|
130 AUX = -16299 : FRCTXT = -16290 : HCLEER = 768
|
|
|
|
150 HGR : POKE STR80,0 : POKE NOMIX,0 : POKE COL80,0
|
|
160 POKE FRCTXT,0 : HCOLOR=3
|
|
170 REM MOVE "LDA #$20, JMP $F3EA" TO HCLEER
|
|
180 POKE HCLEER,169 : POKE HCLEER+1,32 : POKE HCLEER+2,76
|
|
190 POKE HCLEER+3,234 : POKE HCLEER+4,243
|
|
200 POKE AUX,0 : CALL HCLEER : REM CLEAR AUX
|
|
|
|
220 HPLOT 140,0 TO 140,26 : HPLOT 140,167 TO 140,191 : REM DRAW VERT LINE
|
|
230 POKE MBD,0 : HPLOT 139,0 TO 139,26 : HPLOT 139,167 TO 139,191
|
|
|
|
250 REM
|
|
260 REM LOAD DHIRES PICTURE
|
|
270 REM
|
|
280 PRINT CHR$(4)"BLOAD MEMMOVE.OBJ,A$1E80"
|
|
290 PRINT CHR$(4)"BLOAD AH_1,A$2000"
|
|
300 CALL 7808
|
|
310 POKE 7987,255 : REM PING TEST
|
|
320 PRINT CHR$(4)"BLOAD AH_0,A$2000"
|
|
330 POKE 7987,255 : REM PING TEST
|