home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_A.d64 / publication-note (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  79 lines
  1. 1 rem" the publication-note! by zeitgeist/h-t
  2. 2 [143]"----------------------------------------
  3. 3 rem""(NULL)
  4. 10 ga=peek(186):sys57812("sprites*"),8,1:poke780,0:sys65493:print"[147]"chr$(14)
  5. 11 poke53281,15:poke53280,6:poke646,0:poke2040,228:poke2041,229:poke53265,11
  6. 12 poke2042,230:poke2043,231:poke53276,255:poke53248,80:poke53249,55
  7. 13 poke53287,12:poke53288,12:poke53289,12:poke53290,12:poke53285,1:poke53286,0
  8. 14 poke53250,128:poke53251,55:poke53252,176:poke53253,55:poke53254,224
  9. 15 poke53255,55:poke53269,255:poke53277,255
  10. 16 print""tab(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
  11. 17 printtab(8)"done by [129][200][149]i[150]g[151]h-[159][212][156]ech in '96"
  12. 18 printtab(6)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke53265,27
  13. 19 a$="[217]o ! [196]iz is the [200]igh-[212]ech-[205]emberstatus":py=6:gosub2000
  14. 20 print" [144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":gosub3000
  15. 21 print" [208]hoenix"tab(18)"[204]ead,[195]ode,[211]wap":gosub3000
  16. 22 print" [202][193][203] [212] [210][201][208]"tab(18)"[195]o[204]ead,[195]over,[199][198][216],[211]wap":gosub3000
  17. 23 print" [199]host"tab(18)"[199]rafix":gosub3000
  18. 24 print" [210][193]!"tab(18)"[199]rafix":gosub3000
  19. 25 print" [199]unhed battalion [195]ode,[205]usix":gosub3000
  20. 26 print" [212][211][214]"tab(18)"[195]ode":gosub3000
  21. 27 print" [210]obin [200]ood"tab(18)"[205]ag-[197]ditor":gosub3000:print" [218]eitgeist";
  22. 28 printtab(18)"[195]ode,[205]ag-[197]ditor":print" [193][212][200]"tab(18)"[199]rafix"
  23. 30 a$=" [215]atch out for all fuckin' lame stuff":py=19:gosub2000
  24. 31 a$="  of [200]igh-[212]ech,exspeccially the next":py=20:gosub2000:gosub3000
  25. 32 a$="        issue of [208][159][213][156][194][204][201][158][195][129][193][150][212][151][201][152][207][153][206] [144]!":py=21:gosub2000
  26. 33 a$="  [206]ow press da long one down under !":py=23:gosub2000
  27. 34 geta$:ifa$<>chr$(32)then34
  28. 35 poke53265,11:print"[147]"tab(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
  29. 36 printtab(8)"done by [129][200][149]i[150]g[151]h-[159][212][156]ech in '96"
  30. 37 printtab(6)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke53265,27:gosub3000
  31. 38 print" [196]as [200]igh-[212]ech jetzt die [208][213][194][204][201][195][193][212][201][207][206]"
  32. 39 print" rausgibt,werdet [201]hr ja schon hinlaeng-"
  33. 40 print" lich bemerkt haben."
  34. 41 print" [200]ier also nur noch einige [200]inweise"
  35. 42 print" zur [194]enutzung - sprich der [212]astenbe-"
  36. 43 print" legung - des [205]ags."
  37. 44 a$="  [206]ow press da long one down under !":py=23:gosub2000
  38. 45 geta$:ifa$<>chr$(32)then45
  39. 46 poke53265,11:print"[147]"tab(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
  40. 47 printtab(8)"done by [129][200][149]i[150]g[151]h-[159][212][156]ech in '96"
  41. 48 printtab(6)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke53265,27:gosub3000
  42. 49 print" [201]m [200]auptmenue :"
  43. 50 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  44. 51 print" [199]esteuert wird die [200]and mit den"
  45. 52 print" [195]ursortasten oder dem [202]oystick.[202]oy"
  46. 53 print" ist aber nicht zu empfehlen,da das"
  47. 54 print" [197][216][212][210][197][205] lahm ist."
  48. 55 print" [201]m [212]ext :"
  49. 56 print" [163][163][163][163][163][163][163][163][163]"
  50. 57 print" [196]er [212]ext wird solange im [211]peicher"
  51. 58 print" gehalten,bis ein neuer angewaehlt"
  52. 59 print" wird."
  53. 60 a$="  [206]ow press da long one down under !":py=23:gosub2000
  54. 61 geta$:ifa$<>chr$(32)then61
  55. 62 poke53265,11:print"[147]"tab(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
  56. 63 printtab(8)"done by [129][200][149]i[150]g[151]h-[159][212][156]ech in '96"
  57. 64 printtab(6)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke53265,27:gosub3000
  58. 65 print" [211]eitenswap :"
  59. 66 print" [163][163][163][163][163][163][163][163][163][163][163][163]"
  60. 67 print" + / [195]ursor rechts / [211]pace"
  61. 68 print" - / [195]ursor links  / [195]ommodore"
  62. 69 print" [198]unktionstasten :"
  63. 70 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  64. 71 print" [198]1 [211]pringe zur [211]eite"
  65. 72 print" [198]3 [211]pringe zum [212]extanfang"
  66. 73 print" [198]5 [211]pringe zum [212]extende"
  67. 74 print" [198]7 [211]pringe zu [193]bsatz"
  68. 75 print" [205]it [210]eturn wird der [212]ext verlassen !"
  69. 76 a$="                       [206]ote restarts !":py=6:gosub2000
  70. 77 a$="  [206]ow press da long one down under !":py=23:gosub2000
  71. 78 geta$:ifa$<>chr$(32)then78
  72. 999 print"[147]":poke53265,11:goto15
  73. 2000 f(1)=0:f(2)=6:f(3)=2:f(4)=5:f(5)=7:f(6)=1
  74. 2001 forg=1to6:poke211,1:poke214,py:sys58732:poke646,f(g):printa$:forq=1to75
  75. 2002 nextq,g
  76. 2003 forg=6to1step-1:poke211,1:poke214,py:sys58732:poke646,f(g):printa$
  77. 2004 forq=1to75:nextq,g:return
  78. 3000 forg=1to150:nextg:return
  79.