mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-06 06:30:36 +00:00
28 lines
696 B
QBasic
28 lines
696 B
QBasic
1HGR2
|
|
2READC,D,A,B,V,W:IFC>127THENEND
|
|
3P=0:FORY=BTOW:HCOLOR=C:IFPTHENHCOLOR=D
|
|
4P=NOTP:HPLOTA,YTOV,Y:NEXT:GOTO2
|
|
50 DATA 3,3,0,0,140,90
|
|
52 DATA 3,3,140,0,279,90
|
|
60 DATA 1,6,0,90,140,191
|
|
62 DATA 1,6,140,90,279,191
|
|
64 DATA 4,1,157,121,208,191
|
|
70 DATA 0,7,141,116,231,135
|
|
71 DATA 7,0,156,20,209,126
|
|
72 DATA 0,7,210,17,213,121
|
|
75 DATA 7,0,145,9,212,20
|
|
76 DATA 0,7,162,0,220,20
|
|
77 DATA 5,0,172,91,187,123
|
|
78 DATA 7,7,169,31,191,63
|
|
79 DATA 7,7,165,39,194,60
|
|
80 DATA 5,1,0,163,63,191
|
|
82 DATA 5,1,63,167,177,191
|
|
84 DATA 5,1,177,185,230,191
|
|
90 DATA 5,0,23,0,39,178
|
|
91 DATA 1,5,1,13,99,44
|
|
92 DATA 5,0,0,0,20,191
|
|
94 DATA 0,5,66,0,81,187
|
|
96 DATA 1,5,66,1,99,19
|
|
97 DATA 0,0,177,32,181,50
|
|
999 DATA 128,0,0,0,0,0
|