home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / demo+boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  2.4 KB  |  71 lines
  1. 100 rem *******************************
  2. 101 rem *    demo + boot  programm    *
  3. 102 rem *            fuer             *
  4. 103 rem *                             *
  5. 104 rem *        b l o w   u p        *
  6. 105 rem *                             *
  7. 106 rem *  eine basic-zusatzfunktion  *
  8. 107 rem *   fuer zeichendarstellung   *
  9. 108 rem *  in 4-facher hoehe + breite *
  10. 109 rem *                             *
  11. 110 rem *            von              *
  12. 111 rem *                             *
  13. 112 rem *        ludwig wolff         *
  14. 113 rem *       niederhutstr.42       *
  15. 114 rem *       5483 ahrweiler        *
  16. 115 rem *       tel.02641/34867       *
  17. 116 rem *                             *
  18. 117 rem *         15.11.1985          *
  19. 118 rem *******************************
  20. 200 :
  21. 300 :
  22. 400 :
  23. 500 ifa=0thena=1:load"blow up",8,1
  24. 520 c=646:poke53280,0:poke53281,0
  25. 530 z1$="@abcdefghijklmnopqrstuvwxyz \[255]1234567890"
  26. 540 z2$="[173][214][189][211][215][209][192][205][223][216][220][219][204][177][171][202][186][217][210]/[168][178][206][191]*[213]+-[218]^[184][183][163][164][210][198][195][196][163] [184][183][163] [165][180][181][161][169][182][170][172][190][172] [191][166][]_"
  27. 600 gosub1000:s=9:z=6:gosub1100
  28. 610 print"ein demo-programm fuer"
  29. 620 s=12:z=11:gosub1100:print" b l o w   u p":t=600:gosub1200
  30. 650 gosub1000:print" blow up  ist ein hilfsprogramm zur"
  31. 660 print"darstellung von zeichen aus dem c64-"
  32. 670 print"zeichensatz in 4-facher groesse:":t=300:gosub1200
  33. 680 s=6:z=11:pokec,1:gosub1100:sys51968("blow up"):t=150:gosub1200
  34. 690 s=4:z=16:pokec,10:gosub1100:sys51968("demo-prg")
  35. 700 t=400:gosub1200
  36. 710 gosub1000:s=11:z=13:gosub1100:print"das kann blow up:"
  37. 720 t=150:gosub1200:print"[159]":sys51968(z1$)
  38. 730 s=13:z=19:gosub1100:print"[158]grosse  zeichen."
  39. 740 t=450:gosub1200:poke52073,216:print"[150]":sys51968(z1$)
  40. 750 s=13:z=19:gosub1100:print"[158]kleine":gosub1200:gosub1000
  41. 760 s=7:z=2:pokec,10:gosub1100:sys51968("[199][210][207][211][211][197],")
  42. 770 s=8:z=6:pokec,14:gosub1100:sys51968("kleine")
  43. 780 s=0:z=10:pokec,7:gosub1100:sys51968("[194]uchstaben")
  44. 790 gosub1200:gosub1000:s=10:z=10:gosub1100:print"und die blockgrahik:"
  45. 800 t=150:gosub1200:print"";:poke52073,208
  46. 810 sys51968(z2$)
  47. 820 gosub1200:poke52073,212
  48. 830 sys51968(z2$)
  49. 840 gosub1200:gosub1010:poke52073,216:s=13:z=7:pokec,14:gosub1100
  50. 850 sys51968("auch"):s=8:z=13:gosub1100:sys51968("invers")
  51. 860 gosub1200:gosub1000:s=11:z=7:gosub1100:print"[158]und hier ein trick:"
  52. 870 l$="                    "
  53. 880 printspc(90)l$spc(20)l$"[150]"spc(20)l$spc(20)"[154]"l$
  54. 890 poke52128,165:s=10:z=10:gosub1100:sys51968("64'er")
  55. 900 poke52128,145:poke52073,208:t=350:gosub1200:goto600
  56. 999 stop
  57. 1000 rem -- bildschirm maske --
  58. 1005 print"[147]"
  59. 1010 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  60. 1020 fori=0to20:print"[221]"spc(38)"[221]";:next
  61. 1030 print"[221] taste druecken oder warten !"spc(9)"[221]";
  62. 1040 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  63. 1050 print" * blow up * l.wolff * ahrweiler 1985 *";:return
  64. 1100 rem -- crsr set --
  65. 1110 poke211,s:poke214,z:sys58640:return
  66. 1200 rem -- get --
  67. 1210 i=0
  68. 1220 i=i+1:ifi>tthenreturn
  69. 1230 geta$:ifa$=""then1220
  70. 1240 return
  71.