home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 October
/
1988-10.d64
/
screenius.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
40 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
20 rem screenius demo (first load and run screenius)
30 poke53281,0:poke53280,12:print"[147][152] copyright 1988 compute! pub., inc."
40 printtab(11)"all rights reserved":fori=1to1750:next
50 print"[147]";:forx=0to3:sys50045,x:nextx:rem clear all notepad screens
60 print"screenius notepad program":print
70 rem the following line disables screenius function-key checking
80 poke56333,127:poke788,49:poke789,234:poke56333,129
90 print"press:":print"f1[146] for this menu":print"f3[146] for notepad 1"
100 print"f5[146] for notepad 2":print"f7[146] for notepad 3"
110 print"f2[146] to save notepads":print"f4[146] to load notepads"
120 print"f6[146] to dump current notepad to a printer"
130 print"f8[146] to end the program":print
140 sv=49648:rem save routine address
150 ld=49714:rem load routine address
160 pr=49882:rem print routine address
170 ds=50032:rem display screen routine
180 sr=50045:rem store screen address
190 print"all normal editing features are active,"
200 print"including color controls.":print
210 print"do not clear this menu screen"
220 print"or you will lose it!"
230 sn=0:a=209:b=210:c=211:syssr,0
240 x=peek(a)+256*peek(b)+peek(c):pokex,peek(x)or128
250 geta$:ifa$=""then250
260 ch=asc(a$):ifch<133orch>136then280
270 pokex,peek(x)and127:syssr,sn:sn=ch-133:sysds,sn:goto240:rem unshifted f key
280 ifa$=chr$(137)thengosub330:goto250
290 ifa$=chr$(138)thengosub360:goto250
300 ifa$=chr$(139)thengosub390:goto250
310 ifa$=chr$(140)thenprint"[147]":end
320 pokex,peek(x)and127:printa$;:goto240:
330 syssr,sn:print"[147]save notepads:"
340 input"filename";fi$
350 syssv,fi$:sysds,sn:return
360 syssr,sn:print"[147]load notepads:"
370 input"filename";fi$
380 sysld,fi$:sysds,sn:return
390 pokex,peek(x)and127:syssr,sn:syspr,sn:pokex,peek(x)or128:return