RosettaCodeData/Task/Fibonacci-sequence/Applesoft-BASIC/fibonacci-sequence-1.basic

 0  DEF  FN F(N) =  INT ((((1 +  SQR (5)) / 2) ^ N - ((1 -  SQR (5)) / 2) ^ N) /  SQR (5) + 0.5)
 1 S =  - 38: FOR I = S TO  - S: PRINT  MID$ (" ",(I = S) + 1) FN F(I);: NEXT
	`0 DEF FN F(N) = INT ((((1 + SQR (5)) / 2) ^ N - ((1 - SQR (5)) / 2) ^ N) / SQR (5) + 0.5)`
	`1 S = - 38: FOR I = S TO - S: PRINT MID$ (" ",(I = S) + 1) FN F(I);: NEXT`