home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib22b.dsk
/
CREATE.PRE-SHIFTS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
23 lines
10 REM ************************
20 REM * CREATE.PRE-SHIFTS *
30 REM * BY ROBERT DEVINE *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA. 01742 *
70 REM ************************
80 PRINT CHR$(4)"BLOAD DHR.DRIVER $91FE": CALL 37999: HIMEM: 37374
90 PRINT CHR$(4)"BLOAD SHAPE#144"
100 CALL 37953: REM INIT
110 HGR : CALL 37928: REM CLEAR DHR SCREEN
120 POKE 49153,0: POKE 49234,0: REM 80STORE/FULL SCREEN
130 POKE 251,144: POKE 252,0: POKE 253,13: POKE 254,2: POKE 255,0: CALL 37780: REM DRAW SHAPE ON THE SCREEN
140 GOTO 170
150 POKE 49236,0:C = INT(X/7): IF C/2 = INT(C/2) THEN POKE 49237,0
160 XC = INT(C/2) +X/7 -C:XC = INT(XC *7 +.5): RETURN
170 HCOLOR= 0: FOR X = 0 TO 40 STEP 4: GOSUB 150: HPLOT XC,0 TO XC,13: NEXT
180 POKE 252,1: POKE 253,12: POKE 254,4: REM REMOVE LINES ABOVE/BELOW - ADD 2 SHIFTING ADDRESSES
190 FOR X = 137 TO 144: POKE 251,X: REM SET UP SHAPE #S
200 CALL 37850: REM SCAN THE SHAPE
210 FOR SHFT = 1 TO 4: CALL 37444: NEXT SHFT: REM MOVE IT OVER 4 DOTS
220 NEXT X: CALL 37966
230 PRINT CHR$(4)"BSAVE SHAPES 137-144,A$8900,L$800"