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