home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib21a.dsk
/
AUGUST.1984
/
SPECIAL.EFFECTS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
57 lines
10 REM **********************
20 REM * SPECIAL.EFFECTS *
30 REM * BY ROD MACKENZIE *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC *
60 REM * LINCOLN, MA. 01773 *
70 REM **********************
80 REM LOAD THE ROUTINES
90 HOME
100 VTAB 12: HTAB 13: FLASH : PRINT "LOADING";: NORMAL : PRINT " ROUTINES": VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
110 PRINT CHR$(4);"BLOAD MIRROR.IMAGE"
120 PRINT CHR$(4);"BLOAD POS.NEG"
130 REM HEADING
140 DEF FN A(X) = INT((40 - LEN(A$))/2)
150 HOME
160 FOR I = 1 TO 2: READ A$: GOSUB 550: NEXT
170 VTAB 6
180 REM INSTRUCTIONS
190 FOR I = 1 TO 5
200 READ A$: PRINT : PRINT A$
210 NEXT
220 RESTORE
230 A$ = "HIT SPACE BAR TO EXIT GRAPHICS"
240 VTAB 20: GOSUB 550
250 VTAB 22:A$ = "<< ENTER SELECTION PLEASE>>"
260 CALL -958: GOSUB 550
270 REM OBTAIN AND VERIFY SELECTION
280 PRINT "?";: GET B$:B = VAL(B$)
290 IF ASC(B$) = 32 THEN TEXT : GOTO 130
300 IF B <1 OR B >5 THEN PRINT CHR$(7): GOTO 250
310 ON B GOTO 320,380,410,440,470
320 REM LOAD A PICTURE
330 TEXT : HOME
340 VTAB 12: PRINT "NAME OF PICTURE:";: INPUT PIC$
350 HOME : VTAB 12: FLASH : PRINT "LOADING";: NORMAL : PRINT " ";: PRINT PIC$
360 PRINT CHR$(4);"BLOAD";PIC$;",A$2000"
370 GOTO 130
380 REM VIEW PAGE 1
390 POKE -16297,0: POKE -16300,0: POKE -16302,0: POKE -16304,0
400 GOTO 130
410 REM COMPLEMENT THE PICTURE
420 CALL 24846: REM ADDRESS OF POS-NEG = $610E
430 GOTO 130
440 REM MIRROR OF PICTURE
450 CALL 24576: REM ADDRESS OF MIRROR-IMAGE = $6000
460 GOTO 130
470 TEXT : HOME : END
480 DATA "HI-RES SPECIAL EFFECTS"
490 DATA "----------------------": REM 22 DASHES
500 DATA "1). LOAD A BINARY PICTURE INTO PAGE 1"
510 DATA "2). VIEW THE PAGE 1 PICTURE"
520 DATA "3). COMPLEMENT THE PAGE 1 PICTURE"
530 DATA "4). MIRROR THE PAGE 1 PICTURE"
540 DATA "5). EXIT PROGRAM"
550 REM SUBRTN. TO PRINT A$
560 PRINT TAB( FN A(X));A$
570 RETURN