home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 67 / Digital_Talk_67_2004-06-30_Digital_Talk_de_Side_B.d64 / !kahateinget00 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  400b  |  19 lines
  1. 10 goto120
  2. 61 cy=int(c/100):cx=c-(cy*100)
  3. 62 poke211,cx:poke214,cy:sys58640:return
  4. 70 e0$="":el=0
  5. 71 gosub61:e$="":on-(el=em)goto72:printchr$(164);
  6. 72 gete$:on-(e$<>"")goto73:print"[157]":goto71
  7. 73 on-(e$=chr$(13))-2*(e$=chr$(20))goto81,78
  8. 74 ife$<chr$(32)ore$>chr$(95)then71
  9. 75 el=el+1:ifel>emthen77
  10. 76 print"[157]"e$:e0$=e0$+e$:c=c+1:goto71
  11. 77 el=em:print" ":goto71
  12. 78 print"[157] ":el=el-1:ifel<0thenel=0:goto80
  13. 79 c=c-1
  14. 80 e0$=left$(e0$,el):goto71
  15. 81 gosub61:print" ":return
  16. 120 em=35:c=302
  17. 130 gosub70
  18. 310 stop
  19.