home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / basic-part-file (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  35 lines
  1. 10 poke53280,6:printchr$(14)"[147]":    goto60
  2. 20 print"[145][145]":ifcx>38thenprint"[145][145][145]"
  3. 30 print"[156]"right$(str$(y),3)"[146][153]";
  4. 40 printc$;:forkl=len(c$)tocx:print" ";:next:print:print"[145][145]":ifcx>38thenprint"[145][145][145]"
  5. 50 return
  6. 60 dimb$(1000):      goto1940
  7. 290 cb=0:ss=1:c$="":print"[153]";
  8. 300 ifcb$<>""thenc$=c$+cb$:cb$="":printc$;
  9. 310 ifka=0theniflen(c$)=a7then440
  10. 320 iflen(c$)=(a7+1)then410
  11. 330 iffa=1theniflen(c$)=>(a7-7)thenpoke53281,10
  12. 340 t$="":poke204,0:gett$:ift$=""ort$="[145]"ort$=""ort$="[157]"ort$=""ort$=""then340
  13. 350 ift$=chr$(34)then340
  14. 360 poke204,1:ift$=chr$(20)then390
  15. 370 ift$=chr$(13)then440
  16. 380 c$=c$+t$:printt$;" [157]";:ss=2:goto310
  17. 390 iflen(c$)=0thenc$="":goto310
  18. 400 c$=left$(c$,len(c$)-1):ss=2:print" [157][157] [157]";:goto310
  19. 410 cx=len(c$):hj=1:forcv=cxto1step-1
  20. 420 ifmid$(c$,cv,1)<>" "andmid$(c$,cv,1)<>"-"andmid$(c$,cv,1)<>"."thencb=cb+1:next
  21. 430 ifcv>1thencv=1:next:cb$=right$(c$,cb):c$=left$(c$,(cx-cb)):print:gosub20
  22. 440 ifss=1thenc$=d$
  23. 450 ifhj=0thenprint"  ";
  24. 460 poke53281,0:hj=0:ka=0:return
  25. 1940 print:print"[153][215]ieviele [218]eichen maximal (10-80) ? ";:a7=2:gosub290:c=val(c$)
  26. 1950 ifc<10orc>80then   end
  27. 1955 y=1:print
  28. 1990 print"[197]nde mit <[210]eturn>":poke214,5:poke211,0:sys58640:i=0:fa=1
  29. 2000 rem
  30. 2010 print"[156]"right$(str$(y),3)"[146]";:a7=c:ka=1:gosub290:ifss=1theny=y-1:goto2030
  31. 2020 b$(y)=c$:print:y=y+1:i=1:goto2000
  32. 2030 rem
  33. 2031 print"[147]":fort=1toy:printb$(t):if(t/11)=int(t/11)thenpoke198,0:wait198,1:poke198,0
  34. 2032 next
  35.