home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / nz18.dms / nz18.adf / AmigaBASIC / Bently next >
Text File  |  1993-12-03  |  3KB  |  61 lines
  1.  SCREEN 1,320,240,3,1
  2.  WINDOW 20,"",(0,0)-(300,200),8,1
  3.  COLOR 1,2:CLS
  4.  PALETTE 0,0,0,0        'BLACK
  5.  PALETTE 1,1,1,1        'WHITE
  6.  PALETTE 2,.4,.6,1      'BLUE
  7.  PALETTE 3,.73,.73,.73  'SILVER
  8.  PALETTE 4,.6,.6,.6     'GREY
  9.  
  10.  WHEELS:
  11.   FOR F=73 TO 204 STEP 131
  12.    CIRCLE (F,150),2,0,,,.9:PAINT (F,150),0
  13.    CIRCLE (F,150),7,3,,,.9:CIRCLE (F,150),2,3,,,.9:PAINT (F,145),3
  14.    CIRCLE (F,150),7,1,,,.9:CIRCLE (F,150),13,1,,,.9:PAINT (F,140),1
  15.    CIRCLE (F,150),16,0,0,3.14,.9:NEXT
  16.  GAURDS:
  17.   COLOR 0,2:LINE (89,150)-(125,153):LINE (125,153)-(187,153)
  18.   LINE (188,153)-(188,150):LINE (220,150)-(220,153):LINE (220,153)-(248,153)
  19.   CIRCLE (73,145),18,0,1,3.14,.9:LINE (55,145)-(55,150):LINE (55,150)-(57,150)
  20.   C=0:GOSUB R1:PAINT (225,150),0
  21.  BODY:
  22.   C=4:GOSUB R1:COLOR 4,2:CIRCLE (73,145),18,4,1,1.57,.9
  23.   LINE (73,129)-(73,115):LINE (73,114)-(126,114)
  24.   LINE (126,114)-(133,94):LINE (133,94)-(136,94)
  25.   LINE (136,94)-(129,114):LINE (129,114)-(174,114)
  26.   CIRCLE (179,114),5,4,3.14,4.71,.9:LINE (179,119)-(211,119)
  27.   LINE (211,119)-(208,114):LINE (208,114)-(218,115)
  28.   CIRCLE (218,120),6,4,.5,1.4,.9:LINE (224,118)-(248,153):PAINT (160,130),4
  29.  ROOF:
  30.   COLOR 0,2:LINE (133,94)-(134,91):LINE (134,91)-(190,91)
  31.   LINE (190,91)-(196,94):LINE (196,94)-(211,119) 
  32.   CIRCLE (179,114),5,0,3.14,4.71,.9:LINE (179,119)-(211,119)
  33.   LINE (174,114)-(174,94):LINE (174,94)-(133,94):PAINT (200,110),0
  34.  DETAILS:
  35.   LINE (211,119)-(248,153):LINE (68,132)-(68,118):LINE (73,129)-(73,114)
  36.   CIRCLE (73,118),5,0,1.57,3.14,.9:PAINT (70,125),0
  37.   LINE (73,120)-(119,120):CIRCLE (119,114),6,0,4.71,0,.9   
  38.   LINE (73,117)-(124,117):LINE (174,114)-(174,137)
  39.   CIRCLE (166,137),8,0,4.71,0,.9:LINE (166,145)-(123,145)
  40.   CIRCLE (123,142),3,0,2.7,4.71:LINE (129,114)-(120,140)
  41.   CIRCLE (52,146),4,1,1.57,4.71,.9:LINE (52,150)-(52,142),1
  42.   PAINT (50,146),1
  43.   FOR F=80 TO 105 STEP 3:LINE (F,125)-(F+1,135),0,BF:NEXT 
  44.   LINE (230,125)-(244,145):LINE (230,125)-(235,122):LINE (244,145)-(249,142)
  45.   LINE (235,122)-(249,142):PAINT (240,132),0
  46.   GOTO FINISH
  47.      R1:
  48.       CIRCLE (125,94),62,C,4.3,4.71,.9:LINE (83,132)-(100,145),C
  49.       CIRCLE (204,145),18,C,1,3.14,.9:LINE (125,150)-(186,150),C
  50.       LINE (186,150)-(186,145),C:CIRCLE (248,133),22,C,4.2,4.71,.9
  51.       LINE (214,132)-(236,149),C:RETURN
  52.  FINISH:
  53.   LOCATE 2,15:COLOR 0,2:PRINT "'BENTLY'"
  54.   LOCATE 5,9:PRINT "By Roger Woods"
  55.   LOCATE 6,12:PRINT "R.D.1 Pahiatua"
  56.   LOCATE 7,12:PRINT "PH. (0650) 23-835" 
  57.  START:
  58.   LOCATE 24,6:COLOR 1,2:PRINT "Press Any Key To Continue..."
  59.   IF INKEY$<>"" THEN SYSTEM
  60.   GOTO START   
  61.