home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / demoprogramm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  58 lines
  1. 0 poke53281,6:poke53280,6:print"[147]demoprogramm 'raster-utility'
  2. 2 [129]x[178]0[164]18:[153]:[130]
  3. 3 [151]56,32:[156]:[138]10
  4. 4 [153]"stopondruecken sie bitte eine taste !
  5. 5 poke198,.:wait198,1:poke198,.
  6. 6 poke781,peek(214)-1:sys59903:return
  7. 10 ein   =49172
  8. 20 init  =49190
  9. 30 set   =49275
  10. 40 clear =49504
  11. 50 del   =49524
  12. 60 :
  13. 70 sys ein
  14. 80 sys set ,152,53265,27,53272,21
  15. 90 sys set ,104,53272,29,53265,59
  16. 95 print"[145][145]so mischt man text und grafik ![145][145]
  17. 100 [129]x[178]0[164]1920:[151]10432[170]x,0:[130]
  18. 110 [129]y[178]7[164]12
  19. 120 [129]x[178]0[164]39
  20. 130 [151]4[170]y[172]320[170]8192[170]x[172]8[170]4[172][191](x[173]2),36[172](y[171][181](y[173]2)[172]2)[170]219
  21. 140 [130]:[130]
  22. 160 [141]4:[153]"jetzt kommen diverse farbspielchen...onon
  23. 170 sysclear:poke53265,peek(53265)and223:poke53272,peek(53272)and247
  24. 180 :
  25. 200 sys49152:.c
  26. 210 forx=1to8
  27. 220 .s x*30,53281,x+2 ,53280,x+2:next
  28. 230 .i:gosub4:.c:sys49152
  29. 240 :
  30. 300 .s 1,53280,0,53281,0
  31. 310 .s 100,53280,2,53281,2
  32. 320 .s 200,53280,7,53281,7
  33. 325 gosub4
  34. 330 sys58692:sys49152:print"[215]ie finden [211]ie das:
  35. 332 .s88,53272,21:.s136,53272,23
  36. 334 [153]"oben haben wir gross/grafikzeichen:
  37. 336 print" [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211] abcdefghiklmnopqrs
  38. 337 [153]"und unten klein/grossbuchstaben:
  39. 338 print" [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211] abcdefghiklmnopqrs
  40. 340 [153]"(NULL)ehr schoene valffekte sind machbar
  41. 342 print"  sind doch schoene sachen...
  42. 344 .s240,53272,23:.s186,53272,21
  43. 350 [129]x[178]0[164]14
  44. 352 [151]49579,x[170]178
  45. 353 [129]j[178].[164]30:[130]
  46. 354 [130]
  47. 355 [129]x[178]13[164]1[169][171]1
  48. 356 [151]49579,x[170]178
  49. 357 [129]j[178].[164]30:[130]
  50. 358 [130]
  51. 360 [137]350
  52. 400 :
  53. 402 [143]  demoprogramm
  54. 404 [143]  'raster-utility'
  55. 406 [143]  (c) markt & technik
  56. 408 [143]  von thomas schlottke
  57. 410 [143]  bearbeitet von n. heusler
  58.