[impersonalis]

Введите в param$ какие-то данные, разделённые ";" - после прокрутки цикла массив temp$ будет заполнен вашими данными:

param$=Input("")
;========
Const max_size%=40
Local temp$[max_size%]
Local c=1
For i=1 To Len(param$)
	ip=Instr(param$,";",i)
	If ip=0 ip=Len(param$)+1
	temp[c]=Mid$(param$,i,ip-i)
	i=ip
	c=c+1
Next
c=c-1
;=========
For i=1 To max_size%
	If temp[i]="" Exit
	Print temp[i]
Next
WaitKey()
End

введите

12;ABS;0.0.0;QQW

на выходе получите

12
ABS
0.0.0
QQW