-
Notifications
You must be signed in to change notification settings - Fork 2
/
hires-2.bas
33 lines (33 loc) · 673 Bytes
/
hires-2.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
1000 rem
1010 rem goto 15
1020 BASE=2*4092: POKE 53272,PEEK(53272)OR8
1030 POKE 53265,PEEK(53265)OR32
1040 FOR I=BASE TO BASE+7999:POKE I,0:NEXT
1050 FOR I=1024 TO 2023:POKE I,16:NEXT I
1060 REM GOTO 1160
1070 HPSN=210
1080 VPSN=110
1090 gosub 1240
1100 gosub 1310
1110 HPSN=211
1120 VPSN=110
1130 gosub 1240
1140 gosub 1310
1150 HPSN=211
1160 VPSN=111
1170 gosub 1240
1180 gosub 1310
1190 HPSN=211
1200 VPSN=112
1210 gosub 1240
1220 gosub 1310
1230 end
1240 xx=INT(HPSN/8)
1250 ROW=INT(VPSN/8)
1260 LINE=VPSN AND 7
1270 BYTE =BASE+ROW*320+8*xx+LINE
1280 BIT=7-(HPSN AND 7)
1290 POKE BYTE,PEEK(BYTE) or (2^BIT)
1300 RETURN
1310 GET A$: IF A$="" THEN 1310
1320 return