home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 128
/
Tiger_Disk_128_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
disk-id-changer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
61 lines
10 print"[147]":gosub20:goto80
20 poke53281,0:poke53280,0:printchr$(14)"[129]"tab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
30 li$[178]"ortantantantantantantantantan>tantantantantantantantantantantantantantantantantan>tantantantantantantantantan^
40 printtab(10)"[221] [196][201][211][203]-[201][196] [195][200][193][206][199][197][210] [129][221]":printli$
50 print"[221] [213]sing this program you'll be able to[129][221]
60 [153]"(NULL) change disk-name,-id or header-info for(NULL)":[153]"/";:[141]300:[153]"exp"
70 [142]
80 x$[178]"0":dv[178][197](x$):dv$[178]x$:sp$[178]" "
90 [153]sp$"lenhange str$isk-(NULL)ame.... (NULL) wait":[153]sp$"lenhange str$isk-id...... right$ wait"
100 [153]sp$"(NULL)ake left$eader-info.... left$ wait":[153]sp$"def(NULL)uit (NULL)rogram........ (NULL) wait"
109 [153]sp$" (NULL)our lenhoice ? tocmd";:[141]280
110 [153]x$:[159]15,8,15:[152]15,"i"[170]dv$:[159]1,8,3,"#":[152]15,"u1:3"dv",18,0"
120 [139]x$[178]"n"[137]230
130 [139]x$[178]"h"[137]310
140 [139]x$[178]"i"[137]160
150 [141]280:[137]120
160 [152]15,"b-p:3,162":[161]#1,a$,b$,c$,d$,e$:[153][163]7)"(NULL)revious str$right$(NULL)(NULL)-right$str$: ";
170 [153]a$;b$;c$;d$;e$:[153]"(NULL)ew str$right$(NULL)(NULL)-right$str$ (max. 5 char.'_'=(NULL)ain menu)"
175 [153][163]16);:[133]ni$:[139]ni$[178]"_"[167]220
180 [139][195](ni$)[179][177]4[167]i$[178][200](ni$[170]" ",5)
190 ni$[178][200](ni$[170]" ",5)
200 [152]15,"b-p:3,162":[152]1,ni$;:[152]15,"u2:3"dv",18,0
210 i$="i"+mid$(str$(dv),2):print#15,i$
220 close15:run
230 print#15,"b-p:3,144":dn$="":forl=1to16:get#1,a$:dn$=dn$+a$:next
240 print"[208]revious [196][201][211][203]-[206][193][205][197]:":print:print" "+dn$+" "
250 print"[206]ew [196][201][211][203]-[206][193][205][197] (max.16 ch.'_'=[205]ain menu)":inputnd$:ifnd$="_"then220
260 nd$=left$(nd$+" ",16)
270 print#15,"b-p:3,144":print#1,nd$;:print#15,"u2:3"dv",18,0":goto210
280 getx$:ifx$<>"n"andx$<>"h"andx$<>"i"andx$<>"q"then280
285 ifx$="q"thenend
290 return
300 fort=1to37:print"[192]";:nextt:return
310 print"[147]":gosub20:print" [208]revious h-info:":print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
315 print" '^'= [194]urtsoft--header. '_'= [205]ain menu"
320 print#15,"b-p:3,176":hi$="":forl=1to10:fort=1to8:p$=" ":get#1,a$
330 ifa$<p$thena$="@[146]"
340 hi$=hi$+a$
350 nextt:printtab(4)hi$:hi$="":nextl
360 print""tab(26)"[206]ew h-info:":printtab(26)"[163][163][163][163][163][163][163][163][163][163][163][145]"
370 fory=1to10:print:printtab(27)"";:fort=1to8
380 nh$="":print"[164][157]";:wait198,1:getnh$:poke198,0:ifnh$="^"then500
385 ifnh$="_"then220
390 ift>1andnh$=chr$(20)thenprintnh$;:poke198,0:t=t-1:nn$=left$(nn$,(len(nn$)-1)):goto380
392 ifasc(nh$)>192andasc(nh$)<219then400
395 ifasc(nh$)<32orasc(nh$)>127thenpoke198,0:goto380
400 printnh$;:nn$=nn$+nh$:nextt
410 hh$=hh$+nn$:nn$="":nexty:print:print
412 printtab(11)"[201]s this ok (y/n)[145]":geta$:ifa$<>"y"anda$<>"n"anda$<>"_"then412
413 ifa$="n"then430
415 ifa$="_"then220
420 print#15,"b-p:3,176":print#1,hh$;:print#15,"u2:3"dv",18,0":goto210
430 print"";:fort=1to10:printtab(27)" ":next:print
440 fort=1to30:print" ";:nextt:print"";:nn$="":nh$="":hh$="":goto370
500 a$="--------":b$="angelsof":c$="t:de nie":d$="uwste'64":e$="software"
510 f$="ook rom-":g$="packs !!":h$="tel:03/6":i$="51.66.74"
520 hh$=a$+b$+c$+d$+e$+f$+g$+h$+i$+a$
530 print"";:printtab(27)a$:printtab(27)b$:printtab(27)c$
540 printtab(27)d$:printtab(27)e$:printtab(27)f$:printtab(27)g$
550 printtab(27)h$:printtab(27)i$:printtab(27)a$:print:goto412