home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / KONTAKTECKE (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  50 lines
  1. 1 poke50257,20
  2. 2 printchr$(142);chr$(8):si=54272:poke53280,12:poke53281,12:print"[147][156]";:print"[182] [206] [206][183][205] [182]  [181][183][208][183][183] [206][183][205] [182] [206] [183][208][183][183]":print"[182][206]  [180] [167] [182][205] [181] [167]   [180] [167] [182][206]   [167]":print"[182][205]  [180] [167] [182] [205][181] [167]   [207][183][208] [182][205]   [167]      [183][183][183]":print"[182] [205] [205][175][206] [182]  [181] [167]   [165] [167] [182] [205]  [167]":print"":print"   [213][195][195][195][195][201]":print"  [213][179]    [171][195][195][195][195][195][195][195][201]":print"  [194][194]    [194]       [194]"
  3. 3 print"  [194][171][201]  [213][179][213][195][195][195][195][195][201][194]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":print"  [194][194][194]  [194][194] [144][166][166][166][166][166] [194]      [165]           [158]  [146][167][208] ";:print"  [194][194][194]  [194][194] [144][166][166][166][166][166] [194]      [165]           [158]  [146][167][170][208]";:print"  [194][194][194]  [194][194]       [194]      [165]             [167][170][170]";
  4. 4 print"  [194][194][194]  [194][194]  [144]123[146]  [194]      [165]     [144]'''' '''[167][170][170]";:print"  [194][194][194]  [194][194]  [144]456[146]  [194]      [165][144]:::: ''''' ''[167][170][170]";:print"  [194][194][194][160][160][194][194]  [144]789[146]  [194]      [165][144]:::: '' '''''[167][170][170]";:print"  [194][194][194]  [194][194]  [144]*0#[146]  [194]      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170][170]";
  5. 5 print"  [194][171][203]  [202][179]     [144]/ [194]       [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170]";:print"  [194][194]    [194] [144] [209] [209]  [194]        [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";:print"  [202][179]    [171][195][195][195][195][195][195][195][203]":print"   [202][195][195][195][195][203]":print:print"[156]                        [207][183][183] [206][183][183] [182] [206] [207][183][183]":print"                        [165]   [181]   [182][206]  [165]  "
  6. 6 print"                        [207][183]  [181]   [182][205]  [207][183] ":print"                        [204][175][175] [205][175][175] [182] [205] [204][175][175]";:gosub29:gosub30
  7. 7 poke53280,8:poke53281,8:printchr$(14);chr$(8);"[147]":print"[144][195]ommodore 64: [158][211]pitzensoftware aus allen":print"[194]ereichen! z.[194]. [212]ext-64/[193]dress-64 je 15":print"[196][205], [195]alkulator-64 25[196][205], [205]axiliste 1,30[196][205]";:print"[212].[200]anne, [200]ertastr.24, 4650 [199]elsenkirchen";:print"           *  *  *  *  *"
  8. 8 print"[144][211]uche [205]itstreiter [158]f. [198][207][210][212][200] auf [195]64. [208]ro-";:print"jekte: [212]ext, [205]ini-[195][193][196]/[195][193][205], [206][195]-[211]teuerung/";:print"[193]utomation, 3[196]-[199]raphik.   [211]oehnholz,":print"[212]el.: 0511/53 78 46 (ab 17.00 [213]hr)":z=13:gosub49:print"[144][195]64+[214][195]1541 [158][211][212]-[200]oroskop-[208]rogramm 69,-[196][205]"
  9. 9 print"[211][212]-[197]ntscheidungsfindungs-[208]rogramm 89,-[196][205]";:print"[208]. [211]teinbach [211]oftwarevertrieb":print"6100 [196]armstadt, [198]riedrichstr. 29":print"           *  *  *  *  *":print"[144][212]elefon-[205]odem [158]300 [194]d [214]ollduplex fuer [195]64";:print"mit autom. [215]aehleinrichtung u. [211]oftware"
  10. 10 print"[194]ausatz 274,24 [196][205] [198]ertiggeraet 305,75 [196][205]";:print"[204]inde [197]lektronic [211]tolberg 02402/24375":t1$="[215]enn/[201]hre lodernde [195]omputer-[194]egeisterung/juengst/zur flammenden":t2$="[160][204]eidenschaft/wurde/und/das ganze/garantiert/nicht als [211]trohfeuer/"
  11. 11 t3$="endet/haben [211]ie/vermutlich/vor kurzem/aus purer [206]eugier/c't gelesen":t4$="":t$=t1$+t2$+t3$+t4$:gosub47:gosub35:ifg$="[218]"org$="z"then1
  12. 12 poke53280,8:poke53281,8:printchr$(14);"[147]":print"[144][193][203][213][211][212][201][203][203][207][208][208][204][197][210] [158]fuer [195]64  208,-[196][205]":print"[198]ertig mont. im formgerechten [199]ehaeuse":print"nur noch einstecken [207]rig./[193]ns. [193].[211]tockem";:print"[194]erghausen 13, 5778 [205]eschede [212].0291/1221";:print"           *  *  *  *  *"
  13. 13 print"[144][204]ateinische [214]okabeln [158][193]bfrage/[215]oerter-":print"buch, 1000 lat.[214]ok., komf. [205]enuefuehrung";:print"[214]okabelschatz erweiterbar, [211]prites,[212]on..";:print"[200]einrichsmeier,[207]berdorf 53,5305 [193]lfter 4";:z=13:gosub49:print"[144][195]-64 [158] [211]oft- und [200]ardware noch [205]ass"
  14. 14 print"z.[194]. [195]entrschnittst. fuer jeden [196]rucker":print"alle [195][194][205]-[218]eichen mit [200][210][196][195] 1:1 u. 2:1":print"[195]entr. fuer [210][216]/[198][216]-80 [195][208]-80 (o.[203]abel)50,-";:print"jeder andere [196]rucker moeglich a.[193].":print"organisatorische [211]oftware f. [194]etriebe"
  15. 15 print"u. [197]rstellung von spezial [208]rg.a.[193]nfrage":print"[197]promkarte b.64[203] schaltb.(o.[197]prom) 40,-":print"[208]robby-[211]oft. [208]ostf.1409, 2720 [210]otenburg":t1$="[200]allo, [195]omputerfreaks! [215]ollt [201]hr [197]uren [197]lektronik-[200]orizont"
  16. 16 t2$="[160]erweitern? [213]nd aktuelle [211]chaltungstechnik kennenlernen, auch in":t3$="[160][198]orm von [194]auanleitungen? [213]nd elektronisch stets auf dem [204]aufenden":t4$="[160]sein? [196]ann lest elrad![160][160][160][160][160][160][160][160][160][160][160][160]":t$=t1$+t2$+t3$+t4$:gosub47:fort=0to1000:nextt
  17. 17 t1$="[205]onat fuer [205]onat in handlicher [208]aperware mit schnellem [218]ugriff.":t2$="[160][205]it ca. 820 [203][194]yte [200]eftinhalt. [213]nd mit extrem":t3$=" hochaufloesender [199]rafik! elrad - das [205]agazin fuer [197]lektronik aus":t4$=" dem [200]eise-[214]erlag         "
  18. 18 t$=t1$+t2$+t3$+t4$:gosub47:gosub35:ifg$="[218]"org$="z"then7
  19. 19 poke53280,8:poke53281,8:printchr$(14);"[147]":print"[144]     [195][160][207][160][205][160][205][160][207][160][196][160][207][160][210][160][197][160]   6 4 ":print"[158]       [211]oftware-[197]ntwicklung":print"in [194][193][211][201][195] mit [194]eschreibung und [204]istings":print"[201]ndividualloesung nach [193]ufgabenstellung":print"und [214]orgabe schnell und preiswert."
  20. 20 print"[203]eine [211]piel- und [213]nterhaltungsprogramme":print"[203]eine [212]elefonberatung":print"[201]nfo bei:":print"[193]lex [208]uetz, 424 [197]mmerich, [198]rankenstr.11[194]";:z=13:gosub49:print"[144][196]enkspiele[158] und [205]athe. [208]rogramme nur in":print"[194][193][211][201][195] geschrieben. [198]uer [195]-64 und [214][195]-20"
  21. 21 print"verfuegbar. [200]. [194]ecker, [203]irchgasse 6":print"6374 [211]teinbach/[212]s":print"           *  *  *  *  *":print"[144]+ + +    [195][207][205][205][207][196][207][210][197] und [193][208][208][204][197]    + + +":print"[158][212][197][216][212][197][196] 28,--;[193][196][210][197][211][211] 28,--;[198][193][203][212][213][210] 98,--":print"[198][201][194][213] 48,--;[204][193][199][197][210] 48,--;[205][193][200][206][213][206][199] 98,--;"
  22. 22 print"[196][201][208][204].-[205][193][212][200] [204].[200][201][205][197][210],[208][198].466,6308 [194][213][212][218][194][193][195][200]":t1$="[201][206][208][213][212][160]64 alle vier [215]ochen neu an [201]hrem [203]iosk. [193]uch die zweite":t2$="[160][193]usgabe von [160][201][206][208][213][212][160]64  bringt wieder [193]nwenderprogramme und [211]piele,"
  23. 23 t3$="[160][212]ips und den zweiten [212]eil des [203]urses, [200]ilfsprogramme und ...      ":t4$="":t$=t1$+t2$+t3$+t4$:gosub47:gosub35:ifg$="[218]"org$="z"then12
  24. 24 poke53280,8:poke53281,8:printchr$(14);"[147]":print"[144][200]ier [158]koennte auch [201]hre [203]leinanzeige":print"stehen.":print:print:print"           *  *  *  *  *":print"[144][215]enn [158][211]ie [203]ontakte suchen, [200]ardware oder":print"[211]oftware anbieten wollen oder suchen,":print"dann fuellen [211]ie die [203][207][206][212][193][203][212][203][193][210][212][197] aus,"
  25. 25 print"die [211]ie im [194]egleitheft finden":z=13:gosub49:print"[144][211]ie [158]koennen fuer [201]hre [203]ontaktanzeige":print"alle [218]eichen des [160][195]64  verwenden, die":print"ueber den '[199]ross-[203]leinschrift-[205]odus'":print"erreichbar sind!!":print"           *  *  *  *  *"
  26. 26 print"[144][194]itte [158]beachten [211]ie, dass fuer [213]mlaute":print"zwei [218]eichen benoetigt werden.":t1$="[211]ie koennen entweder eine [193]nzeige mit 4 oder mit 9 [218]eilen aufgeben.":t2$="":t3$="[160][196]ie folgenden [208]reise gelten nur fuer private [203]ontaktanzeigen:"
  27. 27 t4$="[160]4 [218]eilen 10[196][205] / 9 [218]eilen 20[196][205]":t$=t1$+t2$+t3$+t4$:gosub47:gosub40:ifg$="[218]"org$="z"then19
  28. 28 goto2:print"           *  *  *  *  *":end
  29. 29 pokesi+24,15:fori=0to4:pokesi,40:pokesi+1,234:pokesi+7,130:pokesi+8,110:pokesi+14,20:pokesi+15,117:pokesi+6,240:pokesi+13,240:pokesi+20,240:fort=0to500:nextt:forj=0to20:pokesi+4,33:pokesi+11,33:pokesi+18,17:pokesi+4,32:pokesi+11,32:pokesi+18,16:nextj:nexti:pokesi+24,0:return
  30. 30 z=24:s=0:gosub49:print"[144]weiter =  w [146]";:fort=0to200:nextt:getg$:ifg$=""then33
  31. 31 ifg$="w"org$="[215]"thengosub45:goto34
  32. 32 gosub46
  33. 33 gosub49:print"[144]weiter =  w ";:fort=0to200:nextt:goto30
  34. 34 gosub49:print"               ";:return
  35. 35 z=24:s=0:gosub49:print"[144]weiter =  w [146]   zurueck =  z [146]";:fort=0to200:nextt:getg$:ifg$=""then38
  36. 36 ifg$="w"org$="[215]"org$="z"org$="[218]"thengosub45:goto39
  37. 37 gosub46
  38. 38 gosub49:print"[144]weiter =  w    zurueck =  z  ";:fort=0to200:nextt:goto35
  39. 39 gosub49:print"                            ";:return
  40. 40 z=24:s=0:gosub49:print"[144]anfang =  a [146]   zurueck =  z [146]";:fort=0to200:nextt:getg$:ifg$=""then43
  41. 41 ifg$="a"org$="[215]"org$="z"org$="[218]"thengosub45:goto44
  42. 42 gosub46
  43. 43 gosub49:print"[144]anfang =  a    zurueck =  z  ";:fort=0to200:nextt:goto40
  44. 44 gosub49:print"                            ";:return
  45. 45 pokesi,59:pokesi+1,139:pokesi+6,240:pokesi+4,17:pokesi+24,15:fort=0to100:nextt:pokesi+4,0:return
  46. 46 pokesi,180:pokesi+1,8:pokesi+6,240:pokesi+4,17:pokesi+24,15:fort=0to100:nextt:pokesi+4,0:return
  47. 47 z=10:s=2:gosub49:print"[144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]":z=11:s=2:gosub49:print"[144]                                   ":z=12:s=2:gosub49:print"[144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]":t$="                               "+t$:fori=1tolen(t$)-28:z=11:s=5:gosub49
  48. 48 print"[144]";mid$(t$,i,29):forz=0to100:nextz,i:return
  49. 49 poke214,z:poke211,s:sys58640:print"";:return
  50.