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