PC-G850V/DOTCHR.BAS at master · Kongduino/PC-G850V · GitHub

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
34
35
36
37
38
100 REM SAVE "DOTCHR.BAS"
101 REM https://cutt.ly/Ebbh2R4
102 REM BY @hangyodon1123
103 REM updated by @Kongduino
110 CLS: WAIT 1
120 A=20,B=6,L$=""
130 PRINT "Ver. 02 Hit Any Key"
140 WAIT 0
150*WAITK: L$=INKEY$
160 IF L$="" THEN "WAITK"
170 IF ASC(L$)=4 THEN
180 L$=CHR$(ASC(K$)+1):GOTO "STEP2"
190 ENDIF
200 IF ASC(L$)=5 THEN
210 L$=CHR$(ASC(K$)-1):GOTO "STEP2"
220 ENDIF
230*STEP2: K$=L$
240 CLS
250 PRINT "["+K$+"]"
260 PRINT HEX$(ASC(K$))+"H"
270 PRINT: PRINT "UP": PRINT "DN"
280 GOSUB 340
290 GOTO 150
300 END
310 REM DOT READ SUB
320 FOR I=0 TO 5
330 FOR J=0 TO 7
340 D=POINT(I+6,J)
350 IF D=1 THEN
360 LINE (A+I*B,J*B)-(A+I*B+B-2,J*B+B-2),BF
370 ELSE
380 LINE (A+I*B,J*B)-(A+I*B+B-2,J*B+B-2),B
390 ENDIF
400 NEXT J
410 NEXT I
420 RETURN