home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib22b.dsk
/
SHIFT.TEST1.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
18 lines
10 REM ************************
20 REM * SHIFT.TEST1 *
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 POKE 252,1: POKE 253,12: REM REMOVE EXTRA ROWS ABOVE AND BELOW
150 POKE 254,3: REM ADD 1 ADDRESS AHEAD
160 FOR HR = 3 TO 39: FOR SHFT = 1 TO 14: CALL 37444: NEXT SHFT: CALL 37548: NEXT HR: REM SHIFTR/MOVERT TO THE RIGHT SIDE OF SCREEN
170 FOR HR = 39 TO 3 STEP -1: FOR SHFT = 1 TO 14: CALL 37374: NEXT SHFT: CALL 37559: NEXT HR: REM SHIFTL/MOVELF TO THE LEFT SIDE OF SCREEN
180 GOTO 160: REM DO IT ALL OVER UNTIL THE POWER GOES OFF