home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_B.d64 / atombombe (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  96 lines
  1. 0 poke53280,0:poke53281,0:printchr$(142),chr$(8)"[147]                   ."
  2. 1 print"       ."
  3. 2 print"                            ."
  4. 3 print"                                      ."
  5. 4 print" .         .   [170][165]                 ."
  6. 5 print"              .[167][180]     .    .  ."
  7. 6 print"      .        [167][165]                   ."
  8. 7 print"   .           [207][208] . [209]          ."
  9. 8 print"              [207][183][183][208]     .  [207][208]"
  10. 9 print"       .  .   [180][190][188][170]  .[167][165]   [207][208]"
  11. 10 print"              [180][190][188][170] [206][180][167][165] . [207][208] [176][174]      [207][208]"
  12. 11 print" [207][208]           [180][190][188][170] [180][180][178][178]   [207][208] [171][179].[207][180] . [207][208]"
  13. 12 print" [207][208] [176][174][176][174] . [172][187] [180][190][188][170] [180][180][177][177] [180] [207][208] [171][179] [207][180]   [207][208]"
  14. 13 print" [207][208].[171][179][171][179]   [207][208] [180][190][188][170] [180][180][182][181] [165] [207][208] [171][179] [207][180].  [207][208]"
  15. 14 print" [207][208] [171][179][171][179][213][201] [180][170].[180][190][188][170] [180][180][182][181][207][208] [207][208].[171][179] [207][180][213][201] [207][208]"
  16. 15 print" [207][208] [171][179][171][179][194][194] [180][170] [180][190][188][170] [180][180][182][181][207][208] [207][208] [171][179] [207][180][194][194] [207][208]"
  17. 16 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145][145][145][145][145][145][145][145]"
  18. 70 gosub1000
  19. 80 goto2000
  20. 90 forx=1to24:poke54272+x,0:next
  21. 1000 s=54272
  22. 1020 s=54272
  23. 1030 pokes+24,7
  24. 1040 pokes+5,12*16+0
  25. 1050 pokes+6,15*16+10
  26. 1060 forx=255to100step-1
  27. 1070 pokes+1,x
  28. 1080 pokes+4,17
  29. 1090 ford=1to10:nextd
  30. 1100 nextx
  31. 1110 pokes+24,15
  32. 1120 pokes+1,15
  33. 1130 pokes+4,128
  34. 1140 return
  35. 2000 poke53280,11:poke53281,11:forx=1to500:nextx
  36. 2001 poke53280,12:poke53281,12:forx=1to500:nextx
  37. 2002 poke53280,15:poke53281,15:forx=1to500:nextx
  38. 2003 poke53280,1:poke53281,1:print"[147]":forx=1to500:nextx
  39. 2004 poke53280,15:poke53281,15:forx=1to500:nextx
  40. 2005 poke53280,12:poke53281,12:forx=1to500:nextx
  41. 2006 poke53280,11:poke53281,11:forx=1to500:nextx
  42. 2007 poke53280,0:poke53281,0:forx=1to500:nextx
  43. 3001 print"****************************************[145]"
  44. 3002 forx=1to125:nextx:print"[145][145][145] **************************************":forx=1to125:nextx
  45. 3003 print"[145][145]         **********************":forx=1to125:nextx
  46. 3004 print"[145][145]             **************":forx=1to125:nextx
  47. 3005 print"[145][145]                  ****":forx=1to125:nextx
  48. 3006 print"[145][145]                  ****":forx=1to125:nextx
  49. 3007 print"[145][145]                  ****":forx=1to125:nextx
  50. 3008 print"[145][145]                  ****":forx=1to125:nextx
  51. 3009 print"[145][145]                 ******":forx=1to125:nextx
  52. 3010 print"[145][145]                ********":forx=1to125:nextx
  53. 3011 print"[145][145]               **********":forx=1to125:nextx
  54. 3012 print"[145][145]             **************":forx=1to125:nextx
  55. 3013 print"[145][145]      ***  ******************  ***":forx=1to125:nextx
  56. 3014 print"[145][145]     ******************************":forx=1to125:nextx
  57. 3015 print"[145][145]    ********************************":forx=1to125:nextx
  58. 3016 print"[145][145]   **********************************":forx=1to125:nextx
  59. 3017 print"[145][145]    ********************************":forx=1to125:nextx
  60. 3018 print"[145][145]     ******************************":forx=1to125:nextx
  61. 3019 print"[145][145]      ****************************":forx=1to125:nextx
  62. 3020 print"[145][145]       **************************":forx=1to125:nextx
  63. 3021 print"[145][145]         **********************":forx=1to125:nextx
  64. 3022 print"[145][145]           ******************":forx=1to125:nextx
  65. 3023 goto62000
  66. 60000 print"[147]          ******************
  67. 60001 [153]"         **********************
  68. 60002 print"       **************************
  69. 60003 [153]"      ****************************
  70. 60005 print"     ******************************
  71. 60006 [153]"    ********************************
  72. 60007 print"   **********************************
  73. 60008 [153]"    ********************************
  74. 60009 print"     ******************************
  75. 60010 [153]"      ***  ******************  ***
  76. 60011 print"             **************
  77. 60012 [153]"               **********
  78. 60013 print"                ********
  79. 60014 [153]"                 ******
  80. 60015 print"                  ****
  81. 60016 [153]"                  ****
  82. 60017 print"                  ****
  83. 60018 [153]"                  ****
  84. 60019 print"             **************
  85. 60020 [153]"         **********************
  86. 60021 print" **************************************
  87. 60022 [153]"****************************************onononononononon"
  88. 60023 [161]a$:[139]a$[178]""[167]60023
  89. 62000 [129]x[178]1[164]2000:[130]x
  90. 62003 [153]"load(NULL)ie erlebten soeben die (NULL)erstoerung"
  91. 62004 [153]"(NULL)ew (NULL)orks bei (NULL)acht, verursacht durch"
  92. 62005 [153]"eine japanische atntombombe im mid$ahre 2011."
  93. 62006 [153]"(NULL)(NULL)right$(NULL)(NULL)val(NULL)closepeek(NULL)closemid$atnlen(NULL)close(NULL)left$valclose(NULL)atn(NULL)(NULL)val(NULL) 1992":[129]x[178]1[164]5000:[130]x
  94. 62007 [153]"load"[199](142):[162]
  95. 63000 [143] written by jack the rapper 1992
  96.