home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 25
/
Commodore_Disc_25_19xx_-_de.d64
/
disclader64_128
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
79 lines
0 rem
10 rem == disclader64/128==
11 fori=0to24:cd$=cd$+chr$(17):cu$=cu$+chr$(145):next:cr$=chr$(29)
21 nr=25:fl=10:pf$="->":pl$=" "
28 dimin$(fl),d$(fl),id$(fl),zl(fl)
30 printchr$(147)chr$(14)
31 poke53280,0:poke53281,0
50 gosub50000
110 printchr$(19)tab(7)"[158]"left$(cd$,15)" [195].[193].[214][197][210][204][193][199][211] - [199]mb[200] "
111 printtab(3)"[200]ans [197]gon [210]ossmann [212]homas [195]hramp"
120 printtab(3)"[212]orsten [211]eibt [193]lfons [205]ittelmeyer"
121 printtab(3)"[194]ernd [213]llmann [193]ndy [199]reil"
122 printtab(3)"[193]ndree [200]erman '[194]utcher'"
131 printtab(3)"[159][198]uer [196]isketteninhaltverzeichnis "
132 printtab(5)"bitte [204]eertaste druecken !!"
140 geta$
141 ifa$=chr$(32)thenprintchr$(147):gosub1000:gosub1600
150 goto140
1000 printchr$(147)chr$(14)
1001 print"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
1002 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
1003 forih=1tofl
1010 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
1020 printchr$(221)tab(3)d$(ih);
1021 forj=0tolen(in$(ih))
1022 printtab(7+j)mid$(in$(ih),j+1,1);
1024 next
1025 printtab(38)chr$(221)
1030 next
1500 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
1501 printchr$(14):printtab(3)"[159][215]aehlen [211]ie das [208]rogramm mit den "
1502 print"[195]ursor-[212]asten >>ab<< oder >>auf<< aus"
1503 print"und druecken [211]ie die <[210][197][212][213][210][206]>-[212]aste !":x=1:y=6:y1=7
1510 printchr$(19)cr$left$(cd$,y)pf$
1511 geta$
1512 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub10000
1513 ifa$=chr$(17)andy<15theny=y+1:y1=y-1:gosub10000
1514 ifa$=chr$(13)thengosub1600
1598 goto1511
1600 fori=1tofl
1605 ifi=y-5then1700
1606 next:return
1700 printchr$(147)chr$(144)chr$(142)
1710 ifd$(i)=" 64"then1730
1720 printchr$(19)"run"chr$(34)id$(i):poke842,19:poke843,13:poke208,2:end
1730 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8,1"
1731 rn$="poke198,0:run"
1740 printleft$(cd$,5)
1750 printchr$(145)rn$
1760 poke631,19:fori=1to5:poke632+i,13:next:poke198,6:end
2000 data" [193]ssembler [203]urs 5"," 64","ass*"
2001 data" [195][208][213]-[212]rainer"," 64","cpu*"
2005 data" [195][196]-[195]ompiler"," 64","cd-*"
2010 data" [194]ackgammon"," 64","back*"
2015 data" [211]nake"," 64","sna*"
2020 data" [196]isk [205]onitor (40)","128","diskm*"
2030 data" [211]creen [205]aster (40)","128","scre*"
2040 data" [199]raph [201][201][201] [195] (40)","128","graph*"
2050 data" [199]iro-[203]onto (80)","128","giro*"
2060 data" [208]atience (40)","128","pat*"
10000 printchr$(19)cr$left$(cd$,y1)pl$
10010 printchr$(19)cr$left$(cd$,y)pf$
10020 return
50000 rem titel
50010 print" [154] [146] [146]
50020 [153]" wait wait
50030 print" [146] [146] [146] [146]
50040 [153]" wait wait wait wait
50050 print" [146]ommodore [146] [146]
50060 [153]" wait wait wait
50070 print" [146] [146] [146]
50080 [153]" wait wait waitisc";nr
50090 [153]" wait wait wait
50100 print" [146] [146] [146] [146]
50110 [153]" wait wait wait wait
50120 print" [146] [146]
50130 [153]" wait wait
50140 return