Section 2 - Commodore Computers

202A 2e2A 0000
202C 0000 000£1
202E 2e2E 0000 00£10
20302 03£1 0000 £1£1£10
2032 0000 £1£1£10
}···ERROR }***ERROR -
2034 21!l34
5-UNDEFINED
5990
.PAGE • "
The soft key strings"
6000 61H'0 ;
6010 tr: 1 r i; r r :: stiiirttTT
I : 1111 r I: I;:::;;: I:; f: I;:;: 11:' I;;:':
6020
6030 f The actual strings
6040
6050 6£150
6060
we need supply strings only for
the desired softkeys
6070
6080
6090 611190
6100
6110
Note that inverse Inverse video is not
allowed, except that the last
character of a string has its
MSBit on, , same as inverse video
6120
6130 613111
614£1 6140
Note that zero bytes ('NUL1) ') get
converted to RETURN (S9B) ($9B) characters
6150
6160 ; :;::::; :;;;: ;::;;;;;:;;:::::::;:::;::::;;:;
6170
6200 SD SO .BYTE "CLOSE 17:0PEN #7:OPEN #7,6,0," '7,6,0,"
6210 .BYTE -BYTE QUOTE,"D!*.*",QUOTE
QUOTE,"D:·.· ",QUOTE
6220
6230
6240
.BYTE -BYTE ":FOR 1-0 1=0 TO 256:GET 17,1"
#7,1"
.BYTE ":PRINT CHRS(I);:NEXT CHR$(I)::NEXT I"
.BYTE NUL+KQUIT
NbL+KQUIT
6250
6260
SP ..BYTE "PRINT ",KQUIT+'#
,
6270
6280 SS 55 .BYTE "SETCOLO",KQUIT+'R
6290
6300 630111
6310
6320
Note the methods of getting quoted strings
in .BYTE . statements and turning on the
MSBitB MSBits of a character
7000
7010 finally, , we set up for LOAD-AND-G0
LOAD-AND-GO
7020 711120
7030
•- • • S2E0 $2E0
7040
7050
9999
-WORD .WORD
. END
HOOKUP
Program 2.
1000 •••••••••••••••••••••••••••••••••
1000
REM *********************************
1010
REH REM ■•
1020
REM *•
EASYLOAD —--
1030
REM *•
A BASIC PROGRAM THAT ALLOWS
1040 U40
REM *•
THE USER TO MAKE HIS/HER HER OWN
1050
REM • SET OF "SOFTKEYS" FOR USE
1060
REM· * WITH THE "EASYKEY" PROGRAM
1070
REM *•
1080
■ — "■■""""•■•■*■**••*•■••■■■■••■■■•
REM •••••••••••••••••••••••••••••••••
1090
REM
1100
REM :BEFORE : RUNNING THIS PROGRAM, BE SURE
1110
REM
:THAT "EASYKEY" "EJ\SYKEY" HAS BEEN LOADED LOA.DED AND
112111 1120
REM sRUN. :RUN . YOU MAY VERIFY THIS BY CHECKING
1130
REM
1140
REM
1150
REM
:THE VALUE OF PEEK(744) —-- IT SHOULD
:MA.TCH MATCH THE NEWLOMEM PAGE VALUE IN
: THE LISTING OF EASYKEY
1160
REM:( [ PEEK(744) = - 34 IF EASYKEY IS
1170
REM : ASSEMBLED AS GIVEN HERE IIERE ]
1180
REM
1190
REM == -- FIRST, SET UP ADDRESSES, ETC. ==
12"0 1200 STABLE=8192iREM 8192:REM STABLE. = $2000
121" 1210 STRINGS=STABLE+(2*26)
STRINGS- STABLE+(2·26)
1220
REM
123" 1230
DIM KEY$(130)
KEYS(130)
124" 1240 REM
1250
REM FIRST, CLEAR OUT OLD SOFTKEY DEFINITIONS
1260
REM
1270
FOR ADDR=STABLE TO STRINGS-1:POKE STRINGS-l : ADDR,0:NEXT ADDR
1280
REM
1290
PRINT CHRS{125)r
CHR$(125);
130" 1300 PRINT "When " prompted, enter a softkey string"
1310
PRINT "for the given control-key."
. "
1320
PRINT
1330
PRINT "Remember: : no inverse keys and use"
1340
PRINT "control-comma (the heart) to request"
1358 1350 PRINT "a RETURN key code- code.
Actual use of the"
1360
PRINT "Return key terminates the string for"
1378 1370 PRINT "the given softkey."
1380 13B0 PRINT :PRINT "(just "[just RETURN will undefine that key]"
1390
PRINT :PRINT
140" 1400 ADDR=STRINGS:REM ADDRa : REM WHERE WE START STORING SOFTKEY STRINGS
2000
REM MAIN LOOP
2010 2810
FOR KEY=0 KEY".0 TO 25
2020
PRINT "ConTRoL-";CHR$(65+KEY);:INPUT "ConTRoL-":CHR${65+KEY)::INPUT KEYS KEY$
2030 KLEN=LEN(KEY$):IF KLEN~LEN(KEY$)'IF NOT KLEN THEN 2290
2040 KEY$(KLEN)"CHRS(ASC(KEY5(KLEN))+128):REM KEY${KLEN) - CHR$(ASC(KEY$(KLEN»+128):REM SET MSB HSB OF LAST CHARACTER
2050 2"50 IF ADDR+KLEN>=STABLE+512 THEN PRINT "too much defined!";CHRS(253):END
I ":CHR$(253):ENO
2070
REM SET ADDRESS OF STRING IN STABLE
20B0 2080 TEMP=lNT(ADDR/256):POKE TEMP=INT(ADDR/256):POKE STABLE+KEY+KEY+1,TEMP
STABLE+KEY+KEY+l,TEMP
2090
POKE STABLE+KEY+KEY,ADDR-256*TEMP
STABLE+KEY+KEY,ADOR-256·TEMP
2100
FOR KPT=1 KPTul TO KLEN
2110 2118
POKE ADDR,ASC(KEY$(KPT))
2120
ADDR=ADDR+1
ADDR_ADDR+ 1
2130 2138
NEXT KPT
2200 2208
REM END OF PROCESSING FOR THAT KEY
2290 NEXT KEY
3000
REM *•****•**************♦♦•**•••***•
•••••••••••••••••••••••••••••••••
3010
REM
3020
REM NOW WE ALLOW YOU TO SAVE THIS NEWLY DEFINED SET ON DISK
3030
REM
3040
REM SIMPLY HIT BREAK AT THE QUESTION IF YOU DON'T WANT TO SAVE
3050 3850
REM
3100 31"0
PRINT !PRINT :PRINT :PRINT "What set of softkeya should we save"
3110
PRINT" " this definition under (1-999) ";:INPUT ": : SET
3120
IF SETINT(SET) THEN 3100
3150 KEYS="D:SOFTKEY.":KEYS(LEN{KEY$)+1)=STR$(SET)
KEY$a"D:SOFTKEY.":KEY$(LEN{KEY$)+l)-STR$(SET)
3200 3208
OPEN 11,8,8,KEY$
#1,8,0,KEYS
3210
FOR KPT=STABLE KPT- TO ADDR
3220
PUT #1,PEEK(KPT)
U,PEEK{KPT)
3230
NEXT KPT
3250
CLOSE #1 U
3280 32B"
PRINT :PRINT "==== "m.. normal end ====" ......."
3290
END
Program 3.
Program 3.
30000
REM **********************'**********
•••••••••••••••••••••••••••••••••
30010
REM
30020
REM THIS PROGRAM OR PROGRAM FRAGMENT IS
30030 30038
REM
INTENDED TO BE USED TO RELOAD ONE
30040
REM THE SETS Of' OF SOFTKEYS Sm'TKEYS CREATED BY
30050
REM "EASYLOAD".
30060
REM
30100 STABLE=8192:REM STABLE-B192 : STABLE=S2000
30110
DIM NAME$f20)
NAME$(20)
30200
PRINT "What set of softkeys should be"
30210
PRINT" " reloaded from disk (1-999) ";:INPUT " SET
30220
NAMES-"D: NAME$ : SOFTKEY." ":NAMES(LEN( : NAME$(LEN(NAME$)+l) NAMES ) + D-STRS - STR$(SET)
30250 OPEN #1,4,0,NAMES 'l,4,0 ,NAME $
30290
TRAP 30400
30300
FOR KPT=STABLE TO STABLE+512
30310
GET #1,KEY:POKE 'l,KEY:POKE KPT,KEY
, KEY
30320
NEXT KPT
30400 3040"
CLOSE 'I #1
30500
REM COULD RETURN FROM SUBROUTINE, IF DESIRED ©
f
~
'" g
~
8
..
31:
c
~
!!!
§