Listing of file='ANDNIM.BAS;01' on disk='vmedia/ncc_23-sector.ccvf'
10 PLOT 27,24,12 12 REM 15 REM PROGRAMMED BY REX HAHN FOR CCII USERS GROUP 12/28/80 16 REM 20 REM FOR COLORED NIM ON BLACK BACKGROUND USE FG = 1 TO 7 21 REM WITH BG = FG * 8. FOR BLACK NIM ON COLORED BACKGROUND 22 REM USE BG = 1 TO 7 WITH FG = BG * 8. 23 REM 24 REM 30 FOR FG= 1TO 7 40 BG= FG* 8 50 PLOT 6,FG,12 60 PLOT 3,26,2:PRINT "ANDROID NIM" 100 PLOT 3,30,13:GOSUB 2000 110 PLOT 3,31,17:GOSUB 2010 111 PLOT 3,29,15:GOSUB 2020 112 PLOT 3,33,15:GOSUB 2030 120 PLOT 3,30,10:GOSUB 1000:PLOT 3,64,0:GOSUB 3000 190 PLOT 3,29,15:GOSUB 2040:PLOT 3,64,0:GOSUB 3000 200 PLOT 3,29,15:GOSUB 2050:PLOT 3,64,0:GOSUB 3000 210 PLOT 3,33,15:GOSUB 2060:PLOT 3,64,0:GOSUB 3000 220 PLOT 3,33,15:GOSUB 2070:PLOT 3,64,0:GOSUB 3000 230 FOR X= 1TO 10 240 R= INT (6* RND (1)+ 1) 250 PLOT 3,30,10 260 ON RGOSUB 1000,1010,1020,1030,1040,1050,1060 265 PLOT 3,64,0 270 GOSUB 3000 280 NEXT X 870 GOSUB 3010 880 NEXT FG 890 GOTO 30 900 PLOT 27,11:END 1000 REM FACE CENTER 1001 PLOT 2,254,0,12,192,0,255,10,26,26,26,26 1002 PLOT 2,254,224,239,254,14,255,10,26,26,26,26 1003 PLOT 6,BG,32,6,FG,2,254,120,135,255,6,BG,32,6,FG,10,26,26,26 1004 PLOT 2,254,207,252,255 1005 RETURN 1010 REM FACE UP 1011 PLOT 6,FG,2,254,0,12,192,0,255,10,26,26,26,26 1012 PLOT 2,254,224,227,62,14,255,10,26,26,26,26 1013 PLOT 6,BG,32,6,FG,2,254,30,225,255,6,BG,32,10,26,26,26 1014 PLOT 32,32,6,FG 1015 RETURN 1020 REM FACE DOWN 1021 PLOT 6,FG,2,254,0,12,192,0,255,10,26,26,26,26 1022 PLOT 2,254,224,239,254,14,255,10,26,26,26,26 1023 PLOT 6,BG,32,6,FG,2,254,243,63,255,6,BG,32,10,26,26,26 1024 PLOT 6,FG,2,254,30,225,255 1025 RETURN 1030 REM FACE LEFT/CENTER 1031 PLOT 6,FG,2,254,192,0,12,0,255,10,26,26,26,26 1032 PLOT 2,254,240,238,239,14,255,10,26,26,26,26 1033 PLOT 2,254,143,119,248,255,6,BG,32,10,26,26,26 1034 PLOT 6,FG,2,254,204,255,6,BG,32,6,FG 1035 RETURN 1040 REM FACE LEFT 1041 PLOT 6,FG,2,254,0,192,0,0,255,10,26,26,26,26 1042 PLOT 2,254,0,254,238,14,255,10,26,26,26,26 1043 PLOT 2,254,248,248,255,6,BG,32,32,10,26,26,26 1044 PLOT 32,32,6,FG 1045 RETURN 1050 REM FACE RIGHT/CENTER 1051 PLOT 6,FG,2,254,0,192,0,12,255,10,26,26,26,26 1052 PLOT 2,254,224,254,238,15,255,10,26,26,26,26 1053 PLOT 6,BG,32,6,FG,2,254,143,119,248,255,10,26,26,26 1054 PLOT 6,BG,32,6,FG,2,254,204,255 1055 RETURN 1060 REM FACE RIGHT 1061 PLOT 6,FG,2,254,0,0,12,0,255,10,26,26,26,26 1062 PLOT 2,254,224,238,239,0,255,10,26,26,26,26 1063 PLOT 6,BG,32,32,6,FG,2,254,143,143,255,10,26,26,26 1064 PLOT 6,BG,32,32,6,FG 1065 RETURN 2000 REM BODY 2001 PLOT 6,FG,2,254,51,255,32,32,2,254,51,255,10,26,26,26,26 2003 PLOT 6,FG,2,254,238,255,6,BG,32,32,6,FG,2,254,238,255 2004 PLOT 10,26,26,26,6,BG,32,32,10,26,26,32,32,6,FG 2005 RETURN 2010 REM LEGS 2011 PLOT 6,FG,2,254,31,241,255,10,26,26 2012 PLOT 2,254,15,240,255,10,26,26,26 2013 PLOT 2,254,204,15,240,204,255,10,26,26,26,26 2014 PLOT 2,254,17,1,16,17,255 2015 RETURN 2020 REM LEFT ARM NORMAL 2021 PLOT 6,FG,2,254,248,7,255,10,26,26 2022 PLOT 2,254,243,12,255,10,26,26 2023 PLOT 2,254,16,239,255 2024 RETURN 2030 REM RIGHT ARM NORMAL 2031 PLOT 6,FG,2,254,112,143,255,10,26,26 2032 PLOT 2,254,192,63,255,10,26,26 2033 PLOT 2,254,254,1,255 2034 RETURN 2040 REM LEFT ARM 1 2041 PLOT 6,FG,2,254,240,15,255,10,26,26 2042 PLOT 2,254,240,15,255,10,26,26 2043 PLOT 2,254,254,1,255 2044 RETURN 2050 REM LEFT ARM 2 2051 PLOT 6,FG,2,254,0,255,6,BG,32,10,26,26 2052 PLOT 6,FG,2,254,192,63,255,10,26,26 2053 PLOT 2,254,254,1,255 2054 RETURN 2060 REM RIGHT ARM 1 2061 PLOT 6,FG,2,254,240,15,255,10,26,26 2062 PLOT 2,254,240,15,255,10,26,26 2063 PLOT 2,254,16,239,255 2064 RETURN 2070 REM RIGHT ARM 2 2071 PLOT 6,BG,32,6,FG,2,254,0,255,10,26,26 2072 PLOT 2,254,243,12,255,10,26,26 2073 PLOT 2,254,16,239,255 2074 RETURN 3000 FOR I= 1 TO 100:NEXT I:RETURN 3010 FOR I= 1TO 1000:NEXT I:RETURN