Pick BASIC
1 program
Added 2026-02-10T15:08:14.081758Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: DataBasic, PickBASIC, Pick/BASIC
Provenance: commit 83b8d4f81d · authored 2026-02-10T16:09:17+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Customer List Display
Provenance: commit 83b8d4f81d · authored 2026-02-10T16:09:17+01:00 · agent claude-code · model sonnet · WebSearch disabled
* Simple Pick BASIC Program
* Display customer information
PROGRAM CUSTOMER.LIST
*
* Open the CUSTOMERS file
OPEN 'CUSTOMERS' TO CUST.FILE ELSE
PRINT 'Cannot open CUSTOMERS file'
STOP
END
*
* Read and display customer records
SELECT CUST.FILE
LOOP
READNEXT CUST.ID ELSE EXIT
READ CUST.REC FROM CUST.FILE, CUST.ID ELSE
PRINT 'Error reading customer ': CUST.ID
CONTINUE
END
*
* Extract fields
CUST.NAME = CUST.REC<1>
CUST.ADDR = CUST.REC<2>
CUST.PHONE = CUST.REC<3>
*
* Display information
PRINT 'Customer ID: ': CUST.ID
PRINT 'Name: ': CUST.NAME
PRINT 'Address: ': CUST.ADDR
PRINT 'Phone: ': CUST.PHONE
PRINT
REPEAT
*
PRINT 'End of customer list'
END