home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib20a.dsk
/
JUNE.1984
/
ORGAN.APPLE.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
3KB
|
96 lines
10 REM ************************
20 REM * ORGAN.APPLE *
30 REM * BY JOSEPH YOUNGBLOOD *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC. *
60 REM * LINCOLN, MASS 01773 *
70 REM ************************
80 REM
90 REM
100 TEXT : HOME : VTAB 5
110 HTAB 10: PRINT "*********************"
120 HTAB 10: PRINT "*";: HTAB 30: PRINT "*"
130 HTAB 10: PRINT "*";: HTAB 18: PRINT "LITTLE";: HTAB 30: PRINT "*"
140 HTAB 10: PRINT "*";: HTAB 30: PRINT "*"
150 HTAB 10: PRINT "*";: HTAB 15: PRINT "ORGAN APPLE";: HTAB 30: PRINT "*"
160 HTAB 10: PRINT "*";: HTAB 30: PRINT "*"
170 HTAB 10: PRINT "*";: HTAB 20: PRINT "BY";: HTAB 30: PRINT "*"
180 HTAB 10: PRINT "*";: HTAB 30: PRINT "*"
190 HTAB 10: PRINT "*";: HTAB 12: PRINT "JOSEPH YOUNGBLOOD";: HTAB 30: PRINT "*"
200 HTAB 10: PRINT "*";: HTAB 30: PRINT "*"
210 HTAB 10: PRINT "*";: HTAB 18: PRINT "NIBBLE ";: HTAB 30: PRINT "*"
220 HTAB 10: PRINT "*";: HTAB 30: PRINT "*"
230 HTAB 10: PRINT "*********************": VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
240 REM
250 D$ = CHR$(4)
260 PRINT D$;"BLOAD ORGAN.TABLE"
270 PRINT D$;"BLOAD ORGAN.OBJ"
280 REM
290 POKE 232,0: POKE 233,96: REM * SHAPE TABLE
300 HGR : POKE -16302,0
310 HCOLOR= 3: HPLOT 0,0: CALL 62454: REM * CLEAR SCREEN TO WHITE
320 HCOLOR= 0
330 REM
340 REM * TWO ROWS OF KEYS
350 DIM Z(1):Z(0) = 0:Z(1) = 90
360 FOR I = 0 TO 1:Y = Z(I)
370 REM * WHITE KEYS
380 FOR X = 65 TO 200 STEP 15
390 HPLOT X,Y TO X,Y +74 TO X +1,Y +75 TO X +13,Y +75 TO X +14,Y +74
400 NEXT X
410 HPLOT 215,Y TO 215,Y +74
420 REM * BLACK KEYS
430 HCOLOR= 0
440 FOR X = 77 TO 197 STEP 15
450 IF X = 107 OR X = 167 THEN 500
460 FOR Y = Z(I) TO Z(I) +49
470 HPLOT X,Y TO X +6,Y
480 NEXT Y
490 HPLOT X +1,Z(I) +50 TO X +5,Z(I) +50
500 NEXT X
510 HPLOT 65,90 TO 215,90
520 NEXT I
530 REM * SPACE BAR
540 HPLOT 81,174 TO 199,174
550 HPLOT 81,180 TO 199,180
560 FOR Y = 175 TO 179
570 HPLOT 80,Y TO 200,Y
580 NEXT Y
590 REM
600 REM * CHARACTERS ON KEYS
610 DIM X1(1),X2(1),Y1(3)
620 X1(0) = 70:X1(1) = 78
630 X2(0) = 205:X2(1) = 198
640 Y1(0) = 143:Y1(1) = 53:Y1(2) = 115:Y1(3) = 25
650 SCALE= 1: ROT= 0
660 I = 1: REM * SHAPE NUMBER
670 FOR J = 0 TO 3
680 Y = Y1(J)
690 FOR X = X1(J/2) TO X2(J/2) STEP 15
700 IF X = 108 OR X = 168 THEN 730: REM * NO BLACK KEY BETWEEN E AND F OR B AND C
710 I = I +1
720 XDRAW I AT X,Y
730 NEXT X
740 NEXT J
750 FOR I = 1 TO 1000: NEXT
760 REM
770 TEXT : HOME : VTAB 10
780 PRINT "PITCHES ARE AS SHOWN ON THE KEYS."
790 PRINT "<SPACE> GIVES YOU SILENCE."
800 PRINT "<ESC> GETS YOU OUT."
810 PRINT
820 PRINT "PRESS ANYTHING BUT <RESET> TO BEGIN."
830 IF PEEK( -1101) = 6 THEN PRINT "MAKE SURE CAPS LOCK KEY IS DOWN."
840 REM * ACTION BEGINS HERE
850 GET C$
860 POKE -16297,0: POKE -16300,0: POKE -16304,0
870 XDRAW 1 AT 140,83: REM * ORIGINAL CURSOR POSITION
880 POKE 224,140: POKE 225,0: POKE 226,83: REM * FOR ERASING ORIGINAL CURSOR
890 CALL 768
900 TEXT : HOME : VTAB 10
910 PRINT "IF YOU WISH TO STOP, TYPE <Y>.": PRINT
920 PRINT "IF YOU WISH TO CONTINUE, TYPE ANYTHING ELSE EXCEPT <RESET>."
930 GET C$
940 IF C$ = "Y" THEN END
950 XDRAW 1 AT PEEK(224), PEEK(226): REM * ERASING LAST CURSOR POSITION
960 GOTO 860