home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c128 / comm / cyphterm.sfx / cipherboot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-02-12  |  1.7 KB  |  30 lines
  1. 10 print"[147]":ifsm=1thenv=53248:pokev+32,0:pokev+33,0:sr=2042:goto50
  2. 20 ifpeek(14336)=174thenv=53248:pokev+32,0:pokev+33,0:sr=2042:goto60
  3. 30 ifsm=2then60
  4. 40 sm=1:load"czm",8,1
  5. 50 sm=2:load"csc",8,1
  6. 60 pokev+21,4:pokesr,13:forn=0to62:readq:poke832+n,q:next:pokev+21,12:pokev+21,28:pokev+21,60:pokev+21,124:pokev+4,160:pokev+5,125
  7. 70 pokev+23,4:pokev+29,4:fori=1to4:pokesr+i,13:next
  8. 80 reada$:ifa$="xxx"then130
  9. 90 forgh=1tolen(a$):a=asc(mid$(a$,gh,1)):ifa>63anda<96thena=a-64
  10. 100 ifa>192thena=a-128
  11. 110 fori=1to8:ifpeek(197)=60then130
  12. 120 sys14336:poke2022,a:nexti,gh:goto80
  13. 130 pokev+22,200:pokev+21,0:poke54296,0
  14. 140 clr:p$="ctm":print"[147][144]":print:print:print"load";chr$(34);p$;chr$(34);",8":print:print:print:print:print"run":printchr$(19):poke198,2:poke631,13:poke632,13
  15. 150 data235,171,184,138,171,43,139
  16. 160 data58,51,234,43,168,0,0,0,238,239,117,76,175,71,72
  17. 170 data201,113,78,169,113,0,0,0,169,221,203,169,221,203,0
  18. 180 data0,0,186,234,186,170,170,170,186,234,186,0,0,0,187
  19. 190 data142,145,170,36,146,178,36,217,171,132,218
  20. 200 data"[195]ipher[212]erm 1.0 by [216]-> [205][201][203][197] <-[216] (gq23v55d@ren.ir.miami.edu) on 6/28/90."
  21. 210 data"  [212]his is the [193][204][208][200][193] [210]elease... [201]t is a functional term with some neat"
  22. 220 data" cipher-gimmicks for multi-line 'private' conferencing ([201][210][195], [212][194][194][211], etc....[207][207][205]com mode cipher 'protocol' by ?[207][213][212] [207][198] [205][197][205][207][210][217])."
  23. 230 data"  [206]o docs or complete 2400 support for [193][204][208][200][193]...sorry..."
  24. 240 data"  [218]modem ([195]64 [214]ersion) by [196]an [198]andrich....[206][207][212] [195][207][205][208][204][197][212][197]...."
  25. 250 data"  [201]t only [210][197][195][197][201][214][197][211] files (no send) and it prints them to the screen."
  26. 260 data"  [198]or now, [218]modem is for illustrative purposes (read the c-zmodem.txt file provided explaining the problems of uniting [218]modem & [195]= 8-bit systems.)
  27. 270 [131]"  (NULL)ook for an 'full' (NULL)modem ((NULL)val(NULL) required) implementation in the peekval(NULL)atn (NULL)elease....."
  28. 280 [131]"  (NULL)(NULL): (NULL)ne more thing, right$'m looking for a 128 mode basic compiler...has such a beast been written?  (NULL)here can right$ get it?  (NULL)str$ or '$$$-(NULL)are'?  (NULL)hanks...
  29. 290 data"                                          ","xxx"
  30.