home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 January / 64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64 / quickformat (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  21 lines
  1. 1 print"[147])[191]e[146][218])?e[146][219]%[146][186]e[146][223]%[146][187]e[146][160]%[146][219][201][196]p[146]c[204]@[192])[146]g[165][223]e[146][223]p[146]b[166][146][160] [146]";
  2. 2 print"h1[146][223] [205]de[146]bh1[146][223][176][223][146] [205]d*[198]b[170]q[146][218]h[208][176][146]x%[146][218][169]ge[146][218])[146]hp[211][166][146][219]xp[206][201] p[146]c[169]";
  3. 3 print"[146][192][160][201][146][160]p[146]c[169][146] [160][201][146][192]p[146]b[169][146][192][201][146]5[208][146]b)[146]"chr$(34)"[160]":sys 1024:
  4. 4 rem"5@) ]aBW[168][160]pp[184]mr[175]BmsB x[165][185])@m Pm!VP)\e[187])C[175]e[188] @1[187] [182]R[191]HPb[166][188][187]I P[178]5[191] [190]O[191]Im[176]j[168][181]
  5. 5 [143]"closep0sgn]aB{$7f}pand @9absCusr RsinHI P?int5sin OsinIusrmorjnotcloseb0-sgn]rBpand)sinaernd)Aelog?)ueexp)Besincos)jeW)d+
  6. 6 rem"eX uB)@Nep)h 1[191][179])[175] s[191]%pO0. .[191])hn 4[191])[175] v9[191]5@ %[191]][167]@b[168]ImP[181][ +[191]-@bI90P -abI)
  7. 7 [143]"0PyL@{$60}5#sinnot=P!]@cosbpusr)sin]@rbnot)m]@b4spc(Gfb5t)int(8fnbJ(xr orsin5@=@:b RsinnotIm^PintFG tosin-
  8. 8 rem"[176][187]L@{$60}-@[166]\)pPe)hjL[169][185]-l\)x_i{$60}ml\)y[191]mc\)Um[165]a\%f K[178]qeC @dg)Uhy@gH)@&EgEfEsE@
  9. 9 [143]"ry@gH%g&y@gH%fyM@gH%sy@zgH%ry@g4H)oy@gHstepy@gHspc(g%MgECpBxH.)ge1 0cosQnot(h9@gy9
  10. 10 rem"EghP[183]-@^gmEg D9%;aq0hp[184]U)ee1)@eU2)[191]ma\59eP[190]8JP[186]_5j$2P[190]8S9@gma\HIJP[179]5id2[186]
  11. 11 [143]"Pcos8)Uma:\JPint)sin5?ePcos8ma\\JPusr5;Pcosexp8=@fma\tonotPsgn @Pcospos810ma\HstepPint)U5iPsgncos8ma\JP<
  12. 12 rem"[183]FgPzP[190][173]8P[190]8 @[190]Y)aL[169][185])oFmg\ xA)Caefeg){$60}+e@%@0[188]%SJ0[188]5[191][168]=_@d]@bP[183]S pl[180]bH9S
  13. 13 [143]"@berH9@vbes @d0*)ee1)KqU0)aHPpos5/@ stepinte: \ousr5;=@alog]@fnotPusr)Oclosee@%@0logstepIbpcLjspc(Q
  14. 14 rem"[166]f%fI$pUCL{$60}[174]   H       @      ,@  @ @d{$7f}j)ce[160]5^)Uh 1[191])[175] \s[191])M ([191][179])- ([191])WN
  15. 15 [143]" (sin%{$7f} (9sin%close (sinjthen (sin1rnd (=sinHJPusr .expsinxxfnrnderndWpbspc(logxxfnZ{$7f}e{$7f}pbspc(close* @%logEcosp{$7f}/Pf%rndEexpand
  16. 16 rem"p')h 1[191][179])[175] s[191])MN ([191])- (9[191])E ([191]%[167]W ([191]%X \([191]L.[191]s[[175]qq     @   0{$60}{$60}{$60}o{$60}{$60}{$60}{$60}{$60}{$60}{$60}[191]
  17. 17 [143]"{$60}{$60}{$60}{$60}{$60}{$60}{$60}sin{$60}{$60}{$60}{$60}.m log       @{$7d}     Q{$60}UICKFOR@MAT    @ {$7d}m         {$7d}  d       @
  18. 18 rem"       @     {$7d}mb       @ {$7d}   WR ITTEN I@N 1989 @  {$7d}m   p     {$7d} bBY MARC@
  19. 19 [143]"EL SOMM@ERICK {$7d}am      @  -{$60}{$60}{$60}{$60}_{$60}{$60}{$60}{$60}{$60}{$60}{$60}sin{$60}{$60}{$60}{$60}{$60}{$60}{$60}sin{$60}{$60}{$60}=mqqfreqq     @   DISK@
  20. 20 rem"NAME: mbq      @  ID: +cx[183]@[191]h[181]@L[189]:[163]@=h[183][166]r[191]*[183][160][189]x3[177]b[189]h[183][176]=yJ[183]@[191]h[183]@L[168][190][183]r[191][190][183][166]
  21.