home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / 64er-TIPS (.txt) next >
Commodore BASIC  |  2023-02-26  |  10KB  |  73 lines
  1. 1 poke50257,20:dimp(6,35),fz(24),t(1,14):s=0:z=0:v=0:z1=6:z2=5:s1=17:s2=19:s3=35:si=54272:print"[147]";chr$(14);chr$(8):data8,10,12,15,18,23,28,23,18,15,12,10,8:data97,143,143,210,209,181,49,181,209,210,143,143,97:fori=0to1:forv=2to14:readt(i,v):nextv,i:poke53280,0:poke53281,0:print"[147][144]";
  2. 2 forz=0to23:print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";:nextz:print"                                       ";:data1,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0:data1,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0:data1,0,0,0,0,0,1,0,1,0,0,0,1,1,1,0,1,0
  3. 3 data1,1,1,1,0,0,1,1,1,1,0,0,1,0,1,0,1,1:data1,0,0,1,0,0,0,0,1,0,0,0,1,1,1,0,1,0:data1,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0,1,0:data1,1,1,1,0,0,0,0,1,0,0,0,1,1,1,0,1,0:forz=0toz1:fors=0tos1:readp(z,s):nexts,z:j=0:fori=55388to55686step40:fz(j)=i:j=j+1:next
  4. 4 forv=14to2step-1:forz=0toz1:fors=0tos1:ifp(z,s)thenpokefz(z)+s,v
  5. 5 nexts,z:fort=0to6:fz(t)=fz(t)+39:nextt:gosub53:nextv:data1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1,0:data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1:data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1
  6. 6 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data1,1,1,1,0,0,0,0,1,1,1,0,0,0,1,0,1,1:data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data0,0,1,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1:data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data0,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1
  7. 7 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:forz=0toz2:fors=0tos3:readp(z,s):nexts,z:j=0:fori=55296to56256step40:fz(j)=i:j=j+1:next:forz=0toz2:fors=0tos3:ifp(z,s)>0thenpokefz(18-z)+2+s,0
  8. 8 nexts,z:forz=12to2step-1:fors=2to37:pokefz(z)+s,0:nexts,z:data1,1,1,1,1,0,0,1,0,0,1,1,1,1,0,0,1,1,1,1:data0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0:data0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0:data0,0,1,0,0,0,0,1,0,0,1,1,1,1,0,0,1,1,1,1:data0,0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,1
  9. 9 data0,0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,1:data0,0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,1,1:forz=0toz1:fors=0tos2:readp(z,s):nexts,z:j=0:fori=55384to55684step40:fz(j)=i:j=j+1:next:forv=2to14:forz=0toz1:fors=0tos2:ifp(z,s)thenpokefz(z)+s,v
  10. 10 nexts,z:fort=0to6:fz(t)=fz(t)+41:nextt:gosub53:nextv:pokesi+24,0:poke55954,3:poke55913,3:data1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1,0:data1,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,1,1:data0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1:data1,0,0,0,1,1,0,0,1,0,0,0,0,0,1,1,0,0
  11. 11 data0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1:data1,0,0,1,1,1,0,0,1,0,0,0,0,0,1,0,0,0:data1,1,1,1,0,0,0,0,1,1,1,0,0,0,1,0,1,1:data1,0,0,1,1,1,0,0,1,0,0,1,0,0,1,0,0,1:data0,0,1,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1:data0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,0,0,0
  12. 12 data0,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0:data0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0:forz=0toz2:fors=0tos3:readp(z,s):nexts,z:j=0:fori=55296to56256step40:fz(j)=i:j=j+1:next:forz=0toz2:fors=0tos3:ifp(z,s)>0thenpokefz(18-z)+2+s,0
  13. 13 nexts,z:forz=12to2step-1:fors=2to37:pokefz(z)+s,0:nexts,z:fort=1to500:nextt:forz=0to11:print:nextz:z=13:s=0:gosub72:print"[158][196] [201][160][197][160][211][160][205][160][193][160][204] :":z=16:s=18:gosub72:print"[158][195] u r s o r ":z=18:s=18:gosub72:print"[158]u n t e r ":z=20:s=18:gosub72:print"[158]r o l l e":fort=0to500:nextt:z=20:s=18:gosub72:print"[158]n r o l l e":fort=0to500:next
  14. 14 z=20:s=18:gosub72:print"[158]o n r o l l e":fort=0to500:next:z=20:s=18:gosub72:print"[158][203] o n r o l l e":fort=0to500:next:z=21:fors=0to24:gosub72:print"[158]t":fort=oto30:nextt:gosub72:print" ":nexts:s=24:fori=0to7:forz=22to21step-1:gosub72:print"[158]t":fort=oto10:nextt:gosub72:print" ":nextz,i:z=20:s=18:gosub72:print"[158][203] o n   r o l l e":fort=0to600:next
  15. 15 z=20:s=18:gosub72:print"[158][203] o n t r o l l e":gosub67
  16. 16 print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[199] r u n d l a g e n   d e r         ":z=2:gosub72:print"[195] u r s o r a d r e s s i e r u n g ":print:print:print"[204]eider bietet das [211]tandard-[194][193][211][201][195] vom":print"64er keinen [208][210][201][206][212] [193][212] [194]efehl. [215]enn wir"
  17. 17 print"die [208]rint-[193]usgabe auf einem bestimmten":print"[218]eilen- und [211]paltenwert wuenschen, sind":print"wir auf ein selbstgeschriebenes [208]rogramm";:print"angewiesen.":print:print"[213]nser [208]rogramm ist als [213]nterprogramm":print"geschrieben und benutzt lediglich zwei"
  18. 18 print"[208][207][203][197]-[193]dressen und eine [194]etriebssystem-":print"[210]outine":print:print"[196]er [193]dresse 211[146] wird der [211]paltenwert[146] und";:print"der [193]dresse 214[146] wird der [218]eilenwert[146]":print"uebergeben. [215]ir muessen nun nur noch mit";:print"[211][217][211]58640[146] eine [211]ystemroutine aufrufen."
  19. 19 gosub67:print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[213] n t e r p r o g r a m m   f u e r ":z=2:gosub72:print"[195] u r s o r a d r e s s i e r u n g ":print:print:print"[196]as [194]etriebssystem reagiert aber sehr":print"unangenehm, wenn die zulaessigen [215]erte"
  20. 20 print"unter- oder ueberschritten werden.":print:print"[215]ir haben daher in unser [213]nterprogramm":print"eine [194]ereichsueberpruefung eingebaut.":print:print"[200]ier nun das [213]nterprogramm:":print:print"[158]997 [210][197][205] [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199][160][160][160][160][160][160][160][160][160][160][160] ":print"998 [201][198][218]<0[207][210][218]>24[207][210][211]<0[207][210][211]>39[212][200][197][206][210][197][212][213][210][206]"
  21. 21 print"999 [208][207][203][197]214,[218]:[208][207][203][197]211,[211]:[211][217][211]58640:[210][197][212][213][210][206]":print:print"[196]ie [218]eile 998[146] kann entfallen, wenn [211]ie":print"sicher sind, dass die [214]ariablen [218][146] und [211][146]":print"nur gueltige [215]erte enthalten koennen.":gosub67:print"[147][144]";:poke53280,11:poke53281,11
  22. 22 gosub52:z=1:s=2:gosub72:print"[196] e m o n s t r a t i o n   d e r   ":z=2:gosub72:print"[195] u r s o r a d r e s s i e r u n g ":print:print:print"[196]as folgende kurze [208]rogramm demonstriert";:print"die [195]ursorsteuerung:":print:print"[158]100 [210][197][205] [196][197][205][207][206][211][212][210][193][212][201][207][206][211][208][210][207][199][210][193][205][205]":print"110 [218]=21:[198][207][210][211]=0[212][207]39"
  23. 23 print"120 [199][207][211][213][194]997:[208][210][201][206][212]";chr$(34);"*";chr$(34);":[198][207][210][212]=0[212][207]100:[206][197][216][212][212]":print"130 [199][207][211][213][194]997:[208][210][201][206][212]";chr$(34);" ";chr$(34):print"140 [206][197][216][212][211]:[197][206][196]":print"150 :":print"997 [210][197][205] [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199][160][160][160][160][160][160][160][160][160][160][160] ":print"998 [201][198][218]<0[207][210][218]>24[207][210][211]<0[207][210][211]>39[212][200][197][206][210][197][212][213][210][206]"
  24. 24 print"999 [208][207][203][197]214,[218]:[208][207][203][197]211,[211]:[211][217][211]58640:[210][197][212][213][210][206]":print:z=19:s=3:gosub54:z=21:fors=0to39:gosub72:print"*":fort=0to100:next:gosub72:print" ":nexts:z=21:s=0:gosub72:print"[210][197][193][196][217].":gosub67:print"[147]":poke53281,0:poke53280,0:print"                                 [155][193][206][218][197][201][199][197]";:print"[158][193]ls c't / "
  25. 25 print" zum allerersten [205]al / einem /":print" hochkaraetigen [193]nzeigenkunden / via /":print" [208]ruefstand-[212]estbericht /":print" oeffentlich erklaerte / was /""":print" an seinem [208]rodukt / wie und warum /":print" verbessert werden muss / damit es /"
  26. 26 print" seinen / flotten [215]erbespruechen /":print" entspricht / hat der / zur /":print" allgemeinen [214]erblueffung / die [203]ritik /";:print" willkommen geheissen / und / gleich /":print" das naechste [212]estgeraet /":print" angeschleppt /":print:print
  27. 27 print"[158]c't ist fuer [208]rofis & [208]assionelle":print:print:print" c't magazin fuer computertechnik":print:print"[158][196]azulernen werden [211]ie immer.":gosub67:print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[199] r u n d l a g e n   d e r         "
  28. 28 z=2:gosub72:print"[195] u r s o r s t e u e r u n g       ":print:print:print"[211]elbstverstaendlich koennen [211]ie das ":print"[213]nterprogramm [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199][146] auch":print"fuer den [201][206][208][213][212]-[194]efehl benutzen.":print:print"[197]ingaben werden aber oftmals ueber die"
  29. 29 print"[199][197][212]-[193]bfrage realisiert. [204]eider wird bei":print"der [199][197][212]-[193]bfrage kein [195]ursor gesetzt.":print:print"[197]s gibt aber auch hierfuer einige":print"[208][207][203][197]-[193]dressen mit deren [200]ilfe wir einen":print"[195][213][210][211][207][210] auf den [194]ildschirm 'zaubern'":print"koennen. [201]m einzelnen sind dies:":print
  30. 30 print"[193]dresse 204[146] [195][213][211][207][210] ein (0) / aus (1)":print"[193]dresse 646[146] [198]arbwert unter dem [195][213][210][211][207][210]":gosub67:print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[195][160][213][160][210][160][211][160][207][160][210][160]- [198] a r b e   u n d ":z=2:gosub72:print"[195] u r s o r - [218] e i c h e n"
  31. 31 print:print:print"[196]as folgende kurze [208]rogramm ermoeglicht":print"[201]hnen, sowohl die [195][213][210][211][207][210]-[198]arbe als auch":print"den [195][213][210][211][207][210] selbst zu beeinflussen. ":print:print"[196]er [211][217][211]59923[146] ist unbedingt notwendig,":print"da ein direktes einpoken allein nicht"
  32. 32 print"ausreicht. ([202]edenfalls nicht immer)":print:print"[218]eile 130 entspricht [218]eile 999 aus dem":print"[213]nterprogramm [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199].":print"[193]uf die [194]ereichsueberpruefung haben wir":print"verzichtet. [194]ei der [218]eicheneingabe sind":print"nur [218]iffern und [194]uchstaben sinnvoll.":print
  33. 33 print"[199]ehen [211]ie das [208]rogramm ruhig [218]eile fuer":print"[218]eile durch!":gosub67:print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[212] e s t p r o g r a m m   f u e r":z=2:gosub72:print"[195] u r s o r - [193] u s g a b e":print:print"[158]100 [201][206][208][213][212]";chr$(34);"[195][213][210][211][207][210][218][197][201][195][200][197][206]  =[160]";chr$(34);";[195]$"
  34. 34 print"110 [201][206][208][213][212]";chr$(34);"[198][193][210][194][197] (0-9)    =[160]";chr$(34);";[198]":print"120 :":print"130 [208][207][203][197]214,17:[208][207][203][197]211,25:[211][217][211]58640":print"140 [208][207][203][197]646,[198]:[208][207][203][197]647,[198]:[208][207][203][197]780,[193][211][195]([195]$)":print"150 [208][207][203][197]781,[198]:[211][217][211]59923:[208][207][203][197]204,0":print"160 [198][207][210][212]=0[212][207]2000:[206][197][216][212][212]":print"170 [208][207][203][197]205,255:[208][207][203][197]207,0:[208][207][203][197]204,1"
  35. 35 print"180 :":print"190 [197][206][196]"
  36. 36 z=15:s=3:gosub54:z=17:s=0:gosub72:print"                                     ":gosub72:print"[144][195][213][210][211][207][210][218][197][201][195][200][197][206]  ="
  37. 37 s=17:gosub72:print" [146]";:fort=0to200:nextt:getg$:ifg$=>" "andg$=<"z"andg$<>"@"then39
  38. 38 gosub72:print" ";:fort=0to200:nextt:goto37
  39. 39 gosub72:x=asc(g$):ifx>47andx<58thenprintg$:goto41
  40. 40 printchr$(asc(g$)+128)
  41. 41 z=18:s=0:gosub72:print"[198][193][210][194][197] (0-9)    ="
  42. 42 s=17:gosub72:print" [146]";:fort=0to200:nextt:getg$:ifg$=>"0"andg$=<"9"then44
  43. 43 gosub72:print" ";:fort=0to200:nextt:goto42
  44. 44 gosub72:printg$:f=val(g$):poke214,17:poke211,25:sys58640:poke646,f:poke647,f:poke780,x:poke781,f:sys59923:poke204,0:fort=0to2000:nextt:poke205,255:poke207,0:poke204,1:s=0:forz=17to18:gosub72:print"                                 ":nextz:z=17:gosub72:print"[205]oechten [211]ie  eine [215]iederholung  j[146] / n[146]"
  45. 45 getg$:ifg$<>"j"andg$<>"n"then45
  46. 46 gosub72:print"[158]                                        ";:ifg$="j"thenz=15:s=0:gosub72:goto36
  47. 47 z=21:s=0:gosub72:print"[210][197][193][196][217].":gosub67:print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[218] u s a m m e n f a s s u n g":z=2:gosub72:print"d e r   [193] d r e s s e n ":print:print:print:print"[193]dresse 204[146] = [195][213][210][211][207][210] an/aus":print"[193]dresse 205[146] = [218]aehler fuer [195].-blinken"
  48. 48 print"[193]dresse 207[146] = [198][204][193][199] fuer [195][213][210][211][207][210] an/aus":print:print:print"[193]dresse 211[146] = [218]eilenwert  fuer [195][213][210][211][207][210]":print"[193]dresse 214[146] = [211]paltenwert fuer [195][213][210][211][207][210]":print:print:print"[193]dresse 646[146] = [198]arbwert unter [195][213][210][211][207][210]":print"[193]dresse 647[146] = [193]ugenblicklicher [198]arbwert":print:print
  49. 49 print"[211][217][211]   58640[146] = [195][213][210][211][207][210] setzen":print"[211][217][211]   59923[146] = [198]arbe unter [195][213][210][211][207][210] setzen""":gosub67:print"[147][144]";:poke53280,11:poke53281,11:gosub52:z=1:s=2:gosub72:print"[201] n   d e r   n a e c h s t e n":z=2:gosub72:print"[198] o l g e   v o n   6 4 e r   [212] i p s"
  50. 50 z=7:s=10:gosub72:print"[211]peicherverwaltung[146]":z=9:s=16:gosub72:print"unter[146]":z=11:s=14:gosub72:print"[203]ontrolle":z=15:s=4:gosub72:print"die [218]eiger fuer die [214]erwaltung":z=16:s=8:gosub72:print"der [214]ariablen-[194]ereiche":z=18:s=2:gosub72:print"[193]endern der [213]nter- und [207]bergrenzen"
  51. 51 z=19:s=10:gosub72:print"des [194][193][211][201][195]-[211]peichers":gosub62:goto16:end
  52. 52 z=0:s=0:gosub72:print"[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]";:print"[221]                                      [221]";:print"[221]                                      [221]";: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]";:return
  53. 53 pokesi,t(1,v):pokesi+1,t(0,v):pokesi+7,t(1,v):pokesi+8,t(0,v)+3:pokesi+14,t(1,v):pokesi+15,t(0,v)-3:pokesi+6,251:pokesi+4,17:pokesi+13,248:pokesi+11,65:pokesi+20,248:pokesi+18,65:pokesi+24,15:fort=0to100:nextt:pokesi+4,16:pokesi+11,64:pokesi+18,64:return
  54. 54 print"[210][213][206]":print:print"[211]tarten [211]ie das [208]rogramm mit [210][197][212][213][210][206][146]"
  55. 55 gosub72:print"[158] [146]":fort=0to200:nextt:getg$:ifg$=""then58
  56. 56 ifg$=chr$(13)thengosub60:goto59
  57. 57 gosub61
  58. 58 gosub72:print" ":fort=0to100:nextt:goto55
  59. 59 gosub72:print" ":return
  60. 60 pokesi,59:pokesi+1,139:pokesi+6,240:pokesi+4,17:pokesi+24,15:fort=0to100:nextt:pokesi+4,0:return
  61. 61 pokesi,180:pokesi+1,8:pokesi+6,240:pokesi+4,17:pokesi+24,15:fort=0to100:nextt:pokesi+4,0:return
  62. 62 z=24:s=0:gosub72:print"[155][193]nfang =  [193] [146]";:fort=0to200:nextt:getg$:ifg$=""then65
  63. 63 ifg$="a"org$="[193]"thengosub60:goto66
  64. 64 gosub61
  65. 65 gosub72:print"[193]nfang =  [193]  ";:fort=0to200:nextt:goto62
  66. 66 gosub72:print"                  ";:return
  67. 67 z=24:s=0:gosub72:print"[155][215]eiter =  [215] [146]";:fort=0to200:nextt:getg$:ifg$=""then70
  68. 68 ifg$="w"org$="[215]"thengosub60:goto71
  69. 69 gosub61
  70. 70 gosub72:print"[215]eiter =  [215]  ";:fort=0to200:nextt:goto67
  71. 71 gosub72:print"                 ";:return
  72. 72 poke214,z:poke211,s:sys58640:print"";:return
  73.