SHIFT838 Developed Code For The TI-99/4A
Welcome To SHIFT838's Code Repository
Select a code title to view.
STARTREK
CALL SOUND routine I use for SysOp paging on my BBS via XB. If you like Star Trek you will like it:
TI Extended BASIC Code
100 CALL SOUND(1250,1760,0,1762,0):: CALL SOUND(1250,1760,0,1319,0,1321,0):: CALL SOUND(1250,1760,7,1319,4,1568,0)
110 CALL SOUND(1250,1319,7,1568,3,988,0)
JOYTEST
Simple joystick test routine to verify directional input and fire button:
TI Extended BASIC Code
100 CALL CLEAR
110 DISPLAY AT(3,2):"Joystick Test Program V1.0" :: DISPLAY AT(5,7):"Copyright 2014" :: DISPLAY AT(7,7):"Chris Schneider"
120 DISPLAY AT(12,2):"Joystick 1 or 2>" :: ACCEPT AT(12,18)SIZE(1)BEEP:J
130 DISPLAY AT(14,2):"Release ALPHA Lock!" :: DISPLAY AT(16,2):"FCTN-4 = BREAK":: DISPLAY AT(18,1):"Starting..Move Your Joystick!"
140 CALL JOYST(J,X,Y)
150 CALL KEY(J,K,S)
160 IF X=-4 AND Y=4 THEN PRINT "Upper Left Detected" :: GOTO 140
170 IF X=4 AND Y=4 THEN PRINT "Upper Right Detected" :: GOTO 140
180 IF X=-4 AND Y=-4 THEN PRINT "Lower Left Detected" :: GOTO 140
190 IF X=4 AND Y=-4 THEN PRINT "Lower Right Detected" :: GOTO 140
200 IF X=4 THEN PRINT "Right Detected"
210 IF Y=4 THEN PRINT "Up Detected" :: GOTO 140
220 IF Y=-4 THEN PRINT "Down Detected" :: GOTO 140
230 IF X=-4 THEN PRINT "Left Detected"
240 IF K=18 THEN PRINT "Fire Detected"
250 GOTO 140
260 END