00000000: 39 31 38 30 20 50 52 4F 43 20 53 48 55 46 46 4C |9180 PROC SHUFFL|
00000010: 45 27 49 4E 20 0D 39 31 38 35 20 20 20 46 4F 52 |E'IN .9185 FOR|
00000020: 20 53 54 41 52 54 3A 3D 32 20 54 4F 20 31 31 20 | START:=2 TO 11 |
00000030: 44 4F 0D 39 31 39 30 20 20 20 20 20 4E 41 4D 45 |DO.9190 NAME|
00000040: 24 28 30 29 3A 3D 4E 41 4D 45 24 28 53 54 41 52 |$(0):=NAME$(STAR|
00000050: 54 29 0D 39 31 39 35 20 20 20 20 20 54 45 53 54 |T).9195 TEST|
00000060: 3A 3D 53 54 41 52 54 2D 31 0D 39 32 30 30 20 20 |:=START-1.9200 |
00000070: 20 20 20 57 48 49 4C 45 20 4E 41 4D 45 24 28 54 | WHILE NAME$(T|
00000080: 45 53 54 29 3E 4E 41 4D 45 24 28 30 29 20 44 4F |EST)>NAME$(0) DO|
00000090: 0D 39 32 30 35 20 20 20 20 20 20 20 4E 41 4D 45 |.9205 NAME|
000000A0: 24 28 54 45 53 54 2B 31 29 3A 3D 4E 41 4D 45 24 |$(TEST+1):=NAME$|
000000B0: 28 54 45 53 54 29 0D 39 32 31 30 20 20 20 20 20 |(TEST).9210 |
000000C0: 20 20 54 45 53 54 3A 2D 31 0D 39 32 31 35 20 20 | TEST:-1.9215 |
000000D0: 20 20 20 45 4E 44 57 48 49 4C 45 20 0D 39 32 32 | ENDWHILE .922|
000000E0: 30 20 20 20 20 20 4E 41 4D 45 24 28 54 45 53 54 |0 NAME$(TEST|
000000F0: 2B 31 29 3A 3D 4E 41 4D 45 24 28 30 29 0D 39 32 |+1):=NAME$(0).92|
00000100: 32 35 20 20 20 45 4E 44 46 4F 52 20 53 54 41 52 |25 ENDFOR STAR|
00000110: 54 0D 39 32 33 30 20 45 4E 44 50 52 4F 43 20 53 |T.9230 ENDPROC S|
00000120: 48 55 46 46 4C 45 27 49 4E 0D |HUFFLE'IN. |
9180 PROC SHUFFLE'IN .9185 FOR START:=
2 TO 11 DO.9190 NAME$(0):=NAME$(STAR
T).9195 TEST:=START-1.9200 WHILE
NAME$(TEST)>NAME$(0) DO.9205 NAME
$(TEST+1):=NAME$(TEST).9210 TEST:-
1.9215 ENDWHILE .9220 NAME$(TEST
+1):=NAME$(0).9225 ENDFOR START.9230 E
NDPROC SHUFFLE'IN.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL