home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 April / 64er_Magazin_90-04_1990_Markt__Technik_de_Side_A.d64 / ass-koppler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  12 lines
  1. 0 ifpeek(49152)<>162thenfort=3247to3309:poke49152+t-3247,peek(t):next:goto3
  2. 1 goto3
  3. 2 poke19,1:inputx$:x=val(x$):poke19,0:print:return
  4. 3 open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close1:deffnh(x)=int(x/256):deffnl(x)=x-fnh(x)*256:poke53280,0:poke53281,0:printtchr$(14)"[147][154]  [193]ss - [203]oppler     (c) 1989 by [205][193][216][201][193][211]  [146]";:print"[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][163][163]":print"[193]nzahl der [198]iles:";:gosub2:z=x:dimn$(z):print:fort=1toz
  5. 4 print"[198]ilename [206]r."t"  :";:gosub2:n$(t)=x$:next:print"[218]eilennummer    :";:gosub2:zn=x:print"[218]eilentext      :";:gosub2:t$=x$:print"[211]prungadresse   :";:gosub2:sa=x:t$=right$("...................."+t$,20):print"[206]euer [198]ilename:";:gosub2:n$=x$:open15,8,15,"i":open1,8,2,n$+",p,w"
  6. 5 print#1,chr$(1)chr$(8)chr$(33)chr$(8)chr$(fnl(zn))chr$(fnh(zn))chr$(158)"2084"chr$(58);:print#1,chr$(143)" "t$chr$(0)chr$(0)chr$(0);:restore:fort=1to98:reada:ift=24thena=fnl(sa)
  7. 6 ift=25thena=fnh(sa)
  8. 7 print#1,chr$(a);:next:fort=1toz:open3,8,6,n$(t)+",p,r":gosub8:sys49152:print#1,"+-+";:close3:next:print#1,"+-+";:close1:close15:end
  9. 8 input#15,e,e$,f,g:ife=0thenreturn
  10. 9 print"[147][193]bbruch !":printe","e$","f","g:sys65511:end:data169,134,160,8,133,34,132,35,160,0,177,34,217,131,8,208,8,200,192,3,208:data244,76,255,255,160,0,177,34,133,251,200,177,34,133,252,165,34,24,105
  11. 10 data2,133,34,144,2,230,35,160,0,177,34,217,131,8,208,19,200,192,3,208,244:data165,34,24,105,3,133,34,144,2,230,35,76,44,8,160,0,177,34,145,251,230:data34,208,2,230,35,230,251,208,214,230,252,208,210,43,45,43
  12.