home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 February / 1990-02.d64 / messenger.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  15 lines
  1. 2000 poke53280,0:poke53281,0:print"[147]"chr$(142)chr$(8):x=2049
  2. 2010 deffna(x)=peek(x)+256*peek(x+1)
  3. 2020 x=fna(x):ifx<>0theny=x+2:goto2020
  4. 2030 ifpeek(y+1)=173thensys(y+1)
  5. 2040 ifpeek(y)=0then2080
  6. 2050 print"this message is protected."
  7. 2060 input"please enter password ";k$
  8. 2070 forz=1to8:n$=n$+k$:poke49183+z,asc(mid$(n$,z,1)):next:pokey,0
  9. 2080 print"[147][159]         messenger file-player"
  10. 2090 print"[154]hold [153] cmdr [146][154] to speed up"
  11. 2100 print"hold [153] shft [146][154] to freeze display"
  12. 2110 printtab(9)"[158]press any key to start":poke198,0
  13. 2120 geta$:ifa$=""then2120
  14. 2130 sys49152,(y+465):run
  15.