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 >
BASIC Source File  |  1988-05-22  |  2KB  |  46 lines

  1. 100   SCREEN 0,4,0
  2. 110   INPUT "ENTER X (WIDTH): ";X%
  3. 120   INPUT "ENTER Y (HEIGHT): ";Y%
  4. 130   Q=X%/32: Q=INT(Q+.999): Q=Q*32
  5. 140   QQ=Y%/32: QQ=INT(QQ+.999): QQ=QQ*32: L=Q*QQ: L=L/8
  6. 150   SCNCLR:? TAB(35);" ";:X=1:Y=1:MODE=1:COLOR=0
  7. 160   PENO 1: BOX (0,0 ; X%+1,Y%+1)
  8. 170   FOR Q=0 TO 15: PENO 1: PENA Q: BOX(Q*16,100 ; Q*16+16,108),1: NEXT Q
  9. 180   ? AT (1,15);"0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5";
  10. 190   C=1
  11. 200   PENO 0: PENA 0: BOX (0,120 ; 300,186),1
  12. 205   XX=X: YY=Y
  13. 210   ? AT (1,17);"X:";X;TAB(15);"Y:";Y
  14. 220   ?"MODE:";MODE;TAB(14);"COLOR:";C
  15. 230   GETKEY A$
  16. 240   IF A$="P" THEN PENA P: DRAW(X,Y): PENA C: PAINT (X,Y),1
  17. 250   IF A$="M" AND MODE=1 THEN MODE=0: GOTO 270
  18. 260   IF A$="M" AND MODE=0 THEN MODE=1
  19. 270   IF A$="S" THEN 1000
  20. 280   IF A$="K" THEN GOSUB 2000: GOTO 200
  21. 290   IF A$="A" THEN Y=Y-1: IF Y<1 THEN Y=1
  22. 300   IF A$="B" THEN Y=Y+1: IF Y>Y% THEN Y=Y%
  23. 310   IF A$="C" THEN X=X+1: IF X>X% THEN X=X%
  24. 320   IF A$="D" THEN X=X-1: IF X<1 THEN X=1
  25. 330   IF MODE=0 THEN PENA P: DRAW (XX,YY)
  26. 340   P=PIXEL(X,Y)
  27. 350   IF MODE=0 AND P=1 THEN PENA 2: DRAW (X,Y): GOTO 380
  28. 360   IF MODE=0 THEN PENA 1: DRAW (X,Y)
  29. 370   IF MODE=1 THEN PENA C: DRAW (X,Y)
  30. 380   REM
  31. 990   GOTO 200
  32. 1000  REM - SAVE -
  33. 1010  DIM S%(L): SSHAPE (0,0 ; X%+1,Y%+1), S%()
  34. 1020  SCNCLR:LINE INPUT "TITLE TO SAVE AS: ";T$
  35. 1030  ?:?"SAVING..."
  36. 1040  OPEN "O", #1, T$
  37. 1045  WRITE #1,L
  38. 1050  FOR Q=0 TO L: WRITE #1,S%(Q): NEXT Q
  39. 1060  CLOSE #1:SCNCLR
  40. 1070  GSHAPE (1,10), S%()
  41. 1080  ? AT (1,20);"DONE...";: GETKEY A$
  42. 1090  END
  43. 2000  REM - COLOR -
  44. 2010  INPUT "COLOR";C
  45. 2020  RETURN
  46.