« on: February 01, 2019, 02:35:13 am »
x1 = 126: y1 = 80: x2 = 302: y2 = 160: z = 220
DIM gbuff
(12000) ' large buffer SCREEN 12 ' screen mode 640 * 480 * 16 'password$ = "woof" ' delete, comment out, or make null for ordinary screensaver
a
= (a
+ 3) MOD 360: c
= -(a
> 180) y
= 120 - 40 * COS(a
* ATN(1) / 45) ' vertical along right j = i * 120: k = i * 4 + c * 2 + 1
c1
= VAL(MID$(" 7 1 8111012", k
, 2)) c2
= VAL(MID$(" 612 5 214 9", k
, 2)) GET (x1
+ VAL(MID$("122", i
+ 1, 1)), y1
+ j
)-(x2
, y2
+ j
), gbuff
() PUT (x1
, y1
+ j
), gbuff
() GET (z
+ x1
+ VAL(MID$("122", i
+ 1, 1)), y1
+ j
)-(z
+ x2
+ 1, y2
+ j
), gbuff
() PUT (z
+ x1
, y1
+ j
), gbuff
() LINE (x2
, 0)-(x2
+ z
, 479), 0, B
guess$ = guess$ + i$: i$ = "":mi=0
« Last Edit: February 02, 2019, 08:21:42 pm by Richard Frost »
Logged
It works better if you plug it in.