home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / proto.2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  827b  |  17 lines
  1. 63500 pk=5:poke198,0:print"[147]:";:poke19,1:inputpl$:poke19,0:poke820,peek(65)
  2. 63501 poke821,peek(66):forpi=0to3:pm$(pi)="":next:pm=len(pl$):pj=0:forpi=1topm
  3. 63502 px$=mid$(pl$,pi,1):pj=pj-(px$=" "):ifpx$<>" "thenpm$(pj)=pm$(pj)+px$
  4. 63503 next:poke65,peek(122):poke66,peek(123):pi=0
  5. 63504 pi=pi+1:readpx$,px:on(px$<>pm$(0))*(pi<(pk+1))goto63504:poke65,peek(820)
  6. 63505 poke66,peek(821):print"[147]g[207]"63500+px:poke631,19:poke632,13:poke198,2:end
  7. 63506 print"[147]"pm$(1)chr$(34)pm$(2)chr$(34)",8":goto63509:datad,6,o,7,b,8
  8. 63507 close1:open1,8,15,pm$(1)+":"+pm$(2):close1:goto63500:datadir,10,pr,14
  9. 63508 print"[147]";pm$(1);:ifpm$(2)<>""thenprint","pm$(2)
  10. 63509 poke631,19:poke632,13:poke633,71:poke634,207:poke635,48:poke198,5:end
  11. 63510 print"[147] 0 ";:open1,8,0,"$":poke781,1:sys65478:getpa$,pa$,pa$,pa$:data"",0
  12. 63511 px$=chr$(0):forpi=1to7:getpa$,pb$,pc$,pd$:printpa$pb$pc$pd$;:next:print
  13. 63512 getpa$,pa$,pa$,pb$:ifstthensys65484:close1:wait653,3:goto63500
  14. 63513 printasc(pa$+px$)+256*asc(pb$+px$);:goto63511
  15. 63514 print"[147]o[208]1,4:cmd1:l[201]"pm$(1):print"p[210]1:cl[207]1:g[207]0"
  16. 63515 poke631,19:poke632,13:poke633,13:poke198,3:end
  17.