A sophisticated graphics program, featuring 18 sizes of text, fill, four-point banding and more.
Content
Image Gallery
Source Code
1 REM spectrum draw ---- from YOUR COMPUTER June 1984 converted to T/S2068 by F. Chrysler.
10 POKE 23693,7: POKE 23694,0: POKE 23697,0: BORDER 0: CLEAR 29999: LOAD "DRAW"CODE : CLS
20 POKE 32583,1: POKE 32582,1: POKE 23681,0: POKE 32578,128: POKE 32579,88
30 RANDOMIZE USR 30017
40 GO SUB USR 31967: GO TO 40
1000 INPUT "Name ? "; LINE A$: IF NOT LEN A$ OR LEN A$>10 THEN GO TO 1000
1010 SAVE A$ SCREEN$ : RANDOMIZE USR 30017: RETURN
1100 INPUT "Name ? "; LINE A$: LOAD A$SCREEN$ : RANDOMIZE USR 30017: RETURN
1200 RANDOMIZE USR 30017: INPUT AT 0,0; PAPER 6; INK 0;"Text (max. ";INT ((256-PEEK 32578)/8/PEEK 23728);")",, LINE A$: PRINT ;: RANDOMIZE USR 31176: REM A$
1210 RANDOMIZE USR 30017: RETURN
3000 LET F=0: GO TO 3020
3010 LET F=1
3020 LET CX=PEEK 32578: LET CY=PEEK 32579: LET IX=PEEK 32580: LET IY=PEEK 32581: LET R=SQR ((CX-IX)*(CX-IX)+(CY-IY)*(CY-IY))
3030 IF F THEN LET CX=IX: LET CY=IY
3050 LET IX=CX+R: LET IY=CY: POKE 32584,IX-256*INT (IX/255): POKE 32585,128+INT (IX/255): POKE 32586,IY: POKE 32587,128
3060 LET S=2*INT (INT (PI*SQR R+.5)/2)+2: IF S>252 THEN LET S=252
3070 FOR N=0 TO 2*PI STEP PI/S
3080 LET X=INT (.5+CX+R*COS N)
3090 LET Y=INT (.5+CY+R*SIN N)
3100 RANDOMIZE USR 31526: REM X-IX,Y-IY
3110 LET IY=Y: LET IX=X: NEXT N
3120 RANDOMIZE USR 31526: REM CX+R-IX,CY-IY
3130 RANDOMIZE USR 30017: RETURN
9000 SAVE "specdraw" LINE 1: SAVE "DRAW"CODE 30000,2610: STOP Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.