1 CLEAR200,&HBFFF:DEFINTA-Z:A=&HC000:DEFUSR=A:FORI=0TO87:POKEA+256+I,7.5*COS(.0714*I)AND15:PRINT87-I:NEXT:POKEA+432,0::
2 FORI=0TO3:READA$:FORJ=1TOLEN(A$)STEP2:POKEA,VAL("&H"+MID$(A$,J,2)):A=A+1:NEXTJ,I:U=USR(1):DATA 23237EFE02D0473ADFF307
3 DATA 070787CB18CB1FA8F0A80F0F0FF53A07003CF53A06003CF521C0C016C00602F15E231C28031218F810F5F132DFF3F3D3983E80D39B3E0432F2FFD3983E93D39B219AFD119CC0060A4E1AEB71
4 DATA 12231310F7FBC9F33E01D39A3E8FD399DB980F30293E02D3983E8FD3981100C1DB98E62020FADB99E62028FA1AD39A3E92D39B1C7BFEB120E71D1A32F1FFAFD3983E8FD398C35EC02143C3A6
5 DATA C000FB2101C11100C10157001AEDB0122100C11158C1015800EDB018E167777DFF3A3E454961656E728488969AFF:LIST:1992:=KOMEYA=: