View Single Post
Old 11 January 2018, 10:18   #47
peceha
Registered User

peceha's Avatar
 
Join Date: Dec 2017
Location: Poland
Age: 42
Posts: 89
Since the title says: Blitz Basic Questions so I'm sure mine fits in here.

I just decided to give it a try and installed BlitzBasic2 few days ago.
Found some examples to learn faster but there are few (eg. BlitzAndPieces on Aminet) that do not run (I get: TYPE NOT FOUND error)

For example:
Code:
; jamesboyd@all-hail.freeserve.co.uk

; lists open public screens

Dim scr$(500)                     ; just to be on the safe side ;)

*scrs.List=LockPubScreenList_ ()  ; lock all screens

  *mynode.Node=*scrs\lh_Head      ; list o' screens

  count.w=0
  While *mynode\ln_Succ
    count+1
    scr$(count)=Peek$(*mynode\ln_Name) ; screen name
    *mynode=*mynode\ln_Succ
  Wend

UnlockPubScreenList_              ; unlock screens

For a=1 To count                  ; list 'em
  NPrint scr$(a)
Next a

MouseWait
End
How to make it work?
Thanks.
peceha is offline  
 
Page generated in 0.03944 seconds with 11 queries