home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 16 / Commodore_Disc_16_19xx_-_de.d64 / autoboot-maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  84 lines
  1. 10 rem autoboot-maker======64
  2. 20 rem (p) commodore welt  ==
  3. 30 rem ======================
  4. 40 rem (c) by michael      ==
  5. 50 rem        nebauer      ==
  6. 60 rem                     ==
  7. 70 rem                     ==
  8. 80 rem                     ==
  9. 90 rem ======================
  10. 95 gosub 60000
  11. 100 dimgr(13):c=214:v=211:zt=198:tp=631:w=58732:ng$=chr$(160)
  12. 110 fori=0to141:readd:poke8870+i,d:next:fori=0to13:reada:gr(i)=a:next
  13. 120 poke53280,0:poke53281,0
  14. 130 printchr$(14);cl$re$"  "zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$;
  15. 131 printzo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$zo$
  16. 140 print" "zl$gr$rn$"[193][213][212][207] [194][207][207][212] - [199][197][206][197][210][193][212][207][210]   1987 [194][217]  [205].[206]"rf$re$zk$
  17. 150 print"  "zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$;
  18. 151 printzn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$zn$wh$
  19. 160 pokec,4:pokev,0:sysw:input"[204][193][196][197][210][206][193][205][197] ";nl$
  20. 170 ifnl$=""then160
  21. 180 iflen(nl$)>16then130
  22. 190 pokec,6:sysw:print"[200][193][213][208][212][208][210][207][199][210][193][205][205]-[206][193][205][197] ";
  23. 200 print"                            ";:pokev,19:pokec,6:sysw:inputnp$
  24. 210 ifnp$=""orlen(np$)>16then190
  25. 220 pokec,8:sysw:poketp,78:pokezt,1:input"[200][193][213][208][212][208][210][207][199][210][193][205][205] [211][195][200][213][197][212][218][197][206] ([202]/[206]) ";hs$
  26. 230 ifhs$="j"thenhs=1:goto260
  27. 240 ifhs$="n"thenhs=0:goto260
  28. 250 goto220
  29. 260 pokec,10:sysw:poketp,74:pokezt,1:print"[200][193][213][208][212][208][210][207][199][210][193][205][205]"s2$"[201][206]"s2$"[194][193][211][201][195] ([202]/[206]) ";:inputhb$
  30. 270 ifhb$="j"thenhb=1:goto340
  31. 280 ifhb$="n"thenhb=0:goto300
  32. 290 goto260
  33. 300 pokev,0:pokec,12:sysw:input"[211][212][193][210][212][193][196][210][197][211][211][197] ";sa$
  34. 310 ifsa$=""then300
  35. 320 ifasc(sa$)<48orasc(sa$)>57orval(sa$)>65535orval(sa$)<0then300
  36. 330 hi=int(val(sa$)/256):lo=val(sa$)-hi*256
  37. 340 pokec,14:sysw:poketp,78:pokezt,1:print"[194][201][204][196][211][195][200][201][210][205]"s2$"[193][213][211] ([202]/[206]) ";:inputau$
  38. 350 ifau$="j"thenau=0:goto380
  39. 360 ifau$="n"thenau=1:goto380
  40. 370 goto340
  41. 380 pokec,16:sysw:input"[210][193][200][205][197][206][198][193][210][194][197] (0-15) ";bf$
  42. 390 ifbf$=""orval(bf$)<0orval(bf$)>15then380
  43. 400 pokec,18:sysw:poketp,74:pokezt,1:input"[211][212][207][208]-[212][193][211][212][197] [193][213][211] ([202]/[206]) ";ts$
  44. 410 ifts$="j"thents=0:goto440
  45. 420 ifts$="n"thents=1:goto440
  46. 430 goto400
  47. 440 pokev,9:pokec,21:sysw:poketp,74:pokezt,1:input"[193][204][204][197][211] [210][201][195][200][212][201][199] ";yn$
  48. 450 ifyn$="j"then480
  49. 460 ifyn$="n"thenrun
  50. 470 goto440
  51. 480 ifhs=0goto510
  52. 490 fort=0to14:ng$=ng$+chr$(gr(rnd(0)*13)+0):next
  53. 500 open1,8,15,"r:"+ng$+"="+np$:close1:np$=ng$
  54. 510 fore=1tolen(np$):poke8943+e,asc(mid$(np$,e,1)):next:poke8911,len(np$)
  55. 520 poke8890,val(bf$)
  56. 530 ifhb=0thenpoke8925,76:poke8926,lo:poke8927,hi
  57. 540 ifau=1thenfore=8884to8888:pokee,234:next
  58. 550 ifts=1thenfore=8894to8898:pokee,234:next
  59. 560 open1,8,1,nl$:print#1,chr$(166);chr$(2);
  60. 570 fori=8870to9011:print#1,chr$(peek(i));:next:close1
  61. 580 open2,8,15:input#2,a:close2:ifa<>0thenpoke53280,2
  62. 590 pokev,16:pokec,23:sysw:input"[206][207][195][200][205][193][204] ";a$
  63. 600 ifa$="j"thenrun
  64. 610 ifa$="n"thensys64738
  65. 620 goto590
  66. 630 data169,202,162,241,141,38,3,142,39,3,162,0,134,157,162,11,142,17,208,162
  67. 640 data0,142,32,208,162,225,142,40,3,162,8,160,1,32,186,255,162,240,160,2
  68. 650 data169,0,32,189,255,169,0,32,213,255,162,27,142,17,208,32,51,165,165,34
  69. 660 data24,105,2,133,45,165,35,105,0,133,46,76,113,168,0,0,0,0,0,0,0,0,0,0
  70. 670 data0,0,0,0,0,0,139,227,131,164,124,165,26,167,228,167,134,174,0,0,0,0
  71. 680 data76,72,178,0,49,234,102,254,71,254,74,243,145,242,14,242,80,242,51,243
  72. 690 data87,241,166,2,237,246,62,241,47,243,102,254,165,244,237,245
  73. 700 data10,11,12,20,21,22,23,24,25,26,27,29,32,160
  74. 60000 rem nachspann =========
  75. 60010 rem farb-/steuercodes =
  76. 60020 wh$=chr$(005):rn$=chr$(018)
  77. 60030 re$=chr$(028):gr$=chr$(030)
  78. 60040 rf$=chr$(146):cl$=chr$(147)
  79. 60050 rem *** zeichensatz/graphik *
  80. 60060 s2$=chr$(160):zk$=chr$(181)
  81. 60070 zl$=chr$(182):zn$=chr$(184)
  82. 60080 zo$=chr$(185)
  83. 60090 return
  84.