
|



![]() | ![]() |







|
|


Newtype .tape
tapename.sEnd Newtype
description.s
rating.w
Dim tapes.tape(25)
tapes(0)\tapename="Aladdin"
tapes(0)\description="One of Disney's best animated films of recent years"
tapes(0)\rating=5
Function taperating{tapenumber.w}
Shared tapes()End Function
Function Return tapes(tapenumber)\rating
Print taperating{0}
5



![]() |
