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 >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
35 lines
10 poke53280,6:printchr$(14)"[147]": goto60
20 print"[145][145]":ifcx>38thenprint"[145][145][145]"
30 print"[156]"right$(str$(y),3)"[146][153]";
40 printc$;:forkl=len(c$)tocx:print" ";:next:print:print"[145][145]":ifcx>38thenprint"[145][145][145]"
50 return
60 dimb$(1000): goto1940
290 cb=0:ss=1:c$="":print"[153]";
300 ifcb$<>""thenc$=c$+cb$:cb$="":printc$;
310 ifka=0theniflen(c$)=a7then440
320 iflen(c$)=(a7+1)then410
330 iffa=1theniflen(c$)=>(a7-7)thenpoke53281,10
340 t$="":poke204,0:gett$:ift$=""ort$="[145]"ort$=""ort$="[157]"ort$=""ort$=""then340
350 ift$=chr$(34)then340
360 poke204,1:ift$=chr$(20)then390
370 ift$=chr$(13)then440
380 c$=c$+t$:printt$;" [157]";:ss=2:goto310
390 iflen(c$)=0thenc$="":goto310
400 c$=left$(c$,len(c$)-1):ss=2:print" [157][157] [157]";:goto310
410 cx=len(c$):hj=1:forcv=cxto1step-1
420 ifmid$(c$,cv,1)<>" "andmid$(c$,cv,1)<>"-"andmid$(c$,cv,1)<>"."thencb=cb+1:next
430 ifcv>1thencv=1:next:cb$=right$(c$,cb):c$=left$(c$,(cx-cb)):print:gosub20
440 ifss=1thenc$=d$
450 ifhj=0thenprint" ";
460 poke53281,0:hj=0:ka=0:return
1940 print:print"[153][215]ieviele [218]eichen maximal (10-80) ? ";:a7=2:gosub290:c=val(c$)
1950 ifc<10orc>80then end
1955 y=1:print
1990 print"[197]nde mit <[210]eturn>":poke214,5:poke211,0:sys58640:i=0:fa=1
2000 rem
2010 print"[156]"right$(str$(y),3)"[146]";:a7=c:ka=1:gosub290:ifss=1theny=y-1:goto2030
2020 b$(y)=c$:print:y=y+1:i=1:goto2000
2030 rem
2031 print"[147]":fort=1toy:printb$(t):if(t/11)=int(t/11)thenpoke198,0:wait198,1:poke198,0
2032 next