home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / asm / tbsource / atlights.s next >
Text File  |  1993-12-21  |  175KB  |  9,213 lines
  1. ***********************************************
  2. *                                             *
  3. *              (C)opyright 1991               *
  4. *                                             *
  5. *             by  Tomi Blinnikka              *
  6. *                                             *
  7. *      Don't try to understand the code       *
  8. *                                             *
  9. ***********************************************
  10.  
  11. ;Here are the iff.library offsets
  12.  
  13. OpenIFF:    equ    -30    ; (filename)            (A0)
  14. CloseIFF:    equ    -36    ; (ifffile)            (A1)
  15. FindChunk:    equ    -42    ; (ifffile,chunkname)        (A1,D0)
  16. GetBMHD:    equ    -48    ; (ifffile)            (A1)
  17. GetColorTab:    equ    -54    ; (ifffile,colortable)        (A1/A0)
  18. DecodePic:    equ    -60    ; (ifffile,bitmap)        (A1/A0)
  19. SaveBitMap:    equ    -66    ; (name,bmap,ctab,crmd)        (A0-A2,D0)
  20. SaveClip:    equ    -72    ; (name,bmap,ctab,crmd,x,y,w,h)    (A0-A2,D0-D4)
  21. IffError:    equ    -78    ; ()                ()
  22. GetViewModes:    equ    -84    ; (ifffile)            (A1)
  23.  
  24. ;*************** E R R O R - C O D E S ************************************
  25.  
  26. IFF_BADTASK:        equ    -1    ; IffError() called by wrong task
  27.  
  28. IFF_CANTOPENFILE:    equ    16    ; File not found
  29. IFF_READERROR:        equ    17    ; Error reading file
  30. IFF_NOMEM:        equ    18    ; Not enough memory for IFF file
  31. IFF_NOTIFF:        equ    19    ; File is not an IFF file
  32. IFF_WRITEERROR:        equ    20    ; Error writing file
  33.  
  34. IFF_NOILBM:        equ    24    ; IFF file is not of type ILBM
  35. IFF_NOBMHD:        equ    25    ; BMHD chunk not found
  36. IFF_NOBODY:        equ    26    ; BODY chunk not found
  37. IFF_TOOMANYPLANES:    equ    27    ; Picture has more planes than BitMap
  38. IFF_UNKNOWNCOMPRESSION:    equ    28    ; Unknown compression type
  39.  
  40. ;Here are the req.library offsets
  41.  
  42.  
  43. Center = -$001e
  44. SetSize = -$0024
  45. SetLocation = -$002a
  46. ReadLocation = -$0030
  47. ReqFormat = -$0036
  48. Dispatch = -$003c
  49. FileRequester = -$0054
  50. ColorRequester = -$005a
  51. DrawBox = -$0060
  52. MakeButton = -$0066
  53. MakeScrollbar = -$006c
  54. PurgeFiles = -$0072
  55. GetFontHeightAndWidth = -$0078
  56. MakeGadget = -$007e
  57. MakeString = -$0084
  58. MakeProp = -$008a
  59. LinkGadget = -$0090
  60. LinkStringGadget = -$0096
  61. LinkPropGadget = -$009c
  62. GetString = -$00a2
  63. RealTimeScroll = -$00a8
  64. TextRequest = -$00ae
  65. GetLong = -$00b4
  66. RawKeyToAscii = -$00ba
  67. ExtendedColorRequester = -$00c0
  68. NewGetString = -$00c6    
  69.  
  70. ;Here lie the arp-offsets, thank God for them
  71.  
  72. ShowTitle = -$011a
  73. Puts = -$00F0
  74. ReadLine = -$00F6
  75. GADS = -$00FC
  76. Atol = -$0102
  77. EscapeString = -$0108
  78. CheckAbort = -$010E
  79. CheckBreak = -$0114
  80. Getenv = -$011A
  81. Setenv = -$0120
  82. FileRequest = -$0126
  83. CloseWindowSafely = -$012C
  84. CreatePort = -$0132
  85. DeletePort = -$0138
  86. SendPacket = -$013E
  87. InitStdPacket = -$0144
  88. PathName = -$014A
  89. Assign = -$0150
  90. DosAllocMem = -$0156
  91. DosFreeMem = -$015C
  92. BtoCStr = -$0162
  93. CtoBStr = -$0168
  94. GetDevInfo = -$016E
  95. FreeTaskResList    = -$0174
  96. ArpExit = -$017A
  97. ArpAlloc = -$0180
  98. ArpAllocMem = -$0186
  99. ArpOpen = -$018C
  100. ArpDupLock = -$0192
  101. ArpLock = -$0198
  102. RListAlloc = -$019E
  103. FindCLI = -$01A4
  104. QSort = -$01AA
  105. PatternMatch = -$01B0
  106. FindFirst = -$01B6
  107. FindNext = -$01BC
  108. FreeAnchorChain = -$01C2
  109. CompareLock = -$01C8
  110. FindTaskResList = -$01CE
  111. CreateTaskResList = -$01D4
  112. FreeResList = -$01DA
  113. FreeTrackedItem = -$01E0
  114. GetTracker = -$01E6
  115. GetAccess = -$01EC
  116. FreeAccess = -$01F2
  117. FreeDAList = -$01F8
  118. AddDANode = -$01FE
  119. AddDADevs = -$0204
  120. Strcmp = -$020A
  121. Strncmp = -$0210
  122. Toupper = -$0216
  123. SyncRun = -$021C
  124. ASyncRun = -$0222
  125. SpawnShell = -$0222
  126. LoadPrg = -$0228
  127. PreParse = -$022E
  128. StamptoStr = -$0234
  129. StrtoStamp = -$023A
  130. ObtainResidentPrg = -$0240
  131. AddResidentPrg = -$0246
  132. RemResidentPrg = -$024C
  133. UnLoadPrg = -$0252
  134. LMult = -$0258
  135. LDiv = -$025E
  136. LMod = -$0264
  137. CheckSumPrg = -$026A
  138. TackOn = -$0270
  139. BaseName = -$0276
  140. ReleaseResidentPrg = -$027C
  141. SPrintf = -$0282
  142. GetKeywordIndex = -$0288
  143. ArpOpenLibrary = -$028E
  144. ArpAllocFreq = -$0294
  145.  
  146. ;Here lie the normal Amiga lib-offsets, rest in peace
  147.  
  148. Disable = -$0078
  149. Enable = -$007e
  150. InitGels = -$0078
  151. InitMasks = -$007e
  152. AddVSprite = -$0066
  153. RemVSprite = -$008a
  154. SortGList = -$0096
  155. DrawGList = -$0072
  156. DrawEllipse = -$00b4
  157. AreaEllipse = -$00ba
  158. AllocRaster = -$01ec
  159. FreeRaster = -$01f2
  160. InitTmpRas = -$01d4
  161. InitArea = -$011a
  162. LoadRGB4 = -$00c0
  163. SetRGB4CM = -$0276
  164. GetRGB4 = -$0245
  165. CBump = -$016e
  166. CMove = -$0174
  167. CWait = -$017a
  168. UCopperListInit = -$0252
  169. FreeVPortCopLists = -$021c
  170. OpenWorkBench = -$00d2
  171. DisplayAlert = -$005a
  172. FindResident = -$0060
  173. FindName = -$0114
  174. FindTask = -$0126
  175. RawDoFmt = -$020a
  176. Forbid = -$0084
  177. Permit = -$008a
  178. Debug = -$0072
  179. Supervisor = -$001e
  180. Exception = -$0042
  181. Wait = -$013e
  182. DoIO = -$01c8
  183. SendIO = -$01ce
  184. CheckIO = -$01d4
  185. WaitIO = -$01da
  186. AbortIO = -$01e0
  187. AddDevice = -$01b0
  188. RemDevice = -$01b6
  189. OpenDevice = -$01bc
  190. CloseDevice = -$01c2
  191. OpenLibrary = -$0228
  192. CloseLibrary = -$019e
  193. Text = -$003c
  194. SetRGB4 = -$0120
  195. SetAPen = -$0156
  196. SetBPen = -$015c
  197. ScrollRaster = -$018c
  198. Move = -$00f0
  199. Draw = -$00f6
  200. Flood = -$014a
  201. RectFill = -$0132
  202. OpenScreen = -$00c6
  203. OpenWindow = -$00cc
  204. CloseWindow = -$0048
  205. CloseScreen = -$0042
  206. InPut = -$0036
  207. OutPut = -$003c
  208. Delay = -$00c6
  209. InitBitMap = -$0186
  210. ClipBit = -$0228
  211. AllocMem = -$00c6
  212. FreeMem = -$00d2
  213. CopyMem = -$0270
  214. CopyMemQuick = -$0276
  215. AllocSignal = -$014a
  216. FreeSignal = -$0150
  217. AddIntServer = -$00a8
  218. RemIntServer = -$00ae
  219. WaitTOF = -$010e
  220. VBeamPos = -$0180
  221. SetRast = -$00ea
  222. AddGadget = -$002a
  223. AddGList = -$01b6
  224. RemoveGadget = -$00e4
  225. SetFont = -$0042
  226. OpenFont = -$0048
  227. CloseFont = -$004e
  228. ClearScreen = -$0030
  229. ClearMenuStrip = -$0036
  230. ClearPointer = -$003c
  231. SetPrefs = -$0144
  232. GetPrefs = -$0084
  233. DisplayBeep = -$0060
  234. DrawBorder = -$006c
  235. ItemAddress = -$0090
  236. ModifyIDCMP = -$0096
  237. OffGadget = -$00ae
  238. OffMenu = -$00b4
  239. OnGadget = -$00ba
  240. OnMenu = -$00c0
  241. PrintIText = -$00d8
  242. RefreshGadgets = -$00de
  243. RefreshGList = -$01b0
  244. RemakeDisplay = -$0180
  245. RethinkDisplay = -$0186
  246. SetMenuStrip = -$0108
  247. SetPointer = -$010e
  248. ActivateGadget = -$01ce
  249. ActivateWindow = -$01c2
  250. AddPort = -$0162
  251. RemPort = -$0168
  252. PutMsg = -$016e
  253. GetMsg = -$0174
  254. ReplyMsg = -$017a
  255. WaitPort = -$0180
  256. FindPort = -$0186
  257. Open = -$001e
  258. Close = -$0024
  259. Read = -$002a
  260. Write = -$0030
  261. Input = -$0036
  262. Output = -$003c
  263. Seek = -$0042
  264. DeleteFile = -$0048
  265. Rename = -$004e
  266. CreateDir = -$0078
  267. CurrentDir = -$007e
  268. ParentDir = -$00d2
  269. OpenDiskFont = -$001e
  270. AvailFonts = -$0024
  271.     
  272. ;--------------------------------------------------
  273. ;IDCMP Classes
  274.  
  275. SIZEVERIFY         EQU $00000001
  276. NEWSIZE         EQU $00000002
  277. REFRESHWINDOW        EQU $00000004
  278. MOUSEBUTTONS        EQU $00000008
  279. MOUSEMOVE        EQU $00000010
  280. GADGETDOWN        EQU $00000020
  281. GADGETUP        EQU $00000040
  282. REQSET            EQU $00000080
  283. MENUPICK        EQU $00000100
  284. CLOSEWINDOW        EQU $00000200
  285. RAWKEY            EQU $00000400
  286. REQVERIFY        EQU $00000800
  287. REQCLEAR        EQU $00001000
  288. MENUVERIFY        EQU $00002000
  289. NEWPREFS        EQU $00004000
  290. DISKINSERTED        EQU $00008000
  291. DISKREMOVED        EQU $00010000
  292. WBENCHMESSAGE        EQU $00020000
  293. ACTIVEWINDOW        EQU $00040000
  294. INACTIVEWINDOW        EQU $00080000
  295. DELTAMOVE        EQU $00100000
  296. VANILLAKEY        EQU $00200000
  297. INTUITICKS        EQU $00400000
  298.  
  299. ;--------------------------------------------------        
  300.     
  301. ; Other Stuff
  302.  
  303. INTB_TBE        EQU 0
  304. INTB_DSKBLK        EQU 1
  305. INTB_SOFTINT        EQU 2
  306. INTB_PORTS        EQU 3
  307. INTB_COPER        EQU 4
  308. INTB_VERTB        EQU 5
  309. INTB_BLIT        EQU 6
  310. INTB_AUD0        EQU 7
  311. INTB_AUD1        EQU 8
  312. INTB_AUD2        EQU 9
  313. INTB_AUD3        EQU 10
  314. INTB_RBF        EQU 11
  315. INTB_DSKSYNC        EQU 12
  316. INTB_EXTER        EQU 13
  317. INTB_INTEN        EQU 14
  318. INTB_SETCLR        EQU 15
  319. MODE_OLDFILE        EQU 1005
  320. MODE_NEWFILE        EQU 1006
  321. MEMF_PUBLIC        EQU 1
  322. MEMF_CHIP        EQU 2
  323. MEMF_FAST        EQU 4
  324. MEMF_CLEAR        EQU 65536
  325. MEMF_LARGEST        EQU 131072
  326. SHARED_LOCK        EQU -2
  327. ACCESS_READ        EQU -2
  328. EXCLUSIVE_LOCK        EQU -1
  329. ACCESS_WRITE        EQU -1
  330. DRAFT            EQU $000
  331. NLQ            EQU $100
  332. FANFOLD            EQU $00
  333. SINGLE            EQU $80    
  334. NOITEM            EQU $003F
  335. NOMENU            EQU $001F
  336. NOSUB            EQU $001F
  337. MENUNULL        EQU $FFFF
  338. MAXPOT            EQU $FFFF
  339. wd_WINDOWSIZING        EQU $0001
  340. wd_WINDOWDRAG        EQU $0002
  341. wd_WINDOWDEPTH        EQU $0004
  342. wd_WINDOWCLOSE        EQU $0008
  343. wd_SIZEBRIGHT        EQU $0010
  344. wd_SIZEBBOTTOM        EQU $0020
  345. wd_SMART_REFRESH     EQU $0000
  346. wd_SIMPLE_REFRESH    EQU $0040
  347. wd_SUPER_REFRESH    EQU $0080
  348. wd_OTHER_REFRESH    EQU $00C0
  349. wd_BACKDROP        EQU $0100
  350. wd_REPORTMOUSE        EQU $0200
  351. wd_GIMMEZEROZERO    EQU $0400
  352. wd_BORDERLESS        EQU $0800
  353. wd_ACTIVATE        EQU $1000
  354. wd_WINDOWACTIVE        EQU $2000
  355. wd_INREQUEST        EQU $4000
  356. wd_MENUSTATE        EQU $8000
  357. DAListSize        EQU 20480
  358. FileNameBufSize        EQU 20480
  359. FIB            EQU 260
  360. RECOVERY_ALERT        EQU $00000000
  361. DEADEND_ALERT        EQU $80000000
  362. DEVICES            EQU %00000001
  363. DISKONLY        EQU %00000010
  364. VOLUMES            EQU %00000100
  365. DIRS            EQU %00001000
  366. UNIT_MICROHZ        EQU 0
  367. UNIT_VBLANK        EQU 1
  368. NT_UNKNOWN        EQU 0
  369. NT_TASK            EQU 1
  370. NT_INTERRUPT        EQU 2
  371. NT_DEVICE        EQU 3
  372. NT_MSGPORT        EQU 4
  373. NT_MESSAGE        EQU 5
  374. NT_FREEMSG        EQU 6
  375. NT_REPLYMSG        EQU 7
  376. NT_RESOURCE        EQU 8
  377. NT_LIBRARY        EQU 9
  378. NT_MEMORY        EQU 10
  379. NT_SOFTINT        EQU 11        ;Exec Private
  380. NT_FONT            EQU 12
  381. NT_PROCESS        EQU 13
  382. NT_SEMAPHORE        EQU 14
  383. NT_SIGNALSEM        EQU 15
  384. NT_BOOTNODE        EQU 16
  385. PA_SIGNAL        EQU 0
  386. CMD_INVALID        EQU 0 
  387. CMD_RESET        EQU 1
  388. CMD_READ        EQU 2
  389. CMD_WRITE        EQU 3
  390. CMD_UPDATE        EQU 4
  391. CMD_CLEAR        EQU 5
  392. CMD_STOP        EQU 6
  393. CMD_START        EQU 7
  394. CMD_FLUSH        EQU 8
  395. CMD_NONSTD        EQU 9
  396. TR_ADDREQUEST        EQU 9
  397. TR_GETSYSTIME        EQU 10
  398. TR_SETSYSTIME        EQU 11
  399.  
  400. ;Req.library stuff
  401.  
  402. FRQSHOWINFOB        EQU 0
  403. FRQEXTSELECTB        EQU 1
  404. FRQCACHINGB        EQU 2
  405. FRQGETFONTS        EQU 3
  406. FRQINFOGADGETB        EQU 4
  407. FRQHIDEWILDSB        EQU 5
  408. FRQABSOLUTEXYB        EQU 6
  409. FRQCACHEPURGEB        EQU 7
  410. FRQNOHALFCACHEB        EQU 8
  411. FRQNOSORTB        EQU 9
  412. FRQNODRAGB        EQU 10
  413. FRQSAVINGB        EQU 11
  414. FRQLOADINGB        EQU 12
  415. FRQDIRONLYB        EQU 13
  416.  
  417. ;Nothing to do with those ^^^
  418.  
  419. VecTab_Size        EQU 10240
  420. TmpRas_Size        EQU ((640+15)/16*2)*256
  421.  
  422. ;--------------------------------------------------        
  423.  
  424.         section    TL,code
  425.  
  426. Start:        move.l    $4,a6
  427.         lea.l    reqname(pc),a1
  428.         moveq.l    #2,d0
  429.         jsr    OpenLibrary(a6)
  430.         tst.l    d0
  431.         bne    Start1
  432.         lea.l    dosname(pc),a1
  433.         moveq.l    #0,d0
  434.         jsr    OpenLibrary(a6)
  435.         tst.l    d0
  436.         beq    NoReq_ShutDown
  437.         move.l    d0,a6
  438.         jsr    Output(a6)
  439.         move.l    d0,d4
  440.         beq    NoReq_ShutDown
  441.         lea.l    NoREQText1(pc),a0
  442.         move.l    a0,d2
  443.         move.l    #21,d3
  444.         move.l    d4,d1
  445.         jsr    Write(a6)
  446.         lea.l    NoREQText2(pc),a0
  447.         move.l    a0,d2
  448.         move.l    #7,d3
  449.         move.l    d4,d1
  450.         jsr    Write(a6)
  451.         move.l  a6,a1
  452.         move.l    $4,a6
  453.         jsr    CloseLibrary(a6)
  454. NoReq_ShutDown:    move.l    #8,d0
  455.         rts
  456.  
  457. Start1:        move.l    d0,reqbase
  458.         move.l    d0,a0
  459.         move.l    $26(a0),dosbase
  460.         move.l    $2a(a0),intbase
  461.         move.l    $2e(a0),gfxbase
  462.  
  463.         move.l    dosbase(pc),a6
  464.         jsr    OutPut(a6)
  465.         move.l    d0,OutFile
  466.  
  467. ;Get MaxDisplayColumns
  468.  
  469. Start1.1:    move.l    intbase(pc),a1
  470.         move.l    $3c(a1),a0
  471.     
  472. ;Get memory for IORequest for timer.device
  473.  
  474.         move.l    $4,a6
  475.         move.l    #$28,d0
  476.         move.l    #MEMF_CLEAR+MEMF_PUBLIC,d1
  477.         jsr    AllocMem(a6)
  478.         tst.l    d0
  479.         beq    ShutDown
  480.         move.l    d0,TimeReq
  481.  
  482. ;Open timer.device
  483.  
  484.         lea.l    timename(pc),a0
  485.         move.l    #UNIT_MICROHZ,d0
  486.         move.l    TimeReq(pc),a1
  487.         move.l    #0,d1
  488.         jsr    OpenDevice(a6)
  489.         tst.l    d0
  490.         bne    ShutDown
  491.  
  492. ;Create Port
  493.  
  494.         move.l    $4,a6
  495.         move.l    #-1,d0
  496.         jsr    AllocSignal(a6)
  497.         cmp.l    #-1,d0
  498.         beq    ShutDown
  499.         move.b    d0,TSigBit
  500.  
  501. ;Get memory for Timers replyport
  502.  
  503.         move.l    #$22,d0
  504.         move.l    #MEMF_CLEAR+MEMF_PUBLIC,d1
  505.         jsr    AllocMem(a6)
  506.         tst.l    d0
  507.         beq    ShutDown
  508.         move.l    d0,TPort
  509.  
  510. ;Add Port
  511.  
  512.         move.l    TPort,a0
  513.         lea.l    TimePName,a1
  514.         move.l    a1,$a(a0)        ;Name
  515.         move.b    #$00,$9(a0)        ;Priority = 0
  516.         move.b    #NT_MSGPORT,$8(a0)    ;Type NT_MSGPORT
  517.         
  518.         move.b    #PA_SIGNAL,$e(a0)
  519.         move.b    TSigBit(pc),$f(a0)
  520.         move.l    OurTask(pc),$10(a0)
  521.         
  522.         move.l    TPort(pc),a1
  523.         jsr    AddPort(a6)
  524.  
  525. ;Allocate other needed memory space
  526.  
  527.         move.l    #VecTab_Size,d0
  528.         move.l    #MEMF_CHIP+MEMF_CLEAR,d1
  529.         jsr    AllocMem(a6)
  530.         tst.l    d0
  531.         beq    ShowGuru
  532.         move.l    d0,VecTab1
  533.  
  534.         move.l    #TmpRas_Size,d0
  535.         move.l    #MEMF_CHIP+MEMF_CLEAR,d1
  536.         jsr    AllocMem(a6)
  537.         tst.l    d0
  538.         beq    ShowGuru
  539.         move.l    d0,TmpRas
  540.  
  541. ;Open Screen
  542.         move.l    intbase(pc),a6
  543.         lea.l    NewScreen1(pc),a0
  544.         jsr    OpenScreen(a6)
  545.         tst.l    d0
  546.         bne    OpenScreen1
  547.         lea.l    NoScreen1(pc),a0
  548.         jmp    ErrorPrint
  549.  
  550. OpenScreen1:    move.l    d0,Screen1
  551.         move.l    d0,SToW1
  552.         move.l    d0,SToW2
  553.         move.l    d0,SToW3
  554.         move.l    d0,SToW4
  555.         move.l    d0,SToW7
  556.         move.l    d0,SToW8
  557.         move.l    d0,TLIntScreen
  558. ;Get ViewPort
  559.         move.l    Screen1(pc),a0
  560.         add.l    #$2c,a0
  561.         move.l    a0,ViewPort
  562.  
  563. ;Open Window2
  564.  
  565.         move.l    intbase(pc),a6
  566.         lea.l    NewWindow2(pc),a0
  567.         jsr    OpenWindow(a6)
  568.         tst.l    d0
  569.         bne    Window2.1
  570.         lea.l    NoWin2(pc),a0
  571.         jmp    ErrorPrint
  572. Window2.1:    move.l    d0,Window2
  573.  
  574. ;Get RastPort2
  575.         move.l    d0,a0
  576.         move.l    $32(a0),RastPort2
  577.  
  578. ;move requesters to Window2
  579.  
  580.         move.l    $4,a6
  581.         move.l    #$00,a1
  582.         jsr    FindTask(a6)
  583.         move.l    d0,OurTask
  584.         move.l    d0,a0
  585.         move.l    $b8(a0),OldTaskWinPtr
  586.         move.l    Window2(pc),$b8(a0)
  587.         
  588. ;Set the menus for Window2
  589.  
  590.         move.l    intbase(pc),a6
  591.         move.l    Window2(pc),a0
  592.         lea.l    Menu1(pc),a1
  593.         jsr    SetMenuStrip(a6)
  594.         tst.l    d0
  595.         beq    ShutDown
  596.  
  597. MainLoop:    jmp    Window2IDCMP
  598.     
  599. ;Open Window1
  600.  
  601. New:        move.l    intbase(pc),a6
  602.         move.l    Screen1(pc),a0
  603.         move.l    #$00,d0
  604.         jsr    ShowTitle(a6)
  605.         move.l    $4,a6
  606.         move.l    TimeReq(pc),a1
  607.         jsr    DoIO(a6)
  608.         move.l    Window2(pc),a0
  609.         move.l    #$0,d0
  610.         jsr    MenusOff
  611.         move.l    intbase(pc),a6
  612.         lea.l    NewWindow1(pc),a0
  613.         jsr    OpenWindow(a6)
  614.         tst.l    d0
  615.         bne    New1
  616.         lea.l    NoWin1(pc),a0
  617.         jmp    ErrorPrint
  618. New1:        move.l    d0,Window1
  619.  
  620. ;Get RastPort1
  621.         move.l    d0,a0
  622.         move.l    $32(a0),RastPort1
  623.  
  624.         move.l    gfxbase(pc),a6
  625.         move.l    #640,d0
  626.         move.l    #256,d1
  627.         jsr    AllocRaster(a6)
  628.         tst.l    d0
  629.         bne    GetRastP0.1
  630.         jmp    ShowGuru
  631. GetRastP0.1:    move.l    d0,PlanePtr
  632.  
  633.         move.l    gfxbase(pc),a6
  634.         lea.l    NewAreaInfo1(pc),a0
  635.         move.l    VecTab1(pc),a1
  636.         move.l    #2048,d0
  637.         jsr    InitArea(a6)
  638.         tst.l    d0
  639.         bne    GetRastP1
  640.         lea.l    NoAreaInit(pc),a0
  641.         jmp    ErrorPrint
  642.  
  643. GetRastP1:    move.l    PlanePtr(pc),a1
  644.         lea.l    NewTmpRas1(pc),a0
  645.         move.l    #TmpRas_Size,d0
  646.         jsr    InitTmpRas(a6)
  647.         move.l    RastPort1(pc),a0
  648.         lea.l    NewTmpRas1(pc),a1
  649.         lea.l    NewAreaInfo1(pc),a2    
  650.         move.l    a1,$c(a0)
  651.         move.l    a2,$10(a0)
  652.  
  653. ;Open Variable Editor window
  654.     
  655.         move.l    intbase(pc),a6
  656.         lea.l    NewWindow3(pc),a0
  657.         jsr    OpenWindow(a6)
  658.         tst.l    d0
  659.         bne    VE1
  660.         lea.l    NoWin3(pc),a0
  661.         jmp    ErrorPrint
  662. VE1:        move.l    d0,Window3
  663.  
  664.         move.l    intbase(pc),a6
  665.         move.l    Window3(pc),a0
  666.         lea.l    Menu9(pc),a1
  667.         jsr    SetMenuStrip(a6)
  668.         move.l    Window3(pc),a0
  669.         move.l    #$0,d0
  670.         jsr    MenusOff
  671.  
  672. ;Get RastPort3
  673.         move.l    Window3,a0
  674.         move.l    $32(a0),RastPort3
  675.  
  676. ;        move.l    intbase(pc),a6
  677. ;        lea.l    MapTxt1(pc),a1
  678. ;        move.l    #$00,d0
  679. ;        move.l    d0,d1
  680. ;        move    RastPort3(pc),a0
  681. ;        jsr    PrintIText(a6)
  682.  
  683.         move.l    ViewPort(pc),a0
  684.         move.l    gfxbase(pc),a6
  685.         lea.l    ColorMap2(pc),a1
  686.         move.l    #8,d0
  687.         jsr    LoadRGB4(a6)
  688.  
  689. ; Draw city map
  690.  
  691.         move.l    intbase(pc),a6
  692.         move.l    RastPort1(pc),a0
  693.         lea.l    CityMap1(pc),a1
  694.         move.l    #$0,d0
  695.         move.l    #$0,d1
  696.         jsr    DrawBorder(a6)
  697.  
  698.         move.l    gfxbase(pc),a6
  699.         move.l    RastPort1(pc),a1
  700.         move.l    #$01,d0
  701.         jsr    SetAPen(a6)
  702.  
  703.         move.l    RastPort1(pc),a1
  704.         move.l    #30,d0
  705.         move.l    #16,d1
  706.         move.l    #3,d2
  707.         move.l    #2,d3
  708.         jsr    DrawEllipse(a6)
  709.  
  710.         move.l    RastPort1(pc),a1
  711.         move.l    #110,d0
  712.         move.l    #16,d1
  713.         jsr    DrawEllipse(a6)
  714.         move.l    RastPort1(pc),a1
  715.         move.l    #116,d0
  716.         move.l    #16,d1
  717.         jsr    DrawEllipse(a6)
  718.         move.l    RastPort1(pc),a1
  719.         move.l    #122,d0
  720.         move.l    #16,d1
  721.         jsr    DrawEllipse(a6)
  722.  
  723.         move.l    RastPort1(pc),a1
  724.         move.l    #290,d0
  725.         move.l    #16,d1
  726.         jsr    DrawEllipse(a6)
  727.  
  728.         move.l    RastPort1(pc),a1
  729.         move.l    #368,d0
  730.         move.l    #16,d1
  731.         jsr    DrawEllipse(a6)
  732.         move.l    RastPort1(pc),a1
  733.         move.l    #374,d0
  734.         move.l    #16,d1
  735.         jsr    DrawEllipse(a6)
  736.         move.l    RastPort1(pc),a1
  737.         move.l    #380,d0
  738.         move.l    #16,d1
  739.         jsr    DrawEllipse(a6)
  740.         
  741.         move.l    RastPort1(pc),a1
  742.         move.l    #368,d0
  743.         move.l    #43,d1
  744.         jsr    DrawEllipse(a6)
  745.         move.l    RastPort1(pc),a1
  746.         move.l    #368,d0
  747.         move.l    #47,d1
  748.         jsr    DrawEllipse(a6)
  749.         move.l    RastPort1(pc),a1
  750.         move.l    #368,d0
  751.         move.l    #51,d1
  752.         jsr    DrawEllipse(a6)
  753.  
  754.         move.l    RastPort1(pc),a1
  755.         move.l    #368,d0
  756.         move.l    #64,d1
  757.         jsr    DrawEllipse(a6)
  758.         move.l    RastPort1(pc),a1
  759.         move.l    #374,d0
  760.         move.l    #64,d1
  761.         jsr    DrawEllipse(a6)
  762.         move.l    RastPort1(pc),a1
  763.         move.l    #380,d0
  764.         move.l    #64,d1
  765.         jsr    DrawEllipse(a6)
  766.  
  767.         move.l    RastPort1(pc),a1
  768.         move.l    #368,d0
  769.         move.l    #92,d1
  770.         jsr    DrawEllipse(a6)
  771.  
  772.         move.l    RastPort1(pc),a1
  773.         move.l    #278,d0
  774.         move.l    #92,d1
  775.         jsr    DrawEllipse(a6)
  776.         move.l    RastPort1(pc),a1
  777.         move.l    #284,d0
  778.         move.l    #92,d1
  779.         jsr    DrawEllipse(a6)
  780.         move.l    RastPort1(pc),a1
  781.         move.l    #290,d0
  782.         move.l    #92,d1
  783.         jsr    DrawEllipse(a6)
  784.         
  785.         move.l    RastPort1(pc),a1
  786.         move.l    #290,d0
  787.         move.l    #56,d1
  788.         jsr    DrawEllipse(a6)
  789.         move.l    RastPort1(pc),a1
  790.         move.l    RastPort1(pc),a1
  791.         move.l    #290,d0
  792.         move.l    #60,d1
  793.         jsr    DrawEllipse(a6)
  794.         move.l    RastPort1(pc),a1
  795.         move.l    #290,d0
  796.         move.l    #64,d1
  797.         jsr    DrawEllipse(a6)
  798.  
  799.         move.l    RastPort1(pc),a1
  800.         move.l    #278,d0
  801.         move.l    #43,d1
  802.         jsr    DrawEllipse(a6)
  803.         move.l    RastPort1(pc),a1
  804.         move.l    #284,d0
  805.         move.l    #43,d1
  806.         jsr    DrawEllipse(a6)
  807.         move.l    RastPort1(pc),a1
  808.         move.l    #290,d0
  809.         move.l    #43,d1
  810.         jsr    DrawEllipse(a6)
  811.         
  812.         move.l    RastPort1(pc),a1
  813.         move.l    #110,d0
  814.         move.l    #43,d1
  815.         jsr    DrawEllipse(a6)
  816.         move.l    RastPort1(pc),a1
  817.         move.l    #110,d0
  818.         move.l    #47,d1
  819.         jsr    DrawEllipse(a6)
  820.         move.l    RastPort1(pc),a1
  821.         move.l    #110,d0
  822.         move.l    #51,d1
  823.         jsr    DrawEllipse(a6)
  824.  
  825.         move.l    RastPort1(pc),a1
  826.         move.l    #110,d0
  827.         move.l    #64,d1
  828.         jsr    DrawEllipse(a6)
  829.         move.l    RastPort1(pc),a1
  830.         move.l    #116,d0
  831.         move.l    #64,d1
  832.         jsr    DrawEllipse(a6)
  833.         move.l    RastPort1(pc),a1
  834.         move.l    #122,d0
  835.         move.l    #64,d1
  836.         jsr    DrawEllipse(a6)
  837.  
  838.         move.l    RastPort1(pc),a1
  839.         move.l    #110,d0
  840.         move.l    #92,d1
  841.         jsr    DrawEllipse(a6)
  842.  
  843.         move.l    RastPort1(pc),a1
  844.         move.l    #18,d0
  845.         move.l    #92,d1
  846.         jsr    DrawEllipse(a6)
  847.         move.l    RastPort1(pc),a1
  848.         move.l    #24,d0
  849.         move.l    #92,d1
  850.         jsr    DrawEllipse(a6)
  851.         move.l    RastPort1(pc),a1
  852.         move.l    #30,d0
  853.         move.l    #92,d1
  854.         jsr    DrawEllipse(a6)
  855.  
  856.         move.l    RastPort1(pc),a1
  857.         move.l    #30,d0
  858.         move.l    #56,d1
  859.         jsr    DrawEllipse(a6)
  860.         move.l    RastPort1(pc),a1
  861.         move.l    #30,d0
  862.         move.l    #60,d1
  863.         jsr    DrawEllipse(a6)
  864.         move.l    RastPort1(pc),a1
  865.         move.l    #30,d0
  866.         move.l    #64,d1
  867.         jsr    DrawEllipse(a6)
  868.  
  869.         move.l    RastPort1(pc),a1
  870.         move.l    #18,d0
  871.         move.l    #43,d1
  872.         jsr    DrawEllipse(a6)
  873.         move.l    RastPort1(pc),a1
  874.         move.l    #24,d0
  875.         move.l    #43,d1
  876.         jsr    DrawEllipse(a6)
  877.         move.l    RastPort1(pc),a1
  878.         move.l    #30,d0
  879.         move.l    #43,d1
  880.         jsr    DrawEllipse(a6)
  881.  
  882.         jsr    ColorLights
  883.  
  884. ;Get System time for later use
  885.  
  886.         move.l    TimeReq(pc),a0
  887.         move.b    #NT_MESSAGE,$8(a0)
  888.         move.b    #$00,$9(a0)
  889.         move.l    #$00,$a(a0)
  890.         move.l    TPort(pc),$e(a0)
  891.         move.w    #TR_GETSYSTIME,$1c(a0)
  892.  
  893.         move.l    $4,a6
  894.         move.l    TimeReq(pc),a1
  895.         jsr    DoIO(a6)
  896.  
  897.         move.l    TimeReq(pc),a0
  898.         move.l    $20(a0),LSecs
  899.         move.l    $20(a0),CSecs
  900.  
  901.         move.l    intbase(pc),a6
  902.         lea.l    Gadget1(pc),a0
  903.         move.l    Window3(pc),a1
  904.         move.l    #$00,a2
  905.         jsr    ActivateGadget(a6)
  906.  
  907. ;add interrupt for the car movements
  908.  
  909.         move.l    $4,a6
  910.         move.l    #INTB_VERTB,d0
  911.         lea.l    TLInt(pc),a1
  912.         jsr    AddIntServer(a6)
  913.  
  914.         jsr    InitCars
  915.  
  916. ; Check if the window´s close button pressed
  917.  
  918. Window1IDCMP:
  919.         move.l    gfxbase(pc),a6
  920.         move.l    RastPort1(pc),a1
  921.         jsr    SortGList(a6)
  922.         move.l    ViewPort(pc),a0
  923.         move.l    RastPort1(pc),a1
  924.         jsr    DrawGList(a6)
  925.         move.l    intbase(pc),a6
  926.         jsr    RethinkDisplay(a6)
  927.  
  928.         move.l    TimeReq(pc),a0
  929.         move.b    #NT_MESSAGE,$8(a0)
  930.         move.b    #$00,$9(a0)
  931.         move.l    #$00,$a(a0)
  932.         move.l    TPort(pc),$e(a0)
  933.         move.w    #TR_GETSYSTIME,$1c(a0)
  934.  
  935.         move.l    $4,a6
  936.         move.l    TimeReq(pc),a1
  937.         jsr    DoIO(a6)
  938.  
  939. ;Now compare the set times with current and then maybe change lights
  940.  
  941. CheckRLength:    cmp.l    #$00,RedLength        ;See if length=0
  942.         bne    CheckGLength
  943.         move.l    intbase(pc),a6
  944.         move.l    Screen1(pc),a0
  945.         jsr    DisplayBeep(a6)
  946.         move.l    #$30,RedLength        ;If it is then reset
  947.         move.b    #"3",Gad1Buf
  948.         move.b    #"0",Gad1Buf+1
  949.         move.b    #$00,Gad1Buf+2
  950.         move.l    Window3(pc),a1
  951.         lea.l    Gadget1(pc),a0
  952.         move.l    #-1,d0
  953.         jsr    RefreshGList(a6)
  954. CheckGLength:    cmp.l    #$00,GreenLength    ;See if length=0
  955.         bne    CompareL
  956.         move.l    intbase(pc),a6
  957.         move.l    Screen1(pc),a0
  958.         jsr    DisplayBeep(a6)
  959.         move.l    #$20,GreenLength    ;If it is then reset
  960.         move.b    #"2",Gad3Buf
  961.         move.b    #"0",Gad3Buf+1
  962.         move.b    #$00,Gad3Buf+2
  963.         move.l    Window3(pc),a1
  964.         lea.l    Gadget1(pc),a0
  965.         move.l    #-1,d0
  966.         jsr    RefreshGList(a6)
  967.  
  968. CompareL:    move.l    TimeReq(pc),a0
  969.         move.l    $20(a0),a3
  970.         sub.l    GSecs,a3        ;Cars crossing junction
  971.         cmp.l    OutCarTime(pc),a3
  972.         bhi    CarsLeave        ;per z secs
  973. CompareL0.1:    move.l    $20(a0),a3
  974.         sub.l    CSecs,a3
  975.         cmp.l    InCarTime(pc),a3
  976.         bhi    Cars
  977.         move.l    $20(a0),a3
  978.         sub.l    LSecs,a3
  979.         cmp.b    #$00,LStatus
  980.         beq    CompareL1
  981.         cmp.b    #$02,LStatus
  982.         beq    CompareL2
  983. CompareL0:    cmp.l    AmberLength(pc),a3
  984.         bcs    Window1IDCMP2
  985.         jmp    GetNewSysTime
  986. CompareL1:    cmp.l    RedLength(pc),a3
  987.         bcs    Window1IDCMP2
  988.         jmp    GetNewSysTime
  989. CompareL2:    cmp.l    GreenLength(pc),a3
  990.         bcs    Window1IDCMP2
  991.  
  992. ;Get new system time and save it
  993.  
  994. GetNewSysTime:    move.l    TimeReq(pc),a0
  995.         move.b    #NT_MESSAGE,$8(a0)
  996.         move.b    #$00,$9(a0)
  997.         move.l    #$00,$a(a0)
  998.         move.l    TPort(pc),$e(a0)
  999.         move.w    #TR_GETSYSTIME,$1c(a0)
  1000.  
  1001.         move.l    $4,a6
  1002.         move.l    TimeReq(pc),a1
  1003.         jsr    DoIO(a6)
  1004.  
  1005.         move.l    TimeReq(pc),a0
  1006.         move.l    $20(a0),LSecs
  1007.         jmp    ChangeLights
  1008.  
  1009. Window1IDCMP2:
  1010.         move.l    gfxbase(pc),a6
  1011.         move.l    RastPort1(pc),a1
  1012.         jsr    SortGList(a6)
  1013.         move.l    ViewPort(pc),a0
  1014.         move.l    RastPort1(pc),a1
  1015.         jsr    DrawGList(a6)
  1016.         move.l    Window1(pc),a0
  1017.         move.l    Window2(pc),a4
  1018.         move.l    Window3(pc),a3
  1019.         jsr    CheckIDCMP
  1020.         cmp.l    #CLOSEWINDOW,d2
  1021.         beq    CityMapQuit
  1022.         cmp.l    #GADGETUP,d2
  1023.         beq    Activategads
  1024.         cmp.l    #VANILLAKEY,d2
  1025.         beq    Keys
  1026.         cmp.l    #MENUPICK,d2
  1027.         beq    DoWin2MenusExt
  1028.         cmp.l    #RAWKEY,d2
  1029.         beq    Window2KeysExt
  1030.         cmp.l    #GADGETDOWN,d2
  1031.         beq     ButtonsDown
  1032.         jmp    Window1IDCMP
  1033.  
  1034. ButtonsDown:    move.l    intbase(pc),a6
  1035.                 lea.l    ModeGad1(pc),a1
  1036.                 cmp.l    a1,a5
  1037.                 beq    ButtonsDown1
  1038.         lea.l    ModeGad2(pc),a1
  1039.         cmp.l    a1,a5
  1040.         beq    ButtonsDown2
  1041.                 lea.l    ModeGad3(pc),a1
  1042.         cmp.l    a1,a5
  1043.         beq     ButtonsDown3
  1044.         jmp    Window1IDCMP
  1045. ButtonsDown1:    lea.l   ModeGad2(pc),a0
  1046.                 move.w    #$6,$c(a0)
  1047.         lea.l    ModeGad3(pc),a0
  1048.         move.w    #$6,$c(a0)
  1049.         move.l    Window3(pc),a1
  1050.         lea.l    ModeGad1(pc),a0
  1051.         move.l    #3,d0
  1052.         jsr    RefreshGList(a6)
  1053.         move.l    #$2,TrafficMode
  1054.         jmp    Window1IDCMP
  1055. ButtonsDown2:    lea.l   ModeGad1(pc),a0
  1056.                 move.w    #$6,$c(a0)
  1057.         lea.l    ModeGad3(pc),a0
  1058.         move.w    #$6,$c(a0)
  1059.         move.l    Window3(pc),a1
  1060.         lea.l    ModeGad1(pc),a0
  1061.         move.l    #3,d0
  1062.         jsr    RefreshGList(a6)
  1063.         move.l    #$4,TrafficMode
  1064.         jmp    Window1IDCMP
  1065. ButtonsDown3:    lea.l   ModeGad1(pc),a0
  1066.                 move.w    #$6,$c(a0)
  1067.         lea.l    ModeGad2(pc),a0
  1068.         move.w    #$6,$c(a0)
  1069.         move.l    Window3(pc),a1
  1070.         lea.l    ModeGad1(pc),a0
  1071.         move.l    #3,d0
  1072.         jsr    RefreshGList(a6)
  1073.         move.l    #$5,TrafficMode
  1074.         jmp    Window1IDCMP
  1075. ButtonsDown4:    move.l    intbase(pc),a6
  1076.         lea.l    ModeGad1(pc),a0
  1077.                 cmp.w    #$06,$c(a0)
  1078.         bne     ButtonsDown5
  1079.         lea.l    ModeGad2(pc),a0
  1080.         cmp.w    #$06,$c(a0)
  1081.         bne     ButtonsDown5
  1082.         lea.l    ModeGad3(pc),a0
  1083.         cmp.w    #$06,$c(a0)
  1084.         bne     ButtonsDown5
  1085.         move.w  #$86,$c(a5)
  1086.         lea.l    ModeGad1(pc),a0
  1087.         move.l    #3,d0
  1088.         move.l    Window3(pc),a1
  1089.         jsr    RefreshGList(a6)
  1090. ButtonsDown5:    jmp    Window1IDCMP
  1091.  
  1092. Window2KeysExt:    cmp.w    #$5f,d3
  1093.         bne    W2K0
  1094.         jsr    GrapsOff
  1095.         jsr    Help
  1096.         jsr    GrapsOn
  1097. W2K0:        jmp    Window1IDCMP
  1098. DoWin2MenusExt:    jsr    MenuNull
  1099.         cmp.l    #$01,d6        ;Change this if you want more menus
  1100. ;        beq    
  1101.         cmp.l    #$00,d6
  1102.         bne    ExtIsMenu1.2
  1103.  
  1104. ExtIsMenu1.0:    cmp.l    #$01,d5
  1105.         bne    ExtIsMenu1.01
  1106.         jsr    GrapsOff
  1107.         jsr    Help
  1108.         jsr    GrapsOn
  1109.         jmp    Window1IDCMP
  1110. ExtIsMenu1.01:    cmp.l    #$02,d5
  1111.         bne    ExtIsMenu1.02
  1112.         jsr    GrapsOff
  1113.         jsr    Load
  1114.         jsr    GrapsOn
  1115.         jmp    Window1IDCMP
  1116. ExtIsMenu1.02:    cmp.l    #$04,d5
  1117.         bne    ExtIsMenu1.03
  1118.         jsr    GrapsOff
  1119.         jsr    SaveAs
  1120.         jsr    GrapsOn
  1121.         jmp    Window1IDCMP
  1122. ExtIsMenu1.03:    cmp.l    #$05,d5
  1123.         bne    ExtIsMenu1.1
  1124.         jsr    GrapsOff
  1125.         jsr    About
  1126.         jsr    GrapsOn
  1127. ExtIsMenu1.1:    cmp.l    #$06,d5
  1128.         beq    CityMapQuit
  1129. ExtIsMenu1.2:    jmp    Window1IDCMP
  1130.  
  1131. GrapsOff:    
  1132.         move.l    $4,a6
  1133.         move.l    #INTB_VERTB,d0
  1134.         lea.l    TLInt(pc),a1
  1135.         jsr    RemIntServer(a6)
  1136.  
  1137.         cmp.b    #$01,SpritesXOn
  1138.         beq    GrapsOff1
  1139.         move.l    gfxbase(pc),a6
  1140.         lea.l    Sprite1(pc),a0
  1141.         jsr    RemVSprite(a6)
  1142.         lea.l    Sprite4(pc),a0
  1143.         jsr    RemVSprite(a6)
  1144.         lea.l    Sprite9(pc),a0
  1145.         jsr    RemVSprite(a6)
  1146.         lea.l    Sprite10(pc),a0
  1147.         jsr    RemVSprite(a6)
  1148.         jmp    GrapsOff2
  1149.  
  1150. GrapsOff1:    move.l    gfxbase(pc),a6
  1151.         lea.l    Sprite7(pc),a0
  1152.         jsr    RemVSprite(a6)
  1153.         lea.l    Sprite8(pc),a0
  1154.         jsr    RemVSprite(a6)
  1155.         lea.l    Sprite9(pc),a0
  1156.         jsr    RemVSprite(a6)
  1157.         lea.l    Sprite10(pc),a0
  1158.         jsr    RemVSprite(a6)
  1159.         lea.l    Sprite11(pc),a0
  1160.         jsr    RemVSprite(a6)
  1161.         lea.l    Sprite12(pc),a0
  1162.         jsr    RemVSprite(a6)
  1163.  
  1164. GrapsOff2:    lea.l    Sprite13(pc),a0
  1165.         jsr    RemVSprite(a6)
  1166.         lea.l    Sprite14(pc),a0
  1167.         jsr    RemVSprite(a6)
  1168.         lea.l    Sprite15(pc),a0
  1169.         jsr    RemVSprite(a6)
  1170.         lea.l    Sprite16(pc),a0
  1171.         jsr    RemVSprite(a6)
  1172.         lea.l    Sprite17(pc),a0
  1173.         jsr    RemVSprite(a6)
  1174.         lea.l    Sprite18(pc),a0
  1175.         jsr    RemVSprite(a6)
  1176.         lea.l    Sprite19(pc),a0
  1177.         jsr    RemVSprite(a6)
  1178. ;        lea.l    Sprite20(pc),a0
  1179. ;        jsr    RemVSprite(a6)
  1180. ;        lea.l    Sprite21(pc),a0
  1181. ;        jsr    RemVSprite(a6)
  1182. ;        lea.l    Sprite22(pc),a0
  1183. ;        jsr    RemVSprite(a6)
  1184. ;        lea.l    Sprite23(pc),a0
  1185. ;        jsr    RemVSprite(a6)
  1186.         lea.l    Sprite24(pc),a0
  1187.         jsr    RemVSprite(a6)
  1188.         lea.l    Sprite25(pc),a0
  1189.         jsr    RemVSprite(a6)
  1190.         lea.l    Sprite26(pc),a0
  1191.         jsr    RemVSprite(a6)
  1192.         lea.l    Sprite27(pc),a0
  1193.         jsr    RemVSprite(a6)
  1194.         move.l    RastPort1(pc),a1
  1195.         jsr    SortGList(a6)
  1196.         move.l    ViewPort(pc),a0
  1197.         move.l    RastPort1(pc),a1
  1198.         jsr    DrawGList(a6)
  1199.  
  1200.         move.l    intbase(pc),a6
  1201.         jsr    RethinkDisplay(a6)
  1202.         rts
  1203.  
  1204. GrapsOn:    move.l    $4,a6
  1205.         move.l    #INTB_VERTB,d0
  1206.         lea.l    TLInt(pc),a1
  1207.         jsr    AddIntServer(a6)
  1208.         jsr    InitCars
  1209.         rts
  1210.  
  1211. Activategads:    move.l    intbase(pc),a6
  1212.         move.l    (a5),a0
  1213.         cmp.l    #$00,a0
  1214.         bne    ActivateGads1
  1215.         lea.l    Gadget1(pc),a0
  1216. ActivateGads1:    move.l    Window3(pc),a1
  1217.         move.l    #$00,a2
  1218.         jsr    ActivateGadget(a6)
  1219.         jmp     ButtonsDown4
  1220.  
  1221. Keys:        cmp.w    #$1b,d3
  1222.         beq    CityMapQuit
  1223.         jmp    Window1IDCMP
  1224.  
  1225. CityMapQuit:
  1226.  
  1227. ;Remove interrupt server
  1228.  
  1229.         move.l    $4,a6
  1230.         move.l    #INTB_VERTB,d0
  1231.         lea.l    TLInt(pc),a1
  1232.         jsr    RemIntServer(a6)
  1233.  
  1234.         move.l    gfxbase(pc),a6
  1235.         move.l    PlanePtr(pc),a0
  1236.         move.l    #640,d0
  1237.         move.l    #256,d1
  1238.         jsr    FreeRaster(a6)
  1239.  
  1240. ;Change the colors to the presets so the quitting gadgets look ok
  1241.  
  1242.         move.l    ViewPort(pc),a0
  1243.         move.l    gfxbase(pc),a6
  1244.         lea.l    ColorMap1(pc),a1
  1245.         move.l    #8,d0
  1246.         jsr    LoadRGB4(a6)
  1247.  
  1248. ;Remove sprites, otherwise they'll be seen in the wrong window!
  1249.  
  1250.         move.l    gfxbase(pc),a6
  1251.         lea.l    Sprite1(pc),a0
  1252.         jsr    RemVSprite(a6)
  1253.         lea.l    Sprite4(pc),a0
  1254.         jsr    RemVSprite(a6)
  1255.         lea.l    Sprite7(pc),a0
  1256.         jsr    RemVSprite(a6)
  1257.         lea.l    Sprite8(pc),a0
  1258.         jsr    RemVSprite(a6)
  1259.         lea.l    Sprite9(pc),a0
  1260.         jsr    RemVSprite(a6)
  1261.         lea.l    Sprite10(pc),a0
  1262.         jsr    RemVSprite(a6)
  1263.         lea.l    Sprite11(pc),a0
  1264.         jsr    RemVSprite(a6)
  1265.         lea.l    Sprite12(pc),a0
  1266.         jsr    RemVSprite(a6)
  1267.         lea.l    Sprite13(pc),a0
  1268.         jsr    RemVSprite(a6)
  1269.         lea.l    Sprite14(pc),a0
  1270.         jsr    RemVSprite(a6)
  1271.         lea.l    Sprite15(pc),a0
  1272.         jsr    RemVSprite(a6)
  1273.         lea.l    Sprite16(pc),a0
  1274.         jsr    RemVSprite(a6)
  1275.         lea.l    Sprite17(pc),a0
  1276.         jsr    RemVSprite(a6)
  1277.         lea.l    Sprite18(pc),a0
  1278.         jsr    RemVSprite(a6)
  1279.         lea.l    Sprite19(pc),a0
  1280.         jsr    RemVSprite(a6)
  1281. ;        lea.l    Sprite20(pc),a0
  1282. ;        jsr    RemVSprite(a6)
  1283. ;        lea.l    Sprite21(pc),a0
  1284. ;        jsr    RemVSprite(a6)
  1285. ;        lea.l    Sprite22(pc),a0
  1286. ;        jsr    RemVSprite(a6)
  1287. ;        lea.l    Sprite23(pc),a0
  1288. ;        jsr    RemVSprite(a6)
  1289.         lea.l    Sprite24(pc),a0
  1290.         jsr    RemVSprite(a6)
  1291.         lea.l    Sprite25(pc),a0
  1292.         jsr    RemVSprite(a6)
  1293.         lea.l    Sprite26(pc),a0
  1294.         jsr    RemVSprite(a6)
  1295.         lea.l    Sprite27(pc),a0
  1296.         jsr    RemVSprite(a6)
  1297.         move.l    RastPort1(pc),a1
  1298.         jsr    SortGList(a6)
  1299.         move.l    ViewPort(pc),a0
  1300.         move.l    RastPort1(pc),a1
  1301.         jsr    DrawGList(a6)
  1302.  
  1303.         move.l    intbase(pc),a6
  1304.         jsr    RethinkDisplay(a6)
  1305.         move.l    Screen1(pc),a0
  1306.         move.l    #$ff,d0
  1307.         jsr    ShowTitle(a6)
  1308.         move.l    Window2(pc),a0
  1309.         move.l    #$00,d0
  1310.         jsr    MenusOn
  1311.         move.l    Window1(pc),a0
  1312.         jsr    ClearMSGs
  1313.         move.l    #$0,Window1
  1314.         move.l    Window3(pc),a0
  1315.         move.l    intbase(pc),a6
  1316.         jsr    ClearMenuStrip(a6)
  1317.         move.l    Window3(pc),a0
  1318.         jsr    ClearMSGs
  1319.         move.l    #$0,Window3
  1320. GoToMainLoop1:    jmp    MainLoop
  1321.  
  1322. CarsLeave:    move.l    TimeReq(pc),a0
  1323.         move.b    #NT_MESSAGE,$8(a0)
  1324.         move.b    #$00,$9(a0)
  1325.         move.l    #$00,$a(a0)
  1326.         move.l    TPort(pc),$e(a0)
  1327.         move.w    #TR_GETSYSTIME,$1c(a0)
  1328.         move.l    $4,a6
  1329.         move.l    TimeReq(pc),a1
  1330.         jsr    DoIO(a6)
  1331.  
  1332.         move.l    TimeReq(pc),a0
  1333.         move.l    $20(a0),GSecs
  1334.  
  1335.         jsr    YLightsGreen
  1336.         jsr    XLightsGreen
  1337.         jmp    CompareL0.1
  1338.  
  1339. ;Here starts the part with the cars themselves
  1340. ;Add checking of Max Amount of cars etc.
  1341.  
  1342.  
  1343. Cars:        move.l    gfxbase(pc),a6
  1344.         move.l    RastPort1(pc),a1
  1345.         move.l    #$00,d0
  1346.         jsr    SetAPen(a6)
  1347.         move.l    TimeReq(pc),a0
  1348.         move.b    #NT_MESSAGE,$8(a0)
  1349.         move.b    #$00,$9(a0)
  1350.         move.l    #$00,$a(a0)
  1351.         move.l    TPort(pc),$e(a0)
  1352.         move.w    #TR_GETSYSTIME,$1c(a0)
  1353.         move.l    $4,a6
  1354.         move.l    TimeReq(pc),a1
  1355.         jsr    DoIO(a6)
  1356.         move.l    TimeReq(pc),a0
  1357.         move.l    $20(a0),CSecs
  1358.         jsr    GetRandom
  1359.         cmp.l    In1(pc),d5
  1360.         bhi    Cars1
  1361.         add.w    #$01,Amount1
  1362.         jsr    CarCome1
  1363. Cars1:        jsr    GetRandom
  1364.         cmp.l    In2(pc),d5
  1365.         bhi    Cars2
  1366.         add.w    #$01,Amount2
  1367.         jsr    CarCome2
  1368. Cars2:        jsr    GetRandom
  1369.         cmp.l    In3(pc),d5
  1370.         bhi    Cars3
  1371.         add.w    #$01,Amount3
  1372.         jsr    CarCome3
  1373. Cars3:        jsr    GetRandom
  1374.         cmp.l    In4(pc),d5
  1375.         bhi    Cars4
  1376.         add.w    #$01,Amount4
  1377.         jsr    CarCome4
  1378. Cars4:        jsr    GetRandom
  1379.         cmp.l    In5(pc),d5
  1380.         bhi    Cars5
  1381.         add.w    #$01,Amount5
  1382.         jsr    CarCome5
  1383. Cars5:        jsr    GetRandom
  1384.         cmp.l    In6(pc),d5
  1385.         bhi    Cars6
  1386.         add.w    #$01,Amount6
  1387.         jsr    CarCome6
  1388. Cars6:        jsr    GetRandom
  1389.         cmp.l    In7(pc),d5
  1390.         bhi    Cars7
  1391.         add.w    #$01,Amount7
  1392.         jsr    CarCome7
  1393. Cars7:        jsr    GetRandom
  1394.         cmp.l    In8(pc),d5
  1395.         bhi    Window1IDCMP2
  1396.         add.w    #$01,Amount8
  1397.         jsr    CarCome8
  1398.         jmp    Window1IDCMP2
  1399. CarCome1:    move.w    Amount1(pc),DStream
  1400.         lea.l    FString(pc),a0
  1401.         lea.l    DStream(pc),a1
  1402.         lea.l    PutChProc(pc),a2
  1403.         lea.l    PutChData(pc),a3
  1404.         move.l    $4,a6
  1405.         jsr    RawDoFmt(a6)
  1406.         move.l    gfxbase(pc),a6
  1407.         move.l    RastPort1(pc),a1
  1408.         move.l    #39,d0
  1409.         move.l    #12,d1
  1410.         move.l    #58,d2
  1411.         move.l    #21,d3
  1412.         jsr    RectFill(a6)
  1413.         move.l    intbase(pc),a6
  1414.         lea.l    AmountTxt1(pc),a1
  1415.         move.l    RastPort1(pc),a0
  1416.         move.l    #$00,d0
  1417.         move.l    #$00,d1
  1418.         jsr    PrintIText(a6)
  1419.         rts
  1420. CarCome2:    move.w    Amount2(pc),DStream
  1421.         lea.l    FString(pc),a0
  1422.         lea.l    DStream(pc),a1
  1423.         lea.l    PutChProc(pc),a2
  1424.         lea.l    PutChData(pc),a3
  1425.         move.l    $4,a6
  1426.         jsr    RawDoFmt(a6)
  1427.         move.l    gfxbase(pc),a6
  1428.         move.l    RastPort1(pc),a1
  1429.         move.l    #301,d0
  1430.         move.l    #12,d1
  1431.         move.l    #321,d2
  1432.         move.l    #21,d3
  1433.         jsr    RectFill(a6)
  1434.         move.l    intbase(pc),a6
  1435.         lea.l    AmountTxt2(pc),a1
  1436.         move.l    RastPort1(pc),a0
  1437.         move.l    #$00,d0
  1438.         move.l    #$00,d1
  1439.         jsr    PrintIText(a6)
  1440.         rts
  1441. CarCome3:    move.w    Amount3(pc),DStream
  1442.         lea.l    FString(pc),a0
  1443.         lea.l    DStream(pc),a1
  1444.         lea.l    PutChProc(pc),a2
  1445.         lea.l    PutChData(pc),a3
  1446.         move.l    $4,a6
  1447.         jsr    RawDoFmt(a6)
  1448.         move.l    gfxbase(pc),a6
  1449.         move.l    RastPort1(pc),a1
  1450.         move.l    #360,d0
  1451.         move.l    #22,d1
  1452.         move.l    #375,d2
  1453.         move.l    #31,d3
  1454.         jsr    RectFill(a6)
  1455.         move.l    intbase(pc),a6
  1456.         lea.l    AmountTxt3(pc),a1
  1457.         move.l    RastPort1(pc),a0
  1458.         move.l    #$00,d0
  1459.         move.l    #$00,d1
  1460.         jsr    PrintIText(a6)
  1461.         rts
  1462. CarCome4:    move.w    Amount4(pc),DStream
  1463.         lea.l    FString(pc),a0
  1464.         lea.l    DStream(pc),a1
  1465.         lea.l    PutChProc(pc),a2
  1466.         lea.l    PutChData(pc),a3
  1467.         move.l    $4,a6
  1468.         jsr    RawDoFmt(a6)
  1469.         move.l    gfxbase(pc),a6
  1470.         move.l    RastPort1(pc),a1
  1471.         move.l    #360,d0
  1472.         move.l    #70,d1
  1473.         move.l    #375,d2
  1474.         move.l    #80,d3
  1475.         jsr    RectFill(a6)
  1476.         move.l    intbase(pc),a6
  1477.         lea.l    AmountTxt4(pc),a1
  1478.         move.l    RastPort1(pc),a0
  1479.         move.l    #$00,d0
  1480.         move.l    #$00,d1
  1481.         jsr    PrintIText(a6)
  1482.         rts
  1483. CarCome5:    move.w    Amount5(pc),DStream
  1484.         lea.l    FString(pc),a0
  1485.         lea.l    DStream(pc),a1
  1486.         lea.l    PutChProc(pc),a2
  1487.         lea.l    PutChData(pc),a3
  1488.         move.l    $4,a6
  1489.         jsr    RawDoFmt(a6)
  1490.         move.l    gfxbase(pc),a6
  1491.         move.l    RastPort1(pc),a1
  1492.         move.l    #338,d0
  1493.         move.l    #88,d1
  1494.         move.l    #358,d2
  1495.         move.l    #96,d3
  1496.         jsr    RectFill(a6)
  1497.         move.l    intbase(pc),a6
  1498.         lea.l    AmountTxt5(pc),a1
  1499.         move.l    RastPort1(pc),a0
  1500.         move.l    #$00,d0
  1501.         move.l    #$00,d1
  1502.         jsr    PrintIText(a6)
  1503.         rts
  1504. CarCome6:    move.w    Amount6(pc),DStream
  1505.         lea.l    FString(pc),a0
  1506.         lea.l    DStream(pc),a1
  1507.         lea.l    PutChProc(pc),a2
  1508.         lea.l    PutChData(pc),a3
  1509.         move.l    $4,a6
  1510.         jsr    RawDoFmt(a6)
  1511.         move.l    gfxbase(pc),a6
  1512.         move.l    RastPort1(pc),a1
  1513.         move.l    #78,d0
  1514.         move.l    #88,d1
  1515.         move.l    #98,d2
  1516.         move.l    #96,d3
  1517.         jsr    RectFill(a6)
  1518.         move.l    intbase(pc),a6
  1519.         lea.l    AmountTxt6(pc),a1
  1520.         move.l    RastPort1(pc),a0
  1521.         move.l    #$00,d0
  1522.         move.l    #$00,d1
  1523.         jsr    PrintIText(a6)
  1524.         rts
  1525. CarCome7:    move.w    Amount7(pc),DStream
  1526.         lea.l    FString(pc),a0
  1527.         lea.l    DStream(pc),a1
  1528.         lea.l    PutChProc(pc),a2
  1529.         lea.l    PutChData(pc),a3
  1530.         move.l    $4,a6
  1531.         jsr    RawDoFmt(a6)
  1532.         move.l    gfxbase(pc),a6
  1533.         move.l    RastPort1(pc),a1
  1534.         move.l    #20,d0
  1535.         move.l    #76,d1
  1536.         move.l    #40,d2
  1537.         move.l    #86,d3
  1538.         jsr    RectFill(a6)
  1539.         move.l    intbase(pc),a6
  1540.         lea.l    AmountTxt7(pc),a1
  1541.         move.l    RastPort1(pc),a0
  1542.         move.l    #$00,d0
  1543.         move.l    #$00,d1
  1544.         jsr    PrintIText(a6)
  1545.         rts
  1546. CarCome8:    move.w    Amount8(pc),DStream
  1547.         lea.l    FString(pc),a0
  1548.         lea.l    DStream(pc),a1
  1549.         lea.l    PutChProc(pc),a2
  1550.         lea.l    PutChData(pc),a3
  1551.         move.l    $4,a6
  1552.         jsr    RawDoFmt(a6)
  1553.         move.l    gfxbase(pc),a6
  1554.         move.l    RastPort1(pc),a1
  1555.         move.l    #20,d0
  1556.         move.l    #28,d1
  1557.         move.l    #40,d2
  1558.         move.l    #38,d3
  1559.         jsr    RectFill(a6)
  1560.         move.l    intbase(pc),a6
  1561.         lea.l    AmountTxt8(pc),a1
  1562.         move.l    RastPort1(pc),a0
  1563.         move.l    #$00,d0
  1564.         move.l    #$00,d1
  1565.         jsr    PrintIText(a6)
  1566.         rts
  1567. CarCome9:    move.w    Amount9(pc),DStream
  1568.         lea.l    FString(pc),a0
  1569.         lea.l    DStream(pc),a1
  1570.         lea.l    PutChProc(pc),a2
  1571.         lea.l    PutChData(pc),a3
  1572.         move.l    $4,a6
  1573.         jsr    RawDoFmt(a6)
  1574.         move.l    gfxbase(pc),a6
  1575.         move.l    RastPort1(pc),a1
  1576.         move.l    #101,d0
  1577.         move.l    #22,d1
  1578.         move.l    #121,d2
  1579.         move.l    #31,d3
  1580.         jsr    RectFill(a6)
  1581.         move.l    intbase(pc),a6
  1582.         lea.l    AmountTxt9(pc),a1
  1583.         move.l    RastPort1(pc),a0
  1584.         move.l    #$00,d0
  1585.         move.l    #$00,d1
  1586.         jsr    PrintIText(a6)
  1587.         rts
  1588. CarCome10:    move.w    Amount10(pc),DStream
  1589.         lea.l    FString(pc),a0
  1590.         lea.l    DStream(pc),a1
  1591.         lea.l    PutChProc(pc),a2
  1592.         lea.l    PutChData(pc),a3
  1593.         move.l    $4,a6
  1594.         jsr    RawDoFmt(a6)
  1595.         move.l    gfxbase(pc),a6
  1596.         move.l    RastPort1(pc),a1
  1597.         move.l    #280,d0
  1598.         move.l    #27,d1
  1599.         move.l    #300,d2
  1600.         move.l    #37,d3
  1601.         jsr    RectFill(a6)
  1602.         move.l    intbase(pc),a6
  1603.         lea.l    AmountTxt10(pc),a1
  1604.         move.l    RastPort1(pc),a0
  1605.         move.l    #$00,d0
  1606.         move.l    #$00,d1
  1607.         jsr    PrintIText(a6)
  1608.         rts
  1609. CarCome11:    move.w    Amount11(pc),DStream
  1610.         lea.l    FString(pc),a0
  1611.         lea.l    DStream(pc),a1
  1612.         lea.l    PutChProc(pc),a2
  1613.         lea.l    PutChData(pc),a3
  1614.         move.l    $4,a6
  1615.         jsr    RawDoFmt(a6)
  1616.         move.l    gfxbase(pc),a6
  1617.         move.l    RastPort1(pc),a1
  1618.         move.l    #301,d0
  1619.         move.l    #57,d1
  1620.         move.l    #321,d2
  1621.         move.l    #67,d3
  1622.         jsr    RectFill(a6)
  1623.         move.l    intbase(pc),a6
  1624.         lea.l    AmountTxt11(pc),a1
  1625.         move.l    RastPort1(pc),a0
  1626.         move.l    #$00,d0
  1627.         move.l    #$00,d1
  1628.         jsr    PrintIText(a6)
  1629.         rts
  1630. CarCome12:    move.w    Amount12(pc),DStream
  1631.         lea.l    FString(pc),a0
  1632.         lea.l    DStream(pc),a1
  1633.         lea.l    PutChProc(pc),a2
  1634.         lea.l    PutChData(pc),a3
  1635.         move.l    $4,a6
  1636.         jsr    RawDoFmt(a6)
  1637.         move.l    gfxbase(pc),a6
  1638.         move.l    RastPort1(pc),a1
  1639.         move.l    #337,d0
  1640.         move.l    #41,d1
  1641.         move.l    #357,d2
  1642.         move.l    #51,d3
  1643.         jsr    RectFill(a6)
  1644.         move.l    intbase(pc),a6
  1645.         lea.l    AmountTxt12(pc),a1
  1646.         move.l    RastPort1(pc),a0
  1647.         move.l    #$00,d0
  1648.         move.l    #$00,d1
  1649.         jsr    PrintIText(a6)
  1650.         rts
  1651. CarCome13:    move.w    Amount13(pc),DStream
  1652.         lea.l    FString(pc),a0
  1653.         lea.l    DStream(pc),a1
  1654.         lea.l    PutChProc(pc),a2
  1655.         lea.l    PutChData(pc),a3
  1656.         move.l    $4,a6
  1657.         jsr    RawDoFmt(a6)
  1658.         move.l    gfxbase(pc),a6
  1659.         move.l    RastPort1(pc),a1
  1660.         move.l    #280,d0
  1661.         move.l    #77,d1
  1662.         move.l    #300,d2
  1663.         move.l    #87,d3
  1664.         jsr    RectFill(a6)
  1665.         move.l    intbase(pc),a6
  1666.         lea.l    AmountTxt13(pc),a1
  1667.         move.l    RastPort1(pc),a0
  1668.         move.l    #$00,d0
  1669.         move.l    #$00,d1
  1670.         jsr    PrintIText(a6)
  1671.         rts
  1672. CarCome14:    move.w    Amount14(pc),DStream
  1673.         lea.l    FString(pc),a0
  1674.         lea.l    DStream(pc),a1
  1675.         lea.l    PutChProc(pc),a2
  1676.         lea.l    PutChData(pc),a3
  1677.         move.l    $4,a6
  1678.         jsr    RawDoFmt(a6)
  1679.         move.l    gfxbase(pc),a6
  1680.         move.l    RastPort1(pc),a1
  1681.         move.l    #101,d0
  1682.         move.l    #69,d1
  1683.         move.l    #121,d2
  1684.         move.l    #79,d3
  1685.         jsr    RectFill(a6)
  1686.         move.l    intbase(pc),a6
  1687.         lea.l    AmountTxt14(pc),a1
  1688.         move.l    RastPort1(pc),a0
  1689.         move.l    #$00,d0
  1690.         move.l    #$00,d1
  1691.         jsr    PrintIText(a6)
  1692.         rts
  1693. CarCome15:    move.w    Amount15(pc),DStream
  1694.         lea.l    FString(pc),a0
  1695.         lea.l    DStream(pc),a1
  1696.         lea.l    PutChProc(pc),a2
  1697.         lea.l    PutChData(pc),a3
  1698.         move.l    $4,a6
  1699.         jsr    RawDoFmt(a6)
  1700.         move.l    gfxbase(pc),a6
  1701.         move.l    RastPort1(pc),a1
  1702.         move.l    #39,d0
  1703.         move.l    #57,d1
  1704.         move.l    #61,d2
  1705.         move.l    #67,d3
  1706.         jsr    RectFill(a6)
  1707.         move.l    intbase(pc),a6
  1708.         lea.l    AmountTxt15(pc),a1
  1709.         move.l    RastPort1(pc),a0
  1710.         move.l    #$00,d0
  1711.         move.l    #$00,d1
  1712.         jsr    PrintIText(a6)
  1713.         rts
  1714. CarCome16:    move.w    Amount16(pc),DStream
  1715.         lea.l    FString(pc),a0
  1716.         lea.l    DStream(pc),a1
  1717.         lea.l    PutChProc(pc),a2
  1718.         lea.l    PutChData(pc),a3
  1719.         move.l    $4,a6
  1720.         jsr    RawDoFmt(a6)
  1721.         move.l    gfxbase(pc),a6
  1722.         move.l    RastPort1(pc),a1
  1723.         move.l    #75,d0
  1724.         move.l    #40,d1
  1725.         move.l    #95,d2
  1726.         move.l    #50,d3
  1727.         jsr    RectFill(a6)
  1728.         move.l    intbase(pc),a6
  1729.         lea.l    AmountTxt16(pc),a1
  1730.         move.l    RastPort1(pc),a0
  1731.         move.l    #$00,d0
  1732.         move.l    #$00,d1
  1733.         jsr    PrintIText(a6)
  1734.         rts
  1735.  
  1736. ;Here's the thing that checks if there is room for more cars 
  1737.  
  1738. CheckXMax:    rts
  1739. CheckYMax:    rts
  1740.     
  1741. ;Here we have the routine that changes the lights
  1742. ;
  1743. ;LightStatus contains previous situation
  1744. ;
  1745. ;0 = "Original"    i.e. green lights in the north-south direction
  1746. ;1 = Amber 1 -- 
  1747. ;3 = Green lights in the east-west direction
  1748. ;4 = Amber 2 --
  1749.  
  1750.  
  1751. ChangeLights:    move.b    LStatus(pc),d0
  1752.         beq    LStat1
  1753.         cmp.b    #$01,d0
  1754.         beq    LStat2
  1755.         cmp.b    #$02,d0
  1756.         beq    LStat3
  1757.  
  1758. ;Let it go on. If LStatus <>0,1,2 then it MUST be 3 :-)
  1759. ;You actually never should do this, but now even if there is an error
  1760. ;the light status will be reseted. 
  1761.     
  1762. LStat0:        move.l    gfxbase(pc),a6
  1763.         cmp.b    #$01,SpritesXOn
  1764.         bne    LStat0.1
  1765.         lea.l    Sprite7(pc),a0
  1766.         jsr    RemVSprite(a6)
  1767.         lea.l    Sprite8(pc),a0
  1768.         jsr    RemVSprite(a6)
  1769.         lea.l    Sprite11(pc),a0
  1770.         jsr    RemVSprite(a6)
  1771.         lea.l    Sprite12(pc),a0
  1772.         jsr    RemVSprite(a6)
  1773.         lea.l    Sprite1(pc),a0
  1774.         move.l    RastPort1(pc),a1
  1775.         jsr    AddVSprite(a6)
  1776.         lea.l    Sprite4(pc),a0
  1777.         move.l    RastPort1(pc),a1
  1778.         jsr    AddVSprite(a6)
  1779.         lea.l    Sprite9(pc),a0
  1780.         move.l    RastPort1(pc),a1
  1781.         jsr    AddVSprite(a6)
  1782.         lea.l    Sprite10(pc),a0
  1783.         move.l    RastPort1(pc),a1
  1784.         jsr    AddVSprite(a6)
  1785.         move.b    #$00,SpritesXOn
  1786.  
  1787. LStat0.1:    move.l    ViewPort(pc),a0
  1788.         move.l    #3,d0
  1789.         move.l    #$a,d1
  1790.         move.l    #$a,d2
  1791.         move.l    #$a,d3
  1792.         jsr    SetRGB4(a6)
  1793.         move.l    ViewPort(pc),a0
  1794.         move.l    #6,d0
  1795.         move.l    #$a,d1
  1796.         jsr    SetRGB4(a6)
  1797.         move.l    ViewPort(pc),a0
  1798.         move.l    #7,d0
  1799.         move.l    #$a,d1
  1800.         jsr    SetRGB4(a6)
  1801.  
  1802.         move.l    ViewPort(pc),a0
  1803.         move.l    #4,d0
  1804.         move.l    #$0,d1
  1805.         move.l    #$f,d2
  1806.         move.l    #$0,d3
  1807.         jsr    SetRGB4(a6)
  1808.         move.l    ViewPort(pc),a0
  1809.         move.l    #5,d0
  1810.         move.l    #$f,d1
  1811.         move.l    #$0,d2
  1812.         move.l    #$0,d3
  1813.         jsr    SetRGB4(a6)
  1814.         move.b    #$00,LStatus
  1815.         jmp    Window1IDCMP2
  1816.         
  1817. LStat1:        cmp.l    #$00,AmberLength
  1818.         beq    LStat2
  1819.         move.l    gfxbase(pc),a6
  1820.         move.l    ViewPort(pc),a0
  1821.         move.l    #6,d0
  1822.         move.l    #$f,d1
  1823.         move.l    #$a,d2
  1824.         move.l    #$0,d3
  1825.         jsr    SetRGB4(a6)
  1826.  
  1827.         move.l    ViewPort(pc),a0
  1828.         move.l    #4,d0
  1829.         move.l    #$a,d1
  1830.         move.l    #$a,d2
  1831.         move.l    #$a,d3
  1832.         jsr    SetRGB4(a6)
  1833.         move.l    ViewPort(pc),a0
  1834.         move.b    #$1,LStatus
  1835.         jmp    Window1IDCMP2
  1836.         
  1837. LStat2:        move.l    gfxbase(pc),a6
  1838.         cmp.b    #$01,SpritesXOn
  1839.         beq    LStat2.1
  1840.         lea.l    Sprite1(pc),a0
  1841.         jsr    RemVSprite(a6)
  1842.         lea.l    Sprite4(pc),a0
  1843.         jsr    RemVSprite(a6)
  1844.         lea.l    Sprite9(pc),a0
  1845.         jsr    RemVSprite(a6)
  1846.         lea.l    Sprite10(pc),a0
  1847.         jsr    RemVSprite(a6)
  1848.         lea.l    Sprite7(pc),a0
  1849.         move.l    RastPort1(pc),a1
  1850.         jsr    AddVSprite(a6)
  1851.         lea.l    Sprite8(pc),a0
  1852.         move.l    RastPort1(pc),a1
  1853.         jsr    AddVSprite(a6)
  1854.         lea.l    Sprite11(pc),a0
  1855.         move.l    RastPort1(pc),a1
  1856.         jsr    AddVSprite(a6)
  1857.         lea.l    Sprite12(pc),a0
  1858.         move.l    RastPort1(pc),a1
  1859.         jsr    AddVSprite(a6)
  1860.         move.b    #$01,SpritesXOn
  1861.  
  1862. LStat2.1:    move.l    ViewPort(pc),a0
  1863.         move.l    #6,d0
  1864.         move.l    #$a,d1
  1865.         move.l    #$a,d2
  1866.         move.l    #$a,d3
  1867.         jsr    SetRGB4(a6)
  1868.         move.l    ViewPort(pc),a0
  1869.         move.l    #4,d0
  1870.         move.l    #$a,d1
  1871.         jsr    SetRGB4(a6)
  1872.         move.l    ViewPort(pc),a0
  1873.         move.l    #5,d0
  1874.         move.l    #$a,d1
  1875.         jsr    SetRGB4(a6)
  1876.  
  1877.         move.l    ViewPort(pc),a0
  1878.         move.l    #3,d0
  1879.         move.l    #$0,d1
  1880.         move.l    #$f,d2
  1881.         move.l    #$0,d3
  1882.         jsr    SetRGB4(a6)
  1883.         move.l    ViewPort(pc),a0
  1884.         move.l    #7,d0
  1885.         move.l    #$f,d1
  1886.         move.l    #$0,d2
  1887.         move.l    #$0,d3
  1888.         jsr    SetRGB4(a6)
  1889.         move.b    #$2,LStatus
  1890.         jmp    Window1IDCMP2
  1891.  
  1892. LStat3:        cmp.l    #$00,AmberLength
  1893.         beq    LStat0
  1894.         move.l    gfxbase(pc),a6
  1895.         move.l    ViewPort(pc),a0
  1896.         move.l    #6,d0
  1897.         move.l    #$f,d1
  1898.         move.l    #$a,d2
  1899.         move.l    #$0,d3
  1900.         jsr    SetRGB4(a6)
  1901.         move.l    ViewPort(pc),a0
  1902.         move.l    #3,d0
  1903.         move.l    #$a,d1
  1904.         move.l    #$a,d2
  1905.         move.l    #$a,d3
  1906.         jsr    SetRGB4(a6)
  1907.         move.b    #$3,LStatus
  1908.         jmp    Window1IDCMP2
  1909.  
  1910. GetRandom:    move.l    TimeReq(pc),a0
  1911.         move.b    #NT_MESSAGE,$8(a0)
  1912.         move.b    #$00,$9(a0)
  1913.         move.l    #$00,$a(a0)
  1914.         move.l    TPort(pc),$e(a0)
  1915.         move.w    #TR_GETSYSTIME,$1c(a0)
  1916.         
  1917.         move.l    $4,a6
  1918.         move.l    TimeReq(pc),a1
  1919.         jsr    DoIO(a6)
  1920.         
  1921.         move.l    TimeReq(pc),a0
  1922.         move.l    TrafficMode(pc),d1
  1923.         move.l    $24(a0),d0
  1924.         ror.l    #$8,d0
  1925.         ror.l    d1,d0
  1926.         move.l    #$00,d1
  1927.         move.b    d0,d1
  1928.         cmp.l    #$64,d1
  1929.         bhi    GetRandom
  1930.         move.l    #$00,DStream2
  1931.         move.b    d1,DStream2+3
  1932.         move.l    DStream2(pc),d5
  1933.         rts
  1934.  
  1935. GetRandom2:    move.l    TimeReq(pc),a0
  1936.         move.b    #NT_MESSAGE,$8(a0)
  1937.         move.b    #$00,$9(a0)
  1938.         move.l    #$00,$a(a0)
  1939.         move.l    TPort(pc),$e(a0)
  1940.         move.w    #TR_GETSYSTIME,$1c(a0)
  1941.         
  1942.         move.l    $4,a6
  1943.         move.l    TimeReq(pc),a1
  1944.         jsr    DoIO(a6)
  1945.         
  1946.         move.l    TimeReq(pc),a0
  1947.         move.l    $24(a0),d0
  1948.         ror.l    #$8,d0
  1949.         ror.l    #$2,d0
  1950.         move.l    #$00,d1
  1951.         move.b    d0,d1
  1952.         cmp.l    #$64,d1
  1953.         bhi    GetRandom
  1954.         move.l    #$00,DStream2
  1955.         move.b    d1,DStream2+3
  1956.         move.l    DStream2(pc),d5
  1957.         rts
  1958.  
  1959. YLightsGreen:    cmp.b    #$00,LStatus
  1960.         bne    YBatchOut
  1961.         lea.l    Sprite1(pc),a2
  1962.         cmp.l    #$00,$3a(a2)
  1963.         bne    YBatch2
  1964. YBatch1:    cmp.w    #$00,Amount1
  1965.         beq    YBatch2
  1966.         jsr    GetRandom2
  1967.         cmp.l    T7(pc),d5    ;if turns left
  1968.         bcs    YBatch1Right
  1969.         sub.l    T7(pc),d5
  1970.         cmp.l    T8(pc),d5    ;if turns right
  1971.         bcs    YBatch1Left
  1972. YBatch1Stra:    move.b    #1,$3a(a2)
  1973.         sub.w    #$01,Amount1
  1974.         jsr    CarCome1
  1975.         jmp    YBatch2
  1976. YBatch1Right:    move.b    #2,$3a(a2)
  1977.         sub.w    #$01,Amount1
  1978.         jsr    CarCome1
  1979.         jmp    YBatch2
  1980. YBatch1Left:    move.b    #3,$3a(a2)
  1981.         sub.w    #$01,Amount1
  1982.         jsr    CarCome1
  1983. YBatch2:    lea.l    Sprite4(pc),a2
  1984.         cmp.l    #$00,$3a(a2)
  1985.         bne    YBatch5
  1986.         cmp.w    #$00,Amount2
  1987.         beq    YBatch5
  1988.         jsr    GetRandom2
  1989.         cmp.l    T10(pc),d5    ;if turns left
  1990.         bcs    YBatch2Right
  1991.         sub.l    T10(pc),d5
  1992.         cmp.l    T11(pc),d5    ;if turns right
  1993.         bcs    YBatch2Left
  1994. YBatch2Stra:    move.b    #4,$3a(a2)
  1995.         sub.w    #1,Amount2
  1996.         jsr    CarCome2
  1997.         jmp    YBatch5
  1998. YBatch2Right:    move.b    #5,$3a(a2)
  1999.         sub.w    #1,Amount2
  2000.         jsr    CarCome2
  2001.         jmp    YBatch5
  2002. YBatch2Left:    move.b    #6,$3a(a2)
  2003.         sub.w    #1,Amount2
  2004.         jsr    CarCome2
  2005. YBatch5:    lea.l    Sprite9(pc),a2
  2006.         cmp.l    #$00,$3a(a2)
  2007.         bne    YBatch6
  2008.         cmp.w    #$00,Amount5
  2009.         beq    YBatch6
  2010.         jsr    GetRandom2
  2011.         cmp.l    T46(pc),d5    ;if turns left
  2012.         bcs    YBatch5Right
  2013.         sub.l    T46(pc),d5
  2014.         cmp.l    T47(pc),d5    ;if turns right
  2015.         bcs    YBatch5Left
  2016. YBatch5Stra:    move.b    #7,$3a(a2)
  2017.         sub.w    #1,Amount5
  2018.         jsr    CarCome5
  2019.         jmp    YBatch6
  2020. YBatch5Right:    move.b    #8,$3a(a2)
  2021.         sub.w    #1,Amount5
  2022.         jsr    CarCome5
  2023.         jmp    YBatch6
  2024. YBatch5Left:    move.b    #9,$3a(a2)
  2025.         sub.w    #1,Amount5
  2026.         jsr    CarCome5
  2027. YBatch6:    lea.l    Sprite10(pc),a2
  2028.         cmp.l    #$00,$3a(a2)
  2029.         bne    YBatch15
  2030.         cmp.w    #$00,Amount6
  2031.         beq    YBatch15
  2032.         jsr    GetRandom2
  2033.         cmp.l    T43(pc),d5    ;if turns left
  2034.         bcs    YBatch6Right
  2035.         sub.l    T43(pc),d5
  2036.         cmp.l    T44(pc),d5    ;if turns right
  2037.         bcs    YBatch6Left
  2038. YBatch6Stra:    move.b    #10,$3a(a2)
  2039.         sub.w    #1,Amount6
  2040.         jsr    CarCome6
  2041.         jmp    YBatch15
  2042. YBatch6Right:    move.b    #11,$3a(a2)
  2043.         sub.w    #1,Amount6
  2044.         jsr    CarCome6
  2045.         jmp    YBatch15
  2046. YBatch6Left:    move.b    #12,$3a(a2)
  2047.         sub.w    #1,Amount6
  2048.         jsr    CarCome6
  2049. YBatch15:    lea.l    Sprite24(pc),a2
  2050.         cmp.l    #$00,$3a(a2)
  2051.         beq    YBatch15.1
  2052.         add.l    #$3e,a2
  2053.         cmp.l    #$00,$3a(a2)
  2054.         bne    YBatch16
  2055. YBatch15.1:    cmp.w    #$00,Amount15
  2056.         beq    YBatch16
  2057.         jsr    GetRandom2
  2058.         cmp.l    T31(pc),d5    ;if turns left
  2059.         bcs    YBatch15Right
  2060.         sub.l    T31(pc),d5
  2061.         cmp.l    T32(pc),d5    ;if turns right
  2062.         bcs    YBatch15Left
  2063. YBatch15Stra:    move.b    #19,$3a(a2)
  2064.         sub.w    #1,Amount15
  2065.         jsr    CarCome15
  2066.         jmp    YBatch16
  2067. YBatch15Right:    move.b    #20,$3a(a2)
  2068.         sub.w    #1,Amount15
  2069.         jsr    CarCome15
  2070.         jmp    YBatch16
  2071. YBatch15Left:    move.b    #21,$3a(a2)
  2072.         sub.w    #1,Amount15
  2073.         jsr    CarCome15
  2074. YBatch16:    lea.l    Sprite26(pc),a2
  2075.         cmp.l    #$00,$3a(a2)
  2076.         beq    YBatch16.1
  2077.         add.l    #$3e,a2
  2078.         cmp.l    #$00,$3a(a2)
  2079.         bne    YBatch11
  2080. YBatch16.1:    cmp.w    #$00,Amount16
  2081.         beq    YBatch11
  2082.         jsr    GetRandom2
  2083.         cmp.l    T19(pc),d5    ;if turns left
  2084.         bcs    YBatch16Right
  2085.         sub.l    T19(pc),d5
  2086.         cmp.l    T20(pc),d5    ;if turns right
  2087.         bcs    YBatch16Left
  2088. YBatch16Stra:    move.b    #13,$3a(a2)
  2089.         sub.w    #1,Amount16
  2090.         jsr    CarCome16
  2091.         jmp    YBatch11
  2092. YBatch16Right:    move.b    #14,$3a(a2)
  2093.         sub.w    #1,Amount16
  2094.         jsr    CarCome16
  2095.         jmp    YBatch11
  2096. YBatch16Left:    move.b    #15,$3a(a2)
  2097.         sub.w    #1,Amount16
  2098.         jsr    CarCome16
  2099. YBatch11:    lea.l    Sprite16(pc),a2
  2100.         cmp.l    #$00,$3a(a2)
  2101.         beq    YBatch11.1
  2102.         add.l    #$3e,a2
  2103.         cmp.l    #$00,$3a(a2)
  2104.         bne    YBatch12
  2105. YBatch11.1:    cmp.w    #$00,Amount12
  2106.         beq    YBatch12
  2107.         jsr    GetRandom2
  2108.         cmp.l    T22(pc),d5    ;if turns left
  2109.         bcs    YBatch11Right
  2110.         sub.l    T22(pc),d5
  2111.         cmp.l    T23(pc),d5    ;if turns right
  2112.         bcs    YBatch11Left
  2113. YBatch11Stra:    move.b    #16,$3a(a2)
  2114.         sub.w    #1,Amount12
  2115.         jsr    CarCome12
  2116.         jmp    YBatch12
  2117. YBatch11Right:    move.b    #17,$3a(a2)
  2118.         sub.w    #1,Amount12
  2119.         jsr    CarCome12
  2120.         jmp    YBatch12
  2121. YBatch11Left:    move.b    #18,$3a(a2)
  2122.         sub.w    #1,Amount12
  2123.         jsr    CarCome12
  2124. YBatch12:    lea.l    Sprite18(pc),a2
  2125.         cmp.l    #$00,$3a(a2)
  2126.         beq    YBatch12.1
  2127.         add.l    #$3e,a2
  2128.         cmp.l    #$00,$3a(a2)
  2129.         bne    YBatchOut
  2130. YBatch12.1:    cmp.w    #$00,Amount11
  2131.         beq    YBatchOut
  2132.         jsr    GetRandom2
  2133.         cmp.l    T34(pc),d5    ;if turns left
  2134.         bcs    YBatch12Right
  2135.         sub.l    T34(pc),d5
  2136.         cmp.l    T35(pc),d5    ;if turns right
  2137.         bcs    YBatch12Left
  2138. YBatch12Stra:    move.b    #22,$3a(a2)
  2139.         sub.w    #1,Amount11
  2140.         jsr    CarCome11
  2141.         jmp    YBatchOut
  2142. YBatch12Right:    move.b    #23,$3a(a2)
  2143.         sub.w    #1,Amount11
  2144.         jsr    CarCome11
  2145.         jmp    YBatchOut
  2146. YBatch12Left:    move.b    #24,$3a(a2)
  2147.         sub.w    #1,Amount11
  2148.         jsr    CarCome11
  2149. YBatchOut:    rts
  2150.  
  2151. XLightsGreen:    cmp.b    #$02,LStatus
  2152.         bne    XBatchOut
  2153. XBatch3:    lea.l    Sprite7(pc),a2
  2154.         cmp.l    #$00,$3a(a2)
  2155.         bne    XBatch4
  2156.         cmp.w    #$00,Amount3
  2157.         beq    XBatch4
  2158.         jsr    GetRandom2
  2159.         cmp.l    T16(pc),d5    ;if turns left
  2160.         bcs    XBatch3Right
  2161.         sub.l    T16(pc),d5
  2162.         cmp.l    T17(pc),d5    ;if turns right
  2163.         bcs    XBatch3Left
  2164. XBatch3Stra:    move.b    #43,$3a(a2)
  2165.         sub.w    #1,Amount3
  2166.         jsr    CarCome3
  2167.         jmp    XBatch4
  2168. XBatch3Right:    move.b    #44,$3a(a2)
  2169.         sub.w    #1,Amount3
  2170.         jsr    CarCome3
  2171.         jmp    XBatch4
  2172. XBatch3Left:    move.b    #45,$3a(a2)
  2173.         sub.w    #1,Amount3
  2174.         jsr    CarCome3
  2175. XBatch4:    lea.l    Sprite8(pc),a2
  2176.         cmp.l    #$00,$3a(a2)
  2177.         bne    XBatch7
  2178.         cmp.w    #$00,Amount4
  2179.         beq    XBatch7
  2180.         jsr    GetRandom2
  2181.         cmp.l    T40(pc),d5    ;if turns left
  2182.         bcs    XBatch4Right
  2183.         sub.l    T40(pc),d5
  2184.         cmp.l    T41(pc),d5    ;if turns right
  2185.         bcs    XBatch4Left
  2186. XBatch4Stra:    move.b    #46,$3a(a2)
  2187.         sub.w    #1,Amount4
  2188.         jsr    CarCome4
  2189.         jmp    XBatch7
  2190. XBatch4Right:    move.b    #47,$3a(a2)
  2191.         sub.w    #1,Amount4
  2192.         jsr    CarCome4
  2193.         jmp    XBatch7
  2194. XBatch4Left:    move.b    #48,$3a(a2)
  2195.         sub.w    #1,Amount4
  2196.         jsr    CarCome4
  2197. XBatch7:    lea.l    Sprite11(pc),a2
  2198.         cmp.l    #$00,$3a(a2)
  2199.         bne    XBatch8
  2200.         cmp.w    #$00,Amount7
  2201.         beq    XBatch8
  2202.         jsr    GetRandom2
  2203.         cmp.l    T28(pc),d5    ;if turns left
  2204.         bcs    XBatch7Right
  2205.         sub.l    T29(pc),d5
  2206.         cmp.l    T30(pc),d5    ;if turns right
  2207.         bcs    XBatch7Left
  2208. XBatch7Stra:    move.b    #46,$3a(a2)
  2209.         sub.w    #1,Amount7
  2210.         jsr    CarCome7
  2211.         jmp    XBatch8
  2212. XBatch7Right:    move.b    #47,$3a(a2)
  2213.         sub.w    #1,Amount7
  2214.         jsr    CarCome7
  2215.         jmp    XBatch8
  2216. XBatch7Left:    move.b    #48,$3a(a2)
  2217.         sub.w    #1,Amount7
  2218.         jsr    CarCome7
  2219. XBatch8:    lea.l    Sprite12(pc),a2
  2220.         cmp.l    #$00,$3a(a2)
  2221.         bne    XBatch9
  2222.         cmp.w    #$00,Amount8
  2223.         beq    XBatch9
  2224.         jsr    GetRandom2
  2225.         cmp.l    T1(pc),d5    ;if turns left
  2226.         bcs    XBatch8Right
  2227.         sub.l    T1(pc),d5
  2228.         cmp.l    T2(pc),d5    ;if turns right
  2229.         bcs    XBatch8Left
  2230. XBatch8Stra:    move.b    #26,$3a(a2)
  2231.         sub.w    #1,Amount8
  2232.         jsr    CarCome8
  2233.         jmp    XBatch9
  2234. XBatch8Right:    move.b    #27,$3a(a2)
  2235.         sub.w    #1,Amount8
  2236.         jsr    CarCome8
  2237.         jmp    XBatch9
  2238. XBatch8Left:    move.b    #28,$3a(a2)
  2239.         sub.w    #1,Amount8
  2240.         jsr    CarCome8
  2241. XBatch9:    lea.l    Sprite13(pc),a2
  2242.         cmp.l    #$00,$3a(a2)
  2243.         bne    XBatch10
  2244.         cmp.w    #$00,Amount9
  2245.         beq    XBatch10
  2246.         jsr    GetRandom2
  2247.         cmp.l    T13(pc),d5    ;if turns left
  2248.         bcs    XBatch9Right
  2249.         sub.l    T13(pc),d5
  2250.         cmp.l    T14(pc),d5    ;if turns right
  2251.         bcs    XBatch9Left
  2252. XBatch9Stra:    move.b    #26,$3a(a2)
  2253.         sub.w    #1,Amount9
  2254.         jsr    CarCome9
  2255.         jmp    XBatch10
  2256. XBatch9Right:    move.b    #27,$3a(a2)
  2257.         sub.w    #1,Amount9
  2258.         jsr    CarCome9
  2259.         jmp    XBatch10
  2260. XBatch9Left:    move.b    #28,$3a(a2)
  2261.         sub.w    #1,Amount9
  2262.         jsr    CarCome9
  2263. XBatch10:    lea.l    Sprite14(pc),a2
  2264.         cmp.l    #$00,$3a(a2)
  2265.         beq    XBatch10.1
  2266.         add.l    #$3e,a2
  2267.         cmp.l    #$00,$3a(a2)
  2268.         bne    XBatch13
  2269. XBatch10.1:    cmp.w    #$00,Amount10
  2270.         beq    XBatch13
  2271.         jsr    GetRandom2
  2272.         cmp.l    T4(pc),d5    ;if turns left
  2273.         bcs    XBatch10Right
  2274.         sub.l    T4(pc),d5
  2275.         cmp.l    T5(pc),d5    ;if turns right
  2276.         bcs    XBatch10Left
  2277. XBatch10Stra:    move.b    #31,$3a(a2)
  2278.         sub.w    #1,Amount10
  2279.         jsr    CarCome10
  2280.         jmp    XBatch13
  2281. XBatch10Right:    move.b    #32,$3a(a2)
  2282.         sub.w    #1,Amount10
  2283.         jsr    CarCome10
  2284.         jmp    XBatch13
  2285. XBatch10Left:    move.b    #33,$3a(a2)
  2286.         sub.w    #1,Amount10
  2287.         jsr    CarCome10
  2288. XBatch13:    lea.l    Sprite20(pc),a2
  2289.         cmp.l    #$00,$3a(a2)
  2290.         beq    XBatch13.1
  2291.         add.l    #$3e,a2
  2292.         cmp.l    #$00,$3a(a2)
  2293.         bne    XBatch14
  2294. XBatch13.1:    cmp.w    #$00,Amount13
  2295.         beq    XBatch14
  2296.         jsr    GetRandom2
  2297.         cmp.l    T28(pc),d5    ;if turns left
  2298.         bcs    XBatch13Right
  2299.         sub.l    T28(pc),d5
  2300.         cmp.l    T29(pc),d5    ;if turns right
  2301.         bcs    XBatch13Left
  2302. XBatch13Stra:    move.b    #34,$3a(a2)
  2303.         sub.w    #1,Amount13
  2304.         jsr    CarCome13
  2305.         jmp    XBatch14
  2306. XBatch13Right:    move.b    #35,$3a(a2)
  2307.         sub.w    #1,Amount13
  2308.         jsr    CarCome13
  2309.         jmp    XBatch14
  2310. XBatch13Left:    move.b    #36,$3a(a2)
  2311.         sub.w    #1,Amount13
  2312.         jsr    CarCome13
  2313. XBatch14:    lea.l    Sprite22(pc),a2
  2314.         cmp.l    #$00,$3a(a2)
  2315.         beq    XBatch14.1
  2316.         add.l    #$3e,a2
  2317.         cmp.l    #$00,$3a(a2)
  2318.         bne    XBatchOut
  2319. XBatch14.1:    cmp.w    #$00,Amount13
  2320.         beq    XBatchOut
  2321.         jsr    GetRandom2
  2322.         cmp.l    T37(pc),d5    ;if turns left
  2323.         bcs    XBatch14Right
  2324.         sub.l    T37(pc),d5
  2325.         cmp.l    T38(pc),d5    ;if turns right
  2326.         bcs    XBatch14Left
  2327. XBatch14Stra:    move.b    #34,$3a(a2)
  2328.         sub.w    #1,Amount14
  2329.         jsr    CarCome14
  2330.         jmp    XBatchOut
  2331. XBatch14Right:    move.b    #35,$3a(a2)
  2332.         sub.w    #1,Amount14
  2333.         jsr    CarCome14
  2334.         jmp    XBatchOut
  2335. XBatch14Left:    move.b    #36,$3a(a2)
  2336.         sub.w    #1,Amount14
  2337.         jsr    CarCome14
  2338. XBatchOut:    rts
  2339.  
  2340. InitCars:    lea.l    Sprite1(pc),a2
  2341.         lea.l    Sprite27(pc),a3
  2342.         add.l    #$3e,a3
  2343. InitCars1:    move.l    #$00,$3a(a2)    ;Clear Current & Destination
  2344.         add.l    #$3e,a2
  2345.         cmp.l    a2,a3
  2346.         bne    InitCars1
  2347.  
  2348. ;Batch 1
  2349.  
  2350.         lea.l    TLIntData(pc),a1
  2351.         lea.l    Sprite1(pc),a2
  2352.         move.w    DTJY(pc),$16(a2)
  2353.         move.w    J1XL(pc),$18(a2)
  2354.         move.l    $50(a1),$24(a2)
  2355.  
  2356. ;Batch 2
  2357.  
  2358.         lea.l    Sprite4(pc),a2        ;Sprite4
  2359.         move.w    DTJY(pc),$16(a2)
  2360.         move.w    J2XL(pc),$18(a2)
  2361.         move.l    $50(a1),$24(a2)
  2362.  
  2363. ;Batch 3
  2364.  
  2365.         lea.l    Sprite7(pc),a2
  2366.         move.w    J1YT(pc),$16(a2)
  2367.         move.w    DRJX(pc),$18(a2)
  2368.         move.l    $58(a1),$24(a2)
  2369.  
  2370. ;Batch 4
  2371.  
  2372.         lea.l    Sprite8(pc),a2
  2373.         move.w    J2YT(pc),$16(a2)
  2374.         move.w    DRJX(pc),$18(a2)
  2375.         move.l    $58(a1),$24(a2)
  2376.  
  2377. ;Batch 5
  2378.  
  2379.         lea.l    Sprite9(pc),a2
  2380.         move.w    DBJY(pc),$16(a2)
  2381.         move.w    J2XR(pc),$18(a2)
  2382.         move.l    $4c(a1),$24(a2)
  2383.  
  2384. ;Batch 6
  2385.  
  2386.         lea.l    Sprite10(pc),a2
  2387.         move.w    DBJY(pc),$16(a2)
  2388.         move.w    J1XR(pc),$18(a2)
  2389.         move.l    $4c(a1),$24(a2)
  2390.  
  2391. ;Batch 7
  2392.  
  2393.         lea.l    Sprite11(pc),a2
  2394.         move.w    J2YB(pc),$16(a2)
  2395.         move.w    DLJX(pc),$18(a2)
  2396.         move.l    $54(a1),$24(a2)
  2397.  
  2398. ;Batch 8
  2399.  
  2400.         lea.l    Sprite12(pc),a2
  2401.         move.w    J1YB(pc),$16(a2)
  2402.         move.w    DLJX(pc),$18(a2)
  2403.         move.l    $54(a1),$24(a2)
  2404.  
  2405. ;Batch 9
  2406.  
  2407.         lea.l    Sprite13(pc),a2
  2408.         move.w    J1YT(pc),$16(a2)
  2409.         move.w    FRJX(pc),$18(a2)
  2410.         move.l    $58(a1),$24(a2)
  2411.  
  2412. ;Batch 10
  2413.  
  2414.         lea.l    Sprite14(pc),a2
  2415.         move.w    J1YB(pc),$16(a2)
  2416.         move.w    FLJX(pc),$18(a2)
  2417.         move.l    $54(a1),$24(a2)
  2418.         lea.l    Sprite15(pc),a2
  2419.         move.w    J1YB(pc),$16(a2)
  2420.         move.w    FLJX(pc),$18(a2)
  2421.         move.l    $54(a1),$24(a2)
  2422.  
  2423. ;Batch 11
  2424.  
  2425.         lea.l    Sprite16(pc),a2
  2426.         move.w    FBJY(pc),$16(a2)
  2427.         move.w    J2XR(pc),$18(a2)
  2428.         move.l    $4c(a1),$24(a2)
  2429.         lea.l    Sprite17(pc),a2
  2430.         move.w    FBJY(pc),$16(a2)
  2431.         move.w    J2XR(pc),$18(a2)
  2432.         move.l    $4c(a1),$24(a2)
  2433.  
  2434. ;Batch 12
  2435.  
  2436.         lea.l    Sprite18(pc),a2
  2437.         move.w    FTJY(pc),$16(a2)
  2438.         move.w    J2XL(pc),$18(a2)
  2439.         move.l    $58(a1),$24(a2)
  2440.         lea.l    Sprite19(pc),a2
  2441.         move.w    FTJY(pc),$16(a2)
  2442.         move.w    J2XL(pc),$18(a2)
  2443.         move.l    $50(a1),$24(a2)
  2444.  
  2445. ;Batch 13
  2446.  
  2447.         lea.l    Sprite20(pc),a2
  2448.         move.w    FLJX(pc),$16(a2)
  2449.         move.w    J1XR(pc),$18(a2)
  2450.         move.l    $54(a1),$24(a2)
  2451.         lea.l    Sprite21(pc),a2
  2452.         move.w    FLJX(pc),$16(a2)
  2453.         move.w    J1XR(pc),$18(a2)
  2454.         move.l    $54(a1),$24(a2)
  2455.  
  2456. ;Batch 14
  2457.  
  2458.         lea.l    Sprite22(pc),a2
  2459.         move.w    FRJX(pc),$16(a2)
  2460.         move.w    J1XR(pc),$18(a2)
  2461.         move.l    $58(a1),$24(a2)
  2462.         lea.l    Sprite23(pc),a2
  2463.         move.w    FRJX(pc),$16(a2)
  2464.         move.w    J1XR(pc),$18(a2)
  2465.         move.l    $58(a1),$24(a2)
  2466.  
  2467. ;Batch 15
  2468.  
  2469.         lea.l    Sprite24(pc),a2
  2470.         move.w    FTJY(pc),$16(a2)
  2471.         move.w    J1XL(pc),$18(a2)
  2472.         move.l    $50(a1),$24(a2)
  2473.         lea.l    Sprite25(pc),a2
  2474.         move.w    FTJY(pc),$16(a2)
  2475.         move.w    J1XL(pc),$18(a2)
  2476.         move.l    $50(a1),$24(a2)
  2477.  
  2478. ;Batch 16
  2479.  
  2480.         lea.l    Sprite26(pc),a2
  2481.         move.w    FBJY(pc),$16(a2)
  2482.         move.w    J1XR(pc),$18(a2)
  2483.         move.l    $4c(a1),$24(a2)
  2484.         lea.l    Sprite27(pc),a2
  2485.         move.w    FBJY(pc),$16(a2)
  2486.         move.w    J1XR(pc),$18(a2)
  2487.         move.l    $4c(a1),$24(a2)
  2488.  
  2489.  
  2490. DrawSprites:    move.l    gfxbase(pc),a6
  2491.         lea.l    DummyHead(pc),a0
  2492.         lea.l    DummyTail(pc),a1
  2493.         lea.l    GelsInfo(pc),a2        
  2494.         move.l    RastPort1(pc),a3
  2495.         move.l    a2,$14(a3)
  2496.         jsr    InitGels(a6)
  2497.  
  2498. ;Batch 1
  2499.  
  2500.         lea.l    Sprite1(pc),a0
  2501.         jsr    InitMasks(a6)
  2502.  
  2503. ;Batch 2
  2504.  
  2505.         lea.l    Sprite4(pc),a0
  2506.         jsr    InitMasks(a6)
  2507.  
  2508. ;Batch 3
  2509.  
  2510.         lea.l    Sprite7(pc),a0
  2511.         jsr    InitMasks(a6)
  2512.  
  2513. ;Batch 4
  2514.  
  2515.         lea.l    Sprite8(pc),a0
  2516.         jsr    InitMasks(a6)
  2517. ;Batch 5
  2518.  
  2519.         lea.l    Sprite9(pc),a0
  2520.         jsr    InitMasks(a6)
  2521.  
  2522. ;Batch 6
  2523.  
  2524.         lea.l    Sprite10(pc),a0
  2525.         jsr    InitMasks(a6)
  2526. ;Batch 7
  2527.  
  2528.         lea.l    Sprite11(pc),a0
  2529.         jsr    InitMasks(a6)
  2530.  
  2531. ;Batch 8
  2532.  
  2533.         lea.l    Sprite12(pc),a0
  2534.         jsr    InitMasks(a6)
  2535.  
  2536. ;Batch 9
  2537.  
  2538.         lea.l    Sprite13(pc),a0
  2539.         jsr    InitMasks(a6)
  2540.         lea.l    Sprite13(pc),a0
  2541.         move.l    RastPort1(pc),a1
  2542.         jsr    AddVSprite(a6)
  2543.  
  2544. ;Batch 10
  2545.  
  2546.         lea.l    Sprite14(pc),a0
  2547.         jsr    InitMasks(a6)
  2548.         lea.l    Sprite14(pc),a0
  2549.         move.l    RastPort1(pc),a1
  2550.         jsr    AddVSprite(a6)
  2551.         lea.l    Sprite15(pc),a0
  2552.         jsr    InitMasks(a6)
  2553.         lea.l    Sprite15(pc),a0
  2554.         move.l    RastPort1(pc),a1
  2555.         jsr    AddVSprite(a6)
  2556.  
  2557. ;Batch 11
  2558.  
  2559.         lea.l    Sprite16(pc),a0
  2560.         jsr    InitMasks(a6)
  2561.         lea.l    Sprite16(pc),a0
  2562.         move.l    RastPort1(pc),a1
  2563.         jsr    AddVSprite(a6)
  2564.         lea.l    Sprite17(pc),a0
  2565.         jsr    InitMasks(a6)
  2566.         lea.l    Sprite17(pc),a0
  2567.         move.l    RastPort1(pc),a1
  2568.         jsr    AddVSprite(a6)
  2569.  
  2570. ;Batch 12
  2571.  
  2572.         lea.l    Sprite18(pc),a0
  2573.         jsr    InitMasks(a6)
  2574.         lea.l    Sprite18(pc),a0
  2575.         move.l    RastPort1(pc),a1
  2576.         jsr    AddVSprite(a6)
  2577.         lea.l    Sprite19(pc),a0
  2578.         jsr    InitMasks(a6)
  2579.         lea.l    Sprite19(pc),a0
  2580.         move.l    RastPort1(pc),a1
  2581.         jsr    AddVSprite(a6)
  2582.  
  2583. ;Batch 13
  2584.  
  2585. ;        lea.l    Sprite20(pc),a0
  2586. ;        jsr    InitMasks(a6)
  2587. ;        lea.l    Sprite20(pc),a0
  2588. ;        move.l    RastPort1(pc),a1
  2589. ;        jsr    AddVSprite(a6)
  2590. ;        lea.l    Sprite21(pc),a0
  2591. ;        jsr    InitMasks(a6)
  2592. ;        lea.l    Sprite21(pc),a0
  2593. ;        move.l    RastPort1(pc),a1
  2594. ;        jsr    AddVSprite(a6)
  2595.  
  2596. ;Batch 14
  2597.  
  2598. ;        lea.l    Sprite22(pc),a0
  2599. ;        jsr    InitMasks(a6)
  2600. ;        lea.l    Sprite22(pc),a0
  2601. ;        move.l    RastPort1(pc),a1
  2602. ;        jsr    AddVSprite(a6)
  2603. ;        lea.l    Sprite23(pc),a0
  2604. ;        jsr    InitMasks(a6)
  2605. ;        lea.l    Sprite23(pc),a0
  2606. ;        move.l    RastPort1(pc),a1
  2607. ;        jsr    AddVSprite(a6)
  2608.  
  2609. ;Batch 15
  2610.  
  2611.         lea.l    Sprite24(pc),a0
  2612.         jsr    InitMasks(a6)
  2613.         lea.l    Sprite24(pc),a0
  2614.         move.l    RastPort1(pc),a1
  2615.         jsr    AddVSprite(a6)
  2616.         lea.l    Sprite25(pc),a0
  2617.         jsr    InitMasks(a6)
  2618.         lea.l    Sprite25(pc),a0
  2619.         move.l    RastPort1(pc),a1
  2620.         jsr    AddVSprite(a6)
  2621.  
  2622. ;Batch 16
  2623.  
  2624.         lea.l    Sprite26(pc),a0
  2625.         jsr    InitMasks(a6)
  2626.         lea.l    Sprite26(pc),a0
  2627.         move.l    RastPort1(pc),a1
  2628.         jsr    AddVSprite(a6)
  2629.         lea.l    Sprite27(pc),a0
  2630.         jsr    InitMasks(a6)
  2631.         lea.l    Sprite27(pc),a0
  2632.         move.l    RastPort1(pc),a1
  2633.         jsr    AddVSprite(a6)
  2634.  
  2635.  
  2636. ;Add sprites 1, 2, 4, 5, 9, 10
  2637.  
  2638.         lea.l    Sprite1(pc),a0
  2639.         move.l    RastPort1(pc),a1
  2640.         jsr    AddVSprite(a6)
  2641.         lea.l    Sprite4(pc),a0
  2642.         move.l    RastPort1(pc),a1
  2643.         jsr    AddVSprite(a6)
  2644.         lea.l    Sprite9(pc),a0
  2645.         move.l    RastPort1(pc),a1
  2646.         jsr    AddVSprite(a6)
  2647.         lea.l    Sprite10(pc),a0
  2648.         move.l    RastPort1(pc),a1
  2649.         jsr    AddVSprite(a6)
  2650.         move.b    #$00,SpritesXOn
  2651.  
  2652. InitCars10:
  2653.  
  2654. ;Might as well draw the sprites too ?
  2655.  
  2656.         move.l    RastPort1(pc),a1
  2657.         jsr    SortGList(a6)
  2658.         move.l    ViewPort(pc),a0
  2659.         move.l    RastPort1(pc),a1
  2660.         jsr    DrawGList(a6)
  2661.  
  2662.         move.l    intbase(pc),a6
  2663.         jsr    RethinkDisplay(a6)
  2664.         rts
  2665.  
  2666. MenuNull:    move.l    d3,d6            ; 3         2         1
  2667.                         ;10987654321098765432109876543210
  2668.         ror.l    #5,d6            ;%0000000000000000000000000011111,d6
  2669.         lsr.l    #8,d6            ;%0000000000000000000000000011111,d6
  2670.         lsr.l    #8,d6
  2671.         lsr.l    #8,d6
  2672.         lsr.l    #3,d6
  2673.  
  2674.         move.l    d3,d5
  2675.  
  2676.         ror.l    #5,d5            ;%0000000000000000000011111100000,d5
  2677.         ror.l    #6,d5            ;%0000000000000000000000000111111,d5
  2678.         lsr.l    #8,d5
  2679.         lsr.l    #8,d5
  2680.         lsr.l    #8,d5
  2681.         lsr.l    #2,d5
  2682.                         ;SubItems
  2683.         move.l    #$00,d4
  2684.         move.w    d3,d4
  2685.         lsr.l    #5,d4            ;%0000000000000001111100000000000,d4
  2686.         lsr.l    #6,d4            ;%0000000000000000000000000011111,d5
  2687.         rts
  2688.  
  2689. Check2IDCMP:    move.l    $4,a6            ;made this a SubRoutine...
  2690.         move.l    $56(a0),a2        ;Give it the window structure in a0
  2691.         move.l    #0,d1
  2692.         move.b    $0f(a2),d1
  2693.         move.l    #0,d0
  2694.         bset.l    d1,d0
  2695.         jsr    Wait(a6)    
  2696.     
  2697. Get2Msg1:    move.l    a2,a0    
  2698.         jsr    GetMsg(a6)
  2699.         tst.l    d0
  2700.         beq    Get2Msg2
  2701.     
  2702.         move.l    d0,a1 
  2703.         move.l    $14(a1),d2        ;answers with Class in d2,
  2704.         move.w    $18(a1),d3        ;Code in d3 and
  2705.         move.w    $1a(a1),a4        ;Qualifier in a4
  2706.         move.l    $1c(a1),a5        ;IAddress in a5
  2707.         jsr    ReplyMsg(a6)
  2708.         jmp    Get2Msg1
  2709. Get2Msg2:    move.l    #-1,d0
  2710.         rts
  2711.  
  2712.  
  2713. Window2IDCMP:    move.l    Window2(pc),a0
  2714.         jsr    Check2IDCMP
  2715. PE.01:        cmp.l    #MENUPICK,d2
  2716.         beq    DoWin2Menus
  2717.         cmp.l    #RAWKEY,d2
  2718.         beq    Window2Keys
  2719.         jmp    Window2IDCMP
  2720.  
  2721. Window2Keys:    cmp.w    #$5f,d3
  2722.         bne    Window2Keys0
  2723.         jsr    Help
  2724. Window2Keys0:    jmp    Window2IDCMP
  2725. DoWin2Menus:    jsr    MenuNull
  2726.         cmp.l    #$01,d6        ;Change this if you want more menus
  2727. ;        beq    
  2728.         cmp.l    #$00,d6
  2729.         bne    IsMenu1.1
  2730.  
  2731.         cmp.l    #$00,d5
  2732.         beq    New
  2733. IsMenu1.0:    cmp.l    #$01,d5
  2734.         bne    IsMenu1.01
  2735.         jsr    Help
  2736.         jmp    MainLoop
  2737. IsMenu1.01:    cmp.l    #$02,d5
  2738.         bne    IsMenu1.02
  2739.         jsr    Load
  2740.         jmp    MainLoop
  2741. IsMenu1.02:    cmp.l    #$04,d5
  2742.         bne    IsMenu1.03
  2743.         jsr    SaveAs
  2744.         jmp    MainLoop
  2745. IsMenu1.03:    cmp.l    #$05,d5
  2746.         bne    IsMenu1.04
  2747.         jsr    About
  2748. IsMenu1.04:    cmp.l    #$06,d5
  2749.         beq    QuittingReq
  2750. IsMenu1.1    jmp    MainLoop
  2751.  
  2752. Help:        move.l    Window2(pc),a0
  2753.         move.l    #%100000,d0
  2754.         jsr    MenusOff
  2755.         lea.l    NewHelpWin1(pc),a0
  2756.         move.l    intbase(pc),a6
  2757.         jsr    OpenWindow(a6)
  2758.         tst.l    d0
  2759.         bne    Help1
  2760.         lea.l    NoHelpWin1(pc),a0
  2761.         jmp    ShowGuru
  2762. Help1:        move.l    d0,HelpWin1
  2763.         move.l    HelpWin1,a1
  2764.         move.l    $32(a1),a0
  2765.         lea.l    Help1Txt1,a1
  2766.         move.w    #$10,d0
  2767.         move.w    #$10,d1
  2768.         jsr    PrintIText(a6)
  2769.         move.w    #$00,HelpStatus
  2770. ;        move.l    Screen1,a0
  2771. ;        jsr    DisplayBeep(a6)
  2772. HelpWin1IDCMP:    move.l    HelpWin1(pc),a0
  2773.         jsr    Check2IDCMP
  2774.  
  2775.         cmp.l    #GADGETUP,d2
  2776.         beq    HelpWin1IDCMP2
  2777.         cmp.l    #CLOSEWINDOW,d2
  2778.         beq    HelpWin1IDCMP2
  2779.         cmp.l    #VANILLAKEY,d2
  2780.         bne    HelpWin1IDCMP
  2781.         cmp.w    #$1b,d3
  2782.         beq    HelpWin1IDCMP2
  2783.         cmp.w    #"y",d3
  2784.         beq    HelpWin1IDCMP3
  2785.         cmp.w    #"Y",d3
  2786.         beq    HelpWin1IDCMP3
  2787.         cmp.w    #"n",d3
  2788.         beq    HelpWin1IDCMP2
  2789.         cmp.w    #"N",d3
  2790.         beq    HelpWin1IDCMP2
  2791.         jmp    HelpWin1IDCMP
  2792.         
  2793. HelpWin1IDCMP1:    cmp.w    #$2,$26(a5)
  2794.         beq    HelpWin1IDCMP2
  2795.         cmp.w    #$3,$26(a5)
  2796.         bne    HelpWin1IDCMP
  2797. HelpWin1IDCMP2:    move.l    Window2(pc),a0
  2798.         move.l    #%100000,d0
  2799.         jsr    MenusOn
  2800.         move.l    HelpWin1(pc),a0
  2801.         jsr    ClearMSGs
  2802.         move.l    #0,HelpWin1
  2803.         rts        
  2804.  
  2805. HelpWin1IDCMP3:    move.l    HelpWin1(pc),a0
  2806.         jsr    ClearMSGs
  2807.         move.l    #0,HelpWin1
  2808.  
  2809.         lea.l    NewHelpWin1(pc),a0
  2810.         move.l    intbase(pc),a6
  2811.         jsr    OpenWindow(a6)
  2812.         tst.l    d0
  2813.         bne    HW3
  2814.         lea.l    NoHelpWin1(pc),a0
  2815.         jmp    ShowGuru
  2816.     
  2817. HW3:        move.l    d0,HelpWin1
  2818.         move.l    d0,a0
  2819.         move.l    $32(a0),a0
  2820.         cmp.w    #$01,HelpStatus
  2821.         beq    HW1I4
  2822.         move.w    #$01,HelpStatus
  2823.         lea.l    Help2Txt1,a1
  2824.         move.w    #$10,d0
  2825.         move.w    #$10,d1
  2826.         jsr    PrintIText(a6)
  2827.         jmp    HelpWin1IDCMP1
  2828. HW1I4:        move.w    #$00,HelpStatus
  2829.         lea.l    Help3Txt1,a1
  2830.         move.w    #$10,d0
  2831.         move.w    #$10,d1
  2832.         jsr    PrintIText(a6)
  2833.         jmp    HelpWin1IDCMP1
  2834.  
  2835. Load:        move.l    Window2(pc),a0
  2836.         move.l    #%1000000,d0
  2837.         jsr    MenusOff
  2838.         lea.l    LWWin1Name(pc),a5
  2839.         jsr    FReq
  2840.         tst.l    d0
  2841.         beq    LoadOut
  2842. ;        move.l    dosbase(pc),a6
  2843. ;        move.l    #MODE_OLDFILE,d2
  2844. ;        move.l    d0,d1
  2845. ;        jsr    Open(a6)
  2846. ;        move.l    d0,DiskFile1
  2847. ;        move.l    dosbase(pc),a6
  2848. ;        move.l    DiskFile1(pc),d1
  2849. ;        jsr    Close(a6)
  2850. LoadOut:    move.l    Window2(pc),a0
  2851.         move.l    #%1000000,d0
  2852.         jsr    MenusOn    
  2853.         rts
  2854.     
  2855. SaveAs:        move.l    Window2(pc),a0
  2856.         move.l    #%10000000,d0
  2857.         jsr    MenusOff
  2858.         lea.l    SWWin1Name(pc),a5
  2859.         jsr    FReq
  2860.         tst.l    d0
  2861.         beq    SaveAsOut
  2862. SaveAsOut:    move.l    Window2(pc),a0
  2863.         move.l    #%10000000,d0
  2864.         jsr    MenusOn
  2865.         rts
  2866.  
  2867. ColorLights:    move.l    gfxbase(pc),a6
  2868.         move.l    RastPort1(pc),a1
  2869.         move.l    #5,d0
  2870.         jsr    SetAPen(a6)
  2871.  
  2872.         move.l    #1,d2
  2873.         move.l    RastPort1(pc),a1
  2874.         move.l    #110,d0
  2875.         move.l    #16,d1
  2876.         jsr    Flood(a6)
  2877.  
  2878.         move.l    RastPort1(pc),a1
  2879.         move.l    #368,d0
  2880.         move.l    #16,d1
  2881.         jsr    Flood(a6)
  2882.  
  2883.         move.l    RastPort1(pc),a1
  2884.         move.l    #368,d0
  2885.         move.l    #64,d1
  2886.         jsr    Flood(a6)
  2887.  
  2888.         move.l    RastPort1(pc),a1
  2889.         move.l    #290,d0
  2890.         move.l    #92,d1
  2891.         jsr    Flood(a6)
  2892.         
  2893.         move.l    RastPort1(pc),a1
  2894.         move.l    #290,d0
  2895.         move.l    #43,d1
  2896.         jsr    Flood(a6)
  2897.         
  2898.         move.l    RastPort1(pc),a1
  2899.         move.l    #110,d0
  2900.         move.l    #64,d1
  2901.         jsr    Flood(a6)
  2902.  
  2903.         move.l    RastPort1(pc),a1
  2904.         move.l    #30,d0
  2905.         move.l    #92,d1
  2906.         jsr    Flood(a6)
  2907.  
  2908.         move.l    RastPort1(pc),a1
  2909.         move.l    #30,d0
  2910.         move.l    #43,d1
  2911.         jsr    Flood(a6)
  2912.  
  2913.         move.l    gfxbase(pc),a6
  2914.         move.l    RastPort1(pc),a1
  2915.         move.l    #6,d0
  2916.         jsr    SetAPen(a6)
  2917.  
  2918.         move.l    RastPort1(pc),a1
  2919.         move.l    #116,d0
  2920.         move.l    #16,d1
  2921.         jsr    Flood(a6)
  2922.  
  2923.         move.l    RastPort1(pc),a1
  2924.         move.l    #374,d0
  2925.         move.l    #16,d1
  2926.         jsr    Flood(a6)
  2927.         
  2928.         move.l    RastPort1(pc),a1
  2929.         move.l    #368,d0
  2930.         move.l    #47,d1
  2931.         jsr    Flood(a6)
  2932.  
  2933.         move.l    RastPort1(pc),a1
  2934.         move.l    #374,d0
  2935.         move.l    #64,d1
  2936.         jsr    Flood(a6)
  2937.  
  2938.         move.l    RastPort1(pc),a1
  2939.         move.l    #284,d0
  2940.         move.l    #92,d1
  2941.         jsr    Flood(a6)
  2942.         
  2943.         move.l    RastPort1(pc),a1
  2944.         move.l    #290,d0
  2945.         move.l    #60,d1
  2946.         jsr    Flood(a6)
  2947.  
  2948.         move.l    RastPort1(pc),a1
  2949.         move.l    #284,d0
  2950.         move.l    #43,d1
  2951.         jsr    Flood(a6)
  2952.         
  2953.         move.l    RastPort1(pc),a1
  2954.         move.l    #110,d0
  2955.         move.l    #47,d1
  2956.         jsr    Flood(a6)
  2957.  
  2958.         move.l    RastPort1(pc),a1
  2959.         move.l    #116,d0
  2960.         move.l    #64,d1
  2961.         jsr    Flood(a6)
  2962.  
  2963.         move.l    RastPort1(pc),a1
  2964.         move.l    #24,d0
  2965.         move.l    #92,d1
  2966.         jsr    Flood(a6)
  2967.  
  2968.         move.l    RastPort1(pc),a1
  2969.         move.l    #30,d0
  2970.         move.l    #60,d1
  2971.         jsr    Flood(a6)
  2972.  
  2973.         move.l    RastPort1(pc),a1
  2974.         move.l    #24,d0
  2975.         move.l    #43,d1
  2976.         jsr    Flood(a6)
  2977.  
  2978.         move.l    gfxbase(pc),a6
  2979.         move.l    RastPort1(pc),a1
  2980.         move.l    #4,d0
  2981.         jsr    SetAPen(a6)
  2982.         
  2983.         move.l    RastPort1(pc),a1
  2984.         move.l    #368,d0
  2985.         move.l    #51,d1
  2986.         jsr    Flood(a6)
  2987.         
  2988.         move.l    RastPort1(pc),a1
  2989.         move.l    #290,d0
  2990.         move.l    #56,d1
  2991.         jsr    Flood(a6)
  2992.  
  2993.         move.l    RastPort1(pc),a1
  2994.         move.l    #110,d0
  2995.         move.l    #51,d1
  2996.         jsr    Flood(a6)
  2997.  
  2998.         move.l    RastPort1(pc),a1
  2999.         move.l    #30,d0
  3000.         move.l    #56,d1
  3001.         jsr    Flood(a6)
  3002. ;    
  3003.         move.l    gfxbase(pc),a6
  3004.         move.l    RastPort1(pc),a1
  3005.         move.l    #7,d0
  3006.         jsr    SetAPen(a6)
  3007.  
  3008.         move.l    RastPort1(pc),a1
  3009.         move.l    #30,d0
  3010.         move.l    #16,d1
  3011.         move.l    #1,d2
  3012.         jsr    Flood(a6)
  3013.  
  3014.         move.l    RastPort1(pc),a1
  3015.         move.l    #290,d0
  3016.         move.l    #16,d1
  3017.         jsr    Flood(a6)
  3018.         
  3019.         move.l    RastPort1(pc),a1
  3020.         move.l    #368,d0
  3021.         move.l    #43,d1
  3022.         jsr    Flood(a6)
  3023.  
  3024.         move.l    RastPort1(pc),a1
  3025.         move.l    #368,d0
  3026.         move.l    #92,d1
  3027.         jsr    Flood(a6)
  3028.         
  3029.         move.l    RastPort1(pc),a1
  3030.         move.l    #290,d0
  3031.         move.l    #64,d1
  3032.         jsr    Flood(a6)
  3033.         
  3034.         move.l    RastPort1(pc),a1
  3035.         move.l    #110,d0
  3036.         move.l    #43,d1
  3037.         jsr    Flood(a6)
  3038.  
  3039.         move.l    RastPort1(pc),a1
  3040.         move.l    #110,d0
  3041.         move.l    #92,d1
  3042.         jsr    Flood(a6)
  3043.  
  3044.         move.l    RastPort1(pc),a1
  3045.         move.l    #30,d0
  3046.         move.l    #64,d1
  3047.         jsr    Flood(a6)
  3048. ;
  3049.         move.l    gfxbase(pc),a6
  3050.         move.l    RastPort1(pc),a1
  3051.         move.l    #3,d0
  3052.         jsr    SetAPen(a6)
  3053.  
  3054.         move.l    RastPort1(pc),a1
  3055.         move.l    #122,d0
  3056.         move.l    #16,d1
  3057.         jsr    Flood(a6)
  3058.  
  3059.         move.l    RastPort1(pc),a1
  3060.         move.l    #380,d0
  3061.         move.l    #16,d1
  3062.         jsr    Flood(a6)
  3063.  
  3064.         move.l    RastPort1(pc),a1
  3065.         move.l    #380,d0
  3066.         move.l    #64,d1
  3067.         jsr    Flood(a6)
  3068.  
  3069.         move.l    RastPort1(pc),a1
  3070.         move.l    #278,d0
  3071.         move.l    #92,d1
  3072.         jsr    Flood(a6)
  3073.  
  3074.         move.l    RastPort1(pc),a1
  3075.         move.l    #278,d0
  3076.         move.l    #43,d1
  3077.         jsr    Flood(a6)
  3078.  
  3079.         move.l    RastPort1(pc),a1
  3080.         move.l    #122,d0
  3081.         move.l    #64,d1
  3082.         jsr    Flood(a6)
  3083.  
  3084.         move.l    RastPort1(pc),a1
  3085.         move.l    #18,d0
  3086.         move.l    #92,d1
  3087.         jsr    Flood(a6)
  3088.  
  3089.         move.l    RastPort1(pc),a1
  3090.         move.l    #18,d0
  3091.         move.l    #43,d1
  3092.         jsr    Flood(a6)
  3093.         move.l    ViewPort(pc),a0
  3094.         rts
  3095.  
  3096. About:        move.l    Window2(pc),a0
  3097.         move.l    #%10100000,d0
  3098.         jsr    MenusOff
  3099.         lea.l    NewAbWindow1(pc),a0
  3100.         move.l    intbase(pc),a6
  3101.         jsr    OpenWindow(a6)
  3102.         tst.l    d0
  3103.         bne    About1
  3104.         lea.l    NoAbWin1(pc),a0
  3105.         jmp    ShowGuru
  3106. About1:        move.l    d0,AbWin1
  3107.  
  3108.         move.l    d0,a0
  3109.         move.l    $32(a0),AbRP
  3110.  
  3111.         move.l    gfxbase(pc),a6        ;Black Background
  3112.         move.l    AbRP(pc),a1
  3113.         move.l    #$02,d0
  3114.         jsr    SetRast(a6)
  3115.  
  3116.         move.l    intbase(pc),a6        ;Draw Gads again
  3117.         move.l    AbWin1(pc),a1
  3118.         lea.l    MGad1(pc),a0
  3119.         move.l    #$00,a2
  3120.         move.l    #-1,d0
  3121.         jsr    RefreshGList(a6)
  3122.  
  3123.         move.l    AbRP(pc),a0        ;Border
  3124.         lea.l    AbBorder1(pc),a1
  3125.         move.l    #$00,d0
  3126.         move.l    #$00,d1
  3127.         jsr    DrawBorder(a6)
  3128.  
  3129.         move.l    AbRP(pc),a0        ;Texts
  3130.         lea.l    AboutTxt1(pc),a1
  3131.         move.l    #$00,d0
  3132.         move.l    d0,d1
  3133.         jsr    PrintIText(a6)
  3134.  
  3135. About2:        move.l    AbWin1(pc),a0
  3136.         jsr    Check2IDCMP
  3137.         cmp.l    #GADGETUP,d2
  3138.         beq    AboutOut
  3139.         cmp.l    #VANILLAKEY,d2
  3140.         beq    AboutKeys
  3141.         jmp    About2
  3142.  
  3143. AboutKeys:    cmp.w    #$1b,d3
  3144.         beq    AboutOut
  3145.         cmp.w    #"y",d3
  3146.         beq    AboutOut
  3147.         cmp.w    #"Y",d3
  3148.         beq    AboutOut
  3149.         cmp.w    #"n",d3
  3150.         beq    AboutOut
  3151.         cmp.w    #"N",d3
  3152.         beq    AboutOut
  3153.         jmp    About2
  3154.  
  3155. AboutOut:    move.l    AbWin1(pc),a0
  3156.         jsr    ClearMSGs
  3157.         move.l    #$0,AbWin1
  3158.         move.l    Window2(pc),a0
  3159.         move.l    #%10100000,d0
  3160.         jsr    MenusOn
  3161.         rts
  3162.         
  3163. FReq:        move.l    a5,FRTitle
  3164.         move.l    reqbase(pc),a6
  3165.         lea.l    FileRequest1(pc),a0
  3166.         jsr    FileRequester(a6)
  3167.         tst.l    0
  3168.         bne    FreqOut
  3169. FreqOut:    rts
  3170.  
  3171. QuittingReq:    move.l    Window2(pc),a0
  3172.         move.l    #%11100000,d0
  3173.         jsr    MenusOff
  3174.         lea.l    NewQuitWin1(pc),a0
  3175.         move.l    intbase(pc),a6
  3176.         jsr    OpenWindow(a6)
  3177.         tst.l    d0
  3178.         bne    QuittingReq1
  3179.         lea.l    NoQuitWin1(pc),a0
  3180.         jmp    ErrorPrint
  3181. QuittingReq1:    move.l    d0,QuitWin1
  3182.         move.l    QuitWin1,a1
  3183.         move.l    $32(a1),a0
  3184.         lea.l    QuitWin1Txt1,a1
  3185.         move.w    #$10,d0
  3186.         move.w    #$10,d1
  3187.         jsr    PrintIText(a6)
  3188.         move.l    Screen1,a0
  3189.         jsr    DisplayBeep(a6)
  3190.         jsr    Wait.05Sec
  3191.         move.l    Screen1,a0
  3192.         jsr    DisplayBeep(a6)
  3193.         jsr    Wait.05Sec
  3194.         move.l    Screen1,a0
  3195.         jsr    DisplayBeep(a6)
  3196. QuitWin1IDCMP:    move.l    QuitWin1(pc),a0
  3197.         jsr    Check2IDCMP
  3198.  
  3199.         cmp.l    #GADGETUP,d2
  3200.         beq    QuitWin1IDCMP1
  3201.         cmp.l    #VANILLAKEY,d2
  3202.         bne    QuitWin1IDCMP
  3203.         cmp.w    #$1b,d3
  3204.         beq    QuitWin1IDCMP2
  3205.         cmp.w    #"y",d3
  3206.         beq    ShutDown
  3207.         cmp.w    #"Y",d3
  3208.         beq    ShutDown
  3209.         cmp.w    #"n",d3
  3210.         beq    QuitWin1IDCMP2
  3211.         cmp.w    #"N",d3
  3212.         beq    QuitWin1IDCMP2
  3213.         jmp    QuitWin1IDCMP
  3214.         
  3215. QuitWin1IDCMP1:    cmp.w    #$2,$26(a5)
  3216.         beq    ShutDown
  3217.         cmp.w    #$3,$26(a5)
  3218.         bne    QuitWin1IDCMP
  3219. QuitWin1IDCMP2:    move.l    Window2(pc),a0
  3220.         lea.l    Menu1(pc),a1
  3221.         move.l    #%11100000,d0
  3222.         jsr    MenusOn
  3223.         move.l    QuitWin1(pc),a0
  3224.         jsr    ClearMSGs
  3225.         move.l    #0,QuitWin1
  3226.         jmp    MainLoop
  3227.  
  3228. CheckIDCMP:    move.l    $4,a6            ;made this a SubRoutine...
  3229.         move.l    $56(a0),a2
  3230.         move.l    a2,a0
  3231.         jsr    GetMsg(a6)
  3232.         tst.l    d0
  3233.         bne    GetMsg1.1
  3234.         move.l    $56(a3),a3
  3235.         move.l    a3,a0
  3236.         jsr    GetMsg(a6)
  3237.         tst.l    d0
  3238.         bne    GetMsg1.1
  3239.         move.l    $56(a4),a4
  3240.         move.l    a4,a0
  3241.         jsr    GetMsg(a6)
  3242.         tst.l    d0
  3243.         bne    GetMsg1.1
  3244.         move.l    #0,d1
  3245.         move.b    $0f(a2),d1
  3246.         bset.l    d1,d0
  3247.         move.l    #0,d2
  3248.         move.b    $0f(a3),d2
  3249.         bset.l    d2,d0
  3250.         move.l    #0,d3
  3251.         move.b    $0f(a4),d3
  3252.         bset.l    d3,d0
  3253. CheckIDCMP3:    jsr    Wait(a6)    
  3254.     
  3255. GetMsg1:    move.l    a2,a0    
  3256.         jsr    GetMsg(a6)
  3257.         tst.l    d0
  3258.         bne    GetMsg1.1
  3259.         move.l    a3,a0
  3260.         jsr    GetMsg(a6)
  3261.         tst.l    d0
  3262.         bne    GetMsg1.1
  3263.         move.l    a4,a0
  3264.         jsr    GetMsg(a6)
  3265.         tst.l    d0
  3266.         beq    GetMsg2
  3267.     
  3268. GetMsg1.1:    move.l    d0,a1 
  3269.         move.l    $14(a1),d2        ;answers with Class in d2,
  3270.         move.w    $18(a1),d3        ;Code in d3 and
  3271.         move.w    $1a(a1),a4        ;Qualifier in a4
  3272.         move.l    $1c(a1),a5        ;IAddress in a5
  3273.         jsr    ReplyMsg(a6)
  3274. GetMsg2:    move.l    #-1,d0
  3275.         rts
  3276.  
  3277. Wait.05Sec:    move.l    a6,a5
  3278.         move.l    dosbase(pc),a6
  3279.         move.l    #1,d1
  3280.         jsr    Delay(a6)
  3281.         move.l    a5,a6
  3282.         rts    
  3283.     
  3284. MenusOn:    move.l    intbase(pc),a6        ;Menu number in d0
  3285.         jsr    OnMenu(a6)        ;Window in a0
  3286.         rts
  3287. MenusOff:    move.l    intbase(pc),a6        ;Window in a0
  3288.         jsr    OffMenu(a6)
  3289.         rts
  3290.  
  3291. ClearMSGs:    move.l    a0,d0
  3292.         tst.l    d0
  3293.         beq    ClearMsg3
  3294.         move.l    a0,a3
  3295.         move.l    $4,a6            ;made this a SubRoutine...
  3296.         jsr    Forbid(a6)
  3297.         move.l    $56(a3),a2        ;Give it the window structure in a0
  3298. ClearMsg1:    move.l    a2,a0    
  3299.         jsr    GetMsg(a6)
  3300.         tst.l    d0
  3301.         beq    ClearMsg2
  3302.         move.l    d0,a1 
  3303.         jsr    ReplyMsg(a6)
  3304.         jmp    ClearMsg1
  3305. ClearMsg2:    move.l    a3,a0
  3306.         move.l    intbase(pc),a6
  3307.         jsr    CloseWindow(a6)
  3308.         move.l    $4,a6
  3309.         jsr    Permit(a6)
  3310. ClearMsg3:    rts
  3311.  
  3312. ShutDown:    move.l    $4,a6
  3313.         tst.l    TPort
  3314.         beq    ShutDown104
  3315.         move.l    TPort(pc),a1
  3316.         jsr    RemPort(a6)
  3317.         move.l    #$22,d0
  3318.         move.l    TPort(pc),a1
  3319.         jsr    FreeMem(a6)
  3320.         move.l    TimeReq(pc),a1
  3321.         jsr    CloseDevice(a6)
  3322. ShutDown104:    tst.b    TSigBit
  3323.         beq    ShutDown103
  3324.         move.l    #$00,d0
  3325.         move.b    TSigBit,d0
  3326.         jsr    FreeSignal(a6)
  3327. ShutDown103:    tst.l    TimeReq
  3328.         beq    ShutDown102
  3329.         move.l    #$28,d0
  3330.         move.l    TimeReq(pc),a1
  3331.         jsr    FreeMem(a6)
  3332.  
  3333. ShutDown102:    move.l    OurTask(pc),a0
  3334.         move.l    OldTaskWinPtr(pc),$b8(a0)
  3335.  
  3336.         move.l    Window3(pc),a0
  3337.         beq    ShutDown102.1
  3338.         move.l    intbase(pc),a6
  3339.         jsr    ClearMenuStrip(a6)
  3340.         move.l    Window3(pc),a0
  3341.         jsr    ClearMSGs
  3342.         move.l    #$00,HelpWin1
  3343.  
  3344. ShutDown102.1:    move.l    HelpWin1(pc),a0
  3345.         jsr    ClearMSGs
  3346.         move.l    #$00,HelpWin1
  3347.  
  3348.         move.l    AbWin1(pc),a0
  3349.         jsr    ClearMSGs
  3350.         move.l    #$0,AbWin1
  3351.  
  3352.         move.l    FRWin1(pc),a0
  3353.         jsr    ClearMSGs
  3354.         move.l    #$0,FRWin1
  3355.  
  3356. ShutDown101.1:    move.l    $4,a6
  3357.         tst.l    TmpRas
  3358.         beq    ShutDown101.2
  3359.         move.l    TmpRas(pc),a1
  3360.         move.l    #TmpRas_Size,d0
  3361.         jsr    FreeMem(a6)    
  3362. ShutDown101.2:    tst.l    VecTab1
  3363.         beq    ShutDown100
  3364.         move.l    $4,a6
  3365.         move.l    VecTab1(pc),a1
  3366.         move.l    #VecTab_Size,d0
  3367.         jsr    FreeMem(a6)    
  3368.  
  3369. ShutDown100:
  3370. ShutDown100.1:    move.l    QuitWin1(pc),a0
  3371.         jsr    ClearMSGs
  3372.         move.l    #$0,QuitWin1
  3373.         
  3374.         tst.l    Window1
  3375.         beq    ShutDown99
  3376.         move.l    Window1(pc),a0
  3377.         jsr    ClearMSGs
  3378.         move.l    #$0,Window1
  3379.  
  3380. ShutDown99:    tst.l    Window2
  3381.         beq    ShutDown98
  3382.         move.l    Window2(pc),a0
  3383.         move.l    intbase(pc),a6
  3384.         jsr    ClearMenuStrip(a6)
  3385.         move.l    Window2(pc),a0
  3386.         jsr    ClearMSGs
  3387.         move.l    #$0,Window2    
  3388.  
  3389. ShutDown98:    tst.l    Screen1
  3390.         beq    ShutDown97
  3391.         move.l    Screen1(pc),a0
  3392.         move.l    intbase(pc),a6
  3393.         jsr    CloseScreen(a6)
  3394.         move.l    #$0,Screen1
  3395.  
  3396. ShutDown97:    tst.l    reqbase
  3397.         beq    ShutDown96
  3398.         lea.l    FileRequest1(pc),a0
  3399.         move.l    reqbase,a6
  3400.         jsr    PurgeFiles(a6)
  3401.         move.l  $4,a6
  3402.         move.l    reqbase(pc),a1
  3403.         jsr    CloseLibrary(a6)
  3404.  
  3405. ShutDown96:    
  3406. ShutDown_END:    clr.l    d0
  3407.         rts
  3408.  
  3409. ;Interrupt for handling car movements
  3410.  
  3411. TLIntCode:    movem.l    d2-d7/a2-a6,-(sp)
  3412.         move.l    $8(a1),a5        ;Get screen pointer
  3413.         move.w    $8(a5),a6        ;Get screenX
  3414.         move.w    $a(a5),a5        ;Get screenY
  3415.  
  3416.         move.w    ScrOldX(pc),a0
  3417.         move.w    a6,ScrOldX
  3418.         sub.w    a0,a6
  3419.         move.w    a6,XOffSet
  3420.  
  3421.         move.w    ScrOldY(pc),a0
  3422.         move.w    a5,ScrOldY
  3423.         sub.w    a0,a5
  3424.         move.w    a5,YOffSet
  3425.  
  3426.         move.w    XOffSet(pc),d0
  3427.         move.w    YOffSet(pc),d1
  3428.         add.w    d0,DLJX
  3429.         add.w    d0,DRJX
  3430.         add.w    d0,FRJX
  3431.         add.w    d0,FLJX
  3432.         add.w    d0,J1XL
  3433.         add.w    d0,J1XR
  3434.         add.w    d0,J2XL
  3435.         add.w    d0,J2XR
  3436.         add.w    d1,DTJY
  3437.         add.w    d1,FTJY
  3438.         add.w    d1,FBJY
  3439.         add.w    d1,DBJY
  3440.         add.w    d1,J1YT
  3441.         add.w    d1,J1YB
  3442.         add.w    d1,J2YT
  3443.         add.w    d1,J2YB
  3444.         move.l    (a1),a0            ;Get Sprite1
  3445. AdSOfS:        add.w    d0,$18(a0)        ;Add X - this keeps sprites
  3446.         add.w    d1,$16(a0)        ;Add Y - in the right place
  3447.         add.l    #$3e,a0
  3448.         move.l    $4(a1),a3
  3449.         add.l    #$3e,a3
  3450.         cmp.l    a0,a3
  3451.         bne    AdSOfS
  3452.         move.l    (a1),a0
  3453.  
  3454. TLIntCode2:    cmp.l    #$00,$3a(a0)
  3455.         bne    MoveSprites
  3456. TLIntCode3:    add.l    #$3e,a0
  3457.         move.l    $4(a1),a3
  3458.         add.l    #$3e,a3
  3459.         cmp.l    a0,a3
  3460.         bne    TLIntCode2
  3461.         move.l    gfxbase(pc),a6
  3462.         move.l    RastPort1(pc),a1
  3463.         jsr    SortGList(a6)
  3464.         movem.l    (sp)+,d2-d7/a2-a6
  3465.         move.l    #1,d0
  3466.         rts
  3467.  
  3468. MoveSprites:    cmp.b    #1,$3a(a0)
  3469.         beq    M1
  3470.         cmp.b    #2,$3a(a0)
  3471.         beq    M2
  3472.         cmp.b    #3,$3a(a0)
  3473.         beq    M3
  3474.         cmp.b    #4,$3a(a0)
  3475.         beq    M4
  3476.         cmp.b    #5,$3a(a0)
  3477.         beq    M5
  3478.         cmp.b    #6,$3a(a0)
  3479.         beq    M6
  3480.         cmp.b    #7,$3a(a0)
  3481.         beq    M7
  3482.         cmp.b    #8,$3a(a0)
  3483.         beq    M8
  3484.         cmp.b    #9,$3a(a0)
  3485.         beq    M9
  3486.         cmp.b    #10,$3a(a0)
  3487.         beq    M10
  3488.         cmp.b    #11,$3a(a0)
  3489.         beq    M11
  3490.         cmp.b    #12,$3a(a0)
  3491.         beq    M12
  3492.         cmp.b    #13,$3a(a0)
  3493.         beq    M13
  3494.         cmp.b    #14,$3a(a0)
  3495.         beq    M14
  3496.         cmp.b    #15,$3a(a0)
  3497.         beq    M15
  3498.         cmp.b    #16,$3a(a0)
  3499.         beq    M16
  3500.         cmp.b    #17,$3a(a0)
  3501.         beq    M17
  3502.         cmp.b    #18,$3a(a0)
  3503.         beq    M18
  3504.         cmp.b    #19,$3a(a0)
  3505.         beq    M19
  3506.         cmp.b    #20,$3a(a0)
  3507.         beq    M20
  3508.         cmp.b    #21,$3a(a0)
  3509.         beq    M21
  3510.         cmp.b    #22,$3a(a0)
  3511.         beq    M22
  3512.         cmp.b    #23,$3a(a0)
  3513.         beq    M23
  3514.         cmp.b    #24,$3a(a0)
  3515.         beq    M24
  3516.         cmp.b    #43,$3a(a0)
  3517.         beq    M43
  3518.         cmp.b    #44,$3a(a0)
  3519.         beq    M44
  3520.         cmp.b    #45,$3a(a0)
  3521.         beq    M45
  3522.         cmp.b    #46,$3a(a0)
  3523.         beq    M46
  3524.         cmp.b    #47,$3a(a0)
  3525.         beq    M47
  3526.         cmp.b    #48,$3a(a0)
  3527.         beq    M48
  3528.         cmp.b    #37,$3a(a0)
  3529.         beq    M37
  3530.         cmp.b    #38,$3a(a0)
  3531.         beq    M38
  3532.         cmp.b    #39,$3a(a0)
  3533.         beq    M39
  3534.         jmp    TLIntCode3
  3535.  
  3536. M1:        move.w    $16(a0),d0
  3537.         cmp.w    FTJY(pc),d0
  3538.         bcc    M1.1
  3539.         add.w    #$01,$16(a0)
  3540.         jmp    TLIntCode3
  3541. M1.1:        add.w   #$01,Amount15
  3542.         movem.l    a0-a1,-(sp)
  3543.         jsr    CarCome15
  3544.         movem.l    (sp)+,a0-a1
  3545.         jmp    ResetSprite
  3546.  
  3547. M2:        move.w    $16(a0),d0
  3548.         cmp.w    J1YT(pc),d0
  3549.         beq    M2.1
  3550.         add.w    #$01,$16(a0)
  3551.         jmp    TLIntCode3
  3552. M2.1:        move.l    $58(a1),$24(a0)
  3553.         move.w    DLJX(pc),d0
  3554.         cmp.w    $18(a0),d0
  3555.         beq     M2.2
  3556.         sub.w    #$01,$18(a0)
  3557.         jmp    TLIntCode3
  3558. M2.2:           jmp    ResetSprite
  3559.  
  3560. M3:        move.w    $16(a0),d0
  3561.         cmp.w    J1YB(pc),d0
  3562.         beq    M3.1
  3563.         add.w    #$01,$16(a0)
  3564.         jmp    TLIntCode3
  3565. M3.1:        move.l    $54(a1),$24(a0)
  3566.         move.w    FLJX(pc),d0
  3567.         cmp.w    $18(a0),d0
  3568.         bcc    M3.2
  3569.         add.w    #$03,$18(a0)        
  3570.         jmp    TLIntCode3
  3571. M3.2:        add.w    #$01,Amount10
  3572.         movem.l    a0-a1,-(sp)
  3573.         jsr    CarCome10
  3574.         movem.l    (sp)+,a0-a1
  3575.         jmp    ResetSprite
  3576.  
  3577. M4:        move.w    $16(a0),d0
  3578.         cmp.w    FTJY(pc),d0
  3579.         beq    M4.1
  3580.         add.w    #$01,$16(a0)
  3581.         jmp    TLIntCode3
  3582. M4.1:        add.w   #$01,Amount11
  3583.         movem.l    a0-a1,-(sp)
  3584.         jsr    CarCome11
  3585.         movem.l    (sp)+,a0-a1
  3586.         jmp    ResetSprite
  3587.  
  3588. M5:        move.w    $16(a0),d0
  3589.         cmp.w    J1YT(pc),d0
  3590.         beq    M5.1
  3591.         add.w    #$01,$16(a0)
  3592.         jmp    TLIntCode3
  3593. M5.1:        move.l    $58(a1),$24(a0)
  3594.         move.w    FRJX(pc),d0
  3595.         cmp.w    $18(a0),d0
  3596.         bcc    M5.2
  3597.         sub.w    #$03,$18(a0)
  3598.         jmp    TLIntCode3
  3599. M5.2:        add.w    #$01,Amount9
  3600.         movem.l    a0-a1,-(sp)
  3601.         jsr    CarCome9
  3602.         movem.l    (sp)+,a0-a1
  3603.         jmp    ResetSprite
  3604. M6:        move.w    $16(a0),d0
  3605.         cmp.w    J1YB(pc),d0
  3606.         bcc    M6.1
  3607.         add.w    #$01,$16(a0)
  3608.         jmp    TLIntCode3
  3609. M6.1:        move.l    $54(a1),$24(a0)
  3610.         move.w    DRJX(pc),d0
  3611.         cmp.w    $18(a0),d0
  3612.         bcs    M6.2
  3613.         add.w    #$03,$18(a0)        
  3614.         jmp    TLIntCode3
  3615. M6.2:        jmp    ResetSprite
  3616.  
  3617.  
  3618. M7:        move.w    $16(a0),d0
  3619.         cmp.w    FBJY(pc),d0
  3620.         bcs    M7.1
  3621.         sub.w    #$01,$16(a0)
  3622.         jmp    TLIntCode3
  3623. M7.1:        add.w   #$01,Amount12
  3624.         movem.l    a0-a1,-(sp)
  3625.         jsr    CarCome12
  3626.         movem.l    (sp)+,a0-a1
  3627.         jmp    ResetSprite
  3628.  
  3629. M8:        move.w    $16(a0),d0
  3630.         cmp.w    J2YT(pc),d0
  3631.         beq    M8.1
  3632.         sub.w    #$01,$16(a0)
  3633.         jmp    TLIntCode3
  3634. M8.1:        move.l    $58(a1),$24(a0)
  3635.         move.w    FRJX(pc),d0
  3636.         cmp.w    $18(a0),d0
  3637.         bcc    M8.2
  3638.         sub.w    #$03,$18(a0)
  3639.         jmp    TLIntCode3
  3640. M8.2:        add.w    #$01,Amount14
  3641.         movem.l    a0-a1,-(sp)
  3642.         jsr    CarCome14
  3643.         movem.l    (sp)+,a0-a1
  3644.         jmp    ResetSprite
  3645. M9:        move.w    $16(a0),d0
  3646.         cmp.w    J2YB(pc),d0
  3647.         beq    M9.1
  3648.         sub.w    #$01,$16(a0)
  3649.         jmp    TLIntCode3
  3650. M9.1:        move.l    $54(a1),$24(a0)
  3651.         move.w    DRJX(pc),d0
  3652.         cmp.w    $18(a0),d0
  3653.         bcs    M9.2
  3654.         add.w    #$03,$18(a0)        
  3655.         jmp    TLIntCode3
  3656. M9.2:        jmp    ResetSprite
  3657.  
  3658. M10:        move.w    $16(a0),d0
  3659.         cmp.w    FBJY(pc),d0
  3660.         beq    M10.1
  3661.         sub.w    #$01,$16(a0)
  3662.         jmp    TLIntCode3
  3663. M10.1:        add.w   #$01,Amount16
  3664.         movem.l    a0-a1,-(sp)
  3665.         jsr    CarCome16
  3666.         movem.l    (sp)+,a0-a1
  3667.         jmp    ResetSprite
  3668.  
  3669. M11:        move.w    $16(a0),d0
  3670.         cmp.w    J2YT(pc),d0
  3671.         beq    M11.1
  3672.         sub.w    #$01,$16(a0)
  3673.         jmp    TLIntCode3
  3674. M11.1:        move.l    $58(a1),$24(a0)
  3675.         move.w    DLJX(pc),d0
  3676.         cmp.w    $18(a0),d0
  3677.         bcc    M11.2
  3678.         sub.w    #$03,$18(a0)
  3679.         jmp    TLIntCode3
  3680. M11.2:        jmp    ResetSprite
  3681.  
  3682. M12:        move.w    $16(a0),d0
  3683.         cmp.w    J2YB(pc),d0
  3684.         beq    M12.1
  3685.         sub.w    #$01,$16(a0)
  3686.         jmp    TLIntCode3
  3687. M12.1:        move.l    $54(a1),$24(a0)
  3688.         move.w    FLJX(pc),d0
  3689.         cmp.w    $18(a0),d0
  3690.         bcs    M12.2
  3691.         add.w    #$03,$18(a0)        
  3692.         jmp    TLIntCode3
  3693. M12.2:        add.w    #$01,Amount13
  3694.         movem.l    a0-a1,-(sp)
  3695.         jsr    CarCome13
  3696.         movem.l    (sp)+,a0-a1
  3697.         jmp    ResetSprite
  3698.  
  3699. M13:        move.w    $16(a0),d0
  3700.         cmp.w    DTJY(pc),d0
  3701.         beq    M13.1
  3702.         sub.w    #$01,$16(a0)
  3703.         jmp    TLIntCode3
  3704. M13.1:        jmp    ResetSprite
  3705.  
  3706. M14:        move.w    $16(a0),d0
  3707.         cmp.w    J1YT(pc),d0
  3708.         beq    M14.1
  3709.         sub.w    #$01,$16(a0)
  3710.         jmp    TLIntCode3
  3711. M14.1:        move.l    $58(a1),$24(a0)
  3712.         move.w    DLJX(pc),d0
  3713.         cmp.w    $18(a0),d0
  3714.         beq    M14.2
  3715.         sub.w    #$01,$18(a0)
  3716.         jmp    TLIntCode3
  3717. M14.2:        jmp    ResetSprite
  3718.  
  3719. M15:        move.w    $16(a0),d0
  3720.         cmp.w    J1YB(pc),d0
  3721.         beq    M15.1
  3722.         sub.w    #$01,$16(a0)
  3723.         jmp    TLIntCode3
  3724. M15.1:        move.l    $54(a1),$24(a0)
  3725.         move.w    FLJX(pc),d0
  3726.         cmp.w    $18(a0),d0
  3727.         bcs    M15.2
  3728.         add.w    #$03,$18(a0)        
  3729.         jmp    TLIntCode3
  3730. M15.2:        add.w    #$01,Amount10
  3731.         movem.l    a0-a1,-(sp)
  3732.         jsr    CarCome10
  3733.         movem.l    (sp)+,a0-a1
  3734.         jmp    ResetSprite
  3735.  
  3736. M16:        move.l    $4c(a1),$24(a0)
  3737.         move.w    $16(a0),d0
  3738.         cmp.w    DTJY(pc),d0
  3739.         beq    M16.1
  3740.         sub.w    #$01,$16(a0)
  3741.         jmp    TLIntCode3
  3742. M16.1:        jmp    ResetSprite
  3743.  
  3744. M17:        move.w    $16(a0),d0
  3745.         cmp.w    J1YT(pc),d0
  3746.         beq    M17.1
  3747.         sub.w    #$01,$16(a0)
  3748.         jmp    TLIntCode3
  3749. M17.1:        move.l    $58(a1),$24(a0)
  3750.         move.w    FRJX(pc),d0
  3751.         cmp.w    $18(a0),d0
  3752.         bcc    M17.2
  3753.         sub.w    #$03,$18(a0)
  3754.         jmp    TLIntCode3
  3755. M17.2:        add.w    #$01,Amount9
  3756.         movem.l    a0-a1,-(sp)
  3757.         jsr    CarCome9
  3758.         movem.l    (sp)+,a0-a1
  3759.         jmp    ResetSprite
  3760.  
  3761. M18:        move.w    $16(a0),d0
  3762.         cmp.w    J1YB(pc),d0
  3763.         beq    M18.1
  3764.         sub.w    #$01,$16(a0)
  3765.         jmp    TLIntCode3
  3766. M18.1:        move.l    $54(a1),$24(a0)
  3767.         move.w    DRJX(pc),d0
  3768.         cmp.w    $18(a0),d0
  3769.         beq    M18.2
  3770.         add.w    #$01,$18(a0)        
  3771.         jmp    TLIntCode3
  3772. M18.2:        jmp    ResetSprite
  3773.  
  3774. M19:        move.w    $16(a0),d0
  3775.         cmp.w    DBJY(pc),d0
  3776.         beq    M19.1
  3777.         add.w    #$01,$16(a0)
  3778.         jmp    TLIntCode3
  3779. M19.1:        jmp    ResetSprite
  3780.  
  3781. M20:        move.w    $16(a0),d0
  3782.         cmp.w    J2YT(pc),d0
  3783.         beq    M20.1
  3784.         add.w    #$01,$16(a0)
  3785.         jmp    TLIntCode3
  3786. M20.1:        move.l    $58(a1),$24(a0)
  3787.         move.w    DLJX(pc),d0
  3788.         cmp.w    $18(a0),d0
  3789.         beq     M20.2
  3790.         sub.w    #$01,$18(a0)
  3791.         jmp    TLIntCode3
  3792. M20.2:          jmp    ResetSprite
  3793.  
  3794. M21:        move.w    $16(a0),d0
  3795.         cmp.w    J2YB(pc),d0
  3796.         beq    M21.1
  3797.         add.w    #$01,$16(a0)
  3798.         jmp    TLIntCode3
  3799. M21.1:        move.l    $54(a1),$24(a0)
  3800.         move.w    FLJX(pc),d0
  3801.         cmp.w    $18(a0),d0
  3802.         bcs    M21.2
  3803.         add.w    #$03,$18(a0)        
  3804.         jmp    TLIntCode3
  3805. M21.2:        add.w    #$01,Amount10
  3806.         movem.l    a0-a1,-(sp)
  3807.         jsr    CarCome10
  3808.         movem.l    (sp)+,a0-a1
  3809.         jmp    ResetSprite
  3810.  
  3811.  
  3812. M22:        move.l    $50(a1),$24(a0)
  3813.         move.w    $16(a0),d0
  3814.         cmp.w    DBJY(pc),d0
  3815.         beq    M22.1
  3816.         add.w    #$01,$16(a0)
  3817.         jmp    TLIntCode3
  3818. M22.1:        jmp    ResetSprite
  3819.  
  3820. M23:        move.w    $16(a0),d0
  3821.         cmp.w    J2YT(pc),d0
  3822.         beq    M23.1
  3823.         add.w    #$01,$16(a0)
  3824.         jmp    TLIntCode3
  3825. M23.1:        move.l    $58(a1),$24(a0)
  3826.         move.w    FRJX(pc),d0
  3827.         cmp.w    $18(a0),d0
  3828.         bcc    M23.2
  3829.         sub.w    #$03,$18(a0)
  3830.         jmp    TLIntCode3
  3831. M23.2:        add.w    #$01,Amount14
  3832.         movem.l    a0-a1,-(sp)
  3833.         jsr    CarCome14
  3834.         movem.l    (sp)+,a0-a1
  3835.         jmp    ResetSprite
  3836.  
  3837. M24:        move.w    $16(a0),d0
  3838.         cmp.w    J2YB(pc),d0
  3839.         beq    M24.1
  3840.         add.w    #$01,$16(a0)
  3841.         jmp    TLIntCode3
  3842. M24.1:        move.l    $54(a1),$24(a0)
  3843.         move.w    DRJX(pc),d0
  3844.         cmp.w    $18(a0),d0
  3845.         bcs    M24.2
  3846.         add.w    #$03,$18(a0)        
  3847.         jmp    TLIntCode3
  3848. M24.2:        jmp    ResetSprite
  3849.  
  3850.  
  3851. ;Xbatches
  3852.  
  3853. M43:        move.w    $18(a0),d0
  3854.         cmp.w    FRJX(pc),d0
  3855.         bcs    M43.1
  3856.         sub.w    #$03,$18(a0)
  3857.         jmp    TLIntCode3
  3858. M43.1:        add.w   #$01,Amount9
  3859.         movem.l    a0-a1,-(sp)
  3860.         jsr    CarCome9
  3861.         movem.l    (sp)+,a0-a1
  3862.         jmp    ResetSprite
  3863.  
  3864. M44:        move.w    $18(a0),d0
  3865.         cmp.w    J2XR(pc),d0
  3866.         beq    M44.1
  3867.         sub.w    #$01,$18(a0)
  3868.         jmp    TLIntCode3
  3869. M44.1:        move.l    $4c(a1),$24(a0)
  3870.         move.w    DTJY(pc),d0
  3871.         cmp.w    $16(a0),d0
  3872.         beq     M44.2
  3873.         sub.w    #$01,$16(a0)
  3874.         jmp    TLIntCode3
  3875. M44.2:        jmp    ResetSprite
  3876.  
  3877. M45:        move.w    $18(a0),d0
  3878.         cmp.w    J2XL(pc),d0
  3879.         beq    M45.1
  3880.         sub.w    #$01,$18(a0)
  3881.         jmp    TLIntCode3
  3882. M45.1:        move.l    $50(a1),$24(a0)
  3883.         move.w    FTJY(pc),d0
  3884.         cmp.w    $16(a0),d0
  3885.         beq    M45.2
  3886.         add.w    #$01,$16(a0)        
  3887.         jmp    TLIntCode3
  3888. M45.2:        add.w    #$01,Amount11
  3889.         movem.l    a0-a1,-(sp)
  3890.         jsr    CarCome11
  3891.         movem.l    (sp)+,a0-a1
  3892.         jmp    ResetSprite
  3893.  
  3894.  
  3895. M46:        move.w    $18(a0),d0
  3896.         cmp.w    FRJX(pc),d0
  3897.         bcs    M46.1
  3898.         sub.w    #$03,$18(a0)
  3899.         jmp    TLIntCode3
  3900. M46.1:        add.w   #$01,Amount14
  3901.         movem.l    a0-a1,-(sp)
  3902.         jsr    CarCome14
  3903.         movem.l    (sp)+,a0-a1
  3904.         jmp    ResetSprite
  3905.  
  3906. M47:        move.w    $18(a0),d0
  3907.         cmp.w    J2XR(pc),d0
  3908.         beq    M47.1
  3909.         sub.w    #$01,$18(a0)
  3910.         jmp    TLIntCode3
  3911. M47.1:        move.l    $4c(a1),$24(a0)
  3912.         move.w    FTJY(pc),d0
  3913.         cmp.w    $16(a0),d0
  3914.         beq     M47.2
  3915.         sub.w    #$01,$16(a0)
  3916.         jmp    TLIntCode3
  3917. M47.2:        add.w    #$01,Amount12
  3918.         movem.l    a0-a1,-(sp)
  3919.         jsr    CarCome12
  3920.         movem.l    (sp)+,a0-a1
  3921.         jmp    ResetSprite
  3922.  
  3923. M48:        move.w    $18(a0),d0
  3924.         cmp.w    J2XL(pc),d0
  3925.         beq    M48.1
  3926.         sub.w    #$01,$18(a0)
  3927.         jmp    TLIntCode3
  3928. M48.1:        move.l    $50(a1),$24(a0)
  3929.         move.w    DBJY(pc),d0
  3930.         cmp.w    $16(a0),d0
  3931.         bcc    M48.2
  3932.         add.w    #$03,$16(a0)        
  3933.         jmp    TLIntCode3
  3934. M48.2:        jmp    ResetSprite
  3935.  
  3936. M37:        move.w    $18(a0),d0
  3937.         cmp.w    DLJX(pc),d0
  3938.         bcs    M37.1
  3939.         sub.w    #$03,$18(a0)
  3940.         jmp    TLIntCode3
  3941. M37.1:        add.w   #$01,Amount14
  3942.         movem.l    a0-a1,-(sp)
  3943.         jsr    CarCome14
  3944.         movem.l    (sp)+,a0-a1
  3945.         jmp    ResetSprite
  3946.  
  3947. M38:        move.w    $18(a0),d0
  3948.         cmp.w    J1XR(pc),d0
  3949.         beq    M38.1
  3950.         sub.w    #$01,$18(a0)
  3951.         jmp    TLIntCode3
  3952. M38.1:        move.l    $4c(a1),$24(a0)
  3953.         move.w    DTJY(pc),d0
  3954.         cmp.w    $16(a0),d0
  3955.         beq     M38.2
  3956.         sub.w    #$01,$16(a0)
  3957.         jmp    TLIntCode3
  3958. M38.2:        jmp    ResetSprite
  3959.  
  3960. M39:        move.w    $18(a0),d0
  3961.         cmp.w    J1XL(pc),d0
  3962.         beq    M39.1
  3963.         sub.w    #$01,$18(a0)
  3964.         jmp    TLIntCode3
  3965. M39.1:        move.l    $50(a1),$24(a0)
  3966.         move.w    FTJY(pc),d0
  3967.         cmp.w    $16(a0),d0
  3968.         beq    M39.2
  3969.         add.w    #$01,$16(a0)        
  3970.         jmp    TLIntCode3
  3971. M39.2:        add.w    #$01,Amount15
  3972.         movem.l    a0-a1,-(sp)
  3973.         jsr    CarCome15
  3974.         movem.l    (sp)+,a0-a1
  3975.         jmp    ResetSprite
  3976.  
  3977.  
  3978.  
  3979. ResetSprite:    move.l    #$00,$3a(a0)        ;Clears Curr&Dest
  3980.         move.l    a0,d0            ;Compare with batches
  3981.         cmp.l    $c(a1),d0        ;so we can reset
  3982.         bls    Batch1            ;the correct things
  3983.         cmp.l    $10(a1),d0        ;like SprImg and
  3984.         bls    Batch2            ;SprY,X              
  3985.         cmp.l    $14(a1),d0
  3986.         bls    Batch3
  3987.         cmp.l    $18(a1),d0
  3988.         bls    Batch4
  3989.         cmp.l    $1c(a1),d0
  3990.         bls    Batch5
  3991.         cmp.l    $20(a1),d0
  3992.         bls    Batch6
  3993.         cmp.l    $24(a1),d0
  3994.         bls    Batch7
  3995.         cmp.l    $28(a1),d0
  3996.         bls    Batch8
  3997.         cmp.l    $2c(a1),d0
  3998.         bls    Batch9
  3999.         cmp.l    $30(a1),d0
  4000.         bls    Batch10
  4001.         cmp.l    $34(a1),d0
  4002.         bls    Batch11
  4003.         cmp.l    $38(a1),d0
  4004.         bls    Batch12
  4005.         cmp.l    $3c(a1),d0
  4006.         bls    Batch13
  4007.         cmp.l    $40(a1),d0
  4008.         bls    Batch14
  4009.         cmp.l    $44(a1),d0
  4010.         bls    Batch15
  4011.         cmp.l    $48(a1),d0
  4012.         bls    Batch16
  4013.         jmp    TLIntCode3
  4014. Batch16:    move.l    $4c(a1),$24(a0)
  4015.         move.w    FBJY(pc),$16(a0)
  4016.         move.w    J1XR(pc),$18(a0)
  4017.         jmp    TLIntCode3
  4018. Batch15:    move.l    $50(a1),$24(a0)
  4019.         move.w    FTJY(pc),$16(a0)
  4020.         move.w    J1XL(pc),$18(a0)
  4021.         jmp    TLIntCode3
  4022. Batch14:    move.l    $58(a1),$24(a0)
  4023.         move.w    J2YT(pc),$16(a0)
  4024.         move.w    FRJX(pc),$18(a0)
  4025.         jmp    TLIntCode3
  4026. Batch13:    move.l    $54(a1),$24(a0)
  4027.         move.w    J2YB(pc),$16(a0)
  4028.         move.w    FLJX(pc),$18(a0)
  4029.         jmp    TLIntCode3
  4030. Batch12:    move.l    $50(a1),$24(a0)
  4031.         move.w    FTJY(pc),$16(a0)
  4032.         move.w    J2XL(pc),$18(a0)
  4033.         jmp    TLIntCode3
  4034. Batch11:    move.l    $4c(a1),$24(a0)
  4035.         move.w    FBJY(pc),$16(a0)
  4036.         move.w    J2XR(pc),$18(a0)
  4037.         jmp    TLIntCode3
  4038. Batch10:    move.l    $54(a1),$24(a0)
  4039.         move.w    J1YB(pc),$16(a0)
  4040.         move.w    FLJX(pc),$18(a0)
  4041.         jmp    TLIntCode3
  4042. Batch9:        move.l    $58(a1),$24(a0)
  4043.         move.w    J1YT(pc),$16(a0)
  4044.         move.w    FRJX(pc),$18(a0)
  4045.         jmp    TLIntCode3
  4046. Batch8:        move.l    $54(a1),$24(a0)
  4047.         move.w    J1YB(pc),$16(a0)
  4048.         move.w    DLJX(pc),$18(a0)
  4049.         jmp    TLIntCode3
  4050. Batch7:        move.l    $54(a1),$24(a0)
  4051.         move.w    J2YB(pc),$16(a0)
  4052.         move.w    DLJX(pc),$18(a0)
  4053.         jmp    TLIntCode3
  4054. Batch6:        move.l    $4c(a1),$24(a0)
  4055.         move.w    DBJY(pc),$16(a0)
  4056.         move.w    J1XR(pc),$18(a0)
  4057.         jmp    TLIntCode3
  4058. Batch5:        move.l    $4c(a1),$24(a0)
  4059.         move.w    DBJY(pc),$16(a0)
  4060.         move.w    J2XR(pc),$18(a0)
  4061.         jmp    TLIntCode3
  4062. Batch4:        move.l    $58(a1),$24(a0)
  4063.         move.w    J2YT(pc),$16(a0)
  4064.         move.w    DRJX(pc),$18(a0)
  4065.         jmp    TLIntCode3
  4066. Batch3:        move.l    $58(a1),$24(a0)
  4067.         move.w    J1YT(pc),$16(a0)
  4068.         move.w    DRJX(pc),$18(a0)
  4069.         jmp    TLIntCode3
  4070. Batch2:        move.l    $50(a1),$24(a0)
  4071.         move.w    DTJY(pc),$16(a0)
  4072.         move.w    J2XL(pc),$18(a0)
  4073.         jmp    TLIntCode3
  4074. Batch1:        move.l    $50(a1),$24(a0)
  4075.         move.w    DTJY(pc),$16(a0)
  4076.         move.w    J1XL(pc),$18(a0)
  4077.         jmp    TLIntCode3
  4078.  
  4079. ScrOldX:    dc.w    0
  4080. ScrOldY:    dc.w    0
  4081. XOffSet:    dc.w    0
  4082. YOffSet:    dc.w    0
  4083. DLJX:        dc.w    5
  4084. FBJY:        dc.w    60
  4085. FRJX:        dc.w    120
  4086. DTJY:        dc.w    21
  4087. FTJY:        dc.w    71
  4088. DBJY:        dc.w    99
  4089. DRJX:        dc.w    363
  4090. FLJX:        dc.w    255
  4091. J1YT:        dc.w    32
  4092. J1YB:        dc.w    43
  4093. J2YT:        dc.w    82
  4094. J2YB:        dc.w    92
  4095. J1XL:        dc.w    44
  4096. J1XR:        dc.w    77
  4097. J2XL:        dc.w    308
  4098. J2XR:        dc.w    337
  4099. SpritesXOn:    dc.b    1        ;1= sprs 1,2,4,5 aren't on
  4100.         ds.l    0
  4101.  
  4102. ;Printer to the CLI (use it for error messages)
  4103.  
  4104. ErrorPrint:    move.l    a0,d2
  4105. ErrorPrint1:    tst.b    (a0)+
  4106.         bne    ErrorPrint1
  4107.         subq.l    #1,a0
  4108.         sub.l    d2,a0
  4109.         move.l    a0,d3
  4110.         move.l    OutFile(pc),d1
  4111.         move.l    dosbase(pc),a6
  4112.         jsr    Write(a6)
  4113.         jmp    ShutDown        
  4114.  
  4115. ShowGuru:    move.l    #RECOVERY_ALERT,d0
  4116.         lea.l    NoMem(pc),a0
  4117.         move.l    #52,d1
  4118.         move.l    intbase(pc),a6
  4119.         jsr    DisplayAlert(a6)
  4120.         rts
  4121.     
  4122. ;chck:        btst    #$0006,$bfe001
  4123. ;        bne    chck
  4124. ;        lea.l    NoCode(pc),a0
  4125. ;        jmp    ErrorPrint
  4126.  
  4127.         ds.l    0
  4128.  
  4129.  
  4130. ;Structures: First the display stuff
  4131.  
  4132. Window1:    dc.l    0
  4133. Window2:    dc.l    0
  4134. Window3:    dc.l    0
  4135. Screen1:    dc.l    0
  4136. QuitWin1:    dc.l    0
  4137. HelpWin1:    dc.l    0
  4138. FRWin1:        dc.l    0
  4139. AbWin1:        dc.l    0
  4140. RastPort1:    dc.l    0
  4141. RastPort2:    dc.l    0
  4142. RastPort3:    dc.l    0
  4143. AbRP:        dc.l    0
  4144. FRRP:        dc.l    0
  4145. ViewPort:    dc.l    0
  4146. OldTaskWinPtr:    dc.l    0
  4147. SWWin1Name:    dc.b    "Save traffic situation as...",0
  4148.         ds.l    0
  4149. LWWin1Name:    dc.b    "Load traffic situation",0
  4150.         ds.l    0
  4151.     
  4152. ;Memory stuff
  4153.  
  4154. ChipMem1:    dc.l    0
  4155. TmpRas:        dc.l    0
  4156. PlanePtr:    dc.l    0
  4157. VecTab1:    dc.l    0
  4158.  
  4159. ;Timer stuff
  4160.  
  4161. timename:    dc.b    "timer.device",0
  4162.         ds.l    0
  4163. timebase:    dc.l    0            ;"library" base of timer.dev
  4164. TSigBit:    dc.b    0            ;Timer SignalBit
  4165.         ds.l    0
  4166. TPort:        dc.l    0            ;Timer ReplyPort
  4167. TimePName:    dc.b    "TrafficTimer",0
  4168.         ds.l    0
  4169. TimeReq:    dc.l    0            ;Traffic InputOutPutReq
  4170. GSecs:        dc.l    0            ;Cars crossing junction
  4171. LSecs:        dc.l    0            ;Light
  4172. CSecs:        dc.l    0            ;ComingCar
  4173. Mics:        dc.l    0
  4174.  
  4175. ;Car Stuff
  4176.  
  4177. Amount1:    dc.w    0            ;Amount of cars
  4178. Amount2:    dc.w    0
  4179. Amount3:    dc.w    0
  4180. Amount4:    dc.w    0
  4181. Amount5:    dc.w    0
  4182. Amount6:    dc.w    0
  4183. Amount7:    dc.w    0
  4184. Amount8:    dc.w    0
  4185. Amount9:    dc.w    0
  4186. Amount10:    dc.w    0
  4187. Amount11:    dc.w    0
  4188. Amount12:    dc.w    0
  4189. Amount13:    dc.w    0
  4190. Amount14:    dc.w    0
  4191. Amount15:    dc.w    0
  4192. Amount16:    dc.w    0
  4193.         ds.l    0
  4194.  
  4195. ;File stuff
  4196.  
  4197. OutFile:    dc.l    0            ;It`s the way to the CLI
  4198. Lock:        dc.l    0
  4199. FileReq:    dc.l    0
  4200. FileReqTracker: dc.l    0
  4201. DiskFile1:    dc.l    0
  4202.     
  4203. ;Library stuff
  4204.  
  4205. reqbase:    dc.l    0
  4206. dosbase:    dc.l    0
  4207. gfxbase:    dc.l    0
  4208. intbase:    dc.l    0
  4209. NoREQText1:    dc.b    "You need "
  4210.         ds.l    0
  4211. reqname:    dc.b    "req.library",0
  4212.         ds.l    0
  4213. NoREQText2:    dc.b    " v2.2+",$0a,0    
  4214.         ds.l    0
  4215. dosname:    dc.b    "dos.library",0
  4216.         ds.l    0
  4217. gfxname:    dc.b    "graphics.library",0
  4218.         ds.l    0
  4219. intname:    dc.b    "intuition.library",0
  4220.         ds.l    0
  4221.  
  4222. ;Task Stuff
  4223.  
  4224. OurTask:    dc.l    0
  4225.  
  4226. ;Error texts
  4227.  
  4228. NoWBScreen:    dc.b    "Couldn´t open WorkBench Screen",$0a,0
  4229.         ds.l    0
  4230. NoScreen1:    dc.b    "Couldn´t open Screen1.",$0a,0
  4231.         ds.l    0
  4232. NoWin1:        dc.b    "Couldn´t open CityMap-Window1.",$0a,0
  4233.         ds.l    0
  4234. NoWin2:        dc.b    "Couldn´t open BackDrop-Window2.",$0a,0
  4235.         ds.l    0
  4236. NoWin3:        dc.b    "Couldn´t open VariableEd-Window3.",$0a,0
  4237.         ds.l    0
  4238. NoAreaInit:    dc.b    "Couldn´t init area.",$0a,0
  4239.         ds.l    0
  4240. NoQuitWin1:    dc.b    "Couldn´t open Quitting-Window.",$0a,0
  4241.         ds.l    0
  4242. NoFRWin1:    dc.b    "Couldn´t open FileRequest-Window.",$0a,0
  4243.         ds.l    0
  4244. NoAbWin1:    dc.b    "Couldn´t open About-Window.",$0a,0
  4245.         ds.l    0
  4246. NoHelpWin1:    dc.b    "Couldn´t open Help-Window.",$0a,0
  4247.         ds.l    0
  4248. WhoKnows?:    dc.b    "User didn´t read the fucking manual error.",$0a,0
  4249.         ds.l    0
  4250. NoCode:        dc.b    "Hey, Jack! Finish the fucking code!",$0a,0
  4251.         ds.l    0
  4252. NoFileBufMem:    dc.b    "Couldn´t get memory (20kb).",$0a,0
  4253.         ds.l    0
  4254.  
  4255. ;Guru messages
  4256.  
  4257. NoMem:        dc.b    0,$d0
  4258.         dc.b    $10
  4259.         dc.b    "Canceled - Not enough memory.",0
  4260.         dc.b    1
  4261.         dc.b    0,$10
  4262.         dc.b    $2d
  4263.         dc.b    "Left for o.k.",0
  4264.         dc.b    1
  4265.         dc.b    $1,$f0
  4266.         dc.b    $2d
  4267.         dc.b    "Right for CANCEL",0
  4268.         dc.b    0
  4269.         ds.l    0
  4270.  
  4271. ;Our Color Map(s)
  4272.     
  4273.  
  4274. ColorMap1:    dc.w    $aaa,$000,$fff,$0f0,$0f0,$f00,$fa0,$f00
  4275. ColorMap2:    dc.w    $aaa,$000,$fff,$aaa,$0f0,$f00,$aaa,$aaa
  4276.  
  4277. ;Other Stuff XIV
  4278. HelpStatus    dc.w    0        ;Which text on screen
  4279. LStatus:    dc.b    3        ;Status of trafficlights
  4280.         ds.l    0
  4281. TrafficMode:    dc.l    4        ;Mode. 2 = night, 4 = day, 5 = heavy
  4282.  
  4283. ;Interrupt stuff
  4284.  
  4285. TLInt:        dc.l    0        ;Succ
  4286.         dc.l    0        ;Pred
  4287.         dc.b    2        ;type
  4288.         dc.b    0        ;pri
  4289.         dc.l    TLIntName    ;name
  4290.         dc.l    TLIntData    ;userstuff
  4291.         dc.l    TLIntCode    ;code
  4292.  
  4293. TLIntName:    dc.b    "TL_Interrupt",0
  4294.         ds.l    0
  4295.  
  4296. TLIntData:    dc.l    Sprite1            ;Pointer to first car Spr
  4297.         dc.l    Sprite27        ;Pointer to last car Spr
  4298. TLIntScreen:    dc.l    0            ;Pointer to Screen
  4299.         dc.l    Sprite1            ;Pointer to SprBatch1
  4300.         dc.l    Sprite4            ;Pointer to SprBatch2
  4301.         dc.l    Sprite7            ;Pointer to SprBatch3
  4302.         dc.l    Sprite8            ;Pointer to SprBatch4
  4303.         dc.l    Sprite9            ;Pointer to SprBatch5
  4304.         dc.l    Sprite10        ;Pointer to SprBatch6
  4305.         dc.l    Sprite11        ;Pointer to SprBatch7
  4306.         dc.l    Sprite12        ;Pointer to SprBatch8
  4307.         dc.l    Sprite13        ;Pointer to SprBatch9
  4308.         dc.l    Sprite15        ;Pointer to SprBatch10
  4309.         dc.l    Sprite17        ;Pointer to SprBatch11
  4310.         dc.l    Sprite19        ;Pointer to SprBatch12
  4311.         dc.l    Sprite21        ;Pointer to SprBatch13
  4312.         dc.l    Sprite23        ;Pointer to SprBatch14
  4313.         dc.l    Sprite25        ;Pointer to SprBatch15
  4314.         dc.l    Sprite27        ;Pointer to SprBatch16
  4315.         dc.l    UpSprImg        ;Pointer to UpSprImg
  4316.         dc.l    DownSprImg        ;Pointer to DownSprImg
  4317.         dc.l    RightSprImg        ;Pointer to RightSprImg
  4318.         dc.l    LeftSprImg        ;Pointer to LeftSprImg
  4319.  
  4320. GelsInfo:    dc.b    255            ;Reserved
  4321.         dc.b    0            ;Flags
  4322.         dc.l    0            ;GelHead
  4323.         dc.l    0            ;GelTail
  4324.         dc.l    NextLine        ;NextLine
  4325.         dc.l    LastColor        ;LastColor
  4326.         dc.l    CollHandler        ;CollHandler
  4327.         dc.w    0            ;LeftMost
  4328.         dc.w    639            ;RightMost
  4329.         dc.w    0            ;TopMost
  4330.         dc.w    255            ;BottomMost
  4331.         dc.l    0            ;FirstBlissObj
  4332.         dc.l    0            ;LastBlissObj
  4333.  
  4334. NextLine:    dc.w    0,0,0,0,0,0,0,0,0,0
  4335. LastColor:    dc.l    0,0,0,0,0,0,0,0,0,0
  4336. CollHandler:    dc.l    0,0,0,0,0,0,0,0
  4337.         dc.l    0,0,0,0,0,0,0,0
  4338.  
  4339. ;Sprite structure stuff
  4340.  
  4341.         ds.l    0
  4342.  
  4343. DummyHead:    ds.b    62
  4344.  
  4345.         ds.l    0
  4346. ;Batch 1
  4347.  
  4348. Sprite1:    dc.l    0            ;NextVSprite
  4349.         dc.l    0            ;PrevVSprite
  4350.         dc.l    0            ;DrawPath
  4351.         dc.l    0            ;ClearPath
  4352.         dc.w    0,0            ;Old Y and X
  4353.         dc.w    1            ;Flags
  4354.         dc.w    0,0            ;Y and X
  4355.         dc.w    8            ;Height
  4356.         dc.w    1            ;Width
  4357.         dc.w    2            ;Depth
  4358.         dc.w    0            ;MeMask
  4359.         dc.w    0            ;HitMask
  4360.         dc.l    DownSprImg        ;ImageData
  4361.         dc.l    BorderLine1        ;BorderLine
  4362.         dc.l    CollMask1        ;CollMask
  4363.         dc.l    SpriteCols        ;SprColors
  4364.         dc.l    0            ;VSBob
  4365.         dc.b    1            ;PlanePick
  4366.         dc.b    0            ;PlaneOnOff
  4367.         dc.b    0            ;Current X
  4368.         dc.b    0            ; --"--  Y
  4369.         dc.b    0            ;Destination X
  4370.         dc.b    0            ;Destination Y
  4371. Sprite2:    dc.l    0            ;NextVSprite
  4372.         dc.l    0            ;PrevVSprite
  4373.         dc.l    0            ;DrawPath
  4374.         dc.l    0            ;ClearPath
  4375.         dc.w    0,0            ;Old Y and X
  4376.         dc.w    1            ;Flags
  4377.         dc.w    0,0            ;Y and X
  4378.         dc.w    8            ;Height
  4379.         dc.w    1            ;Width
  4380.         dc.w    2            ;Depth
  4381.         dc.w    0            ;MeMask
  4382.         dc.w    0            ;HitMask
  4383.         dc.l    DownSprImg        ;ImageData
  4384.         dc.l    BorderLine2        ;BorderLine
  4385.         dc.l    CollMask2        ;CollMask
  4386.         dc.l    SpriteCols        ;SprColors
  4387.         dc.l    0            ;VSBob
  4388.         dc.b    1            ;PlanePick
  4389.         dc.b    0            ;PlaneOnOff
  4390.         dc.b    0            ;Current X
  4391.         dc.b    0            ; --"--  Y
  4392.         dc.b    0            ;Destination X
  4393.         dc.b    0            ;Destination Y
  4394. Sprite3:    dc.l    0            ;NextVSprite
  4395.         dc.l    0            ;PrevVSprite
  4396.         dc.l    0            ;DrawPath
  4397.         dc.l    0            ;ClearPath
  4398.         dc.w    0,0            ;Old Y and X
  4399.         dc.w    1            ;Flags
  4400.         dc.w    0,0            ;Y and X
  4401.         dc.w    8            ;Height
  4402.         dc.w    1            ;Width
  4403.         dc.w    2            ;Depth
  4404.         dc.w    0            ;MeMask
  4405.         dc.w    0            ;HitMask
  4406.         dc.l    DownSprImg        ;ImageData
  4407.         dc.l    BorderLine3        ;BorderLine
  4408.         dc.l    CollMask3        ;CollMask
  4409.         dc.l    SpriteCols        ;SprColors
  4410.         dc.l    0            ;VSBob
  4411.         dc.b    1            ;PlanePick
  4412.         dc.b    0            ;PlaneOnOff
  4413.         dc.b    0            ;Current X
  4414.         dc.b    0            ; --"--  Y
  4415.         dc.b    0            ;Destination X
  4416.         dc.b    0            ;Destination Y
  4417. Sprite4:    dc.l    0            ;NextVSprite
  4418.         dc.l    0            ;PrevVSprite
  4419.         dc.l    0            ;DrawPath
  4420.         dc.l    0            ;ClearPath
  4421.         dc.w    0,0            ;Old Y and X
  4422.         dc.w    1            ;Flags
  4423.         dc.w    0,0            ;Y and X
  4424.         dc.w    8            ;Height
  4425.         dc.w    1            ;Width
  4426.         dc.w    2            ;Depth
  4427.         dc.w    0            ;MeMask
  4428.         dc.w    0            ;HitMask
  4429.         dc.l    DownSprImg        ;ImageData
  4430.         dc.l    BorderLine4        ;BorderLine
  4431.         dc.l    CollMask4        ;CollMask
  4432.         dc.l    SpriteCols        ;SprColors
  4433.         dc.l    0            ;VSBob
  4434.         dc.b    1            ;PlanePick
  4435.         dc.b    0            ;PlaneOnOff
  4436.         dc.b    0            ;Current X
  4437.         dc.b    0            ; --"--  Y
  4438.         dc.b    0            ;Destination X
  4439.         dc.b    0            ;Destination Y
  4440. Sprite5:    dc.l    0            ;NextVSprite
  4441.         dc.l    0            ;PrevVSprite
  4442.         dc.l    0            ;DrawPath
  4443.         dc.l    0            ;ClearPath
  4444.         dc.w    0,0            ;Old Y and X
  4445.         dc.w    1            ;Flags
  4446.         dc.w    0,0            ;Y and X
  4447.         dc.w    8            ;Height
  4448.         dc.w    1            ;Width
  4449.         dc.w    2            ;Depth
  4450.         dc.w    0            ;MeMask
  4451.         dc.w    0            ;HitMask
  4452.         dc.l    DownSprImg        ;ImageData
  4453.         dc.l    BorderLine5        ;BorderLine
  4454.         dc.l    CollMask5        ;CollMask
  4455.         dc.l    SpriteCols        ;SprColors
  4456.         dc.l    0            ;VSBob
  4457.         dc.b    1            ;PlanePick
  4458.         dc.b    0            ;PlaneOnOff
  4459.         dc.b    0            ;Current X
  4460.         dc.b    0            ; --"--  Y
  4461.         dc.b    0            ;Destination X
  4462.         dc.b    0            ;Destination Y
  4463. Sprite6:    dc.l    0            ;NextVSprite
  4464.         dc.l    0            ;PrevVSprite
  4465.         dc.l    0            ;DrawPath
  4466.         dc.l    0            ;ClearPath
  4467.         dc.w    0,0            ;Old Y and X
  4468.         dc.w    1            ;Flags
  4469.         dc.w    0,0            ;Y and X
  4470.         dc.w    8            ;Height
  4471.         dc.w    1            ;Width
  4472.         dc.w    2            ;Depth
  4473.         dc.w    0            ;MeMask
  4474.         dc.w    0            ;HitMask
  4475.         dc.l    DownSprImg        ;ImageData
  4476.         dc.l    BorderLine6        ;BorderLine
  4477.         dc.l    CollMask6        ;CollMask
  4478.         dc.l    SpriteCols        ;SprColors
  4479.         dc.l    0            ;VSBob
  4480.         dc.b    1            ;PlanePick
  4481.         dc.b    0            ;PlaneOnOff
  4482.         dc.b    0            ;Current X
  4483.         dc.b    0            ; --"--  Y
  4484.         dc.b    0            ;Destination X
  4485.         dc.b    0            ;Destination Y
  4486. Sprite7:    dc.l    0            
  4487.         dc.l    0            
  4488.         dc.l    0            
  4489.         dc.l    0            
  4490.         dc.w    0,0            
  4491.         dc.w    1            
  4492.         dc.w    0,0
  4493.         dc.w    8            
  4494.         dc.w    1            
  4495.         dc.w    2            
  4496.         dc.w    0            
  4497.         dc.w    0            
  4498.         dc.l    LeftSprImg            
  4499.         dc.l    BorderLine7        
  4500.         dc.l    CollMask7        
  4501.         dc.l    SpriteCols        
  4502.         dc.l    0            
  4503.         dc.b    1            
  4504.         dc.b    0            
  4505.         dc.b    0            ;Current X
  4506.         dc.b    0            ; --"--  Y
  4507.         dc.b    0            ;Destination X
  4508.         dc.b    0            ;Destination Y
  4509. Sprite8:    dc.l    0            
  4510.         dc.l    0            
  4511.         dc.l    0            
  4512.         dc.l    0            
  4513.         dc.w    0,0            
  4514.         dc.w    1            
  4515.         dc.w    0,0
  4516.         dc.w    8            
  4517.         dc.w    1            
  4518.         dc.w    2            
  4519.         dc.w    0            
  4520.         dc.w    0            
  4521.         dc.l    LeftSprImg            
  4522.         dc.l    BorderLine8        
  4523.         dc.l    CollMask8    
  4524.         dc.l    SpriteCols
  4525.         dc.l    0    
  4526.         dc.b    1    
  4527.         dc.b    0            
  4528.         dc.b    0            ;Current X
  4529.         dc.b    0            ; --"--  Y
  4530.         dc.b    0            ;Destination X
  4531.         dc.b    0            ;Destination Y
  4532. Sprite9:    dc.l    0            
  4533.         dc.l    0            
  4534.         dc.l    0            
  4535.         dc.l    0            
  4536.         dc.w    0,0            
  4537.         dc.w    1            
  4538.         dc.w    0,0
  4539.         dc.w    8            
  4540.         dc.w    1            
  4541.         dc.w    2            
  4542.         dc.w    0            
  4543.         dc.w    0            
  4544.         dc.l    UpSprImg            
  4545.         dc.l    BorderLine9        
  4546.         dc.l    CollMask9        
  4547.         dc.l    SpriteCols        
  4548.         dc.l    0            
  4549.         dc.b    1            
  4550.         dc.b    0            
  4551.         dc.b    0            ;Current X
  4552.         dc.b    0            ; --"--  Y
  4553.         dc.b    0            ;Destination X
  4554.         dc.b    0            ;Destination Y
  4555. Sprite10:    dc.l    0            
  4556.         dc.l    0            
  4557.         dc.l    0            
  4558.         dc.l    0            
  4559.         dc.w    0,0            
  4560.         dc.w    1            
  4561.         dc.w    0,0
  4562.         dc.w    8            
  4563.         dc.w    1            
  4564.         dc.w    2            
  4565.         dc.w    0            
  4566.         dc.w    0            
  4567.         dc.l    UpSprImg            
  4568.         dc.l    BorderLine10        
  4569.         dc.l    CollMask10        
  4570.         dc.l    SpriteCols        
  4571.         dc.l    0            
  4572.         dc.b    1            
  4573.         dc.b    0            
  4574.         dc.b    0            ;Current X
  4575.         dc.b    0            ; --"--  Y
  4576.         dc.b    0            ;Destination X
  4577.         dc.b    0            ;Destination Y
  4578. Sprite11:    dc.l    0            
  4579.         dc.l    0            
  4580.         dc.l    0            
  4581.         dc.l    0            
  4582.         dc.w    0,0            
  4583.         dc.w    1            
  4584.         dc.w    0,0
  4585.         dc.w    8            
  4586.         dc.w    1            
  4587.         dc.w    2            
  4588.         dc.w    0            
  4589.         dc.w    0            
  4590.         dc.l    RightSprImg            
  4591.         dc.l    BorderLine11        
  4592.         dc.l    CollMask11        
  4593.         dc.l    SpriteCols        
  4594.         dc.l    0            
  4595.         dc.b    1            
  4596.         dc.b    0            
  4597.         dc.b    0            ;Current X
  4598.         dc.b    0            ; --"--  Y
  4599.         dc.b    0            ;Destination X
  4600.         dc.b    0            ;Destination Y
  4601. Sprite12:    dc.l    0            
  4602.         dc.l    0            
  4603.         dc.l    0            
  4604.         dc.l    0            
  4605.         dc.w    0,0            
  4606.         dc.w    1            
  4607.         dc.w    0,0
  4608.         dc.w    8            
  4609.         dc.w    1            
  4610.         dc.w    2            
  4611.         dc.w    0            
  4612.         dc.w    0            
  4613.         dc.l    RightSprImg            
  4614.         dc.l    BorderLine12        
  4615.         dc.l    CollMask12        
  4616.         dc.l    SpriteCols        
  4617.         dc.l    0            
  4618.         dc.b    1            
  4619.         dc.b    0            
  4620.         dc.b    0            ;Current X
  4621.         dc.b    0            ; --"--  Y
  4622.         dc.b    0            ;Destination X
  4623.         dc.b    0            ;Destination Y
  4624. Sprite13:    dc.l    0            
  4625.         dc.l    0            
  4626.         dc.l    0            
  4627.         dc.l    0            
  4628.         dc.w    0,0            
  4629.         dc.w    1            
  4630.         dc.w    0,0
  4631.         dc.w    8            
  4632.         dc.w    1            
  4633.         dc.w    2            
  4634.         dc.w    0            
  4635.         dc.w    0            
  4636.         dc.l    LeftSprImg            
  4637.         dc.l    BorderLine13        
  4638.         dc.l    CollMask13        
  4639.         dc.l    SpriteCols        
  4640.         dc.l    0            
  4641.         dc.b    1            
  4642.         dc.b    0            
  4643.         dc.b    0            ;Current X
  4644.         dc.b    0            ; --"--  Y
  4645.         dc.b    0            ;Destination X
  4646.         dc.b    0            ;Destination Y
  4647. Sprite14:    dc.l    0            
  4648.         dc.l    0            
  4649.         dc.l    0            
  4650.         dc.l    0            
  4651.         dc.w    0,0            
  4652.         dc.w    1            
  4653.         dc.w    0,0
  4654.         dc.w    8            
  4655.         dc.w    1            
  4656.         dc.w    2            
  4657.         dc.w    0            
  4658.         dc.w    0            
  4659.         dc.l    LeftSprImg            
  4660.         dc.l    BorderLine14        
  4661.         dc.l    CollMask14        
  4662.         dc.l    SpriteCols        
  4663.         dc.l    0            
  4664.         dc.b    1            
  4665.         dc.b    0            
  4666.         dc.b    0            ;Current X
  4667.         dc.b    0            ; --"--  Y
  4668.         dc.b    0            ;Destination X
  4669.         dc.b    0            ;Destination Y
  4670. Sprite15:    dc.l    0            
  4671.         dc.l    0            
  4672.         dc.l    0            
  4673.         dc.l    0            
  4674.         dc.w    0,0            
  4675.         dc.w    1            
  4676.         dc.w    0,0
  4677.         dc.w    8            
  4678.         dc.w    1            
  4679.         dc.w    2            
  4680.         dc.w    0            
  4681.         dc.w    0            
  4682.         dc.l    RightSprImg            
  4683.         dc.l    BorderLine15        
  4684.         dc.l    CollMask15        
  4685.         dc.l    SpriteCols        
  4686.         dc.l    0            
  4687.         dc.b    1            
  4688.         dc.b    0            
  4689.         dc.b    0            ;Current X
  4690.         dc.b    0            ; --"--  Y
  4691.         dc.b    0            ;Destination X
  4692.         dc.b    0            ;Destination Y
  4693. Sprite16:    dc.l    0            
  4694.         dc.l    0            
  4695.         dc.l    0            
  4696.         dc.l    0            
  4697.         dc.w    0,0            
  4698.         dc.w    1            
  4699.         dc.w    0,0
  4700.         dc.w    8            
  4701.         dc.w    1            
  4702.         dc.w    2            
  4703.         dc.w    0            
  4704.         dc.w    0            
  4705.         dc.l    RightSprImg            
  4706.         dc.l    BorderLine16        
  4707.         dc.l    CollMask16        
  4708.         dc.l    SpriteCols        
  4709.         dc.l    0            
  4710.         dc.b    1            
  4711.         dc.b    0            
  4712.         dc.b    0            ;Current X
  4713.         dc.b    0            ; --"--  Y
  4714.         dc.b    0            ;Destination X
  4715.         dc.b    0            ;Destination Y
  4716. Sprite17:    dc.l    0            
  4717.         dc.l    0            
  4718.         dc.l    0            
  4719.         dc.l    0            
  4720.         dc.w    0,0            
  4721.         dc.w    1            
  4722.         dc.w    0,0
  4723.         dc.w    8            
  4724.         dc.w    1            
  4725.         dc.w    2            
  4726.         dc.w    0            
  4727.         dc.w    0            
  4728.         dc.l    UpSprImg            
  4729.         dc.l    BorderLine17        
  4730.         dc.l    CollMask17        
  4731.         dc.l    SpriteCols        
  4732.         dc.l    0            
  4733.         dc.b    1            
  4734.         dc.b    0            
  4735.         dc.b    0            ;Current X
  4736.         dc.b    0            ; --"--  Y
  4737.         dc.b    0            ;Destination X
  4738.         dc.b    0            ;Destination Y
  4739. Sprite18:    dc.l    0            
  4740.         dc.l    0            
  4741.         dc.l    0            
  4742.         dc.l    0            
  4743.         dc.w    0,0            
  4744.         dc.w    1            
  4745.         dc.w    0,0
  4746.         dc.w    8            
  4747.         dc.w    1            
  4748.         dc.w    2            
  4749.         dc.w    0            
  4750.         dc.w    0            
  4751.         dc.l    UpSprImg            
  4752.         dc.l    BorderLine18        
  4753.         dc.l    CollMask18        
  4754.         dc.l    SpriteCols        
  4755.         dc.l    0            
  4756.         dc.b    1            
  4757.         dc.b    0            
  4758.         dc.b    0            ;Current X
  4759.         dc.b    0            ; --"--  Y
  4760.         dc.b    0            ;Destination X
  4761.         dc.b    0            ;Destination Y
  4762. Sprite19:    dc.l    0            
  4763.         dc.l    0            
  4764.         dc.l    0            
  4765.         dc.l    0            
  4766.         dc.w    0,0            
  4767.         dc.w    1            
  4768.         dc.w    0,0
  4769.         dc.w    8            
  4770.         dc.w    1            
  4771.         dc.w    2            
  4772.         dc.w    0            
  4773.         dc.w    0            
  4774.         dc.l    DownSprImg
  4775.         dc.l    BorderLine19        
  4776.         dc.l    CollMask19        
  4777.         dc.l    SpriteCols        
  4778.         dc.l    0            
  4779.         dc.b    1            
  4780.         dc.b    0            
  4781.         dc.b    0            ;Current X
  4782.         dc.b    0            ; --"--  Y
  4783.         dc.b    0            ;Destination X
  4784.         dc.b    0            ;Destination Y
  4785. Sprite20:    dc.l    0            
  4786.         dc.l    0            
  4787.         dc.l    0            
  4788.         dc.l    0            
  4789.         dc.w    0,0            
  4790.         dc.w    1            
  4791.         dc.w    0,0
  4792.         dc.w    8            
  4793.         dc.w    1            
  4794.         dc.w    2            
  4795.         dc.w    0            
  4796.         dc.w    0            
  4797.         dc.l    DownSprImg            
  4798.         dc.l    BorderLine20        
  4799.         dc.l    CollMask20        
  4800.         dc.l    SpriteCols        
  4801.         dc.l    0            
  4802.         dc.b    1            
  4803.         dc.b    0            
  4804.         dc.b    0            ;Current X
  4805.         dc.b    0            ; --"--  Y
  4806.         dc.b    0            ;Destination X
  4807.         dc.b    0            ;Destination Y
  4808. Sprite21:    dc.l    0            
  4809.         dc.l    0            
  4810.         dc.l    0            
  4811.         dc.l    0            
  4812.         dc.w    0,0            
  4813.         dc.w    1            
  4814.         dc.w    0,0
  4815.         dc.w    8            
  4816.         dc.w    1            
  4817.         dc.w    2            
  4818.         dc.w    0            
  4819.         dc.w    0            
  4820.         dc.l    RightSprImg            
  4821.         dc.l    BorderLine21        
  4822.         dc.l    CollMask21        
  4823.         dc.l    SpriteCols        
  4824.         dc.l    0            
  4825.         dc.b    1            
  4826.         dc.b    0            
  4827.         dc.b    0            ;Current X
  4828.         dc.b    0            ; --"--  Y
  4829.         dc.b    0            ;Destination X
  4830.         dc.b    0            ;Destination Y
  4831. Sprite22:    dc.l    0            
  4832.         dc.l    0            
  4833.         dc.l    0            
  4834.         dc.l    0            
  4835.         dc.w    0,0            
  4836.         dc.w    1            
  4837.         dc.w    0,0
  4838.         dc.w    8            
  4839.         dc.w    1            
  4840.         dc.w    2            
  4841.         dc.w    0            
  4842.         dc.w    0            
  4843.         dc.l    RightSprImg            
  4844.         dc.l    BorderLine22        
  4845.         dc.l    CollMask22    
  4846.         dc.l    SpriteCols        
  4847.         dc.l    0            
  4848.         dc.b    1            
  4849.         dc.b    0            
  4850.         dc.b    0            ;Current X
  4851.         dc.b    0            ; --"--  Y
  4852.         dc.b    0            ;Destination X
  4853.         dc.b    0            ;Destination Y
  4854. Sprite23:    dc.l    0            
  4855.         dc.l    0            
  4856.         dc.l    0            
  4857.         dc.l    0            
  4858.         dc.w    0,0            
  4859.         dc.w    1            
  4860.         dc.w    0,0
  4861.         dc.w    8            
  4862.         dc.w    1            
  4863.         dc.w    2            
  4864.         dc.w    0            
  4865.         dc.w    0            
  4866.         dc.l    LeftSprImg            
  4867.         dc.l    BorderLine23
  4868.         dc.l    CollMask23
  4869.         dc.l    SpriteCols        
  4870.         dc.l    0            
  4871.         dc.b    1            
  4872.         dc.b    0            
  4873.         dc.b    0            ;Current X
  4874.         dc.b    0            ; --"--  Y
  4875.         dc.b    0            ;Destination X
  4876.         dc.b    0            ;Destination Y
  4877. Sprite24:    dc.l    0            
  4878.         dc.l    0            
  4879.         dc.l    0            
  4880.         dc.l    0            
  4881.         dc.w    0,0            
  4882.         dc.w    1            
  4883.         dc.w    0,0
  4884.         dc.w    8            
  4885.         dc.w    1            
  4886.         dc.w    2            
  4887.         dc.w    0            
  4888.         dc.w    0            
  4889.         dc.l    LeftSprImg            
  4890.         dc.l    BorderLine24
  4891.         dc.l    CollMask24
  4892.         dc.l    SpriteCols        
  4893.         dc.l    0            
  4894.         dc.b    1            
  4895.         dc.b    0            
  4896.         dc.b    0            ;Current X
  4897.         dc.b    0            ; --"--  Y
  4898.         dc.b    0            ;Destination X
  4899.         dc.b    0            ;Destination Y
  4900. Sprite25:    dc.l    0            
  4901.         dc.l    0            
  4902.         dc.l    0            
  4903.         dc.l    0            
  4904.         dc.w    0,0            
  4905.         dc.w    1            
  4906.         dc.w    0,0
  4907.         dc.w    8            
  4908.         dc.w    1            
  4909.         dc.w    2            
  4910.         dc.w    0            
  4911.         dc.w    0            
  4912.         dc.l    DownSprImg            
  4913.         dc.l    BorderLine25
  4914.         dc.l    CollMask25
  4915.         dc.l    SpriteCols        
  4916.         dc.l    0            
  4917.         dc.b    1            
  4918.         dc.b    0            
  4919.         dc.b    0            ;Current X
  4920.         dc.b    0            ; --"--  Y
  4921.         dc.b    0            ;Destination X
  4922.         dc.b    0            ;Destination Y
  4923. Sprite26:    dc.l    0            
  4924.         dc.l    0            
  4925.         dc.l    0            
  4926.         dc.l    0            
  4927.         dc.w    0,0            
  4928.         dc.w    1            
  4929.         dc.w    0,0
  4930.         dc.w    8            
  4931.         dc.w    1            
  4932.         dc.w    2            
  4933.         dc.w    0            
  4934.         dc.w    0            
  4935.         dc.l    DownSprImg            
  4936.         dc.l    BorderLine26
  4937.         dc.l    CollMask26
  4938.         dc.l    SpriteCols        
  4939.         dc.l    0            
  4940.         dc.b    1            
  4941.         dc.b    0            
  4942.         dc.b    0            ;Current X
  4943.         dc.b    0            ; --"--  Y
  4944.         dc.b    0            ;Destination X
  4945.         dc.b    0            ;Destination Y
  4946. Sprite27:    dc.l    0            
  4947.         dc.l    0            
  4948.         dc.l    0            
  4949.         dc.l    0            
  4950.         dc.w    0,0            
  4951.         dc.w    1            
  4952.         dc.w    0,0
  4953.         dc.w    8            
  4954.         dc.w    1            
  4955.         dc.w    2            
  4956.         dc.w    0            
  4957.         dc.w    0            
  4958.         dc.l    UpSprImg            
  4959.         dc.l    BorderLine27
  4960.         dc.l    CollMask27
  4961.         dc.l    SpriteCols        
  4962.         dc.l    0            
  4963.         dc.b    1            
  4964.         dc.b    0            
  4965.         dc.b    0            ;Current X
  4966.         dc.b    0            ; --"--  Y
  4967.         dc.b    0            ;Destination X
  4968.         dc.b    0            ;Destination Y
  4969. Sprite28:    dc.l    0            
  4970.         dc.l    0            
  4971.         dc.l    0            
  4972.         dc.l    0            
  4973.         dc.w    0,0            
  4974.         dc.w    1            
  4975.         dc.w    0,0
  4976.         dc.w    8            
  4977.         dc.w    1            
  4978.         dc.w    2            
  4979.         dc.w    0            
  4980.         dc.w    0            
  4981.         dc.l    UpSprImg            
  4982.         dc.l    BorderLine28
  4983.         dc.l    CollMask28
  4984.         dc.l    SpriteCols        
  4985.         dc.l    0            
  4986.         dc.b    1            
  4987.         dc.b    0            
  4988.         dc.b    0            ;Current X
  4989.         dc.b    0            ; --"--  Y
  4990.         dc.b    0            ;Destination X
  4991.         dc.b    0            ;Destination Y
  4992.  
  4993. DummyTail:    ds.b    62
  4994.  
  4995. ;Sprite color map
  4996.  
  4997.         ds.l    0
  4998. SpriteCols:    dc.w    $000,$fff,$00f
  4999.  
  5000.  
  5001. NewAreaInfo1:    dc.l    0            ;VctrTbl
  5002.         dc.l    0            ;VctrPtr
  5003.         dc.l    0            ;FlagTbl
  5004.         dc.l    0            ;FlagPtr
  5005.         dc.w    0            ;Count
  5006.         dc.w    0            ;MaxCount
  5007.         dc.w    0            ;FirstX
  5008.         dc.w    0            ;FirstY
  5009.         ds.l    0
  5010.     
  5011. NewTmpRas1:    dc.l    0            ;RasPtr
  5012.         dc.l    0            ;Size
  5013.         ds.l    0
  5014.  
  5015. NewScreen1:
  5016.         dc.w    0,0            ;X,Y POS
  5017. Screen1MaxCol:    dc.w    640            ;WIDTH (orig.704)
  5018. Screen1MaxRow:    dc.w    256            ;HEIGHT
  5019.         dc.w    4            ;DEPTH
  5020.         dc.b    0,1            ;COLORS
  5021.         dc.w    $c000            ;VIEWMODES
  5022.         dc.w    $000F            ;TYPE
  5023.         dc.l    Screen1Font        ;FONT
  5024.         dc.l    TLName            ;DEFAULT TITLE
  5025.         dc.l    0            ;GADGETS
  5026.         dc.l    0            ;CUSTOMBITMAP
  5027.         ds.l    0
  5028.  
  5029. Screen1Font:    dc.l    Screen1FontN        ;NAME
  5030.         dc.w    8            ;SIZE
  5031.         dc.b    0            ;STYLE
  5032.         dc.b    0            ;FLAGS
  5033.         ds.l    0
  5034. Screen1FontN:    dc.b    "topaz.font",0
  5035.  
  5036.         ds.l    0
  5037.  
  5038. NewWindow1:
  5039.         dc.w    0,11            ;X,Y POS
  5040. Win1MaxCol:    dc.w    400            ;WIDTH (orig.704)
  5041. Win1MaxRow:    dc.w    99            ;HEIGHT
  5042.         dc.b    0,1            ;PENS
  5043.         dc.l    INTUITICKS+CLOSEWINDOW+GADGETUP+VANILLAKEY+MENUPICK+RAWKEY
  5044.         dc.l    $0008            ;FLAGS (orig. $100a)
  5045.         dc.l    0,0            ;GADGETS, CHECKMARK
  5046.         dc.l    WindowTitle1        ;TITLE
  5047. SToW1:        dc.l    0            ;SCREEN ADDRESS
  5048.         dc.l    0            ;BITMAP            
  5049.         dc.w    400,99,400,99        ;MINIMUM SIZE
  5050.         dc.w    $000f            ;TYPE
  5051.         ds.l    0
  5052.  
  5053. WindowTitle1:    dc.b    "City map",0
  5054.         ds.l    0
  5055.  
  5056. NewWindow2:
  5057.         dc.w    0,0            ;X,Y POS
  5058. Win2MaxCol:    dc.w    640            ;WIDTH (orig. 704)4)
  5059. Win2MaxRow:    dc.w    256            ;HEIGHT (orig. 272)
  5060.         dc.b    0,1            ;PENS
  5061.         dc.l    MENUPICK+VANILLAKEY+RAWKEY    ;IDCMP FLAGS
  5062.         dc.l    $1900            ;FLAGS (orig $1800)
  5063.         dc.l    0,0            ;GADGETS, CHECKMARK
  5064.         dc.l    0            ;TITLE
  5065. SToW2:        dc.l    0            ;SCREEN ADDRESS
  5066.         dc.l    0            ;BITMAP            
  5067.         dc.w    640,256,640,256        ;MINIMUM SIZE
  5068.         dc.w    $000f            ;TYPE
  5069.         ds.l    0
  5070.  
  5071. NewWindow3:
  5072.         dc.w    401,11            ;X,Y POS
  5073. Win3MaxCol:    dc.w    239            ;WIDTH (orig.704)
  5074. Win3MaxRow:    dc.w    245            ;HEIGHT
  5075.         dc.b    0,1            ;PENS
  5076.         dc.l    INTUITICKS+CLOSEWINDOW+GADGETDOWN+GADGETUP+VANILLAKEY+MENUPICK    ;IDCMP FLAGS
  5077.         dc.l    $100A            ;FLAGS (orig. $100a)
  5078.         dc.l    ModeGad1,0        ;GADGETS, CHECKMARK
  5079.         dc.l    WindowTitle3        ;TITLE
  5080. SToW4:        dc.l    0            ;SCREEN ADDRESS
  5081.         dc.l    0            ;BITMAP
  5082.         dc.w    239,245,239,245        ;MINIMUM SIZE
  5083.         dc.w    $000f            ;TYPE
  5084.         ds.l    0
  5085.  
  5086. WindowTitle3:    dc.b    "Variable editor",0
  5087.         ds.l    0
  5088. NewAbWindow1:
  5089.         dc.w    128,50            ;X,Y POS
  5090.         dc.w    400            ;WIDTH (orig.704)
  5091.         dc.w    100            ;HEIGHT
  5092.         dc.b    1,2            ;PENS
  5093.         dc.l    GADGETUP+VANILLAKEY    ;IDCMP FLAGS
  5094.         dc.l    wd_BORDERLESS        ;FLAGS 
  5095.         dc.l    MGad1,0            ;GADGETS, CHECKMARK
  5096.         dc.l    0            ;TITLE
  5097. SToW8:        dc.l    0            ;SCREEN ADDRESS
  5098.         dc.l    0            ;BITMAP            
  5099.         dc.w    128,50,128,50        ;MINIMUM SIZE
  5100.         dc.w    $000f            ;TYPE
  5101.         ds.l    0
  5102.  
  5103. NewHelpWin1:
  5104.         dc.w    10,6,520,250        ;POSITION, SIZE
  5105.         dc.b    0,1            ;PENS
  5106.         dc.l    CLOSEWINDOW+GADGETUP+VANILLAKEY    ;IDCMP FLAGS
  5107.         dc.l    $1006+wd_WINDOWCLOSE    ;FLAGS (orig $1006)
  5108.         dc.l    MGad1,0            ;GADGETS, CHECKMARK
  5109.         dc.l    TLName            ;TITLE
  5110. SToW7:        dc.l    0            ;SCREEN ADDRESS
  5111.         dc.l    0            ;BITMAP            
  5112.         dc.w    320,200,320,200        ;MINIMUM+MAX SIZE
  5113.         dc.w    $000f            ;TYPE
  5114.         ds.l    0
  5115.  
  5116. HelpWin1Txt1:    dc.b    1,2            ;PENS
  5117.         dc.w    0            ;MODE
  5118.         dc.w    1,3            ;LEFT+TOPEDGE
  5119.         dc.l    0            ;FONT
  5120.         dc.l    HWin1Text1        ;TEXT
  5121.         dc.l    HWin1Txt2        ;NEXTTEXT
  5122.         ds.l    0
  5123.  
  5124. HWin1Text1:    dc.b    "Help:",0
  5125.         ds.l    0
  5126.  
  5127. HWin1Txt2:    dc.b    1,2            ;PENS
  5128.         dc.w    0            ;MODE
  5129.         dc.w    5,22            ;LEFT+TOPEDGE
  5130.         dc.l    0            ;FONT
  5131.         dc.l    HWin1Text2        ;TEXT
  5132.         dc.l    0            ;NEXTTEXT
  5133.         ds.l    0
  5134.  
  5135. HWin1Text2:    dc.b    "Sorry, help is not availible yet.",0
  5136.         ds.l    0
  5137. NewQuitWin1:
  5138.                 dc.w    0,0,320,75              ;POSITION, SIZE
  5139.                 dc.b    0,1                     ;PENS
  5140.                 dc.l    GADGETUP+VANILLAKEY     ;IDCMP FLAGS
  5141.                 dc.l    $1006                   ;FLAGS (orig $1006)
  5142.                 dc.l    QuitGad1,0              ;GADGETS, CHECKMARK
  5143.                 dc.l    TLName            ;TITLE
  5144. SToW3:          dc.l    0                       ;SCREEN ADDRESS
  5145.                 dc.l    0                       ;BITMAP
  5146.                 dc.w    320,75,704,283          ;MINIMUM+MAX SIZE
  5147.                 dc.w    $000f                   ;TYPE
  5148.                 ds.l    0
  5149.  
  5150. QuitWin1Txt1:   dc.b    1,2                     ;PENS
  5151.                 dc.w    0                       ;MODE
  5152.                 dc.w    1,3                     ;LEFT+TOPEDGE
  5153.                 dc.l    0                       ;FONT
  5154.                 dc.l    QuitWin1Text1           ;TEXT
  5155.                 dc.l    QuitWin1Txt2            ;NEXTTEXT
  5156.                 ds.l    0
  5157.  
  5158. QuitWin1Text1:  dc.b    "Message:",0
  5159.                 ds.l    0
  5160. QuitWin1Txt2:   dc.b    1,2            ;PENS
  5161.                 dc.w    0            ;MODE
  5162.                 dc.w    5,22            ;LEFT+TOPEDGE
  5163.                 dc.l    0            ;FONT
  5164.                 dc.l    QuitWin1Text2        ;TEXT
  5165.                 dc.l    0            ;NEXTTEXT
  5166.                 ds.l    0
  5167. QuitWin1Text2:  dc.b    "Quit program?",0
  5168.                 ds.l    0
  5169.  
  5170. ;QuitWin1Txt3:   dc.b    1,2                     ;PENS
  5171. ;                dc.w    0                       ;MODE
  5172. ;                dc.w    1,31                    ;LEFT+TOPEDGE
  5173. ;                dc.l    0                       ;FONT
  5174. ;                dc.l    QuitWin1Text3           ;TEXT
  5175. ;                dc.l    0                       ;NEXTTEXT
  5176. ;                ds.l    0
  5177. ;QuitWin1Text3:  dc.b    "",0
  5178. ;                ds.l    0
  5179.  
  5180. ;Menus
  5181.  
  5182. Menu1:        dc.l    0            ;NEXT MENU
  5183.         dc.w    0,1            ;LEFT+TOP EDGE
  5184.         dc.w    100,8            ;WIDTH+HEIGHT
  5185.         dc.w    $0001            ;FLAGS
  5186.         dc.l    Menu1Name        ;NAME
  5187.         dc.l    Menu1Item1        ;ITEMS
  5188.         dc.w    0,0            ;Some Jazz-music here...        
  5189.         dc.w    0,0,0            ;(with a good beat)
  5190.         ds.l    0
  5191.  
  5192. Menu1Name:    dc.b    "Project",0
  5193.         ds.l    0
  5194.  
  5195. Menu1Item1:    dc.l    Menu1Item2        ;NEXT ITEM
  5196.         dc.w    1,1            ;LEFT+TOP EDGE
  5197.         dc.w    120,8            ;WIDTH+HEIGHT
  5198.         dc.w    $0056            ;FLAGS
  5199.         dc.l    0            ;MUTUAL EXCLUDE
  5200.         dc.l    Menu1I1            ;ITEMFILL (IMAGE,ITEXT,GFX)
  5201.         dc.l    0            ;SELECTFILL
  5202.         dc.b    "M",0            ;COMMAND
  5203.         dc.l    0            ;SubItem
  5204.         dc.w    $ffff            ;NextSelect
  5205.         ds.l    0
  5206.         
  5207. Menu1I1:    dc.b    0,1            ;PENS
  5208.         dc.w    0            ;MODE
  5209.         dc.w    1,0            ;LEFT+TOPEDGE
  5210.         dc.l    0            ;FONT
  5211.         dc.l    Menu1I1Text        ;TEXT
  5212.         dc.l    0            ;NEXTTEXT
  5213.         ds.l    0
  5214.  
  5215. Menu1I1Text:    dc.b    "City map",0
  5216.         ds.l    0
  5217.  
  5218. Menu1Item2:    dc.l    Menu1Item3        
  5219.         dc.w    1,15            
  5220.         dc.w    120,8            
  5221.         dc.w    $0056            
  5222.         dc.l    0            
  5223.         dc.l    Menu1I2            
  5224.         dc.l    0            
  5225.         dc.b    "H",0            
  5226.         dc.l    0            
  5227.         dc.w    $ffff            
  5228.         ds.l    0
  5229.         
  5230. Menu1I2:    dc.b    0,1            
  5231.         dc.w    0            
  5232.         dc.w    1,0            
  5233.         dc.l    0            
  5234.         dc.l    Menu1I2Text        
  5235.         dc.l    0            
  5236.         ds.l    0
  5237.  
  5238. Menu1I2Text:    dc.b    "Help",0
  5239.         ds.l    0
  5240.  
  5241. Menu1Item3:    dc.l    Menu1Item4        
  5242.         dc.w    1,30            
  5243.         dc.w    120,8            
  5244.         dc.w    $0056            
  5245.         dc.l    0            
  5246.         dc.l    Menu1I3            
  5247.         dc.l    0            
  5248.         dc.b    "L",0            
  5249.         dc.l    0            
  5250.         dc.w    $ffff            
  5251.         ds.l    0
  5252.         
  5253. Menu1I3:    dc.b    0,1            
  5254.         dc.w    0            
  5255.         dc.w    1,0            
  5256.         dc.l    0            
  5257.         dc.l    Menu1I3Text        
  5258.         dc.l    0            
  5259.         ds.l    0
  5260.  
  5261. Menu1I3Text:    dc.b    "Load...",0
  5262.         ds.l    0
  5263.  
  5264. Menu1Item4:    dc.l    Menu1Item5        
  5265.         dc.w    1,40            
  5266.         dc.w    120,8            
  5267.         dc.w    $0056            
  5268.         dc.l    0            
  5269.         dc.l    Menu1I4            
  5270.         dc.l    0            
  5271.         dc.b    "S",0            
  5272.         dc.l    0            
  5273.         dc.w    $ffff            
  5274.         ds.l    0
  5275.         
  5276. Menu1I4:    dc.b    0,1            
  5277.         dc.w    0            
  5278.         dc.w    1,0            
  5279.         dc.l    0            
  5280.         dc.l    Menu1I4Text        
  5281.         dc.l    0            
  5282.         ds.l    0
  5283.  
  5284. Menu1I4Text:    dc.b    "Save",0
  5285.         ds.l    0
  5286.  
  5287. Menu1Item5:    dc.l    Menu1Item6        
  5288.         dc.w    1,50            
  5289.         dc.w    120,8            
  5290.         dc.w    $0056            
  5291.         dc.l    0            
  5292.         dc.l    Menu1I5            
  5293.         dc.l    0            
  5294.         dc.b    "A",0            
  5295.         dc.l    0            
  5296.         dc.w    $ffff            
  5297.         ds.l    0
  5298.         
  5299. Menu1I5:    dc.b    0,1            
  5300.         dc.w    0            
  5301.         dc.w    1,0            
  5302.         dc.l    0            
  5303.         dc.l    Menu1I5Text        
  5304.         dc.l    0            
  5305.         ds.l    0
  5306.  
  5307. Menu1I5Text:    dc.b    "Save as...",0
  5308.         ds.l    0
  5309.  
  5310. Menu1Item6:    dc.l    Menu1Item7        
  5311.         dc.w    1,70            
  5312.         dc.w    120,8            
  5313.         dc.w    $0056            
  5314.         dc.l    0            
  5315.         dc.l    Menu1I6            
  5316.         dc.l    0            
  5317.         dc.b    "?",0            
  5318.         dc.l    0            
  5319.         dc.w    $ffff            
  5320.         ds.l    0
  5321.         
  5322. Menu1I6:    dc.b    0,1            
  5323.         dc.w    0            
  5324.         dc.w    1,0            
  5325.         dc.l    0            
  5326.         dc.l    Menu1I6Text        
  5327.         dc.l    0            
  5328.         ds.l    0
  5329.  
  5330. Menu1I6Text:    dc.b    "About...",0
  5331.         ds.l    0
  5332.  
  5333. Menu1Item7:    dc.l    0            
  5334.         dc.w    1,80            
  5335.         dc.w    120,9            
  5336.         dc.w    $0056            
  5337.         dc.l    0            
  5338.         dc.l    Menu1I7    
  5339.         dc.l    0            
  5340.         dc.b     "Q",0            
  5341.         dc.l    0            
  5342.         dc.w    $ffff            
  5343.         ds.l    0
  5344.         
  5345. Menu1I7:    dc.b    0,1            
  5346.         dc.w    0            
  5347.         dc.w    1,0            
  5348.         dc.l    0            
  5349.         dc.l    Menu1I7Text        
  5350.         dc.l    0            
  5351.         ds.l    0
  5352.     
  5353. Menu1I7Text:    dc.b    "Quit",0
  5354.         ds.l    0
  5355.  
  5356. Menu9:        dc.l    0            ;NEXT MENU
  5357.         dc.w    0,1            ;LEFT+TOP EDGE
  5358.         dc.w    100,8            ;WIDTH+HEIGHT
  5359.         dc.w    $0001            ;FLAGS
  5360.         dc.l    Menu9Name        ;NAME
  5361.         dc.l    Menu9Item1        ;ITEMS
  5362.         dc.w    0,0            ;Some Jazz-music here...        
  5363.         dc.w    0,0,0            ;(with a good beat)
  5364.         ds.l    0
  5365.  
  5366. Menu9Name:    dc.b    "Variables",0
  5367.         ds.l    0
  5368.  
  5369. Menu9Item1:    dc.l    Menu1Item2        ;NEXT ITEM
  5370.         dc.w    1,1            ;LEFT+TOP EDGE
  5371.         dc.w    120,8            ;WIDTH+HEIGHT
  5372.         dc.w    $0056            ;FLAGS
  5373.         dc.l    0            ;MUTUAL EXCLUDE
  5374.         dc.l    Menu1I1            ;ITEMFILL (IMAGE,ITEXT,GFX)
  5375.         dc.l    0            ;SELECTFILL
  5376.         dc.b    "M",0            ;COMMAND
  5377.         dc.l    0            ;SubItem
  5378.         dc.w    $ffff            ;NextSelect
  5379.         ds.l    0
  5380.  
  5381. Menu9I1:    dc.b    0,1            ;PENS
  5382.         dc.w    0            ;MODE
  5383.         dc.w    1,0            ;LEFT+TOPEDGE
  5384.         dc.l    0            ;FONT
  5385.         dc.l    Menu1I1Text        ;TEXT
  5386.         dc.l    0            ;NEXTTEXT
  5387.         ds.l    0
  5388.  
  5389. Menu9Item2:    dc.l    Menu9Item3        
  5390.         dc.w    1,15            
  5391.         dc.w    120,8            
  5392.         dc.w    $0056            
  5393.         dc.l    0            
  5394.         dc.l    Menu9I2            
  5395.         dc.l    0            
  5396.         dc.b    "H",0            
  5397.         dc.l    0            
  5398.         dc.w    $ffff            
  5399.         ds.l    0
  5400.         
  5401. Menu9I2:    dc.b    0,1            
  5402.         dc.w    0            
  5403.         dc.w    1,0            
  5404.         dc.l    0            
  5405.         dc.l    Menu1I2Text        
  5406.         dc.l    0            
  5407.         ds.l    0
  5408.  
  5409. Menu9Item3:    dc.l    Menu9Item4        
  5410.         dc.w    1,30            
  5411.         dc.w    120,8            
  5412.         dc.w    $0056            
  5413.         dc.l    0            
  5414.         dc.l    Menu9I3            
  5415.         dc.l    0            
  5416.         dc.b    "L",0            
  5417.         dc.l    0            
  5418.         dc.w    $ffff            
  5419.         ds.l    0
  5420.         
  5421. Menu9I3:    dc.b    0,1            
  5422.         dc.w    0            
  5423.         dc.w    1,0            
  5424.         dc.l    0            
  5425.         dc.l    Menu1I3Text        
  5426.         dc.l    0            
  5427.         ds.l    0
  5428.  
  5429. Menu9Item4:    dc.l    Menu9Item5        
  5430.         dc.w    1,40            
  5431.         dc.w    120,8            
  5432.         dc.w    $0056            
  5433.         dc.l    0            
  5434.         dc.l    Menu9I4            
  5435.         dc.l    0            
  5436.         dc.b    "S",0            
  5437.         dc.l    0            
  5438.         dc.w    $ffff            
  5439.         ds.l    0
  5440.         
  5441. Menu9I4:    dc.b    0,1            
  5442.         dc.w    0            
  5443.         dc.w    1,0            
  5444.         dc.l    0            
  5445.         dc.l    Menu1I4Text        
  5446.         dc.l    0            
  5447.         ds.l    0
  5448.  
  5449. Menu9Item5:    dc.l    Menu9Item6        
  5450.         dc.w    1,50            
  5451.         dc.w    120,8            
  5452.         dc.w    $0056            
  5453.         dc.l    0            
  5454.         dc.l    Menu9I5            
  5455.         dc.l    0            
  5456.         dc.b    "A",0            
  5457.         dc.l    0            
  5458.         dc.w    $ffff            
  5459.         ds.l    0
  5460.         
  5461. Menu9I5:    dc.b    0,1            
  5462.         dc.w    0            
  5463.         dc.w    1,0            
  5464.         dc.l    0            
  5465.         dc.l    Menu1I5Text        
  5466.         dc.l    0            
  5467.         ds.l    0
  5468.  
  5469. Menu9Item6:    dc.l    Menu9Item7        
  5470.         dc.w    1,70            
  5471.         dc.w    120,8            
  5472.         dc.w    $0056            
  5473.         dc.l    0            
  5474.         dc.l    Menu9I6            
  5475.         dc.l    0            
  5476.         dc.b    "?",0            
  5477.         dc.l    0            
  5478.         dc.w    $ffff            
  5479.         ds.l    0
  5480.         
  5481. Menu9I6:    dc.b    0,1            
  5482.         dc.w    0            
  5483.         dc.w    1,0            
  5484.         dc.l    0            
  5485.         dc.l    Menu1I6Text        
  5486.         dc.l    0            
  5487.         ds.l    0
  5488.  
  5489. Menu9Item7:    dc.l    0            
  5490.         dc.w    1,80            
  5491.         dc.w    120,9            
  5492.         dc.w    $0056            
  5493.         dc.l    0            
  5494.         dc.l    Menu9I7    
  5495.         dc.l    0            
  5496.         dc.b     "Q",0            
  5497.         dc.l    0            
  5498.         dc.w    $ffff            
  5499.         ds.l    0
  5500.         
  5501. Menu9I7:    dc.b    0,1            
  5502.         dc.w    0            
  5503.         dc.w    1,0            
  5504.         dc.l    0            
  5505.         dc.l    Menu1I7Text        
  5506.         dc.l    0            
  5507.         ds.l    0
  5508.  
  5509. ;Requester Structures
  5510.  
  5511. PositiveText1:    dc.b    "Yes",0
  5512.         ds.l    0
  5513. NegativeText1:    dc.b    "No",0
  5514.         ds.l    0
  5515. TLName:        dc.b    "Traffic-Lights",0
  5516.         ds.l    0
  5517.  
  5518.  
  5519. ;Gadget Structures.
  5520.  
  5521. InTime:        dc.l    OutTime        ;Next Gadget
  5522.         dc.w    10        ;"hit-box" left edge
  5523.         dc.w    43        ;"hit-box" top  edge
  5524.         dc.w    35        ;"hit-box" Width
  5525.         dc.w    9           ;"hit-box" Height
  5526.         dc.w    $0000        ;flags
  5527.         dc.w    $0a01        ;activation
  5528.         dc.w    $0004        ;gadget type
  5529.         dc.l    GadgetBorder    ;gadget rendering
  5530.         dc.l    0        ;select rendering
  5531.         dc.l    IT1Txt        ;gadget text
  5532.         dc.l    0        ;mutual exclude
  5533.         dc.l    IT1String    ;special info 
  5534.         dc.w    1        ;gadget ID (user definable)
  5535.         dc.l    0        ;ptr to general purpose user data
  5536.         ds.l    0
  5537.  
  5538. IT1Txt:        dc.b    1,2            ;PENS
  5539.         dc.w    0            ;MODE
  5540.         dc.w    0,10            ;LEFT+TOPEDGE
  5541.         dc.l    0            ;FONT
  5542.         dc.l    IT1Text            ;TEXT
  5543.         dc.l    0            ;NEXTTEXT
  5544.         ds.l    0
  5545.  
  5546. IT1Text:    dc.b    "Come",0
  5547.         ds.l    0    
  5548.  
  5549. IT1String:    dc.l    ITGad1Buf    ;Gadget 1 Buffer
  5550.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5551.         dc.w    1        ;Pos in Buffer
  5552.         dc.w    3        ;Max. Chars in Buffer
  5553.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5554.         dc.w    0        ;Intuition takes care of these.
  5555.         dc.w    0
  5556.         dc.w    0
  5557.         dc.w    0
  5558.         dc.w    0
  5559.         dc.l    0
  5560. InCarTime:    dc.l    1        ;Long int.
  5561.         dc.l    0        ;AltKeyMap
  5562.         ds.l    0
  5563.  
  5564.  
  5565. OutTime:    dc.l    XMax        ;Next Gadget
  5566.         dc.w    60        ;"hit-box" left edge
  5567.         dc.w    43        ;"hit-box" top  edge
  5568.         dc.w    35        ;"hit-box" Width
  5569.         dc.w    9           ;"hit-box" Height
  5570.         dc.w    $0000        ;flags
  5571.         dc.w    $0a01        ;activation
  5572.         dc.w    $0004        ;gadget type
  5573.         dc.l    GadgetBorder    ;gadget rendering
  5574.         dc.l    0        ;select rendering
  5575.         dc.l    OT1Txt        ;gadget text
  5576.         dc.l    0        ;mutual exclude
  5577.         dc.l    OT1String    ;special info 
  5578.         dc.w    1        ;gadget ID (user definable)
  5579.         dc.l    0        ;ptr to general purpose user data
  5580.         ds.l    0
  5581.  
  5582. OT1Txt:        dc.b    1,2            ;PENS
  5583.         dc.w    0            ;MODE
  5584.         dc.w    0,10            ;LEFT+TOPEDGE
  5585.         dc.l    0            ;FONT
  5586.         dc.l    OT1Text            ;TEXT
  5587.         dc.l    0            ;NEXTTEXT
  5588.         ds.l    0
  5589.  
  5590. OT1Text:    dc.b    " Go",0
  5591.         ds.l    0    
  5592.  
  5593. OT1String:    dc.l    OTGad1Buf    ;Gadget 1 Buffer
  5594.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5595.         dc.w    1        ;Pos in Buffer
  5596.         dc.w    3        ;Max. Chars in Buffer
  5597.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5598.         dc.w    0        ;Intuition takes care of these.
  5599.         dc.w    0
  5600.         dc.w    0
  5601.         dc.w    0
  5602.         dc.w    0
  5603.         dc.l    0
  5604. OutCarTime:    dc.l    1        ;Long int.
  5605.         dc.l    0        ;AltKeyMap
  5606.         ds.l    0
  5607.  
  5608. XMax:        dc.l    YMax        ;Next Gadget
  5609.         dc.w    110        ;"hit-box" left edge
  5610.         dc.w    43        ;"hit-box" top  edge
  5611.         dc.w    35        ;"hit-box" Width
  5612.         dc.w    9           ;"hit-box" Height
  5613.         dc.w    $0000        ;flags
  5614.         dc.w    $0a01        ;activation
  5615.         dc.w    $0004        ;gadget type
  5616.         dc.l    GadgetBorder    ;gadget rendering
  5617.         dc.l    0        ;select rendering
  5618.         dc.l    XM1Txt        ;gadget text
  5619.         dc.l    0        ;mutual exclude
  5620.         dc.l    XM1String    ;special info 
  5621.         dc.w    1        ;gadget ID (user definable)
  5622.         dc.l    0        ;ptr to general purpose user data
  5623.         ds.l    0
  5624.  
  5625. XM1Txt:        dc.b    1,2            ;PENS
  5626.         dc.w    0            ;MODE
  5627.         dc.w    0,10            ;LEFT+TOPEDGE
  5628.         dc.l    0            ;FONT
  5629.         dc.l    XM1Text            ;TEXT
  5630.         dc.l    0            ;NEXTTEXT
  5631.         ds.l    0
  5632.  
  5633. XM1Text:    dc.b    "X max",0
  5634.         ds.l    0    
  5635.  
  5636. XM1String:    dc.l    XMGad1Buf    ;Gadget 1 Buffer
  5637.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5638.         dc.w    1        ;Pos in Buffer
  5639.         dc.w    3        ;Max. Chars in Buffer
  5640.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5641.         dc.w    0        ;Intuition takes care of these.
  5642.         dc.w    0
  5643.         dc.w    0
  5644.         dc.w    0
  5645.         dc.w    0
  5646.         dc.l    0
  5647. XMaxAmount:    dc.l    1        ;Long int.
  5648.         dc.l    0        ;AltKeyMap
  5649.         ds.l    0
  5650. YMax:        dc.l    InCar1        ;Next Gadget
  5651.         dc.w    160        ;"hit-box" left edge
  5652.         dc.w    43        ;"hit-box" top  edge
  5653.         dc.w    35        ;"hit-box" Width
  5654.         dc.w    9           ;"hit-box" Height
  5655.         dc.w    $0000        ;flags
  5656.         dc.w    $0a01        ;activation
  5657.         dc.w    $0004        ;gadget type
  5658.         dc.l    GadgetBorder    ;gadget rendering
  5659.         dc.l    0        ;select rendering
  5660.         dc.l    YM1Txt        ;gadget text
  5661.         dc.l    0        ;mutual exclude
  5662.         dc.l    YM1String    ;special info 
  5663.         dc.w    1        ;gadget ID (user definable)
  5664.         dc.l    0        ;ptr to general purpose user data
  5665.         ds.l    0
  5666.  
  5667. YM1Txt:        dc.b    1,2            ;PENS
  5668.         dc.w    0            ;MODE
  5669.         dc.w    0,10            ;LEFT+TOPEDGE
  5670.         dc.l    0            ;FONT
  5671.         dc.l    YM1Text            ;TEXT
  5672.         dc.l    0            ;NEXTTEXT
  5673.         ds.l    0
  5674.  
  5675. YM1Text:    dc.b    "Y max",0
  5676.         ds.l    0    
  5677.  
  5678. YM1String:    dc.l    YMGad1Buf    ;Gadget 1 Buffer
  5679.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5680.         dc.w    1        ;Pos in Buffer
  5681.         dc.w    3        ;Max. Chars in Buffer
  5682.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5683.         dc.w    0        ;Intuition takes care of these.
  5684.         dc.w    0
  5685.         dc.w    0
  5686.         dc.w    0
  5687.         dc.w    0
  5688.         dc.l    0
  5689. YMaxAmount:    dc.l    1        ;Long int.
  5690.         dc.l    0        ;AltKeyMap
  5691.         ds.l    0
  5692.  
  5693. InCar1:        dc.l    InCar2        ;Next Gadget
  5694.         dc.w    10        ;"hit-box" left edge
  5695.         dc.w    63        ;"hit-box" top  edge
  5696.         dc.w    35        ;"hit-box" Width
  5697.         dc.w    9           ;"hit-box" Height
  5698.         dc.w    $0000        ;flags
  5699.         dc.w    $0a01        ;activation
  5700.         dc.w    $0004        ;gadget type
  5701.         dc.l    GadgetBorder    ;gadget rendering
  5702.         dc.l    0        ;select rendering
  5703.         dc.l    IC1Txt        ;gadget text
  5704.         dc.l    0        ;mutual exclude
  5705.         dc.l    IC1String    ;special info 
  5706.         dc.w    1        ;gadget ID (user definable)
  5707.         dc.l    0        ;ptr to general purpose user data
  5708.         ds.l    0
  5709.  
  5710. IC1Txt:        dc.b    1,2            ;PENS
  5711.         dc.w    0            ;MODE
  5712.         dc.w    0,10            ;LEFT+TOPEDGE
  5713.         dc.l    0            ;FONT
  5714.         dc.l    IC1Text            ;TEXT
  5715.         dc.l    0            ;NEXTTEXT
  5716.         ds.l    0
  5717.  
  5718. IC1Text:    dc.b    "No 1",0
  5719.         ds.l    0    
  5720.  
  5721. IC1String:    dc.l    ICGad1Buf    ;Gadget 1 Buffer
  5722.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5723.         dc.w    1        ;Pos in Buffer
  5724.         dc.w    3        ;Max. Chars in Buffer
  5725.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5726.         dc.w    0        ;Intuition takes care of these.
  5727.         dc.w    0
  5728.         dc.w    0
  5729.         dc.w    0
  5730.         dc.w    0
  5731.         dc.l    0
  5732. In1:        dc.l    12        ;Long int.
  5733.         dc.l    0        ;AltKeyMap
  5734.         ds.l    0
  5735.  
  5736. InCar2:        dc.l    InCar3        ;Next Gadget
  5737.         dc.w    50        ;"hit-box" left edge
  5738.         dc.w    63        ;"hit-box" top  edge
  5739.         dc.w    35        ;"hit-box" Width
  5740.         dc.w    9           ;"hit-box" Height
  5741.         dc.w    $0000        ;flags
  5742.         dc.w    $0a01        ;activation
  5743.         dc.w    $0004        ;gadget type
  5744.         dc.l    GadgetBorder    ;gadget rendering
  5745.         dc.l    0        ;select rendering
  5746.         dc.l    IC2Txt        ;gadget text
  5747.         dc.l    0        ;mutual exclude
  5748.         dc.l    IC2String    ;special info 
  5749.         dc.w    1        ;gadget ID (user definable)
  5750.         dc.l    0        ;ptr to general purpose user data
  5751.         ds.l    0
  5752.  
  5753. IC2Txt:        dc.b    1,2            ;PENS
  5754.         dc.w    0            ;MODE
  5755.         dc.w    0,10            ;LEFT+TOPEDGE
  5756.         dc.l    0            ;FONT
  5757.         dc.l    IC2Text            ;TEXT
  5758.         dc.l    0            ;NEXTTEXT
  5759.         ds.l    0
  5760.  
  5761. IC2Text:    dc.b    "No 2",0
  5762.         ds.l    0    
  5763.  
  5764. IC2String:    dc.l    ICGad2Buf    ;Gadget 1 Buffer
  5765.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5766.         dc.w    1        ;Pos in Buffer
  5767.         dc.w    3        ;Max. Chars in Buffer
  5768.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5769.         dc.w    0        ;Intuition takes care of these.
  5770.         dc.w    0
  5771.         dc.w    0
  5772.         dc.w    0
  5773.         dc.w    0
  5774.         dc.l    0
  5775. In2:        dc.l    10        ;Long int.
  5776.         dc.l    0        ;AltKeyMap
  5777.         ds.l    0
  5778.  
  5779. InCar3:        dc.l    InCar4        ;Next Gadget
  5780.         dc.w    90        ;"hit-box" left edge
  5781.         dc.w    63        ;"hit-box" top  edge
  5782.         dc.w    35        ;"hit-box" Width
  5783.         dc.w    9           ;"hit-box" Height
  5784.         dc.w    $0000        ;flags
  5785.         dc.w    $0a01        ;activation
  5786.         dc.w    $0004        ;gadget type
  5787.         dc.l    GadgetBorder    ;gadget rendering
  5788.         dc.l    0        ;select rendering
  5789.         dc.l    IC3Txt        ;gadget text
  5790.         dc.l    0        ;mutual exclude
  5791.         dc.l    IC3String    ;special info 
  5792.         dc.w    1        ;gadget ID (user definable)
  5793.         dc.l    0        ;ptr to general purpose user data
  5794.         ds.l    0
  5795.  
  5796. IC3Txt:        dc.b    1,2            ;PENS
  5797.         dc.w    0            ;MODE
  5798.         dc.w    0,10            ;LEFT+TOPEDGE
  5799.         dc.l    0            ;FONT
  5800.         dc.l    IC3Text            ;TEXT
  5801.         dc.l    0            ;NEXTTEXT
  5802.         ds.l    0
  5803.  
  5804. IC3Text:    dc.b    "No 3",0
  5805.         ds.l    0    
  5806.  
  5807. IC3String:    dc.l    ICGad3Buf    ;Gadget 1 Buffer
  5808.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5809.         dc.w    1        ;Pos in Buffer
  5810.         dc.w    3        ;Max. Chars in Buffer
  5811.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5812.         dc.w    0        ;Intuition takes care of these.
  5813.         dc.w    0
  5814.         dc.w    0
  5815.         dc.w    0
  5816.         dc.w    0
  5817.         dc.l    0
  5818. In3:        dc.l    10        ;Long int.
  5819.         dc.l    0        ;AltKeyMap
  5820.         ds.l    0
  5821.  
  5822. InCar4:        dc.l    InCar5        ;Next Gadget
  5823.         dc.w    130        ;"hit-box" left edge
  5824.         dc.w    63        ;"hit-box" top  edge
  5825.         dc.w    35        ;"hit-box" Width
  5826.         dc.w    9           ;"hit-box" Height
  5827.         dc.w    $0000        ;flags
  5828.         dc.w    $0a01        ;activation
  5829.         dc.w    $0004        ;gadget type
  5830.         dc.l    GadgetBorder    ;gadget rendering
  5831.         dc.l    0        ;select rendering
  5832.         dc.l    IC4Txt        ;gadget text
  5833.         dc.l    0        ;mutual exclude
  5834.         dc.l    IC4String    ;special info 
  5835.         dc.w    1        ;gadget ID (user definable)
  5836.         dc.l    0        ;ptr to general purpose user data
  5837.         ds.l    0
  5838.  
  5839. IC4Txt:        dc.b    1,2            ;PENS
  5840.         dc.w    0            ;MODE
  5841.         dc.w    0,10            ;LEFT+TOPEDGE
  5842.         dc.l    0            ;FONT
  5843.         dc.l    IC4Text            ;TEXT
  5844.         dc.l    0            ;NEXTTEXT
  5845.         ds.l    0
  5846.  
  5847. IC4Text:    dc.b    "No 4",0
  5848.         ds.l    0    
  5849.  
  5850. IC4String:    dc.l    ICGad4Buf    ;Gadget 1 Buffer
  5851.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5852.         dc.w    1        ;Pos in Buffer
  5853.         dc.w    3        ;Max. Chars in Buffer
  5854.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5855.         dc.w    0        ;Intuition takes care of these.
  5856.         dc.w    0
  5857.         dc.w    0
  5858.         dc.w    0
  5859.         dc.w    0
  5860.         dc.l    0
  5861. In4:        dc.l    15        ;Long int.
  5862.         dc.l    0        ;AltKeyMap
  5863.         ds.l    0
  5864.  
  5865. InCar5:        dc.l    InCar6        ;Next Gadget
  5866.         dc.w    170        ;"hit-box" left edge
  5867.         dc.w    63        ;"hit-box" top  edge
  5868.         dc.w    35        ;"hit-box" Width
  5869.         dc.w    9           ;"hit-box" Height
  5870.         dc.w    $0000        ;flags
  5871.         dc.w    $0a01        ;activation
  5872.         dc.w    $0004        ;gadget type
  5873.         dc.l    GadgetBorder    ;gadget rendering
  5874.         dc.l    0        ;select rendering
  5875.         dc.l    IC5Txt        ;gadget text
  5876.         dc.l    0        ;mutual exclude
  5877.         dc.l    IC5String    ;special info 
  5878.         dc.w    1        ;gadget ID (user definable)
  5879.         dc.l    0        ;ptr to general purpose user data
  5880.         ds.l    0
  5881.  
  5882. IC5Txt:        dc.b    1,2            ;PENS
  5883.         dc.w    0            ;MODE
  5884.         dc.w    0,10            ;LEFT+TOPEDGE
  5885.         dc.l    0            ;FONT
  5886.         dc.l    IC5Text            ;TEXT
  5887.         dc.l    0            ;NEXTTEXT
  5888.         ds.l    0
  5889.  
  5890. IC5Text:    dc.b    "No 5",0
  5891.         ds.l    0    
  5892.  
  5893. IC5String:    dc.l    ICGad5Buf    ;Gadget 1 Buffer
  5894.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5895.         dc.w    1        ;Pos in Buffer
  5896.         dc.w    3        ;Max. Chars in Buffer
  5897.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5898.         dc.w    0        ;Intuition takes care of these.
  5899.         dc.w    0
  5900.         dc.w    0
  5901.         dc.w    0
  5902.         dc.w    0
  5903.         dc.l    0
  5904. In5:        dc.l    5        ;Long int.
  5905.         dc.l    0        ;AltKeyMap
  5906.         ds.l    0
  5907.  
  5908. InCar6:        dc.l    InCar7        ;Next Gadget
  5909.         dc.w    10        ;"hit-box" left edge
  5910.         dc.w    83        ;"hit-box" top  edge
  5911.         dc.w    35        ;"hit-box" Width
  5912.         dc.w    9           ;"hit-box" Height
  5913.         dc.w    $0000        ;flags
  5914.         dc.w    $0a01        ;activation
  5915.         dc.w    $0004        ;gadget type
  5916.         dc.l    GadgetBorder    ;gadget rendering
  5917.         dc.l    0        ;select rendering
  5918.         dc.l    IC6Txt        ;gadget text
  5919.         dc.l    0        ;mutual exclude
  5920.         dc.l    IC6String    ;special info 
  5921.         dc.w    1        ;gadget ID (user definable)
  5922.         dc.l    0        ;ptr to general purpose user data
  5923.         ds.l    0
  5924.  
  5925. IC6Txt:        dc.b    1,2            ;PENS
  5926.         dc.w    0            ;MODE
  5927.         dc.w    0,10            ;LEFT+TOPEDGE
  5928.         dc.l    0            ;FONT
  5929.         dc.l    IC6Text            ;TEXT
  5930.         dc.l    0            ;NEXTTEXT
  5931.         ds.l    0
  5932.  
  5933. IC6Text:    dc.b    "No 6",0
  5934.         ds.l    0    
  5935.  
  5936. IC6String:    dc.l    ICGad6Buf    ;Gadget 1 Buffer
  5937.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5938.         dc.w    1        ;Pos in Buffer
  5939.         dc.w    3        ;Max. Chars in Buffer
  5940.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5941.         dc.w    0        ;Intuition takes care of these.
  5942.         dc.w    0
  5943.         dc.w    0
  5944.         dc.w    0
  5945.         dc.w    0
  5946.         dc.l    0
  5947. In6:        dc.l    15        ;Long int.
  5948.         dc.l    0        ;AltKeyMap
  5949.         ds.l    0
  5950.  
  5951. InCar7:        dc.l    InCar8        ;Next Gadget
  5952.         dc.w    50        ;"hit-box" left edge
  5953.         dc.w    83        ;"hit-box" top  edge
  5954.         dc.w    35        ;"hit-box" Width
  5955.         dc.w    9           ;"hit-box" Height
  5956.         dc.w    $0000        ;flags
  5957.         dc.w    $0a01        ;activation
  5958.         dc.w    $0004        ;gadget type
  5959.         dc.l    GadgetBorder    ;gadget rendering
  5960.         dc.l    0        ;select rendering
  5961.         dc.l    IC7Txt        ;gadget text
  5962.         dc.l    0        ;mutual exclude
  5963.         dc.l    IC7String    ;special info 
  5964.         dc.w    1        ;gadget ID (user definable)
  5965.         dc.l    0        ;ptr to general purpose user data
  5966.         ds.l    0
  5967.  
  5968. IC7Txt:        dc.b    1,2            ;PENS
  5969.         dc.w    0            ;MODE
  5970.         dc.w    0,10            ;LEFT+TOPEDGE
  5971.         dc.l    0            ;FONT
  5972.         dc.l    IC7Text            ;TEXT
  5973.         dc.l    0            ;NEXTTEXT
  5974.         ds.l    0
  5975.  
  5976. IC7Text:    dc.b    "No 7",0
  5977.         ds.l    0    
  5978.  
  5979. IC7String:    dc.l    ICGad7Buf    ;Gadget 1 Buffer
  5980.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  5981.         dc.w    1        ;Pos in Buffer
  5982.         dc.w    3        ;Max. Chars in Buffer
  5983.         dc.w    1        ;Buffer Pos. of 1st disp. char
  5984.         dc.w    0        ;Intuition takes care of these.
  5985.         dc.w    0
  5986.         dc.w    0
  5987.         dc.w    0
  5988.         dc.w    0
  5989.         dc.l    0
  5990. In7:        dc.l    18        ;Long int.
  5991.         dc.l    0        ;AltKeyMap
  5992.         ds.l    0
  5993.  
  5994. InCar8:        dc.l    Turn1        ;Next Gadget
  5995.         dc.w    90        ;"hit-box" left edge
  5996.         dc.w    83        ;"hit-box" top  edge
  5997.         dc.w    35        ;"hit-box" Width
  5998.         dc.w    9           ;"hit-box" Height
  5999.         dc.w    $0000        ;flags
  6000.         dc.w    $0a01        ;activation
  6001.         dc.w    $0004        ;gadget type
  6002.         dc.l    GadgetBorder    ;gadget rendering
  6003.         dc.l    0        ;select rendering
  6004.         dc.l    IC8Txt        ;gadget text
  6005.         dc.l    0        ;mutual exclude
  6006.         dc.l    IC8String    ;special info 
  6007.         dc.w    1        ;gadget ID (user definable)
  6008.         dc.l    0        ;ptr to general purpose user data
  6009.         ds.l    0
  6010.  
  6011. IC8Txt:        dc.b    1,2            ;PENS
  6012.         dc.w    0            ;MODE
  6013.         dc.w    0,10            ;LEFT+TOPEDGE
  6014.         dc.l    0            ;FONT
  6015.         dc.l    IC8Text            ;TEXT
  6016.         dc.l    0            ;NEXTTEXT
  6017.         ds.l    0
  6018.  
  6019. IC8Text:    dc.b    "No 8",0
  6020.         ds.l    0    
  6021.  
  6022. IC8String:    dc.l    ICGad8Buf    ;Gadget 1 Buffer
  6023.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  6024.         dc.w    1        ;Pos in Buffer
  6025.         dc.w    3        ;Max. Chars in Buffer
  6026.         dc.w    1        ;Buffer Pos. of 1st disp. char
  6027.         dc.w    0        ;Intuition takes care of these.
  6028.         dc.w    0
  6029.         dc.w    0
  6030.         dc.w    0
  6031.         dc.w    0
  6032.         dc.l    0
  6033. In8:        dc.l    15        ;Long int.
  6034.         dc.l    0        ;AltKeyMap
  6035.         ds.l    0
  6036.  
  6037. Turn1:        dc.l    Turn2        
  6038.         dc.w    10        
  6039.         dc.w    113        
  6040.         dc.w    16        
  6041.         dc.w    9           
  6042.         dc.w    $0000        
  6043.         dc.w    $0a01        
  6044.         dc.w    $0004        
  6045.         dc.l    GadgetBorder2    
  6046.         dc.l    0        
  6047.         dc.l    0        
  6048.         dc.l    0        
  6049.         dc.l    Turn1String    
  6050.         dc.w    1        
  6051.         dc.l    0        
  6052.         ds.l    0
  6053.  
  6054. Turn1String:    dc.l    TurnGad1Buf    
  6055.         dc.l    GadUnBuf    
  6056.         dc.w    1        
  6057.         dc.w    3        
  6058.         dc.w    1        
  6059.         dc.w    0        
  6060.         dc.w    0
  6061.         dc.w    0
  6062.         dc.w    0
  6063.         dc.w    0
  6064.         dc.l    0
  6065. T1:        dc.l    5        
  6066.         dc.l    0        
  6067.         ds.l    0
  6068.  
  6069. Turn2:        dc.l    Turn3        
  6070.         dc.w    35        
  6071.         dc.w    113        
  6072.         dc.w    20        
  6073.         dc.w    9           
  6074.         dc.w    $0000        
  6075.         dc.w    $0a01        
  6076.         dc.w    $0004        
  6077.         dc.l    GadgetBorder2    
  6078.         dc.l    0        
  6079.         dc.l    0        
  6080.         dc.l    0        
  6081.         dc.l    Turn2String    
  6082.         dc.w    1        
  6083.         dc.l    0        
  6084.         ds.l    0
  6085.  
  6086. Turn2String:    dc.l    TurnGad2Buf    
  6087.         dc.l    GadUnBuf    
  6088.         dc.w    1        
  6089.         dc.w    3        
  6090.         dc.w    1        
  6091.         dc.w    0        
  6092.         dc.w    0
  6093.         dc.w    0
  6094.         dc.w    0
  6095.         dc.w    0
  6096.         dc.l    0
  6097. T2:        dc.l    10        
  6098.         dc.l    0        
  6099.         ds.l    0
  6100.  
  6101. Turn3:        dc.l    Turn4        
  6102.         dc.w    60        
  6103.         dc.w    113        
  6104.         dc.w    20        
  6105.         dc.w    9           
  6106.         dc.w    $0000        
  6107.         dc.w    $0a01        
  6108.         dc.w    $0004        
  6109.         dc.l    GadgetBorder2    
  6110.         dc.l    0        
  6111.         dc.l    0        
  6112.         dc.l    0        
  6113.         dc.l    Turn3String    
  6114.         dc.w    1        
  6115.         dc.l    0        
  6116.         ds.l    0
  6117.  
  6118. Turn3String:    dc.l    TurnGad3Buf    
  6119.         dc.l    GadUnBuf    
  6120.         dc.w    1        
  6121.         dc.w    3        
  6122.         dc.w    1        
  6123.         dc.w    0        
  6124.         dc.w    0
  6125.         dc.w    0
  6126.         dc.w    0
  6127.         dc.w    0
  6128.         dc.l    0
  6129. T3:        dc.l    10        
  6130.         dc.l    0        
  6131.         ds.l    0
  6132.  
  6133. Turn4:        dc.l    Turn5        
  6134.         dc.w    150        
  6135.         dc.w    113        
  6136.         dc.w    20        
  6137.         dc.w    9           
  6138.         dc.w    $0000        
  6139.         dc.w    $0a01        
  6140.         dc.w    $0004        
  6141.         dc.l    GadgetBorder2    
  6142.         dc.l    0        
  6143.         dc.l    0        
  6144.         dc.l    0        
  6145.         dc.l    Turn4String    
  6146.         dc.w    1        
  6147.         dc.l    0        
  6148.         ds.l    0
  6149.  
  6150. Turn4String:    dc.l    TurnGad4Buf    
  6151.         dc.l    GadUnBuf    
  6152.         dc.w    1        
  6153.         dc.w    3        
  6154.         dc.w    1        
  6155.         dc.w    0        
  6156.         dc.w    0
  6157.         dc.w    0
  6158.         dc.w    0
  6159.         dc.w    0
  6160.         dc.l    0
  6161. T4:        dc.l    15        
  6162.         dc.l    0        
  6163.         ds.l    0
  6164.  
  6165. Turn5:        dc.l    Turn6        
  6166.         dc.w    175        
  6167.         dc.w    113        
  6168.         dc.w    20        
  6169.         dc.w    9           
  6170.         dc.w    $0000        
  6171.         dc.w    $0a01        
  6172.         dc.w    $0004        
  6173.         dc.l    GadgetBorder2    
  6174.         dc.l    0        
  6175.         dc.l    0        
  6176.         dc.l    0        
  6177.         dc.l    Turn5String    
  6178.         dc.w    1        
  6179.         dc.l    0        
  6180.         ds.l    0
  6181.  
  6182. Turn5String:    dc.l    TurnGad5Buf    
  6183.         dc.l    GadUnBuf    
  6184.         dc.w    1        
  6185.         dc.w    3        
  6186.         dc.w    1        
  6187.         dc.w    0        
  6188.         dc.w    0
  6189.         dc.w    0
  6190.         dc.w    0
  6191.         dc.w    0
  6192.         dc.l    0
  6193. T5:        dc.l    5        
  6194.         dc.l    0        
  6195.         ds.l    0
  6196.  
  6197. Turn6:        dc.l    Turn7        
  6198.         dc.w    200        
  6199.         dc.w    113        
  6200.         dc.w    20        
  6201.         dc.w    9           
  6202.         dc.w    $0000        
  6203.         dc.w    $0a01        
  6204.         dc.w    $0004        
  6205.         dc.l    GadgetBorder2    
  6206.         dc.l    0        
  6207.         dc.l    0        
  6208.         dc.l    0        
  6209.         dc.l    Turn6String    
  6210.         dc.w    1        
  6211.         dc.l    0        
  6212.         ds.l    0
  6213.  
  6214. Turn6String:    dc.l    TurnGad6Buf    
  6215.         dc.l    GadUnBuf    
  6216.         dc.w    1        
  6217.         dc.w    3        
  6218.         dc.w    1        
  6219.         dc.w    0        
  6220.         dc.w    0
  6221.         dc.w    0
  6222.         dc.w    0
  6223.         dc.w    0
  6224.         dc.l    0
  6225. T6:        dc.l    15        
  6226.         dc.l    0        
  6227.         ds.l    0
  6228.  
  6229. Turn7:        dc.l    Turn8        
  6230.         dc.w    10        
  6231.         dc.w    123        
  6232.         dc.w    20        
  6233.         dc.w    9           
  6234.         dc.w    $0000        
  6235.         dc.w    $0a01        
  6236.         dc.w    $0004        
  6237.         dc.l    GadgetBorder2    
  6238.         dc.l    0        
  6239.         dc.l    0        
  6240.         dc.l    0        
  6241.         dc.l    Turn7String    
  6242.         dc.w    1        
  6243.         dc.l    0        
  6244.         ds.l    0
  6245.  
  6246. Turn7String:    dc.l    TurnGad7Buf    
  6247.         dc.l    GadUnBuf    
  6248.         dc.w    1        
  6249.         dc.w    3        
  6250.         dc.w    1        
  6251.         dc.w    0        
  6252.         dc.w    0
  6253.         dc.w    0
  6254.         dc.w    0
  6255.         dc.w    0
  6256.         dc.l    0
  6257. T7:        dc.l    18        
  6258.         dc.l    0        
  6259.         ds.l    0
  6260.  
  6261. Turn8:        dc.l    Turn9        
  6262.         dc.w    35        
  6263.         dc.w    123        
  6264.         dc.w    20        
  6265.         dc.w    9           
  6266.         dc.w    $0000        
  6267.         dc.w    $0a01        
  6268.         dc.w    $0004        
  6269.         dc.l    GadgetBorder2    
  6270.         dc.l    0        
  6271.         dc.l    0        
  6272.         dc.l    0        
  6273.         dc.l    Turn8String    
  6274.         dc.w    1        
  6275.         dc.l    0        
  6276.         ds.l    0
  6277.  
  6278. Turn8String:    dc.l    TurnGad8Buf    
  6279.         dc.l    GadUnBuf    
  6280.         dc.w    1        
  6281.         dc.w    3        
  6282.         dc.w    1        
  6283.         dc.w    0        
  6284.         dc.w    0
  6285.         dc.w    0
  6286.         dc.w    0
  6287.         dc.w    0
  6288.         dc.l    0
  6289. T8:        dc.l    15        
  6290.         dc.l    0        
  6291.         ds.l    0
  6292.  
  6293. Turn9:        dc.l    Turn10        
  6294.         dc.w    60        
  6295.         dc.w    123        
  6296.         dc.w    20        
  6297.         dc.w    9           
  6298.         dc.w    $0000        
  6299.         dc.w    $0a01        
  6300.         dc.w    $0004        
  6301.         dc.l    GadgetBorder2    
  6302.         dc.l    0        
  6303.         dc.l    0        
  6304.         dc.l    0        
  6305.         dc.l    Turn9String    
  6306.         dc.w    1        
  6307.         dc.l    0        
  6308.         ds.l    0
  6309.  
  6310. Turn9String:    dc.l    TurnGad9Buf    
  6311.         dc.l    GadUnBuf    
  6312.         dc.w    1        
  6313.         dc.w    3        
  6314.         dc.w    1        
  6315.         dc.w    0        
  6316.         dc.w    0
  6317.         dc.w    0
  6318.         dc.w    0
  6319.         dc.w    0
  6320.         dc.l    0
  6321. T9:        dc.l    12        
  6322.         dc.l    0        
  6323.         ds.l    0
  6324.  
  6325. Turn10:        dc.l    Turn11        
  6326.         dc.w    150        
  6327.         dc.w    123        
  6328.         dc.w    20        
  6329.         dc.w    9           
  6330.         dc.w    $0000        
  6331.         dc.w    $0a01        
  6332.         dc.w    $0004        
  6333.         dc.l    GadgetBorder2    
  6334.         dc.l    0        
  6335.         dc.l    0        
  6336.         dc.l    0        
  6337.         dc.l    Turn10String    
  6338.         dc.w    1        
  6339.         dc.l    0        
  6340.         ds.l    0
  6341.  
  6342. Turn10String:    dc.l    TurnGad10Buf    
  6343.         dc.l    GadUnBuf    
  6344.         dc.w    1        
  6345.         dc.w    3        
  6346.         dc.w    1        
  6347.         dc.w    0        
  6348.         dc.w    0
  6349.         dc.w    0
  6350.         dc.w    0
  6351.         dc.w    0
  6352.         dc.l    0
  6353. T10:        dc.l    10        
  6354.         dc.l    0        
  6355.         ds.l    0
  6356.  
  6357. Turn11:        dc.l    Turn12        
  6358.         dc.w    175        
  6359.         dc.w    123        
  6360.         dc.w    20        
  6361.         dc.w    9           
  6362.         dc.w    $0000        
  6363.         dc.w    $0a01        
  6364.         dc.w    $0004        
  6365.         dc.l    GadgetBorder2    
  6366.         dc.l    0        
  6367.         dc.l    0        
  6368.         dc.l    0        
  6369.         dc.l    Turn11String    
  6370.         dc.w    1        
  6371.         dc.l    0        
  6372.         ds.l    0
  6373.  
  6374. Turn11String:    dc.l    TurnGad11Buf    
  6375.         dc.l    GadUnBuf    
  6376.         dc.w    1        
  6377.         dc.w    3        
  6378.         dc.w    1        
  6379.         dc.w    0        
  6380.         dc.w    0
  6381.         dc.w    0
  6382.         dc.w    0
  6383.         dc.w    0
  6384.         dc.l    0
  6385. T11:        dc.l    10        
  6386.         dc.l    0        
  6387.         ds.l    0
  6388.  
  6389. Turn12:        dc.l    Turn13        
  6390.         dc.w    200        
  6391.         dc.w    123        
  6392.         dc.w    20        
  6393.         dc.w    9           
  6394.         dc.w    $0000        
  6395.         dc.w    $0a01        
  6396.         dc.w    $0004        
  6397.         dc.l    GadgetBorder2    
  6398.         dc.l    0        
  6399.         dc.l    0        
  6400.         dc.l    0        
  6401.         dc.l    Turn12String    
  6402.         dc.w    1        
  6403.         dc.l    0        
  6404.         ds.l    0
  6405.  
  6406. Turn12String:    dc.l    TurnGad12Buf    
  6407.         dc.l    GadUnBuf    
  6408.         dc.w    1        
  6409.         dc.w    3        
  6410.         dc.w    1        
  6411.         dc.w    0        
  6412.         dc.w    0
  6413.         dc.w    0
  6414.         dc.w    0
  6415.         dc.w    0
  6416.         dc.l    0
  6417. T12:        dc.l    15        
  6418.         dc.l    0        
  6419.         ds.l    0
  6420.  
  6421. Turn13:        dc.l    Turn14        
  6422.         dc.w    10        
  6423.         dc.w    133        
  6424.         dc.w    20        
  6425.         dc.w    9           
  6426.         dc.w    $0000        
  6427.         dc.w    $0a01        
  6428.         dc.w    $0004        
  6429.         dc.l    GadgetBorder2    
  6430.         dc.l    0        
  6431.         dc.l    0        
  6432.         dc.l    0        
  6433.         dc.l    Turn13String    
  6434.         dc.w    1        
  6435.         dc.l    0        
  6436.         ds.l    0
  6437.  
  6438. Turn13String:    dc.l    TurnGad13Buf    
  6439.         dc.l    GadUnBuf    
  6440.         dc.w    1        
  6441.         dc.w    3        
  6442.         dc.w    1        
  6443.         dc.w    0        
  6444.         dc.w    0
  6445.         dc.w    0
  6446.         dc.w    0
  6447.         dc.w    0
  6448.         dc.l    0
  6449. T13:        dc.l    5        
  6450.         dc.l    0        
  6451.         ds.l    0
  6452.  
  6453. Turn14:        dc.l    Turn15        
  6454.         dc.w    35        
  6455.         dc.w    133        
  6456.         dc.w    20        
  6457.         dc.w    9           
  6458.         dc.w    $0000        
  6459.         dc.w    $0a01        
  6460.         dc.w    $0004        
  6461.         dc.l    GadgetBorder2    
  6462.         dc.l    0        
  6463.         dc.l    0        
  6464.         dc.l    0        
  6465.         dc.l    Turn14String    
  6466.         dc.w    1        
  6467.         dc.l    0        
  6468.         ds.l    0
  6469.  
  6470. Turn14String:    dc.l    TurnGad14Buf    
  6471.         dc.l    GadUnBuf    
  6472.         dc.w    1        
  6473.         dc.w    3        
  6474.         dc.w    1        
  6475.         dc.w    0        
  6476.         dc.w    0
  6477.         dc.w    0
  6478.         dc.w    0
  6479.         dc.w    0
  6480.         dc.l    0
  6481. T14:        dc.l    15        
  6482.         dc.l    0        
  6483.         ds.l    0
  6484.  
  6485. Turn15:        dc.l    Turn16        
  6486.         dc.w    60        
  6487.         dc.w    133        
  6488.         dc.w    20        
  6489.         dc.w    9           
  6490.         dc.w    $0000        
  6491.         dc.w    $0a01        
  6492.         dc.w    $0004        
  6493.         dc.l    GadgetBorder2    
  6494.         dc.l    0        
  6495.         dc.l    0        
  6496.         dc.l    0        
  6497.         dc.l    Turn15String    
  6498.         dc.w    1        
  6499.         dc.l    0        
  6500.         ds.l    0
  6501.  
  6502. Turn15String:    dc.l    TurnGad15Buf    
  6503.         dc.l    GadUnBuf    
  6504.         dc.w    1        
  6505.         dc.w    3        
  6506.         dc.w    1        
  6507.         dc.w    0        
  6508.         dc.w    0
  6509.         dc.w    0
  6510.         dc.w    0
  6511.         dc.w    0
  6512.         dc.l    0
  6513. T15:        dc.l    18        
  6514.         dc.l    0        
  6515.         ds.l    0
  6516.  
  6517. Turn16:        dc.l    Turn17        
  6518.         dc.w    150        
  6519.         dc.w    133        
  6520.         dc.w    20        
  6521.         dc.w    9           
  6522.         dc.w    $0000        
  6523.         dc.w    $0a01        
  6524.         dc.w    $0004        
  6525.         dc.l    GadgetBorder2    
  6526.         dc.l    0        
  6527.         dc.l    0        
  6528.         dc.l    0        
  6529.         dc.l    Turn16String    
  6530.         dc.w    1        
  6531.         dc.l    0        
  6532.         ds.l    0
  6533.  
  6534. Turn16String:    dc.l    TurnGad16Buf    
  6535.         dc.l    GadUnBuf    
  6536.         dc.w    1        
  6537.         dc.w    3        
  6538.         dc.w    1        
  6539.         dc.w    0        
  6540.         dc.w    0
  6541.         dc.w    0
  6542.         dc.w    0
  6543.         dc.w    0
  6544.         dc.l    0
  6545. T16:        dc.l    15        
  6546.         dc.l    0        
  6547.         ds.l    0
  6548.  
  6549. Turn17:        dc.l    Turn18        
  6550.         dc.w    175        
  6551.         dc.w    133        
  6552.         dc.w    20        
  6553.         dc.w    9           
  6554.         dc.w    $0000        
  6555.         dc.w    $0a01        
  6556.         dc.w    $0004        
  6557.         dc.l    GadgetBorder2    
  6558.         dc.l    0        
  6559.         dc.l    0        
  6560.         dc.l    0        
  6561.         dc.l    Turn17String    
  6562.         dc.w    1        
  6563.         dc.l    0        
  6564.         ds.l    0
  6565.  
  6566. Turn17String:    dc.l    TurnGad17Buf    
  6567.         dc.l    GadUnBuf    
  6568.         dc.w    1        
  6569.         dc.w    3        
  6570.         dc.w    1        
  6571.         dc.w    0        
  6572.         dc.w    0
  6573.         dc.w    0
  6574.         dc.w    0
  6575.         dc.w    0
  6576.         dc.l    0
  6577. T17:        dc.l    12        
  6578.         dc.l    0        
  6579.         ds.l    0
  6580.  
  6581. Turn18:        dc.l    Turn19        
  6582.         dc.w    200        
  6583.         dc.w    133        
  6584.         dc.w    20        
  6585.         dc.w    9           
  6586.         dc.w    $0000        
  6587.         dc.w    $0a01        
  6588.         dc.w    $0004        
  6589.         dc.l    GadgetBorder2    
  6590.         dc.l    0        
  6591.         dc.l    0        
  6592.         dc.l    0        
  6593.         dc.l    Turn18String    
  6594.         dc.w    1        
  6595.         dc.l    0        
  6596.         ds.l    0
  6597.  
  6598. Turn18String:    dc.l    TurnGad18Buf    
  6599.         dc.l    GadUnBuf    
  6600.         dc.w    1        
  6601.         dc.w    3        
  6602.         dc.w    1        
  6603.         dc.w    0        
  6604.         dc.w    0
  6605.         dc.w    0
  6606.         dc.w    0
  6607.         dc.w    0
  6608.         dc.l    0
  6609. T18:        dc.l    10        
  6610.         dc.l    0        
  6611.         ds.l    0
  6612.  
  6613. Turn19:        dc.l    Turn20        
  6614.         dc.w    10        
  6615.         dc.w    143        
  6616.         dc.w    20        
  6617.         dc.w    9           
  6618.         dc.w    $0000        
  6619.         dc.w    $0a01        
  6620.         dc.w    $0004        
  6621.         dc.l    GadgetBorder2    
  6622.         dc.l    0        
  6623.         dc.l    0        
  6624.         dc.l    0        
  6625.         dc.l    Turn19String    
  6626.         dc.w    1        
  6627.         dc.l    0        
  6628.         ds.l    0
  6629.  
  6630. Turn19String:    dc.l    TurnGad19Buf    
  6631.         dc.l    GadUnBuf    
  6632.         dc.w    1        
  6633.         dc.w    3        
  6634.         dc.w    1        
  6635.         dc.w    0        
  6636.         dc.w    0
  6637.         dc.w    0
  6638.         dc.w    0
  6639.         dc.w    0
  6640.         dc.l    0
  6641. T19:        dc.l    10        
  6642.         dc.l    0        
  6643.         ds.l    0
  6644.  
  6645. Turn20:        dc.l    Turn21        
  6646.         dc.w    35        
  6647.         dc.w    143        
  6648.         dc.w    20        
  6649.         dc.w    9           
  6650.         dc.w    $0000        
  6651.         dc.w    $0a01        
  6652.         dc.w    $0004        
  6653.         dc.l    GadgetBorder2    
  6654.         dc.l    0        
  6655.         dc.l    0        
  6656.         dc.l    0        
  6657.         dc.l    Turn20String    
  6658.         dc.w    1        
  6659.         dc.l    0        
  6660.         ds.l    0
  6661.  
  6662. Turn20String:    dc.l    TurnGad20Buf    
  6663.         dc.l    GadUnBuf    
  6664.         dc.w    1        
  6665.         dc.w    3        
  6666.         dc.w    1        
  6667.         dc.w    0        
  6668.         dc.w    0
  6669.         dc.w    0
  6670.         dc.w    0
  6671.         dc.w    0
  6672.         dc.l    0
  6673. T20:        dc.l    15        
  6674.         dc.l    0        
  6675.         ds.l    0
  6676.  
  6677. Turn21:        dc.l    Turn22        
  6678.         dc.w    60        
  6679.         dc.w    143        
  6680.         dc.w    20        
  6681.         dc.w    9           
  6682.         dc.w    $0000        
  6683.         dc.w    $0a01        
  6684.         dc.w    $0004        
  6685.         dc.l    GadgetBorder2    
  6686.         dc.l    0        
  6687.         dc.l    0        
  6688.         dc.l    0        
  6689.         dc.l    Turn21String    
  6690.         dc.w    1        
  6691.         dc.l    0        
  6692.         ds.l    0
  6693.  
  6694. Turn21String:    dc.l    TurnGad21Buf    
  6695.         dc.l    GadUnBuf    
  6696.         dc.w    1        
  6697.         dc.w    3        
  6698.         dc.w    1        
  6699.         dc.w    0        
  6700.         dc.w    0
  6701.         dc.w    0
  6702.         dc.w    0
  6703.         dc.w    0
  6704.         dc.l    0
  6705. T21:        dc.l    5        
  6706.         dc.l    0        
  6707.         ds.l    0
  6708.  
  6709. Turn22:        dc.l    Turn23        
  6710.         dc.w    150        
  6711.         dc.w    143        
  6712.         dc.w    20        
  6713.         dc.w    9           
  6714.         dc.w    $0000        
  6715.         dc.w    $0a01        
  6716.         dc.w    $0004        
  6717.         dc.l    GadgetBorder2    
  6718.         dc.l    0        
  6719.         dc.l    0        
  6720.         dc.l    0        
  6721.         dc.l    Turn22String    
  6722.         dc.w    1        
  6723.         dc.l    0        
  6724.         ds.l    0
  6725.  
  6726. Turn22String:    dc.l    TurnGad22Buf    
  6727.         dc.l    GadUnBuf    
  6728.         dc.w    1        
  6729.         dc.w    3        
  6730.         dc.w    1        
  6731.         dc.w    0        
  6732.         dc.w    0
  6733.         dc.w    0
  6734.         dc.w    0
  6735.         dc.w    0
  6736.         dc.l    0
  6737. T22:        dc.l    15        
  6738.         dc.l    0        
  6739.         ds.l    0
  6740.  
  6741. Turn23:        dc.l    Turn24        
  6742.         dc.w    175        
  6743.         dc.w    143        
  6744.         dc.w    20        
  6745.         dc.w    9           
  6746.         dc.w    $0000        
  6747.         dc.w    $0a01        
  6748.         dc.w    $0004        
  6749.         dc.l    GadgetBorder2    
  6750.         dc.l    0        
  6751.         dc.l    0        
  6752.         dc.l    0        
  6753.         dc.l    Turn23String    
  6754.         dc.w    1        
  6755.         dc.l    0        
  6756.         ds.l    0
  6757.  
  6758. Turn23String:    dc.l    TurnGad23Buf    
  6759.         dc.l    GadUnBuf    
  6760.         dc.w    1        
  6761.         dc.w    3        
  6762.         dc.w    1        
  6763.         dc.w    0        
  6764.         dc.w    0
  6765.         dc.w    0
  6766.         dc.w    0
  6767.         dc.w    0
  6768.         dc.l    0
  6769. T23:        dc.l    18        
  6770.         dc.l    0        
  6771.         ds.l    0
  6772.  
  6773. Turn24:        dc.l    Turn25        
  6774.         dc.w    200        
  6775.         dc.w    143        
  6776.         dc.w    20        
  6777.         dc.w    9           
  6778.         dc.w    $0000        
  6779.         dc.w    $0a01        
  6780.         dc.w    $0004        
  6781.         dc.l    GadgetBorder2    
  6782.         dc.l    0        
  6783.         dc.l    0        
  6784.         dc.l    0        
  6785.         dc.l    Turn24String    
  6786.         dc.w    1        
  6787.         dc.l    0        
  6788.         ds.l    0
  6789.  
  6790. Turn24String:    dc.l    TurnGad24Buf    
  6791.         dc.l    GadUnBuf    
  6792.         dc.w    1        
  6793.         dc.w    3        
  6794.         dc.w    1        
  6795.         dc.w    0        
  6796.         dc.w    0
  6797.         dc.w    0
  6798.         dc.w    0
  6799.         dc.w    0
  6800.         dc.l    0
  6801. T24:        dc.l    15        
  6802.         dc.l    0        
  6803.         ds.l    0
  6804.  
  6805. Turn25:        dc.l    Turn26        
  6806.         dc.w    10        
  6807.         dc.w    163        
  6808.         dc.w    20        
  6809.         dc.w    9           
  6810.         dc.w    $0000        
  6811.         dc.w    $0a01        
  6812.         dc.w    $0004        
  6813.         dc.l    GadgetBorder2    
  6814.         dc.l    0        
  6815.         dc.l    0        
  6816.         dc.l    0        
  6817.         dc.l    Turn25String    
  6818.         dc.w    1        
  6819.         dc.l    0        
  6820.         ds.l    0
  6821.  
  6822. Turn25String:    dc.l    TurnGad25Buf    
  6823.         dc.l    GadUnBuf    
  6824.         dc.w    1        
  6825.         dc.w    3        
  6826.         dc.w    1        
  6827.         dc.w    0        
  6828.         dc.w    0
  6829.         dc.w    0
  6830.         dc.w    0
  6831.         dc.w    0
  6832.         dc.l    0
  6833. T25:        dc.l    12        
  6834.         dc.l    0        
  6835.         ds.l    0
  6836.  
  6837. Turn26:        dc.l    Turn27        
  6838.         dc.w    35        
  6839.         dc.w    163        
  6840.         dc.w    20        
  6841.         dc.w    9           
  6842.         dc.w    $0000        
  6843.         dc.w    $0a01        
  6844.         dc.w    $0004        
  6845.         dc.l    GadgetBorder2    
  6846.         dc.l    0        
  6847.         dc.l    0        
  6848.         dc.l    0        
  6849.         dc.l    Turn26String    
  6850.         dc.w    1        
  6851.         dc.l    0        
  6852.         ds.l    0
  6853.  
  6854. Turn26String:    dc.l    TurnGad26Buf    
  6855.         dc.l    GadUnBuf    
  6856.         dc.w    1
  6857.         dc.w    3        
  6858.         dc.w    1        
  6859.         dc.w    0        
  6860.         dc.w    0
  6861.         dc.w    0
  6862.         dc.w    0
  6863.         dc.w    0
  6864.         dc.l    0
  6865. T26:        dc.l    10
  6866.         dc.l    0        
  6867.         ds.l    0
  6868.  
  6869. Turn27:        dc.l    Turn28        
  6870.         dc.w    60        
  6871.         dc.w    163        
  6872.         dc.w    20        
  6873.         dc.w    9           
  6874.         dc.w    $0000        
  6875.         dc.w    $0a01        
  6876.         dc.w    $0004        
  6877.         dc.l    GadgetBorder2    
  6878.         dc.l    0        
  6879.         dc.l    0        
  6880.         dc.l    0        
  6881.         dc.l    Turn27String    
  6882.         dc.w    1        
  6883.         dc.l    0
  6884.         ds.l    0
  6885.  
  6886. Turn27String:    dc.l    TurnGad27Buf    
  6887.         dc.l    GadUnBuf    
  6888.         dc.w    1        
  6889.         dc.w    3        
  6890.         dc.w    1        
  6891.         dc.w    0        
  6892.         dc.w    0
  6893.         dc.w    0
  6894.         dc.w    0
  6895.         dc.w    0
  6896.         dc.l    0
  6897. T27:        dc.l    10        
  6898.         dc.l    0        
  6899.         ds.l    0
  6900.  
  6901. Turn28:        dc.l    Turn29        
  6902.         dc.w    150        
  6903.         dc.w    163        
  6904.         dc.w    20        
  6905.         dc.w    9           
  6906.         dc.w    $0000        
  6907.         dc.w    $0a01        
  6908.         dc.w    $0004        
  6909.         dc.l    GadgetBorder2    
  6910.         dc.l    0
  6911.         dc.l    0        
  6912.         dc.l    0        
  6913.         dc.l    Turn28String    
  6914.         dc.w    1        
  6915.         dc.l    0        
  6916.         ds.l    0
  6917.  
  6918. Turn28String:    dc.l    TurnGad28Buf    
  6919.         dc.l    GadUnBuf
  6920.         dc.w    1        
  6921.         dc.w    3        
  6922.         dc.w    1        
  6923.         dc.w    0        
  6924.         dc.w    0
  6925.         dc.w    0
  6926.         dc.w    0
  6927.         dc.w    0
  6928.         dc.l    0
  6929. T28:        dc.l    15        
  6930.         dc.l    0        
  6931.         ds.l    0
  6932.  
  6933. Turn29:        dc.l    Turn30        
  6934.         dc.w    175        
  6935.         dc.w    163        
  6936.         dc.w    20        
  6937.         dc.w    9
  6938.         dc.w    $0000        
  6939.         dc.w    $0a01        
  6940.         dc.w    $0004        
  6941.         dc.l    GadgetBorder2    
  6942.         dc.l    0        
  6943.         dc.l    0        
  6944.         dc.l    0        
  6945.         dc.l    Turn29String    
  6946.         dc.w    1
  6947.         dc.l    0        
  6948.         ds.l    0
  6949.  
  6950. Turn29String:    dc.l    TurnGad29Buf    
  6951.         dc.l    GadUnBuf    
  6952.         dc.w    1        
  6953.         dc.w    3        
  6954.         dc.w    1        
  6955.         dc.w    0        
  6956.         dc.w    0
  6957.         dc.w    0
  6958.         dc.w    0
  6959.         dc.w    0
  6960.         dc.l    0
  6961. T29:        dc.l    5        
  6962.         dc.l    0        
  6963.         ds.l    0
  6964.  
  6965. Turn30:        dc.l    Turn31        
  6966.         dc.w    200        
  6967.         dc.w    163        
  6968.         dc.w    20        
  6969.         dc.w    9           
  6970.         dc.w    $0000        
  6971.         dc.w    $0a01        
  6972.         dc.w    $0004        
  6973.         dc.l    GadgetBorder2
  6974.         dc.l    0        
  6975.         dc.l    0        
  6976.         dc.l    0        
  6977.         dc.l    Turn31String    
  6978.         dc.w    1        
  6979.         dc.l    0        
  6980.         ds.l    0
  6981.  
  6982. Turn30String:    dc.l    TurnGad30Buf    
  6983.         dc.l    GadUnBuf    
  6984.         dc.w    1        
  6985.         dc.w    3        
  6986.         dc.w    1        
  6987.         dc.w    0        
  6988.         dc.w    0
  6989.         dc.w    0
  6990.         dc.w    0
  6991.         dc.w    0
  6992.         dc.l    0
  6993. T30:        dc.l    15        
  6994.         dc.l    0        
  6995.         ds.l    0
  6996.  
  6997. Turn31:        dc.l    Turn32        
  6998.         dc.w    10        
  6999.         dc.w    173        
  7000.         dc.w    20
  7001.         dc.w    9           
  7002.         dc.w    $0000        
  7003.         dc.w    $0a01        
  7004.         dc.w    $0004        
  7005.         dc.l    GadgetBorder2    
  7006.         dc.l    0        
  7007.         dc.l    0        
  7008.         dc.l    0        
  7009.         dc.l    Turn31String    
  7010.         dc.w    1        
  7011.         dc.l    0        
  7012.         ds.l    0
  7013.  
  7014. Turn31String:    dc.l    TurnGad31Buf    
  7015.         dc.l    GadUnBuf    
  7016.         dc.w    1        
  7017.         dc.w    3        
  7018.         dc.w    1
  7019.         dc.w    0        
  7020.         dc.w    0
  7021.         dc.w    0
  7022.         dc.w    0
  7023.         dc.w    0
  7024.         dc.l    0
  7025. T31:        dc.l    18        
  7026.         dc.l    0        
  7027.         ds.l    0
  7028.  
  7029. Turn32:        dc.l    Turn33        
  7030.         dc.w    35        
  7031.         dc.w    173        
  7032.         dc.w    20        
  7033.         dc.w    9           
  7034.         dc.w    $0000        
  7035.         dc.w    $0a01        
  7036.         dc.w    $0004        
  7037.         dc.l    GadgetBorder2    
  7038.         dc.l    0        
  7039.         dc.l    0        
  7040.         dc.l    0        
  7041.         dc.l    Turn32String    
  7042.         dc.w    1        
  7043.         dc.l    0        
  7044.         ds.l    0
  7045.  
  7046. Turn32String:    dc.l    TurnGad32Buf    
  7047.         dc.l    GadUnBuf    
  7048.         dc.w    1        
  7049.         dc.w    3        
  7050.         dc.w    1        
  7051.         dc.w    0        
  7052.         dc.w    0
  7053.         dc.w    0
  7054.         dc.w    0
  7055.         dc.w    0
  7056.         dc.l    0
  7057. T32:        dc.l    15        
  7058.         dc.l    0        
  7059.         ds.l    0
  7060.  
  7061. Turn33:        dc.l    Turn34        
  7062.         dc.w    60        
  7063.         dc.w    173        
  7064.         dc.w    20        
  7065.         dc.w    9           
  7066.         dc.w    $0000        
  7067.         dc.w    $0a01        
  7068.         dc.w    $0004        
  7069.         dc.l    GadgetBorder2    
  7070.         dc.l    0        
  7071.         dc.l    0        
  7072.         dc.l    0
  7073.         dc.l    Turn33String    
  7074.         dc.w    1        
  7075.         dc.l    0        
  7076.         ds.l    0
  7077.  
  7078. Turn33String:    dc.l    TurnGad33Buf    
  7079.         dc.l    GadUnBuf    
  7080.         dc.w    1        
  7081.         dc.w    3
  7082.         dc.w    1        
  7083.         dc.w    0        
  7084.         dc.w    0
  7085.         dc.w    0
  7086.         dc.w    0
  7087.         dc.w    0
  7088.         dc.l    0
  7089. T33:        dc.l    18        
  7090.         dc.l    0        
  7091.         ds.l    0
  7092.  
  7093. Turn34:        dc.l    Turn35        
  7094.         dc.w    150        
  7095.         dc.w    173        
  7096.         dc.w    20        
  7097.         dc.w    9           
  7098.         dc.w    $0000        
  7099.         dc.w    $0a01
  7100.         dc.w    $0004        
  7101.         dc.l    GadgetBorder2    
  7102.         dc.l    0        
  7103.         dc.l    0        
  7104.         dc.l    0        
  7105.         dc.l    Turn34String    
  7106.         dc.w    1        
  7107.         dc.l    0        
  7108.         ds.l    0
  7109.  
  7110. Turn34String:    dc.l    TurnGad34Buf    
  7111.         dc.l    GadUnBuf    
  7112.         dc.w    1        
  7113.         dc.w    3        
  7114.         dc.w    1        
  7115.         dc.w    0        
  7116.         dc.w    0
  7117.         dc.w    0
  7118.         dc.w    0
  7119.         dc.w    0
  7120.         dc.l    0
  7121. T34:        dc.l    15        
  7122.         dc.l    0        
  7123.         ds.l    0
  7124.  
  7125. Turn35:        dc.l    Turn36        
  7126.         dc.w    175
  7127.         dc.w    173        
  7128.         dc.w    20        
  7129.         dc.w    9           
  7130.         dc.w    $0000        
  7131.         dc.w    $0a01        
  7132.         dc.w    $0004        
  7133.         dc.l    GadgetBorder2    
  7134.         dc.l    0        
  7135.         dc.l    0
  7136.         dc.l    0        
  7137.         dc.l    Turn35String    
  7138.         dc.w    1        
  7139.         dc.l    0        
  7140.         ds.l    0
  7141.  
  7142. Turn35String:    dc.l    TurnGad35Buf    
  7143.         dc.l    GadUnBuf    
  7144.         dc.w    1        
  7145.         dc.w    3        
  7146.         dc.w    1        
  7147.         dc.w    0        
  7148.         dc.w    0
  7149.         dc.w    0
  7150.         dc.w    0
  7151.         dc.w    0
  7152.         dc.l    0
  7153. T35:        dc.l    12
  7154.         dc.l    0        
  7155.         ds.l    0
  7156.  
  7157. Turn36:        dc.l    Turn37        
  7158.         dc.w    200        
  7159.         dc.w    173        
  7160.         dc.w    20        
  7161.         dc.w    9           
  7162.         dc.w    $0000
  7163.         dc.w    $0a01        
  7164.         dc.w    $0004        
  7165.         dc.l    GadgetBorder2    
  7166.         dc.l    0        
  7167.         dc.l    0        
  7168.         dc.l    0        
  7169.         dc.l    Turn36String    
  7170.         dc.w    1        
  7171.         dc.l    0        
  7172.         ds.l    0
  7173.  
  7174. Turn36String:    dc.l    TurnGad36Buf    
  7175.         dc.l    GadUnBuf    
  7176.         dc.w    1        
  7177.         dc.w    3        
  7178.         dc.w    1        
  7179.         dc.w    0        
  7180.         dc.w    0
  7181.         dc.w    0
  7182.         dc.w    0
  7183.         dc.w    0
  7184.         dc.l    0
  7185. T36:        dc.l    10        
  7186.         dc.l    0        
  7187.         ds.l    0
  7188.  
  7189. Turn37:        dc.l    Turn38
  7190.         dc.w    10        
  7191.         dc.w    183        
  7192.         dc.w    20        
  7193.         dc.w    9           
  7194.         dc.w    $0000        
  7195.         dc.w    $0a01        
  7196.         dc.w    $0004        
  7197.         dc.l    GadgetBorder2    
  7198.         dc.l    0        
  7199.         dc.l    0        
  7200.         dc.l    0        
  7201.         dc.l    Turn37String    
  7202.         dc.w    1        
  7203.         dc.l    0        
  7204.         ds.l    0
  7205.  
  7206. Turn37String:    dc.l    TurnGad37Buf    
  7207.         dc.l    GadUnBuf
  7208.         dc.w    1        
  7209.         dc.w    3        
  7210.         dc.w    1        
  7211.         dc.w    0        
  7212.         dc.w    0
  7213.         dc.w    0
  7214.         dc.w    0
  7215.         dc.w    0
  7216.         dc.l    0
  7217. T37:        dc.l    10        
  7218.         dc.l    0        
  7219.         ds.l    0
  7220.  
  7221. Turn38:        dc.l    Turn39        
  7222.         dc.w    35        
  7223.         dc.w    183        
  7224.         dc.w    20        
  7225.         dc.w    9           
  7226.         dc.w    $0000        
  7227.         dc.w    $0a01        
  7228.         dc.w    $0004        
  7229.         dc.l    GadgetBorder2    
  7230.         dc.l    0        
  7231.         dc.l    0        
  7232.         dc.l    0        
  7233.         dc.l    Turn38String    
  7234.         dc.w    1
  7235.         dc.l    0        
  7236.         ds.l    0
  7237.  
  7238. Turn38String:    dc.l    TurnGad38Buf    
  7239.         dc.l    GadUnBuf    
  7240.         dc.w    1        
  7241.         dc.w    3        
  7242.         dc.w    1        
  7243.         dc.w    0
  7244.         dc.w    0
  7245.         dc.w    0
  7246.         dc.w    0
  7247.         dc.w    0
  7248.         dc.l    0
  7249. T38:        dc.l    15        
  7250.         dc.l    0        
  7251.         ds.l    0
  7252.  
  7253. Turn39:        dc.l    Turn40        
  7254.         dc.w    60        
  7255.         dc.w    183        
  7256.         dc.w    20        
  7257.         dc.w    9           
  7258.         dc.w    $0000        
  7259.         dc.w    $0a01        
  7260.         dc.w    $0004        
  7261.         dc.l    GadgetBorder2
  7262.         dc.l    0        
  7263.         dc.l    0        
  7264.         dc.l    0        
  7265.         dc.l    Turn39String    
  7266.         dc.w    1        
  7267.         dc.l    0        
  7268.         ds.l    0
  7269.  
  7270. Turn39String:    dc.l    TurnGad39Buf
  7271.         dc.l    GadUnBuf    
  7272.         dc.w    1        
  7273.         dc.w    3        
  7274.         dc.w    1        
  7275.         dc.w    0        
  7276.         dc.w    0
  7277.         dc.w    0
  7278.         dc.w    0
  7279.         dc.w    0
  7280.         dc.l    0
  7281. T39:        dc.l    5        
  7282.         dc.l    0        
  7283.         ds.l    0
  7284.  
  7285. Turn40:        dc.l    Turn41        
  7286.         dc.w    150        
  7287.         dc.w    183        
  7288.         dc.w    20
  7289.         dc.w    9           
  7290.         dc.w    $0000        
  7291.         dc.w    $0a01        
  7292.         dc.w    $0004        
  7293.         dc.l    GadgetBorder2    
  7294.         dc.l    0        
  7295.         dc.l    0        
  7296.         dc.l    0        
  7297.         dc.l    Turn40String
  7298.         dc.w    1        
  7299.         dc.l    0        
  7300.         ds.l    0
  7301.  
  7302. Turn40String:    dc.l    TurnGad40Buf    
  7303.         dc.l    GadUnBuf    
  7304.         dc.w    1        
  7305.         dc.w    3        
  7306.         dc.w    1        
  7307.         dc.w    0        
  7308.         dc.w    0
  7309.         dc.w    0
  7310.         dc.w    0
  7311.         dc.w    0
  7312.         dc.l    0
  7313. T40:        dc.l    15        
  7314.         dc.l    0        
  7315.         ds.l    0
  7316.  
  7317. Turn41:        dc.l    Turn42        
  7318.         dc.w    175        
  7319.         dc.w    183        
  7320.         dc.w    20        
  7321.         dc.w    9           
  7322.         dc.w    $0000        
  7323.         dc.w    $0a01        
  7324.         dc.w    $0004
  7325.         dc.l    GadgetBorder2    
  7326.         dc.l    0        
  7327.         dc.l    0        
  7328.         dc.l    0        
  7329.         dc.l    Turn41String    
  7330.         dc.w    1        
  7331.         dc.l    0        
  7332.         ds.l    0
  7333.  
  7334. Turn41String:    dc.l    TurnGad41Buf    
  7335.         dc.l    GadUnBuf    
  7336.         dc.w    1        
  7337.         dc.w    3        
  7338.         dc.w    1        
  7339.         dc.w    0        
  7340.         dc.w    0
  7341.         dc.w    0
  7342.         dc.w    0
  7343.         dc.w    0
  7344.         dc.l    0
  7345. T41:        dc.l    18        
  7346.         dc.l    0        
  7347.         ds.l    0
  7348.  
  7349. Turn42:        dc.l    Turn43        
  7350.         dc.w    200        
  7351.         dc.w    183
  7352.         dc.w    20        
  7353.         dc.w    9           
  7354.         dc.w    $0000        
  7355.         dc.w    $0a01        
  7356.         dc.w    $0004        
  7357.         dc.l    GadgetBorder2    
  7358.         dc.l    0        
  7359.         dc.l    0        
  7360.         dc.l    0        
  7361.         dc.l    Turn42String    
  7362.         dc.w    1        
  7363.         dc.l    0        
  7364.         ds.l    0
  7365.  
  7366. Turn42String:    dc.l    TurnGad42Buf    
  7367.         dc.l    GadUnBuf    
  7368.         dc.w    1        
  7369.         dc.w    4
  7370.         dc.w    1        
  7371.         dc.w    0        
  7372.         dc.w    0
  7373.         dc.w    0
  7374.         dc.w    0
  7375.         dc.w    0
  7376.         dc.l    0
  7377. T42:        dc.l    15        
  7378.         dc.l    0
  7379.         ds.l    0
  7380.  
  7381. Turn43:        dc.l    Turn44        
  7382.         dc.w    10        
  7383.         dc.w    193        
  7384.         dc.w    20        
  7385.         dc.w    9           
  7386.         dc.w    $0000        
  7387.         dc.w    $0a01        
  7388.         dc.w    $0004        
  7389.         dc.l    GadgetBorder2    
  7390.         dc.l    0        
  7391.         dc.l    0        
  7392.         dc.l    0        
  7393.         dc.l    Turn43String    
  7394.         dc.w    1        
  7395.         dc.l    0        
  7396.         ds.l    0
  7397.  
  7398. Turn43String:    dc.l    TurnGad43Buf    
  7399.         dc.l    GadUnBuf    
  7400.         dc.w    1
  7401.         dc.w    3        
  7402.         dc.w    1        
  7403.         dc.w    0        
  7404.         dc.w    0
  7405.         dc.w    0
  7406.         dc.w    0
  7407.         dc.w    0
  7408.         dc.l    0
  7409. T43:        dc.l    18        
  7410.         dc.l    0        
  7411.         ds.l    0
  7412.  
  7413. Turn44:        dc.l    Turn45        
  7414.         dc.w    35        
  7415.         dc.w    193        
  7416.         dc.w    20        
  7417.         dc.w    9           
  7418.         dc.w    $0000        
  7419.         dc.w    $0a01        
  7420.         dc.w    $0004        
  7421.         dc.l    GadgetBorder2    
  7422.         dc.l    0        
  7423.         dc.l    0
  7424.         dc.l    0        
  7425.         dc.l    Turn44String    
  7426.         dc.w    1        
  7427.         dc.l    0
  7428.         ds.l    0
  7429.  
  7430. Turn44String:    dc.l    TurnGad44Buf    
  7431.         dc.l    GadUnBuf    
  7432.         dc.w    1
  7433.         dc.w    3        
  7434.         dc.w    1        
  7435.         dc.w    0        
  7436.         dc.w    0
  7437.         dc.w    0
  7438.         dc.w    0
  7439.         dc.w    0
  7440.         dc.l    0
  7441. T44:        dc.l    15        
  7442.         dc.l    0        
  7443.         ds.l    0
  7444.  
  7445. Turn45:        dc.l    Turn46        
  7446.         dc.w    60        
  7447.         dc.w    193        
  7448.         dc.w    20        
  7449.         dc.w    9           
  7450.         dc.w    $0000
  7451.         dc.w    $0a01        
  7452.         dc.w    $0004        
  7453.         dc.l    GadgetBorder2    
  7454.         dc.l    0
  7455.         dc.l    0        
  7456.         dc.l    0        
  7457.         dc.l    Turn45String    
  7458.         dc.w    1        
  7459.         dc.l    0
  7460.         ds.l    0
  7461.  
  7462. Turn45String:    dc.l    TurnGad45Buf    
  7463.         dc.l    GadUnBuf    
  7464.         dc.w    1        
  7465.         dc.w    3        
  7466.         dc.w    1        
  7467.         dc.w    0        
  7468.         dc.w    0
  7469.         dc.w    0
  7470.         dc.w    0
  7471.         dc.w    0
  7472.         dc.l    0
  7473. T45:        dc.l    12        
  7474.         dc.l    0        
  7475.         ds.l    0
  7476.  
  7477. Turn46:        dc.l    Turn47
  7478.         dc.w    150        
  7479.         dc.w    193        
  7480.         dc.w    20        
  7481.         dc.w    9
  7482.         dc.w    $0000        
  7483.         dc.w    $0a01        
  7484.         dc.w    $0004        
  7485.         dc.l    GadgetBorder2    
  7486.         dc.l    0
  7487.         dc.l    0        
  7488.         dc.l    0        
  7489.         dc.l    Turn46String    
  7490.         dc.w    1        
  7491.         dc.l    0        
  7492.         ds.l    0
  7493.  
  7494. Turn46String:    dc.l    TurnGad46Buf    
  7495.         dc.l    GadUnBuf    
  7496.         dc.w    1        
  7497.         dc.w    3        
  7498.         dc.w    1        
  7499.         dc.w    0        
  7500.         dc.w    0
  7501.         dc.w    0
  7502.         dc.w    0
  7503.         dc.w    0
  7504.         dc.l    0
  7505. T46:        dc.l    10        
  7506.         dc.l    0        
  7507.         ds.l    0
  7508.  
  7509. Turn47:        dc.l    Turn48        
  7510.         dc.w    175        
  7511.         dc.w    193        
  7512.         dc.w    20        
  7513.         dc.w    9
  7514.         dc.w    $0000
  7515.         dc.w    $0a01        
  7516.         dc.w    $0004        
  7517.         dc.l    GadgetBorder2    
  7518.         dc.l    0        
  7519.         dc.l    0        
  7520.         dc.l    0        
  7521.         dc.l    Turn47String    
  7522.         dc.w    1        
  7523.         dc.l    0        
  7524.         ds.l    0
  7525.  
  7526. Turn47String:    dc.l    TurnGad47Buf    
  7527.         dc.l    GadUnBuf    
  7528.         dc.w    1        
  7529.         dc.w    3        
  7530.         dc.w    1        
  7531.         dc.w    0
  7532.         dc.w    0
  7533.         dc.w    0
  7534.         dc.w    0
  7535.         dc.w    0
  7536.         dc.l    0
  7537. T47:        dc.l    10        
  7538.         dc.l    0        
  7539.         ds.l    0
  7540.  
  7541. Turn48:        dc.l    0
  7542.         dc.w    200
  7543.         dc.w    193        
  7544.         dc.w    20        
  7545.         dc.w    9           
  7546.         dc.w    $0000        
  7547.         dc.w    $0a01        
  7548.         dc.w    $0004        
  7549.         dc.l    GadgetBorder2    
  7550.         dc.l    0        
  7551.         dc.l    0        
  7552.         dc.l    0        
  7553.         dc.l    Turn48String    
  7554.         dc.w    1        
  7555.         dc.l    0        
  7556.         ds.l    0
  7557.  
  7558. Turn48String:    dc.l    TurnGad48Buf
  7559.         dc.l    GadUnBuf    
  7560.         dc.w    1        
  7561.         dc.w    3        
  7562.         dc.w    1
  7563.         dc.w    0
  7564.         dc.w    0
  7565.         dc.w    0
  7566.         dc.w    0
  7567.         dc.w    0
  7568.         dc.l    0
  7569. T48:        dc.l    15        ;Long int.
  7570.         dc.l    0        ;AltKeyMap
  7571.         ds.l    0
  7572.  
  7573. QuitGad1:    dc.l    QuitGad2        ;Next Gadget
  7574.         dc.w    -310            ;"hit-box" left edge
  7575.         dc.w    -15             ;"hit-box" top  edge
  7576.         dc.w    51              ;"hit-box" Width
  7577.         dc.w    10              ;"hit-box" Height
  7578. QG1Flag:    dc.w    $0018           ;flags
  7579.         dc.w    $0001           ;activation
  7580.         dc.w    $0001           ;gadget type
  7581.         dc.l    QGadgetBorder1  ;gadget rendering
  7582.         dc.l    0               ;select rendering
  7583.         dc.l    QGadTxt1        ;gadget text
  7584.         dc.l    0               ;mutual exclude
  7585.         dc.l    0               ;special info
  7586.         dc.w    2               ;gadget ID (user definable)
  7587.         dc.l    0               ;ptr to general purpose user data
  7588.         ds.l    0
  7589.  
  7590. QGadTxt1:    dc.b    1,2                     ;PENS
  7591.         dc.w    0                       ;MODE
  7592.         dc.w    13,1                    ;LEFT+TOPEDGE
  7593.         dc.l    0                       ;FONT
  7594.         dc.l    PositiveText1           ;TEXT
  7595.         dc.l    0                       ;NEXTTEXT
  7596.         ds.l    0
  7597.         
  7598. QuitGad2:    dc.l    0               ;Next Gadget
  7599.         dc.w    -58             ;"hit-box" left edge
  7600.         dc.w    -15             ;"hit-box" top  edge
  7601.         dc.w    51              ;"hit-box" Width
  7602.         dc.w    10              ;"hit-box" Height
  7603. QG2Flag:    dc.w    $0018           ;flags
  7604.         dc.w    $0001           ;activation
  7605.         dc.w    $0001           ;gadget type
  7606.         dc.l    QGadgetBorder1  ;gadget rendering
  7607.         dc.l    0               ;select rendering
  7608.         dc.l    QGadTxt2        ;gadget text
  7609.         dc.l    0               ;mutual exclude
  7610.         dc.l    0               ;special info
  7611.         dc.w    3               ;gadget ID (user definable)
  7612.         dc.l    0               ;ptr to general purpose user data
  7613.         ds.l    0
  7614.  
  7615. QGadTxt2:       dc.b    1,2                     ;PENS
  7616.                 dc.w    0                       ;MODE
  7617.                 dc.w    17,1                    ;LEFT+TOPEDGE
  7618.                 dc.l    0                       ;FONT
  7619.                 dc.l    NegativeText1           ;TEXT
  7620.                 dc.l    0                       ;NEXTTEXT
  7621.                 ds.l    0
  7622.  
  7623. MGad1:        dc.l    MGad2        ;Next Gadget
  7624.         dc.w    10        ;"hit-box" left edge
  7625.         dc.w    -15        ;"hit-box" top  edge
  7626.         dc.w    51        ;"hit-box" Width
  7627.         dc.w    10        ;"hit-box" Height
  7628. G1Flag:        dc.w    $0008        ;flags
  7629.         dc.w    $0001        ;activation
  7630.         dc.w    $0001        ;Gadget type
  7631.         dc.l    QGadgetBorder1    ;gadget rendering
  7632.         dc.l    0        ;select rendering
  7633.         dc.l    QGadTxt1    ;gadget text
  7634.         dc.l    0
  7635.         dc.l    0
  7636.         dc.w    2        ;ID
  7637.         dc.l    0
  7638.         ds.l    0
  7639.  
  7640. MGad2:          dc.l    0        ;Next Gadget
  7641.         dc.w    -60        ;"hit-box" left edge
  7642.         dc.w    -15        ;"hit-box" top  edge
  7643.         dc.w    51        ;"hit-box" Width
  7644.         dc.w    10        ;"hit-box" Height
  7645. G2Flag:        dc.w    $0018        ;flags
  7646.         dc.w    $0001        ;activation
  7647.         dc.w    $0001        ;Gadget type
  7648.         dc.l    QGadgetBorder1    ;gadget rendering
  7649.         dc.l    0        ;select rendering
  7650.         dc.l    QGadTxt2    ;gadget text
  7651.         dc.l    0
  7652.         dc.l    0
  7653.         dc.w    3        ;ID
  7654.         dc.l    0
  7655.         ds.l    0
  7656.  
  7657. ModeGad1:    dc.l    ModeGad2    ;Next Gadget
  7658.         dc.w    7        ;"hit-box" left edge
  7659.         dc.w    230        ;"hit-box" top  edge
  7660.         dc.w    16        ;"hit-box" Width
  7661.         dc.w    12        ;"hit-box" Height
  7662.         dc.w    $0006        ;flags
  7663.         dc.w    $0103        ;activation
  7664.         dc.w    $0001        ;gadget type
  7665.         dc.l    ModeGadImage1    ;gadget renderingg
  7666.         dc.l    ModeGadImage2    ;select rendering
  7667.         dc.l    ModeGadTxt1    ;gadget text
  7668.         dc.l    0        ;mutual exclude
  7669.         dc.l    0        ;special info
  7670.         dc.w    10        ;gadget ID (user definable)
  7671.         dc.l    0        ;ptr to general purpose user data
  7672.         ds.l    0
  7673.  
  7674. ModeGadTxt1:    dc.b    1,2            ;PENS
  7675.         dc.w    0            ;MODE
  7676.         dc.w    17,2            ;LEFT+TOPEDGE
  7677.         dc.l    0            ;FONT
  7678.         dc.l    ModeGadText1        ;TEXT
  7679.         dc.l    0            ;NEXTTEXT
  7680.         ds.l    0
  7681. ModeGadText1:    dc.b    "Night",0
  7682.         ds.l    0
  7683.  
  7684. ModeGad2:    dc.l    ModeGad3    ;Next Gadget
  7685.         dc.w    67        ;"hit-box" left edge
  7686.         dc.w    230        ;"hit-box" top  edge
  7687.         dc.w    16              ;"hit-box" Width
  7688.         dc.w    12        ;"hit-box" Height
  7689.         dc.w    $0006        ;flags
  7690.         dc.w    $0103        ;activation
  7691.         dc.w    $0001        ;gadget type
  7692.         dc.l    ModeGadImage1    ;gadget renderingg
  7693.         dc.l    ModeGadImage2    ;select rendering
  7694.         dc.l    ModeGadTxt2    ;gadget text
  7695.         dc.l    0        ;mutual exclude
  7696.         dc.l    0        ;special info
  7697.         dc.w    10        ;gadget ID (user definable)
  7698.         dc.l    0        ;ptr to general purpose user data
  7699.         ds.l    0
  7700.  
  7701. ModeGadTxt2:    dc.b    1,2            ;PENS
  7702.         dc.w    0            ;MODE
  7703.         dc.w    17,2            ;LEFT+TOPEDGE
  7704.         dc.l    0            ;FONT
  7705.         dc.l    ModeGadText2        ;TEXT
  7706.         dc.l    0            ;NEXTTEXT
  7707.         ds.l    0
  7708. ModeGadText2:    dc.b    "Day",0
  7709.         ds.l    0
  7710.  
  7711. ModeGad3:    dc.l    Gadget1        ;Next Gadget
  7712.         dc.w    112        ;"hit-box" left edge
  7713.         dc.w    230        ;"hit-box" top  edge
  7714.         dc.w    16              ;"hit-box" Width
  7715.         dc.w    12        ;"hit-box" Height
  7716.         dc.w    $0086        ;flags
  7717.         dc.w    $0103        ;activation
  7718.         dc.w    $0001        ;gadget type
  7719.         dc.l    ModeGadImage1    ;gadget renderingg
  7720.         dc.l    ModeGadImage2    ;select rendering
  7721.         dc.l    ModeGadTxt3    ;gadget text
  7722.         dc.l    0        ;mutual exclude
  7723.         dc.l    0        ;special info
  7724.         dc.w    10        ;gadget ID (user definable)
  7725.         dc.l    0        ;ptr to general purpose user data
  7726.         ds.l    0
  7727.  
  7728. ModeGadTxt3:    dc.b    1,2            ;PENS
  7729.         dc.w    0            ;MODE
  7730.         dc.w    17,2            ;LEFT+TOPEDGE
  7731.         dc.l    0            ;FONT
  7732.         dc.l    ModeGadText3        ;TEXT
  7733.         dc.l    0            ;NEXTTEXT
  7734.         ds.l    0
  7735. ModeGadText3:    dc.b    "Heavy traffic",0
  7736.         ds.l    0
  7737.  
  7738. Gadget1:    dc.l    Gadget2        ;Next Gadget
  7739.         dc.w    30        ;"hit-box" left edge (orig. 200)
  7740.         dc.w    23        ;"hit-box" top  edge
  7741.         dc.w    35        ;"hit-box" Width
  7742.         dc.w    9           ;"hit-box" Height
  7743.         dc.w    $0000        ;flags
  7744.         dc.w    $0a01        ;activation
  7745.         dc.w    $0004        ;gadget type
  7746.         dc.l    GadgetBorder    ;gadget rendering
  7747.         dc.l    0        ;select rendering
  7748.         dc.l    GadTxt1        ;gadget text
  7749.         dc.l    0        ;mutual exclude
  7750.         dc.l    StringInfo1    ;special info 
  7751.         dc.w    1        ;gadget ID (user definable)
  7752.         dc.l    0        ;ptr to general purpose user data
  7753.         ds.l    0
  7754.  
  7755. GadTxt1:    dc.b    1,2            ;PENS
  7756.         dc.w    0            ;MODE
  7757.         dc.w    5,10            ;LEFT+TOPEDGE
  7758.         dc.l    0            ;FONT
  7759.         dc.l    GadText1        ;TEXT
  7760.         dc.l    0            ;NEXTTEXT
  7761.         ds.l    0
  7762.  
  7763. GadText1:    dc.b    "Red",0
  7764.         ds.l    0
  7765.  
  7766. StringInfo1:    dc.l    Gad1Buf        ;Gadget 1 Buffer
  7767.         dc.l    GadUnBuf    ;Gadget 1 Undo Buffer
  7768.         dc.w    3        ;Pos in Buffer
  7769.         dc.w    3        ;Max. Chars in Buffer
  7770.         dc.w    0        ;Buffer Pos. of 1st disp. char
  7771.         dc.w    0        ;Intuition takes care of these.
  7772.         dc.w    0
  7773.         dc.w    0
  7774.         dc.w    0
  7775.         dc.w    0
  7776.         dc.l    0
  7777. RedLength:    dc.l    20        ;Long int.
  7778.         dc.l    0        ;AltKeyMap
  7779.         ds.l    0
  7780.  
  7781. Gadget2:    dc.l    Gadget3        ;Next Gadget
  7782.         dc.w    100        ;"hit-box" left edge
  7783.         dc.w    23        ;"hit-box" top  edge
  7784.         dc.w    35        ;"hit-box" Width
  7785.         dc.w    9        ;"hit-box" Height
  7786.         dc.w    $0000        ;flags
  7787.         dc.w    $0a01        ;activation
  7788.         dc.w    $0004        ;gadget type
  7789.         dc.l    GadgetBorder    ;gadget rendering
  7790.         dc.l    0        ;select rendering
  7791.         dc.l    GadTxt2        ;gadget text
  7792.         dc.l    0        ;mutual exclude
  7793.         dc.l    StringInfo2    ;special info 
  7794.         dc.w    1        ;gadget ID (user definable)
  7795.         dc.l    0        ;ptr to general purpose user data
  7796.  
  7797.         ds.l    0
  7798.  
  7799. GadTxt2:    dc.b    1,2            ;PENS
  7800.         dc.w    0            ;MODE
  7801.         dc.w    -5,10            ;LEFT+TOPEDGE
  7802.         dc.l    0            ;FONT
  7803.         dc.l    GadText2        ;TEXT
  7804.         dc.l    0            ;NEXTTEXT
  7805.  
  7806.         ds.l    0
  7807.  
  7808. GadText2:    dc.b    "Amber",0
  7809.  
  7810.         ds.l    0
  7811.  
  7812. StringInfo2:    dc.l    Gad2Buf        ;Gadget Buffer
  7813.         dc.l    GadUnBuf    ;Gadget Undo Buffer
  7814.         dc.w    3        ;Pos in Buffer
  7815.         dc.w    3        ;Max. Chars in Buffer
  7816.         dc.w    0        ;Buffer Pos. of 1st disp. char
  7817.         
  7818.         dc.w    0        ;Intuition takes care of these.
  7819.         dc.w    0
  7820.         dc.w    0
  7821.         dc.w    0
  7822.         dc.w    0
  7823.         dc.l    0
  7824.  
  7825. AmberLength:    dc.l    0        ;Long int.
  7826.         dc.l    0        ;AltKeyMap
  7827.  
  7828.         ds.l    0
  7829.  
  7830. Gadget3:    dc.l    InTime        ;Next Gadget
  7831.         dc.w    170        ;"hit-box" left edge
  7832.         dc.w    23        ;"hit-box" top  edge
  7833.         dc.w    35        ;"hit-box" Width
  7834.         dc.w    9        ;"hit-box" Height
  7835.         dc.w    $0000        ;flags
  7836.         dc.w    $0a01        ;activation
  7837.         dc.w    $0004        ;gadget type
  7838.         dc.l    GadgetBorder    ;gadget rendering
  7839.         dc.l    0        ;select rendering
  7840.         dc.l    GadTxt3        ;gadget text
  7841.         dc.l    0        ;mutual exclude
  7842.         dc.l    StringInfo3    ;special info 
  7843.         dc.w    1        ;gadget ID (user definable)
  7844.         dc.l    0        ;ptr to general purpose user data
  7845.  
  7846.         ds.l    0
  7847.  
  7848. GadTxt3:    dc.b    1,2            ;PENS
  7849.         dc.w    0            ;MODE
  7850.         dc.w    -2,10            ;LEFT+TOPEDGE
  7851.         dc.l    0            ;FONT
  7852.         dc.l    GadText3        ;TEXT
  7853.         dc.l    0            ;NEXTTEXT
  7854.  
  7855.         ds.l    0
  7856.  
  7857. GadText3:    dc.b    "Green",0
  7858.  
  7859.         ds.l    0
  7860.  
  7861. StringInfo3:    dc.l    Gad3Buf        ;Gadget Buffer
  7862.         dc.l    GadUnBuf    ;Gadget Undo Buffer
  7863.         dc.w    3        ;Pos in Buffer
  7864.         dc.w    3        ;Max. Chars in Buffer
  7865.         dc.w    0        ;Buffer Pos. of 1st disp. char
  7866.         
  7867.         dc.w    0        ;Intuition takes care of these.
  7868.         dc.w    0
  7869.         dc.w    0
  7870.         dc.w    0
  7871.         dc.w    0
  7872.         dc.l    0
  7873.     
  7874. GreenLength:    dc.l    30        ;Long int.
  7875.         dc.l    0        ;AltKeyMap
  7876.     
  7877.         ds.l    0
  7878.  
  7879. GadgetBorder:    dc.w    -1        ;Initial offsets from the origin
  7880.         dc.w    -1        ;LeftEdge and TopEdge
  7881.         dc.b    1,2        ;Pens
  7882.         dc.b    1        ;Draw Mode
  7883.         dc.b    5        ;Line Count (XY)
  7884.         dc.l    BorderXY    ;XY's
  7885.         dc.l    0        ;Next Border
  7886.         dc.b    0
  7887.         ds.l    0
  7888. BorderXY:    dc.w    -1,-1
  7889.         dc.w    36,-1        
  7890.         dc.w    36,9
  7891.         dc.w    -1,9
  7892.         dc.w    -1,-1
  7893.         dc.b    0
  7894.         ds.l    0
  7895.  
  7896. GadgetBorder2:    dc.w    -1        ;Initial offsets from the origin
  7897.         dc.w    -1        ;LeftEdge and TopEdge
  7898.         dc.b    1,2        ;Pens
  7899.         dc.b    1        ;Draw Mode
  7900.         dc.b    5        ;Line Count (XY)
  7901.         dc.l    BorderXY2    ;XY's
  7902.         dc.l    0        ;Next Border
  7903.         dc.b    0
  7904.         ds.l    0
  7905. BorderXY2:    dc.w    -1,-1
  7906.         dc.w    22,-1        
  7907.         dc.w    22,9
  7908.         dc.w    -1,9
  7909.         dc.w    -1,-1
  7910.         dc.b    0
  7911.         ds.l    0
  7912.  
  7913. CityMap1:    dc.w    5        ;Initial offsets from the origin
  7914.         dc.w    11        ;LeftEdge and TopEdge
  7915.         dc.b    1,2        ;Pens
  7916.         dc.b    1        ;Draw Mode
  7917.         dc.b    5        ;Line Count (XY)
  7918.         dc.l    CityXY1        ;XY's
  7919.         dc.l    CityMap2    ;Next Border
  7920.         dc.b    0
  7921.         ds.l    0
  7922. CityMap2:    dc.w    360        ;Initial offsets from the origin
  7923.         dc.w    11        ;LeftEdge and TopEdge
  7924.         dc.b    1,2        ;Pens
  7925.         dc.b    1        ;Draw Mode
  7926.         dc.b    5        ;Line Count (XY)
  7927.         dc.l    CityXY1        ;XY's
  7928.         dc.l    CityMap3    ;Next Border
  7929.         dc.b    0
  7930.         ds.l    0
  7931. CityMap3:    dc.w    360        ;Initial offsets from the origin
  7932.         dc.w    87        ;LeftEdge and TopEdge
  7933.         dc.b    1,2        ;Pens
  7934.         dc.b    1        ;Draw Mode
  7935.         dc.b    5        ;Line Count (XY)
  7936.         dc.l    CityXY1        ;XY's
  7937.         dc.l    CityMap4    ;Next Border
  7938.         dc.b    0
  7939.         ds.l    0
  7940. CityMap4:    dc.w    5        ;Initial offsets from the origin
  7941.         dc.w    87        ;LeftEdge and TopEdge
  7942.         dc.b    1,2        ;Pens
  7943.         dc.b    1        ;Draw Mode
  7944.         dc.b    5        ;Line Count (XY)
  7945.         dc.l    CityXY1        ;XY's
  7946.         dc.l    CityMap5    ;Next Border
  7947.         dc.b    0
  7948.         ds.l    0
  7949. CityMap5:    dc.w    100        ;Initial offsets from the origin
  7950.         dc.w    87        ;LeftEdge and TopEdge
  7951.         dc.b    1,2        ;Pens
  7952.         dc.b    1        ;Draw Mode
  7953.         dc.b    5        ;Line Count (XY)
  7954.         dc.l    CityXY2        ;XY's
  7955.         dc.l    CityMap6    ;Next Border
  7956.         dc.b    0
  7957.         ds.l    0
  7958. CityMap6:    dc.w    100        ;Initial offsets from the origin
  7959.         dc.w    11        ;LeftEdge and TopEdge
  7960.         dc.b    1,2        ;Pens
  7961.         dc.b    1        ;Draw Mode
  7962.         dc.b    5        ;Line Count (XY)
  7963.         dc.l    CityXY2        ;XY's
  7964.         dc.l    CityMap7    ;Next Border
  7965.         dc.b    0
  7966.         ds.l    0
  7967. CityMap7:    dc.w    100        ;Initial offsets from the origin
  7968.         dc.w    38        ;LeftEdge and TopEdge
  7969.         dc.b    1,2        ;Pens
  7970.         dc.b    1        ;Draw Mode
  7971.         dc.b    5        ;Line Count (XY)
  7972.         dc.l    CityXY3        ;XY's
  7973.         dc.l    CityMap8    ;Next Border
  7974.         dc.b    0
  7975.         ds.l    0
  7976. CityMap8:    dc.w    5        ;Initial offsets from the origin
  7977.         dc.w    38        ;LeftEdge and TopEdge
  7978.         dc.b    1,2        ;Pens
  7979.         dc.b    1        ;Draw Mode
  7980.         dc.b    5        ;Line Count (XY)
  7981.         dc.l    CityXY4        ;XY's
  7982.         dc.l    CityMap9    ;Next Border
  7983.         dc.b    0
  7984.         ds.l    0
  7985. CityMap9:    dc.w    360        ;Initial offsets from the origin
  7986.         dc.w    38        ;LeftEdge and TopEdge
  7987.         dc.b    1,2        ;Pens
  7988.         dc.b    1        ;Draw Mode
  7989.         dc.b    5        ;Line Count (XY)
  7990.         dc.l    CityXY4        ;XY's
  7991.         dc.l    0        ;Next Border
  7992.         dc.b    0
  7993.         ds.l    0
  7994.  
  7995. CityXY1:    dc.w    1,1
  7996.         dc.w    33,1        
  7997.         dc.w    33,9
  7998.         dc.w    1,9
  7999.         dc.w    1,1
  8000.         dc.b    0
  8001.         ds.l    0
  8002. CityXY2:    dc.w    1,1
  8003.         dc.w    200,1        
  8004.         dc.w    200,9
  8005.         dc.w    1,9
  8006.         dc.w    1,1
  8007.         dc.b    0
  8008.         ds.l    0
  8009. CityXY3:    dc.w    1,1
  8010.         dc.w    200,1        
  8011.         dc.w    200,30
  8012.         dc.w    1,30
  8013.         dc.w    1,1
  8014.         dc.b    0
  8015.         ds.l    0
  8016. CityXY4:    dc.w    1,1
  8017.         dc.w    33,1        
  8018.         dc.w    33,30
  8019.         dc.w    1,30
  8020.         dc.w    1,1
  8021.         dc.b    0
  8022.         ds.l    0
  8023.  
  8024. QGadgetBorder1:    dc.w    -1        ;Initial offsets from the origin
  8025.         dc.w    -1        ;LeftEdge and TopEdge
  8026.         dc.b    1,2        ;Pens
  8027.         dc.b    1        ;Draw Mode
  8028.         dc.b    5        ;Line Count (XY)
  8029.         dc.l    QBorderXY1    ;XY's
  8030.         dc.l    QGadgetBorder2    ;Next Border
  8031.         dc.b    0
  8032.         ds.l    0
  8033. QBorderXY1:    dc.w    0,0
  8034.         dc.w    52,0        
  8035.         dc.w    52,11
  8036.         dc.w    0,11
  8037.         dc.w    0,0
  8038.         dc.b    0
  8039.         ds.l    0
  8040.  
  8041. QGadgetBorder2:    dc.w    -2        ;Initial offsets from the origin
  8042.         dc.w    -3        ;LeftEdge and TopEdge
  8043.         dc.b    3,1        ;Pens
  8044.         dc.b    1        ;Draw Mode
  8045.         dc.b    5        ;Line Count (XY)
  8046.         dc.l    QBorderXY2    ;XY's
  8047.         dc.l    QGadgetBorder3    ;Next Border
  8048.         dc.b    0
  8049.         ds.l    0
  8050. QBorderXY2:    dc.w    0,0
  8051.         dc.w    54,0        
  8052.         dc.w    54,15
  8053.         dc.w    0,15
  8054.         dc.w    0,0
  8055.         dc.b    0
  8056.         ds.l    0
  8057.  
  8058. QGadgetBorder3:    dc.w    -3        ;Initial offsets from the origin
  8059.         dc.w    -4        ;LeftEdge and TopEdge
  8060.         dc.b    3,1        ;Pens
  8061.         dc.b    1        ;Draw Mode
  8062.         dc.b    5        ;Line Count (XY)
  8063.         dc.l    QBorderXY3    ;XY's
  8064.         dc.l    0        ;Next Border
  8065.         dc.b    0
  8066.         ds.l    0
  8067. QBorderXY3:    dc.w    0,0
  8068.         dc.w    56,0        
  8069.         dc.w    56,17
  8070.         dc.w    0,17
  8071.         dc.w    0,0
  8072.         dc.b    0
  8073.         ds.l    0
  8074.  
  8075. PGadgetBorder1:    dc.w    -1        ;Initial offsets from the origin
  8076.         dc.w    -1        ;LeftEdge and TopEdge
  8077.         dc.b    1,2        ;Pens
  8078.         dc.b    1        ;Draw Mode
  8079.         dc.b    5        ;Line Count (XY)
  8080.         dc.l    PBorderXY1    ;XY's
  8081.         dc.l    0        ;Next Border
  8082.         dc.b    0
  8083.         ds.l    0
  8084. PBorderXY1:    dc.w    -1,-1
  8085.         dc.w    25,-1        
  8086.         dc.w    25,9
  8087.         dc.w    -1,9
  8088.         dc.w    -1,-1
  8089.         dc.b    0
  8090.         ds.l    0
  8091.  
  8092. PGadgetBorder2:    dc.w    -1        ;Initial offsets from the origin
  8093.         dc.w    -1        ;LeftEdge and TopEdge
  8094.         dc.b    1,2        ;Pens
  8095.         dc.b    1        ;Draw Mode
  8096.         dc.b    5        ;Line Count (XY)
  8097.         dc.l    PBorderXY2    ;XY's
  8098.         dc.l    0        ;Next Border
  8099.         dc.b    0
  8100.         ds.l    0
  8101. PBorderXY2:    dc.w    -1,-1
  8102.         dc.w    33,-1        
  8103.         dc.w    33,9
  8104.         dc.w    -1,9
  8105.         dc.w    -1,-1
  8106.         dc.b    0
  8107.         ds.l    0
  8108.  
  8109. AbBorder1:    dc.w    2        ;Initial offsets from the origin
  8110.         dc.w    1        ;LeftEdge and TopEdge
  8111.         dc.b    1,2        ;Pens
  8112.         dc.b    1        ;Draw Mode
  8113.         dc.b    9        ;Line Count (XY)
  8114.         dc.l    AbBorderXY    ;XY's
  8115.         dc.l    0        ;Next Border
  8116.         dc.b    0
  8117.         ds.l    0
  8118. AbBorderXY:    dc.w    0,0
  8119.         dc.w    395,0        
  8120.         dc.w    395,77
  8121.         dc.w    331,77
  8122.         dc.w    331,97
  8123.         dc.w    64,97
  8124.         dc.w    64,77
  8125.         dc.w    0,77
  8126.         dc.w    0,0
  8127.         dc.b    0
  8128.         ds.l    0
  8129.  
  8130. ;Gadget buffers
  8131.         ds.l    0
  8132.  
  8133. PGad1Buf:    dc.b    "1",0,0,0
  8134.  
  8135. PGad2Buf:    dc.b    "1",0,0,0
  8136.  
  8137. PGadUnBuf:    dc.b    0,0,0,0
  8138.     
  8139. Gad1Buf:    dc.b    "30",0,0,0
  8140.         ds.l    0
  8141. Gad2Buf:    dc.b    "0",0,0,0,0
  8142.         ds.l    0
  8143. Gad3Buf:    dc.b    "20",0,0,0
  8144.         ds.l    0
  8145. ITGad1Buf:    dc.b    "1",0,0
  8146.         ds.l    0        
  8147. OTGad1Buf:    dc.b    "1",0,0
  8148.         ds.l    0        
  8149. XMGad1Buf:    dc.b    "30",0
  8150.         ds.l    0        
  8151. YMGad1Buf:    dc.b    "20",0
  8152.         ds.l    0        
  8153. ICGad1Buf:    dc.b    "12",0
  8154.         ds.l    0
  8155. ICGad2Buf:    dc.b    "10",0
  8156.         ds.l    0
  8157. ICGad3Buf:    dc.b    "10",0
  8158.         ds.l    0
  8159. ICGad4Buf:    dc.b    "15",0
  8160.         ds.l    0
  8161. ICGad5Buf:    dc.b    "05",0,0
  8162.         ds.l    0
  8163. ICGad6Buf:    dc.b    "15",0
  8164.         ds.l    0
  8165. ICGad7Buf:    dc.b    "18",0
  8166.         ds.l    0
  8167. ICGad8Buf:    dc.b    "15",0
  8168.         ds.l    0
  8169. TurnGad1Buf:    dc.b    "05",0
  8170.         ds.l    0
  8171. TurnGad2Buf:    dc.b    "40",0
  8172.         ds.l    0
  8173. TurnGad3Buf:    dc.b    "55",0
  8174.         ds.l    0
  8175. TurnGad4Buf:    dc.b    "05",0
  8176.         ds.l    0
  8177. TurnGad5Buf:    dc.b    "65",0,0
  8178.         ds.l    0
  8179. TurnGad6Buf:    dc.b    "30",0
  8180.         ds.l    0
  8181. TurnGad7Buf:    dc.b    "40",0
  8182.         ds.l    0
  8183. TurnGad8Buf:    dc.b    "40",0
  8184.         ds.l    0
  8185. TurnGad9Buf:    dc.b    "20",0
  8186.         ds.l    0
  8187. TurnGad10Buf:    dc.b    "40",0
  8188.         ds.l    0
  8189. TurnGad11Buf:    dc.b    "35",0
  8190.         ds.l    0
  8191. TurnGad12Buf:    dc.b    "25",0
  8192.         ds.l    0
  8193. TurnGad13Buf:    dc.b    "30",0,0
  8194.         ds.l    0
  8195. TurnGad14Buf:    dc.b    "50",0
  8196.         ds.l    0
  8197. TurnGad15Buf:    dc.b    "20",0
  8198.         ds.l    0
  8199. TurnGad16Buf:    dc.b    "20",0
  8200.         ds.l    0
  8201. TurnGad17Buf:    dc.b    "60",0
  8202.         ds.l    0
  8203. TurnGad18Buf:    dc.b    "20",0
  8204.         ds.l    0
  8205. TurnGad19Buf:    dc.b    "10",0
  8206.         ds.l    0
  8207. TurnGad20Buf:    dc.b    "50",0
  8208.         ds.l    0
  8209. TurnGad21Buf:    dc.b    "40",0
  8210.         ds.l    0
  8211. TurnGad22Buf:    dc.b    "20",0,0
  8212.         ds.l    0
  8213. TurnGad23Buf:    dc.b    "70",0
  8214.         ds.l    0
  8215. TurnGad24Buf:    dc.b    "10",0
  8216.         ds.l    0
  8217. TurnGad25Buf:    dc.b    "05",0
  8218.         ds.l    0
  8219. TurnGad26Buf:    dc.b    "80",0
  8220.         ds.l    0
  8221. TurnGad27Buf:    dc.b    "15",0
  8222.         ds.l    0
  8223. TurnGad28Buf:    dc.b    "15",0
  8224.         ds.l    0
  8225. TurnGad29Buf:    dc.b    "70",0
  8226.         ds.l    0
  8227. TurnGad30Buf:    dc.b    "15",0,0
  8228.         ds.l    0
  8229. TurnGad31Buf:    dc.b    "35",0
  8230.         ds.l    0
  8231. TurnGad32Buf:    dc.b    "50",0
  8232.         ds.l    0
  8233. TurnGad33Buf:    dc.b    "15",0
  8234.         ds.l    0
  8235. TurnGad34Buf:    dc.b    "20",0
  8236.         ds.l    0
  8237. TurnGad35Buf:    dc.b    "30",0
  8238.         ds.l    0
  8239. TurnGad36Buf:    dc.b    "50",0
  8240.         ds.l    0
  8241. TurnGad37Buf:    dc.b    "10",0
  8242.         ds.l    0
  8243. TurnGad38Buf:    dc.b    "50",0,0
  8244.         ds.l    0
  8245. TurnGad39Buf:    dc.b    "35",0
  8246.         ds.l    0
  8247. TurnGad40Buf:    dc.b    "15",0
  8248.         ds.l    0
  8249. TurnGad41Buf:    dc.b    "60",0
  8250.         ds.l    0
  8251. TurnGad42Buf:    dc.b    "25",0
  8252.         ds.l    0
  8253. TurnGad43Buf:    dc.b    "15",0
  8254.         ds.l    0
  8255. TurnGad44Buf:    dc.b    "40",0
  8256.         ds.l    0
  8257. TurnGad45Buf:    dc.b    "45",0
  8258.         ds.l    0
  8259. TurnGad46Buf:    dc.b    "45",0
  8260.         ds.l    0
  8261. TurnGad47Buf:    dc.b    "30",0,0
  8262.         ds.l    0
  8263. TurnGad48Buf:    dc.b    "25",0
  8264.         ds.l    0
  8265. GadUnBuf:    ds.b    30
  8266.         ds.l    0
  8267.  
  8268. FRDir:        dc.b    "SYS:",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8269.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8270.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8271.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8272.         dc.b    0,0,0,0,0,0,0,0,0,0
  8273.         ds.l    0
  8274.  
  8275. FRFile:        dc.b    "Traffic-Lights.DAT",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8276.         ds.l    0
  8277.  
  8278. FRPathName:    dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8279.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8280.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8281.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8282.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8283.         dc.b    0,0,0,0,0,0,0,0,0,0,0
  8284.         ds.l    0
  8285.     
  8286. FileRequest1:    dc.w    $2                ;MUST BE REQVERSION !!!
  8287. FRTitle:    dc.l    0                ;frq_Title
  8288.         dc.l    FRDir                ;frq_dir
  8289.         dc.l    FRFile                ;frq_File
  8290.         dc.l    FRPathName            ;frq_PathName
  8291.         dc.l    0                ;frq_Window
  8292.         dc.w    0                ;frq_MaxExtndSelect
  8293.         dc.w    0,0                ;frq_NumLines,NumColumns
  8294.         dc.w    0                ;frq_DevColumns
  8295.         dc.l    FRQLOADINGB+FRQABSOLUTEXYB    ;frq_Flags
  8296.         dc.w    2,1                ;frq_DirNamesColor,FileNamesColor
  8297.         dc.w    3,4                ;frq_DeviceNamesColor,FontNamesColor
  8298.         dc.w    0                ;frq_FontSizesColor
  8299.         dc.w    0,0                ;frq_DetailColor,BlockColor
  8300.         dc.w    0,0                ;frq_GadgetTextColor,TextMessageColor
  8301.         dc.w    0,0                ;frq_StringNameColor,StringGadgetColor
  8302.         dc.w    0,0                ;frq_BoxBorderColor,GadgetBoxColor
  8303.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;frq_RFU_Stuff
  8304.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8305.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0        ;frq_DateStamp
  8306.         dc.w    128,6                ;frq_WindowLeftEdge,WindowTopEdge
  8307.         dc.w    0,0                ;frq_FontYSize,FontStyle
  8308.         dc.l    0                ;frq_ExtendSelect
  8309.         dc.b    0,0,0,0,0,0,0,0,0,0        ;frq_Hide
  8310.         dc.b    0,0,0,0,0,0,0,0,0,0
  8311.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  8312.         dc.b    0,0,0,0,0,0,0,0,0,0        ;frq_Show
  8313.         dc.b    0,0,0,0,0,0,0,0,0,0
  8314.         dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  8315.         dc.w    0,0                ;frq_FileBufferPos,FileDispPos
  8316.         dc.w    0,0                ;frq_DirBufferPos,DirDispPos
  8317.         dc.w    0,0                ;frq_HideBufferPos,HideDispPos
  8318.         dc.w    0,0                ;frq_ShowBufferPos,ShowPispPos
  8319.         dc.l    0,0                ;frq_Memory,Memory2
  8320.         dc.l    0                ;frq_Lock
  8321.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    ;frq_PrivateDirBuffer
  8322.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8323.         dc.l    0                ;frq_FileInfoBlock
  8324.         dc.w    0                ;frq_NumEntries
  8325.         dc.w    0                ;NumHiddenEntries
  8326.         dc.w    0                ;frq_FileStartNumber
  8327.         dc.w    0                ;frq_DevicesStartNumber
  8328.         ds.l    0
  8329.  
  8330. AmountTxt1:    dc.b    1,0            ;PENS
  8331.         dc.w    0            ;MODE
  8332.         dc.w    40,13            ;LEFT+TOPEDGE
  8333.         dc.l    0            ;FONT
  8334.         dc.l    PutChData        ;TEXT
  8335.         dc.l    0            ;NEXTTEXT
  8336.         ds.l    0
  8337.  
  8338. AmountTxt2:    dc.b    1,0            ;PENS
  8339.         dc.w    0            ;MODE
  8340.         dc.w    302,13            ;LEFT+TOPEDGE
  8341.         dc.l    0            ;FONT
  8342.         dc.l    PutChData        ;TEXT
  8343.         dc.l    0             ;NEXTTEXT
  8344.         ds.l    0
  8345.  
  8346. AmountTxt3:    dc.b    1,0            ;PENS
  8347.         dc.w    0            ;MODE
  8348.         dc.w    360,23            ;LEFT+TOPEDGE
  8349.         dc.l    0            ;FONT
  8350.         dc.l    PutChData        ;TEXT
  8351.         dc.l    0             ;NEXTTEXT
  8352.         ds.l    0
  8353.  
  8354. AmountTxt4:    dc.b    1,0            ;PENS
  8355.         dc.w    0            ;MODE
  8356.         dc.w    360,71            ;LEFT+TOPEDGE
  8357.         dc.l    0            ;FONT
  8358.         dc.l    PutChData        ;TEXT
  8359.         dc.l    0             ;NEXTTEXT
  8360.         ds.l    0
  8361.  
  8362. AmountTxt5:    dc.b    1,0            ;PENS
  8363.         dc.w    0            ;MODE
  8364.         dc.w    338,89            ;LEFT+TOPEDGE
  8365.         dc.l    0            ;FONT
  8366.         dc.l    PutChData        ;TEXT
  8367.         dc.l    0             ;NEXTTEXT
  8368.         ds.l    0
  8369.  
  8370. AmountTxt6:    dc.b    1,0            ;PENS
  8371.         dc.w    0            ;MODE
  8372.         dc.w    79,89            ;LEFT+TOPEDGE
  8373.         dc.l    0            ;FONT
  8374.         dc.l    PutChData        ;TEXT
  8375.         dc.l    0             ;NEXTTEXT
  8376.         ds.l    0
  8377.  
  8378. AmountTxt7:    dc.b    1,0            ;PENS
  8379.         dc.w    0            ;MODE
  8380.         dc.w    20,80            ;LEFT+TOPEDGE
  8381.         dc.l    0            ;FONT
  8382.         dc.l    PutChData        ;TEXT
  8383.         dc.l    0             ;NEXTTEXT
  8384.         ds.l    0
  8385.  
  8386. AmountTxt8:    dc.b    1,0            ;PENS
  8387.         dc.w    0            ;MODE
  8388.         dc.w    20,31            ;LEFT+TOPEDGE
  8389.         dc.l    0            ;FONT
  8390.         dc.l    PutChData        ;TEXT
  8391.         dc.l    0             ;NEXTTEXT
  8392.         ds.l    0
  8393.  
  8394. AmountTxt9:    dc.b    1,0            ;PENS
  8395.         dc.w    0            ;MODE
  8396.         dc.w    101,23            ;LEFT+TOPEDGE
  8397.         dc.l    0            ;FONT
  8398.         dc.l    PutChData        ;TEXT
  8399.         dc.l    0             ;NEXTTEXT
  8400.         ds.l    0
  8401.  
  8402. AmountTxt10:    dc.b    1,0            ;PENS
  8403.         dc.w    0            ;MODE
  8404.         dc.w    282,31            ;LEFT+TOPEDGE
  8405.         dc.l    0            ;FONT
  8406.         dc.l    PutChData        ;TEXT
  8407.         dc.l    0             ;NEXTTEXT
  8408.         ds.l    0
  8409.  
  8410. AmountTxt11:    dc.b    1,0            ;PENS
  8411.         dc.w    0            ;MODE
  8412.         dc.w    302,61            ;LEFT+TOPEDGE
  8413.         dc.l    0            ;FONT
  8414.         dc.l    PutChData        ;TEXT
  8415.         dc.l    0             ;NEXTTEXT
  8416.         ds.l    0
  8417.  
  8418. AmountTxt12:    dc.b    1,0            ;PENS
  8419.         dc.w    0            ;MODE
  8420.         dc.w    339,42            ;LEFT+TOPEDGE
  8421.         dc.l    0            ;FONT
  8422.         dc.l    PutChData        ;TEXT
  8423.         dc.l    0             ;NEXTTEXT
  8424.         ds.l    0
  8425.  
  8426. AmountTxt13:    dc.b    1,0            ;PENS
  8427.         dc.w    0            ;MODE
  8428.         dc.w    282,80            ;LEFT+TOPEDGE
  8429.         dc.l    0            ;FONT
  8430.         dc.l    PutChData        ;TEXT
  8431.         dc.l    0             ;NEXTTEXT
  8432.         ds.l    0
  8433.  
  8434. AmountTxt14:    dc.b    1,0            ;PENS
  8435.         dc.w    0            ;MODE
  8436.         dc.w    101,71            ;LEFT+TOPEDGE
  8437.         dc.l    0            ;FONT
  8438.         dc.l    PutChData        ;TEXT
  8439.         dc.l    0             ;NEXTTEXT
  8440.         ds.l    0
  8441.  
  8442. AmountTxt15:    dc.b    1,0            ;PENS
  8443.         dc.w    0            ;MODE
  8444.         dc.w    40,61            ;LEFT+TOPEDGE
  8445.         dc.l    0            ;FONT
  8446.         dc.l    PutChData        ;TEXT
  8447.         dc.l    0             ;NEXTTEXT
  8448.         ds.l    0
  8449.  
  8450. AmountTxt16:    dc.b    1,0            ;PENS
  8451.         dc.w    0            ;MODE
  8452.         dc.w    78,42            ;LEFT+TOPEDGE
  8453.         dc.l    0            ;FONT
  8454.         dc.l    PutChData        ;TEXT
  8455.         dc.l    0             ;NEXTTEXT
  8456.         ds.l    0
  8457.  
  8458. AboutTxt1:    dc.b    3,1            ;PENS
  8459.         dc.w    0            ;MODE
  8460.         dc.w    10,10            ;LEFT+TOPEDGE
  8461.         dc.l    0            ;FONT
  8462.         dc.l    AboutText1        ;TEXT
  8463.         dc.l    AboutTxt2        ;NEXTTEXT
  8464.         ds.l    0
  8465.         
  8466. AboutTxt2:    dc.b    3,2            ;PENS
  8467.         dc.w    4            ;MODE
  8468.         dc.w    10,20            ;LEFT+TOPEDGE
  8469.         dc.l    0            ;FONT
  8470.         dc.l    AboutText2        ;TEXT
  8471.         dc.l    AboutTxt3        ;NEXTTEXT
  8472.         ds.l    0
  8473.  
  8474. AboutTxt3:    dc.b    3,1            ;PENS
  8475.         dc.w    4            ;MODE
  8476.         dc.w    10,30            ;LEFT+TOPEDGE
  8477.         dc.l    0            ;FONT
  8478.         dc.l    AboutText3        ;TEXT
  8479.         dc.l    AboutTxt4        ;NEXTTEXT
  8480.         ds.l    0
  8481.  
  8482. AboutTxt4:    dc.b    1,1            ;PENS
  8483.         dc.w    4            ;MODE
  8484.         dc.w    10,50            ;LEFT+TOPEDGE
  8485.         dc.l    0            ;FONT
  8486.         dc.l    AboutText4        ;TEXT
  8487.         dc.l    AboutTxt5        ;NEXTTEXT
  8488.         ds.l    0
  8489.  
  8490. AboutTxt5:    dc.b    1,1            ;PENS
  8491.         dc.w    4            ;MODE
  8492.         dc.w    10,60            ;LEFT+TOPEDGE
  8493.         dc.l    0            ;FONT
  8494.         dc.l    AboutText5        ;TEXT
  8495.         dc.l    AboutTxt6        ;NEXTTEXT
  8496.         ds.l    0
  8497.  
  8498. AboutTxt6:    dc.b    1,1            ;PENS
  8499.         dc.w    4            ;MODE
  8500.         dc.w    10,69            ;LEFT+TOPEDGE
  8501.         dc.l    0            ;FONT
  8502.         dc.l    AboutText6        ;TEXT
  8503.         dc.l    AboutTxt7        ;NEXTTEXT
  8504.         ds.l    0
  8505.  
  8506. AboutTxt7:    dc.b    1,1            ;PENS
  8507.         dc.w    4            ;MODE
  8508.         dc.w    10,78            ;LEFT+TOPEDGE
  8509.         dc.l    0            ;FONT
  8510.         dc.l    AboutText7        ;TEXT
  8511.         dc.l    0            ;NEXTTEXT
  8512.         ds.l    0
  8513.  
  8514. MapTxt1:    dc.b    1,12            ;PENS
  8515.         dc.w    4            ;MODE
  8516.         dc.w    11,101            ;LEFT+TOPEDGE
  8517.         dc.l    0            ;FONT
  8518.         dc.l    MapText1        ;TEXT
  8519.         dc.l    MapTxt2            ;NEXTTEXT
  8520. MapTxt2:    dc.b    1,12            ;PENS
  8521.         dc.w    4            ;MODE
  8522.         dc.w    11,111            ;LEFT+TOPEDGE
  8523.         dc.l    0            ;FONT
  8524.         dc.l    MapText2        ;TEXT
  8525.         dc.l    MapTxt3            ;NEXTTEXT
  8526. MapTxt3:    dc.b    1,12            ;PENS
  8527.         dc.w    4            ;MODE
  8528.         dc.w    11,11            ;LEFT+TOPEDGE
  8529.         dc.l    0            ;FONT
  8530.         dc.l    MapText3        ;TEXT
  8531.         dc.l    MapTxt4            ;NEXTTEXT
  8532. MapTxt4:    dc.b    1,12            ;PENS
  8533.         dc.w    4            ;MODE
  8534.         dc.w    11,11            ;LEFT+TOPEDGE
  8535.         dc.l    0            ;FONT
  8536.         dc.l    MapText4        ;TEXT
  8537.         dc.l    MapTxt5            ;NEXTTEXT
  8538. MapTxt5:    dc.b    1,12            ;PENS
  8539.         dc.w    4            ;MODE
  8540.         dc.w    101,111            ;LEFT+TOPEDGE
  8541.         dc.l    0            ;FONT
  8542.         dc.l    MapText5        ;TEXT
  8543.         dc.l    MapTxt6            ;NEXTTEXT
  8544. MapTxt6:    dc.b    1,12            ;PENS
  8545.         dc.w    4            ;MODE
  8546.         dc.w    101,121            ;LEFT+TOPEDGE
  8547.         dc.l    0            ;FONT
  8548.         dc.l    MapText6        ;TEXT
  8549.         dc.l    MapTxt7            ;NEXTTEXT
  8550. MapTxt7:    dc.b    1,12            ;PENS
  8551.         dc.w    4            ;MODE
  8552.         dc.w    101,131            ;LEFT+TOPEDGE
  8553.         dc.l    0            ;FONT
  8554.         dc.l    MapText7        ;TEXT
  8555.         dc.l    MapTxt8            ;NEXTTEXT
  8556. MapTxt8:    dc.b    1,12            ;PENS
  8557.         dc.w    4            ;MODE
  8558.         dc.w    101,141            ;LEFT+TOPEDGE
  8559.         dc.l    0            ;FONT
  8560.         dc.l    MapText8        ;TEXT
  8561.         dc.l    0            ;NEXTTEXT
  8562.         ds.l    0
  8563.  
  8564. MapText1:    dc.b    "Junction 1",0
  8565.         ds.l    0
  8566. MapText2:    dc.b    "Junction 2",0
  8567.         ds.l    0
  8568. MapText3:    dc.b    "Junction 3",0
  8569.         ds.l    0
  8570. MapText4:    dc.b    "Junction 4",0
  8571.         ds.l    0
  8572. MapText5:    dc.b    "West",0
  8573.         ds.l    0
  8574. MapText6:    dc.b    "North",0
  8575.         ds.l    0
  8576. MapText7:    dc.b    "East",0
  8577.         ds.l    0
  8578. MapText8:    dc.b    "South",0
  8579.  
  8580.  
  8581. AboutText1:    dc.b    "              Traffic-Lights v.0.94",0
  8582.         ds.l    0                          
  8583. AboutText2:    dc.b    "                       by",0
  8584.         ds.l    0
  8585. AboutText3:    dc.b    "                 Tomi Blinnikka",0
  8586.         ds.l    0
  8587. AboutText4:    dc.b    "            (C)opyright 1991. Address :",0,0
  8588.         ds.l    0
  8589. AboutText5:    dc.b    "                  Syystie 10",0
  8590.         ds.l    0
  8591. AboutText6:    dc.b    "                  00780 Helsinki",0
  8592.         ds.l    0
  8593. AboutText7:    dc.b    "         Phone: 90-351 1462/90-345 4588",0
  8594.         ds.l    0
  8595.  
  8596. Help1Txt1:    dc.b    1,2            ;PENS
  8597.         dc.w    4            ;MODE
  8598.         dc.w    11,11            ;LEFT+TOPEDGE
  8599.         dc.l    0            ;FONT
  8600.         dc.l    Help1Text1        ;TEXT
  8601.         dc.l    Help1Txt2        ;NEXTTEXT
  8602.         ds.l    0
  8603. Help1Txt2:    dc.b    1,12            ;PENS
  8604.         dc.w    4            ;MODE
  8605.         dc.w    11,21            ;LEFT+TOPEDGE
  8606.         dc.l    0            ;FONT
  8607.         dc.l    Help1Text2        ;TEXT
  8608.         dc.l    Help1Txt3        ;NEXTTEXT
  8609.         ds.l    0
  8610. Help1Txt3:    dc.b    1,12            ;PENS
  8611.         dc.w    4            ;MODE
  8612.         dc.w    11,31            ;LEFT+TOPEDGE
  8613.         dc.l    0            ;FONT
  8614.         dc.l    Help1Text3        ;TEXT
  8615.         dc.l    Help1Txt4        ;NEXTTEXT
  8616.         ds.l    0
  8617. Help1Txt4:    dc.b    1,12            ;PENS
  8618.         dc.w    4            ;MODE
  8619.         dc.w    11,41            ;LEFT+TOPEDGE
  8620.         dc.l    0            ;FONT
  8621.         dc.l    Help1Text4        ;TEXT
  8622.         dc.l    Help1Txt5        ;NEXTTEXT
  8623.         ds.l    0
  8624. Help1Txt5:    dc.b    1,12            ;PENS
  8625.         dc.w    4            ;MODE
  8626.         dc.w    11,51            ;LEFT+TOPEDGE
  8627.         dc.l    0            ;FONT
  8628.         dc.l    Help1Text5        ;TEXT
  8629.         dc.l    Help1Txt6        ;NEXTTEXT
  8630.         ds.l    0
  8631. Help1Txt6:    dc.b    1,12            ;PENS
  8632.         dc.w    4            ;MODE
  8633.         dc.w    11,61            ;LEFT+TOPEDGE
  8634.         dc.l    0            ;FONT
  8635.         dc.l    Help1Text6        ;TEXT
  8636.         dc.l    Help1Txt7        ;NEXTTEXT
  8637.         ds.l    0
  8638. Help1Txt7:    dc.b    1,12            ;PENS
  8639.         dc.w    4            ;MODE
  8640.         dc.w    11,71            ;LEFT+TOPEDGE
  8641.         dc.l    0            ;FONT
  8642.         dc.l    Help1Text7        ;TEXT
  8643.         dc.l    Help1Txt8        ;NEXTTEXT
  8644.         ds.l    0
  8645. Help1Txt8:    dc.b    1,12            ;PENS
  8646.         dc.w    4            ;MODE
  8647.         dc.w    11,81            ;LEFT+TOPEDGE
  8648.         dc.l    0            ;FONT
  8649.         dc.l    Help1Text8        ;TEXT
  8650.         dc.l    HelpTxt99        ;NEXTTEXT
  8651.         ds.l    0
  8652.  
  8653. HelpTxt99:    dc.b    1,12            ;PENS
  8654.         dc.w    4            ;MODE
  8655.         dc.w    100,200            ;LEFT+TOPEDGE
  8656.         dc.l    0            ;FONT
  8657.         dc.l    HelpText99        ;TEXT
  8658.         dc.l    0            ;NEXTTEXT
  8659.         ds.l    0
  8660.  
  8661. Help2Txt1:    dc.b    1,12            ;PENS
  8662.         dc.w    4            ;MODE
  8663.         dc.w    11,11            ;LEFT+TOPEDGE
  8664.         dc.l    0            ;FONT
  8665.         dc.l    Help2Text1        ;TEXT
  8666.         dc.l    Help1Txt2        ;NEXTTEXT
  8667.         ds.l    0
  8668. Help2Txt2:    dc.b    1,12            ;PENS
  8669.         dc.w    4            ;MODE
  8670.         dc.w    11,21            ;LEFT+TOPEDGE
  8671.         dc.l    0            ;FONT
  8672.         dc.l    Help2Text2        ;TEXT
  8673.         dc.l    Help2Txt3        ;NEXTTEXT
  8674.         ds.l    0
  8675. Help2Txt3:    dc.b    1,12            ;PENS
  8676.         dc.w    4            ;MODE
  8677.         dc.w    11,31            ;LEFT+TOPEDGE
  8678.         dc.l    0            ;FONT
  8679.         dc.l    Help2Text3        ;TEXT
  8680.         dc.l    Help2Txt4        ;NEXTTEXT
  8681.         ds.l    0
  8682. Help2Txt4:    dc.b    1,12            ;PENS
  8683.         dc.w    4            ;MODE
  8684.         dc.w    11,41            ;LEFT+TOPEDGE
  8685.         dc.l    0            ;FONT
  8686.         dc.l    Help2Text4        ;TEXT
  8687.         dc.l    Help2Txt5        ;NEXTTEXT
  8688.         ds.l    0
  8689. Help2Txt5:    dc.b    1,12            ;PENS
  8690.         dc.w    4            ;MODE
  8691.         dc.w    11,51            ;LEFT+TOPEDGE
  8692.         dc.l    0            ;FONT
  8693.         dc.l    Help2Text5        ;TEXT
  8694.         dc.l    Help2Txt6        ;NEXTTEXT
  8695.         ds.l    0
  8696. Help2Txt6:    dc.b    1,12            ;PENS
  8697.         dc.w    4            ;MODE
  8698.         dc.w    11,61            ;LEFT+TOPEDGE
  8699.         dc.l    0            ;FONT
  8700.         dc.l    Help2Text6        ;TEXT
  8701.         dc.l    Help2Txt7        ;NEXTTEXT
  8702.         ds.l    0
  8703. Help2Txt7:    dc.b    1,12            ;PENS
  8704.         dc.w    4            ;MODE
  8705.         dc.w    11,71            ;LEFT+TOPEDGE
  8706.         dc.l    0            ;FONT
  8707.         dc.l    Help2Text7        ;TEXT
  8708.         dc.l    Help2Txt8        ;NEXTTEXT
  8709.         ds.l    0
  8710. Help2Txt8:    dc.b    1,12            ;PENS
  8711.         dc.w    4            ;MODE
  8712.         dc.w    11,81            ;LEFT+TOPEDGE
  8713.         dc.l    0            ;FONT
  8714.         dc.l    Help2Text8        ;TEXT
  8715.         dc.l    Help2Txt9        ;NEXTTEXT
  8716.         ds.l    0
  8717. Help2Txt9:    dc.b    1,12            ;PENS
  8718.         dc.w    4            ;MODE
  8719.         dc.w    11,91            ;LEFT+TOPEDGE
  8720.         dc.l    0            ;FONT
  8721.         dc.l    Help2Text10        ;TEXT
  8722.         dc.l    Help2Txt10        ;NEXTTEXT
  8723.         ds.l    0
  8724. Help2Txt10:    dc.b    1,12            ;PENS
  8725.         dc.w    4            ;MODE
  8726.         dc.w    11,101            ;LEFT+TOPEDGE
  8727.         dc.l    0            ;FONT
  8728.         dc.l    Help2Text10        ;TEXT
  8729.         dc.l    HelpTxt99        ;NEXTTEXT
  8730.         ds.l    0
  8731.  
  8732. Help3Txt1:    dc.b    1,12            ;PENS
  8733.         dc.w    4            ;MODE
  8734.         dc.w    11,11            ;LEFT+TOPEDGE
  8735.         dc.l    0            ;FONT
  8736.         dc.l    Help3Text1        ;TEXT
  8737.         dc.l    Help3Txt2        ;NEXTTEXT
  8738.         ds.l    0
  8739. Help3Txt2:    dc.b    1,12            ;PENS
  8740.         dc.w    4            ;MODE
  8741.         dc.w    11,21            ;LEFT+TOPEDGE
  8742.         dc.l    0            ;FONT
  8743.         dc.l    Help3Text2        ;TEXT
  8744.         dc.l    Help3Txt3        ;NEXTTEXT
  8745.         ds.l    0
  8746. Help3Txt3:    dc.b    1,12            ;PENS
  8747.         dc.w    4            ;MODE
  8748.         dc.w    11,31            ;LEFT+TOPEDGE
  8749.         dc.l    0            ;FONT
  8750.         dc.l    Help3Text3        ;TEXT
  8751.         dc.l    Help3Txt4        ;NEXTTEXT
  8752.         ds.l    0
  8753. Help3Txt4:    dc.b    1,12            ;PENS
  8754.         dc.w    4            ;MODE
  8755.         dc.w    11,41            ;LEFT+TOPEDGE
  8756.         dc.l    0            ;FONT
  8757.         dc.l    Help3Text4        ;TEXT
  8758.         dc.l    Help3Txt5        ;NEXTTEXT
  8759.         ds.l    0
  8760. Help3Txt5:    dc.b    1,12            ;PENS
  8761.         dc.w    4            ;MODE
  8762.         dc.w    11,51            ;LEFT+TOPEDGE
  8763.         dc.l    0            ;FONT
  8764.         dc.l    Help3Text5        ;TEXT
  8765.         dc.l    Help3Txt6        ;NEXTTEXT
  8766.         ds.l    0
  8767. Help3Txt6:    dc.b    1,12            ;PENS
  8768.         dc.w    4            ;MODE
  8769.         dc.w    11,61            ;LEFT+TOPEDGE
  8770.         dc.l    0            ;FONT
  8771.         dc.l    Help3Text6        ;TEXT
  8772.         dc.l    Help3Txt7        ;NEXTTEXT
  8773.         ds.l    0
  8774. Help3Txt7:    dc.b    1,12            ;PENS
  8775.         dc.w    4            ;MODE
  8776.         dc.w    11,71            ;LEFT+TOPEDGE
  8777.         dc.l    0            ;FONT
  8778.         dc.l    Help3Text7        ;TEXT
  8779.         dc.l    Help3Txt8        ;NEXTTEXT
  8780.         ds.l    0
  8781. Help3Txt8:    dc.b    1,12            ;PENS
  8782.         dc.w    4            ;MODE
  8783.         dc.w    11,81            ;LEFT+TOPEDGE
  8784.         dc.l    0            ;FONT
  8785.         dc.l    Help3Text8        ;TEXT
  8786.         dc.l    Help3Txt9        ;NEXTTEXT
  8787.         ds.l    0
  8788. Help3Txt9:    dc.b    1,12            ;PENS
  8789.         dc.w    4            ;MODE
  8790.         dc.w    11,91            ;LEFT+TOPEDGE
  8791.         dc.l    0            ;FONT
  8792.         dc.l    Help3Text10        ;TEXT
  8793.         dc.l    Help3Txt10        ;NEXTTEXT
  8794.         ds.l    0
  8795. Help3Txt10:    dc.b    1,12            ;PENS
  8796.         dc.w    4            ;MODE
  8797.         dc.w    11,101            ;LEFT+TOPEDGE
  8798.         dc.l    0            ;FONT
  8799.         dc.l    Help3Text10        ;TEXT
  8800.         dc.l    Help3Txt11        ;NEXTTEXT
  8801.         ds.l    0
  8802. Help3Txt11:    dc.b    1,12            ;PENS
  8803.         dc.w    4            ;MODE
  8804.         dc.w    11,111            ;LEFT+TOPEDGE
  8805.         dc.l    0            ;FONT
  8806.         dc.l    Help3Text11        ;TEXT
  8807.         dc.l    Help3Txt12        ;NEXTTEXT
  8808.         ds.l    0
  8809. Help3Txt12:    dc.b    1,12            ;PENS
  8810.         dc.w    4            ;MODE
  8811.         dc.w    11,121            ;LEFT+TOPEDGE
  8812.         dc.l    0            ;FONT
  8813.         dc.l    Help3Text12        ;TEXT
  8814.         dc.l    Help3Txt13        ;NEXTTEXT
  8815.         ds.l    0
  8816. Help3Txt13:    dc.b    1,12            ;PENS
  8817.         dc.w    4            ;MODE
  8818.         dc.w    11,131            ;LEFT+TOPEDGE
  8819.         dc.l    0            ;FONT
  8820.         dc.l    Help3Text13        ;TEXT
  8821.         dc.l    Help3Txt14        ;NEXTTEXT
  8822.         ds.l    0
  8823. Help3Txt14:    dc.b    1,12            ;PENS
  8824.         dc.w    4            ;MODE
  8825.         dc.w    11,141            ;LEFT+TOPEDGE
  8826.         dc.l    0            ;FONT
  8827.         dc.l    Help3Text14        ;TEXT
  8828.         dc.l    Help3Txt15        ;NEXTTEXT
  8829.         ds.l    0
  8830. Help3Txt15:    dc.b    1,12            ;PENS
  8831.         dc.w    4            ;MODE
  8832.         dc.w    11,151            ;LEFT+TOPEDGE
  8833.         dc.l    0            ;FONT
  8834.         dc.l    Help3Text15        ;TEXT
  8835.         dc.l    Help3Txt16        ;NEXTTEXT
  8836.         ds.l    0
  8837. Help3Txt16:    dc.b    1,12            ;PENS
  8838.         dc.w    4            ;MODE
  8839.         dc.w    11,161            ;LEFT+TOPEDGE
  8840.         dc.l    0            ;FONT
  8841.         dc.l    Help3Text16        ;TEXT
  8842.         dc.l    Help3Txt17        ;NEXTTEXT
  8843.         ds.l    0
  8844. Help3Txt17:    dc.b    1,12            ;PENS
  8845.         dc.w    4            ;MODE
  8846.         dc.w    11,171            ;LEFT+TOPEDGE
  8847.         dc.l    0            ;FONT
  8848.         dc.l    Help3Text17        ;TEXT
  8849.         dc.l    Help3Txt18        ;NEXTTEXT
  8850.         ds.l    0
  8851. Help3Txt18:    dc.b    1,12            ;PENS
  8852.         dc.w    4            ;MODE
  8853.         dc.w    11,181            ;LEFT+TOPEDGE
  8854.         dc.l    0            ;FONT
  8855.         dc.l    Help3Text18        ;TEXT
  8856.         dc.l    Help3Txt19        ;NEXTTEXT
  8857.         ds.l    0
  8858. Help3Txt19:    dc.b    1,12            ;PENS
  8859.         dc.w    4            ;MODE
  8860.         dc.w    11,191            ;LEFT+TOPEDGE
  8861.         dc.l    0            ;FONT
  8862.         dc.l    Help3Text19        ;TEXT
  8863.         dc.l    0            ;NEXTTEXT
  8864.         ds.l    0
  8865.  
  8866. Help1Text1:    dc.b    "Traffic-Lights help:",0
  8867.         ds.l    0                    
  8868. Help1Text2:    dc.b    "In the MAIN screen: Choose action from menus.",0
  8869.         ds.l    0
  8870. Help1Text3:    dc.b    "Options: City Map - The simulation itself",0
  8871.         ds.l    0
  8872. Help1Text4:    dc.b    "         Help     - This text. On 'HELP'-key also",0,0
  8873.         ds.l    0
  8874. Help1Text5:    dc.b    "         Load     - Load existing situation",0
  8875.         ds.l    0
  8876. Help1Text6:    dc.b    "         Save(as) - Save current situation",0
  8877.         ds.l    0
  8878. Help1Text7:    dc.b    "         About    - Copyright notice and",0
  8879.         ds.l    0
  8880. Help1Text8:    dc.b    "                    version information",0
  8881.         ds.l    0
  8882. Help1Text9:    dc.b    "         Quit     - Quit program",0
  8883.         ds.l    0
  8884. HelpText99:    dc.b    "PRESS 'Y' FOR MORE. YES OR NO TO QUIT.",0
  8885.         ds.l    0
  8886. Help2Text1:    dc.b    "Traffic-Lights help:",0
  8887.         ds.l    0                    
  8888. Help2Text2:    dc.b    "In the MAP window.",0
  8889.         ds.l    0
  8890. Help2Text3:    dc.b    "Keys:    Escape   - Quit variable ed and map",0
  8891.         ds.l    0
  8892. Help2Text4:    dc.b    "In the VARIABLE EDITOR window.",0
  8893.         ds.l    0
  8894. Help2Text5:    dc.b    "Menus:   Help     - This text. On 'HELP'-key also",0,0
  8895.         ds.l    0
  8896. Help2Text6:    dc.b    "         Load     - Load settings",0
  8897.         ds.l    0
  8898. Help2Text7:    dc.b    "         Save(as) - Save settings",0
  8899.         ds.l    0
  8900. Help2Text8:    dc.b    "         About    - Copyright notice and",0
  8901.         ds.l    0
  8902. Help2Text9:    dc.b    "                    version information",0
  8903.         ds.l    0
  8904. Help2Text10:    dc.b    "         Quit     - Quit variable ed and map",0
  8905.         ds.l    0
  8906. Help2Text11:    dc.b    "Keys:    Escape   - Quit variable ed and map",0
  8907.         ds.l    0
  8908. Help3Text1:    dc.b    "Traffic-Lights help:",0
  8909.         ds.l    0                    
  8910. Help3Text2:    dc.b    "In the VARIABLE EDITOR.",0
  8911.         ds.l    0
  8912. Help3Text3:    dc.b    "Gadgets (the little boxes):",0
  8913.         ds.l    0
  8914. Help3Text4:    dc.b    "'Red', 'Amber' and 'Green' are the lengths",0,0
  8915.         ds.l    0
  8916. Help3Text5:    dc.b    "for the corresponding traffic-lights. These",0
  8917.         ds.l    0
  8918. Help3Text6:    dc.b    "are for the horizontal direction.",0
  8919.         ds.l    0
  8920. Help3Text7:    dc.b    "'In' and 'Out' equal the time between vehicles",0
  8921.         ds.l    0
  8922. Help3Text8:    dc.b    "arriving and leaving.",0
  8923.         ds.l    0
  8924. Help3Text9:    dc.b    "'Max X' and 'Max Y' are the maximum amount of",0
  8925.         ds.l    0
  8926. Help3Text10:    dc.b    "vehicles on that axis.",0
  8927.         ds.l    0
  8928. Help3Text11:    dc.b    "The next 8 gadgets tell the possibility of a",0
  8929.         ds.l    0
  8930. Help3Text12:    dc.b    "vehicle to arrive to the corresponding road.",0
  8931.         ds.l    0
  8932. Help3Text13:    dc.b    "Roads are numbered clockwise, starting with",0
  8933.         ds.l    0
  8934. Help3Text14:    dc.b    "number 1 in the top lefthand corner.",0
  8935.         ds.l    0
  8936. Help3Text15:    dc.b    "The 4 big groups of gadgets tell the possibilities",0
  8937.         ds.l    0
  8938. Help3Text16:    dc.b    "of the vehicles turning or going straight.",0
  8939.         ds.l    0
  8940. Help3Text17:    dc.b    "The three buttons tell what 'time' it is.",0
  8941.         ds.l    0
  8942. Help3Text18:    dc.b    "Night means light traffic, day is medium traffic",0
  8943.         ds.l    0
  8944. Help3Text19:    dc.b    "and then heavy traffic is heavy traffic.",0
  8945.         ds.l    0
  8946.  
  8947. GadImage1:    dc.w    0,0            ;Left,Top
  8948.         dc.w    16,11            ;Sizes
  8949.         dc.w    1            ;Depth
  8950. GI1:        dc.l    0            ;Image data
  8951.         dc.b    1,0            ;PlanePick,PlaneOnOff
  8952.         dc.l    0            ;Next image
  8953.         ds.l    0
  8954.  
  8955. GadImage2:    dc.w    0,0            ;Left,Top
  8956.         dc.w    16,11            ;Sizes
  8957.         dc.w    1            ;Depth
  8958. GI2:        dc.l    0            ;Image data
  8959.         dc.b    1,0            ;PlanePick,PlaneOnOff
  8960.         dc.l    0            ;Next image
  8961.         ds.l    0
  8962.         
  8963. GadImg1:    dc.w    $1f80,$30c0,$6060,$c030,$c030,$c030,$c030,$c030,$6060,$30c0,$1f80
  8964. GadImg2:    dc.w    $1f80,$30c0,$6660,$cf30,$cf30,$cf30,$cf30,$cf30,$6660,$30c0,$1f80
  8965.  
  8966.         ds.l    0
  8967.  
  8968.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8969.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8970.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8971.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8972.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8973.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8974.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8975.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8976.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8977.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8978.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8979.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8980.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8981.  
  8982. FString:    dc.b    "%d",0
  8983.         ds.l    0
  8984. DStream:    dc.b    0,0,0
  8985.         ds.l    0
  8986. PutChData:    dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8987. ;            M,a,x,., ,l,e,f,t, ,m,a,r,g,i,n, ,?,?,.,0
  8988.  
  8989.         ds.l    0
  8990. PutChProc:    move.b    d0,(a3)+
  8991.         rts
  8992.  
  8993. FString2:    dc.b    "%ld",0
  8994.         ds.l    0
  8995. DStream2:    dc.b    0,0,0,0,0,0
  8996.         ds.l    0
  8997. PutChData2:    dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  8998. ;            M,a,x,., ,l,e,f,t, ,m,a,r,g,i,n, ,?,?,.,0
  8999.  
  9000.         ds.l    0
  9001. PutChProc2:    move.b    d0,(a3)+
  9002.         rts
  9003.  
  9004. RandomTxt1:    dc.b    1,12            ;PENS
  9005.         dc.w    4            ;MODE
  9006.         dc.w    11,11            ;LEFT+TOPEDGE
  9007.         dc.l    0            ;FONT
  9008.         dc.l    PutChData2        ;TEXT
  9009.         dc.l    0            ;NEXTTEXT
  9010.         ds.l    0
  9011.  
  9012. ModeGadImage1:    dc.w    0,0            ;Left,Top
  9013.         dc.w    16,11            ;Sizes
  9014.         dc.w    1            ;Depth
  9015. MoGI1:        dc.l    ModeGadImg1        ;Image data
  9016.         dc.b    1,0            ;PlanePick,PlaneOnOff
  9017.         dc.l    0            ;Next image
  9018.         ds.l    0
  9019.  
  9020. ModeGadImage2:    dc.w    0,0            ;Left,Top
  9021.         dc.w    16,11            ;Sizes
  9022.         dc.w    1            ;Depth
  9023.         dc.l    ModeGadImg2        ;Image data
  9024.         dc.b    1,0            ;PlanePick,PlaneOnOff
  9025.         dc.l    0            ;Next image
  9026.         ds.l    0
  9027.  
  9028.         section    TLChipstuff,DATA,CHIP
  9029.         
  9030. ModeGadImg1:    dc.w    $1f80,$30c0,$6060,$c030,$c030,$c030,$c030,$c030,$6060,$30c0,$1f80
  9031. ModeGadImg2:    dc.w    $1f80,$30c0,$6660,$cf30,$cf30,$cf30,$cf30,$cf30,$6660,$30c0,$1f80
  9032.  
  9033. ;Batch1 - Income 1
  9034.  
  9035. BorderLine1:    ds.w    2
  9036. CollMask1:    ds.w    32
  9037. BorderLine2:    ds.w    2
  9038. CollMask2:    ds.w    32
  9039. BorderLine3:    ds.w    2
  9040. CollMask3:    ds.w    32
  9041.  
  9042. ;Batch2 - Income 2
  9043.  
  9044. BorderLine4:    ds.w    2
  9045. CollMask4:    ds.w    32
  9046. BorderLine5:    ds.w    2
  9047. CollMask5:    ds.w    32
  9048. BorderLine6:    ds.w    2
  9049. CollMask6:    ds.w    32
  9050.  
  9051. ;Batch3 - Income 3
  9052.  
  9053. BorderLine7:    ds.w    2
  9054. CollMask7:    ds.w    32
  9055. BorderLine8:    ds.w    2
  9056. CollMask8:    ds.w    32
  9057. BorderLine9:    ds.w    2
  9058. CollMask9:    ds.w    32
  9059.  
  9060. ;Batch4
  9061.  
  9062. BorderLine10:    ds.w    2
  9063. CollMask10:    ds.w    32
  9064. BorderLine11:    ds.w    2
  9065. CollMask11:    ds.w    32
  9066. BorderLine12:    ds.w    2
  9067. CollMask12:    ds.w    32
  9068.  
  9069. ;Batch5
  9070.  
  9071. BorderLine13:    ds.w    2
  9072. CollMask13:    ds.w    32
  9073. BorderLine14:    ds.w    2
  9074. CollMask14:    ds.w    32
  9075. BorderLine15:    ds.w    2
  9076. CollMask15:    ds.w    32
  9077.  
  9078. ;Batch6
  9079.  
  9080. BorderLine16:    ds.w    2
  9081. CollMask16:    ds.w    32
  9082. BorderLine17:    ds.w    2
  9083. CollMask17:    ds.w    32
  9084. BorderLine18:    ds.w    2
  9085. CollMask18:    ds.w    32
  9086.  
  9087. ;Batch7
  9088.  
  9089. BorderLine19:    ds.w    2
  9090. CollMask19:    ds.w    32
  9091. BorderLine20:    ds.w    2
  9092. CollMask20:    ds.w    32
  9093. BorderLine21:    ds.w    2
  9094. CollMask21:    ds.w    32
  9095.  
  9096. ;Batch8
  9097.  
  9098. BorderLine22:    ds.w    2
  9099. CollMask22:    ds.w    32
  9100. BorderLine23:    ds.w    2
  9101. CollMask23:    ds.w    32
  9102. BorderLine24:    ds.w    2
  9103. CollMask24:    ds.w    32
  9104.  
  9105. ;Batch9 - Juctions
  9106.  
  9107. BorderLine25:    ds.w    2
  9108. CollMask25:    ds.w    32
  9109. BorderLine26:    ds.w    2
  9110. CollMask26:    ds.w    32
  9111. BorderLine27:    ds.w    2
  9112. CollMask27:    ds.w    32
  9113.  
  9114. ;Batch10 - Junctions
  9115.  
  9116. BorderLine28:    ds.w    2
  9117. CollMask28:    ds.w    32
  9118. BorderLine29:    ds.w    2
  9119. CollMask29:    ds.w    32
  9120. BorderLine30:    ds.w    2
  9121. CollMask30:    ds.w    32
  9122.  
  9123. ;Batch11 - Junctions
  9124.  
  9125. BorderLine31:    ds.w    2
  9126. CollMask31:    ds.w    32
  9127. BorderLine32:    ds.w    2
  9128. CollMask32:    ds.w    32
  9129. BorderLine33:    ds.w    2
  9130. CollMask33:    ds.w    32
  9131.  
  9132. ;Batch12
  9133.  
  9134. BorderLine34:    ds.w    2
  9135. CollMask34:    ds.w    32
  9136. BorderLine35:    ds.w    2
  9137. CollMask35:    ds.w    32
  9138. BorderLine36:    ds.w    2
  9139. CollMask36:    ds.w    32
  9140.  
  9141. ;Batch13
  9142.  
  9143. BorderLine37:    ds.w    2
  9144. CollMask37:    ds.w    32
  9145. BorderLine38:    ds.w    2
  9146. CollMask38:    ds.w    32
  9147. BorderLine39:    ds.w    2
  9148. CollMask39:    ds.w    32
  9149.  
  9150. ;Batch14
  9151.  
  9152. BorderLine40:    ds.w    2
  9153. CollMask40:    ds.w    32
  9154. BorderLine41:    ds.w    2
  9155. CollMask41:    ds.w    32
  9156. BorderLine42:    ds.w    2
  9157. CollMask42:    ds.w    32
  9158.  
  9159. ;Batch15
  9160.  
  9161. BorderLine43:    ds.w    2
  9162. CollMask43:    ds.w    32
  9163. BorderLine44:    ds.w    2
  9164. CollMask44:    ds.w    32
  9165. BorderLine45:    ds.w    2
  9166. CollMask45:    ds.w    32
  9167.  
  9168. ;Batch16
  9169.  
  9170. BorderLine46:    ds.w    2
  9171. CollMask46:    ds.w    32
  9172. BorderLine47:    ds.w    2
  9173. CollMask47:    ds.w    32
  9174. BorderLine48:    ds.w    2
  9175. CollMask48:    ds.w    32
  9176.  
  9177. UpSprImg:    dc.w    %0000000000000000,%0111111111000000
  9178.         dc.w    %1011111110100000,%0100000001000000
  9179.         dc.w    %1111111111100000,%0011111110000000
  9180.         dc.w    %1011111110100000,%0100000001000000
  9181.         dc.w    %0010000010000000,%0101111101000000
  9182.         dc.w    %1010000010100000,%0101111101000000
  9183.         dc.w    %1111111111100000,%0000000000000000
  9184.         dc.w    %1010000010100000,%0101111101000000
  9185.  
  9186. DownSprImg:    dc.w    %0000010100000101,%0000001011111010
  9187.         dc.w    %0000011111111111,%0000000000000000
  9188.         dc.w    %0000010100000101,%0000001011111010
  9189.         dc.w    %0000000100000100,%0000001011111010
  9190.         dc.w    %0000010111111101,%0000001000000010
  9191.         dc.w    %0000011111111111,%0000000111111100
  9192.         dc.w    %0000010111111101,%0000001111111110
  9193.         dc.w    %0000000000000000,%0000001111111110
  9194.  
  9195. RightSprImg:    dc.w    %0011100111000000,%0000000000000000
  9196.         dc.w    %0001000010000000,%1110111101100000
  9197.         dc.w    %0111111111000000,%1100000011100000
  9198.         dc.w    %0001000111000000,%1110111011100000
  9199.         dc.w    %0111111111000000,%1100000011100000
  9200.         dc.w    %0001000010000000,%1110111101100000
  9201.         dc.w    %0011100111000000,%0000000000000000
  9202.         dc.w    %0000000000000000,%0000000000000000
  9203.  
  9204. LeftSprImg:    dc.w    %0000001110011100,%0000000000000000
  9205.         dc.w    %0000000100001000,%0000011011110111
  9206.         dc.w    %0000001111111110,%0000011100000011
  9207.         dc.w    %0000001110001000,%0000011101110111
  9208.         dc.w    %0000001111111110,%0000011100000011
  9209.         dc.w    %0000000100001000,%0000011011110111
  9210.         dc.w    %0000001110011100,%0000000000000000
  9211.         dc.w    %0000000000000000,%0000000000000000
  9212.         END
  9213.