home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 12
/
Commodore_Disc_12_19xx_-_de.d64
/
disclader.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
68 lines
1 rem == commodore disc 64=====
2 nr=12:fl=6:bs=1264
3 dimin$(fl),d$(fl),id$(fl),zl(fl)
4 pf$="->":pl$=" "
5 poke646,7:printchr$(147)chr$(142):poke53280,0:poke53281,0
46 printchr$(147):gosub50000:gosub200
61 ifpeek(203)=60then300
200 poke211,5:poke214,10:sys58640:printtab(9)" c a - verlags g.m.b.h ":print
201 printtab(5)"anton[160]kult alfons mittelmeyer"
202 printtab(5)"bernd ullmann lothar miedel"
203 printtab(5)"michael reppisch harald beiler"
204 printtab(5)"torsten seibt hermann wellesen"
205 printtab(5)"bernd welte peter basch":print:print
207 printtab(2)chr$(18)" fuer disketteninhaltsverzeichnis "chr$(146)
208 printtab(2)chr$(18)" bitte leertaste druecken ! "
210 poke198,0:wait198,1:return
300 poke646,2:printchr$(147)chr$(14)
302 print"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
304 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
310 forih=1tofl
320 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
321 printchr$(221)tab(3)d$(ih)tab(7);
325 fori=1tolen(in$(ih))
330 printmid$(in$(ih),i,1);:
335 next
336 printtab(38)chr$(221)
338 next
340 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
342 print:print"[150][194]itte [208]rogramm fuer den [195] 64 mit den"
343 print"[195]ursor-[212]asten >>ab<< oder >>auf<< aus-"
345 print"waehlen und die <[210][197][212][213][210][206]>-[212]aste druecken!"
350 x=2:y=6:y1=6
355 poke211,x:poke214,y:sys58640:printpf$
360 geta$
365 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub380
366 ifa$=chr$(17)andy<9theny=y+1:y1=y-1:gosub380
367 ifpeek(203)=1thengosub400
370 goto360
380 poke211,x:poke214,y1:sys58640:printpl$
381 poke211,x:poke214,y:sys58640:printpf$
382 return
400 fori=1tofl
405 ifi=y-5then501
410 next:return
501 poke646,peek(53281)
502 printchr$(142)chr$(147)
510 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8"
520 fori=1to5:printchr$(17):next
521 printchr$(145)"sys58784:run"
530 poke631,19:fori=1to8:poke632+i,13:next:poke198,9:end
20000 data" [209]uizmaster [214]3.8 "," 64","qm l*"
20002 data" [197]inkommensteuergesetz [208]ar.10 [197]"," 64","ekst*"
20003 data" [193]ktien-[211]piel "," 64","akti*"
20004 data" [205]enue [195]alc "," 64"," [205]e*"
20005 data" [211][195][210][201][208][212] [195][193][204][204] ","128","scri*"
20006 data" [195]alc 128 ","128","calc*"
50000 rem cd 2 for 64
50010 poke53280,0:poke53281,0:poke241,8
50020 printchr$(147)
50030 print"[151] [169] [146][169][169] [146][169][169][223][146][169][146] [169][223][146][169][146] [169] [146][169][169] [223][146] [169] [146][169][169] [223][146] [169] [146][169]
50040 [153]"print# stepwaitstep stepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaittan
50050 print"[155][169] [146][169][169] [146][169][169][146][169][169][146][169][169][146][169][169][146][169][169] [146][169][169] [146][169][169] [146][169][169][146][169][223][223][146][169] [146][169]
50060 [153]
50070 [153]"poke step (NULL)wait stepwaitstepstep waitstepstep waitstep
50080 print"[152] [169][146][169][169][146][169][169][146][169] [146] [169][146][169]
50090 [153]"list step waitstepstepwaitstepstep waitstepstep waitstepopen
50100 return