home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / part2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  117 lines
  1. 30 form=1to5:reada$(0):forf=1to40:print"";
  2. 31 forq=1to40-f:print" ";:nextq:printleft$(a$(0),f):nextf
  3. 32 reada$(1):forf=1to40:print"";
  4. 33 printright$(a$(1),f);:fory=0to30:nexty:next
  5. 34 reada$(2):forf=1to40:print"";
  6. 35 forq=1to40-f:print" ";:nextq:printleft$(a$(2),f):next:forp=0to999:next
  7. 37 forq=1to40:print""mid$(a$(0),q,len(a$(0))):nextq
  8. 38 forq=1to40:print"";:forn=1toq:print" ";:nextn
  9. 39 printleft$(a$(1),40-q):next
  10. 40 forq=1to40:print""mid$(a$(2),q,len(a$(2))):nextq:nextm
  11. 50 data,"             basic delirium [158]",,"  [171][192][201][213][196][201][213][196][201].[213][196][201][164][213][192][179][213][196][201][221]  .[178][192][174].  [221][176][178][201] "
  12. 51 data"   [221] [200][199] [221][202][192][201][221][199]  [163][199] [221][171][192][189][221]  [221][221]  [221][199] [221][221][221][200] "
  13. 52 data"  [173][192][203][202][192][177][202][198][203][177][202][198][203] [202][192][189][202][198][203][173][192][203][177][177]  [177][202][198][203]  [200] "
  14. 53 data"[155]  was totally coded and grafixed by[193] "
  15. 54 data" [213][192][192][192][192][192][192][192][192][192][213][192][192][192][192][192][192][192][192][201][213][192][192][192][192][192][192][192][174][192][192][192][192][192][192][192][192][174]"
  16. 55 data"[202][192][192][192][192][192][192][192][192][189][202][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][192][192][177]        [189] "
  17. 56 data"[155]      and released on 6th/7th of  "
  18. 58 print"[155]  and now a la";:data"   january at the party organised by[193] "
  19. 59 print"me lense over a logo...":data," [213][192][174][213][196][201][178][192][174].[213][196][201][213][196][201]   [213][196][201][221] [221][213][196][201][213][196][201][213][196][201][213][196][201] "
  20. 60 fort=0to999::::nextt:data"  [199] [221][199]  [221]  [221][202][192][201][171][192][189] + [171][192][189][202][192][201][199]  [171][192][189][202][192][201][202][192][201] "
  21. 61 print"";:goto78:data" [202][192][177][202][198][203][177]  [177][202][198][203][202][198][203]   [202][198][203][221] [221][202][198][203][202][198][203][202][198][203][202][198][203] "
  22. 62 x=10:y=13:xr=1:yr=1:g=0
  23. 63 g=g+1:z=55296+y*40+x:w=peek(z):ifw=0then69
  24. 64 poke8192,peek(z-41):poke8193,peek(z-40):poke8194,peek(z-39)
  25. 65 poke8195,peek(z-1):poke8196,peek(z):poke8197,peek(z+1):poke8198,peek(z+39)
  26. 66 poke8199,peek(z+40):poke8200,peek(z+41)
  27. 67 pokez+1,w:pokez-1,w:pokez-41,w:pokez-40,w:pokez-39,w:pokez+39,w
  28. 68 pokez+40,w:pokez+41,w:fort=1to150:next
  29. 69 x=x+xr:ifx>36thenxr=-1
  30. 70 ifx<3thenxr=1
  31. 71 y=y+yr:ify>21thenyr=-1
  32. 72 ify<13thenyr=1
  33. 73 ifw=0then63
  34. 74 pokez-41,peek(8192):pokez-40,peek(8193):pokez-39,peek(8194)
  35. 75 pokez-1,peek(8195):pokez,peek(8196):pokez+1,peek(8197)
  36. 76 pokez+39,peek(8198):pokez+40,peek(8199):pokez+41,peek(8200):ifg<60then63
  37. 77 fort=1to400:next:goto86
  38. 78 print"[144]   [152]        [144] [152]        [144] [152]        [144] [152]       [144]      ";
  39. 79 z$="[151] [155] [152] [144]  [151] [155] [152] [144] ":fort=1to3:printz$;:next:print"  [151] [155] [152] [144]        ";
  40. 80 print"[151] [155] [152] [144]  [151]   [144] ";:fort=1to2:printz$;:next:print"  [151] [155] [152] [144]        [151] [155] [152] [144]  ";
  41. 81 print"    ";:fort=1to2:printz$;:next:print"  [151] [155] [152] [144]        [151] [155] [152] [144] [152]    [144] ";
  42. 82 printz$"[151] [155] [152] [151]   [155] [152] [144]   [151] [155] [152] [144]        ";:fort=1to3:printz$;:next
  43. 83 print"  [151] [155] [152] [144]        ";:fort=1to3:printz$;:next:print"  [151] [155] [152] [144]        ";
  44. 84 fort=1to3:printz$;:next:print"  [151] [155] [152] [144]        [151]        [144] [151]        [144] [151]   [144] ";
  45. 85 print" [151]   [144]   [151]   [144]     ";:form=0to156:print" ";:next:goto62
  46. 86 form=21to12step-1:poke781,m:sys59903:fort=1to50:nextt:next:goto92
  47. 87 printspc(15)"3[223][146]     3[223]"spc(30)"3[146][169][223][223][146]   3[146][169][223][223]"spc(28)"3[146][169]  [223][223][146] 3";
  48. 88 print"[146][169]  [223][223]"spc(26)"3[146][169]    [223][223][146][169]    [223][223]"spc(24)"3[146][169]     3[146][223][223][146]     ";
  49. 89 print"[223][223]"spc(23)"[146][223][223][146]    3[146][169] [223][223][146]    3[146][169]"spc(24)"[223][223][146]   [223][223][146] 3[146][169]   ";
  50. 90 print"3[146][169]"spc(26)"[223][223][146]   [223][223][146][169]   3[146][169]"spc(28)"[223][223][146]  3[146][223][223][146]  3[146][169]"spc(30);
  51. 91 print"[223][223]3[146][169] [223][223]3[146][169]"spc(32)"[223][169]   [223][169]":return
  52. 92 f$(0)="[151]":f$(1)="[152]":f$(2)="[155]":f$(3)="":f$(4)="[155]"
  53. 93 form=0to4:print""f$(m);:gosub87:fort=1to30:nextt:next
  54. 94 c$(1)="              [146]     [146]     [146]     "
  55. 95 c$(2)="         [146] [146] [146] [146] [146] [146] [146]
  56. 96 c$(3)[178]"         wait wait wait wait wait wait"
  57. 97 c$(4)[178]"         wait   wait wait wait     wait "
  58. 98 c$(5)[178]"         wait wait wait wait wait wait "
  59. 99 c$(6)[178]"         wait wait wait wait wait wait "
  60. 100 c$(7)[178]"              wait     wait wait wait ":g[178]0
  61. 101 [129]m[178]0[164]17:[151]832[170]m,0:[130]:[129]m[178]18[164]44:[151]832[170]m,255:[130]:[129]m[178]45[164]63
  62. 102 [151]832[170]m,0:[130]:[151]2043,13
  63. 103 [151]2040,13:[151]2041,13:[151]2042,13:[151]53269,15:[151]53277,15:[151]53248,88
  64. 104 [151]53250,136:[151]53252,184:[151]53254,232:[129]m[178]0[164]3:[151]53287[170]m,0:[130]
  65. 105 g[178]g[170]1:[129]m[178]132[164]195:[151]53249,m:[151]53251,m:[151]53253,m:[151]53255,m
  66. 106 [153]"";
  67. 107 d[178](m[173]8)[171]16.5:[129]z[178]1[164]d:[153]"";:[130]z:[153]"sys"c$(d):[130]:[139]g[178]3[167]113
  68. 109 g[178]g[170]1:[129]m[178]194[164]133[169][171]1:[151]53249,m:[151]53251,m:[151]53253,m:[151]53255,m
  69. 110 [153]"";
  70. 111 d[178](m[173]8)[171]15.5:[129]z[178]1[164]d:[153]"";:[130]:[153]""c$(d):[130]
  71. 112 [137]105
  72. 113 [151]781,20:[158]59903:[129]m[178]194[164]133[169][171]1:[151]53249,m:[151]53251,m:[151]53253,m
  73. 114 [151]53255,m:d[178](m[173]8)[171]4.75:[151]781,d:[158]59903:[130]:[151]781,10:[158]59903
  74. 115 [151]53269,0:[129]t[178]1[164]300:[130]
  75. 116 [129]m[178]39[164]0[169][171]1:[151]1304[170]m,32:[151]1344[170]m,32:[129]t[178]0[164]30:[130]t:[130]m
  76. 117 [129]m[178]0[164]34:[135]z:[151]1024[170]z,32:[129]t[178]0[164]30:[130]t:[130]m
  77. 118 [131]0,1,40,2,41,80,3,42,81,120,4,43,82,121,160,44,83,122,161,200,84,123,162
  78. 119 [131]201,240,124,163,202,241,164,203,242,204,243,244
  79. 120 [129]m[178]0[164]38:[151]55300[170]m,12:[151]55342[170]m,12:[151]55381[170]m,12:[151]55419[170]m,12
  80. 121 [151]55460[170]m,12:[151]55501[170]m,12:[151]55539[170]m,12
  81. 122 [151]55298[170]m,0:[151]55340[170]m,0:[151]55379[170]m,0:[151]55417[170]m,0:[151]55458[170]m,0
  82. 123 [151]55499[170]m,0:[151]55537[170]m,0:[130]:[151]53265,32:[129]t[178]0[164]300:[130]:[153]"load"
  83. 125 [129]y[178]0[164]2:[129]x[178]0[164]5:[151]782,x[172]6[170]2:[151]781,y[172]8:[158]65520
  84. 126 [153]"wait:;<=>cmdcmdcmdcmdcmd(NULL)(NULL)(NULL) (NULL)cmdcmdcmdcmdcmdsgn absusrfrecmdcmdcmdcmdcmdqrstucmdcmdcmdcmdcmd./012cmdcmdcmdcmdcmd(NULL)(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdcmd";
  85. 127 [153]"notstep+-*";
  86. 128 [130]:[130]:[151]53265,27
  87. 129 [129]l[178]1[164]7:[129]m[178]201[164]207:[151]53270,m:[129]t[178]1[164]50:[130]t:[130]m
  88. 130 [129]m[178]206[164]200[169][171]1:[151]53270,m:[129]t[178]1[164]50:[130]t:[130]m:[130]l
  89. 131 [129]m[178]0[164]3:[129]n[178]0[164]24:[151]781,n:[151]782,m[172]10:[158]65520:[139]m[178]3[175]n[178]24[167]133
  90. 132 [153]"list          ";:[130]n:[130]m
  91. 133 [151]781,24:[151]782,30:[158]65520:[153]"         ";:[130]:[151]56295,15
  92. 134 [151]2023,160
  93. 135 [151]53281,15:[153]"stopload";
  94. 136 [129]m[178]0[164]3:[129]n[178]0[164]24:[151]781,n:[151]782,m[172]10:[158]65520:[139]m[178]3[175]n[178]24[167]138
  95. 137 [153]"          ";:[130]n:[130]m
  96. 138 [151]781,24:[151]782,30:[158]65520:[153]"         ";:[130]:[151]56295,0
  97. 139 [151]2023,160:[129]t[178]1[164]400:[130]
  98. 140 [151]53280,0:[151]53281,0:[153]"stoploadlist";
  99. 141 [129]m[178]0[164]3:[153][166]38)"  ";:[130]:h$[178]"   wait    wait   wait    "
  100. 142 [153][166]20)"or    >wait      >wait or     ";:g$[178]"  wait    wait   wait    wait   wait    "
  101. 143 [153][166]20)g$[166]20)g$[166]20)"  wait    "h$[166]20)"    wait  "h$[166]20)"  98wait";
  102. 144 [153]"  "h$[166]20)"  wait   >wait"h$[166]20)g$"or    >wait  >wait    or   >wait  "g$;
  103. 145 [153]"wait    wait     wait      wait   wait  "g$"wait    wait       >wait   wait   wait  "g$;
  104. 146 [153]"wait    wait     wait   wait      wait  "g$"wait    wait     wait   wait   wait     "g$;
  105. 147 [153]"wait    wait     wait   wait   wait   wait  "g$"wait    wait     wait   wait   wait   wait  ";
  106. 148 [153]"      wait   wait    wait         list     list   list   list       list       list  ";
  107. 149 [153]"  list   list        cont     cont   cont   cont       cont       cont    cont   cont  ";
  108. 150 [153]"      cont     cont   cont   cont   cont    cont       cont    cont   cont    cont   ";
  109. 151 [153]" cont     cont   cont   cont   cont    cont    cont   cont    cont   cont    cont    cont  ";
  110. 152 [153]"   cont   cont   cont       cont    cont   cont    cont   cont    cont    cont     cont  ";
  111. 153 [153]" cont   cont       cont    cont   cont    cont   cont    cont ";:[151]2023,160
  112. 154 [151]53265,27:[151]56295,14:[151]53269,1:[151]53287,1:[151]53277,0:[151]53271,0
  113. 155 x[178][181]([187](0)[172]234)[170]21:[151]53248,x:y[178][181]([187](0)[172]35)[170]195:[151]53249,y
  114. 156 [129]m[178]129[164]139:[151]2040,m:[129]t[178]1[164]50:[130]t:[130]m:[129]t[178]1[164]400:[130]
  115. 157 [161]a$:[139]a$[179][177]" "[167]155
  116. 158 [151]53269,0:[151]53272,21:[153]"waitloadlist...good bye!...":[158]64738
  117.