home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / CIPHERTERM.SFX / cipherboot (.txt) next >
Commodore BASIC  |  1990-02-12  |  2KB  |  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.