Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 839 lines (830 sloc) 30.8 KB
DECLARE SUB mousehide ()
DECLARE SUB MouseDriver (AX%, bx%, CX%, DX%)
DECLARE FUNCTION MouseInit% ()
DECLARE SUB mouseshow ()
DECLARE SUB mousestatus (lb%, rb%, Xmouse%, Ymouse%)
ON ERROR GOTO Handler
DIM SHARED mouse$
DIM a(22, 80)
RESTORE
mouse$ = SPACE$(57)
FOR i% = 1 TO 57
READ a$
H$ = CHR$(VAL("&H" + a$))
MID$(mouse$, i%, 1) = H$
NEXT i%
DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B
DATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53
DATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0F
DATA 8B,5E,06,89,17,5D,CA,08,00
CLS
MS% = MouseInit%
IF NOT MS% THEN
LET AMOUSE$ = "NO":
END IF
LET AMOUSE$ = "YES"
g = 15
wanted$ = CHR$(219)
gr = 0
wantedr$ = CHR$(219)
version$ = "7.0"
IF UCASE$(COMMAND$) > CHR$(0) THEN name$ = UCASE$(COMMAND$): GOTO commandpromptsh
picture1:
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 2267
DATA 2267 , 2267 , 2267 , 475 , 475 , 475 , 475 , 475 , 2267 , 2267
DATA 2267 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 2267 , 2267 , 2267 , 2267 , 475 , 475 , 475 , 2267 , 2267 , 2267
DATA 2267 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267
DATA 2267 , 2267 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 4059 , 4059
DATA 4059 , 4059 , 4059 , 219 , 219 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 219 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059 , 4059 , 3872
DATA 3872 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267
DATA 2267 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059
DATA 3872 , 3872 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267 , 2267
DATA 2267 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059
DATA 4059 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 731 , 731 , 4059 , 4059 , 4059
DATA 4059 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059 , 4059 , 4059
DATA 4059 , 4059 , 731 , 731 , 731 , 731 , 731 , 731 , 731 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059
DATA 4059 , 731 , 731 , 731 , 1243 , 731 , 731 , 731 , 731 , 731
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 4059 , 4059 , 4059 , 4059 , 4059 , 731 , 731 , 731
DATA 731 , 731 , 731 , 731 , 1243 , 1243 , 1243 , 1243 , 731 , 731
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059
DATA 1243 , 1243 , 1243 , 731 , 731 , 731 , 731 , 1243 , 1243 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059 , 4059 , 4059 , 4059
DATA 4059 , 731 , 731 , 731 , 731 , 1243 , 1243 , 1243 , 4059 , 4059
DATA 4059 , 4059 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 731 , 731 , 4059 , 4059 , 4059
DATA 4059 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 4059 , 4059 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 4059
DATA 4059 , 4059 , 4059 , 4059 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
DATA 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872 , 3872
RESTORE picture1
FOR i = 1 TO 22
FOR j = 1 TO 80
READ a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 22
FOR j = 1 TO 80
LOCATE i, j
COLOR FIX(a(i, j) / 256)
PRINT CHR$(a(i, j) MOD 256)
NEXT j
NEXT i
COLOR 15
LOCATE 22, 12: PRINT "PaintPro v. " + version$ + " (c)WolfWare Interactive '98"
SLEEP
clearer:
FOR i = 1 TO 22
FOR j = 1 TO 80
a(i, j) = g * 256 + 32
NEXT j
NEXT i
CLS
COLOR 10
LOCATE 23, 1: PRINT " ile dit Finish roject elp "
COLOR 12
LOCATE 23, 1: PRINT "F"
LOCATE 23, 9: PRINT "E"
LOCATE 23, 24: PRINT "P"
LOCATE 23, 35: PRINT "H"
start:
mouseshow
mousestatus lb%, rb%, Xmouse%, Ymouse%
x = Xmouse% / 8 + 1
y = Ymouse% / 8 + 1
lb = lb%
rb = rb%
IF lb = -1 THEN lb = 1
IF rb = -1 THEN rb = 1
lm$ = INKEY$
IF lb% = -1 THEN GOSUB nextline
IF rb% = -1 THEN GOSUB nextline2
IF lm$ = "F" THEN GOTO file
IF lm$ = "f" THEN GOTO file
IF lm$ = "E" THEN GOTO edit
IF lm$ = "e" THEN GOTO edit
IF lm$ = "P" THEN GOTO finish
IF lm$ = "p" THEN GOTO finish
IF lm$ = "r" THEN GOTO recover
IF lm$ = "R" THEN GOTO recover
IF lm$ = "h" THEN GOTO help
IF lm$ = "H" THEN GOTO help
COLOR 15
LOCATE 23, 50: PRINT "X:"; x; "Y:"; y; "LB:"; lb; "RB:"; rb
GOTO start
nextline:
mousestatus lb%, rb%, Xmouse%, Ymouse%
xm% = Xmouse% / 8 + 1
ym% = Ymouse% / 8 + 1
x = xm%
y = ym%
IF y = 23 THEN GOSUB menuselect
IF y > 22 THEN RETURN
COLOR g
wantedtemp$ = wanted$
WHILE LEN(wantedtemp$) > 0 AND y <= 22
a(y, x) = g * 256 + ASC(wantedtemp$)
wantedtemp$ = RIGHT$(wantedtemp$, LEN(wantedtemp$) - 1)
LOCATE y, x
COLOR FIX(a(y, x) / 256)
PRINT CHR$(a(y, x) MOD 256)
x = x + 1
IF x > 80 THEN x = 1: y = y + 1
WEND
COLOR 10
LOCATE 23, 1: PRINT " ile dit Finish roject elp "
COLOR 12
LOCATE 23, 1: PRINT "F"
LOCATE 23, 9: PRINT "E"
LOCATE 23, 24: PRINT "P"
LOCATE 23, 35: PRINT "H"
RETURN
file:
mousehide
CLS
COLOR 15
PRINT "New(1)? Save(2)? Open(3)? Exit(4)? Cancel(5)?"
PRINT ">"
doloop2:
c$ = INKEY$
IF c$ = "4" THEN END
IF c$ = "2" THEN GOTO saver
IF c$ = "5" THEN GOTO recover
IF c$ = "3" THEN GOTO opener
IF c$ = "1" THEN GOTO clearer
GOTO doloop2
nextline2:
mousestatus lb%, rb%, Xmouse%, Ymouse%
xm% = Xmouse% / 8 + 1
ym% = Ymouse% / 8 + 1
x = xm%
y = ym%
IF y = 23 THEN GOSUB menuselect
IF y > 22 THEN RETURN
COLOR g
wantedtemp$ = wantedr$
WHILE LEN(wantedtemp$) > 0 AND y <= 22
a(y, x) = gr * 256 + ASC(wantedtemp$)
wantedtemp$ = RIGHT$(wantedtemp$, LEN(wantedtemp$) - 1)
LOCATE y, x
COLOR FIX(a(y, x) / 256)
PRINT CHR$(a(y, x) MOD 256)
x = x + 1
IF x > 80 THEN x = 1: y = y + 1
WEND
COLOR 10
LOCATE 23, 1: PRINT " ile dit Finish roject elp "
COLOR 12
LOCATE 23, 1: PRINT "F"
LOCATE 23, 9: PRINT "E"
LOCATE 23, 24: PRINT "P"
LOCATE 23, 35: PRINT "H"
RETURN
recover:
COLOR 10
LOCATE 23, 1: PRINT " ile dit Finish roject elp "
COLOR 12
LOCATE 23, 1: PRINT "F"
LOCATE 23, 35: PRINT "H"
LOCATE 23, 9: PRINT "E"
LOCATE 23, 24: PRINT "P"
FOR i = 1 TO 22
FOR j = 1 TO 80
LOCATE i, j
COLOR FIX(a(i, j) / 256)
PRINT CHR$(a(i, j) MOD 256)
NEXT j
NEXT i
GOTO start
edit:
mousehide
CLS
COLOR 15, 0
PRINT "Do you want to edit what the left mouse button does or the right"
PRINT "mouse button? <L/R>"
doloop1:
lm$ = UCASE$(INKEY$)
IF lm$ = "R" THEN whichmouse$ = "R": GOTO leftmouse
IF lm$ > CHR$(0) THEN whichmouse$ = "L": GOTO leftmouse
GOTO doloop1
leftmouse:
PRINT "Change Color(1)? Change Character(2)? Fill(3)? Insert text(4)?"
PRINT "Cancel(5)?"
PRINT ">"
doloop3:
c$ = INKEY$
IF c$ = "1" THEN GOTO ccolor
IF c$ = "2" THEN GOTO cdesign
IF c$ = "5" THEN GOTO recover
IF c$ = "3" THEN GOTO fillermain
IF c$ = "4" THEN GOTO texter22
GOTO doloop3
ccolor:
COLOR 15
PRINT "Do you want (f)lashing colors or (r)egular? <F/R>"
dolooper:
lm$ = INKEY$
IF lm$ = "F" THEN GOTO flash
IF lm$ = "f" THEN GOTO flash
IF lm$ = "R" THEN GOTO reg
IF lm$ = "r" THEN GOTO reg
GOTO dolooper
reg:
PRINT "Which color?"
FOR i = 1 TO 15
COLOR i
PRINT CHR$(219), "("; i; ")"
NEXT i
COLOR 15
IF whichmouse$ = "L" THEN INPUT "Color here>", g
IF whichmouse$ = "R" THEN INPUT "Color here>", gr
CLS
GOTO recover
flash:
PRINT "Which color?"
FOR i = 1 TO 15
COLOR i
PRINT CHR$(219), "("; i; ")"
NEXT i
COLOR 15
INPUT "Color here>", l
IF whichmouse$ = "L" THEN g = l + 16
IF whichmouse$ = "R" THEN gr = l + 16
CLS
GOTO recover
cdesign:
COLOR 15
PRINT "Which character?"
COLOR 15
FOR i = 14 TO 100
IF i = 25 THEN GOTO nexter
IF i = 29 THEN GOTO nexter
IF i = 30 THEN GOTO nexter
IF i = 28 THEN GOTO nexter
IF i = 31 THEN GOTO nexter
IF i = 32 THEN GOTO nexter
PRINT CHR$(i); " ("; i; ")",
nexter:
NEXT i
PRINT "Press ENTER to continue..."
INPUT "", c
FOR i = 100 TO 200
PRINT CHR$(i); " ("; i; ")",
NEXT i
PRINT "Press ENTER to continue..."
INPUT "", c
FOR i = 200 TO 254
PRINT CHR$(i); " ("; i; ")",
NEXT i
PRINT "If you want a specific character, type 999 here."
INPUT "Please type the number of the character here>", c
IF c = 999 THEN GOSUB texter99 ELSE wanted$ = CHR$(c)
CLS
GOTO recover
saver:
CLS
COLOR 15
PRINT "What is the name and location of the file you want to save?"
PRINT "[drive]:\[folder(s)]\[nameoffile].ppf"
PRINT "Example: c:\myfiles\projects\picture1.ppf"
INPUT ">", name$
CLS
OPEN name$ FOR OUTPUT AS #1
FOR i = 1 TO 22
FOR j = 1 TO 80
PRINT #1, a(i, j)
NEXT j
NEXT i
CLOSE #1
GOTO recover
opener:
CLS
COLOR 15
PRINT "What is the name and location of the file you want to open?"
PRINT "[drive]:\[folder(s)]\[nameoffile].ppf"
PRINT "Example: c:\myfiles\projects\picture1.ppf"
INPUT ">", name$
commandpromptsh:
OPEN name$ FOR INPUT AS #1
FOR i = 1 TO 22
FOR j = 1 TO 80
INPUT #1, a(i, j)
NEXT j
NEXT i
CLOSE #1
GOTO recover
finish:
mousehide
CLS
COLOR 15
PRINT "Are you sure that you want to save the picture to QBasic source code?"
PRINT "<Y/N>"
looper1:
lm$ = INKEY$
IF lm$ = "y" THEN GOTO goon
IF lm$ = "Y" THEN GOTO goon
IF lm$ = "n" THEN GOTO recover
IF lm$ = "N" THEN GOTO recover
GOTO looper1
goon:
PRINT "What is the name and location of the file you want to save?"
PRINT "[drive]:\[folder(s)]\[nameoffile].[extension]"
PRINT "Example: c:\qbasic\projects\picture1.bas"
INPUT ">", place$
PRINT "What do you want to name this picture?"
PRINT "Example: Smile (one word please and"
PRINT "not to long)"
INPUT ">", named$
OPEN place$ FOR OUTPUT AS #1
PRINT #1, "CLS"
PRINT #1, "DIM a(22,80)"
PRINT #1, named$ + ":"
FOR i = 1 TO 22
FOR j = 0 TO 7
PRINT #1, "DATA ";
FOR k = 1 TO 9
PRINT #1, a(i, j * 10 + k); ", ";
NEXT k
PRINT #1, a(i, j * 10 + 10)
NEXT j
NEXT i
PRINT #1, "RESTORE " + named$
PRINT #1, "FOR i = 1 TO 22"
PRINT #1, "FOR j = 1 TO 80"
PRINT #1, "READ a(i,j)"
PRINT #1, "NEXT j"
PRINT #1, "NEXT i"
PRINT #1, "FOR i = 1 TO 22"
PRINT #1, "FOR j = 1 TO 80"
PRINT #1, "LOCATE i,j"
PRINT #1, "COLOR FIX(a(i,j) / 256)"
PRINT #1, "PRINT CHR$(a(i,j) MOD 256)"
PRINT #1, "NEXT j"
PRINT #1, "NEXT i"
PRINT #1, "FOR i = 1 TO 22"
PRINT #1, "FOR j = 1 TO 80"
PRINT #1, "a(i, j) = 15 * 256 + 32"
PRINT #1, "NEXT j"
PRINT #1, "NEXT i"
CLOSE #1
GOTO recover
help:
mousehide
CLS
COLOR 15
PRINT "Program Info(1), Question & Answer(2), Trouble-Shooting(3),"
PRINT "General Usage(4), New features(5), or Cancel(6)"
PRINT ">"
doloop4:
c$ = INKEY$
IF c$ = "1" THEN GOTO about
IF c$ = "2" THEN GOTO qa
IF c$ = "6" THEN GOTO recover
IF c$ = "3" THEN GOTO trouble
IF c$ = "4" THEN GOTO general
IF c$ = "5" THEN GOTO newfeat
GOTO doloop4
about:
CLS
COLOR 15
PRINT "PaintPro"
PRINT "Version " + version$
PRINT "For IBM/Compatible machines"
PRINT "DOS | Windows 3.1 | Windows 95"
PRINT "(c)WolfWare Interactive, Inc."
PRINT
PRINT
PRINT "WolfWare Interactive, Inc. is owned and"
PRINT "operated by J.T. Olds and Alex Mark."
PRINT "You can E-Mail us at "
PRINT "WolfWareInc@Yahoo.com and find us at"
PRINT "Http://WolfWare.CJB.NET/"
PRINT
PRINT "PaintPro v. " + version$ + " is freeware. Donations ARE accepted."
PRINT "If you want to donate, send check or money to:"
PRINT
PRINT "JTOlds Alex Mark"
PRINT "10088 Stonewall Ct. OR 1505 Arlington Dr."
PRINT "Sandy, UT Salt Lake City, UT"
PRINT "84092 USA 84103 USA"
SLEEP
GOTO recover
general:
CLS
COLOR 15
PRINT "GENERAL USAGE"
PRINT "-----------------------------------------------"
PRINT "UNIQUE CHARACTERISTICS:"
PRINT "P button: Goes to a menu that lets you create a"
PRINT " QBasic source code file that runs the"
PRINT " Picture."
PRINT "THE EDITOR:"
PRINT "Left click: make colored character appear."
PRINT "Right click: erase colored character."
PRINT "F button: File menu"
PRINT "E button: Edit menu"
PRINT "H button: Help menu"
PRINT "P button: puts picture into QB source code"
PRINT "FILE MENU:"
PRINT "New: starts new file"
PRINT "Save: saves file"
PRINT "Open: opens file"
PRINT "Exit: exits program"
PRINT "Cancel: returns to editor"
PRINT "EDIT MENU:"
PRINT "Change color: changes color of character"
PRINT "Change character: changes character to use"
PRINT "Fill: fills screen with specified colored"
PRINT " character"
PRINT "Insert text: Inserts text to where you click"
PRINT "Cancel: returns to editor"
SLEEP
GOTO recover
qa:
CLS
COLOR 15
PRINT "QUESTION AND ANSWER"
PRINT "-----------------------------------------------------"
PRINT "Question: I type in c:\myfiles\person.ppf"
PRINT " and it doesn't work."
PRINT "Answer: If you don't already have the folder"
PRINT " MYFILES, then it won't work. You need"
PRINT " the folder MYFILES."
PRINT "Question: I type in c:\dos\mycoolprogram.bas"
PRINT " and it doesn't work. I do have the"
PRINT " folder DOS."
PRINT "Answer: If you have more than 8 characters in"
PRINT " the file name,(MYCOOLPROGRAM), it "
PRINT " won't work. Try lowering the number of"
PRINT " characters."
PRINT "Question: I don't have QBasic. Where can I get"
PRINT " it?"
PRINT "Answer: You can get it at:"
PRINT "http://www.microsoft.com/windows/download/olddos.exe"
PRINT " It comes with a hord of old DOS"
PRINT " utilities but all you need is the stuff"
PRINT " that starts with QBASIC. You can also"
PRINT "Press ENTER to go on..."
SLEEP
CLS
COLOR 15
PRINT " get QBASIC compilers and code from:"
PRINT " www.QBasic.com"
PRINT "Question: I have a question that I need the"
PRINT " answer for. How can I find out the "
PRINT " answer?"
PRINT "Answer: You can E-Mail us at"
PRINT " WolfWareInc@Yahoo.com and"
PRINT " ask us your question through"
PRINT " E-Mail. We will try to honestly"
PRINT " answer your question and reply."
SLEEP
GOTO recover
trouble:
CLS
COLOR 15
PRINT "TROUBLE-SHOOTING"
PRINT "------------------------------------------------------"
PRINT "Trouble: I see File, Edit, Finish Project, and Help"
PRINT " all over the screen."
PRINT "Possible cause: You moved your mouse down to far and"
PRINT " you put a character out of range. "
PRINT " This shouldn't happen, however."
PRINT "Possible fix: Press R"
PRINT "Trouble: The screen is distorted and it quits with"
PRINT " errors all the time."
PRINT "Possible cause: You have the Windows 95 dos-box set"
PRINT " with a non-compatible length."
PRINT "Possible fix: Run in DOS size (dos-box to DOS size "
PRINT " is ALT+ENTER) or in DOS mode."
PRINT
PRINT "Have another problem? E-Mail us on what you should"
PRINT "do at WolfWareInc@Yahoo.com."
SLEEP
GOTO recover
fillermain:
CLS
COLOR 15
PRINT "If you fill, you will get a screen coated in"
PRINT "your to-be specified colored character."
PRINT "All your unsaved data will be erased."
PRINT "Are you sure you want to fill? <Y/N>"
dolooper945j:
temp$ = INKEY$
IF temp$ = "Y" THEN GOTO fillerdata
IF temp$ = "y" THEN GOTO fillerdata
IF temp$ = "N" THEN GOTO recover
IF temp$ = "n" THEN GOTO recover
GOTO dolooper945j
fillerdata:
CLS
COLOR 15
PRINT "Do you want (f)lashing colors or (r)egular? <F/R>"
dolooperlm945j:
lm$ = INKEY$
IF lm$ = "F" THEN GOTO flash2
IF lm$ = "f" THEN GOTO flash2
IF lm$ = "R" THEN GOTO reg2
IF lm$ = "r" THEN GOTO reg2
GOTO dolooperlm945j
reg2:
PRINT "Which color?"
FOR i = 1 TO 15
COLOR i
PRINT CHR$(219), "("; i; ")"
NEXT i
COLOR 15
INPUT "Color here>", g2
GOTO goonlm45j
flash2:
PRINT "Which color?"
FOR i = 1 TO 15
COLOR i
PRINT CHR$(219), "("; i; ")"
NEXT i
COLOR 15
INPUT "Color here>", l2
g2 = l2 + 16
goonlm45j:
COLOR 15
PRINT "Which character?"
COLOR 15
FOR i = 14 TO 100
IF i = 25 THEN GOTO nexter22
IF i = 29 THEN GOTO nexter22
IF i = 30 THEN GOTO nexter22
IF i = 28 THEN GOTO nexter22
IF i = 31 THEN GOTO nexter22
IF i = 32 THEN GOTO nexter22
PRINT CHR$(i); " ("; i; ")",
nexter22:
NEXT i
PRINT "Press ENTER to continue..."
INPUT "", temp
FOR i = 100 TO 200
PRINT CHR$(i); " ("; i; ")",
NEXT i
PRINT "Press ENTER to continue..."
INPUT "", temp
FOR i = 200 TO 254
PRINT CHR$(i); " ("; i; ")",
NEXT i
INPUT "Please type the number of the character here>", wanted2
wanted2$ = CHR$(wanted2)
FOR i = 1 TO 22
FOR j = 1 TO 80
a(i, j) = g2 * 256 + wanted2
NEXT j
NEXT i
CLS
GOTO recover
texter22:
INPUT "Input text >", wanted$
CLS
GOTO recover
texter99:
INPUT "Input character >", wanted$
RETURN
Handler:
SELECT CASE ERR
CASE 53
GOTO wrongfile
CASE 54
GOTO wrongfile
CASE 57
GOTO wrongfile
CASE 64
GOTO wrongfile
CASE 68
GOTO wrongfile
CASE 70
GOTO wrongfile
CASE 71
GOTO wrongfile
CASE 72
GOTO wrongfile
CASE 75
GOTO wrongfile
CASE 76
GOTO wrongfile
CASE ELSE
PRINT "Unexpected Error. Quiting"
END
END SELECT
wrongfile:
IF COMMAND$ > CHR$(0) THEN
PRINT "Bad file name, location or switch. Please try again."
PRINT
END
END IF
RESUME
newfeat:
CLS
COLOR 15
PRINT "NEW FEATURES"
PRINT "-----------------------------------------------------"
PRINT "-Since PaintPro 5.0, we have been able to determine "
PRINT " (in DOS) what you type after the program name!"
PRINT " An example would be if you typed PAINTPRO PIC.PPF"
PRINT " we know you typed PIC.PPF after it! So, because"
PRINT " of this, you would now be able to open PIC.PPF"
PRINT " from the command prompt!!!"
PRINT " Windows users: This means you can drag a ppf file on"
PRINT " to PAINTPRO.EXE or a PaintPro shortcut and have "
PRINT " PaintPro open it! You may also double click a .PPF"
PRINT " file (a window will pop up, asking what you want"
PRINT " to open the file with. You should check the box"
PRINT " to make it open with ___ all the time and have it"
PRINT " open with PAINTPRO.EXE by clicking OTHER and"
PRINT " browsing for it.) and right away open it!"
PRINT "-Now able to click on red menu letters!"
PRINT "-6.5 = Some bugs fixed."
SLEEP
GOTO recover
menuselect:
IF x = 1 THEN GOTO file
IF x = 9 THEN GOTO edit
IF x = 24 THEN GOTO finish
IF x = 35 THEN GOTO help
RETURN
SUB MouseDriver (AX%, bx%, CX%, DX%)
DEF SEG = VARSEG(mouse$)
mouse% = SADD(mouse$)
CALL Absolute(AX%, bx%, CX%, DX%, mouse%)
END SUB
SUB mousehide
AX% = 2
MouseDriver AX%, 0, 0, 0
END SUB
FUNCTION MouseInit%
AX% = 0
MouseDriver AX%, 0, 0, 0
MouseInit% = AX%
END FUNCTION
SUB MousePut
AX% = 4
CX% = x%
DX% = y%
MouseDriver AX%, 0, CX%, DX%
END SUB
SUB mouseshow
AX% = 1
MouseDriver AX%, 0, 0, 0
END SUB
SUB mousestatus (lb%, rb%, Xmouse%, Ymouse%)
AX% = 3
MouseDriver AX%, bx%, CX%, DX%
lb% = ((bx% AND 1) <> 0)
rb% = ((bx% AND 2) <> 0)
Xmouse% = CX%
Ymouse% = DX%
END SUB