home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
36.dms
/
36.adf
/
SSHAPER.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
2KB
|
46 lines
100 SCREEN 0,4,0
110 INPUT "ENTER X (WIDTH): ";X%
120 INPUT "ENTER Y (HEIGHT): ";Y%
130 Q=X%/32: Q=INT(Q+.999): Q=Q*32
140 QQ=Y%/32: QQ=INT(QQ+.999): QQ=QQ*32: L=Q*QQ: L=L/8
150 SCNCLR:? TAB(35);" ";:X=1:Y=1:MODE=1:COLOR=0
160 PENO 1: BOX (0,0 ; X%+1,Y%+1)
170 FOR Q=0 TO 15: PENO 1: PENA Q: BOX(Q*16,100 ; Q*16+16,108),1: NEXT Q
180 ? AT (1,15);"0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5";
190 C=1
200 PENO 0: PENA 0: BOX (0,120 ; 300,186),1
205 XX=X: YY=Y
210 ? AT (1,17);"X:";X;TAB(15);"Y:";Y
220 ?"MODE:";MODE;TAB(14);"COLOR:";C
230 GETKEY A$
240 IF A$="P" THEN PENA P: DRAW(X,Y): PENA C: PAINT (X,Y),1
250 IF A$="M" AND MODE=1 THEN MODE=0: GOTO 270
260 IF A$="M" AND MODE=0 THEN MODE=1
270 IF A$="S" THEN 1000
280 IF A$="K" THEN GOSUB 2000: GOTO 200
290 IF A$="A" THEN Y=Y-1: IF Y<1 THEN Y=1
300 IF A$="B" THEN Y=Y+1: IF Y>Y% THEN Y=Y%
310 IF A$="C" THEN X=X+1: IF X>X% THEN X=X%
320 IF A$="D" THEN X=X-1: IF X<1 THEN X=1
330 IF MODE=0 THEN PENA P: DRAW (XX,YY)
340 P=PIXEL(X,Y)
350 IF MODE=0 AND P=1 THEN PENA 2: DRAW (X,Y): GOTO 380
360 IF MODE=0 THEN PENA 1: DRAW (X,Y)
370 IF MODE=1 THEN PENA C: DRAW (X,Y)
380 REM
990 GOTO 200
1000 REM - SAVE -
1010 DIM S%(L): SSHAPE (0,0 ; X%+1,Y%+1), S%()
1020 SCNCLR:LINE INPUT "TITLE TO SAVE AS: ";T$
1030 ?:?"SAVING..."
1040 OPEN "O", #1, T$
1045 WRITE #1,L
1050 FOR Q=0 TO L: WRITE #1,S%(Q): NEXT Q
1060 CLOSE #1:SCNCLR
1070 GSHAPE (1,10), S%()
1080 ? AT (1,20);"DONE...";: GETKEY A$
1090 END
2000 REM - COLOR -
2010 INPUT "COLOR";C
2020 RETURN